Bonjour
Voici un bout de code. la donnée dateArrt est de type string. Quand je la met dans la requête req et que je l'exécute ça me dit que cette date n'existe pas dans la table 0000_table_des_jours (où la donnée DATE_ARRT est de type date/heure), en effet le curseur rs1 est vide.
Est ce un souci de format ?
Merci d'avance
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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38 '========================================================================================= ' Déclaration des variables '========================================================================================= Dim objFSO Dim ligne As String Dim db As Database Dim rs1 As Recordset Dim req As String Dim qd As QueryDef Dim wb As Excel.Workbook Dim ws As Excel.Worksheet Dim NAgence As Double Dim dateArrt As String Set db = CurrentDb '========================================================================================= ' Déclaration des périodes '========================================================================================= dateArrt = InputBox("Date d'arrêté du suivi ? (ex: 18/11/2014)") Do While (Len(dateArrt) <> 10) dateArrt = InputBox("Date d'arrêté du suivi ? (ex: 18/11/2014)") Loop 'On recupère les dates req = "select * from [0000_Table_des_Jours] where DATE_ARRT = " & dateArrt & ";" Set rs1 = db.OpenRecordset(req) If Not rs1.EOF Then dateArrtJour = rs1(14) Else MsgBox "Date " & dateArrt & " introuvable dans la table des jours" End End If
Partager