Hallo,
habe folgenden Code geschrieben:
Private Sub btn_update_Click()
Dim sSQL As String
sSQL = „Update Projekte“
sSQL = sSQL & " SET Projekte.Projekt=’" & Me.txt_Projekt & „’, Projekte.Schrank=’“ & Me.txt_Schrank & "’, "
sSQL = sSQL & „Projekte.Zeichnungsnr=’“ & Me.txt_Zeichnungsnr & „’, Projekte.N_Ä=’“ & Me.txt_N_Ä & "’, "
sSQL = sSQL & „Projekte.Auslief_Nr=’“ & Me.txt_Ausliefnr & „’, Projekte.Eingang=’“ & Me.txt_Eingang & "’, "
sSQL = sSQL & „Projekte.gez= '“ & Me.txt_gez & „’, Projekte.Freigabe=’“ & Me.txt_Freigabe & "’, "
sSQL = sSQL & „Projekte.Pos =’“ & Me.txt_POS & "’, "
sSQL = sSQL & „Projekte.NC= '“ & Me.txt_NC & „’, Projekte.[%_Maschine] = '“ & Me.txt_Maschine & "’ "
sSQL = sSQL & „Projekte.L= '“ & Me.txt_L & „’, Projekte.A= '“ & Me.txt_A & „’, Projekte.R= '“ & Me.txt_R & "’ "
sSQL = sSQL & " where Projekte.lfd_nr = " & Me!txt_lfdnr
ExecuteSQL sSQL
Hier noch die Funktion „ExecuteSQL“
Public Sub ExecuteSQL(strSQL As String)
On Error GoTo Errorhandling
'Temporäres Ausschalten der Warnungen
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True 'Warnungen wieder einschalten
Exit Sub
Errorhandling:
MsgBox Err.Number & " " & Err.Description
End Sub
Mal funktioniert das Datenupdate. Z.Zt aber mal wieder nicht. Ich kann auch keinen Fehler in der Anweisung finden. Hat jemand eine Idee was ich anders bzw. besser machen kann?
Gruß, Heiko