Pb création requête création de table

Pb création requête création de table - VB/VBA/VBS - Programmation

Marsh Posté le 12-02-2004 à 19:57:01    

Bonsoir,
 
Voilà, j'ai le code suivant qui me permet de lancer une requête paramétrée création de table.
Cependant, je souhaiterai faire un tout petit peu plus compliqué et sans succès depuis plusieurs jours.
Voilà, je souhaiterai conserver dans ma BDD "Requête1" comme une requête dite "de sélection" et par code VB créer cette même "Requête1" mais en requête dite "Création de table" pour pouvoir effectuer ma Sub test(). En effet, le "qdf.Execute" ne s'applique qu'à une requête action et non sélection.
 
Merci infiniement de votre aide car là, je ne sais plus quoi tenter!
 
 
Sub test()
  Dim qdf As QueryDef
  Dim DATE_T As Date
  Dim cnn As New ADODB.Connection
 
 
  DATE_T = InputBox("Date" )
 
  Set qdf = CurrentDb.QueryDefs("Requête1" )
  qdf.Parameters("Date ?" ) = DATE_T
  qdf.Execute
  Set qdf = Nothing
End Sub
 
 
Voici ma requête en SQL :
 
SELECT [Table1].[Prénom], [Table1].[Nom], [Table2].[Adresse], [Table2].[Ville], [Table2].[Date] INTO vide
FROM Table1 INNER JOIN Table2 ON [Table1].[Nom]=[Table2].[Nom]
WHERE ((([Table2].[Date])=[Date ?]));

Reply

Marsh Posté le 12-02-2004 à 19:57:01   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed