Précédent
- 1
- 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 :-)
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 :-)
???????
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 :-)
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 :-)
Précédent
- 1
- 2
