Datenbankabfrage mit heutigem Datum vergleichen

Computer: Software & Programmierung Visual Basic
#1

Hi Leute…

ich bin hier leider etwas neu und versuche mich gerade an einem Rechnungsprogramm

Hierfür benötige ich eine Prozedur zum Mahnen. Dabei sollen die Werte in der Datenbank verglichen werde und wenn das Zahlungsziel um 30 Tage überschritten ist soll das in der Liste ausgegeben werden und auch gleichzeitig die Mahung geschrieben werden. So weit bin ich:

Private Sub Command4_Click()

Data2.Recordset.Filter = "bezahlt = null And zahlungsziel > (date+30) "

Set Data2.Recordset = Data2.Recordset.OpenRecordset()
Data2.Recordset.MoveFirst

Do Until Data2.Recordset.EOF
List1.AddItem (Data2.Recordset.Fields(„rechnungsnummer“)) & „, Kundendaten:“ & (Data2.Recordset.Fields(„kundendaten“))
Data2.Recordset.MoveNext
Loop

End Sub

Nur leider klappt das mit dem (date+30) nicht so recht. Was kann ich tun ?

Danke, Sascha

#2

vielleicht so?
Hallo!

Der Ausdruck

Data2.Recordset.Filter = "bezahlt = null And zahlungsziel \> (date+30) "

kann so tatsächlich nicht funktionieren. Die variablen Teile dürfen nicht mit in die „Anführungszeichen“, also:

Data2.Recordset.Filter = "bezahlt = null And zahlungsziel \> " & date + 30

Und müsste es nicht eigentlich Zahlungsziel Data2.Recordset.Filter = "bezahlt = null And zahlungsziel

Vielleicht kannst Du das auch über eine SQL-Abfrage lösen:

SELECT \* from [Tabelle] WHERE bezahlt=null AND zahlungsziel 

Ich hoffe, hiermit ein klein wenig geholfen zu haben..

Gruß
(Woly)