I am still new to VBA, so please bear with me. I have the Access 2002 VBA book and have been trying to follow an example for a WithEvents Class, and have come up with an error. Access 2000 doesn't understand the "m" setting. Is this an Access 2002 thing? Is there any way to accomplish the same thing in Access 2000? Se below for my code!! Thanks in advance for any help whatsoever!!

__________________________________________________ ___________
Option Compare Database
Option Explicit

Dim WithEvents mcboLookup As ComboBox
Dim mtxtProductNumber As TextBox
Dim mform As Form

Public Function init(lform As Form, lcboLookup As ComboBox, ltxtProductNumber As TextBox)
    Set mfrm = lform
    Set mtxtProductNumber = ltxtProductNumber
    Set mcboLookup = lcmdLookup
    mcmdLookup.AfterUpdate = "[Event Procedure]"

End Function


Sarah W
NGIT

Sarah,

Just looking at the code from a syntax point of view, in the first line of the proc change 'mfrm' to 'mform'.

There also seems to be problem with the last line of code...change mcmdLookup to mcboLookup

HTH,
Mike

Thanks Dataman!! That was it. I feel stupid it was such an easy solution!! :)

Sarah W
NGIT

Sarah W
NGIT