High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

ACCESS requête SQL dans code VB - paramètre

Dernière réponse le 24 fév 2009 à 09:35:28 Ludivine50, le 22 fév 2009 à 11:17:09 
 Signaler ce message aux modérateurs

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

Posez votre question Répondre

1

Ludivine50, le 22 fév 2009 à 22:30:31

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

   
Répondre à Ludivine50

2

blux, le 23 fév 2009 à 11:03:18

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 #.

A+ Blux           

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

   
Répondre à blux

3

 Ludivine50, le 24 fév 2009 à 09:35:28

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: 

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

   
Répondre à Ludivine50
Posez votre question Répondre
Ils ont besoin de votre aide
Collection CommentÇaMarche.net