Pb Syntaxe Access

Question

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 ;)

michel_m · Answer

Bonjour,

Mdp=inputbox( "code?)
if Mdp<>3672 then
msgbox "code erronné
exit sub
endif

sub si procédure function si fonction

Dicab · Answer

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 ;)

michel_m · Answer

re,

Mdp=inputbox( "code?")
if Mdp<>3672 then
msgbox "code erronné
exit function
end if

Dicab · Answer

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 :)

Polux31 · Answer

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)

Dicab · Answer

merci infiniment :)

Pb Syntaxe Access

6 réponses

Discussions similaires

Newsletters