<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2722.900" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>OK, I will make it published for 
download from my Web-site - just give me one week to finish an urgent 
project here...</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Shamil</FONT></DIV>
<BLOCKQUOTE 
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV 
  style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B> 
  <A title=ad_tp@hotmail.com href="mailto:ad_tp@hotmail.com">A.D.Tejpal</A> 
  </DIV>
  <DIV style="FONT: 10pt arial"><B>To:</B> <A title=accessd@databaseadvisors.com 
  href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A> 
  </DIV>
  <DIV style="FONT: 10pt arial"><B>Sent:</B> Saturday, June 07, 2003 9:02 
  AM</DIV>
  <DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [AccessD] Where does 
  WithEvents go?</DIV>
  <DIV><BR></DIV>
  <DIV><STRONG>Shamil,</STRONG></DIV>
  <DIV> </DIV>
  <DIV>    Could you kindly send me a copy of the version 
  suitable for Access 2002 (as & when ready).</DIV>
  <DIV> </DIV>
  <DIV>Regards,</DIV>
  <DIV><STRONG>A.D.Tejpal</STRONG></DIV>
  <DIV><STRONG>--------------</STRONG></DIV>
  <BLOCKQUOTE 
  style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
    <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
    <DIV 
    style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B> 
    <A title=shamil@smsconsulting.spb.ru 
    href="mailto:shamil@smsconsulting.spb.ru">Shamil Salakhetdinov</A> </DIV>
    <DIV style="FONT: 10pt arial"><B>To:</B> <A 
    title=accessd@databaseadvisors.com 
    href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A> 
    </DIV>
    <DIV style="FONT: 10pt arial"><B>Sent:</B> Friday, June 06, 2003 23:31</DIV>
    <DIV style="FONT: 10pt arial"><B>Subject:</B> Re: [AccessD] Where does 
    WithEvents go?</DIV>
    <DIV><BR></DIV>> Just as an aside, I now routinely go through<BR>> 
    this process so that each and every class is exposed.<BR>John,<BR><BR>Do you 
    do that manually of you've an add-in?<BR>I've a ClassExposer Add-In for MS 
    Access 97:<BR><BR><A 
    href="http://smsconsulting.spb.ru/shamil_s/articles/cexposer.htm">http://smsconsulting.spb.ru/shamil_s/articles/cexposer.htm</A><BR><BR><BR>If 
    you and/or other developers from this group need something like that 
    for<BR>MS Access 2000/XP I think I can make a conversion.<BR><BR>On the 
    other hand I'd strictly recommend TO NOT use exposed 
    CREATABLE<BR>classes/forms/reports - and use wrapper/helper/class factory 
    code to create<BR>custom classes' instances - IMO using class factories 
    makes your  coding<BR>more organized and easier to 
    debug...<BR><BR>Shamil<BR><BR>----- Original Message -----<BR>From: "John 
    Colby" <<A 
    href="mailto:jcolby@colbyconsulting.com">jcolby@colbyconsulting.com</A>><BR>To: 
    <<A 
    href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A>><BR>Sent: 
    Friday, June 06, 2003 6:13 PM<BR>Subject: RE: [AccessD] Where does 
    WithEvents go?<BR><BR><BR>> LOL.  I think the man is 
    happy!<BR>><BR>> You're welcome!<BR>><BR>> Just as an aside, I 
    now routinely go through this process so that each and<BR>> every class 
    is exposed.<BR>><BR>> BTW, I learned about this from using an FTP 
    class from Dev Ashish and<BR>Terry<BR>> Kreft.  It came in a lib, 
    and worked just fine.  I tried to move it into<BR>my<BR>> framework 
    lib and it no longer worked.  Of course I had simply 
    imported<BR>it.<BR>> The process of importing a class apparently resets 
    those two attributes<BR>back<BR>> to False (Thanks Microsoft for 
    protecting us children).  It took several<BR>> days of research and 
    asking (this list I believe, Shamil provided the<BR>answer<BR>> IIRC) to 
    get the solution I passed on to you.<BR>><BR>> John W. Colby<BR>> 
    <A 
    href="http://www.colbyconsulting.com">www.colbyconsulting.com</A><BR>><BR>> 
    -----Original Message-----<BR>> From: <A 
    href="mailto:accessd-bounces@databaseadvisors.com">accessd-bounces@databaseadvisors.com</A><BR>> 
    [mailto:accessd-bounces@databaseadvisors.com]On Behalf Of Bob Bedell<BR>> 
    Sent: Friday, June 06, 2003 10:02 AM<BR>> To: <A 
    href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A><BR>> 
    Subject: RE: [AccessD] Where does WithEvents go?<BR>><BR>><BR>> 
    Outstanding! Phenonmenal! This is great! Think of the 
    endless<BR>possibilities!<BR>><BR>> Oh, it worked...<BR>><BR>> 
    That's great John. clsInventory is now "creatably" exposed to my 
    event<BR>sink<BR>> app, with custom events firing and all. Thanks for 
    adding several<BR>productive<BR>> years to my life.<BR>><BR>> 
    Bob<BR>><BR>><BR>> >From: "John Colby" <<A 
    href="mailto:jcolby@colbyconsulting.com">jcolby@colbyconsulting.com</A>><BR>> 
    >Reply-To: <A 
    href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A><BR>> 
    >To: <<A 
    href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A>><BR>> 
    >Subject: RE: [AccessD] Where does WithEvents go?<BR>> >Date: Fri, 
    6 Jun 2003 08:56:25 -0400<BR>> ><BR>> >Bob,<BR>> ><BR>> 
    >Classes built directly in a library database are not visible outside 
    of<BR>the<BR>> >library in VBA.  No Se Por Que.  I guess 
    that since Microsoft considers<BR>VBA<BR>> >developers to be children, 
    giving us such powers is considered<BR>dangerous -<BR>> >kinda like 
    playing with knives or matches I suppose.  At any rate, it<BR>> 
    >absolutely is possible to get your classes exposed such that they can 
    be<BR>> >seen and used outside of the library.<BR>> ><BR>> 
    >The easiest way to do this is to:<BR>> ><BR>> >1) Export the 
    class to a text file.<BR>> >2) Open the class module with a text 
    editor<BR>> >3) Look for two attributes at the top of the 
    module.  Change Creatable<BR>and<BR>> >Exposed to True.<BR>> 
    >4) Save the class and close the text file.<BR>> >5) In your 
    library, click Insert / Class module<BR>> >6) In the editor window 
    that opens, click Insert / File.  Navigate to and<BR>> >select 
    the txt file that you saved the class in.  This will cause 
    Access<BR>to<BR>> >pull in the contents of whatever file you selected 
    and insert it in your<BR>> >class.  In this case it is the 
    contents of the modified class.<BR>> >7) At the top of the class you 
    will see something like:<BR>> ><BR>> >Option Compare 
    Database<BR>> >Option Explicit<BR>> ><BR>> >VERSION 1.0 
    CLASS<BR>> >BEGIN<BR>> >   MultiUse = -1  
    'True<BR>> >End<BR>> >Option Compare Database<BR>> >Option 
    Explicit<BR>> ><BR>> >Select and delete everything from the 
    first Option down through the End.<BR>> ><BR>> >8) Compile and 
    save the class<BR>> ><BR>> >The class will now be visible from 
    any database that references your<BR>> >library.<BR>> >John W. 
    Colby<BR>> >www.colbyconsulting.com<BR>> 
    ><BR>><BR>><BR>><BR>> 
    _______________________________________________<BR>> AccessD mailing 
    list<BR>> <A 
    href="mailto:AccessD@databaseadvisors.com">AccessD@databaseadvisors.com</A><BR>> 
    <A 
    href="http://databaseadvisors.com/mailman/listinfo/accessd">http://databaseadvisors.com/mailman/listinfo/accessd</A><BR>> 
    Website: <A 
    href="http://www.databaseadvisors.com">http://www.databaseadvisors.com</A><BR><BR>_______________________________________________<BR>AccessD 
    mailing list<BR><A 
    href="mailto:AccessD@databaseadvisors.com">AccessD@databaseadvisors.com</A><BR><A 
    href="http://databaseadvisors.com/mailman/listinfo/accessd">http://databaseadvisors.com/mailman/listinfo/accessd</A><BR>Website: 
    <A 
    href="http://www.databaseadvisors.com">http://www.databaseadvisors.com</A><BR></BLOCKQUOTE>
  <P>
  <HR>

  <P></P>_______________________________________________<BR>AccessD mailing 
  list<BR>AccessD@databaseadvisors.com<BR>http://databaseadvisors.com/mailman/listinfo/accessd<BR>Website: 
  http://www.databaseadvisors.com<BR></BLOCKQUOTE></BODY></HTML>