Ik heb een formulier (Gebruiker) waaruit ik met een
button een ander formulier (Verkoper) wil openen in
de toevoegmodus. Het is de bedoeling dat de waarde van in veld [Nickname] van Gebruiker, wordt ingevuld in het veld [Gebruikersnaam] van Verkoper.
Ik heb hiervoor de volgende code geschreven:
'Op het formulier Gebruiker:
Private Sub btnOpenVerkoper_Click()
Dim stDocName As String
stDocName = "Verkoper"
DoCmd.OpenForm stDocName, , , , acFormAdd
End Sub
----------
'Op het formulier Verkoper:
Private Sub Form_Open()
Me!Gebruikersnaam.SetFocus
Me!Gebruikersnaam = forms!Gebruiker!Nickname
End Sub
----------
Ik krijg een foutmelding dat die de Open functie niet kan uitvoeren. Als het goed is ligt het aan Me!Gebruikersnaam = forms!Gebruiker!Nickname. Ik wie niet goed wat er na het = teken moet komen??
Wat doe ik fout?
button een ander formulier (Verkoper) wil openen in
de toevoegmodus. Het is de bedoeling dat de waarde van in veld [Nickname] van Gebruiker, wordt ingevuld in het veld [Gebruikersnaam] van Verkoper.
Ik heb hiervoor de volgende code geschreven:
'Op het formulier Gebruiker:
Private Sub btnOpenVerkoper_Click()
Dim stDocName As String
stDocName = "Verkoper"
DoCmd.OpenForm stDocName, , , , acFormAdd
End Sub
----------
'Op het formulier Verkoper:
Private Sub Form_Open()
Me!Gebruikersnaam.SetFocus
Me!Gebruikersnaam = forms!Gebruiker!Nickname
End Sub
----------
Ik krijg een foutmelding dat die de Open functie niet kan uitvoeren. Als het goed is ligt het aan Me!Gebruikersnaam = forms!Gebruiker!Nickname. Ik wie niet goed wat er na het = teken moet komen??
Wat doe ik fout?
Laatst bewerkt: