Bonjour,
Tout d'abord merci à loufab pour son tuto sur le formulaire de recherche
mais j'ai justement un probleme avec ce dernier:
je suis à l'étape où l'on test la recherche avec uniquement du texte
je pense avoir respecter le tuto (j'ai vérifier 3 fois) mais sa ne marche pas
Aucun message d'erreur ne s'affiche donc je n'en sais pas plus
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Private Sub cbo_table_AfterUpdate() Me.cbo_champ.RowSource = Me.cbo_table.Value Me.cbo_champ.Requery End Sub Private Sub cmd_recherche_Click() Dim strTable As String, strField As String, strCriteria As String, strSql As String Dim Criter As Variant strTable = Me.cbo_table strField = Me.cbo_champ strCriteria = strTable & "." & strField & " Like """ & Me.txt_critere & """" strSql = "SELECT DISTINCTROW " & strTable & ".*" strSql = strSql & " FROM " & strTable strSql = strSql & " WHERE ((" & strCriteria & "));" Me.lst_resultat.RowSource = strSql Me.lst_resultat.Requery End Sub
si quelqu'pouvait y jeter un oeil ce serait bien
Merci d'avance
Kyrha
Partager