Use empty query

[Sylvialn]

i wold like to run a query and check the year column against the Now() date. If the query returns nothing (empty), I would like to assign a new value to a field. For example: If query returns empty, newvalue = "02". How would I write this in the Microsoft Access SQL language?

 

[PaulF]

This is how you'd test for it, you can add code to the Else
part of the If-Else-End IF statement to do what you want.

Dim db As DAO.database, rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("Select * From TableNameHere Where DatePart('yyyy',[DateField]) = DatePart('yyyy',Now())&quot
With rst
If .RecordCount > 0 Then
MsgBox "Count is " & .RecordCount
Else
MsgBox "No Records"
'Add Code here to do what you want
End If
End With


PaulF