Condition depuis des données issue d'une requete à une base de données
bonjour
J'ai une requête dans une fonction avec le calcul d'un nombre d'heures
Je voudrais pouvoir tester mon nombre d'heures pour savoir si j'affiche le résultat de ma requête ou non :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| Sub semaine_sup25()
Dim DSN_ODBC As String
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim OrdreSelect As String
Dim Entreprise As String
Dim lundi As String
Dim dimanche As String
Dim Interim As String
Dim ma_plage_2 As String
Application.ScreenUpdating = False
DSN_ODBC_BRZ = Worksheets("Connect").Range("ADO").Value
CN.Open DSN_ODBC
'test nb heures comprises entre 36 et 43
' ma condition est : 36<=nb_h<=43
' contenu du select
OrdreSelect = "SELECT (sum( nb_h)-35 ) FROM HEURES "
RS.Open OrdreSelect, CN, adOpenStatic, adLockOptimistic, adCmdText
Range("C43").CopyFromRecordset RS
RS.Close
CN.Close
Set RS = Nothing
Set CN = Nothing
End Sub |
Merci par avance
Christophe
