Le 11/10/06, MORTEVEILLE Roselyne - DDE 44/GER/Voies
Rapides<[EMAIL PROTECTED]> a écrit :
Je pense qu'il y a encore un petit problème car je tape une recherche
que je sais exister dans la table et pourtant tout s'efface et j'ai le
message "pas de résultat". Mais grâce à toi j'approche !!!!!! merci
beaucoup.
telle que la macro est programmée, elle recherche les enregistrements
dont le contenu du champ strNomChamp commence par le texte de
recherche.
Exemple :
si tu saisis a dans la recherche, tu obtiens :
albert
anatole
antoine
si tu saisis an dans la recherche, tu obtiens :
anatole
antoine
si tu saisis ant dans la recherche, tu obtiens :
antoine
de plus, je ne suis pas sûr de ce qui se passe quand les casses sont
différentes (majuscules / minuscules)
Manuel
Le 11/10/2006 07:25, > Manuel NAUDIN (par Internet, dépôt
[EMAIL PROTECTED])
a écrit :
> Voici une nouvelle version qui gère le cas où le filtre ne renvoie
> aucun enregistrement :
>
> Sub fabriqueFiltreFormulaire(oEvent As Object)
> Dim oDataForm As Object
> Dim strFiltre As String
> Dim strNomForm As String
> Dim strNomChamp As String
>
> strNomForm = "MainForm" 'nom du formulaire principal
> strNomChamp = "nom_client" 'nom du champ à filtrer
> strNomChamp = """" & strNomChamp & """"
> oDataForm = thiscomponent.drawpage.Forms.getByName(strNomForm)
> IF oEvent.Source.Text <> "" THEN
> strFiltre = strNomChamp & " LIKE '" & oEvent.Source.Text & "%'"
> ENDIF
> oDataForm.Filter = strFiltre
> oDataForm.reload
> IF oDataForm.RowCount = 0 THEN 'réinitialisation du filtre
> msgbox("pas de résultat !")
> oEvent.Source.Text = ""
> oDataForm.Filter = ""
> oDataForm.reload
> ENDIF
> End Sub
>
> Bonne journée.
> Manuel
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
