Returning the object type of an object

[Access_Novice]

When I run the following code, it returns “109” which representsa textbox. Here, txtDisplay is atextbox. I was hoping it would return thewords “Text Box” in the dialog window.



MsgBox txtDisplay.ControlType

I am trying to find a method, that can:

1. Return the object type of an object withoutusing the code above, or
   
2. Return the object type of an object using thecode above

[June7]

You already know how to do 2.

Exactly what do you want to accomplish? Why do you need to know object type?

[Micron]

have seen this before. IIRC, you would need to include a list of constants in your code and return those. However, your example suggests you're using a method of control naming that ought to make it apparent to you, so you must have some undisclosed reason why that isn't good enough.

[orange]

You can use this structure

 Debug.Print frm.Name & " | " & ctl.Name & "(" & TypeName(ctl) & ")" & " --" & ctl.Tag

In my example code from a recent post I get the following output for controls on 2 forms:

customer | Text214(TextBox) --
customer | Label215(Label) --
customer | Command222(CommandButton) --
customer | Command429(CommandButton) --
customer | Combo224(TextBox) --
customer | Label225(Label) --
customer | Command210(CommandButton) --
customer | ID(TextBox) --Audit
customer | ID_Label(Label) --
customer | Form Code(TextBox) --Audit
customer | Form Code_Label(Label) --
customer | Form Name(TextBox) --Audit
customer | Form Name_Label(Label) --
customer | Process(TextBox) --Audit
customer | Process_Label(Label) --
customer | User BU(TextBox) --Audit
customer | User BU_Label(Label) --
customer | Command168(CommandButton) --
customer | Author(TextBox) --Audit
customer | Author_Label(Label) --
customer | Command441(CommandButton) --
FormName -- ControlName{controlType}

frmCommentsJDraw | Label6(Label) --
frmCommentsJDraw | ID(TextBox) --
frmCommentsJDraw | ID_Label(Label) --
frmCommentsJDraw | Comment(TextBox) --
frmCommentsJDraw | Comment_Label(Label) --
frmCommentsJDraw | CommentDate(TextBox) --
frmCommentsJDraw | CommentDate_Label(Label) --

[Micron]

typename(forms!formName.contolName) works in immediate window.
The named constants thing I read in the past might not have been about control types.
Thanks!