probleem bij invoer blokkering op formulier
hallo allemaal,
Ik heb een beveiliging gemaakt zodat men eerst een knop op het formulier moet indrukken voordat zij gegevens in een bestaand formulier kunnen bewerken.
Mijn probleem is dat ik met deze code er niet voor zorg dat ook de gegevens in het sub formulier worden geblokkerd.
Weet iemand hoe ik ervoor kan zorgen dat ik ook het sub formulier kan beveiligen.
voor de blokkering van het formulier heb ik de volgende vba code gebruikt:
-------------------------------------------------------------------------------------------------------------------
Private Sub Document_bijwerken_Click()
Me.AllowEdits = True 'Zorgt ervoor dat het formulier te bewerken is.
MsgBox "wilt u het document bijwerken"
End Sub
Private Sub Form_AfterUpdate()
Me.AllowEdits = False 'Formulier weer alleen lezen maken.
MsgBox "document opgeslagen"
End Sub
Private Sub Form_Current()
Me.AllowEdits = False 'Formulier weer alleen lezen maken.
End Sub
-------------------------------------------------------------------------------------------------------------------------
Alvast bedankt,
bas van der Putten
hallo allemaal,
Ik heb een beveiliging gemaakt zodat men eerst een knop op het formulier moet indrukken voordat zij gegevens in een bestaand formulier kunnen bewerken.
Mijn probleem is dat ik met deze code er niet voor zorg dat ook de gegevens in het sub formulier worden geblokkerd.
Weet iemand hoe ik ervoor kan zorgen dat ik ook het sub formulier kan beveiligen.
voor de blokkering van het formulier heb ik de volgende vba code gebruikt:
-------------------------------------------------------------------------------------------------------------------
Private Sub Document_bijwerken_Click()
Me.AllowEdits = True 'Zorgt ervoor dat het formulier te bewerken is.
MsgBox "wilt u het document bijwerken"
End Sub
Private Sub Form_AfterUpdate()
Me.AllowEdits = False 'Formulier weer alleen lezen maken.
MsgBox "document opgeslagen"
End Sub
Private Sub Form_Current()
Me.AllowEdits = False 'Formulier weer alleen lezen maken.
End Sub
-------------------------------------------------------------------------------------------------------------------------
Alvast bedankt,
bas van der Putten
Laatst bewerkt:
