Allowedits aan- en uitzetten

[jbusser]

Ik heb een formulier waarin zo'n 40 velden staan die sommige gebruikers wel, en sommige gebruikers niet mogen bewerken.
Omdat het om een groot aantal velden gaat wordt het formulier "bij openen" gecheckt op "Special_rights", als dit veld op "true" staat dan allowedits = true, en anders allowedits = false, niet zo'n probleem.
Echter is er nu één veld bijgekomen dat wél door iedereen mag worden gevuld, ik heb zelf al gedacht om een tweede (vrijwel) identiek formulier te maken maar vind ik eigenlijk geen mooie oplossing, om álle velden onder voorwaarden op locked te zetten ook niet.
Is er een manier om in een formulier waarbij bewerken is uitgeschakeld een mogelijkheid om één veld wél te bewerken?

 

[xps351]

Je zou een loop kunnen maken om alle tekstcontrols te ver- of ontgrendelen en die ene daarna eventueel afwijkend in te stellen.

Bericht automatisch samengevoegd: Vandaag om 15:20

Correctie: geldt natuurlijk ook voor eventuele combobox en checkboxes.

Bericht automatisch samengevoegd: Vandaag om 16:13

Zoiets dus:

Private Sub Form_Current()
Dim ctrl As Control

For Each ctrl In Me.Controls
    If TypeName(ctrl) = "CheckBox" Or TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox" Or TypeName(ctrl) = "Listbox" Then
        ctrl.Enabled = Special_rights
    End If
Next ctrl

Me.AfwijkendVeld.Enabled = True
End Sub