Discussion :

[Filippo]

Bonjour,
quelle référence faut-il ajouter au VBA pour pouvoir utiliser les fonctions de texte telles que UCase.

A l'exécution de mon code j'obtiens :

Projet ou bibliothèque introuvable.

Sur UCase.

Merci.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub btnValider_Click()
    'test login, pdw
    If UCase(tbPwd.Value) = UCase(SqlToString("SELECT pwd FROM Pwd WHERE Login='" & tbLogin.Value & "'")) Then
        DoCmd.OpenForm "frmMenu", acNormal, , , acFormReadOnly, , tbLogin.Value
        'Unload Forms.Item("frmlogin")
    Else
        MsgBox "Le login et / ou le mot de passe n'est pas correct", vbExclamation
    End If
 
End Sub

[Domi2]

Bonjour,

quelle référence faut-il ajouter au VBA

Visual Basic For Applications

Si elle est cochée, vérifie si certaines ne sont pas marquées "Manquante". Tu peux les décocher après avoir contrôler qu'elles ne sont pas utiles pour ton projet.

Domi2

[Filippo]

Merci Domi2,
J'ai bien Visual Basic For Applications de coché et pas manquante.
Par contre je vois que Microsoft ActiveX Data Objects Recordsets est manquante.
J'ai finalement référencé la référence ADO version 2.5 et ça marche.

Merci pour ton aide.