Proper Syntax

[Rick Brown]

I'm trying to run code behind a command button from a command button
on another form but get an error on this line. I figure I've got the
syntax wrong for calling this command button? Whats the right syntax
and/or can I call it directly without using the function.

Form1 has a command button that calls the function: Call
Send_Report_to_ RTF
The offending line is: Form_ReportChoi ces.CmdSave_to_ RTF_Click

Public Function Send_Report_to_ RTF()

Dim FormIsLoaded
FormIsLoaded = IsLoaded("Repor tChoices")
If FormIsLoaded = True Then
Form_ReportChoi ces.CmdSave_to_ RTF_Click
End If
End Function

Function IsLoaded(ByVal strFormName As String) As Integer
' Returns True if the specified form is loaded.

Const conDesignView = 0
Const conObjStateClos ed = 0

IsLoaded = False
If SysCmd(acSysCmd GetObjectState, acForm, strFormName) <>
conObjStateClos ed Then
If Forms(strFormNa me).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If

End Function

TIA, Rick

[Fletcher Arnold]

"Rick Brown" <rb*******@comp userve.com> wrote in message
news:82******** *************** ***@posting.goo gle.com...

I'm trying to run code behind a command button from a command button
on another form but get an error on this line. I figure I've got the
syntax wrong for calling this command button? Whats the right syntax
and/or can I call it directly without using the function.

Form1 has a command button that calls the function: Call
Send_Report_to_ RTF
The offending line is: Form_ReportChoi ces.CmdSave_to_ RTF_Click

Public Function Send_Report_to_ RTF()

Dim FormIsLoaded
FormIsLoaded = IsLoaded("Repor tChoices")
If FormIsLoaded = True Then
Form_ReportChoi ces.CmdSave_to_ RTF_Click
End If
End Function

Function IsLoaded(ByVal strFormName As String) As Integer
' Returns True if the specified form is loaded.

Const conDesignView = 0
Const conObjStateClos ed = 0

IsLoaded = False
If SysCmd(acSysCmd GetObjectState, acForm, strFormName) <>
conObjStateClos ed Then
If Forms(strFormNa me).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If

End Function

TIA, Rick

You won't be able to structure your code like that. Perhaps the easiest way
to re-structure would be to entirely delete the function
Send_Report_to_ RTF() and then make the first line of the the click event for
'CmdSave_to_RTF ' as shown below:

If Not IsLoaded("Repor tChoices") Then Exit Sub

Alternatively have Send_Report_to_ RTF() as a public function which is called
from the click event - but you can't call the code for a button's click
event from a public function.

HTH

Fletcher

[MGFoster]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

You can't call a Private procedure (which all Control event procedures
default to) from another module.

The best solution (I can think of) is to move the code that is in the
CmdSave_to_RTF_ Click procedure to a public procedure in a globally
accessible module. Then have the CommandButton's code just call this
procedure. Also, have your function "Send_Report_to _RTF" also call
this public procedure instead of calling the Private procedure
CmdSave_to_RTF_ Click.

HTH,

MGFoster:::mgf
Oakland, CA (USA)
-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBP7A1LIechKq OuFEgEQKlLQCg89 tdcQABV6fQ3R0uC IVdYSbnSw8AoOI9
gg1dAw7/bDK37FGQhjH8yFM d
=qVSN
-----END PGP SIGNATURE-----
Rick Brown wrote:

I'm trying to run code behind a command button from a command button
on another form but get an error on this line. I figure I've got the
syntax wrong for calling this command button? Whats the right syntax
and/or can I call it directly without using the function.

Form1 has a command button that calls the function: Call
Send_Report_to_ RTF
The offending line is: Form_ReportChoi ces.CmdSave_to_ RTF_Click

Public Function Send_Report_to_ RTF()

Dim FormIsLoaded
FormIsLoaded = IsLoaded("Repor tChoices")
If FormIsLoaded = True Then
Form_ReportChoi ces.CmdSave_to_ RTF_Click
End If
End Function

Function IsLoaded(ByVal strFormName As String) As Integer
' Returns True if the specified form is loaded.

Const conDesignView = 0
Const conObjStateClos ed = 0

IsLoaded = False
If SysCmd(acSysCmd GetObjectState, acForm, strFormName) <>
conObjStateClos ed Then
If Forms(strFormNa me).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If

End Function

TIA, Rick