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]
