Office: (Office 2013) Zeitraum ermitteln

ebs17 · 21. August 2015

Code:

Sub testUeberschneidung()
Dim sSQL As String
Dim rs As ADODB.Recordset ' Verweis auf Microsoft ActiveX Data Object X.X Library

sSQL = "SELECT KD_Id, Datum_time, Uhrzeit_Von, Uhrzeit_Bis FROM tblX" & _
" WHERE MA_Id = " & Me.txtMA_Id & _
" AND KD_Id = " & Me.txtKD_Id & _
" AND Datum_time = " & cSql(Me.txtDatum, vbDate) & _
" AND Uhrzeit_Von < " & cSql(Me.txtPrüfEnde, vbDate) & _
" AND Uhrzeit_Bis > " & cSql(Me.txtPrüfStart, vbDate)

Set rs = New ADODB.Recordset
With rs
.ActiveConnection = CurrentProject.Connection
.Source = sSQL
.Open
If .EOF Then
' keine Überschneidung und weiter
Else
MsgBox "In diesem Zeitraum wurde bereits eine Tätigkeit absolviert:" & vbCrLf & _
"Kunde" & vbTab & "Datum" & vbTab & "Uhrzeit_Von" & vbTab & "Uhrzeit_Bis" & vbCrLf & _
.GetString(, , vbTab, vbCrLf), vbOKOnly

End If
.Close
End With
Set rs = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

- Fehlenden Test auf Datum ergänzt
- SELECT-Teil der Abfrage für Ausgabe geändert
- Recordset auf ADODB geändert, weil hier die Textausgabe über Getstring simpel und schnell ist.

dasschlumpf · 23. August 2015

Ah interessant, jetzt weiß ich auch warum das bei mir mit dem Datum nicht geklappt hat. Den "cSql" Part hatte ich weggelassen.

Ich habe es getestet und es funktioniert genau so wie ich es mir vorgestellt habe, herzlichen Dank an alle, die Ihre Vorschläge eingebracht haben!
Vor allem an ebs17, da das genau das war was ich suchte.

Wunderbar.

Gruß
Schlumpf

Office: (Office 2013) Zeitraum ermitteln

Zeitraum ermitteln

Zeitraum ermitteln

Zeitraum ermitteln - Similar Threads - Zeitraum ermitteln

Zeitdifferenz in Monaten wenn Zeitraum...

Anwesenheit in einem Zeitraum grafisch darstellen

PowerQuery Zeiträume miteinander vergleichen

Werte auf Zeitraum verteilen

Erstellung Angebot mit 6 Zeiträumen und 4 Preiskategorien

Zusammenhängende Zeiträume in einer Spalte erkennen und Start- sowie Enddatum ermitteln

Aufträge in Zeiträumen ermitteln