Erreur code vba

Très futile ton Post si tu nous donne pas les lignes de code VBA qui font l'erreur.

Merci de nous expliquer les erreurs et ce que désire faire, enfin si tu veut de l'aide. Amicalement CIAnure

voila mon code
Private Sub Commande4_Click()

Static i As Byte
Dim bd As Database
Dim rs As Recordset
Set db = CurrentDb

*****Set rs = bd.OpenRecordset("SELECT [LOGIN],[PASSWORD] FROM USER WHERE LOGIN = '" & Me.LOGIN & "' AND [PASSWORD]='" & Me.PASSWORD & "';")
If Not rs.EOF Then
DoCmd.OpenForm "menu", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "Formulaire1"
Else
MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If
Me.Requery
End Sub
l erreure se trouve ou il y a des *****
ce code sert a securiser une bdd (login et mot de passe)
si tu vex plus d informations pas de prb

le priblema est partiellement réglé mais il ya ncore une erreur das la ligne
Me.Requery
merci

Si tu veux des exemples de ce que tu viens de faire, envoyer moi une adresse mail , je vais t'envoyer des doc et exemple.
Bonne chance

ok je t ai deja envoyé mon adresse dans le forum programmation

Meziane!!!!

Tu m'a demander qoui? si tu veut des exemples de programmes complet envoyer moi un mail

si le type =administrateur le formulaire "menu"se lance si le type= "limité" le formulaire menu1 se lance

Private Sub CmdAnnuler_Click()
End
End Sub

Private Sub CmdEntrer_Click()
If TxtMatric = "" Then
MsgBox "Saisir un utilisateur ! ", vbExclamation, " Prolème Connexion"
Else
DtaUtilisateur.Refresh
DtaUtilisateur.Recordset.Find "Matric ='" & TxtMatric.Text & "'"
If DtaUtilisateur.Recordset.EOF Then
MsgBox "utilisateur non autorisé ! ", vbCritical, " Prolème Connexion"
DtaUtilisateur.Recordset.MoveFirst
Else
If DtaUtilisateur.Recordset!MotDePasse = TxtMotDePasse Then
If TxtCNewMotDePasse.Text <> TxtNewMotDePasse.Text Then
MsgBox "confirmation du mot de passe incorrecte ! ", vbExclamation, " Prolème Connexion"
TxtCNewMotDePasse.Text = ""
TxtCNewMotDePasse.SetFocus
Else
MsgBox " Connection réussie ", , "Connexion"
DtaUtilisateur.Recordset!MotDePasse = TxtNewMotDePasse.Text
If TxtNewMotDePasse.Text <> "" Then
DtaUtilisateur.Recordset.Update
End If
FrmSign.Hide
FrmMenuGeneral.Show
FrmMenuGeneral.LMatric = DtaUtilisateur.Recordset!Matric
End If
Else
MsgBox "utilisateur ou mot de passe incorrect ! ", vbExclamation, " Prolème Connexion"
TxtNewMotDePasse.Text = ""
TxtCNewMotDePasse.Text = ""

End If
End If
End If
End Sub

Sifte lia mail dialek oulla chi mail temporaire malek mafik ti9a

men sba7 o ana kansefto lik o makaybriwch les messages imchiw wellah

Je travaille je suis ingénieur, je vais t'envoyer beacoups d'exemples ce soir. tu vas les retrouvez demains dans ta boite ok.

Tu est étudiante toi?

Quelle est ta ville?

C'est le nom d'une table au niveau de la base . Tu va retrouver tous l'exemple dans ta boite demain y compris la base

tu peux pas m aider mnt a modifier dans ce code par ce que j pas bien compris
stp c urgent

Malheuresement daba non car j'ai tous ça à la maison je vais faire mon possible dés que quitte mon travail à 16:30h. je vais t'envoyer ça vers 17:00h ok.

D'accord je vais faire de mon mieux, A tu un numéro de tél si cela te dérrange pas bien sûr. ja vais essayer de te rappeller dés l'envoi des exemples

ok merci mon num je te le donerai si tu peux te connecter mnt a msn pcq je px pas te le donner dans le forum ca va etre diffusé
tu me comprend??

je t'ai envoyé les doc et exemples comme promis

slt j ai recu les document merci
mais moi je travaille avec vba dans access 2003 on est débutantes en vba si on peux te donner des informations sur la base de données et tu nous aide a réaliser le code (si tu maitrise vba)
merci