Discussion :

[Xav974]

Bonjour

J'ai un formulaire "BL" dont je bloque la modification des champs en fonction d'une case à cocher que j'appelle "verrou". Malgré tout, j'utilise une liste modifiable "modifiable120" pour afficher les enregistrements de ma table dans mon formulaire.
En utilisant Allowedit c'est tout le formulaire qui freeze, mais j'aimerais conserver l'utilisation de cette liste "modifiable120" pour acceder à d'autre enregistrement non concerné par l'action de "verrou"

je précise que je galère en VBA... alors un tit coup de code... je dis pas non

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Current()
GRey = RGB(214, 220, 229)
If Forms![BL]![verrou] = False Then
    Me.AllowEdits = True
Else
    Me.AllowEdits = False
    Me.controls("modifiable120").AllowEdits = True  ' <----
    Me.controls("N°Contact").BackColor = GRey
    Me.controls("Numero Bulletin").BackColor = GRey
    Me.controls("date1BV").BackColor = GRey
End If
End Sub

En adressant directement AllowEdits à "Modifiable120" il n'y a pas d'action à part celle d'annuler tout le processus. Je ne sais pas comment désactiver AllowEdits pour le seul champ "modifiable120"

Naturellement le but définitif c'est que si "verrou" est coché on ne puisse plus modifier l'enregistrement concerné... mais changer d'enregistrement..

Merci pour votre écoute

[EricDgn]

Bonjour,

Oui, AllowEdits=False va bloquer tous les contrôles du formulaire concerné et il n'est pas possible de faire une exception. Le seul moyen est en pratique de changer la propriété Verouillé de tous les contrôles, sauf le champ modifiable120, quelque chose du genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Dim c As Control
    For Each c In Me.Controls
        '--- https://docs.microsoft.com/en-us/office/vba/api/access.accontroltype
        If c.ControlType = acTextBox Or c.ControlType = acListBox Or c.ControlType = acComboBox Then
            If c.Name = "modifiable120" Then
                c.Locked = False
            Else
                c.Locked = True
            End If
        End If
    Next c

Eventuellement, pour rapidement voir ce qu'il y a comme contrôles dans le formulaire, dans un module:

Code :

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

1
2
3
4
5
6
7
Sub ControlsList()
    Dim c As Control, sFormName As String
    sFormName = "NomDuFormulaire"          '--- à adapter
    For Each c In Forms(sFormName).Controls
        Debug.Print c.ControlType, c.Name
    Next c
End Sub

Cordialement.

[Xav974]

Merci EricDgn

Effectivement à force de recherche et de test j'ai fini par trouver une solution proche, moins simple apparemment, mais fonctionnelle vu le peu de champs touché par cette action
J'ai utilisé la fonction "Locked" et fait le code suivant, qui ne touchait du coup plus ma liste modifiable.

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 Form_Current()
GRey = RGB(214, 220, 229)
WHite = RGB(255, 255, 255)
If IsNull(signéle) Then
    Me.controls("N°Contact").BackColor = WHite
    Me.controls("Numero Bulletin").BackColor = WHite
    Me.controls("date1BV").BackColor = WHite
    Me.controls("N°Contact").Locked = False
    Me.controls("Numero Bulletin").Locked = False
    Me.controls("date1BV").Locked = False
Else
    Me.controls("N°Contact").BackColor = GRey
    Me.controls("Numero Bulletin").BackColor = GRey
    Me.controls("date1BV").BackColor = GRey
    Me.controls("N°Contact").Locked = True
    Me.controls("Numero Bulletin").Locked = True
    Me.controls("date1BV").Locked = True
End If
End Sub

Dans tous les cas merci pour votre réponse, et il faut vraiment que je me mette aux VBA
Bonne journée