Discussion :

[dfournier]

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

[keita]

Si ce code fonctionnebiencomme je crois comprendre, il faut le mettre sur l'evenement "sur Entré" de ton champ de recherche.
@+

[Faw]

Salut,
Dans ce cas plutôt l'événement Change() et utiliser Me.txt_critere .Text pour référencer ta zone critère.
ps: tu n'as rien trouvé dans la recherche multicritères qui puisse t'orienter?

[dfournier]

je teste merci

[dfournier]

Ok la solution est la. Merci à tous

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
22
23
24
25
 
Private Sub txt_critere_Change()
   Dim strTable As String, strField As String, strCriteria As String, strSql As String, valSai As String
   Dim Criter As Variant
 
    strTable = "Etablissements"
    strField = "Nom_etablis"
 
    valSai = Me.txt_critere.Text & "*"
 
 
    strCriteria = strTable & "." & strField & " Like """ & valSai & """"
 
 ' MsgBox (valSai)
 
 
    ' 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
End Sub

La recherche à la volée fonctionne en forçant le critere avec * et en plaçant le code sur Entrée

Mercu

[Faw]

Je te conseille d'utiliser DAO pour mieux gérer le cas où aucune occurence
n'est retournée. Le fait que ce soit un ssform pose qqes soucis de ce côté là (à l'inverse de l'utilisation d'un form continu avec critère en entête du form). Un exemple et rien besoin de forcer

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
22
Private Sub Texte0_Change()
On Error Resume Next
Dim rs As DAO.Recordset
Dim db As DAO.Database
 
Set db = CurrentDb
sql = "SELECT Tbl.C1, Tbl.C2 FROM Tbl WHERE C1 Like '" & Me.Texte0.Text & "*' ORDER BY C1"
Set rs = db.OpenRecordset(sql)
 
rs.MoveLast  'Pour avoir le nombre d'occurrences
 
  If rs.RecordCount < 1 Then
    MsgBox "zéro trouvés pour" & " " & Me.Texte0.Text
    Me.Texte0.Text = Left(Me.Texte0.Text, Len(Me.Texte0.Text) - 1) 'Dernière saisie valide
    Me.Texte0.SelStart = 9999 'Curseur en bout de chaine
    Exit Sub 'Le dernier filtre valide reste appliqué
    End If
 
Me.ssform.Form.RecordSource = sql
Me.ssform.Requery
Set rs = Nothing
End Sub