Variable public garde la méme valeur
Fermé
fatma
-
22 févr. 2014 à 13:18
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 - 22 févr. 2014 à 17:04
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 - 22 févr. 2014 à 17:04
A voir également:
- Variable public garde la méme valeur
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Google public dns - Guide
- Impossible de créer le fichier de travail. vérifiez la variable d'environnement temp ✓ - Forum Word
- Ip public - Guide
3 réponses
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
22 févr. 2014 à 15:24
22 févr. 2014 à 15:24
Bonjour,
Faudrait montrer le code de frmlogin
Faudrait montrer le code de frmlogin
bonjour,
mon code (from login) est la suite:
Dim Baseaccess As Connection
Dim Recconnexion As Recordset
Public niveau
Private Sub Cmdvalider_Click()
Set Recconnexion = New Recordset
Recconnexion.Open "SELECT * from Utilisateur where Identifiant='" & txtlogin.TEXT & "'", Baseaccess, adOpenStatic, adLockOptimistic
If Recconnexion.EOF = False Then
If (txtmotdepasse = Recconnexion.Fields("mot_de_passe")) Then
niveau = New Recordset
niveau = Recconnexion.Fields("Niveau")
Text1.TEXT = niveau
frmglobale.Show vbModeless
frmlogin.Hide
frmmotdepasse.Command1.Caption = Recconnexion.Fields("Identifiant")
frmmotdepasse.Command2.Caption = Recconnexion.Fields("Nom_Prénom")
frmmotdepasse.Command3.Caption = Recconnexion.Fields("Niveau")
frmcreation1.txtid.TEXT = Recconnexion.Fields("Nom_Prénom")
frmevolution1.cmdid.Caption = Recconnexion.Fields("Nom_Prénom")
Else
MsgBox "Erreur : Mot de passe incorrecte.Veuillez ressaisir", 16, "Connexion"
txtlogin = ""
txtmotdepasse = ""
txtlogin.SetFocus
End If
Else
MsgBox "Erreur : Login incorrecte.Veuillez ressaisir", 16, "Connexion"
txtlogin = ""
txtmotdepasse = ""
txtlogin.SetFocus
End If
End Sub
merci d'avancer
mon code (from login) est la suite:
Dim Baseaccess As Connection
Dim Recconnexion As Recordset
Public niveau
Private Sub Cmdvalider_Click()
Set Recconnexion = New Recordset
Recconnexion.Open "SELECT * from Utilisateur where Identifiant='" & txtlogin.TEXT & "'", Baseaccess, adOpenStatic, adLockOptimistic
If Recconnexion.EOF = False Then
If (txtmotdepasse = Recconnexion.Fields("mot_de_passe")) Then
niveau = New Recordset
niveau = Recconnexion.Fields("Niveau")
Text1.TEXT = niveau
frmglobale.Show vbModeless
frmlogin.Hide
frmmotdepasse.Command1.Caption = Recconnexion.Fields("Identifiant")
frmmotdepasse.Command2.Caption = Recconnexion.Fields("Nom_Prénom")
frmmotdepasse.Command3.Caption = Recconnexion.Fields("Niveau")
frmcreation1.txtid.TEXT = Recconnexion.Fields("Nom_Prénom")
frmevolution1.cmdid.Caption = Recconnexion.Fields("Nom_Prénom")
Else
MsgBox "Erreur : Mot de passe incorrecte.Veuillez ressaisir", 16, "Connexion"
txtlogin = ""
txtmotdepasse = ""
txtlogin.SetFocus
End If
Else
MsgBox "Erreur : Login incorrecte.Veuillez ressaisir", 16, "Connexion"
txtlogin = ""
txtmotdepasse = ""
txtlogin.SetFocus
End If
End Sub
merci d'avancer
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
22 févr. 2014 à 17:04
22 févr. 2014 à 17:04
Re,
frmGlobale:
vu que vous prenez l'evenement Form_Load, il faut utiliser Unload Me pour la sortie de cette frm.
si vous aviez utilise l'evenement Form_Activate alors ME.Hide serait Ok. Le .hide fait que la form est toujours en memoire, donc le pointeur de programme ne repasse pas dans l'evenement from_Load vu que la form n'a pas ete "unloadee"(dechargee de la memoire)
frmGlobale:
vu que vous prenez l'evenement Form_Load, il faut utiliser Unload Me pour la sortie de cette frm.
si vous aviez utilise l'evenement Form_Activate alors ME.Hide serait Ok. Le .hide fait que la form est toujours en memoire, donc le pointeur de programme ne repasse pas dans l'evenement from_Load vu que la form n'a pas ete "unloadee"(dechargee de la memoire)