Discussion :

[Echizen1]

Salut tout le monde,
voilà, je souhaite faire une simple requete Selection via VBA sous Access. Le code a l'ai naturel mais, ça plante chez moi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande0_Click()
 
Dim db As DAO.Database
Dim SQL As String
 
Set db = CurrentDb
 
 
SQL = "Select * From TableA"
DoCmd.RunSQL SQL
 
End Sub

Où est l'erreur SVP ?

[Tofalu]

RunSQL exécute une requête. Un select ne s'exécute pas.

Pour récuperer des données en VBA, il faut utiliser les recordsets. Par exemple avec DAO :

http://warin.developpez.com/access/dao

[Echizen1]

En fait, je m'y prends peut-être mal...
J'ai un formulaire avec 1 champs qui contient le nom de ma table Access.
En cliquant sur un bouton, je souhaite afficher le contenu de la table (j'ai pris la requete selection car c'est la plus simple à écrire).

Le résultat de la "requete" sera exporté vers une feuille Excel.

J'ai trouvé ça mais ça marche toujours pas :s

Code :

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

1
2
3
4
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("SELECT * FROM Table", dbOpenDynaset)

Merci

[Echizen1]

Bonjour,
A cette heure, je n'ai toujours pas trouvé .
Quelqu'un saurait comment faire SVP ?

Merci bien

[cafeine]

Hello,

merci de chercher dans la FAQ :
1- Créer la requête depuis ton SQL
http://access.developpez.com/faq/?re...er+requete+VBA

2- Ouvrir la requête
DoCmd.OpenQuery ...

[Echizen1]

Salut,
J'ai pas mal avancé sur ce petit problème (Pas évident quand on touche pas à Sql).

Voici mon code si cela peut en aider certain

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
'On vérifie si la requete existe déjà (Si oui, on la supprime)
Dim qry As QueryDef
 
For Each qry In CurrentDb.QueryDefs
    If qry.Name = "MyReq" Then
        'MsgBox "La requêtes existe déjà ! Elle va être supprimée !"
        CurrentDb.QueryDefs.Delete (qry.Name)
    End If
Next qry
 
'Création de la requête SQL
Dim ReqSQL As String
ReqSQL = "Select * From Table1"
 
CurrentDb.CreateQueryDef "MyReq", ReqSQL
 
'Ouverture/Exécution de la requête SQL
DoCmd.OpenQuery "MyReq"
 
'Fermeture de la requête SQL
'DoCmd.Close acQuery, "MyReq"
 
'Exportation vers Excel
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "MyReq", "c:\fichier.xls"

Reste un petit problème à régler :
Je souhaite que le nom de la table soit "dynamique". Autrement dit par l'intermédiaire d'un champs de Texte renseigné manuellement par l'utilisateur, la requête s'exécute sur la table en question.

Il doit s'agir d'un paramètrage mais je vois pas comment faire. J'ai essayé de m'inspirer de :

Code :

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

1
2
3
Parameters [Entrez une valeur numérique :] integer;
Select * From LATABLE
Where MONCHAMP =  [Entrez une valeur numérique :];

Si vous pouviez m'aider encore

[Echizen1]

Ça y est, j'ai réussi à l'aide d'un ancien post de cafeine
http://http://www.developpez.net/forums/showthread.php?t=208632&highlight=table+access+param%E8tre

Le "code" est donc le suivant :

Code :

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

1
2
3
4
5
6
7
Dim strSQL As String
Dim strNomTable As String
 
strNomTable = Me.Texte1
strSQL = "SELECT * FROM [" & strNomTable & "]"
 
CurrentDb.CreateQueryDef "testReq", strSQL

Voilà,
Merci bien tout le monde.
Je passe en résolu