[AC-2003] Syntaxe SQL à l'ouverture d'un Recordset ?

[Alain Man]

Bonjour,

J'ai un problème se syntaxe à l'ouverture d'un recordset. J'ai déjà essayé "pratiquement" toutes les syntaxes, mais je n'arrive pas à trouver ce qui ne va pas.

Description du problème :

Lorsqu'on clique sur un bouton situé dans un formulaire ( nom du formulaire =PRINT NORMAL), il faudrait lancer l'impression d'une série de documents liés à des records (clé de chaque record =NUMREC) stockés dans une table (Nom de la table = MOVES). Les numéros des records sont encodés manuellement par l'utilisateur dans 2 champs textes situés dans le formulaire (TEXT1 et TEXT3).

Voici le code utilisé pour l'instant :

Code :

1
2
3
4
5
6
7
8
Private Sub BT_PRT_DOCS_Click()
Dim db As DAO.Database
Set db = CurrentDb
 
Dim rst As DAO.Recordset
Dim strsql as string
Set strsql="SELECT * FROM MOVES WHERE MOVES!NUMREC BETWEEN FORMS!PRINT NORMAL!TEXT1 AND FORMS!PRINT NORMAL!TEXT3" 
Set rst = db.OpenRecordset(strsql)

Le reste de la procédure pour imprimer les documents liés (Via ShellExecute) fonctionne sans problème si on remplace

Code :

FORMS!PRINT NORMAL!TEXT1

et

Code :

FORMS!PRINT NORMAL!TEXT3

par des valeurs numériques fixes dans strsql.
(Exemple : between 31 and 56 qui sont des numéros de records dans la table MOVES).

Si vous pouviez m'aider, ça me rendrait évidemment grand service pour l'application sur laquelle je suis actuellement en train de travailler.

Merci beaucoup.

[loufab]

Bonjour,
Il ne faut pas utiliser Set lorsque tu affectes une valeur à une variable de type primaire comme tu le fais avec ta variable strsql.

Ensuite ta chaine SQL n'est pas valide car tu utilises des espaces dans les noms de formulaire. Une erreur fréquente quand on débute.

Code :

FORMS!PRINT NORMAL!TEXT3

s'écrit

Code :

FORMS![PRINT NORMAL]!TEXT3

Tu devrais t'interesser au tuto sur le debogage des requetes sous VBA.

Cordialement,

[Alain Man]

Grand merci pour les infos !! Je ne peux malheureusement pas tester la syntaxe proposée car je n'ai pas le reste du code et de la version en développement à disposition pour l'instant (en vacances). Je teste la semaine prochaine et je réponds.

Encore merci et à bientôt.

[Alain Man]

Bonjour Loufab,

Désolés pour la réaction tardive, mais je n'avais pas la possibilité de me replonger dans ce "problème" pour l'instant.
J'ai bien essayé la syntaxe proposée en tenant compte des crochets pour le nom du formulaire contenant un espace :

Code :

strsql = "SELECT * FROM MOVES WHERE MOVES!NUMREC BETWEEN FORMS![PRINT NORMAL]!TEXT1 AND FORMS![PRINT NORMAL]!TEXT3"

Mais maintenant, j'obtiens le message suivant :

"Trop peu de paramètres. 2 attendus" et le débogeur se positionne sur la ligne :

Code :

Set rst = db.OpenRecordset(strsql)

Quelle est l'explication de ce message.

Merci beaucoup et à bientôt.

[Kloun]

Bonjour,

A essayer :

Code :

strsql = "SELECT * FROM MOVES WHERE NUMREC BETWEEN '" & FORMS![PRINT NORMAL]!TEXT1 & "' AND '" & FORMS![PRINT NORMAL]!TEXT3 & "'"

[Alain Man]

Bonjour,

Merci beaucoup. Je venais justement d'essayer cette syntaxe, mais j'ai maintenant le message suivant : "Type de données incompatible dans l'expression du critère".

J'ai vérifié et le type de données de la table correspond au type de données des champs Text1 et Text3 du formulaire de saisie.

Je ne vois vraiment pas ??

[Dolphy35]

Bonjour,

Cette survient lorsque tu veux comparer un champs définit en numérique par du texte.

NUMREC est de quel type dans la table ?

sinon il faut le convertir. Expemple : CLng(FORMS![PRINT NORMAL]!TEXT3) ce qui donnerait

Code :

strsql = "SELECT * FROM MOVES WHERE NUMREC BETWEEN '" & FORMS![PRINT NORMAL]!TEXT1 & "' AND " & CLng(FORMS![PRINT NORMAL]!TEXT3) & ";"

[philben]

mon coeur balance entre type texte et numérique , il faudrait tester avec un type numérique pour chaque valeur du between.

philippe