Pb Syntaxe Access

Fermé
Dicab Messages postés 163 Date d'inscription lundi 25 août 2008 Statut Membre Dernière intervention 7 juin 2017 - 2 nov. 2008 à 15:07
Dicab Messages postés 163 Date d'inscription lundi 25 août 2008 Statut Membre Dernière intervention 7 juin 2017 - 2 nov. 2008 à 17:36
Bonjour,

Je souhaite protéger l'accès à un formulaire...

Le début ne me pose pas de problème :

Private Sub Form_Open(Cancel As Integer)
If InputBox("Veuillez saisir votre code") <> "3272" Then .....
End Sub

Mais quelle syntaxe faut t il pour que si le code est invalide, une boiite de message apparaisse signalant par exemple "Code erroné" ?

Merci à tous ;)

6 réponses

michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 3 293
2 nov. 2008 à 16:39
Bonjour,

Mdp=inputbox( "code?)
if Mdp<>3672 then
msgbox "code erronné
exit sub
endif

sub si procédure function si fonction
0
Dicab Messages postés 163 Date d'inscription lundi 25 août 2008 Statut Membre Dernière intervention 7 juin 2017 2
2 nov. 2008 à 16:44
Merci Michel,

J'ai tapé :

Private Function Form_Open()
Mdp=inputbox("code?)
If Mdp <> 3672 Then
MsgBox "code erronné "
End If
End Function

Mais j'ai une erreur. D'où vient -elle ?

merci de ton aide ;)
0
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 23 mars 2023 3 293
2 nov. 2008 à 16:56
re,

Mdp=inputbox( "code?")
if Mdp<>3672 then
msgbox "code erronné
exit function
end if
0
Dicab Messages postés 163 Date d'inscription lundi 25 août 2008 Statut Membre Dernière intervention 7 juin 2017 2
2 nov. 2008 à 17:05
Ca y est ca marche... à 50% lol

car quand je tape un faux code, j'obtiens bien "code erroné" mais, dès que je clique sur ok, j'accède quand même au formulaire :)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 196
2 nov. 2008 à 17:17
Bonjour,

Parce qu'il ne faut pas mettre ce code dans le Form_Open() mais dans une procédure qui commandera l'ouverture ou pas de la form:

Sub UserAcces()
   Mdp=inputbox( "code?") 
   If Mdp<>3672 Then 
     Msgbox "code erronné 
     Exit Sub
   Else
     frmFormulaire.Show
   End If 
End Sub


;o)
0
Dicab Messages postés 163 Date d'inscription lundi 25 août 2008 Statut Membre Dernière intervention 7 juin 2017 2
2 nov. 2008 à 17:36
merci infiniment :)
0