ik gebruik achter een knop de volgende code om een nieuwe artikel in te
voeren.
Private Sub btn_ArtikelenToevoegen_Click()
On Error GoTo Err_btn_ArtikelenToevoegen_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm_AzieArtikelInvoer"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
Leveranciernr.Visible = False
Leveranciernr.SetFocus
Exit_btn_ArtikelenToevoegen_Click:
Exit Sub
Err_btn_ArtikelenToevoegen_Click:
MsgBox Err.Description
Resume Exit_btn_ArtikelenToevoegen_Click
End Sub
het probleem is dat het nu niet meer doet. bij klikken op de knop wordt de
volgende melding gegeven:
Kan niet naar de opgegeven record gaan.
Wat is hier het probleem en hoe los ik het op
voeren.
Private Sub btn_ArtikelenToevoegen_Click()
On Error GoTo Err_btn_ArtikelenToevoegen_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frm_AzieArtikelInvoer"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
Leveranciernr.Visible = False
Leveranciernr.SetFocus
Exit_btn_ArtikelenToevoegen_Click:
Exit Sub
Err_btn_ArtikelenToevoegen_Click:
MsgBox Err.Description
Resume Exit_btn_ArtikelenToevoegen_Click
End Sub
het probleem is dat het nu niet meer doet. bij klikken op de knop wordt de
volgende melding gegeven:
Kan niet naar de opgegeven record gaan.
Wat is hier het probleem en hoe los ik het op