VBA et SQL

Bonjour,
Je souhaite renseigner dans un état le champ nomé "Hrec" par la fonction HeuRécuo() VBA. La requête doit retouver le temps correspondant pour un intervenant, un travail et une date donné. Je ne maitrise pas le SQL sous VBA.
Comment d'après cette requête, renseigner le champs "Hrec"

Voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Function HeuRécup() Dim dhDate As Date Dim dhInter As String Dim strSQL As String   dhDate = Me.[Date] dhInter = Me.IDIntervenant   strSQL = "SELECT [T-Fiche].Temps FROM [T-Fiche] WHERE ((([T-Fiche].IDIntervenant)=" & dhInter & ") AND (([T-Fiche].Date)=" & dhDate & ") AND (([T-Fiche].IDTRavail)=17));"   If IsNull(strSQL) Then HeuRécup = 0 Else HeuRécup = strSQL End If   End Function

---

Merci pour les réponses
Molène34

Bienvenu sur la planète Access ! :roll:

Tu dois ouvrire un recordSet:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Function HeuRécup() Dim dhDate As Date Dim dhInter As String Dim strSQL As String Dim rs As DAO.recordSet   dhDate = Me.[Date] dhInter = Me.IDIntervenant   strSQL = "SELECT [T-Fiche].Temps FROM [T-Fiche] WHERE ((([T-Fiche].IDIntervenant)=" & dhInter & ") AND (([T-Fiche].Date)=" & dhDate & ") AND (([T-Fiche].IDTRavail)=17));"   set rs=currentdb.OpenRecordSet(strSQL,dbOpenSnapshot)   If IsNull(rs!Temps) Then HeuRécup = 0 Else HeuRécup = rs!Temps End If   End Function

---

ou encore pour le IsNull:

Code:

---

1 2 3 4 5

If (rs.eof) Then HeuRécup = 0 Else HeuRécup = rs!Temps End If

---

@+

Merci pour cette réponse rapide.
Effectivement il se passe bien quelque chose, par contre le champ "Hrec" est toujour égale à #Erreur si j'utilise le premier code ISNULL et à 0 pour le second code.
Lorsque j'effectue la requête sous Access j'ai bien le résultat escompté ( le résultat est toujour unique) . La requête sous VBA est elle bonne ?
Mon explication de départ n'est peut être pas très explicite.
Le champ "Hrec" fait partie d'un tableau journalier de travail qui qui est classé par semaine, la requette doit donc vérifier pour chaque jour de la semaine "Hrec" est égale à 0 ou non.

Merci pour l'aide

Molène34

Il nous faudrait une vue de ton état (1 copie d'écran) pour éclaircir tout ca:

si tu as 1 espace d'hebergement tu n'as qu'a transferer l'image de ton état sur ton espace et mettre l'url de ton image sur ton nouveau message :wink:

sinon:

dans ton sql essai:

Code:

---

1 2	strSQL = "SELECT [T-Fiche].Temps FROM [T-Fiche] WHERE ((([T-Fiche].IDIntervenant)=" & dhInter & ") AND (([T-Fiche].Date)=" & Chr(35) & Format(dhDate, "mm/dd/yy") & Chr(35) & ") AND (([T-Fiche].IDTRavail)=17));"

---

@+

Un grand merci, le champ "Hrec" est correctement renseigné.
A+[/url]

N'oublie pas le tag résolu ! :wink: