Requery Access 2000 - Page 2

Bon,

Je te propose de modifier tes fonctions de la manière suivante:

Dans un module, tu écris (pour Cri_Ha):

Public Cri_Ha As String

Public Function ReturnCri_Ha() As String
ReturnCri_Ha= Cri_Ha
End Function

Dans ta procédure click tu écris:

Private Sub bouton_rech_Click()
Coch_Ha.Value = True Then
Cri_Ha = " LIKE '" & Zt_HA.Value & "' "
Else
Cri_Ha = " LIKE '*' "
End If

Forms![F_rech]![Li_resu].Requery
End Sub

Comme critère dans ta query tu écris pour la colonne Ha: = ReturnCri_Ha()

.... Croisons les doights

Rien n'est plus dangereux qu'une idée quand on a 
qu'une idée  :-)

Access m'en veut c'est pas possible
Ca veut pas fonctionner

???????

La je suis à court d'idées....
Envoi moi une adresse e-mail à l'adresse suivante:
PbAccess.1.LeLaid@Spamgourmet.Com (n'essaye pas d'envoyer plus d'un mail, je ne recevrai que le premier).

Je t'enverai une compie d'une appli qui marche (seule différence, Access 97, il faudra donc que tu la convertisses).

A+

Rien n'est plus dangereux qu'une idée quand on a 
qu'une idée  :-)

voila mon mail est envoyé
Merci de ton aide