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