Geen gegevens invullen

[Accessholder]

Hallo,

ik heb een vragenlijst gemaakt. Door het groot aantal vragen heb ik een 2e formulier aangemaakt.

Ik heb als uniek veld een contractnr gebruikt. Nu kan ik op het 2e formulier geen waarden typen. Als ik F5 vernieuwen klik gaat het de ene keer wel en de andere keer niet goed.
Ik heb een kopie van de gebeurtenisprocedure toegevoegd.

Wie kan mij helpen?

Private Sub Knop41_Click()
On Error GoTo Err_Knop41_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Vragenlijst"
    
    stLinkCriteria = "[contractnr]=" & "'" & Me![contractnr] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Knop41_Click:
    Exit Sub

Err_Knop41_Click:
    MsgBox Err.Description
    Resume Exit_Knop41_Click
    
End Sub

 

[OctaFish]

Ik snap de constructie niet helemaal: je hebt een vragenlijst, met blijkbaar heel veel vragen, en die wil je (logisch) vullen via een formulier. Als niet alle vragen op één scherm passen, zou ik niet een tweede formulier maken, maar een Tabblad control, waar je verschillende pagina's kunt werken. Je kunt best veel verschillende pagina's aanmaken, dus volgens mij kun je daar je probleem in één keer mee oplossen.

 

[Accessholder]

Thx ! Het werkt prima zo