Is it possible to excute function from one form to another ?

[zivon]

I have a function on one form, and I want when the other form is closed to excute the function on the second form...

this is what I'm trying

Private Function MainFormIsOpen()
MainFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "MainFrm") And acObjStateOpen) <> False
End Function


Private Sub ExitFrm_Click()
On Error GoTo Err_ExitFrm_Click
DoCmd.Close
If MainFormIsOpen() Then
MainFrm.ArrangeDays ("Current")
End If
Exit_ExitFrm_Click:
Exit Sub

Err_ExitFrm_Click:
MsgBox Err.Description
Resume Exit_ExitFrm_Click
End Sub


it gives me an error of:

"Object required"

[puppydogbuddy]

I have a function on one form, and I want when the other form is closed to excute the function on the second form...

this is what I'm trying

Private Function MainFormIsOpen()
MainFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "MainFrm") And acObjStateOpen) <> False
End Function


Private Sub ExitFrm_Click()
On Error GoTo Err_ExitFrm_Click
DoCmd.Close
If MainFormIsOpen() Then
MainFrm.ArrangeDays ("Current")
End If
Exit_ExitFrm_Click:
Exit Sub

Err_ExitFrm_Click:
MsgBox Err.Description
Resume Exit_ExitFrm_Click
End Sub


it gives me an error of:

"Object required"

You need to leave the parentheses off when you call your function, like this:
If MainFormIsOpen Then

However, in order to call your function from a second form, it needs to be placed in a standard module instead of a form module, and made it Public instead of Private. Then you could call the function from any of your forms.

[ADezii]

I have a function on one form, and I want when the other form is closed to excute the function on the second form...

this is what I'm trying

Private Function MainFormIsOpen()
MainFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "MainFrm") And acObjStateOpen) <> False
End Function


Private Sub ExitFrm_Click()
On Error GoTo Err_ExitFrm_Click
DoCmd.Close
If MainFormIsOpen() Then
MainFrm.ArrangeDays ("Current")
End If
Exit_ExitFrm_Click:
Exit Sub

Err_ExitFrm_Click:
MsgBox Err.Description
Resume Exit_ExitFrm_Click
End Sub


it gives me an error of:

"Object required"

To expand on puppydogbuddy's explanation:

Public Function MainFormIsOpen(strFormName As String) As Boolean
  MainFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, strFormName) And acObjStateOpen) <> False
End Function

To call this Function:

If MainFormIsOpen("frmPivot") Then
  'specified Form is Open, process code
Else
  'specified Form is not Open, process code
End If

[zivon]

I think you missunderstood me a bit..

the function I'm trying to call is
'ArrangeDays' not 'MainFormIsOpen' (this one works just fine..)

which is already a public function, on another form called main..
thats why I tried main.ArrangeDays() - here I get an error of - "Object required"
and also only ArrangeDays() - and here I get an error of - "compile error: sub or function not defined"

"However, in order to call your function from a second form, it needs to be placed in a standard module instead of a form module, and made it Public instead of Private. Then you could call the function from any of your forms."

its have to be on the form module because it effecting labels on the form itself.. : \

if its a public function why it doesn't work ?

[puppydogbuddy]

I think you missunderstood me a bit..

the function I'm trying to call is
'ArrangeDays' not 'MainFormIsOpen' (this one works just fine..)

which is already a public function, on another form called main..
thats why I tried main.ArrangeDays() - here I get an error of - "Object required"
and also only ArrangeDays() - and here I get an error of - "compile error: sub or function not defined"

"However, in order to call your function from a second form, it needs to be placed in a standard module instead of a form module, and made it Public instead of Private. Then you could call the function from any of your forms."

its have to be on the form module because it effecting labels on the form itself.. : \

if its a public function why it doesn't work ?

You confused us because you posted the function code for 'MainFormIsOpen, not ArrangeDays'. Making a function public in a form module just means it can be called from any procedure on that form. You need to make it public in a standard module to make it callable from any form.

[FishVal]

Hi, zivon.

Just another solution.
Let us say you have form "frm1" being opened on button click in form "frm2".
Button click is not a crucial point here, you may obtain reference to frm1 object in frm2 global variable in any other way.

Variant 1. via declaring event

Form_frm1 module:

Event FormClose(ByVal strString As String)
 
Private Sub Form_Close()
    RaiseEvent FormClose("Current")
End Sub
 

Form_frm2 module:

Dim WithEvents frmForm As Form_frm1
 
Private Sub Command11_Click()
    DoCmd.OpenForm "frm1"
    Set frmForm = Forms!frm1
End Sub
 
Private Sub frmForm_FormClose(ByVal strString As String)
    Set frmForm = Nothing
    MsgBox strString
End Sub
 

Variant 2. via declaring property

Form_frm1 module:

Public Property Get MyProperty() As Variant
    MyProperty = "Current"
End Property
 

Form_frm2 module:

Dim WithEvents frmForm As Access.Form
 
Private Sub Command11_Click()
    DoCmd.OpenForm "frm1"
    Set frmForm = Forms!frm1
End Sub
 
Private Sub frmForm_Close()
    MsgBox frmForm.MyProperty
    Set frmForm = Nothing
End Sub