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
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
A voir également:
- Pb Syntaxe Access
- Access denied - Forum Bbox Bouygues
- You don't have permission to access this resource ✓ - Forum Internet / Réseaux sociaux
- Rechdom access - Forum Logiciels
- Exemple base de données access à télécharger gratuit - Forum Access
- La syntaxe du nom de fichier de répertoire ou de volume est incorrecte ✓ - Forum Windows 10
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
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
Mdp=inputbox( "code?)
if Mdp<>3672 then
msgbox "code erronné
exit sub
endif
sub si procédure function si fonction
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
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 ;)
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
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
2 nov. 2008 à 16:56
re,
Mdp=inputbox( "code?")
if Mdp<>3672 then
msgbox "code erronné
exit function
end if
Mdp=inputbox( "code?")
if Mdp<>3672 then
msgbox "code erronné
exit function
end if
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
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 :)
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 :)
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
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:
;o)
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
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
2 nov. 2008 à 17:36
merci infiniment :)