Discussion :

[MAMANHOU]

bonjour,

Je continue de modifier mon formulaire de recherche et maintenant je bloque sur de la conversion de texte en nombre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT N°,  NOM_PAR1, DIR_NOM , DIR_PRENOM, SECTEURACTIVITE,ACTIVITEDETAILLEE, CODENAF, REGION, DEPARTEMENT, CA, EFFECTIFS FROM rqy_rechercheprospectv where T_abonne!n° <> 0 "
 
If Me.chkca Then
   SQL = SQL & " And val(rqy_rechercheprospectv!CA) between " & IIf(Me.txtCAmini = "", 0, txtCAmini) & " and " & IIf(Me.txtCAmaxi = "", 99999999, Me.txtCAmaxi) & ""
   End If
...
end sub

Je ne peux pas changer le type texte pour le champ CA car il est lié à une importation.

Comment puis-je le convertir en numérique pour que ma recherche marche ?

Merci d'avance pour votre aide
Mamanhou

[marot_r]

Essaye de remplacer

Code :

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

val(rqy_rechercheprospectv!CA)

par

Code :

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

val([CA])

cela devrait résoudre ton problème,

Sinon essaye

Code :

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

val(rqy_rechercheprospectv.CA)

.


A+