[AC-2003] Récupérer résultat d'une requête

[rene10]

bonjour a tous,

Je voudrais construire une fonction me permettant d'exécuter une requête et suivant le résultat obtenu renvoyer un paramètre : 1 ou 0 .

Merci d'avance,

René

[ClaudeLELOUP]

Bonjour,

Voici un bout de code dont tu pourrais t'inspirer.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Sub DAOOpenRecordset()
    Dim rst As DAO.Recordset
    Dim sSQL As String, Résultat As String
    sSQL = "SELECT APPELLATIONS.APPELLATION  FROM APPELLATIONS WHERE (((APPELLATIONS.ordreAPPELLATION)=""01""));"
       ' Ouverture du recordset
    Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    Résultat = rst(0)
    Debug.Print Résultat
 
    ' Fermeture du Recordset
    rst.Close
End Sub

Reviens, avec plus de détails sur ton cas concret, si tu as besoin d'aide.

[rene10]

Merci pour ta réponse si rapide.

Ton code marche bien sauf dans le cas ou la requête exécutée ne renvoie aucun enregistrement. comment gérer les cas ou la requête ne renvois aucun enregistrement ?

[GAYOT]

Bonjour
Juste un petit quelque chose à rajouter à ce que t'as écrit Claude LELOUP

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub DAOOpenRecordset()
    Dim rst As DAO.Recordset
    Dim sSQL As String, Résultat As String
    sSQL = "SELECT APPELLATIONS.APPELLATION  FROM APPELLATIONS WHERE (((APPELLATIONS.ordreAPPELLATION)=""01""));"
       ' Ouverture du recordset
    Set rst = CurrentDb.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    If Not rst.Eof Then  's'il y a d'enregistrements
Résultat = rst(0)
    Debug.Print Résultat
Else 'sinon
MsgBox "il n'y a pas d'enregistrements"    'ou autre code
End if
    ' Fermeture du Recordset
    rst.Close
End Sub

[ClaudeLELOUP]

Merci pour ta réponse si rapide

... et GAYOT - que je salue au passage - est encore plus rapide !

Quel Forum, n'est-il pas, René !