Discussion :

[LaDebrouille]

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

Code :

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

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.

J'ai beau retourner dans tous les sens, je ne trouve pas la solution, et je bloque depuis des jours là-dessus! J'imagine que c'est un problème de format avec les ##, format en US...
J'espère que quelqu'un pourra m'aider, ça me bloque complètement.

[francishop]

Bonsoir,

Ton code me semble correct. Chez moi ça donnerait :

Code :

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

1
2
3
4
Dim StrSql As String
StrSql = "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]));

Ton formulaire est préfixé "E_..."?

Cordialement.

[User]

oui c'est un problème de date us pris dans la faq:

tu declare une fonction pour le format us:

Code :

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

1
2
3
4
5
6
7
 
Function ap_SQLArgDate(ByVal vDate As Date) As String
On Error Resume Next
    If Not IsNull(vDate) Then
        ap_SQLArgDate = "#" & Format$(vDate, "mm/dd/yyyy") & "#"
    End If
End Function

et après dans ton code VB:

Code :

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

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_intervention2!PDateDeb)

Bonne semaine à toi, et penses AUX BALISES DE CODE

A+

[LaDebrouille]

Bonjour francishop et user,

Merci à tous les deux pour votre aide. J'ai utilisé ta fonction, User, et elle fonctionne parfaitement. J'avais essayé toutes les orthographes, mais pas de créer une fonction spéciale pour la transformation de la date!
Je vous remercie, franchement vous m'enlevez une épine du pied.
Je vous souhaite une excellente journée, et promis la prochaine fois je n'oublie pas mes balises de codes (en cas d'oubli, n'hésitez pas à me taper sur les doigts! )