Invalid use of null

[GraeagleBill]

Option Compare Database
Option Explicit
Private Const TwipsPerInch = 1440
Private Const ControlWidth = 3060 'The image control width 2.125" x TwipsPerInch
Dim a() As String
Dim CurYear As Variant

Private Sub Form_Open(Cancel As Integer)

CurYear = Year(DATE) <<<<<<<<<<<<< Why do I get "Invalid use of Null" on this statement? I do this elsewhere in the app without error.

[snip]
End Sub

[pbaldy]

You don't have a field named Date, do you?

[GraeagleBill]

Hi Paul,
Yes. I'd totally forgotten the RecordSource for the form has a "Date" field returned by the query. I will easily resolve that.
Thanks,
Bill

[pbaldy]

Happy to help!