Discussion :

[egg3774]

Bonjour,

Est-il possible d'effectuer une opération sur le résultat d'une requête ?
Dans un formulaire j'utilise "DoCmd.OpenQuery" pour comparer les informations de deux tables avec une structure et champs identiques. J'aimerais pouvoir exécuter une opération A s'il a un résultat positif et sinon une opération B. J'utilise un IF...Else... End If pour ce travail. Mon problème est que je ne sais pas comme extraire un résultat quelconque de ma requête avec lequel pourrait baser le choix du If. Les seuls résultats possibles de ma requête est un résultat (match) ou Null (unmatch).

Merci

egg3774

[marot_r]

Quand j'ai un cas comme cela voilà ce que je fais.

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
 
dim db as dao.database:set db=currentdb
dim r as dao.recordset:set db.openrecordset("NomDeTaRequete")
dim estTrouve as boolean
 
if r.recordcount=0 then
     estTrouve=false
  else
     estTrouve=true
end if
 
r.close:set r=nothing
db.close:set db=nothing
 
if estTrouve then
    'Faire ce qu'il faut
  else
    'Faire autre chose
end if

[egg3774]

Quand j'ai un cas comme cela voilà ce que je fais.

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
 
dim db as dao.database:set db=currentdb
dim r as dao.recordset:set db.openrecordset("NomDeTaRequete")
dim estTrouve as boolean
 
if r.recordcount=0 then
     estTrouve=false
  else
     estTrouve=true
end if
 
r.close:set r=nothing
db.close:set db=nothing
 
if estTrouve then
    'Faire ce qu'il faut
  else
    'Faire autre chose
end if

Un gros merci.

Mais je reçois un message de "Compile error: Expected:=" au niveau de la deuxième ligne "dim r as dao.recordset:set db.openrecordset(qry_user)

[egg3774]

je crois que j'ai trouver la source de l'erreur. Il manquait ceci:

Avant:
dim r as dao.recordset:set db.openrecordset("NomDeTaRequete")

Après:
dim r as dao.recordset:set r = db.openrecordset("NomDeTaRequete")

[marot_r]

Merci à egg3774 pour la correction.

A+

[egg3774]

Wow ... merci à marot_r ton le code. Ca fonctionne à merveille !

egg3774