allow edits

[tepke]

Hoi

Ik heb een formulier gemaakt, in het formulier heb ik aangegeven dat men niet mag wijzigen.

Ik wil een button maken wijzigen aan. ik weet imiddels dat het iets te maken heeft met allowedits = true, maar ik weet niet wat ik moet programeren om dit goet te krijgen

Private Sub Knop32_Click()
On Error GoTo Err_Knop32_Click

Dim stDocName As String

AllowEdits = True

Exit_Knop32_Click:
Exit Sub

Err_Knop32_Click:
MsgBox Err.Description
Resume Exit_Knop32_Click
End Sub

wat moet ik hier aan veranderen ?

alvast bedankt

 

[maartenf]

ik ken de optie allow edits niet
maar ik zou de gegevens vergrendelen
en met de knop ontgrendelen
(enabled true en false)

 

[thomrob]

bijna goed

doen eens:


Private Sub Knop32_Click()
On Error GoTo Err_Knop32_Click


me.AllowEdits = True

Exit_Knop32_Click:
Exit Sub

Err_Knop32_Click:
MsgBox Err.Description
Resume Exit_Knop32_Click
End Sub

 

[maartenf]

thomrob is right
dat is de meeste eenvoudige oplossing.
weer wat geleerd