Supportnet / Forum / Datenbanken
Objekt-Variable oder With-Block Variable nicht gesetzt.
Frage
Das hier ist mein Quelltext der ausserhalb der SQL-Datenbank in einer anderen ohne Fehlermeldung läuft.
Meine Frage was ist daran Falsch?
Private Sub Befehl51_Click()
On Error GoTo Err_Befehl51_Click
DoCmd.GoToRecord , , acNewRec
DoCmd.SetWarnings (WarningsOff)
Dim rs As DAO.Recordset
Dim DB As DAO.Database
Dim KdNr As Long
Set DB = Application.CurrentDb
Set rs = DB.OpenRecordset("SELECT Max(KD_ID) FROM Kunden;")
Form_vidicomKunden.Kunden_KD_ID = rs.Fields(0).Value + 1
Exit_Befehl51_Click:
Exit Sub
Err_Befehl51_Click:
MsgBox Err.Description
Resume Exit_Befehl51_Click
End Sub