Hallo hirustar
Habe Dir mal einen kleinen Code bebastelt. Damits schnell geht ganz primitiv mit einem Data Objekt. Zum Testen braucht Du eine
Access-Datenbank: Test.mdb
Eine Tabelle: Uhrzeit
Ein Feld: Uhrzeit
FeldTyp: Datum/Uhrzeit
Formt: Zeit, lang
Für die Form:
Ein CommandButton: Command1
Ein Dataobjekt: Data1
Ich hoffe das Du das gebrauchen kannst, Jürgen
Option Explicit
Const iMaxDatensätze = 100
Dim datZeitVon As Date
Dim datZeitBis As Date
Dim rst As Recordset
Dim sFile As String
Private Sub Command1_Click()
Dim datUhrzeit As Date
Dim datDatum As Date
Dim sql As String
Dim i As Integer
Data1.RecordSource = „SELECT * FROM Uhrzeit“
Data1.Refresh
Set rst = Data1.Recordset
'Vorhandene Daten löschen
With rst
If .RecordCount > 0 Then
.MoveLast
While Not .EOF
.Delete
.MoveFirst
Wend
End If
End With
Me.Cls
'Neue Daten in Datenbank schreiben
Randomize
For i = 1 To iMaxDatensätze
'Zufallsuhrzeit
datUhrzeit = TimeSerial(Rnd * 1, Rnd * 59, 0)
'In Datenbank speichern
rst.AddNew
rst!Uhrzeit = datUhrzeit
rst.Update
Next i
'Zeitraum festlegen
datZeitVon = CDate(„00:50:00“)
datZeitBis = CDate(„01:10:00“)
sql = "SELECT * FROM Uhrzeit " & _
„WHERE Uhrzeit BETWEEN #“ & datZeitVon & „# AND #“ & datZeitBis & "# " & _
„ORDER BY Uhrzeit;“
Data1.RecordSource = sql
Data1.Refresh
Set rst = Data1.Recordset
With rst
.MoveFirst
While Not .EOF
Me.Print rst!Uhrzeit
.MoveNext
Wend
End With
End Sub
Private Sub Form_Load()
sFile = App.Path & „“ & „Test.mdb“
Data1.DatabaseName = sFile
End Sub
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]