Private Sub Knop11_Click()
On Error GoTo Err_Events_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "EVENTS"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Events_Click:
Exit Sub
Err_Events_Click:
MsgBox Err.Description
Resume Exit_Events_Click
this is the coding part of going to a form with a button,
what we want now is that that same button also opens a new record in that form (in this cause the form is called 'Events')
greetz,
blaatje
|