VBA Test to Enable/Disable Command Button in Form-Acc03/XPhm

[NumbersMax]

Hello all!

I've been toying with a piece of code that I can't get to work...I got the ideas for this from part of various posts and I'm doing something wrong. At the moment, I get a Type Mismatch error on compile for (VarDate2 Is Null), but I have yet to get any test like this to work even when I wasn't getting an error.

Could someone check the code, please? I am an absolute novice at VBA

Private Sub Form_AfterUpdate()

Dim VarDate, VarDate1, VarDate2 As Date
VarDate = Me.BeginDate
VarDate1 = Me.EndDate
VarDate2 = Me.FiscalYear

If (VarDate Is Null) Or (VarDate1 Is Null) Or (VarDate2 Is Null) Then
  Me.Run_Art_Reporting_Macro_Button.Enabled = False
Else
  Me.Run_Art_Reporting_Macro_Button.Enabled = True
End If
End Sub

Basically, I don't want anyone to be able to touch that macro button (default not enabled) unless they first fill in the three date fields. Otherwise, they will be left waiting for the macro to give them absolutely zero data!

Any help-greatly appreciated!
Thanks,
Max

 

[Norie]

Max

Perhaps you should be using IsNull?

 

[NumbersMax]

Norie, you mean like this?

Private Sub Form_AfterUpdate()

Dim VarDate, VarDate1, VarDate2 As Date
VarDate = Me.BeginDate
VarDate1 = Me.EndDate
VarDate2 = Me.FiscalYear

If (VarDate IsNull) Or (VarDate1 IsNull) Or (VarDate2 IsNull) Then
  Me.Run_Art_Reporting_Macro_Button.Enabled = False
Else
  Me.Run_Art_Reporting_Macro_Button.Enabled = True
End If
End Sub

It gives me this error Expected: ) for the whole If/Then line!
The help box that I clicked didn't really help me

 

[Norie]

Eh, no.

More like this.

Private Sub Form_AfterUpdate() 

Dim VarDate, VarDate1, VarDate2 As Date 
VarDate = Me.BeginDate 
VarDate1 = Me.EndDate 
VarDate2 = Me.FiscalYear 

If IsNull(VarDate) Or IsNull(VarDate1) Or IsNull(VarDate2) Then 
  Me.Run_Art_Reporting_Macro_Button.Enabled = False 
Else 
  Me.Run_Art_Reporting_Macro_Button.Enabled = True 
End If 
End Sub

You should also note that those variables aren't actually all being declared as dates.

 

[NumbersMax]

OK, Thanks Norie. (Told you I was a novice! -maybe that was an understatement!)

One last thing:

I have this code as an "After Update" event for the form, but it doesn't seem to function like I hoped. What qualifies as an "Update" for the form.

I copied the same code in one of the date fields and when I update that field, it performs it's function perfectly. I can set it for all three date fields if necessary, but had hoped that by setting it on the form's after update event, any change in the form would test to see if the button should be enabled or not.

I appreciate your time