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

[egg3774]

Voici le code que j'ai un peu adapté à mes besoins. Le code fonctionne pas tous à fait comme je le voudrais.

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
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub OK_Click()
On Error GoTo Err_OK_Click
 
Dim estTrouve As Boolean
Dim db As DAO.Database
Dim r As DAO.Recordset
Set db = CurrentDb
Set r = db.OpenRecordset("qry_user") 'Ceci est une requête
 
If r.RecordCount <> 0 Then
         estTrouve = True    
  Else
         estTrouve = False    
End If
 
r.Close: Set r = Nothing
db.Close: Set db = Nothing
 
If estTrouve Then
        MsgBox ("Welcome / Bienvenue"), vbOKOnly
        DoCmd.Close  
  Else
        MsgBox ("Username or password not valide / Nom d'utilisateur ou mot de passe invalide"), vbOKOnly       
End If
 
Exit_OK_Click:
    Exit Sub
Err_OK_Click:
    MsgBox Err.Description
    Resume Exit_OK_Click   
End Sub

Voici la structure de ma base de données sur laquelle j'effectue mon travail.
2 formulaires construits à partir de 2 tables (Frm_A et tbl_B...).
La table_A recoit les informations recueillies par le formulaire_A soit le nom de l'utilisateur et le mot de passe.
La table_A recoit les information par le formulaire_B sur les utilisateurs autorisés à travailler sur la base de données.
Une requête (qry_user) a été créée pour vérifier si les informations recueilli dans la table_A par le formulaire_A correspond à un utilisateur dans la table_B.
Au départ, la table_A est vide (Cette table est nécessaire pour conserver les nom d'utilisateur et mot de passe du dernier utilisateur s'il le désir).
Sur le formulaire_A, j'exécute le code ci-haut à l'aide d'un bouton OK. Et voila ou je rencontre un léger problème. Quand j'exécute le code (bouton OK) pour la première fois, la requête "qry_user" n'a pas encore été exécuté et le résultat n'est pas bon même si les informations entrés dans le formulaire_A est valide. Ici c'est claire que la requête ne contient aucun enregistrement puisqu'elle n'a pas encore été exécuté.

Ma question est, comment puis-je exécuter la requête avant d'effectuer les tests des If..Else..End If ?

merci,

egg3774