Discussion :

[julio78]

bonjour,
Etant nouveau sur le forum je ne suis pas sur d'etre dans la bonne section , mais voici mon probleme: je travaille sous Access2003 et je prog en VBA.
quand j'execute mon code il me sort l'erreur 2001 operation annulée, je voudrais savoir comment faire pour corriger cette erreur?

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Recherche()
Dim strFiltre As String, strSQL As String
 
strFiltre = ""
 
If Not IsNull(Me![c_idExpo] And Me![c1_idExpo]) Then
    If strFiltre <> "" Then strFiltre = strFiltre & " AND "
    strFiltre = strFiltre & "[idExpo] BETWEEN '*" & Me![c_idExpo] & "'AND'" & Me![c1_idExpo] & "*' "
End If
 
Me!sfmRésultat.Form.Filter = strFiltre
Me!sfmRésultat.Form.FilterOn = True
 
End Sub

il me met l'erreur sur l'avant derniere ou la derniere ligne cela depend.
j'ai essayé plusieurs choses :
dans la table ou il me prend les valeurs j'ai changé le numerique en texte et a ce moment la il n'y a pas de probleme par contre si je le met en texte j'ai l'erreur.

Au fait le code que j'ai essayé de faire me permet de filtrer des valeurs que je recupere dans un sous-formulaire nommé sfmResultat sachant que j'utilise un formulaire.

En esperant que vous ayez compris de quoi je parle
et en vous remerciant par avance pour les solutions proposées.

julio

[Tofalu]

que donne

Code :

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

msgbox strfiltre

?

[[L@DLF]Legolas]

je viens de rancontrer ce problème ce matin, mais pas avec la même syntaxe de code, parc ontre j'avais aussi une erreur 2001.

Cette erreur est liée aux conflits texte/nombre

voila mon code générateur d'erreur :

Code :

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

1
2
3
4
5
6
7
If Not IsNull(Me.cmbcontrat) And Me.cmbcontrat <> "" Then
If f <> "" Then
f = f & " AND [REQUETE RDZ VS].[Contrat] = """ & Me.cmbcontrat & """"
Else
f = "[REQUETE RDZ VS].[Contrat] = """ & Me.cmbcontrat & """"
End If
End If

avec des champs texte, ça marche, avec des chiffres, ça marche plus !

voila comment résoudre le problème :

Code :

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

1
2
3
4
5
6
7
If Not IsNull(Me.cmbcontrat) And Me.cmbcontrat <> "" Then
If f <> "" Then
f = f & " AND [REQUETE RDZ VS].[Contrat] = [b]"[/b] & Me.cmbcontrat & [b]""[/b]
Else
f = "[REQUETE RDZ VS].[Contrat] = [b]"[/b] & Me.cmbcontrat & [b]""[/b]
End If
End If

en gras les parties modifiées.

comme je ne suis pas informatitiens et que je ne connais pas le vba je ne pourrai pas t'aider à retranscrire la syntaxe sur ton code, mais je pense que ça va mettre pas mal de connaisseurs sur la piste.

edit : cafeine, merci d'utiliser les balises code

[julio78]

bonsoir,
Pour Tofalu excuse moi de n'avoir pu repondre mais je suis etudiant en alternance et je n'etais pas au travail cette semaine et j'ai essayé de rapatrier le programme et quand je fais ma recherche et qu'il me sort une msgbox il met [idExpo] BETWEEN '*2'AND'15*'

Sinon merci [L@DLF]Legolas pour ton aide aussi je vais me mettre dessus des que je peux lol et je te dirais si ca marche, du point de vue transcription je devrais y arriver.

En tous cas cela va me permettre d'avancer.

bonne soiree et joyeuses fetes a vous.

julio

[Tofalu]

Il manque des espaces de chaque coté du AND

[julio78]

Bonjour,
Pour commencer une bonne année a tous!
Me revoila en 2006 avec encore quelques problemes concernant ce code erreur.
J'ai essayé aevc le code que m'avais passé [L@DLF]Legolas mais je ne vois ce que fais donc si quelqu'un a une idée je suis preneur ?

Pour Tofalu j'ai mis un espace avant et apres et cela n'a rien changé merci quand meme pour l'aide proposé.

bonne journée
julio

[julio78]

Re bonjour,
j'ai enfin trouvé le probleme de mon code .
Merci

Pour ceux que ca interesse le code erreur 2001 est un code qui dit qu'il y a incompatibilité entre une reference qui est en texte et un champs qui est en numerique ou de tout autre type.
Pour mon cas le code initial etait celui-ci :

Code :

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

1
2
3
4
5
 
If Not IsNull(Me![c_idExpo] And Me![c1_idExpo]) Then
    If strFiltre <> "" Then strFiltre = strFiltre & " AND "
    strFiltre = strFiltre & "[idExpo] BETWEEN '*" & Me![c_idExpo] & "' AND '" & Me![c1_idExpo] & "*' "
End If

que j'ai remplacé par celui-la :

Code :

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

1
2
3
4
5
 
If Not IsNull(Me![c_idExpo] And Me![c1_idExpo]) Then
    If strFiltre <> "" Then strFiltre = strFiltre & " AND "
    strFiltre = strFiltre & "[idExpo] BETWEEN " & Me![c_idExpo] & " AND " & Me![c1_idExpo] & " "
End If

le probleme venant du fais que mon champs est referencé en numerique et que je l'ai mis entre quote et * alors qu'il ne fallait rien mettre

Je tiens a remercier les personnes qui m'ont aidé.

a bientot

julio