Discussion :

[hodalgatt]

Salut , j'ai besoin d'un code VBA , en cliquant sur bouton ouvrir , pour afficher les données spécifiques concernant l'utilisateur que j'ai fait entrée dans le formulaire actuel , voila le code que j'ai utilisé :

Code :

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

 DoCmd.OpenForm "distributeur" ,_where condtion :="id="& Me.Text3

Mon id est de format text , Merci d'avance

[Malick]

Si votre champ ID est de type Texte, alors votre requête sera :

Code :

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

1
2
3
Private Sub BtnOuvrirDistributeur_Click()
DoCmd.OpenForm "fDistributeurs", , , "idDistributeur= '" & Me.txtDistributeur & "'", , acDialog
End Sub

Voici une base de test avec un formulaire fRecherche :

[hodalgatt]

Merci pour votre réponse , je sais pas d'ou vient le problème mais ça ne fonctionne pas pour moi , voici le code que j'ai utilisé

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Command5_Click()
 If (IsNull(DLookup("id_distributeur", "distributeur", "id_distributeur ='" & Me.Text3.Value & "'"))) Then
     MsgBox "incorrect login or password"
     Else
     DoCmd.Close
     'MsgBox "identifiant correct"
     DoCmd.OpenForm "distributeur", , , "Id= '" & Me.Text3 & "'", , acDialog
     End If
End Sub

dans mon code le Id c'est le mot de passe , alors lorsque le mot de passe est correct , quand je clique le bouton valider , il doit me renvoyer vers formulaire du même distributeur ( mm ID ) , veuillez jeter un coup d’œil sur ma base donnée svp , Merci énormément

[hodalgatt]

finalement j'ai résolu le problème je devais enlever docmd.close .Merci encore une fois

[Malick]

Bonjour

Super, c'est un plaisir.

@+

Malick

[hodalgatt]

bon pas vraimenet , j'aimerais bien fermer le formulaire de login , mais quand j'ecrit le code , cela ne fonctionne pas = =

Code :

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

1
2
3
4
5
6
7
8
  Private Sub Command5_Click()
If (IsNull(DLookup("id_distributeur", "distributeur", "id_distributeur ='" & Me.Text3.Value & "'"))) Then
MsgBox "incorrect login or password"
Else
 
'MsgBox "identifiant correct"
DoCmd.OpenForm "distributeur", , , "Id= '" & Me.Text3 & "'", , acDialog
Docmd.close acform,"login_dist"

[Malick]

Avec ce code, cela fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Command5_Click()
 If (IsNull(DLookup("id_distributeur", "distributeur", "id_distributeur ='" & Me.Text3.Value & "'"))) Then
     MsgBox "incorrect login or password"
     Me.Text3.SetFocus
     Else
     MsgBox "identifiant correct"
     Me.Visible = False
      DoCmd.OpenForm "distributeur", , , "Id_distributeur= '" & Me.Text3 & "'", , acDialog
      End If
End Sub

Voici votre base corrigée :

[hodalgatt]

Merci bcp pour votre aide , j'ai un autre soucis lorsque je me connecte a nouveau le champ de mot de passe n'est pas vide , je trouve l'ancien mot de passe , alors comment faire pour que le champ soit vide !!!

[Malick]

Avec ce code, ton résultat est bon :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Command5_Click()
 If (IsNull(DLookup("id_distributeur", "distributeur", "id_distributeur ='" & Me.Text3.Value & "'"))) Then
     MsgBox "incorrect login or password"
     Me.Text3.SetFocus
     Else
     MsgBox "identifiant correct"
        DoCmd.OpenForm "distributeur", , , "Id_distributeur= '" & Me.Text3 & "'", , acDialog
        DoCmd.Close acForm, "login_dist"
  End If
End Sub

Voici ta base corrigé :