Supportnet / Forum / Datenbanken
Recordset probleme auf SQL
Frage
Private Sub Befehl51_Click()
On Error GoTo Err_Befehl51_Click
DoCmd.GoToRecord , , acNewRec
Dim rs As ADODB.Recordset
Dim DB As Database
Dim KdNr As String
Set DB = Application.CurrentDb
Set rs = DB.OpenRecordset("SELECT Max(KD_ID) FROM Kunden;")
Form_vidicomKunden.Kunden_KD_ID = rs.Fields(0) + 1
Exit_Befehl51_Click:
Exit Sub
Err_Befehl51_Click:
MsgBox Err.Description
Resume Exit_Befehl51_Click
End Sub
Antwort 1 von testfix4711
schöne Prozedur!
Und nu???
TESTFIX4711
Und nu???
TESTFIX4711