commande filter

Question

Brj Merci d'avance

- Pour la commande filter : j'aimerai filtre deux champs  le Nom et  Prenom
   Adodc.Recordset.Filter = ..........................................................................

- pour l'ajout des donnees ds un datagrid ecrire en minuscule et sauvegarde en majuscule

cs_Exploreur · Answer

Salut,

Utilise l'aide en ligne sur le mot Filter, et tu vas trouver toutes les explication nécessaire pour faire ce que tu demandes..

Sinon voici un bout de code(ADO) qui utilise la fonction Filter sans passer par un contrôle Data(à toi d'en faire la modife), par rapport à la saise de mon filtre dans une textBox :

Private Sub Command1_Click()

     'Positionnement sue le 1er enregsitrement
      resultatADO.MoveFirst 

    ' Recherche par rapport à ma saisie TextBox, dans le champ Commande
      If (Not (Text1.Text) = "") Then      resultatADO.Filter "Commande '" & (Text1.Text) & "'"
      End If
      
      For boucle = 0 To resultatADO.RecordCount      If resultatADO.EOF True Then boucle 0: GoTo Fin ' Ici fin de table
     ' Si la saisie éxiste
        If (Not (Text1.text) = "") Then
         ' Il y a un résultat
           If (Not resultatADO.EOF) Then
             If (Not resultatADO.EOF) = True Then
              ' Ici tu mets ton code pour remplir ton Dataview                 
             End If
           End If
        End If
      resultatADO.MoveNext
      Next boucle

Fin:
End Sub

A+
Exploreur

PCPT · Answer

salut,
Exploreur -> relis ton code, tes tests...
un seul suffit pour la Textbox, et un autre (dans le if) pour un while not ....EOF

cs_Exploreur · Answer

Salut PCPT,

Comme le dit l'expréssion : On a toujour besoin d'un plus grand que soit...
Merci, j'épure ce code ce soir...Je suis au boulot là...Si j'ai un creu, je le fait ce matin..

A+
Exploreur

cs_Exploreur · Answer

Salut PCPT,


Aprés relecture de mon bout de code à rallonge, voici le code épuré :

'Positionnement sue le 1er enregsitrement
 resultatADO.MoveFirst 

'Recherche occurence
 If (Not (Text1.Text) = "") Then     resultatADO.Filter "CodeAffaire '" & (Text1.Text) & "'"
 End If

     'Si l'occurence existe
               If (Not (Text1.Text) = "") Then

                  While Not resultatADO.EOF
                  bla...bla...bla...
                  resultatADO.MoveNext
                  Wend

               End If

A+
Exploreur

Merci

PCPT · Answer

re,
"et un autre (dans le if) pour un while not ....EOF"

la zone de texte ne peux pas changer soudainement....
un seul test d'occurence à faire

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Commande filter

5 réponses

Votre réponse

Discussions similaires