LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 347
Default Error when returning user-defined class from "factory" class...

I might be being a little too tricky with Excel here but because there
doesn't seem to be support for overloading constructors with Class Modules in
Excel I've created a Factory class to instantiate objects and return them. I
have an "Employee" Class Module and a "Factory" Class Module and I'm trying
to get the factory to instantiate (and populate) an employee object based on
an id parameter.

Factory code:
Public Function getEmployee(id As Integer) As employee
Dim emp As employee
Dim staffSheet As Worksheet
Dim staffIDs As Range
Dim staffRow As Integer

Set staffSheet = Worksheets("Staff")
Set staffIDs = staffSheet.Range("A1",
staffSheet.Range("A65536").End(xlUp))

staffRow = staffIDs.Find(id).Row

Debug.Print staffRow

If staffRow < 1 Then
getEmployee = Null
Exit Function
End If

Set emp = New employee
getEmployee = emp
End Function

Yes - I know - at the moment it doesn't populate, but that's because I can't
even get this code to work properly :-)

The method that calls this code is:
Set factory = New factory
Set employee = factory.getEmployee(1)
with both the "factory" and "employee" declared in the general sections.

I'm getting a runtime error 91 - which I know - on the "set employee" line
but I'm at a loss as to why this might be happening. The Debug.Print line in
the factory code correctly reports the row number of the employee(1) as "2".

Any ideas what I'm doing wrong here? I've tried both "employee=factory..."
and "set employee=factory..." with the same error!
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
"Unable to get Pivot Tables Property of Worksheet Class "Error [email protected] Excel Programming 2 April 30th 07 06:18 PM
Hiding Rows Error - "Runtime Error 1004 - Unable to set the hidden property of the range class" Punsterr Excel Programming 2 April 9th 07 05:32 PM
Error Message "Select method of worksheet class failed" philc Excel Programming 5 May 4th 05 08:07 AM
VBA error 1004 "Select method of Range class failed" Matt J Excel Programming 6 July 3rd 04 10:05 PM
Error 1004, "select method of range class failed" paritoshmehta[_11_] Excel Programming 3 May 6th 04 10:09 PM


All times are GMT +1. The time now is 09:42 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"