Textbox annuler = mot de passe ! pas normal ???

Le
Cinémas Décavision
Bonjour Amis Pro d' A2K,

Déjà demandé fin 2007 mais pas eu de réponse satisfaisante

J'ai une case à cocher sur un formulaire qui me cache ou montre les deux
champs nommées "Notes" et "Photo"

Lorsque je coche cette case, cela me demande mon password puis affiche mes 2
champs.
Là c'est trés bien, mais si je met annuler au textbox qui me demande mon
pass, les 2 champs s'affichent quand même sans mot de passe Donc ce n'est
pas bon
Une idée ????
et merci à tous, avec mes bons voeux 2008.
Bernard

Voici mes deux codes ou est l' erreur ?????????? :
___________________________________
'Procédure sur le Forms :

Private Sub Form_Current()

Me.NOTES.Visible = Nz(Me.Voir, False)

Me.PHOTO.Visible = Nz(Me.Voir, False)

End Sub



__________________________________________________
'Procédure sur bouton d'activation case à cocher:

Private Sub Voir_AfterUpdate()


If Nz(Me.Voir, False) Then

If EtatCoche And InputBox("Password ?") <> "truc" Then
MsgBox "Le mot de passe est faux"

Exit Sub
End If
End If



Me.NOTES.Visible = Nz(Me.Voir, True)
Me.PHOTO.Visible = Nz(Me.Voir, True)

Requery

End Sub
_______________________________________
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31

pdg@decavision.fr
http://www.decavision.com/
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Michel_D
Le #6340081
Bonjour,

Au lieu d'utiliser AfterUpdate utilise plutot l'événement BeforeUpdate
et tu annule l'événement (cancel=true) si le mot de passe est mauvais.


"Cinémas Décavision"
Bonjour Amis Pro d' A2K,

Déjà demandé fin 2007 mais pas eu de réponse satisfaisante...

J'ai une case à cocher sur un formulaire qui me cache ou montre les deux
champs nommées "Notes" et "Photo"

Lorsque je coche cette case, cela me demande mon password puis affiche mes 2
champs.
Là c'est trés bien, mais si je met annuler au textbox qui me demande mon
pass, les 2 champs s'affichent quand même sans mot de passe... Donc ce n'est
pas bon...
Une idée ????
et merci à tous, avec mes bons voeux 2008.
Bernard

Voici mes deux codes ou est l' erreur ?????????? :
___________________________________
'Procédure sur le Forms :

Private Sub Form_Current()

Me.NOTES.Visible = Nz(Me.Voir, False)

Me.PHOTO.Visible = Nz(Me.Voir, False)

End Sub



__________________________________________________
'Procédure sur bouton d'activation case à cocher:

Private Sub Voir_AfterUpdate()


If Nz(Me.Voir, False) Then

If EtatCoche And InputBox("Password ?") <> "truc" Then
MsgBox "Le mot de passe est faux..."

Exit Sub
End If
End If



Me.NOTES.Visible = Nz(Me.Voir, True)
Me.PHOTO.Visible = Nz(Me.Voir, True)

Requery

End Sub
_______________________________________
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31


http://www.decavision.com/




3stone
Le #6340071
Salut,

"Cinémas Décavision"
| J'ai une case à cocher sur un formulaire qui me cache ou montre les deux
| champs nommées "Notes" et "Photo"
|
| Lorsque je coche cette case, cela me demande mon password puis affiche mes 2
| champs.
| Là c'est trés bien, mais si je met annuler au textbox qui me demande mon
| pass, les 2 champs s'affichent quand même sans mot de passe... Donc ce n'est
| pas bon...
| Une idée ????
| et merci à tous, avec mes bons voeux 2008.
| Bernard
|
| Voici mes deux codes ou est l' erreur ?????????? :
| ___________________________________
| 'Procédure sur le Forms :
|
| Private Sub Form_Current()
| Me.NOTES.Visible = Nz(Me.Voir, False)
| Me.PHOTO.Visible = Nz(Me.Voir, False)
| End Sub
| __________________________________________________
| 'Procédure sur bouton d'activation case à cocher:
|
| Private Sub Voir_AfterUpdate()
|
| If Nz(Me.Voir, False) Then
| If EtatCoche And InputBox("Password ?") <> "truc" Then
| MsgBox "Le mot de passe est faux..."
| Exit Sub
| End If
| End If
|
|
|
| Me.NOTES.Visible = Nz(Me.Voir, True)
| Me.PHOTO.Visible = Nz(Me.Voir, True)
| Requery
|
| End Sub


Cela veut donc dire que ton premier test rend "Faux" ;-)
Il n'arrive pas au second et... ne 'sort' donc pas...

- Une case à cocher se teste par

if CàC = True Then (ou if CàC Then )

ou encore :

if CàC = False Then (ou if Not CàC Then )

- Tu devrais aussi penser à placer l'activation dans
la partie alternative (ELSE) du test...

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Willi2004
Le #6340051
Bonjour Cinémas Décavision. Et ceci?

Evénement "Sur activation" du formulaire:

Private Sub Form_Current()
Me.NOTES.Visibleúlse
Me.PHOTO.Visibleúlse
End Sub

Evénement "Sur clic" de la case à cocher (nommée "Voir"):

Private Sub Voir_Click()
Dim rep As String
rep = InputBox("Votre mot de passe?")
If rep = "Password" Then
Me.Texte0.Visible = True
Else
Me.Voir = 0
End If
End Sub

Bien entendu, tu remplaces "Password" par ton mot de passe.


Cinémas Décavision a écrit:
| Bonjour Amis Pro d' A2K,
|
| Déjà demandé fin 2007 mais pas eu de réponse satisfaisante...
|
| J'ai une case à cocher sur un formulaire qui me cache ou montre les
| deux champs nommées "Notes" et "Photo"
|
| Lorsque je coche cette case, cela me demande mon password puis
| affiche mes 2 champs.
| Là c'est trés bien, mais si je met annuler au textbox qui me demande
| mon pass, les 2 champs s'affichent quand même sans mot de passe...
| Donc ce n'est pas bon...
| Une idée ????
| et merci à tous, avec mes bons voeux 2008.
| Bernard
|
| Voici mes deux codes ou est l' erreur ?????????? :
| ___________________________________
| 'Procédure sur le Forms :
|
| Private Sub Form_Current()
|
| Me.NOTES.Visible = Nz(Me.Voir, False)
|
| Me.PHOTO.Visible = Nz(Me.Voir, False)
|
| End Sub
|
|
|
| __________________________________________________
| 'Procédure sur bouton d'activation case à cocher:
|
| Private Sub Voir_AfterUpdate()
|
|
| If Nz(Me.Voir, False) Then
|
| If EtatCoche And InputBox("Password ?") <> "truc" Then
| MsgBox "Le mot de passe est faux..."
|
| Exit Sub
| End If
| End If
|
|
|
| Me.NOTES.Visible = Nz(Me.Voir, True)
| Me.PHOTO.Visible = Nz(Me.Voir, True)
|
| Requery
|
| End Sub
| _______________________________________
Willi2004
Le #6340031
Parti trop vite!
Remplacer "Me.Texte0.Visible = True" par:
Me.NOTES.Visible=True
Me.PHOTO.Visible=True



Willi2004 a écrit:
| Bonjour Cinémas Décavision. Et ceci?
|
| Evénement "Sur activation" du formulaire:
|
| Private Sub Form_Current()
| Me.NOTES.Visibleúlse
| Me.PHOTO.Visibleúlse
| End Sub
|
| Evénement "Sur clic" de la case à cocher (nommée "Voir"):
|
| Private Sub Voir_Click()
| Dim rep As String
| rep = InputBox("Votre mot de passe?")
| If rep = "Password" Then
| Me.Texte0.Visible = True
| Else
| Me.Voir = 0
| End If
| End Sub
|
| Bien entendu, tu remplaces "Password" par ton mot de passe.
|
|
| Cinémas Décavision a écrit:
|| Bonjour Amis Pro d' A2K,
||
|| Déjà demandé fin 2007 mais pas eu de réponse satisfaisante...
||
|| J'ai une case à cocher sur un formulaire qui me cache ou montre les
|| deux champs nommées "Notes" et "Photo"
||
|| Lorsque je coche cette case, cela me demande mon password puis
|| affiche mes 2 champs.
|| Là c'est trés bien, mais si je met annuler au textbox qui me demande
|| mon pass, les 2 champs s'affichent quand même sans mot de passe...
|| Donc ce n'est pas bon...
|| Une idée ????
|| et merci à tous, avec mes bons voeux 2008.
|| Bernard
||
|| Voici mes deux codes ou est l' erreur ?????????? :
|| ___________________________________
|| 'Procédure sur le Forms :
||
|| Private Sub Form_Current()
||
|| Me.NOTES.Visible = Nz(Me.Voir, False)
||
|| Me.PHOTO.Visible = Nz(Me.Voir, False)
||
|| End Sub
||
||
||
|| __________________________________________________
|| 'Procédure sur bouton d'activation case à cocher:
||
|| Private Sub Voir_AfterUpdate()
||
||
|| If Nz(Me.Voir, False) Then
||
|| If EtatCoche And InputBox("Password ?") <> "truc" Then
|| MsgBox "Le mot de passe est faux..."
||
|| Exit Sub
|| End If
|| End If
||
||
||
|| Me.NOTES.Visible = Nz(Me.Voir, True)
|| Me.PHOTO.Visible = Nz(Me.Voir, True)
||
|| Requery
||
|| End Sub
|| _______________________________________
Cinémas Décavision
Le #6340011
Super le newsGroup Access

Merci à tous pour vos réponses détaillées. Cette fois, je vais essayez
d'appliquer au mieux vos méthodes.

Vous êtes vraiment trés sympa de prendre de votre temps pour moi.

Bernard

--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31


http://www.decavision.com/
Publicité
Poster une réponse
Anonyme