Récupérer la date puis l'heure d'un champ date et heure

Version imprimable

18/05/2017, 15h43
jhntms

Récupérer la date puis l'heure d'un champ date et heure

Bonjour,

Je viens vers vous car je suis bloqué sur un point :cry: bien que ça ne me semble pas si compliqué...

Mon code doit importer des données Excel dans une table, ca ça passe, je le fais avec

Code:

DoCmd.TransferSpreadsheet acImport,

Puis je dois ajouter deux colonnes, la ça va aussi, je fais via :

Code:

ALTER TABLE table_name ADD column_name datatype;

ou via

Code:

Set fieldH = tbl.CreateField("heure_amb", dbDate)

J'arrive maintenant au point problématique... je dois remplir ces 2 champ (1 date et 1 heure) à partir d'un seul champ date et heure.

J'ai essayé plein de choses trouvées ici ou ailleurs mais sans succès...

Merci d'avance aux gens qui m'aideront sur ce problème! :merci:

Johan
18/05/2017, 17h50
User

Bonjour,

Essaie avec les fonctions DateValue et Timevalue.

Cdlt,

Bonjour User,

Déjà merci pour ta réponse :)

Comment puis-je faire pour intégrer dans TimeValue ou DateValue la valeur de mon champ ?

Voivi mon code, "dateheure" ne rend rien ce qui n'est pas surprenant...

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
 
Dim Db As DAO.Database
Dim tbl As DAO.TableDef
Dim dateheure As DAO.Field
 
Set Db = CurrentDb
Set tbl = Db.TableDefs("Ambiance_inter")
 
Dim date_amb As Date
Dim heure_amb As Date
 
    Set fieldH = tbl.CreateField("heure_amb", dbDate)
    Set fieldD = tbl.CreateField("date_amb", dbDate)
       tbl.Fields.Append fieldH
       tbl.Fields.Append fieldD
       tbl.Fields.Refresh
 
dateheure = "SELECT [Date et heure] FROM Ambiance_inter"
 
heure_amb = TimeValue(dateheure)
date_amb = DateValue(dateheure)
 
heure_rempl = "UPDATE Ambiance_inter SET heure_amb = #" & heure_amb & "#"
date_rempl = "UPDATE Ambiance_inter SET date_amb= #" & date_amb & "#"
 
    DoCmd.RunSQL heure_rempl
    DoCmd.RunSQL date_rempl
 
End Sub

Dans l'attente de votre réponse, merci d'avance

Bonjour,

Essayez de vous baser sur ce code :

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
Dim Db As DAO.Database
Dim tbl As DAO.TableDef
Dim fieldH As DAO.Field,fieldD As DAO.Field
 
Set Db = CurrentDb
Set tbl = Db.TableDefs("Ambiance_inter")
 
Set fieldH = tbl.CreateField("heure_amb", dbDate)
Set fieldD = tbl.CreateField("date_amb", dbDate)
tbl.Fields.Append fieldH
tbl.Fields.Append fieldD
tbl.Fields.Refresh
 
' Libérer les variables
 
Set fieldH = nothing
Set fieldD = nothing
 
set tbl = nothing
 
db.close
set db=nothing
 
date_heure_rempl = "UPDATE Ambiance_inter SET heure_amb = TimeValue([Date et heure]), date_amb = DateValue([Date et heure]) ;"
 
DoCmd.RunSQL date_heure_rempl
 
End Sub

Sous réserve que les champs "heure_amb" et "date_amb" ne soient pas déjà créés...

Cdlt,

Bonjour,

Merci de ta réponse,

Super ça fonctionne super bien !

Pour ma part j'avais trouvé ceci :

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
Dim Db As DAO.Database
'Dim rst As Recordset
 
'Set Db = CurrentDb
 
'Dim a As Long
 
'DoCmd.SetWarnings False
 
'   Do While Not rst.EOF
 
'    a = 1
 
'    heure_rempl = "UPDATE Ambiance_inter SET heure_amb = #" & Format(rst![Date et heure], "hh:nn") & "# WHERE num =  " & a & ""
'    date_rempl = "UPDATE Ambiance_inter SET date_amb = #" & Format(rst![Date et heure], "mm/dd/yyyy") & "# WHERE num = " & a & ""
 
'    DoCmd.RunSQL heure_rempl
'    DoCmd.RunSQL date_rempl
'    a = a + 1
 
'    rst.MoveNext
 
'    Loop
 
'rst.Close
 
'DoCmd.SetWarnings True

Mais c'est extrêmement long...

Encore merci pour ton aide :merci:

Johan

19/05/2017, 16h03
User

Oui, dans le code que je t'ai donné tout se fait au niveau de la requête, donc tu n'as pas besoin de faire une correspondance avec le numéro dans une boucle, et tu évites d'exécuter autant de requêtes que d'enregistrements (et même le double en fait ;))

Cdlt,
19/05/2017, 16h06
jhntms

Oui c'est ca et c'est beaucoup mieux ^^

Merci !
19/05/2017, 16h19
User

De rien,

Moi aussi je cherche toujours le plus simple ;)