Cheakbox formulier(record) op disable

[dingesvandinges]

Beste,

Is het mogelijk om bij het aanklikken van een cheakbox het formulier te blokkeren, alle velden uitschakelen of te beveiligen tegen bewerken.

Het is natuurlijk onbegonnen werk om elk veld apart te defineren en uit te laten schakelen.

 

[OctaFish]

Je kunt met een loopje alle controls die je aan- of uit wilt zetten instellen. Ik heb hier bijvoorbeeld een routine die alle objecten leeg maakt.

Sub Leeg()
Dim ctl As Control
    
    For Each ctl In Controls
        With ctl
            Select Case .ControlType
                Case acComboBox
                    If Left(.Name, 3) = "cbo" Then
                        .Value = ""
                    End If
                Case acTextBox
                    If Left(.Name, 3) = "txt" Then
                        .Value = ""
                    End If
                Case acListBox
                    If Left(.Name, 3) = "lst" Then
                        .RowSource = ""
                        .Requery
                    End If
                Case acCheckBox
                    If Left(.Name, 3) = "chk" Then
                        .Value = 0
                    End If
            End Select
        End With
    Next ctl

End Sub

Is denk ik wel simpel aan te passen...

 

[dingesvandinges]

Bedankt,
Ik ga kijken of ik hier iets mee kan.
Maar dan moet ik alsnog alle velden defineren?

 

[OctaFish]

Nee, want die lees je uit met Controls. In mijn voorbeeld maak ik specifieke velden leeg, waarvan de naam met vastgestelde letters begint. Dat hoef je uiteraard niet te doen als je alle controls wilt resetten, of disablen. Maar nu krijg je een idee van hoe je dit soort codes kunt gebruiken. In jouw geval kunnen alle IF-constructies vermoed ik wel weg.