Discussion :

[yvidal]

Bonjour à tous,

Je pense que ce sujet a déjà été traité mais je n'ai pas trouvé de solution à mon problème et m'en remet donc à vous.

Voila j'ai un formulaire contenant des données que je souhaiterais verrouiller / déverrouiller à la modification en cliquant sur un bouton.
En fouillant sur les divers forums j'ai concocté le code suivant :

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
20
21
22
Sub form_current()
    etat = 1
    Me.AllowEdits = False
End Sub
 
'boutons
    'modif
Private Sub modif_Click()
    If etat = 0 Then
        Me.AllowEdits = False
        Me.AllowAdditions = False
        Me.AllowDeletions = False
        modif.Caption = "Modifier"
        etat = 1
    Else
        Me.AllowEdits = True
        Me.AllowAdditions = True
        Me.AllowDeletions = True
        modif.Caption = "Enregistrer"
        etat = 0
    End If
End Sub

Seul hic le programme s'en fou pas mal de mon code. Toutes les lignes sont exécutées (la propriété allowedits passe bien de true à false) mais je peux toujours modifier toutes les cases de mon formulaire.

Je précise si jamais c'est important que mon bouton se trouve dans l'entête de formulaire et que la partie à verrouiller / déverrouiller serait la partie "détail".

Merci par avance pour vos messages.

Cordialement,

y_vidal

[Jeannot45]

Je ne comprends pas la condition :

Code :

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

1
2
 
If Etat = 0

Quel est l'intérêt de cette valeur puisqu'elle est toujours à 1

[yvidal]

Quand on ouvre la fiche la valeur "etat" est à 1 => La fiche est verrouillé.
Si on clique sur le bouton "modif" la macro "modif_click()" s'exécute => la fiche se déverrouille, "etat" = 0 et modif.caption = "enregistrer".
Si on reclique sur le bouton "modif" la macro "modif_click()" s'exécute à nouveau => la fiche se verrouille, "etat" = 1 et modif.caption = "modifier".

Du moins c'était l'idée.

[tee_grandbois]

bonsoir,
pourquoi ne pas utiliser un bouton bascule ?



c'est très pratique car le bouton change de valeur selon qu'il est appuyé ou non et cela évite d'utiliser une variable.
Ensuite j'utiliserai la propriété du formulaire RecordSetType (2: Instantané = Lecture seule, 0: Feuille de réponse dynamique = mise à jour) pour autoriser ou non la saisie.

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
Private Sub Form_Load()
Me.modif = 0
Call modif_Click
End Sub
 
Private Sub modif_Click()
If Me.modif = -1 Then
    Me.modif.Caption = "Enregistrer"
    Me.RecordsetType = 0
Else
    Me.modif.Caption = "Modifier"
    Me.RecordsetType = 2
End If
 
End Sub

[Jeannot45]

Et pourquoi pas utiliser la légende des boutons directement

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
Sub form_current()
    Me.AllowEdits = False
End Sub
 
'boutons
    'modif
Private Sub modif_Click()
    If me.ActiveControl.Caption = "Enregistrer" Then
        Me.AllowEdits = False
        Me.AllowAdditions = False
        Me.AllowDeletions = False
        modif.Caption = "Modifier"
    Else
        Me.AllowEdits = True
        Me.AllowAdditions = True
        Me.AllowDeletions = True
        modif.Caption = "Enregistrer"
    End If
End Sub

[yvidal]

L'idée du bouton à bascule est très bien et le recordsettype fonctionne à merveille je garde donc celle la =).

Merci également pour l'idée d'utiliser le caption du bouton pour la clause if. Je n'y avait jamais pensé et ça m'évitera de créer une variable inutilement la prochaine fois. Mais avec ta méthode la propriété allowedits ne fonctionne pas sur mon access (je ne sais pas pourquoi) les lignes de codes s'exécute pourtant mais il autorise toujours les modifs.

Merci pour votre aide et votre temps.

Cordialement,
y_vidal

[tee_grandbois]

bonjour,

Merci également pour l'idée d'utiliser le caption du bouton pour la clause if. Je n'y avait jamais pensé et ça m'évitera de créer une variable inutilement la prochaine fois. Mais avec ta méthode la propriété allowedits ne fonctionne pas sur mon access (je ne sais pas pourquoi) les lignes de codes s'exécute pourtant mais il autorise toujours les modifs.

à mon sens, ton code sur l'évènement Current du formulaire en est la cause et il manque peut-être un Docmd.SaveRecord de l'enregistrement en-cours sur l'évènement modif_Click car cela peut empêcher le changement de mode.