Passing an argument to a subroutine

[Scott]

What is the proper syntax for sending an argument from a form contol to
a subroutine in a module? For instance, from a textbox on a form I call
a module subroutine from the textbox's OnUpdate event. I want to pass
the form's name to the the Module subroutine. What is the proper syntax
for the textbox event to pass the form name and what is the correct
syntax in the module subroutine to accept the form name as an argument?

Thanks
Scott

[Ken Snell]

Not sure of OnUpdate event (AfterUpdate ?), but this is a generic example:

Private Sub Textbox_AfterUp date()
Call MySub(Me.Name)
End Sub

Public Sub MySub(strFormNa me As String)
MsgBox "My form name is " & strFormName
End Sub
--

Ken Snell
<MS ACCESS MVP>

"Scott" <sm*********@hd gmansur.com> wrote in message
news:11******** **************@ z14g2000cwz.goo glegroups.com.. .

What is the proper syntax for sending an argument from a form contol to
a subroutine in a module? For instance, from a textbox on a form I call
a module subroutine from the textbox's OnUpdate event. I want to pass
the form's name to the the Module subroutine. What is the proper syntax
for the textbox event to pass the form name and what is the correct
syntax in the module subroutine to accept the form name as an argument?

Thanks
Scott

[rkc]

Scott wrote:

Thanks. That works well. However, from within the Public Sub, I want to
loop through specific controls (textboxes, comboboxes, etc.). When I do
that using the strfrmName variable I get an error that tells me it can
only loop through a specific entity within a collection. - Presumably
it wants the code to specify Forms!strfrmNam e. The code loops through
all the text controls to see if they have data before setting the
"Done" button's enabled property to "True." The code is hanging up on
Line (02). I assume it will also choke on Line (10).

Public Sub Check_Controls( strfrmName As String)

Dim ctl As Control
Dim btnStatus As Boolean

Line (01) btnStatus = True
Line (02) For Each ctl In strfrmName
Line (03) If ctl.ControlType <> acCommandButton Or ctl.ControlType <>
acLabel
Line (04) Then
Line (05) If IsEmpty(ctl) Then
Line (06) btnStatus = False
Line (07) End If
Line (08) End If
Line (09) Next ctl

Line (10) strfrmName cmdDone.Enabled = btnStatus

End Sub

Thanks for any help!
Scott

Just pass the form object itself.

Call Check_Controls( Me)

Public Sub Check_Controls( frm As Access.Form)
'---
For Each ctl In frm
'---
End Sub

Lookup the IsEmpty function in the help file.

[Scott]

Thanks. That's it.
Scott