Discussion :

[nanou210180]

Hello !

Me revoilà face a une nouvelle difficulté que je ne parviens pas a resoudre
J'ai un formulaire 'fiche client' qui par defaut s'ouvre en mode verrouillé (consultation)
Sur sur formulaire j'ai rajouté un bouton qui me permet de deverrouiller mes champs afin d'y faire quelques modifications
Mais je voudrais via un autre bouton reverrouiller ce meme formulaire.
A noter que j'ai rajouter des msgbox

Mon bouton deverrouiller fonction mais je galere pour reveirrouller

Mon bonton deverrouiller :

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
Private Sub Commande171_Click()
 
Dim ANSWER As Integer
ANSWER = MsgBox("Voullez vous deverouiller la page", vbYesNo + vbExclamation)
'prend une decision
 
If ANSWER = vbYes Then
    Me.AllowEdits = True
    Me.AllowDeletions = True
    Me.AllowAdditions = True
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
fPlayStuff ("C:\Rire.wav")
 
Else
    Me.AllowEdits = False
    Me.AllowDeletions = False
    Me.AllowAdditions = False
 
End If
 
End Sub

Voilà pitié je viens de me claquer le peu de neuronne qu'il me restait ..
HELP ME

merci par avance et au passage bravo pour ce forum car on y trouve presque toutes les problématiques !!

[Domi2]

Bonjour,

Ces propriétés ne reprennent l'état à non qu'après que toutes les modifications en cours aient été enregistrées.

Essaie comme ceci :

Code :

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

1
2
3
4
5
6
7
8
Else
    
    Me.Refresh  '<==
    Me.AllowEdits = False
    Me.AllowDeletions = False
    Me.AllowAdditions = False
    
End If

[nanou210180]

Merci !!!! ça fonctionne

je savais bien que je passais a coté d'un truc grrrrr
Me.Refresh !!!!!!!!!

merci pour ta réactivité !!!!