Record toevoegen

[pkuipers]

Hallo,

ik heb het volgende probleem. Wanneer ik onderstaande uitvoer krijg ik de volgende foutmelding: "De opdracht of actie RecordsGaNaarNieuwe is momenteel niet beschikbaar" wat doe ik fout?

Private Sub cmdNieuw_Click()

On Error GoTo Err_cmdToevoegen_Click
    
    Dim db As Database
    Dim rec As Recordset
    Set db = CurrentDb()
    Set rec = db.OpenRecordset("tblEigenaar", dbOpenDynaset)
    rec.Sort = "Klantnummer"
    rec.MoveLast
    intKlantnr = rec.Fields("Klantnummer")
   
    
    
    'create new record
    Me.AllowAdditions = True
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.GoToRecord , , acNewRec
    Me.AllowAdditions = True
    Me.Klantnummer.Locked = False
    Me.Klantnummer.SetFocus
    Me.Klantnummer.Text = (intKlantnr + 1)
    Me.Klantnummer.Locked = True
    
Exit_cmdToevoegen_Click:
    Exit Sub
    
Err_cmdToevoegen_Click:
    MsgBox (Err.Description)
    Resume Exit_cmdToevoegen_Click
    
End Sub

Bijvoorbaat dank,

Peter

 

[OctaFish]

Je gaat 2 keer achter elkaar naar een nieuw record. Eén van de 2 opdrachten is ruim voldoende. RunCommand is daarbij de opvolger van DoCmd. Maar beide opties werken. Zelf zou ik het overigens zo doen:

Private Sub cmdNieuw_Click()
On Error GoTo Err_cmdToevoegen_Click
Dim db As Database, rec As Recordset
Dim intKlantnr as Integer
    
    Set db = CurrentDb()
    Set rec = db.OpenRecordset("SELECT Top 1 Klantnummer FROM tblEigenaar ORDER BY Klantnummer DESC", dbOpenDynaset)
    intKlantnr = CInt(rec.Fields("Klantnummer")) + 1
    rec.Close
    'create new record
    Me.AllowAdditions = True
    DoCmd.RunCommand acCmdRecordsGoToNew
''    DoCmd.GoToRecord , , acNewRec
    Me.Klantnummer = intKlantnr 
    Me.Klantnummer.Locked = True
    Exit Sub
    
Err_cmdToevoegen_Click:
    MsgBox (Err.Description)
    
End Sub

De manier waarop jij het klantnummer ophaalt is niet de snelste methode .

 

[pkuipers]

Hallo OctaFish,

dank voor de snelle en juiste reactie. Dit werkt prima.

Groetjes,

Peter