Discussion :

[Tchebichef]

Bonjour à tous,
J'ai un souci à la frontière entre IHM et requête SQL, j'espère donc poster dans le bon forum
J'ai créé une table de recensement des interventions que les utilisateurs remplissent par l'intermédiaire de formulaires.
J'aimerais donner la possibilité à l'administrateur d'exporter la base entre deux dates choisies par lui.
J'ai écrit cette requête :

Code :

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

SELECT IP.* INTO TEMPORAIRE FROM IP WHERE IP.Date_inter >= Date_début AND IP.Date_inter < Date_fin

que je lance en VBA, ou TEMPORAIRE est une table où je stocke le résultat de la requête avant de l'exporter en Excel. Cette requête génère des invites pour Date_début et Date_fin. Cela fonctionne bien.
Mais pour garder une cohérence, je souhaiterais que l'utilisateur saisisse les dates non pas dans les invites mais dans des textbox. Et là, je bloque.
J'ai essayé :

Code :

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

SELECT IP.* INTO TEMPORAIRE FROM IP WHERE IP.Date_inter >= Debut AND IP.Date_inter < Fin

Avec ça :

Code :

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

1
2
Debut = Me.DateDebut.Value
Fin = Me.DateFin.Value

Mais lors de l'exécution de la requête, j'ai toujours les invites Debut et Fin qui s'affichent...
En gros, je voudrais utiliser des valeurs date de textbox dans ma requête.
Est ce possible ? Si oui comment ?
D'avance merci pour votre aide.
Tchebichef

[nico84]

Bonjour,

A quoi sert la table temporaire ?
La requete est saisie en VBA ou stockée et exécutée ensuite ?

Voici un exemple en VBA :

Code :

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

1
2
3
4
5
6
Dim qdf As DAO.QueryDef, rst As DAO.Recordset
 
Set qdf = CurrentDb.QueryDefs("marequeteparametree")
qdf.Parameters("param1") = textbox1
...
Set rst = qdf.OpenRecordset

Ensuite rst peut être exporté dans excel

[Tchebichef]

Bonjour,
La table temporaire me permet d'exporter le résultat de la requête avec :

Code :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "TEMPORAIRE"

Il doit y avoir moyen de faire plus simple et d'exporter directement le résultat de la requête sans passer par un stockage temporaire, mais je ne sais pas faire
Le requête est saisie en VBA :

Code :

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

sql = "SELECT IP.* INTO TEMPORAIRE FROM IP WHERE IP.Date_inter >= Debut AND IP.Date_inter < Fin;"

Puis exécutée :

Code :

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

DoCmd.RunSQL sql

Je ne sais pas manier les objets DAO mais après tout faut bien s'y mettre, je vais donc essayer votre exemple.
J'imagine que "marequeteparametree" peut être "SELECT IP.* INTO TEMPORAIRE FROM IP WHERE IP.Date_inter >= Debut AND IP.Date_inter < Fin;"
avec "param1" égal à Debut et "param2" égal à Fin ?
Mais pour l'extraction sous Excel, je peux utiliser un code du style :

Code :

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

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, rst

?
Merci +++ pour votre aide.
Tchebichef

[Tchebichef]

Voilà le code que j'ai tenté :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Commande48_Click()
 
Dim qdf As DAO.QueryDef, rst As DAO.Recordset, sql As String
 
sql = "SELECT IP.* INTO TEMPORAIRE FROM IP WHERE IP.Date_inter >= Debut AND IP.Date_inter < Fin;"
 
Set qdf = CurrentDb.QueryDefs(sql)
 
qdf.Parameters(Debut) = Me.DateDebut
qdf.Parameters(Fin) = Me.DateFin
 
Set rst = qdf.OpenRecordset(sql)
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, rst, "C:\Temp\IP.xls", True, "ImportBaseInterventions"
 
End Sub

J'ai une erreur 3265 : Elément non trouvé dans cette collection.
La ligne à problème étant a priori :

Code :

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

Set qdf = CurrentDb.QueryDefs(sql)

Une idée ?
Merci

[nico84]

Personnellement je n'utilise pas TransferSpreadsheet car après export je formate le tableau excel mais ce qui précède me semble correct...

Comme la requête n'est pas préenregistrée elle peut s'écrire directement :

Code :

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

sql = "SELECT IP.* INTO TEMPORAIRE FROM IP WHERE IP.Date_inter >= cdate('" & dateDebut & "') AND IP.Date_inter < cdate('" & dateFin & "');"

[Tchebichef]

Bonjour et merci
Je vais creuser dans la FAQ pour voir comment exporter sans DoCmd.TransferSpreadsheet.
Tchebichef