VB6 access / requête ET

Bonjour

J'ai une table access et mon appli pointe dessus via un contrôle data nommé "datTable".

Dans cette table, j'ai entres autres un champ "date" et le code ce dessous permet donc d'accéder au premier enregistrement contenant une date égale au string se situant dans la textbox "txtTrouver" de ma feuille.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub txtTrouver_LostFocus() Dim strnom As String stri = Trim(txtTrouver.Text) & "*" stri = "date like '" & stri & "'" If txtTrouver.Text <> "" Then datTable.Recordset.FindFirst stri   End If   End Sub

---

Mon souci est de savoir comment définir le code pour définir l'enregistrement dont le champ "date" = string de txtTrouver ET dont le champ "nom"= toto ?

Avec une requete sql non?

Si le champs date est bien au format date, il faut modifier la fonction comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub txtTrouver_LostFocus() Dim strnom As String stri = Trim(txtTrouver.Text) stri = "date = #" & format(stri,"mm/dd/yyyy") & "#" If txtTrouver.Text <> "" Then datTable.Recordset.FindFirst stri End If   End Sub

---

Pour le formatage, mon controle de feuille a déja un masque donc c'est Ok.

Et pour ma requête, il suffit de rajouter :

Code:

---

stri = stri & "AND nom like 'toto'"

---

Bon c'est le B.A. BA mais je débute :roll: