Function ISnull en vba

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:

---

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

---

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

Code:

---

1 2 3 4 5

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

---

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

Code:

---

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

---

Citation:

---

Code:

---

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:

---

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

---

tu peux ajouter des enregistrement:

Code:

---

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:

---

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

---

Ok merci pour ton aide:) c est parfait !