Bonsoir
Je n'arrive pas à trouver, ni dans les FAQ, ni dans les tutoriels (ou j'ai mal cherché ce qui est possible) la façon d'afficher à la volée tous les enregistrements du sous formulaire qui commence par ce que je saisie dans un champ du formulaire principal en utilisant bien sur le joker *
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
21 Dim strTable As String, strField As String, strCriteria As String, strSql As String Dim Criter As Variant strTable = "Etablissements" strField = "Nom_etablis" strCriteria = strTable & "." & strField & " Like """ & Me.txt_critere & """" MsgBox (Me.txt_critere) ' construit la requête sql strSql = "SELECT DISTINCTROW " & strTable & ".*" strSql = strSql & " FROM " & strTable strSql = strSql & " WHERE ((" & strCriteria & "));" Me.SF.Form.RecordSource = strSql ' affecte sql a lst_Resultat Me.SF.Requery ' recalcule la liste
Je voudrai bien entendu que le rafraichissement du SF se fasse tout au long de la saisie.
Merci
Partager