Discussion :

[Oluha]

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 :

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

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

Apparemment il attend un = quelque part

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

Merci

[fdraven]

Il faut déclarer et instancier une variable de type querydef :

Code :

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

1
2
Dim qry As QueryDef
Set qry = CurrentDb.CreateQueryDef("MaReqCreee", "Select * FROM Table1")

En espérant t'avoir aidé.

[Oluha]

merci pour ta réponse
mais ca ne compile toujours pas, on dirait qu'il ne reconnait pas le type QueryDef

[Tofalu]

as tu ajouté la référence dao à ton projet ?

[fdraven]

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

En espérant t'avoir aidé.

[Oluha]

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

Code :

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

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

[Arkham46]

slt,

Code :

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

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

Ou

Code :

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

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

:

[Oluha]

même message d'erreur avec les 2 propositions

[Tofalu]

http://warin.developpez.com/access/d...artie_4#L4.7.4

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 :

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

[Oluha]

toujours la même erreur sur

Code :

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

oDb.CreateQueryDef "tmpfic", stSQL

Ca pourrait pas venir du fait que c'est une base .adp ?

[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

[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

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

[Tofalu]

Utilise la connexion :

CurrentProject.Connection

[Oluha]

Voilà mon nouveau code

Code :

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

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

[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