| Hallo
Ich hab es nun so versucht ein Fehler wurde nicht ausgegeben aber funktionieren tut es leider nicht jetzt weis ich nicht woran das liegen könnte.
Meine VBA sieht jetzt so aus vielleicht kann da jemand den Fehler entdecken.
Private Sub InsertInto_Eingabe_Click()
Dim t1 As String
Dim t2 As String
Dim t3 As String
Dim t4 As String
Dim t5 As String
Dim strSQL As String
Projektnummer.SetFocus
t1 = Projektnummer.Text
OCNummer.SetFocus
t2 = OCNummer.Text
geplantesStart_Datum.SetFocus
t3 = geplantesStart_Datum.Text
geplantesEnde_Datum.SetFocus
t4 = geplantesEnde_Datum.Text
reseviertfürProjekt.SetFocus
t5 = reserviertfürProjekt.Text
strSQL = "InsertInto tbl Projekt(Projektnummer, OCNummer, geplantes Start_Datum, geplantes Ende_Datum, reserviert fuer Projekt) Values ('" & Forms![Messgeraete_Temperatur fuer Projekt]![Projektnummer] & "','" & Forms![Messgerate_Temperatur fuer Projekt]![OCNummer] & "','" & Forms![Messgeraete_Temperatur fuer Projekt]![geplantes Start_Datum] & "','" & Forms![Messgeraete_Temperatur fuer Projekt]![geplantes Ende_Datum] & "','" & Forms![Messgraete_Temperatur fuer Projekt]![reserviert fuer Projekt] & "')"
'DoCmd.SetWarnings False
On Error Resume Next
DoCmd.RunSQL strSQL
'DoCmd.SetWarnings True
'MsgBox strSQL
Schon mal besten Dank im Voraus für eure Hilfe
Gruß Donar |
