Call a function in instances of a form

[MidNite]

Hi

This code works perfectly to call a function in open forms:

Private Sub cmdRandomizeAll_Click()
On Error Resume Next


Dim intForm As Integer




For intForm = 1 To 30
Call Forms(intForm).Rand
Next

End Sub

It does not work on form that I create on the fly using the New keyword as in the following example:
Set frmInstance = New [MyForm]
frmInstance.Visible = True

How can I call the function in all new instances of the form as well?

[ranman256]

if the function is in the form, remove it and put it in a MODULE.
change word PRIVATE to PUBLIC.

Then all forms can run the function.

[MidNite]

if the function is in the form, remove it and put it in a MODULE.
change word PRIVATE to PUBLIC.

Then all forms can run the function.

Thank you for responding.

This is still not working.

The function in the forms that I call is below. It simply moves to the next record.
In my earlier post I called the function, "Rand", because the records are sorted randomly.
So to simplify my explanation of what I am trying to do, for this example, I am calling the function, "MoveToNextRecord"

Public Function MoveToNextRecord()
DoCmd.GoToRecord acDataForm, Me.Name, Record:=acNext, Offset:=Val(Me.lstRecordsToMove)
End Function

So, taking your suggestion, I placed the entire functionality into a function in a standard module. So I am no longer calling the function, "MoveToNextRecord", in the form.

'This is the function I created in a standard module:

Public Sub MoveNextRecord()
On Error Resume Next


Dim intForm As Integer


For intForm = 1 To 30
Forms(intForm).SetFocus
DoCmd.GoToRecord acDataForm, Forms(intForm).Name, Record:=acNext, Offset:=Val(Forms(intForm).lstRecordsToMove)
Next


End Sub

This makes all open forms move to the next record, but it does not makes any new instances move to the next record.
It seems that new instances of the forms are not members of the Forms() collection.
or may be it has something to do with the DoCmd.GoToRecord command.
I don't know what to do.

Thanks again

[moke123]

What event are you using to fire the code?

I would think you'd need something like:

Public Sub MoveNextRecord(frm as form)
. . . 

DoCmd.GoToRecord acDataForm, frm.Name, ...
 
. . .

and in the form use an event like OnCurrent or OnOpen to call the function

Private Sub Form_Current()
     MoveNextRecord Me
End Sub

[Micron]

Methinks some code that you think is running is not. A private function in a form module should be available to all instances of that form. Step through your code and make sure it's doing what you think it is, or copy db, compact, zip and post here. Remove all but what is needed to demonstrate your issue if that helps.
EDIT - best to copy & paste code to eliminate some questions (please use code tags (#) on posting toolbar). Can't tell if you've declared your form variable at the module level or not.
Also, I've tested now and experience the same thing. However, the built in navigation controls work independently so foregoing custom navigation is probably how I'd fix this.

[Micron]

see if this helps. Note the section on 'managing'
http://allenbrowne.com/ser-35.html

or this
https://www.tek-tips.com/viewthread.cfm?qid=1753790

[apr pillai]

When you open a new instance of the same Form in memory, you can only address the new instance with it's Index number like Forms(2).GetfirstName().

[apr pillai]

When you open a new instance of the same Form in memory, you can only address the new instance with it's Index number like Forms(2).GetfirstName().

Correction to the above statement.

Dim frm as Form
Docmd.OpenForm "Form1", acNormal
set frm = Form_Form1

? Forms(0).Name
Result: Form1

? frm.Name
Result: Form1

Call frm.Rand

Define a new Form Object with a User-defined Name and attach the new Instance of the Form to that Object. Access the Properties and Methods with the new form object name.