DoCmd.RunMacro code help?

[GD]

I'm trying to run some simple code (at least it should be!). If
txtVendorKeyword is empty, I need macro M02_RunQryMASTER run. And if there
is a text string there, I need macro M03_CMDMProject run. Here's what I have:

Private Sub cmdSearchAP_Click()
If Me.txtVendorKeyword Is Not Null Then
DoCmd.RunMacro "M03_CMDMSearch"
Else
DoCmd.RunMacro "M02_RunQryMASTER"
End If
End Sub

Nothing happens when I click the command button. What am I doing wrong?
THANKS!!

 

[John Spencer MVP]

IN code you must use the VBA function IsNull() to test the value.

Private Sub cmdSearchAP_Click()
If IsNull(Me.txtVendorKeyword) = False Then
DoCmd.RunMacro "M03_CMDMSearch"
Else
DoCmd.RunMacro "M02_RunQryMASTER"
End If
End Sub

As an alternative you can check the length of txtVendorKeyword

Private Sub cmdSearchAP_Click()
If Len(Me.txtVendorKeyword & "") > 0 Then
DoCmd.RunMacro "M03_CMDMSearch"
Else
DoCmd.RunMacro "M02_RunQryMASTER"
End If
End Sub
John Spencer
Access MVP 2002-2005, 2007-2009
The Hilltop Institute
University of Maryland Baltimore County

 

[GD]

Works great!! You're a lifesaver!
--
GD

IN code you must use the VBA function IsNull() to test the value.

Private Sub cmdSearchAP_Click()
If IsNull(Me.txtVendorKeyword) = False Then
DoCmd.RunMacro "M03_CMDMSearch"
Else
DoCmd.RunMacro "M02_RunQryMASTER"
End If
End Sub

As an alternative you can check the length of txtVendorKeyword

Private Sub cmdSearchAP_Click()
If Len(Me.txtVendorKeyword & "") > 0 Then
DoCmd.RunMacro "M03_CMDMSearch"
Else
DoCmd.RunMacro "M02_RunQryMASTER"
End If
End Sub
John Spencer
Access MVP 2002-2005, 2007-2009
The Hilltop Institute
University of Maryland Baltimore County