vba recuperation valeur

Bonjour a tous j'ai un petit souci j'ai un erreur de type lorsque j'execute le code suivant: il arrive quand aucune donnée est trouvée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
    requete=select sum("...") from ...
    Set ma_connexion = CurrentProject.Connection
    Dim cnn As New ADODB.Command
    Dim rs As New ADODB.Recordset
    Set cnn.ActiveConnection = ma_connexion
    cnn.CommandType = adCmdText
    cnn.CommandText = requete
    Set rs = cnn.Execute
    If rs.EOF And rs.BOF Then
    trouve_reel = 0
    Else
    trouve_reel = rs.GetString
    End If
    ma_connexion.Close

Bonjour.

Tu pourrais essayer

Code:

If rs.EOF Or rs.BOF Then

Bon courage,

PGZ

si tu remarques dans le code il s'y trouve deja
mais l'erreur apparait lors du rs.getstring

Merci de t'etre penché sur le probleme pgz
c'est bon j'ai trouvé le petit probleme ;)