Access + requete + VBARésolu

Question

Bonjour à tous,

je voudrais exécuter une requete de sélection en VBA afin de récupérer le resultat donné par la requete. Mais je n'y arrive vraiment pas. je sais qu'il faut faire avec un reccordset à cause du fait que la requete soit une requete de sélection.

Voici ma requete : 
" Marequete = "SELECT Last(T_Facturation.Num_facture) AS DernierDeNum_facture FROM T_Facturation;"

Quelqu'un pourrait il m'aider en me donnant ce qu'il faut faire ??

-------------------------------------------------
le pouvoir appartient à ceux qui détiennent l'information, culture et connaissance pour élargir ton champ vision ....
--------------------------------------------------

cs_frop01 · Accepted Answer

Set result = mabase.openrecordset(Marequete)
if result.RecordCount<>0 then 
 result.movefirst
 Set LastNumFact = result!DernierDeNum_facture
endif

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)

cs_frop01 · Answer

normalement c'est correct mais l'instruction Last affiche le dernier numero saisie ex : si en insere les numéros avec l'odre suivant 6,8 et 7 Last affichera 7.

si c'est une valeur numérique utilise Max :

SELECT max(T_Facturation.Num_facture) AS DernierDeNum_facture FROM T_Facturation;

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)

cs_ITALIA · Answer

tu utilises une connexion en ADO ou DAO

peux tu mettre le code qui se connecte à ta base..
et tu veux selectionner koi ??le dernier Enreg ??

It@li@

cs_lorenzo972 · Answer

oui je veux sélectionner le dernier enregistrement et j'essaye une connexion ADO.
voici mon code :

Dim mabase As Object
Dim Marequete As String
Dim result As Recordset

Set mabase = CurrentDb()
Marequete = "SELECT Last(T_Facturation.Num_facture) AS DernierDeNum_facture FROM T_Facturation;"
Set result = mabase.openreccordset(Marequete)
Set LastNumFact = result(DernierDeNum_facture) 

mais ça ne fonctionne pas vu que j'arrive pas à avoir le dernier enregistrement de ma table

-------------------------------------------------
le pouvoir appartient à ceux qui détiennent l'information, culture et connaissance pour élargir ton champ vision ....
--------------------------------------------------

cs_ITALIA · Answer

ou 
Set LastNumFact = result("DernierDeNum_facture")

It@li@

cs_lorenzo972 · Answer

Merci beaucoup ça fonctionnne !!!
-------------------------------------------------
le pouvoir appartient à ceux qui détiennent l'information, culture et connaissance pour élargir ton champ vision ....
--------------------------------------------------

Access + requete + VBA

6 réponses

Discussions similaires