Office: (Office 2003) SQL-Abfrage mit Kriterium Datum=Heute

DbSam2003 · 19. März 2017

Ja, daran hatte ich jetzt nicht gedacht.
Also so: Code:

Private Sub Form_Open(Cancel As Integer)
Dim db As DAO.Database
Dim sql As String, s As String
Dim rs As DAO.Recordset

sql = "SELECT COUNT(*) FROM Wiedervorlage WHERE WDatum >= Date() AND WDatum < Date()+1"
Set db = CurrentDb
Set rs = db.OpenRecordset(sql, dbOpenDynaset)

Select Case rs(0)
Case 0
s = "Erinnerung: Für heute gibt es keine Wiedervorlagen!"
Case 1
s = "Erinnerung: Für heute gibt es eine Wiedervorlage!"
Case Else
s = "Erinnerung: Für heute gibt es " & rs(0) & " Wiedervorlagen!"
End Select

MsgBox s, vbInformation

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

danielv · 19. März 2017

Hallo zusammen,

ich danke Euch sehr! Im folgenden Code ist nun von jedem etwas dabei *Smilie und der tut genau das, was ich will (zwischenzeitlich um 2 weitere Kriterien erweitert):
Code:

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err

RequeryWiedervorlage

Dim db As DAO.Database
Dim sql As String
Dim rs As DAO.Recordset

sql = "SELECT COUNT(*) FROM Wiedervorlage WHERE (((Format(Wiedervorlage.WDatum,'yyyymmdd'))=Format(Date(),'yyyymmdd'))) And Wiedervorlage.WDatum Like '*:*' And Bearbeitung = " & glBearbeiter & ";"
Set db = CurrentDb
Set rs = db.OpenRecordset(sql, dbOpenDynaset)

Select Case rs(0)
Case 1
MsgBox "Erinnerung: Für heute gibt es 1 Wiedervorlage mit Uhrzeit-Vorgabe."
Case Else
MsgBox "Erinnerung: Für heute gibt es " & rs(0) & " Wiedervorlagen mit Uhrzeit-Vorgabe."
End Select

myExit:
Exit Sub
Err:
If debugApp Then _
MsgBox Me.Form.Name & " - Form_Open " & vbCr & "ErrNr. " & Err.Number & vbCr & Err.Description
Resume myExit
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

danielv · 19. März 2017

Ok, vielen Dank, so ist's natürlich noch eleganter: Code:

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err

RequeryWiedervorlage

Dim db As DAO.Database
Dim sql As String, s As String
Dim rs As DAO.Recordset

sql = "SELECT COUNT(*) FROM Wiedervorlage WHERE WDatum >= Date() AND WDatum < Date()+1 And Wiedervorlage.WDatum Like '*:*' And Bearbeitung = " & glBearbeiter & ";"
Set db = CurrentDb
Set rs = db.OpenRecordset(sql, dbOpenDynaset)

Select Case rs(0)
Case 1
s = "Erinnerung: Für heute gibt es 1 Wiedervorlage mit Uhrzeit-Vorgabe."
Case Else
s = "Erinnerung: Für heute gibt es " & rs(0) & " Wiedervorlagen mit Uhrzeit-Vorgabe."
End Select

MsgBox s, vbInformation

myExit:
Exit Sub
Err:
If debugApp Then _
MsgBox Me.Form.Name & " - Form_Open " & vbCr & "ErrNr. " & Err.Number & vbCr & Err.Description
Resume myExit
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17 · 19. März 2017

Wenn es um Eleganz und weiteres geht: Zum Lesen eines Wertes braucht man kein schreibendes Recordset:
Code:

Set rs = db.OpenRecordset(sql, dbOpenForwardOnly)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2003) SQL-Abfrage mit Kriterium Datum=Heute

SQL-Abfrage mit Kriterium Datum=Heute

SQL-Abfrage mit Kriterium Datum=Heute

SQL-Abfrage mit Kriterium Datum=Heute

SQL-Abfrage mit Kriterium Datum=Heute - Similar Threads - SQL Abfrage Kriterium

SQL-Abfrage mit where

Abfrage mit den jüngsten Einträgen erstellen

Ergebnis einer SQL Abfrage ausgeben/benutzen

Excel 2016 ODBC SQL Abfrage mit Zellbezug

SQL Abfrage: Jahreszahl selektieren

Access SQL Abfrage

[VBA] Wert aus SQL-Abfrage in Variable speichern