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_ReportChoices.CmdSave_to_RTF_Click

Public Function Send_Report_to_RTF()

Dim FormIsLoaded
FormIsLoaded = IsLoaded("ReportChoices")
If FormIsLoaded = True Then
Form_ReportChoices.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 conObjStateClosed = 0

IsLoaded = False
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <>
conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If

End Function

TIA, Rick

[Fletcher Arnold]

"Rick Brown" <rb*******@compuserve.com> wrote in message
news:82**************************@posting.google.c om...

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_ReportChoices.CmdSave_to_RTF_Click

Public Function Send_Report_to_RTF()

Dim FormIsLoaded
FormIsLoaded = IsLoaded("ReportChoices")
If FormIsLoaded = True Then
Form_ReportChoices.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 conObjStateClosed = 0

IsLoaded = False
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <>
conObjStateClosed Then
If Forms(strFormName).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("ReportChoices") 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/AwUBP7A1LIechKqOuFEgEQKlLQCg89tdcQABV6fQ3R0uCIVdYS bnSw8AoOI9
gg1dAw7/bDK37FGQhjH8yFMd
=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_ReportChoices.CmdSave_to_RTF_Click

Public Function Send_Report_to_RTF()

Dim FormIsLoaded
FormIsLoaded = IsLoaded("ReportChoices")
If FormIsLoaded = True Then
Form_ReportChoices.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 conObjStateClosed = 0

IsLoaded = False
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <>
conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If

End Function

TIA, Rick