Get Form Name

[LB79]

Hello,

I'm trying to create a simple function that gives me the current form name.
I have a public variable that I want to store the name in before using it in a msgbox.
I've looked at some examples but they aren’t clear to me. One in particular was frmName = Me.Name
Can anyone please tell me the correct version of frmName = Me.Name?

Thanks

 

[dkinley]

Me.Name is the form name.

For instance, use MsgBox Me.Name.

-dK

 

[LB79]

Thanks for replying - I guess my problem is elsewhere...

My default form (switchboard) has the following:

Public ErrFormName As String

I have a public function that has the following code:

Public Sub Error()
MsgBox ErrFormName
End Sub

And when the error handler is triggered the code is:

Private Sub Command1_Click()
On Error GoTo ATMT_Err
DoCmd.OpenForm "me" ' This is a purpose caused error
Exit Sub
ATMT_Err:
ErrFormName = Me.Name
Call Error
End Sub

But when the MSGBOX shows, its completely blank. Can you see what Im doing wrong?

 

[vbaInet]

Couple of things:

1. Don't call a function or anything in Access the word "ERROR"
2. Avoid the spaghetti coding, calling another code whilst in error
3. Look into the CodeContextObject

 

[LB79]

Thanks
1 - Noted.
2 - I want the code in one place so that all the forms can use the same basic structure rather then having the entire error coding in every form.
3 - I shall look.

 

[vbaInet]

You may find this useful:

http://www.cpearson.com/excel/ErrorHandling.htm

You will still need the error blocks on each function/sub.

 

[LB79]

Thanks - ill take a look.

 

[boblarson]

Check this one out too.