Discussion :

[dalmasma]

Bonjour,

J'aimerais voir dans une MsgBox si ma requête SQL renvoie qqch, il faut que j'utilise quoi ?

Merci

[Azharis]

Si c'est juste pour savoir si elle renvoie quelque chose, tu peux par exemple écrire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
dim db as DAO.Database
dim rs as DAO.Recordset
dim sql as String
 
set db = CurrentDb
sql = "SELECT * FROM ..."
set rs = db.OpenRecordset(sql)
 
MsgBox "Ma requête comporte " & rs.RecordCount & " enregistrement(s)"

Ou alors

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dim db as DAO.Database
dim rs as DAO.Recordset
dim sql as String
 
set db = CurrentDb
sql = "SELECT * FROM ..."
set rs = db.OpenRecordset(sql)
 
while not rs.EOF
   ' Traitement à faire sur chaque enregistrement
   rs.MoveNext
wend

[dalmasma]

Lol t'as devancé mes pensées j'étais justement sur les recordset et je trouvais pas l'opérateur qu'il me fallait (RecordCount)

Nickel merci

[Azharis]

Pense au bouton résolu en bas de la page.

[dalmasma]

2 questions :

- ta 2e méthode permet de lire les enregistrements 1 par 1 ?

- j'ai déjà défini le recordset dans une "Public Sub" et pour tant VB Editor n'a pas l'air de le reconnaitre pourtant vu que j'ai mi "public" ça devrait non ?

[dalmasma]

lol tkt pas mais avec l'infrmatique j'attend d'être bien sûr pour clicquer sur "résolu"

[Invité]

- j'ai déjà défini le recordset dans une "Public Sub" et pour tant VB Editor n'a pas l'air de le reconnaitre pourtant vu que j'ai mi "public" ça devrait non ?

Heu

Le fait de déclarer ton recordset dans une public Sub ne donnera rien, il faut que tu le déclare en Public dans l'Entête d'un module de la maniére suivante :

Code :

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

Public rst as DAO.Recordset

Car je suis sûr que tu as écrit Dim à la place de Public dans ta sub, n'est-ce-pas ? et que ton code qui suit est dans une autre partie de ton appli.

Starec

[dalmasma]

C'est tout à fait ça (erreur classique apparemment )

J'ai tapé ça :

Code :

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

MsgBox rsPFT.RecordCount

et le débugger se lance et affiche : erreur 424 : Objet Requis

Il faut peut-être que je passe en public tout ce qui sert à définir mon recordset (en particulier la requete) non?

Merci

[Azharis]

- j'ai déjà défini le recordset dans une "Public Sub" et pour tant VB Editor n'a pas l'air de le reconnaitre pourtant vu que j'ai mi "public" ça devrait non ?

Si tu veux dire que tu as déclaré et affecté le recordset dans une procédure, alors ce ne marchera pas. Il faut que tu déclare ton recordset à l'extérieur de toute fonction ou procédure, en haut de ta page.

Code :

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

1
2
3
4
Option Compare Database
Option Explicit
 
Dim g_rs DAO.Recordset

Maintenant, le recordset g_rs est accessible dans toutes les procédures de la page. Tu peux le définir et l'utiliser là où tu veux.