Creating a Custom OBJECT

[seboseszuk]

Greetings,

I use Mr.Excel's book:Excel 2007 page 481 and 482.
File name:clsEmployee, module: Class

Public EmpName as string
Public EmpId as string
Public EmpRate as double
Public EmpWeeklyHours as double
Public Function EmpWeeklyPay()dluble
EmpWeeklyPay= EmpRate* EmpHours
End Function

File name: clsEmployee, module1
Option Explicit
Dim Employee as clsEmployee
with Employee
.EmpName=" Tracy Syrstad"
.EmpId ="1651"
.EmpRate=25
.EmpHours=40
End with
End Sub

These modules create an error message.
Help will be appreciated.

Gabor

 

[Norie]

Gabor

Is this a continuation of this thread?

http://www.mrexcel.com/forum/showthread.php?t=554907

What do you mean here:

File name:clsEmployee, module: Class

File name: clsEmployee, module1

Have you used the name 'clsEmployee' for more than one thing?

I'm pretty sure you shouldn't do that, and I'm definite it's a bad idea to do so even if your allowed to.

 

[RoryA]

You are missing:

Set Employee = New clsEmployee

after:

Dim Employee as clsEmployee