Still doesn't work. For the button click event, this is now my code:
Private Sub Knop2_Click()
Dim ctl As Control
For Each ctl In Me
If ctl.Type = acTextBox Then
Me.ctl.Locked = False
End If
Next ctl
End Sub
I get an error in this line:
If ctl.Type = acTextBox Then
and...
I've been trying for 2 days straight to get Access to creat a simple 'edit' button, which changes the status of all fields in the form to .AllowEdits = true.
I read the FAQ, and used the code provided there, but it just won't work. I've set all fields to locked in the properties window, and I...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.