Discussion :

[jarod1990]

Bonjour,

Je souhaiterai à partir d'un clic sur un bouton exécuter un code vba qui construira une requête "select" sql.
Voici mon code :

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
Private Sub Commande76_Click()
On Error GoTo Err_Commande76_Click
Dim SQL As String
Dim rst As DAO.Recordset
 
SQL = "SELECT * FROM Identifiant;"
Set rst = CurrentDb.OpenRecordset(SQL)
 
 
Exit_Commande76_Click:
    Exit Sub
 
Err_Commande76_Click:
    MsgBox Err.Description
    Resume Exit_Commande76_Click
 
End Sub

J'aimerai que cette réquête s'affiche en tableau "tout fait", comme les requêtes réalisées avec l'assistant d'access.

Merci de me guider.

Bonne journée.
Jarod.

[Tofalu]

Bonjour, là vous ouvrez juste un recordset en mémoire. Il ne s'agit en rien d'un objet Access. Pour créer une requête Access, créez un objet Querydef.

http://warin.developpez.com/access/d...=partie_4#L4.7

[jarod1990]

Merci pour cette explication.
J'ai réussi.

Voici mon code :

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
24
25
26
27
28
29
30
 
Private Sub Commande19_Click()
On Error GoTo Err_Commande19_Click
 
Dim oDb As DAO.Database
Dim strCodeSql As String
Dim stDocName As String
'Instance l'objet database
Set oDb = CurrentDb
 
'Stocke le code SQL dans une variable
strCodeSql = "SELECT * FROM Identifiant"
 
'Crée la requête
oDb.CreateQueryDef "filtre_expo", strCodeSql
 
stDocName = "filtre_expo"
DoCmd.OpenQuery stDocName, acNormal, acEdit
 
Finally:
oDb.Close
Set oDb = Nothing
Exit_Commande19_Click:
   Exit Sub
 
Err_Commande19_Click:
MsgBox Err.Description
Resume Exit_Commande19_Click
 
End Sub

Une question cependant :Si j'execute à nouveau ce code, access m'indique que l'objet "filtre_expo" existe déjà. Comment faire ?

Cordialement.

Jarod

[Tofalu]

Il faut supprimer l'objet avant ou modifier le SQL au lieu de le recréer.

Mais là, j'ai un peu de mal à comprendre l'intéret d'utiliser VBA dans votre cas

[jarod1990]

Oui, dans ce cas simple pas besoin d'utilisation de vba, mais la requête sql finale est beaucoup plus compliqué (recherche multicritère sur plusieurs tables)...

Merci de vos conseils.

Jarod

[User]

Salut,

Ne Peux-tu pas utiliser un formulaire en mode feuille de donnée en affectant ton sql à sa propriété recordsource sur ouverture de ce formulaire ?

Regarde aussi du côté de la méthode OpenForm et de son argument WhereCondition...