Formulier openen met knop

[iegje]

Ik heb een knop gemaakt voor het openen van een formulier (frmMRI beoordelingen), nu wil ik dat wanneer het formulier geopend wordt de gegevens van het bijbehorende personeelsnummer getoond worden. De knop staat op het formulier frmpersonalia.

De code die er nu staat is

Private Sub MRI_beoordelingen_Click()
On Error GoTo Err_MRI_beoordelingen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmMRI beoordeling"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_MRI_beoordelingen_Click:
    Exit Sub

Err_MRI_beoordelingen_Click:
    MsgBox Err.Description
    Resume Exit_MRI_beoordelingen_Click
    
End Sub

Hoe kan ik dit voor elkaar krijgen?

 

[Bakk4318]

Private Sub MRI_beoordelingen_Click()
On Error GoTo Err_MRI_beoordelingen_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmMRI beoordeling"
   [COLOR="red"] stLinkCriteria = "[Personeelsnummer]=" & Me![Personeelsnummer][/COLOR]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_MRI_beoordelingen_Click:
    Exit Sub

Err_MRI_beoordelingen_Click:
    MsgBox Err.Description
    Resume Exit_MRI_beoordelingen_Click
    
End Sub

Door het rode gedeelte toe te voegen, waarbij je de 1e Personeelsnummer moet aanpassen aan de veldnaam in je tabel en de 2e Personeelsnummer moet aanpassen aan de veldnaam van je formulier.

 

[iegje]

Super dank je.
Weer wat geleerd, alleen opent het nieuwe formulier achter het formulier met de knop.
Kan ik daar nog iets aan doen?

 

[Bakk4318]

Heb je de eigenschap "Pop-up" van het formulier met de knop op Ja staan? Zet dit dan uit of zet deze eigenschap op het andere formulier ook op Ja.

 

[iegje]

Oh dat is ook een goeie
Had ik zo snel niet aangedacht.

Mij dank is zeer groot

Tot de volgende vraag...