Discussion :

[Sendo]

Bonsoir!!

Voilà, en regardant le tuto de cafeine sur la recherche multicritère, j'ai tenté de l'adapter pour une recherche monocritère. Vu mes résultats, c'est un échec complet.

En fait j'ai une table avec 3 colonnes, une pour les numéros automatique, une pour les noms et une autre pour les prénoms.
Ce que je voudrais est assez simple en principe, c'est juste qu'un formulaire m'affiche les personnes d'un certain nom avec leurs prénoms et leurs numéros associés, par exemple pour les dupont (ce nom sera donné par l'utilisateur grâce à une zone de texte).

Ceci me permettrait de comprendre le principe de la recherche monocritère et de l'appliquer à quelque chose de plus utile.

Voici le bout de code que j'ai dont je ne trouve pas les erreurs:

Option Compare Database




Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String

SQL = "SELECT nom, prenom, Type FROM Table2 Where Table2!num <> 0 "

SQL = SQL & "And Table2!nom like '*" & Me.txtnom & "*' "

SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))

SQL = SQL & ";"

Me.lblStats.Caption = DCount("*", "Table2", SQLWhere) & " / " & DCount("*", "Table2")
Me.lstresults.RowSource = SQL
Me.lstresults.Requery

End Sub


Private Sub txtnom_BeforeUpdate(Cancel As Integer)

RefreshQuery

End Sub

En espérant pouvoir être aidé,

Merci

[cafeine]

Hello,

il faudrait que tu décrives le bug ... mais déjà il faudrait tester si txtNom n'est pas null ...

Code :

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

1
2
3
If Me.txtNom & "" <> "" Then
    SQL = SQL & "And Table2!nom like '*" & Me.txtnom & "*' " 
End If