Discussion :

[seb59dk]

Salut!
alors j'ai bloqué les zones de texte de mon formulaire avec l'aide d'autres personnes du forum mais je voudrais créer un bouton que lorsque je click dessus il debloque les zones de texte de l'enregistrement en cours. Mais comment faire j'utilise ce code pour bloquer les zones de texte:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Form_Current()
    Dim Ctl As Control
 
For Each Ctl In Me.Controls
If TypeOf Ctl Is TextBox Then Ctl.Locked = Not Me.NewRecord
Next
End Sub

Le but de ma manip serait de pouvoir qd même modifier les enregistrements tout en évitant les modifs par inatention sur une fiche existente.
Merci d'avance
Seb

[Vesta]

Fais plutot ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Btn_Annuler_Lock_Click()
    Dim Ctl As Control
 
For Each Ctl In Me.Controls
    If Ctl.ControlType = acTextBox Then
        Ctl.Locked = False
    End If
Next Ctl
End Sub
 
Private Sub Form_Current()
    Dim Ctl As Control
 
For Each Ctl In Me.Controls
    If Ctl.ControlType = acTextBox Then
        Ctl.Locked = True
    End If
Next Ctl
End Sub

Merci de penser aux balises code pour la prochaine fois | cafeine