access vba function get form caption

[SELIM ZAIRI]

hi, to all
i was wondering if some one got this problem before and if he had any
solution
i got a query:

SELECT MSysObjects.Nam e, MSysObjects.Typ e, GETFRMCAPTION([Name]) AS
Expr1
FROM MSysObjects
WHERE (((MSysObjects. Type)=-32768));

and this function to get form caption

Public Function GETFRMCAPTION(F RMNM As String) As String

test = "Forms" & "!" & FRMNM & "." & "Caption"
GETFRMCAPTION = Eval("Forms" & "!" & FRMNM & "." & "Caption")

End Function

but it will not work

the final result i want to get the form caption in the the field expr1
in the query to be added later in the security form of the application

i will be more than thankfull if any one could help me in this problem

many thanks and regards in advance

[MacDermott]

Please recall that the Forms collection includes only those forms which are
open at the time that the code is run.
Therefore, unless you first open all the forms, this code will not return
their captions.
I don't think that the .Caption property is available without opening the
forms, anyhow.

I'm not sure what you want this information for.
Although far from perfect, the built-in security available for Access is
most certainly superior to most anything you can build yourself.

HTH
- Turtle

"SELIM ZAIRI" <SE********@HOT MAIL.COM> wrote in message
news:2d******** *************** **@posting.goog le.com...

hi, to all
i was wondering if some one got this problem before and if he had any
solution
i got a query:

SELECT MSysObjects.Nam e, MSysObjects.Typ e, GETFRMCAPTION([Name]) AS
Expr1
FROM MSysObjects
WHERE (((MSysObjects. Type)=-32768));

and this function to get form caption

Public Function GETFRMCAPTION(F RMNM As String) As String

test = "Forms" & "!" & FRMNM & "." & "Caption"
GETFRMCAPTION = Eval("Forms" & "!" & FRMNM & "." & "Caption")

End Function

but it will not work

the final result i want to get the form caption in the the field expr1
in the query to be added later in the security form of the application

i will be more than thankfull if any one could help me in this problem

many thanks and regards in advance

[Trevor Best]

SELIM ZAIRI wrote:

hi, to all
i was wondering if some one got this problem before and if he had any
solution
i got a query:

SELECT MSysObjects.Nam e, MSysObjects.Typ e, GETFRMCAPTION([Name]) AS
Expr1
FROM MSysObjects
WHERE (((MSysObjects. Type)=-32768));

and this function to get form caption

Public Function GETFRMCAPTION(F RMNM As String) As String

test = "Forms" & "!" & FRMNM & "." & "Caption"
GETFRMCAPTION = Eval("Forms" & "!" & FRMNM & "." & "Caption")

End Function

but it will not work

the final result i want to get the form caption in the the field expr1
in the query to be added later in the security form of the application

i will be more than thankfull if any one could help me in this problem

many thanks and regards in advance

The form has to be open to get it's caption.

Try:
Public Function GETFRMCAPTION(F RMNM As String) As String
DoCmd.OpenForm FRMNM, acDesign
GETFRMCAPTION = Forms(GETFRMCAP TION).Caption
Docmd.Close FRMNM, acSaveNo
End Function

Bit messy when running.
--
But why is the Rum gone?

[Douglas J. Steele]

"Trevor Best" <nospam@localho st> wrote in message
news:40******** *************** @auth.uk.news.e asynet.net...

The form has to be open to get it's caption.

Try:
Public Function GETFRMCAPTION(F RMNM As String) As String
DoCmd.OpenForm FRMNM, acDesign
GETFRMCAPTION = Forms(GETFRMCAP TION).Caption
Docmd.Close FRMNM, acSaveNo
End Function

Bit messy when running.

It'll be a little less messy if you open each form as hidden:

Public Function GETFRMCAPTION(F RMNM As String) As String
DoCmd.OpenForm FRMNM, acDesign, , , , acHidden
GETFRMCAPTION = Forms(GETFRMCAP TION).Caption
Docmd.Close FRMNM, acSaveNo
End Function
--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(No private e-mails, please)

[Trevor Best]

Douglas J. Steele wrote:

"Trevor Best" <nospam@localho st> wrote in message
news:40******** *************** @auth.uk.news.e asynet.net...

The form has to be open to get it's caption.

Try:
Public Function GETFRMCAPTION(F RMNM As String) As String
DoCmd.OpenForm FRMNM, acDesign
GETFRMCAPTION = Forms(GETFRMCAP TION).Caption
Docmd.Close FRMNM, acSaveNo
End Function

Bit messy when running.

It'll be a little less messy if you open each form as hidden:

Public Function GETFRMCAPTION(F RMNM As String) As String
DoCmd.OpenForm FRMNM, acDesign, , , , acHidden
GETFRMCAPTION = Forms(GETFRMCAP TION).Caption
Docmd.Close FRMNM, acSaveNo
End Function

Well spotted, now pay attention as next time I will test you without
warning :-)

And of course the close command should be:
Docmd.Close acForm, FRMNM, acSaveNo

--
But why is the Rum gone?

[rkc]

"Douglas J. Steele" <NOSPAM_djsteel e@NOSPAM_canada .com> wrote in message
news:g_******** ************@ne ws04.bloor.is.n et.cable.rogers .com...

"Trevor Best" <nospam@localho st> wrote in message
news:40******** *************** @auth.uk.news.e asynet.net...

The form has to be open to get it's caption.

Try:
Public Function GETFRMCAPTION(F RMNM As String) As String
DoCmd.OpenForm FRMNM, acDesign
GETFRMCAPTION = Forms(GETFRMCAP TION).Caption
Docmd.Close FRMNM, acSaveNo
End Function

This function is in dire need of a "air code" warning.

GETFRMCAPTION = Forms(FRMNM).Ca ption
DoCmd.Close acForm, FRMNM, acSaveNo

[Douglas J. Steele]

"rkc" <rk*@yabba.dabb a.do.rochester. rr.bomb> wrote in message
news:41******** ************@tw ister.nyroc.rr. com...

"Douglas J. Steele" <NOSPAM_djsteel e@NOSPAM_canada .com> wrote in message
news:g_******** ************@ne ws04.bloor.is.n et.cable.rogers .com...

"Trevor Best" <nospam@localho st> wrote in message
news:40******** *************** @auth.uk.news.e asynet.net...

The form has to be open to get it's caption.

Try:
Public Function GETFRMCAPTION(F RMNM As String) As String
DoCmd.OpenForm FRMNM, acDesign
GETFRMCAPTION = Forms(GETFRMCAP TION).Caption
Docmd.Close FRMNM, acSaveNo
End Function

This function is in dire need of a "air code" warning.

GETFRMCAPTION = Forms(FRMNM).Ca ption
DoCmd.Close acForm, FRMNM, acSaveNo

Ironically, I copied my change to the OpenForm statement from a tested
function. I just didn't bother looking at the rest of the code!
--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(No private e-mails, please)

[David W. Fenton]

"rkc" <rk*@yabba.dabb a.do.rochester. rr.bomb> wrote in
news:41******** ************@tw ister.nyroc.rr. com:

"Douglas J. Steele" <NOSPAM_djsteel e@NOSPAM_canada .com> wrote in
message
news:g_******** ************@ne ws04.bloor.is.n et.cable.rogers .com...

"Trevor Best" <nospam@localho st> wrote in message
news:40******** *************** @auth.uk.news.e asynet.net...

>
> The form has to be open to get it's caption.
>
> Try:
> Public Function GETFRMCAPTION(F RMNM As String) As String
> DoCmd.OpenForm FRMNM, acDesign
> GETFRMCAPTION = Forms(GETFRMCAP TION).Caption
> Docmd.Close FRMNM, acSaveNo
> End Function

This function is in dire need of a "air code" warning.

GETFRMCAPTION = Forms(FRMNM).Ca ption
DoCmd.Close acForm, FRMNM, acSaveNo

Not only that, but it assumes the form is not open when it runs. I'd
be pretty annoyed if I had the form open and it suddenly
disappeared.

--
David W. Fenton http://www.bway.net/~dfenton
dfenton at bway dot net http://www.bway.net/~dfassoc

[Trevor Best]

David W. Fenton wrote:

"rkc" <rk*@yabba.dabb a.do.rochester. rr.bomb> wrote in
news:41******** ************@tw ister.nyroc.rr. com:

"Douglas J. Steele" <NOSPAM_djsteel e@NOSPAM_canada .com> wrote in
message
news:g_****** **************@ news04.bloor.is .net.cable.roge rs.com...

"Trevor Best" <nospam@localho st> wrote in message
news:40***** *************** ***@auth.uk.new s.easynet.net.. .

The form has to be open to get it's caption.

Try:
Public Function GETFRMCAPTION(F RMNM As String) As String
DoCmd.OpenForm FRMNM, acDesign
GETFRMCAPTION = Forms(GETFRMCAP TION).Caption
Docmd.Close FRMNM, acSaveNo
End Function

This function is in dire need of a "air code" warning.

GETFRMCAPTI ON = Forms(FRMNM).Ca ption
DoCmd.Close acForm, FRMNM, acSaveNo

Not only that, but it assumes the form is not open when it runs. I'd
be pretty annoyed if I had the form open and it suddenly
disappeared.

Oh well, I'm sorry I didn't spend at least a couple of hours testing the
function under all possible circumstances to answer a fecking newsgroup
post. Sheesh, I dunno why I bother sometimes.

--
But why is the Rum gone?

[rkc]

"Trevor Best" <nospam@localho st> wrote in message
news:40******** *************** @auth.uk.news.e asynet.net...

David W. Fenton wrote:

"rkc" <rk*@yabba.dabb a.do.rochester. rr.bomb> wrote in
news:41******** ************@tw ister.nyroc.rr. com:

"Douglas J. Steele" <NOSPAM_djsteel e@NOSPAM_canada .com> wrote in
message
news:g_****** **************@ news04.bloor.is .net.cable.roge rs.com...

"Trevor Best" <nospam@localho st> wrote in message
news:40***** *************** ***@auth.uk.new s.easynet.net.. .

>The form has to be open to get it's caption.
>
>Try:
>Public Function GETFRMCAPTION(F RMNM As String) As String
> DoCmd.OpenForm FRMNM, acDesign
> GETFRMCAPTION = Forms(GETFRMCAP TION).Caption
> Docmd.Close FRMNM, acSaveNo
>End Function

This function is in dire need of a "air code" warning.

GETFRMCAPTI ON = Forms(FRMNM).Ca ption
DoCmd.Close acForm, FRMNM, acSaveNo

Not only that, but it assumes the form is not open when it runs. I'd
be pretty annoyed if I had the form open and it suddenly
disappeared.

Oh well, I'm sorry I didn't spend at least a couple of hours testing the
function under all possible circumstances to answer a fecking newsgroup
post. Sheesh, I dunno why I bother sometimes.

Was so touchy?

I only replied after an expert corrected an expert and the function
still had problems even running.

DWF's point is a real killer though, isn't it?