| Hallo zusammen
habe was neues versucht aber leider hat das auch nicht funktioniert.
Es sieht jetzt so aus.
Private Sub Eingabe_Click()
Dim Textbox1 As String
Dim Textbox2 As String
Dim Textbox3 As String
Dim Textbox4 As String
Dim Textbox5 As String
Dim strSQL As String
Projektnummer.SetFocus
Textbox1 = Projektnummer.Text
OC_Nummer.SetFocus
Textbox2 = OC_Nummer.Text
geplantesStart_Datum.SetFocus
Textbox3 = geplantesStart_Datum.Text
geplantesEnde_Datum.SetFocus
Textbox4 = geplantesEnde_Datum.Text
reseviertfuerProjekt.SetFocus
Textbox5 = reserviertfuerProjekt.Text
strSQL = "Insert Into Projekt(Projektnummer,OC_Nummer,[geplantes Start_Datum],[geplantes Ende_Datum],[Für Projekt reserviert]) Values ('" & Textbox1 & "','" & Textbox2 & "','" & Textbox3 & "','" & Textbox4 & "','" & Textbox5 & "')"
'DoCmd.SetWarnings False
On Error Resume Next
DoCmd.RunSQL strSQL
'DoCmd.SetWarnings True
'MsgBox strSQL
Vielleicht kann es sein das da noch ein kleiner Fehler drin ist
Gruß
Donar |
