FORMULAIRE ACCESS 2003Fermé

Question

Bonjour,j'ai crée une base access.
Dans cette base, j'ai crée un formulaire identification(servant avec le bon mot de passe à désactiver toutes les barres).
j'ai crée 2 boutons: 1 pour valaider(qui doit valider le mot de passe et enlever les barres et un bouton annuler qui lui gèle les barres).
j'ai  lié au bouton valider un code VBA qui fonctionne mais le problème est qu'il fonctionne sans mot de passe.
Je ne sais pas quoi mettre dns la fonction du code quui autorise la validation du bouton.
 voici mes functions toutes le sbarres et sans les barres:
Function sanslesbarre()
    Dim CmdB
    For Each CmdB In Application.CommandBars
    CmdB.Enabled = False
    Next CmdB
End Function

Function toutlesbarre()
    Dim CmdB
    For Each CmdB In Application.CommandBars
    CmdB.Enabled = True
    Next CmdB
End Function
et voici la function identification mot de passe:
Private Sub Commande2_Click()
If motdepasse.Value = DANETTE Then quitter Access
Else: vous n 'avez pas acces à cette page

End Sub

ce code ne marche pas .
Quelqu'un pourrait-il m'aider svp
merci

INFOPR · Answer

SALUT

TON PROBLEME EST SIMPLE

MANQUE DE ""

VOICI LE CODE

If MOTDEPASSE.Value = "DANETTE" Then
Quit
Else:
MsgBox "vous n 'avez pas acces à cette page", vbExclamation
End If

ATTENTION CE CODE NE SERT A RIEN TU SORT SYSTEMATIQUEMENT DE TON APLI

IL FAUT CONTROLER SI LE MOT DE PASSE EST DIFFERENT DE ....

SI TON MOT DE PASSE EST CORRECT TU QUIT L APLI ET S IL EST DIEFFERENT TU DI QUE TU N  AS PAS ACCES A CETTE PAGE ???????

VOIR PLUTOT CE CODE

If MOTDEPASSE.Value = "DANETTE" Then
(CE QUE TU VEUT FAIRE)
Else:
MsgBox "vous n 'avez pas acces à cette page", vbExclamation
Quit
End If

FORMULAIRE ACCESS 2003

1 réponse

Discussions similaires

Newsletters