Discussion :

[molene34]

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 :

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
 
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

[User]

Bienvenu sur la planète Access !

Tu dois ouvrire un recordSet:

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
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 :

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

1
2
3
4
5
If (rs.eof) Then 
HeuRécup = 0
Else 
HeuRécup = rs!Temps
End If

@+

[molene34]

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

[User]

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

sinon:

dans ton sql essai:

Code :

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

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));"

@+

[molene34]

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

[User]

N'oublie pas le tag résolu !