Formulaire login et mot de passe

Bonjour,

A voir:

https://access.developpez.com/faq/?page=TAAdmin#login

j'ai deja mais j'ai un message d'erreur, je me demandais si se n'etait pas à cause de la bibliotheque DAO

Bonjour,

Pour completer,

rs.FindFirst ("pass= '" & Me.txt_Pass & "'")

j'ai rs.FindFirst ("pass= ' " & Me.txt_Pass & "'") ssurligner en jaune et le message d'erreur c'est (erreur d'execution 3251 et operation non autorisée pour ce type d'objet)
c'es tu là ou se trouve le probleme?
merci bien.
??question toute bete comment pour copier la ligne de code comme tu l'a fait dans ta reponse!!

Re,

Avec requete sql, ca marche:

Private Sub btnlogIn_Click()
    Dim rs As Recordset

    Set rs = CurrentDb.OpenRecordset("select pass from T_User where pass='" & Me.Txt_Pass & "';")
    If Not rs.EOF Then
        MsgBox ("ouvrir mon formulaire principal")
    Else
        MsgBox ("Erreur de Mot de Passe!")
    End If
End Sub

Re,

J'ai retrouve la syntaxe, c'est sur le Set rs qu'il manquait un parametre:

Private Sub btnlogIn_Click()
    Dim rs As Recordset

    Set rs = CurrentDb.OpenRecordset("T_User", dbOpenDynaset)
    rs.FindFirst ("pass='" & Me.Txt_Pass & "'")
    If Not rs.EOF Then
        MsgBox ("ouvrir mon formulaire principal")
    Else
        MsgBox ("Erreur de Mot de Passe!")
    End If
End Sub

Merci beaucoup pour votre aide. ça marche c'est vrai mais cela ne résout pas mon problème. pour n'importe qu'elle donnée entrée au clavier il affiche "ouvrir mon formulaire principal" alors que mon but recherché est que l'utilisateur doit entrer son nom et son mot de passe pour pouvoir accéder au formulaire principal sinon un message d'erreur s'affiche "mot de passe incorrecte" ou "nom utilisateur incorrecte".
pouvez-vous m'aider à corriger mon code afin d'y parvenir
merci vraiment pour votre soutien dans la recherche de la solution à mon probleme

Bonjour voici mon fichier copier coller:

Option Compare Database
Option Explicit

Private Sub btnlogIn_Click()
     Dim rs As Recordset

    Set rs = CurrentDb.OpenRecordset("T_User", dbOpenDynaset)
    rs.FindFirst ("pass='" & Me.txt_Pass & "'")
    If Not rs.EOF Then
        MsgBox ("ouvrir mon formulaire principal")
    Else
        MsgBox ("Erreur de Mot de Passe!")
    End If
End Sub

dans ma table j'ai deux enregistrement: T_User(id1,dary,root) puis T_User(id2,chloe,root2)
pendant le test je saisie comme user(dary) et passeword(root) dans mon formulaire quand je clic sur le bouton il m'affiche ouvrir mon formulaire principal.
je refais le test avec d'autre user et passeword qui ne figure pas dans la table T_User, il m'affiche le meme resultat apres clic sur le bouton
ouvrir mon formulaire principal au lieu de erreur de mot de passe
je ne sais pas ce qui se passe au juste. j'ai aussi essayé d'activer la bibliothèque DAO 3.6 qui est disponible dans les references mais une erreur s'affiche "erreur du chargement de la bibliotheque"
je sais plus quoi faire?
je trouve pas le bug vue que suis pas experimente en VBA?
merci bien d'accorder une attention à mon probleme.

ok! toute mes excuses je n'avias pas bien compris.
voici le lien de telechargement:
http://www.mediafire.com/file/lgnt9dq6szddr2g/Mon_Test.accdb/file

Bonjour,

En effet, petit probleme, ai modifie le fichier avec rs.NoMatch et la ca marche. Ai mis controle User et Pass

https://www.cjoint.com/c/EFqkg3Dh6mf

A+

ouff de soulagement! ça marche parfaitement. grand merci
je vais maintenant de l'ameliorer!
touts mes remerciments pour ce geste!