Tijden optellen in Access

[els21361]

In koppel Excell bestanden aan Access en wil nu tijden gaan optellen in volgend
formaat: u:mm:ss,000. bv 04:45:33,987.

Deze tijden staan in tekstformaat en hierdoor is het mij niet mogelijk deze
in Access op te tellen.
Als in ze in Excell optel lukt me dat wel, maar dan wordt de som in "tijd" weergegeven en komt dat niet goed in Access

 

[OctaFish]

Dat zie je helemaal correct. In Access houdt het optellen van tijd op bij mm:ss. En wat is de vraag?

 

[els21361]

Michel,
In Excell staan de tijden als "tekst". Deze excell-file is gekoppeld in Access.
Hoe zet in tekst om naar tijden?

 

[OctaFish]

Niet; zeker niet als je duizenden wilt opslaan. Access herkent tijden alleen als ze bestaan uit dagen, uren, minuten en secondes. Dus het blijft ook in Access een tekstveld.

 

[perpon]

Wellicht kan je iets met deze routine hierbij zijn me.stijd1 en me.stijd2 de waarden uit de excel tabel.

Private Sub Knop7_Click()
Dim tijd1 As Date, tijd2 As Date, tijd3 As Date, h As Variant, htijd As Date
Dim msec1 As Integer, msec2 As Integer, msec3 As Double
Dim i As Integer
i = InStr(Me.stijd1, ",")
tijd1 = Format(Left(Me.stijd1, i - 1), "hh:mm:ss")
msec1 = Right(Me.stijd1, Len(Me.stijd1) - i)

i = InStr(Me.stijd2, ",")
tijd2 = Format(Left(Me.stijd2, i - 1), "hh:mm:ss")
msec2 = Right(Me.stijd2, Len(Me.stijd2) - i)
tijd3 = tijd1 + tijd2
msec3 = msec1 + msec2

h = "00:00:" & Format(Int(msec3 / 1000), "00")
htijd = CDate(h)
If msec3 >= 1000 Then
msec3 = msec3 - 1000
End If
tijd3 = tijd3 + htijd
MsgBox Format(tijd3, "hh:mm:ss") & "," & Format(msec3, "000")
End Sub

Wel nog oplossing verzinnen wanneer het aantal uren boven de 24 komt

Jan