Discussion :

[leviet94]

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 :

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

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

[pgz]

Bonjour.

Tu pourrais essayer

Code :

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

If rs.EOF Or rs.BOF Then

Bon courage,

PGZ

[leviet94]

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

[leviet94]

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