Veeam is happy to provide a free NFR license for one year. It allows for the non‑production use and valid for five workstations and two servers. Veeam Agent for Linux is a simple backup tool for your Linux installations, both on‑premises and in the public cloud.
Solved
Public Module
Posted on 2013-01-03
In the last part of my question Here mbizup suggests
" If there is a sub or function that I need to use across multiple forms, I generally will place it in a separate public module. You can pass form and/or control names to public functions as needed. "
My question...
Is there an example somewhere of passing Form and control names through or to a public function?
" If there is a sub or function that I need to use across multiple forms, I generally will place it in a separate public module. You can pass form and/or control names to public functions as needed. "
My question...
Is there an example somewhere of passing Form and control names through or to a public function?
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
5-
4
3- +1
13 Comments
Active today
.. in your form, call a function, and pass the current Form's object ...
Dim b as Boolean
b = fn_help(Me)
... then in a separate code module..
Public Function fn_help(frm as Form) as boolean
'air code
frm.btn_help.Caption = "foo"
frm.txt_help = "This is sample text"
'Return a value
fn_help = True
End Function
Dim b as Boolean
b = fn_help(Me)
... then in a separate code module..
Public Function fn_help(frm as Form) as boolean
'air code
frm.btn_help.Caption = "foo"
frm.txt_help = "This is sample text"
'Return a value
fn_help = True
End Function
Active today
for a form:
Function/Sub:
Sub LockControls(frm as Form)
call:
call LockControls([Form])
For a control:
Functions/Sub:
Function ControlType(ctl As Control)
call:
Dim ctl as control
For Each ctl In Reports(strReportName).Con
If ControlType(ctl) = acListBox Then
'Set the TableDef based on the Caption of the list box's attached label.
Jim.
Function/Sub:
Sub LockControls(frm as Form)
call:
call LockControls([Form])
For a control:
Functions/Sub:
Function ControlType(ctl As Control)
call:
Dim ctl as control
For Each ctl In Reports(strReportName).Con
If ControlType(ctl) = acListBox Then
'Set the TableDef based on the Caption of the list box's attached label.
Jim.
Active today
If a function or sub is geared towards one specific form, I'd use the full form reference like this rather than passing a formname (a function/sub in a public module can be used anywhere in your database):
However, if you want the procedure to apply to multiple forms (generically), you can use the form name as a parameter:
You can call it from any form like this:
Public Sub DoStuff()
MsgBox "Total value is: " & Forms!YourFormName.YourSubformName.txtTotal
' etc
End Sub
However, if you want the procedure to apply to multiple forms (generically), you can use the form name as a parameter:
Public Sub DoStuff(strFormName as String, strControlName as String)
Forms(strFormName).Requery
Forms(strFormName).controls(strControlName).Requery
End Sub
You can call it from any form like this:
DoStuff Me.Name, "cboMyComboBox"
Active today
It should be pointed out that 'Me' and '[Form]' only work when your coding within a form module. If you were in a general module and had a form name as a string, you'd need to do something like this:
Function/Sub:
Sub LockControls(strFormName as string)
Dim frm as form
Set frm = Forms(strFormName)
frm is now a form object and you can access it's methods and properties. ie.
If frm.visible = True then
Jim.
Function/Sub:
Sub LockControls(strFormName as string)
Dim frm as form
Set frm = Forms(strFormName)
frm is now a form object and you can access it's methods and properties. ie.
If frm.visible = True then
Jim.
Active 5 days ago
Ok folks,
Gonna take a look at these later this morning and get back to you with points
Gonna take a look at these later this morning and get back to you with points
Active today
Just one other point, doing your routines like this:
Public Sub DoStuff(strFormName as String, strControlName as String)
Forms(strFormName).Requery
Forms(strFormName).control
End Sub
is a tad slower rather then addressing it as an object because your forcing Access to lookup the object in the forms collection each time you reference it rather then giving it a direct pointer.
However it's a lot easier to use that way. For example, you can easily call it from the debug window simply by typing:
Call DoStuff("JimsForm","FirstC
and hitting return. You can't do that always when it's defined as an object:
Public Sub DoStuff(frm as Form, ctl as Control)
I actually use both approaches making sure I use the latter for the critical stuff to ge the best performance and the first for procedures I might want to call on the fly as I test and debug.
Jim.
Public Sub DoStuff(strFormName as String, strControlName as String)
Forms(strFormName).Requery
Forms(strFormName).control
End Sub
is a tad slower rather then addressing it as an object because your forcing Access to lookup the object in the forms collection each time you reference it rather then giving it a direct pointer.
However it's a lot easier to use that way. For example, you can easily call it from the debug window simply by typing:
Call DoStuff("JimsForm","FirstC
and hitting return. You can't do that always when it's defined as an object:
Public Sub DoStuff(frm as Form, ctl as Control)
I actually use both approaches making sure I use the latter for the critical stuff to ge the best performance and the first for procedures I might want to call on the fly as I test and debug.
Jim.
Active today
<< is a tad slower rather then addressing it as an object because your forcing Access to lookup the object in the forms collection each time you reference it rather then giving it a direct pointer.>>
BTW, a best of both worlds approach is to do what I showed, especially if your going to perform a lot of operations on it:
Sub LockControl(strFormName as string, strControlName as string)
Dim frm as form
Dim ctl as control
Set frm = Forms(strFormName)
set ctl = Forms(strFormName)(strCont
and now you have objects to work with even though you passed in strings.
Jim.
BTW, a best of both worlds approach is to do what I showed, especially if your going to perform a lot of operations on it:
Sub LockControl(strFormName as string, strControlName as string)
Dim frm as form
Dim ctl as control
Set frm = Forms(strFormName)
set ctl = Forms(strFormName)(strCont
and now you have objects to work with even though you passed in strings.
Jim.
Active 5 days ago
Ok guys...
I built a module and placed this in it
Option Compare Database
Public Function DoStuff(strFormName As String, strControlName As String) As String
DoStuff = Forms(strFormName).Control
End Function
I'm calling it with this...
Dim s As String
s = DoStuff("MarketingVisitati
The FORM Name I got by actually doing a F2 on the name of the form from the Forms window in MS Access and copying the name.
When I look at the properties in the form...I see that the Caption is the same thing
On other forms I can access the information I need.
But on this particular form...I get a "Can't fins the Form error message"
I have tried every way possible to acces this subform per question http://www.experts-exchange.com/Microsoft/Development/MS_Access/Q_27981361.html
Any ideas?
ALthough this may need to be placed in a new question?
I built a module and placed this in it
Option Compare Database
Public Function DoStuff(strFormName As String, strControlName As String) As String
DoStuff = Forms(strFormName).Control
End Function
I'm calling it with this...
Dim s As String
s = DoStuff("MarketingVisitati
The FORM Name I got by actually doing a F2 on the name of the form from the Forms window in MS Access and copying the name.
When I look at the properties in the form...I see that the Caption is the same thing
On other forms I can access the information I need.
But on this particular form...I get a "Can't fins the Form error message"
I have tried every way possible to acces this subform per question http://www.experts-exchange.com/Microsoft/Development/MS_Access/Q_27981361.html
Any ideas?
ALthough this may need to be placed in a new question?
Active today
Since you're dealing with subforms, the references to your forms and controls are going to be different - depending on where you place the code you call your public function or sub with.
This is a 5-minute (ugly) sample that demonstrates this:PublicFunction.mdb
The code in the sample uses Jim D's suggestion of using the form object rather than the form name when calling your routine. This simplifies working with subforms - especially since you need to look at your subforms as controls containing forms.
It calls the public function from a variety of places, refering to a main form, sub form and sub-subform. Take a look at the code behind the buttons for the differences.
Note - To work with a subform as a form, you need to first refer to the control housing the subform and then specify that you want to work with it as a form (hence the Me.subformControlName.Form syntax)
This is a 5-minute (ugly) sample that demonstrates this:PublicFunction.mdb
The code in the sample uses Jim D's suggestion of using the form object rather than the form name when calling your routine. This simplifies working with subforms - especially since you need to look at your subforms as controls containing forms.
It calls the public function from a variety of places, refering to a main form, sub form and sub-subform. Take a look at the code behind the buttons for the differences.
Note - To work with a subform as a form, you need to first refer to the control housing the subform and then specify that you want to work with it as a form (hence the Me.subformControlName.Form syntax)
Active today
<<
The FORM Name I got by actually doing a F2 on the name of the form from the Forms window in MS Access and copying the name.
>>
Also - when dealing with subform paths, the "subform name" you need to refer to is actually the name of the control that houses your subform -- which might not be the same as the name you see in the Forms window. The subform control name is determined by right-clicking the 'frame' of the subform control in your form's design, bringing up its property sheet and looking up the Name property.
The FORM Name I got by actually doing a F2 on the name of the form from the Forms window in MS Access and copying the name.
>>
Also - when dealing with subform paths, the "subform name" you need to refer to is actually the name of the control that houses your subform -- which might not be the same as the name you see in the Forms window. The subform control name is determined by right-clicking the 'frame' of the subform control in your form's design, bringing up its property sheet and looking up the Name property.
Active 5 days ago
Hey folks,
Thanks. Looks like I should do a split on the points between mbizup and Jim D
Any objections?
Jim was first and mbizup gave a working example.
Thanks. Looks like I should do a split on the points between mbizup and Jim D
Any objections?
Jim was first and mbizup gave a working example.
Featured Post
Blockchain technology has already revolutionized finance thanks to Bitcoin. Now it's disrupting other areas, including the realm of data protection. Learn how blockchain is now being used to authenticate backup files and keep them safe from hackers.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
It’s the first day of March, the weather is starting to warm up and the excitement of the upcoming St. Patrick’s Day holiday can be felt throughout the world.
AutoNumbers should increment automatically, without duplicates. But sometimes something goes wrong, and the next AutoNumber value is a duplicate. This article shows how to recover from this problem.
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks.
Specify a start-up form through options:
Specify an Autoexec macro:
Us…
The viewer will learn how to use a discrete random variable to simulate the return on an investment over a period of years, create a Monte Carlo simulation using the discrete random variable, and create a graph to represent the possible returns over…
Suggested Courses
Course of the Month9 days, 23 hours left to enroll
722 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.