Calling a form in variable

  • Thread starter Thread starter Richard
  • Start date Start date
R

Richard

Hi all,

I have some code that I want to share between various forms. My code looks
like this in a single form:

If Me!txtRef = "" Then
Exit Sub
End If

Where txtRef is a text box value entered by users

So I created a public procedure

Public Sub TestRef (ByVal FormName as Form)
If FormName!txtRef = "" Then
Exit Sub
End If
End sub

Then from my form frmTest I created an on click event: Call TestRef(frmTest)

I receive a 424 execution error, Object required.

What's wrong with this ?

Thanks for your help

Richard
 
hi Richard,

Where txtRef is a text box value entered by users

So I created a public procedure

Public Sub TestRef (ByVal FormName as Form)
If FormName!txtRef = "" Then
Exit Sub
End If
End sub
Click to expand...
This makes no sense as the Exit Sub only affects the TestRef method, not
the calling one.
Then from my form frmTest I created an on click event: Call TestRef(frmTest)
I receive a 424 execution error, Object required.
Click to expand...
You cannot pass an object as ByVal and the name of your variable is also
not well choose. This should work:

Public Function TestReference(ByRef AForm As Access.Form) As Boolean

TestReference = (AForm.Controls("txtRef") <> vbNullString)

End Function


mfG
--> stefan <--
 
Back
Top