Discussion :

[Accessifiante]

Bonjour à tous,

J'ai mis un bouton Modification dans un formulaire dont les ajouts, la suppression, la modification ne sont pas autorisés (NON dans les propriétés générales du formulaire).

Lorsque je clique sur ce bouton, j'ai une fenêtre qui demande un mot de passe (mon formulaire de données reste ouvert). Lorsque je clique sur Ok, après avoir entré le mot de passe, je voudrais que la modification des données soit possible.

Voici donc mon code, qui ne fonctionne pas puisque je m'adresse à vous... J'ai une fenêtre de débogage qui pointe vers "Me.AllowEdits=True" (je précise que j'essaye d'adapter ce code qui, à l'origine, sert à ouvrir d'autres formulaires).

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 btnOK_Click()
If IsNull(Me.txtMotDePasse) Then
MsgBox "Tapez votre mot de passe", vbInformation
Me.txtMotDePasse.SetFocus
Exit Sub
End If
If Me.txtMotDePasse = "xxxxx" Then
DoCmd.Close
Me.AllowEdits = True
blnPasswordOK = True
Else
MsgBox "Mot de passe incorrect.", vbExclamation
Me.txtMotDePasse.SetFocus
End If
End Sub

Pouvez-vous m'aider et me trouver le petit truc qui manque ?

Je précise également que j'ai des sous-formulaires dans ce formulaire. Qu'est-ce que j'ajouterais pour autoriser la modification des données de ces sous-formulaires en même temps que celle du formulaire principal ?

Merci beaucoup à l'avance.

[Malick]

Peut-être qu'il faut remplacer le Me par le nom du formulaire à modifier, car le DoCmd.Close ferme la fenêtre de saisie du mot de passe. Comme ceci :

Code :

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

NomFormulaire.AllowEdits = True

[Accessifiante]

J'avais déjà essayé mais ça fait la même chose.

[loufab]

Bonjour,

C'est normal !

Code :

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

1
2
3
 
DoCmd.Close
Me.AllowEdits = True

Lorsque tu fermes un formulaire tu n'y a plus accès.

Je te suggère d'indenter ton code, autant pour toi que pour ceux qui te suivrons.

Cordialement,