user-defined type not defined (1 Viewer)

PWG · Aug 21, 2019

Could some one please explain to me what this means.
Dim Status As CustomerStatusEnum
I get a user-defined type not defined when I open my form
[Sub SetFormState(Optional fChangeFocus As Boolean = True)
If fChangeFocus Then Me.Machine_ID.SetFocus

Dim Status As CustomerStatusEnum

Status = Nz(Me![Status ID], New_Job)

Me.Machine_ID.Locked = (Status <> New_Job)
Me.Employee_ID.Locked = (Status <> New_CustomerOrder)]

MajP · Aug 21, 2019

Where is customerstatusenum declared? Is it public?

PWG · Aug 21, 2019

Im sorry I do not know. I have started with the north wind data base and this is the code that was on the form.
Where can i find this information

MajP · Aug 21, 2019

Should look like this

Code:

Public Enum CustomerOrderStatusEnum
    New_CustomerOrder = 0
    Invoiced_CustomerOrder = 1
    Shipped_CustomerOrder = 2
    Closed_CustomerOrder = 3
End Enum

You are missing the "order"

PWG · Aug 21, 2019

Thanks. What does this StatusEnum do? Is it needed.

theDBguy · Aug 22, 2019

PWG said:
Thanks. What does this StatusEnum do? Is it needed.

It’s like constants. They give you a better way to remember the numeric values used in the code. For example, rather than remember the value 167715435 (just made that up for right now), you can simply use vbWhite.

PWG · Aug 22, 2019

Thanks I found it in the modules. I will have a play with it and see iff I can get my for to do what I want.

PWG · Aug 22, 2019

Is it only used in the code because I have a table that I use for the fields in my form to tell me the status.Are the two related or separate. If I change one do I need to change the other

MajP · Aug 22, 2019

An enumerator makes your code easier to understand.

Code:

Me.Employee_ID.Locked = (Status <> New_CustomerOrder)

easier to understand the logic than

Code:

Me.Employee_ID.Locked = (Status <> 0)

read
http://www.cpearson.com/excel/Enums.aspx

user-defined type not defined (1 Viewer)

PWG

Registered User.

MajP

You've got your good things, and you've got mine.

PWG

Registered User.

MajP

You've got your good things, and you've got mine.

PWG

Registered User.

theDBguy

I’m here to help

PWG

Registered User.

PWG

Registered User.

MajP

You've got your good things, and you've got mine.

Similar threads

Users who are viewing this thread