Discussion :

[mfraysse]

Bonjour,

dans le cas ou ma requete ne renvoie rien, la fonction isnull ne fonctionne pas.
Pouvez-vous me dire ce qui ne fonctionne pas?

Merci

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
Public Function GetMarginCLITRESODay(dateJour As Date) As Double

Dim requete As String, reponse As Recordset
'ouverture de la base de données
Set dbClio = OpenDatabase(databaseChemin)
requete = "SELECT sum(c.eur)+sum(c.jpy)/t.jpy + sum(c.usd)/t.usd + sum(c.cad)/t.cad + sum(c.nok)/t.nok + sum(c.aud)/t.aud + sum(c.dkk)/t.dkk + sum(c.gbp)/t.gbp AS totalCliTreso" _
& " FROM clitreso c, tauxchangedujour t where c.opening_date = #" & Format(dateJour, "mm/dd/yyyy") & "# GROUP BY t.jpy, t.usd, t.cad, t.nok, t.aud, t.dkk, t.gbp"
Set reponse = dbClio.OpenRecordset(requete)
If IsNull(reponse.Fields("totalCliTreso")) Then
GetMarginCLITRESODay = 0
Else
'Range("m1").Value = requete
GetMarginCLITRESODay = reponse.Fields("totalCliTreso").Value
End If
reponse.Close
dbClio.Close

End Function

[Invité]

Bonjour,
dans le cas d'une requête c'est eof qui retourne si il n'y a pas d'éléments

Code :

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

1
2
3
4
5
if rs.eof = false then 'false il y a des élments
msgbox "ok"
else
msgbox "ko"
end if

[mfraysse]

j'ai mis cela pour corriger le problème, qu'en penses tu?

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
Public Function GetVolumeEmpruntsMonth(devise As String, month As Integer) As Double
 
    Dim requete As String, reponse As Recordset
    'ouverture de la base de données
    Set dbClio = OpenDatabase(databaseChemin)
    requete = " select sum(volume_Emprunt)as sommeEmprunt from transactions where month(opening_date) = '" & month & "' and currency1 = '" & devise & "'"
    Set reponse = dbClio.OpenRecordset(requete)
'   If IsNull(reponse.Fields("sommeEmprunt")) Then
    If reponse.RecordCount = 0 Then
        GetVolumeEmpruntsMonth = 0
    Else
        GetVolumeEmpruntsMonth = reponse.Fields("sommeEmprunt").Value
    End If
    reponse.Close
    dbClio.Close
 
End Function

[Invité]

Code :

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

1
2
3
4
5
If reponse.RecordCount = 0 Then
GetVolumeEmpruntsMonth = 0
Else
GetVolumeEmpruntsMonth = reponse.Fields("sommeEmprunt").Value
End If

en théorie oui en pratique non!
par défaut, OpenRecordset ouvre un recordset en Dynaset ??????? ça veut dire dynamiquement, tu peux le modifier:

Code :

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

1
2
reponse.Fields("totalCliTreso")=152
reponse.Update

tu peux ajouter des enregistrement:

Code :

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

1
2
3
reponse.AddNew
reponse.Fields("totalCliTreso)"=152
reponse.Update

le reponse.RecordCount te donnera la position du curseur dans les enregistrements du Recordset par zéro après exécution de la requête 1 après un reponse.MoveNext.
pour obtenir la bonne valeur il faut soit faire reponse.MoveLast pour te positionner à la fin du Recordset, mais il y a erreur si la requête ne retourne rien;
soit définir ton RecordSet en lecture seule;
soit un requête don le scripte SQL ne permet pas de mise à jour dynamique exemple 2 table lier sans clé d'index.
la solution la plus pratique est de vérifier la position du curseur dans le recordSet au début ou à la fin sachant que le début n'est pas la fin sauf si la requête ne retourne rien dans ce cas c'est la même chose.

Code :

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

1
2
3
4
5
If reponse.BOF=reponse.EOF Then 'BOF le début et EOF la fin
      GetVolumeEmpruntsMonth = 0
Else
     GetVolumeEmpruntsMonth = reponse.Fields("sommeEmprunt").Value
End If

[mfraysse]

Ok merci pour ton aide c est parfait !