Discussion :

[ender06]

J'ai de regardé sur la FAQ et sur l'aide d'access mais j'ai pas trouver se que je voulais (plutot l'aide ne m'a pas ouvert les pages que j'aurai souhaité )

Bon je sais que l'on peut exécuter du SQL mais pas n'importe quoi et pas avec n'importe quel fonction

D'après se que j'ai compris docmd.runSQL permet du sql genre insertion, delete

Mais pour faire des sommes ou juste une selection pour visualiser un résultat on UTILISE quoi ???

ps: pour faire une sélection toute simple je sais que je peux utilisé des requetes via access mais je veux pas

[random]

openrecordset

[Junior_jef]

Tu trouveras ton bonheur ici:

http://access.developpez.com/faq/?page=SQL#Recordset

[ender06]

je l'avait déjà lu mais vu mon niveau en vba ....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Sub DAOOpenRecordset ()
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    ' Ouverture de la base de données 
    Set db = DBEngine.OpenDatabase (".\Comptoir.mdb")
    sSQL =  "Select * From CLIENTS Where Région= 'WA'"
    ' Ouverture du recordset 
    Set rst = db.OpenRecordset (sSQL, dbOpenForwardOnly, dbReadOnly)
    ' Fermeture du Recordset
    rst.Close
End Sub

Est t'on obliger d'utilser : Set db = DBEngine.OpenDatabase (".\Comptoir.mdb")
si ma base est déjà ouvert (je travaille dessus)
Car je vois qu'on réutilise db.XXXX par la suite

[Arkham46]

bjr,

utilise :

Code :

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

Set db = CurrentDB

[ender06]

suite a vos instructions j'ai fait un test mais qui ne marche évidement pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  ' Me.txtFiltreTot.Value = DCount("IdDonateur", "tableDonateur")
 
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    ' Ouverture de la base de données
    Set db = CurrentDb
    sSQL = "Select count(*) From tableDonateur"
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(sSQL)
    Me.txtFiltreTot.Value = rst
    ' Fermeture du Recordset
    rst.Close

la première ligne en commentaire fonctionne, la suite bin j'essai de reproduire cette ligne

Alors il n'y a pas d'erreur signalé mais rien ne s'affiche à l'emplacement prévu, je suppose qu'il ne faut pas utiliser la fonction de cette manière ...

En tout cas déjà merci pour votre aide déjà fournit