[AccessD]

Could it be from using Set to assign a String?  Try using a Property Let instead (without the Set statement).

Jim DeMarco

-----Original Message-----
From: Bruce Bruen [mailto:bbruen at bigpond.com]
Sent: Thursday, May 15, 2003 8:05 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] 


Dear List,

Given the following is as simple as it looks,  can anyone shed any light
on the compile error that it generates?

Option Compare Database
Option Explicit
Private mstr_clubname As String

Private Property Set clubname(ByVal iname As String)
<<<<----------error here!
''set the attribute with the supplied name of the club
        Set mstr_clubname = iname
End Property

''returns the value of the clubname attribute
Public Property Get clubname() As String
        clubname = mstr_clubname
End Property


The compile error is "Definitions of property procedures for the same
property are inconsistent or contain optional parameters or a
ParamArray"

Not according to this little black duck!  I've even asked a colleague to
read the help file item on the error and she cant understand a word of
it either, not that I believe it applies in any case.  However, I have
deleted EVERY other pice of code in the class module and the error is
still there.

Tia
Bruce






_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


***********************************************************************************
"This electronic message is intended to be for the use only of the named recipient, and may contain information from Hudson Health Plan (HHP) that is confidential or privileged.  If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution or use of the contents of this message is strictly prohibited.  If you have received this message in error or are not the named recipient, please notify us immediately, either by contacting the sender at the electronic mail address noted above or calling HHP at (914) 631-1611. If you are not the intended recipient, please do not forward this email to anyone, and delete and destroy all copies of this message.  Thank You".
***********************************************************************************