SQL Statement

[thegameoflife]

How do you write a simple SQL statement in Access VBA?

I'm trying to select the MAX value of field YMDPAID from Table1.....

this is killing me

 

[RobertT687]

"SELECT MAX(YMDPAID) FROM Table1"

 

[thegameoflife]

So what is wrong with this

Sub testtest()

Dim qrysql As String
Dim today As Date

today = Date

qrysql = "SELECT MAX(YMDPAID) FROM Table1"

If qrysql = today Then
    MsgBox "good"
End If

End Sub

 

[Baudi]

Hi thegaetc

1. you define qrysql as a STRING, and you fill it with a STRING; what is in qrysql after testtest is simply the string you put in it !!!

2. I only can tell you how I would do this in Access for instance.
The Recordsource for the form is the query:
SELECT Max([Tabel1]![YMDPAID]) AS Mx FROM Tabel1

Put one textbox on the form, and it has as ControlSource:
[Mx]

When you open that form, the maximumdate of Table1 appears in that textbox, etc.