Ik zit met volgend probleem:
In formulier A geef ik een bepaalde waarde in in tekstveld X,
(wanneer ik in het formulier A een subformulier B plaats, kan ik ingeven dat in het subformulier B de waarde X in een bepaald veld van het subformulier wordt overgenomen, dit gaat snel via de wizard van het subformulier)
Maar ik wil niet via een subformulier werken, maar wel op volgende manier:
Ik heb een knop geplaatst in formulier A, deze knop opent formulier B
Nu zou ik willen dat bij het openen van formulier B automatisch een nieuw record wordt getoond, zodat ik dadelijk het formulier B kan invullen, en dat bij het openen van die formulier al dadelijk de waarde van het veld X (uit formulier A) wordt overgenomen (ingevuld) in het bepaalde veld van formulier B
Is dit op te lossen door een code bij te voegen achter de knop?
Kan iemand mij verder helpen met deze code?
alvast bedankt voor de hulp
deze code zit er nu achter de knop:
Private Sub knpFrmActLeerlingOpenenB_Click()
On Error GoTo Err_knpFrmActLeerlingOpenenB_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmActLeerling"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
Me.ActID = tblActiviteiten.ActID
Exit_knpFrmActLeerlingOpenenB_Click:
Exit Sub
Err_knpFrmActLeerlingOpenenB_Click:
MsgBox Err.Description
Resume Exit_knpFrmActLeerlingOpenenB_Click
End Sub
De regel:
Me.ActID = tblActiviteiten.ActID
kreeg ik van iemand op een forum,
als ik de knop gebruik, krijg ik volgende foutmelding:
"object vereist"
gr, wim
In formulier A geef ik een bepaalde waarde in in tekstveld X,
(wanneer ik in het formulier A een subformulier B plaats, kan ik ingeven dat in het subformulier B de waarde X in een bepaald veld van het subformulier wordt overgenomen, dit gaat snel via de wizard van het subformulier)
Maar ik wil niet via een subformulier werken, maar wel op volgende manier:
Ik heb een knop geplaatst in formulier A, deze knop opent formulier B
Nu zou ik willen dat bij het openen van formulier B automatisch een nieuw record wordt getoond, zodat ik dadelijk het formulier B kan invullen, en dat bij het openen van die formulier al dadelijk de waarde van het veld X (uit formulier A) wordt overgenomen (ingevuld) in het bepaalde veld van formulier B
Is dit op te lossen door een code bij te voegen achter de knop?
Kan iemand mij verder helpen met deze code?
alvast bedankt voor de hulp
deze code zit er nu achter de knop:
Private Sub knpFrmActLeerlingOpenenB_Click()
On Error GoTo Err_knpFrmActLeerlingOpenenB_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmActLeerling"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
Me.ActID = tblActiviteiten.ActID
Exit_knpFrmActLeerlingOpenenB_Click:
Exit Sub
Err_knpFrmActLeerlingOpenenB_Click:
MsgBox Err.Description
Resume Exit_knpFrmActLeerlingOpenenB_Click
End Sub
De regel:
Me.ActID = tblActiviteiten.ActID
kreeg ik van iemand op een forum,
als ik de knop gebruik, krijg ik volgende foutmelding:
"object vereist"
gr, wim
