Open form where condition

Version imprimable

04/08/2016, 18h30
hodalgatt

Open form where condition

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:

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

Mon id est de format text , Merci d'avance
04/08/2016, 18h53
Malick

1 pièce(s) jointe(s)
:salut:

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

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 :

1 pièce(s) jointe(s)

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:

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

05/08/2016, 10h42
hodalgatt

finalement j'ai résolu le problème je devais enlever docmd.close .Merci encore une fois :)
05/08/2016, 10h45
Malick

Bonjour

Super, c'est un plaisir.;)

@+

Malick

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

Code:

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"

1 pièce(s) jointe(s)

:salut:

Avec ce code, cela fonctionne :

Code:

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 :

12/08/2016, 15h57
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 !!!

1 pièce(s) jointe(s)

:salut:

Avec ce code, ton résultat est bon :

Code:

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é :