Discussion :

[PhRey]

Bonjour,
j'aimerai pouvoir recuprer le nb d'enregistrements traités par ma requete SQL, dans une MsgBox.

Voici mon code :

Code :

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

1
2
3
4
Dim stDocName1 As String
stDocName1 = "Traitement_Dossiers"
DoCmd.OpenQuery stDocName1, acNormal, acEdit
MsgBox "Vous avez traité " X "dossiers"

Ma requete "Traitement_Dossiers" n'est donc pas directement executée via VBA. Mon code y fait appel via la variable stDocName1.
Je souhaiterais recuperer le nb de lignes traitées, dans ma MsgBox.

Auriez vous une indication sur la méthode a employer svp ?
Merci par avance !

[Tofalu]

C'est une requête sélection, elle ne traite rien

Au pire essaye :

Code :

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

MsgBox "Vous avez traité " & DCount(StDocName1,"UnChampDeLaRequete") & "dossiers"

[Heureux-oli]

Ton c'est quoi.

Je me doute que c'est le nombre de fichier, mais d'où viendrait sa valeur ?

Tu dois lui attribuer une valeur pour qu'il l'affiche.

[PhRey]

Mon "X" est bien sur le nb de dossiers (ou de lignes) traités par ma requete.
Mais je ne peux pas vraiment me servir de la variable dans la MsgBox car la variable ramene le nom de la requete, et non son contenu...

Sinon d'une maniere generale, savez vous quel est le moyen de compter le nb de lignes traitées par une requete SQl svp ? (en vba)

(Je pourrais peut etre executer mes requetes en VBA et compter les lignes traitées ensuite... )

Merci pour votre aide en tout cas !

[Tofalu]

Ok, donc si c'est une requête Action, openquery ne sert à rien ici.

Code :

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

1
2
3
4
Dim stDocName1 As String
stDocName1 = "Traitement_Dossiers"
CurrentDb.execute stDocName1
MsgBox "Vous avez traité " & currentdb.RecordsAffected & "dossiers"

[PhRey]

Merci tofalu, mais ca ne me renvoit qu'un beau "0"

Extrait de l'aide vba :

Si vous utilisez la méthode Execute pour exécuter une requête Action depuis un objet QueryDef, la propriété RecordsAffected contient le nombre d'enregistrements supprimés, mis à jour ou insérés.

Si vous utilisez la propriété RecordsAffected dans un espace de travail ODBCDirect, elle ne renverra pas de valeur utilisable à partir d'une requête Action SQL DROP TABLE.

J'ai l'impression que ma requete n'est pas prise en compte par RecordsAffected ...

[PhRey]

Oups pardon je n'avais pas tout lu !
Je reecrit mon code et je reessaye !!! desolé !

[PhRey]

Bon ju'ai remplacé exactement mon code par le tient, et bizarrement je reste tjrs avec la valeur "0" pour mon currentdb.RecordsAffected... Etrange d'autant que ma requete agit bien sur mes données....

[Tofalu]

Et ainsi :

Code :

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

1
2
3
4
5
6
Dim stDocName1 As String
Dim Db As Object
Set Db = CurrentDb
stDocName1 = "Traitement_Dossiers"
Db.Execute stDocName1
MsgBox "Vous avez traité " & Db.RecordsAffected & "dossiers"

[PhRey]

NICKEL !
T'es un chef !
Un gros merci pour ta precieuse aide (comme souvent dailleurs !!!!!)