Discussion :

[mt60400]

Bonjour,
je suis novice sur access.
J'ai un soucis sur le code vba suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CmdValider_Click()
 
    With CodeContextObject
        If (IsNull(DLookup("IDUtilisateur", "T_Utilisateur", "NomUtilisateur='" & .cmbUtilisateur & "' and MotDePasse='" & .txtMotDePasse & "' "))) Then
            Beep
            MsgBox "Votre login ou votre mot de passe est incorrect", vbExclamation, "Erreur d'identification"
        Else
            DoCmd.Close acForm, "F_Login_3"
            DoCmd.OpenForm "F_Saisie_ST", acNormal, "", "", , acNormal
            Forms!F_Saisie_ST!txtNomUtilisateur = DLookup("NomUtilisateur", "T_Utilisateur", "NomUtilisateur='" & .cmbUtilisateur & "' ")
            Forms!F_Saisie_ST!txtNbFois = Nz(DMax("NbFois", "T_Histo_Utilisateur", "Login='" & .cmbUtilisateur & "' ") + 1, 1)
            Forms!F_Saisie_ST!txtLogin = .cmbUtilisateur
            DoCmd.SetWarnings False
            DoCmd.OpenQuery "R_Ajout_Histo_Utilisateur", acViewNormal, acAdd
        End If
    End With
 
End Sub

Pouvez-vous me venir en aide ?
L'erreur se fait à l'ouverture du formulaire "F_Saisie_ST"
ça bloque sur :
Forms!F_Saisie_ST!txtNomUtilisateur = DLookup("NomUtilisateur", "T_Utilisateur", "NomUtilisateur='" & .cmbUtilisateur & "' ")

[loufab]

Bonjour,

Le N° et la description de l'erreur.

Cordialement,

[User]

Bonsoir,

Si je comprends bien dans votre code le CodeContextObject fait référence au formulaire dans lequel est exécuté le code, donc ici ça me semble être le formulaire de login "F_Login_3".

Hors précisément vous le fermez ce formulaire juste avant la commande qui pose problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With CodeContextObject
...
            DoCmd.Close acForm, "F_Login_3"
            DoCmd.OpenForm "F_Saisie_ST", acNormal, "", "", , acNormal
            Forms!F_Saisie_ST!txtNomUtilisateur = DLookup("NomUtilisateur", "T_Utilisateur", "NomUtilisateur='" & .cmbUtilisateur & "' ")
...

donc le CodeContextObject.cmbUtilisateur dans le critère du dlookup plante puisqu'il est équivalent à forms!F_Login_3!cmbUtilisateur.

Maintenant je dis peut-être une bêtise..

Généralement on utilise CodeContextObject dans une procédure que l'on souhaite réutiliser ou appeler dans différents modules de formulaires. Il s'agit de procédures génériques que l'on écrit dans un module standard.