FAQ : problème avec création d'une requete en VBA

Version imprimable

13/02/2006, 15h49
Oluha

FAQ : problème avec création d'une requete en VBA

Bonjour

J'aimerai dans mon formulaire créer une requête qui va s'ajouter dans Access. J'ai récupéré le code suivant dans la FAQ mais il ne se compile pas :

Code:

CurrentDb.CreateQueryDef("MaReqCreee", "Select * FROM Table1")

Apparemment il attend un = quelque part :roll:

C'est moi qui ait du mal ou bien y'a effectivement une erreur dans la FAQ ?

Merci
13/02/2006, 16h00
fdraven
Il faut déclarer et instancier une variable de type querydef :
Code:

1 2 Dim qry As QueryDef Set qry = CurrentDb.CreateQueryDef("MaReqCreee", "Select * FROM Table1")
En espérant t'avoir aidé.
13/02/2006, 16h14
Oluha

merci pour ta réponse
mais ca ne compile toujours pas, on dirait qu'il ne reconnait pas le type QueryDef :?
13/02/2006, 16h25
Tofalu

as tu ajouté la référence dao à ton projet ?
13/02/2006, 16h27
fdraven

Il faut rajouter la référence Microsoft DAO 3.6 Object Library.

En espérant t'avoir aidé.
13/02/2006, 16h55
Oluha

mouarf, maintenant j'ai le message "Variable objet ou variable bloc with non définie"
sur la ligne

Code:

Set qry = CurrentDb.CreateQueryDef("tmpfic", stSQL)

(stSQL contient ma requête mais si je met un simple select * from ca ne fonctionne pas plus)

Désolée pour toutes ces questions mais je suis très limitée avec Access :oops:
13/02/2006, 16h59
Arkham46

slt,

Code:

Call CurrentDb.CreateQueryDef("MaReqCreee", "Select * FROM Table1")

Ou

Code:

CurrentDb.CreateQueryDef "MaReqCreee", "Select * FROM Table1"

:?:
13/02/2006, 17h04
Oluha

même message d'erreur avec les 2 propositions :(

http://warin.developpez.com/access/d...artie_4#L4.7.4
Citation:
Envoyé par Moi
Dans notre exemple nous allons créer une requête de sélection complète de la table clients. Il s'agit d'une requête simple et la méthode à appliquer est la même pour tout type de requête.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub CreerRequete() On Error GoTo Err Dim oDb As DAO.Database Dim strCodeSql As String 'Instancie l'objet database Set oDb = CurrentDb 'Stocke le code SQL dans une variable strCodeSql = "SELECT * FROM Client" 'Crée la requête oDb.CreateQueryDef "R01_SelectionClient", strCodeSql Finally: oDb.Close Set oDb = Nothing Err: 'Gére les erreurs Select Case Err.Number Case 3012: MsgBox "La requête existe déjà" Case Else: MsgBox "Une erreur inconue est survenue" End Select Resume Finally End Sub
:wink:

14/02/2006, 09h06
Oluha

toujours la même erreur sur

Code:

oDb.CreateQueryDef "tmpfic", stSQL

Ca pourrait pas venir du fait que c'est une base .adp ?
14/02/2006, 09h57
Tofalu

Dans ce cas, si c'est du SQL Server, utilise ADOX comme précisé dans le tutoriel suivant :

ftp://ftp2.developpez.be/developps/vb/VB-ADOX.pdf
14/02/2006, 10h17
Oluha

j'ai essayé avec ADOX hier justement mais quand je précise le nom de ma base pour la connexion il me dit qu'il ne reconnait pas le format :cry:

voici le lien que j'avais trouvé : http://download.microsoft.com/download/b/0/d/b0d22259-beb7-4fb0-adc5-c816ac870939/ADOX.doc (page 10)
14/02/2006, 10h49
Tofalu

Utilise la connexion :

CurrentProject.Connection :wink:

Voilà mon nouveau code
Code:

1 2 3 4 5 6 7 Dim cat As New ADOX.Catalog Dim cmd As New ADODB.Command cat.ActiveConnection = CurrentProject.Connection cmd.CommandText = stSQL cat.Procedures.Append "tmpfic", cmd
J'ai le message "cette interface n'est pas prise en charge" sur la dernière ligne :(

14/02/2006, 12h05
Oluha

Bon en fait j'abandonne, j'ai réussi à faire ce que je veux au final en utilisant une autre technique que de passer par une requête Access.

Merci pour l'aide en tous cas :wink: