Heb geen Access meer op mijn pc draaien, wel VB.
Anne,
Het spijt mij zeer dat ik je niet verder kan helpen. Ik neem aan dat je MS-Access gebruikt. Ik heb het pakket Access namelijk niet meer op mijn pc staan.
Bovendien, werkte ik ook niet zo vrij geregeld met Access.
Ik probeer je nu eigenlijk via een andere weg uit te leggen hoe je het gegevenstype date/time moet gebruiken, zodat je niet meer gebruik hoeft te maken van de 3 extra velden die je creëerde om dat ene bewuste veld (t) uiteindelijk de juiste weergave v.d. tijd te kunnen weergeven.
Ik heb voor hetzelfde doel een korte code in VB(Visual Basic, bijna als VBA) geschreven. Ik weet, dat dit niet je vraag is. Ik wil je hier alleen maar even laten zien hoe ik gebruik maakte van het gegevenstype "date/time".
Eigenlijk om precies te zijn, het gegevenstype Time, want dat wil je tenslotte ook.
Nogmaals, mijn voorbeeld berust op het gebruik van het pakket VB.
Om te beginnen heb ik eerst een Databaseje genaamd tijd1.mdb aangemaakt. Omdat ik dit databaseje toch alleen maar gebruik voor het testen van één veld ,heb ik ook maar één veld alsmede één tabel in dat databasje gedefinieerd. En dat veld heet "tijd" met het gegevenstype time . De naam v.d. tabel is "tblAnne".
Verder heb ik op het Form een tekstvak en een knop geplaatst. Daarbij is het tekstvak aan een zogeheten DAO-control gekoppeld, zodat er een koppeling tussen het tekstvak en het databaseje ontstaat.
Dat werkt als volgt, wanneer er op de knop geklikt wordt, dan wordt de actuele tijd in het tekstvak weergegeven, maar ook het veld "tijd" in het databaseje wordt dan ge-update.
Ik heb dit ook getest en het werkt naar behoren.
Hieronder de code voor het event v.d. knop.
Code:
Private Sub Command1_Click()
Dim dbMijnDatabase As Database
Dim rstTijd As Recordset
Dim strSqlTijd As String
Dim strActueleTijd As String
strActueleTijd = Time
strSqlTijd = "INSERT INTO tblAnne (tijd) VALUES ('" & strActueleTijd & "');"
Set dbMijnDatabase = OpenDatabase("c:\testdb\tijd1.mdb")
Set rstTijd = dbMijnDatabase.OpenRecordset("tblAnne", dbOpenTable)
dbMijnDatabase.Execute strSqlTijd
Data1.Refresh
Data1.Recordset.MoveLast
dbMijnDatabase.Close
End Sub
Nogmaals, sorry hoor. Maar misschien lukt het je verder wel aan de hand van dit stukje informatie om verder in Access te gaan werken. Ik hoop ook dat anderen je misschien kunnen helpen met je vraag.
Groetjes,
Dennis.