Discussion :

[Z[ee]k]

Bonjour !

Je commence à apprendre et retenir certain petit truc mais la autre problème je fais une requete SQL par VB ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
     SQL = SQL & "And tbl_entreprise.effectif_entreprise_ent like '*" & Me.cmbRechEff & "*' " 
 
 
.

'*" & Me.cmbRechEff & "*' "<= ceci est une valeur que je rentre dans mon formulaire et cmbEff <= ceci est une liste modifiable qui contient les valeurs "<";"=";">"... je souhaiterai remplacer like par cmbEff !!

Merci pour vos réponses !

[Bz]

c'est pas tres clair.

en tout cas, tu ne peux aps utiliser <, >,= avec des jokers (*)

[jmfmarques]

utilise la fonction Replace
Mais cela ne suffira pas sans modifier également ce qui suit...

[Z[ee]k]

la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 If Not Me.chkAge Then
    If cmbAge Like "*=*" Then
        SQL = SQL & "And (Year(Now()))-(Year([date_naiss_part])) like '*" & Me.cmbRechAge & "*' "
    End If
    If cmbAge Like "*<*" Then
        SQL = SQL & "And (Year(Now()))-(Year([date_naiss_part]))<(cmbRechAge) "
    End If
    If cmbAge Like "*>*" Then
        SQL = SQL & "And (Year(Now()))-(Year([date_naiss_part]))>(cmbRechAge) "