ACCESS requête SQL dans code VB - paramètre
Résolu
Ludivine50
Messages postés
118
Statut
Membre
-
Ludivine50 Messages postés 118 Statut Membre -
Ludivine50 Messages postés 118 Statut Membre -
Bonjour à tous,
Il ne manque pas de documentation sur l'export vers Excel via Access, je les parcours mais je ne comprends toujours pas pourquoi ça bloque chez moi.
Mon problème, c'est la récupération d'un paramètre de type date renseigné sur un formulaire.
J'ai un formulaire avec le champs PDateDeb et un bouton de contrôle "edition" pour lancer l'export vers excel. Dans le code VB de mon bouton "edition", j'ai la requête
SQL_ligne = "SELECT dbo_T_INTERVENTION.num_folio, dbo_T_INTERVENTION.D_date, ... FROM dbo_T_INTERVENTION WHERE dbo_T_INTERVENTION.D_date > [Formulaires]![E_liste_intervention2]![PDateDeb];"
Si j'enlève tout le WHERE, ça fonctionne. Dès que j'essaye d'ajouter le WHERE, j'ai le message d'erreur comme quoi il manque un paramètre. Pourquoi j'ai bien renseigné le champs PDateDeb avant de lancer la requête !?!
J'ai beau retourner dans tous les sens, je ne comprends pas le problème, et je bloque depuis des jours là-dessus!
J'espère que quelqu'un pourra m'aider.
Ludivine
Il ne manque pas de documentation sur l'export vers Excel via Access, je les parcours mais je ne comprends toujours pas pourquoi ça bloque chez moi.
Mon problème, c'est la récupération d'un paramètre de type date renseigné sur un formulaire.
J'ai un formulaire avec le champs PDateDeb et un bouton de contrôle "edition" pour lancer l'export vers excel. Dans le code VB de mon bouton "edition", j'ai la requête
SQL_ligne = "SELECT dbo_T_INTERVENTION.num_folio, dbo_T_INTERVENTION.D_date, ... FROM dbo_T_INTERVENTION WHERE dbo_T_INTERVENTION.D_date > [Formulaires]![E_liste_intervention2]![PDateDeb];"
Si j'enlève tout le WHERE, ça fonctionne. Dès que j'essaye d'ajouter le WHERE, j'ai le message d'erreur comme quoi il manque un paramètre. Pourquoi j'ai bien renseigné le champs PDateDeb avant de lancer la requête !?!
J'ai beau retourner dans tous les sens, je ne comprends pas le problème, et je bloque depuis des jours là-dessus!
J'espère que quelqu'un pourra m'aider.
Ludivine
A voir également:
- ACCESS requête SQL dans code VB - paramètre
- Code ascii - Guide
- Remettre parametre usine pc - Guide
- Parametre dns - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
2 réponses
C'est assez urgent, c'est pour cela que je me suis décidée à poster ce message.
Si quelqu'un peut m'aider? Je n'arrive vraiment pas à mettre le doigt sur mon pb.
Merci
Si quelqu'un peut m'aider? Je n'arrive vraiment pas à mettre le doigt sur mon pb.
Merci
Salut,
il faudait mettre ta récupération de donnée du form en dehors de la requête :
SQL_ligne = "SELECT dbo_T_INTERVENTION.num_folio, dbo_T_INTERVENTION.D_date, ... FROM dbo_T_INTERVENTION WHERE dbo_T_INTERVENTION.D_date > " & [Formulaires]![E_liste_intervention2]![PDateDeb].value & ";"
Et ne pas oublier le cas échéant que les dates access sont en format anglais et entourées de #.
il faudait mettre ta récupération de donnée du form en dehors de la requête :
SQL_ligne = "SELECT dbo_T_INTERVENTION.num_folio, dbo_T_INTERVENTION.D_date, ... FROM dbo_T_INTERVENTION WHERE dbo_T_INTERVENTION.D_date > " & [Formulaires]![E_liste_intervention2]![PDateDeb].value & ";"
Et ne pas oublier le cas échéant que les dates access sont en format anglais et entourées de #.
Bonjour Blux et merci pour ta réponse.
J'ai eu la soluce entre-temps, en fait, il fallait que je crée une fonction pour transformer ma date. Je la donne pour ceux que ça intéresserait:
Puis ensuite, le code de la requête est le suivant
Bonne journée à tous
J'ai eu la soluce entre-temps, en fait, il fallait que je crée une fonction pour transformer ma date. Je la donne pour ceux que ça intéresserait:
Function SQLArgDate(ByVal vDate As Date) As String
On Error Resume Next
If Not IsNull(vDate) Then
SQLArgDate = "#" & Format$(vDate, "mm/dd/yyyy") & "#"
End If
End Function
Puis ensuite, le code de la requête est le suivant
SQL_ligne = "SELECT dbo_T_INTERVENTION.num_folio, dbo_T_INTERVENTION.D_date, ... FROM dbo_T_INTERVENTION WHERE (dbo_T_INTERVENTION.D_date > " & SQLArgDate(Forms!E_liste_intervention!PDateDeb) & ") ;"
Bonne journée à tous