From joeget at vgernet.net  Mon Jan  2 08:29:26 2006
From: joeget at vgernet.net (John Eget)
Date: Mon, 2 Jan 2006 09:29:26 -0500
Subject: [AccessD] Append/Update tables
Message-ID: <004701c60fa8$f613e860$d2c2f63f@JOHN>

I have a table "tblPA" in a database and have successfully imported the same file from another database.  So now I have "tblPA" and "tblPA1".  The tables have 4 identical fields called "Added Date", "Added Time", "Date Modified", and "Time Modified" plus several others.

I would like to append/update the "tblPA" by adding the new records from the "tblPA1" and append/update the records of "tblPA" if the table "tblPA1" has a later modified date and time.

First, I think I need to delete the records that need to be appended/updated from "tblPA" and then just add the records from "tblPA1" that are new.  That may all be possible by the Date and Time Modified fields and then just using the Added date and time to add the records to "tblPA"

I do believe that that will satisfy the process.  Do you agree? Have an example? Know where there is an example?

Thanks again

John  

From joeget at vgernet.net  Mon Jan  2 08:29:49 2006
From: joeget at vgernet.net (John Eget)
Date: Mon, 2 Jan 2006 09:29:49 -0500
Subject: [AccessD] Append/Update tables
Message-ID: <004e01c60fa9$037d22a0$d2c2f63f@JOHN>

I have a table "tblPA" in a database and have successfully imported the same file from another database.  So now I have "tblPA" and "tblPA1".  The tables have 4 identical fields called "Added Date", "Added Time", "Date Modified", and "Time Modified" plus several others.

I would like to append/update the "tblPA" by adding the new records from the "tblPA1" and append/update the records of "tblPA" if the table "tblPA1" has a later modified date and time.

First, I think I need to delete the records that need to be appended/updated from "tblPA" and then just add the records from "tblPA1" that are new.  That may all be possible by the Date and Time Modified fields and then just using the Added date and time to add the records to "tblPA"

I do believe that that will satisfy the process.  Do you agree? Have an example? Know where there is an example?

Thanks again

John  

From Gustav at cactus.dk  Mon Jan  2 08:49:06 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 02 Jan 2006 15:49:06 +0100
Subject: [AccessD] Append/Update tables
Message-ID: <s3b94b8f.097@cactus.dk>

Hi John (I mailed this the other day but perhaps it missed the list)

This tip from Smart Access is one of my favourites:

<quote>

Update and Append Records with One Query

By Alan Biggs

Did you know that you can use an update query in Access to both update
and add records at the same time? This is useful if you have two
versions of a table, tblOld and tblNew, and you want to integrate the
changes from tblNew into tblOld. 

Follow these steps:

1. Create an update query and add the two tables. Join the two tables
by dragging the key field of tblNew onto the matching field of tblOld.

2. Double-click on the relationship and choose the join option that
includes all records from tblNew and only those that match from
tblOld. 

3. Select all the fields from tblOld and drag them onto the QBE grid.

4. For each field, in the Update To cell type in tblNew.FieldName,
where FieldName matches the field name of tblOld.

5. Select Query Properties from the View menu and change Unique
Records to False. (This switches off the DISTINCTROW option in the SQL
view. If you leave this on you'll get only one blank record in your
results, but you want one blank record for each new record to be added
to tblOld.) 

6. Run the query and you'll see the changes to tblNew are now in
tblOld. 

This will only add records to tblOld that have been added to tblNew.
Records in tblOld that aren't present in tblNew will still remain in
tblOld. 

</quote>

Happy New Year to all!

/gustav


>>> joeget at vgernet.net 02-01-2006 15:29:49 >>>
I have a table "tblPA" in a database and have successfully imported the same file from another database.  So now I have "tblPA" and "tblPA1".  The tables have 4 identical fields called "Added Date", "Added Time", "Date Modified", and "Time Modified" plus several others.

I would like to append/update the "tblPA" by adding the new records from the "tblPA1" and append/update the records of "tblPA" if the table "tblPA1" has a later modified date and time.

First, I think I need to delete the records that need to be appended/updated from "tblPA" and then just add the records from "tblPA1" that are new.  That may all be possible by the Date and Time Modified fields and then just using the Added date and time to add the records to "tblPA"

I do believe that that will satisfy the process.  Do you agree? Have an example? Know where there is an example?

Thanks again

John  




From jwcolby at ColbyConsulting.com  Mon Jan  2 10:48:40 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 2 Jan 2006 11:48:40 -0500
Subject: [AccessD] Free Visual Studio e-learning from Microsoft
Message-ID: <000401c60fbc$63510440$647aa8c0@ColbyM6805>

I just ran across this.

http://msdn.microsoft.com/vstudio/learning/elearning_promo/default.aspx

It is a limited time offer which expires very soon.  One free course.  I am
examining it further now.

John W. Colby
www.ColbyConsulting.com 

Contribute your unused CPU cycles to a good cause:
http://folding.stanford.edu/



From wdhindman at bellsouth.net  Mon Jan  2 12:01:51 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Mon, 2 Jan 2006 13:01:51 -0500
Subject: [AccessD] Append/Update tables
References: <004701c60fa8$f613e860$d2c2f63f@JOHN>
Message-ID: <007201c60fc6$9bf2a6f0$6101a8c0@JISREGISTRATION.local>

http://www.peterssoftware.com/trm.htm

...hth :)

William

----- Original Message ----- 
From: "John Eget" <joeget at vgernet.net>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Monday, January 02, 2006 9:29 AM
Subject: [AccessD] Append/Update tables


>I have a table "tblPA" in a database and have successfully imported the 
>same file from another database.  So now I have "tblPA" and "tblPA1".  The 
>tables have 4 identical fields called "Added Date", "Added Time", "Date 
>Modified", and "Time Modified" plus several others.
>
> I would like to append/update the "tblPA" by adding the new records from 
> the "tblPA1" and append/update the records of "tblPA" if the table 
> "tblPA1" has a later modified date and time.
>
> First, I think I need to delete the records that need to be 
> appended/updated from "tblPA" and then just add the records from "tblPA1" 
> that are new.  That may all be possible by the Date and Time Modified 
> fields and then just using the Added date and time to add the records to 
> "tblPA"
>
> I do believe that that will satisfy the process.  Do you agree? Have an 
> example? Know where there is an example?
>
> Thanks again
>
> John
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From harkinsss at bellsouth.net  Mon Jan  2 13:25:33 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Mon, 2 Jan 2006 14:25:33 -0500
Subject: [AccessD] Free Visual Studio e-learning from Microsoft
In-Reply-To: <000401c60fbc$63510440$647aa8c0@ColbyM6805>
Message-ID: <20060102192535.DJWF12654.ibm67aec.bellsouth.net@SUSANONE>

I'm looking for good intro into Visual Basic Express materials -- if anyone
runs across something good, would you send me a link at
harkinsss at bellsouth.net? Thanks!

Susan H. 

I just ran across this.

http://msdn.microsoft.com/vstudio/learning/elearning_promo/default.aspx

It is a limited time offer which expires very soon.  One free course.  I am
examining it further now.




From dwaters at usinternet.com  Mon Jan  2 15:55:47 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Mon, 2 Jan 2006 15:55:47 -0600
Subject: [AccessD] Free Visual Studio e-learning from Microsoft
In-Reply-To: <6182816.1136230180574.JavaMail.root@sniper15>
Message-ID: <000001c60fe7$4a514560$0200a8c0@danwaters>

Susan,

This link goes to a book at Amazon which covers, SQL Server Express, Visual
Basic Express, and Visual Web Developer Express.  I got it a couple of weeks
ago just for the SQL Express part.  Rick Dobson is the author.

http://www.amazon.com/gp/product/1590595238/qid=1136238721/sr=8-1/ref=sr_8_x
s_ap_i1_xgl14/103-9977055-8866223?n=507846&s=books&v=glance

Dan Waters

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Monday, January 02, 2006 1:26 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Free Visual Studio e-learning from Microsoft

I'm looking for good intro into Visual Basic Express materials -- if anyone
runs across something good, would you send me a link at
harkinsss at bellsouth.net? Thanks!

Susan H. 

I just ran across this.

http://msdn.microsoft.com/vstudio/learning/elearning_promo/default.aspx

It is a limited time offer which expires very soon.  One free course.  I am
examining it further now.


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



From mboyd at deloitte.com  Mon Jan  2 19:41:09 2006
From: mboyd at deloitte.com (Boyd, Mark Thomas (US - Philadelphia))
Date: Mon, 2 Jan 2006 20:41:09 -0500
Subject: [AccessD] Write Conflict
Message-ID: <EB062E528F7B964281EB0F83CFDA3B43251810@usndc0419.us.deloitte.com>

David -
Are you using SQL Server as the backend to your form's data?  I've seen
this in the past when SQL tables are being updated.
If so, adding a timestamp datatype column to the table seemed to fix it
for me.


Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David &
Joanne Gould
Sent: Saturday, December 31, 2005 8:02 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Write Conflict

It is set to update the table. However, it doesn't matter what I set to 
happen in the subform because the error message happens when the other
form 
is closed and before the subform is accessed.

At 11:28 PM 31/12/2005, you wrote:
>Hi David, and Happy New Year to you too.
>
>It sounds as if the "new form" on which they change rental type is
updating
>the same table that your subform is based on. If so I'd try 2 things.
>Firstly do a Save of the subform before opening the new form, and then
>Requery the subform when the other form closes.
>
>-- Andy Lacey
>http://www.minstersystems.co.uk
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > David & Joanne Gould
> > Sent: 31 December 2005 12:09
> > To: accessd at databaseadvisors.com
> > Subject: [AccessD] Write Conflict
> >
> >
> > Firstly, I would like to wish everyone on the a Happy and
> > Prosperous 2006.
> > May the best of 2005 be the worst of 2006.
> >
> > My problem is I am working on a video library database. My
> > hire form has a
> > main form (hirer's details) and a subform (hiring details).
> > There is a
> > combo box that the user uses to select the movie. If they
> > double-click on
> > the combo box they are taken to a new form where they can
> > change the rental
> > type for the movie (eg is it an overnight, 3 nights, weekly
> > etc rental)
> > When they have selected the new rental type the program
> > checks for every
> > instance of that movie name and changes it to the new rental
> > type. It also
> > updates the Hiring record to record the new date due into the
> > table. This
> > all works perfectly. However, when they close the form to go
> > back to the
> > Hiring form, I get Write Conflict. If I click on the Save
> > option it works
> > perfectly and updates the row in the Hire form details to reflect
the
> > changes and I can continue to work.
> >
> > I can't seem to figure out where the error is being triggered
> > so I can tell
> > it to save programatically and leave the user none the wiser.
> >
> > Any help in this will be greatly appreciated.
> >
> > TIA
> >
> > David
> >
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> >
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com


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


This message (including any attachments) contains confidential information intended for a specific individual and purpose, and is protected by law.  If you are not the intended recipient, you should delete this message. 


Any disclosure, copying, or distribution of this message, or the taking of any action based on it, is strictly prohibited. [v.E.1]


From dajomigo at tpg.com.au  Mon Jan  2 20:55:34 2006
From: dajomigo at tpg.com.au (David & Joanne Gould)
Date: Tue, 03 Jan 2006 13:55:34 +1100
Subject: [AccessD] Write Conflict
In-Reply-To: <EB062E528F7B964281EB0F83CFDA3B43251810@usndc0419.us.deloit
	te.com>
References: <EB062E528F7B964281EB0F83CFDA3B43251810@usndc0419.us.deloitte.com>
Message-ID: <6.2.1.2.2.20060103135101.033b66f0@mail.tpg.com.au>

Mark

No, I'm just using Access XP keeping the database in Access 2000 format.  I 
think the problem is that the data in the table is updated in the other 
form and therefore doesn't match the subform. I originally wasn't saving 
the changes in the update form but was getting the same problem except that 
the Save button didn't fix things then. So I think I'm closer to the right 
solution except I can't figure out how to do the Save at the right time. It 
seems to be somewhere between when the Close command is activated and 
anything else happening.

Hope this helps.

TIA

David

At 12:41 PM 3/01/2006, you wrote:
>David -
>Are you using SQL Server as the backend to your form's data?  I've seen
>this in the past when SQL tables are being updated.
>If so, adding a timestamp datatype column to the table seemed to fix it
>for me.
>
>
>Mark Boyd
>Senior Consultant
>Enterprise Risk Services
>Deloitte & Touche LLP
>
>Tel: +1 215 405 5576
>mboyd at deloitte.com
>www.deloitte.com
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David &
>Joanne Gould
>Sent: Saturday, December 31, 2005 8:02 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] Write Conflict
>
>It is set to update the table. However, it doesn't matter what I set to
>happen in the subform because the error message happens when the other
>form
>is closed and before the subform is accessed.
>
>At 11:28 PM 31/12/2005, you wrote:
> >Hi David, and Happy New Year to you too.
> >
> >It sounds as if the "new form" on which they change rental type is
>updating
> >the same table that your subform is based on. If so I'd try 2 things.
> >Firstly do a Save of the subform before opening the new form, and then
> >Requery the subform when the other form closes.
> >
> >-- Andy Lacey
> >http://www.minstersystems.co.uk
> >
> > > -----Original Message-----
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > > David & Joanne Gould
> > > Sent: 31 December 2005 12:09
> > > To: accessd at databaseadvisors.com
> > > Subject: [AccessD] Write Conflict
> > >
> > >
> > > Firstly, I would like to wish everyone on the a Happy and
> > > Prosperous 2006.
> > > May the best of 2005 be the worst of 2006.
> > >
> > > My problem is I am working on a video library database. My
> > > hire form has a
> > > main form (hirer's details) and a subform (hiring details).
> > > There is a
> > > combo box that the user uses to select the movie. If they
> > > double-click on
> > > the combo box they are taken to a new form where they can
> > > change the rental
> > > type for the movie (eg is it an overnight, 3 nights, weekly
> > > etc rental)
> > > When they have selected the new rental type the program
> > > checks for every
> > > instance of that movie name and changes it to the new rental
> > > type. It also
> > > updates the Hiring record to record the new date due into the
> > > table. This
> > > all works perfectly. However, when they close the form to go
> > > back to the
> > > Hiring form, I get Write Conflict. If I click on the Save
> > > option it works
> > > perfectly and updates the row in the Hire form details to reflect
>the
> > > changes and I can continue to work.
> > >
> > > I can't seem to figure out where the error is being triggered
> > > so I can tell
> > > it to save programatically and leave the user none the wiser.
> > >
> > > Any help in this will be greatly appreciated.
> > >
> > > TIA
> > >
> > > David
> > >
> > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> > >
> >
> >--
> >AccessD mailing list
> >AccessD at databaseadvisors.com
> >http://databaseadvisors.com/mailman/listinfo/accessd
> >Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>This message (including any attachments) contains confidential information 
>intended for a specific individual and purpose, and is protected by 
>law.  If you are not the intended recipient, you should delete this message.
>
>
>Any disclosure, copying, or distribution of this message, or the taking of 
>any action based on it, is strictly prohibited. [v.E.1]
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From Erwin.Craps at ithelps.be  Tue Jan  3 03:40:14 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Tue, 3 Jan 2006 10:40:14 +0100
Subject: [AccessD] Saving Phonenumber format in Outlook
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B625F@stekelbes.ithelps.local>

 
Hapyy New Year to you all.
May your wishes (and mine) come true :-)
 
Here's my question.
 
I'm using in VBA the ContactItem object to save or edit a phonenumber
from a contact.
 
I set my phonenumber in international format so when I synchronyse my
Outlook contacts with my GSM/Mobile phone I can dial from any country.
 
As you now the international format is
+ sign (international dialing) - country code - zone (without leading
zero) - phonenumber.
Example: +3216296404
 
When setting a contact phonenumber to "+3216296404" outlook changes it
to "+32 16296404" with a space between the country code and
zone+phonenumber.
 
Whats the big deal you would say, well the problem is that it also
synchonyses that way to my mobile phone.
This is not a problem for dialing out, but when when someone calls me,
the incoming phonenumber is not recognised in the mobiles database due
to that added space.
 
Is there a way I can make Outlook save the phonenumber without that
space.
I can remove the space when having a linked table in Access to Outlook,
So why can I not remove thet space from within VBA?
 
 

 

Erwin Craps

Zaakvoerder 

www.ithelps.be/onsgezin

 

This E-mail is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and E-mail confirmation to
the sender.

IT Helps - I.T. Help Center  ***  Box Office Belgium & Luxembourg

www.ithelps.be <http://www.ithelps.be/>   *  www.boxoffice.be
<http://www.boxoffice.be/>   *  www.stadleuven.be
<http://www.stadleuven.be/> 

IT Helps bvba* ** Mercatorpad 3 **  3000 Leuven

IT Helps  *  Phone: +32 16 296 404  *  Fax: +32 16 296 405 E-mail:
Info at ithelps.be 

Box Office **  Fax: +32 16 296 406 **  Box Office E-mail:
Staff at boxoffice.be <mailto:figures at boxoffice.be> 

 


From DWUTKA at marlow.com  Tue Jan  3 08:28:17 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Tue, 3 Jan 2006 08:28:17 -0600 
Subject: [AccessD] Saving Phonenumber format in Outlook
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD44C@main2.marlow.com>

Is the Replace function not working?
SomeString=Replace(StringWithPhoneNumber," ","")

Drew

	-----Original Message-----
	From:	Erwin Craps - IT Helps [SMTP:Erwin.Craps at ithelps.be]
	Sent:	Tuesday, January 03, 2006 3:40 AM
	To:	accessd at databaseadvisors.com
	Subject:	[AccessD] Saving Phonenumber format in Outlook

	 
	Hapyy New Year to you all.
	May your wishes (and mine) come true :-)
	 
	Here's my question.
	 
	I'm using in VBA the ContactItem object to save or edit a
phonenumber
	from a contact.
	 
	I set my phonenumber in international format so when I synchronyse
my
	Outlook contacts with my GSM/Mobile phone I can dial from any
country.
	 
	As you now the international format is
	+ sign (international dialing) - country code - zone (without
leading
	zero) - phonenumber.
	Example: +3216296404
	 
	When setting a contact phonenumber to "+3216296404" outlook changes
it
	to "+32 16296404" with a space between the country code and
	zone+phonenumber.
	 
	Whats the big deal you would say, well the problem is that it also
	synchonyses that way to my mobile phone.
	This is not a problem for dialing out, but when when someone calls
me,
	the incoming phonenumber is not recognised in the mobiles database
due
	to that added space.
	 
	Is there a way I can make Outlook save the phonenumber without that
	space.
	I can remove the space when having a linked table in Access to
Outlook,
	So why can I not remove thet space from within VBA?
	 
	 

	 

	Erwin Craps

	Zaakvoerder 

	www.ithelps.be/onsgezin

	 

	This E-mail is confidential, may be legally privileged, and is for
the
	intended recipient only. Access, disclosure, copying, distribution,
or
	reliance on any of it by anyone else is prohibited and may be a
criminal
	offence. Please delete if obtained in error and E-mail confirmation
to
	the sender.

	IT Helps - I.T. Help Center  ***  Box Office Belgium & Luxembourg

	www.ithelps.be <http://www.ithelps.be/>   *  www.boxoffice.be
	<http://www.boxoffice.be/>   *  www.stadleuven.be
	<http://www.stadleuven.be/> 

	IT Helps bvba* ** Mercatorpad 3 **  3000 Leuven

	IT Helps  *  Phone: +32 16 296 404  *  Fax: +32 16 296 405 E-mail:
	Info at ithelps.be 

	Box Office **  Fax: +32 16 296 406 **  Box Office E-mail:
	Staff at boxoffice.be <mailto:figures at boxoffice.be> 

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


From Erwin.Craps at ithelps.be  Tue Jan  3 09:17:51 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Tue, 3 Jan 2006 16:17:51 +0100
Subject: [AccessD] Saving Phonenumber format in Outlook
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B6267@stekelbes.ithelps.local>

Euh yes, 
but thats not the issue.

If I do 
Contactitem.PhoneNumber ="+3216296404"
Debug.print Contactitem.PhoneNumber 

I get "+32 16296404" as result

Outlook autmaticaly adds a space.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Tuesday, January 03, 2006 3:28 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Saving Phonenumber format in Outlook

Is the Replace function not working?
SomeString=Replace(StringWithPhoneNumber," ","")

Drew

	-----Original Message-----
	From:	Erwin Craps - IT Helps [SMTP:Erwin.Craps at ithelps.be]
	Sent:	Tuesday, January 03, 2006 3:40 AM
	To:	accessd at databaseadvisors.com
	Subject:	[AccessD] Saving Phonenumber format in Outlook

	 
	Hapyy New Year to you all.
	May your wishes (and mine) come true :-)
	 
	Here's my question.
	 
	I'm using in VBA the ContactItem object to save or edit a
phonenumber
	from a contact.
	 
	I set my phonenumber in international format so when I
synchronyse my
	Outlook contacts with my GSM/Mobile phone I can dial from any
country.
	 
	As you now the international format is
	+ sign (international dialing) - country code - zone (without
leading
	zero) - phonenumber.
	Example: +3216296404
	 
	When setting a contact phonenumber to "+3216296404" outlook
changes it
	to "+32 16296404" with a space between the country code and
	zone+phonenumber.
	 
	Whats the big deal you would say, well the problem is that it
also
	synchonyses that way to my mobile phone.
	This is not a problem for dialing out, but when when someone
calls me,
	the incoming phonenumber is not recognised in the mobiles
database due
	to that added space.
	 
	Is there a way I can make Outlook save the phonenumber without
that
	space.
	I can remove the space when having a linked table in Access to
Outlook,
	So why can I not remove thet space from within VBA?
	 
	 

	 

	Erwin Craps

	Zaakvoerder 

	www.ithelps.be/onsgezin

	 

	This E-mail is confidential, may be legally privileged, and is
for the
	intended recipient only. Access, disclosure, copying,
distribution, or
	reliance on any of it by anyone else is prohibited and may be a
criminal
	offence. Please delete if obtained in error and E-mail
confirmation to
	the sender.

	IT Helps - I.T. Help Center  ***  Box Office Belgium &
Luxembourg

	www.ithelps.be <http://www.ithelps.be/>   *  www.boxoffice.be
	<http://www.boxoffice.be/>   *  www.stadleuven.be
	<http://www.stadleuven.be/> 

	IT Helps bvba* ** Mercatorpad 3 **  3000 Leuven

	IT Helps  *  Phone: +32 16 296 404  *  Fax: +32 16 296 405
E-mail:
	Info at ithelps.be 

	Box Office **  Fax: +32 16 296 406 **  Box Office E-mail:
	Staff at boxoffice.be <mailto:figures at boxoffice.be> 

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


From DWUTKA at marlow.com  Tue Jan  3 09:54:26 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Tue, 3 Jan 2006 09:54:26 -0600 
Subject: [AccessD] Saving Phonenumber format in Outlook
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD455@main2.marlow.com>

Hmmm, don't mess around with Outlook too much, but I would think there would
be somewhere to set the format for phone numbers.

Drew

	-----Original Message-----
	From:	Erwin Craps - IT Helps [SMTP:Erwin.Craps at ithelps.be]
	Sent:	Tuesday, January 03, 2006 9:18 AM
	To:	Access Developers discussion and problem solving
	Subject:	Re: [AccessD] Saving Phonenumber format in Outlook

	Euh yes, 
	but thats not the issue.

	If I do 
	Contactitem.PhoneNumber ="+3216296404"
	Debug.print Contactitem.PhoneNumber 

	I get "+32 16296404" as result

	Outlook autmaticaly adds a space.



	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
	DWUTKA at marlow.com
	Sent: Tuesday, January 03, 2006 3:28 PM
	To: accessd at databaseadvisors.com
	Subject: Re: [AccessD] Saving Phonenumber format in Outlook

	Is the Replace function not working?
	SomeString=Replace(StringWithPhoneNumber," ","")

	Drew

		-----Original Message-----
		From:	Erwin Craps - IT Helps [SMTP:Erwin.Craps at ithelps.be]
		Sent:	Tuesday, January 03, 2006 3:40 AM
		To:	accessd at databaseadvisors.com
		Subject:	[AccessD] Saving Phonenumber format in
Outlook

		 
		Hapyy New Year to you all.
		May your wishes (and mine) come true :-)
		 
		Here's my question.
		 
		I'm using in VBA the ContactItem object to save or edit a
	phonenumber
		from a contact.
		 
		I set my phonenumber in international format so when I
	synchronyse my
		Outlook contacts with my GSM/Mobile phone I can dial from
any
	country.
		 
		As you now the international format is
		+ sign (international dialing) - country code - zone
(without
	leading
		zero) - phonenumber.
		Example: +3216296404
		 
		When setting a contact phonenumber to "+3216296404" outlook
	changes it
		to "+32 16296404" with a space between the country code and
		zone+phonenumber.
		 
		Whats the big deal you would say, well the problem is that
it
	also
		synchonyses that way to my mobile phone.
		This is not a problem for dialing out, but when when someone
	calls me,
		the incoming phonenumber is not recognised in the mobiles
	database due
		to that added space.
		 
		Is there a way I can make Outlook save the phonenumber
without
	that
		space.
		I can remove the space when having a linked table in Access
to
	Outlook,
		So why can I not remove thet space from within VBA?
		 
		 

		 

		Erwin Craps

		Zaakvoerder 

		www.ithelps.be/onsgezin

		 

		This E-mail is confidential, may be legally privileged, and
is
	for the
		intended recipient only. Access, disclosure, copying,
	distribution, or
		reliance on any of it by anyone else is prohibited and may
be a
	criminal
		offence. Please delete if obtained in error and E-mail
	confirmation to
		the sender.

		IT Helps - I.T. Help Center  ***  Box Office Belgium &
	Luxembourg

		www.ithelps.be <http://www.ithelps.be/>   *
www.boxoffice.be
		<http://www.boxoffice.be/>   *  www.stadleuven.be
		<http://www.stadleuven.be/> 

		IT Helps bvba* ** Mercatorpad 3 **  3000 Leuven

		IT Helps  *  Phone: +32 16 296 404  *  Fax: +32 16 296 405
	E-mail:
		Info at ithelps.be 

		Box Office **  Fax: +32 16 296 406 **  Box Office E-mail:
		Staff at boxoffice.be <mailto:figures at boxoffice.be> 

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


From DWUTKA at marlow.com  Tue Jan  3 11:49:24 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Tue, 3 Jan 2006 11:49:24 -0600 
Subject: [AccessD] Just Curious William...
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD45F@main2.marlow.com>

How is it going with the latest 'sample' I sent ya?  

Did you figure out how to use the VB .exe I sent, to setup different shapes
for the forms?

Drew


From martyconnelly at shaw.ca  Tue Jan  3 13:03:46 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Tue, 03 Jan 2006 11:03:46 -0800
Subject: [AccessD] Saving Phonenumber format in Outlook
References: <46B976F2B698FF46A4FE7636509B22DF1B6267@stekelbes.ithelps.local>
Message-ID: <43BACA92.7080801@shaw.ca>

Maybe look through the links starting here

http://www.slipstick.com/config/ukbignumber.htm

Probably to do with one of these settings

in Outlook enter telephone numbers in full "international" or 
"canonical" format:  +xx (yyy) zzzz-zzzz
and
Telephony applet from Control Panel which determines your present phone 
location


Erwin Craps - IT Helps wrote:

>Euh yes, 
>but thats not the issue.
>
>If I do 
>Contactitem.PhoneNumber ="+3216296404"
>Debug.print Contactitem.PhoneNumber 
>
>I get "+32 16296404" as result
>
>Outlook autmaticaly adds a space.
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>DWUTKA at marlow.com
>Sent: Tuesday, January 03, 2006 3:28 PM
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] Saving Phonenumber format in Outlook
>
>Is the Replace function not working?
>SomeString=Replace(StringWithPhoneNumber," ","")
>
>Drew
>
>	-----Original Message-----
>	From:	Erwin Craps - IT Helps [SMTP:Erwin.Craps at ithelps.be]
>	Sent:	Tuesday, January 03, 2006 3:40 AM
>	To:	accessd at databaseadvisors.com
>	Subject:	[AccessD] Saving Phonenumber format in Outlook
>
>	 
>	Hapyy New Year to you all.
>	May your wishes (and mine) come true :-)
>	 
>	Here's my question.
>	 
>	I'm using in VBA the ContactItem object to save or edit a
>phonenumber
>	from a contact.
>	 
>	I set my phonenumber in international format so when I
>synchronyse my
>	Outlook contacts with my GSM/Mobile phone I can dial from any
>country.
>	 
>	As you now the international format is
>	+ sign (international dialing) - country code - zone (without
>leading
>	zero) - phonenumber.
>	Example: +3216296404
>	 
>	When setting a contact phonenumber to "+3216296404" outlook
>changes it
>	to "+32 16296404" with a space between the country code and
>	zone+phonenumber.
>	 
>	Whats the big deal you would say, well the problem is that it
>also
>	synchonyses that way to my mobile phone.
>	This is not a problem for dialing out, but when when someone
>calls me,
>	the incoming phonenumber is not recognised in the mobiles
>database due
>	to that added space.
>	 
>	Is there a way I can make Outlook save the phonenumber without
>that
>	space.
>	I can remove the space when having a linked table in Access to
>Outlook,
>	So why can I not remove thet space from within VBA?
>	 
>	 
>
>	 
>
>	Erwin Craps
>
>	Zaakvoerder 
>
>	www.ithelps.be/onsgezin
>
>	 
>
>	This E-mail is confidential, may be legally privileged, and is
>for the
>	intended recipient only. Access, disclosure, copying,
>distribution, or
>	reliance on any of it by anyone else is prohibited and may be a
>criminal
>	offence. Please delete if obtained in error and E-mail
>confirmation to
>	the sender.
>
>	IT Helps - I.T. Help Center  ***  Box Office Belgium &
>Luxembourg
>
>	www.ithelps.be <http://www.ithelps.be/>   *  www.boxoffice.be
>	<http://www.boxoffice.be/>   *  www.stadleuven.be
>	<http://www.stadleuven.be/> 
>
>	IT Helps bvba* ** Mercatorpad 3 **  3000 Leuven
>
>	IT Helps  *  Phone: +32 16 296 404  *  Fax: +32 16 296 405
>E-mail:
>	Info at ithelps.be 
>
>	Box Office **  Fax: +32 16 296 406 **  Box Office E-mail:
>	Staff at boxoffice.be <mailto:figures at boxoffice.be> 
>
>	 
>	-- 
>	AccessD mailing list
>	AccessD at databaseadvisors.com
>	http://databaseadvisors.com/mailman/listinfo/accessd
>	Website: http://www.databaseadvisors.com
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From jwelz at hotmail.com  Tue Jan  3 14:35:45 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Tue, 03 Jan 2006 13:35:45 -0700
Subject: [AccessD] More Word/graphics OT
In-Reply-To: <001001c60691$d1a0f8d0$6101a8c0@JISREGISTRATION.local>
Message-ID: <BAY113-F267A4EFB099EE26AC47ADEA12C0@phx.gbl>

Jan 1 and all my new WMF logos were in place.  I wound up being able to 
import a few pc EPS files converted from Mac format into Corel Draw 9 (they 
are up to 12 now), delete a few redundant nodes (3 in a single line with the 
same top cooridinate can be defined as well by 2), adjust the colors 
(Pantone, RGB, CMYK or several other options) and then save as WMF format.  
I now have logos varying in size from 6 to 12 K (6 to 26 character outlines, 
each with a 'swoop' line) that I believe are mathematically correct and 
scale flawlessly as replacement for the off color 2k files (10 character 
max) segmented outlines I had before.

I had started with the Trace application and it worked extremely well in the 
conversion.  After all, the logos are made up of a very simple block font 
with just a few curves.  The trace of the letter M TIFF came up with 13 
nodes (EPS file conversion had 14) for the 13 straight lines that made up 
the outline.  Although I did not ultimately use the Trace feature, it was 
head and shoulders easier to use than the PSP X that I tried.  I probably 
spent 3 hours with the PSP X help before quitting.  I just dove in with the 
Corel, traced two logos and cleaned them up and changed strategies to work 
with the EPS format imported and created/modified/revised 6 logos start to 
finish in less than the 3 hours I spent working with PSP.  I picked up a 
reference book from the library for CorelDraw! but did not need to look up 
anything to get this part of the project done.

Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "William Hindman" <wdhindman at bellsouth.net>
>
>...PSP X is well capable of doing everything you need Jurgen ...Corel just
>bought out Jasc and have not managed to screw it up as yet ...I use it all
>the time for just such tasks ...but not even Adobe Photo Shop or 
>Illustrator
>will do what you want when you start with a raster version of the logo
>...wmf is not a pure vector format and converted rasters rarely transform
>successfully into vectorized wmfs in my experience ...I'd redo the logo 
>from
>scratch in PSP as a vector image using PSP's native format rather than wmf
>...then export it as a wmf ...actually the emf format is a much better
>platform imnsho for native vector images and I much prefer it over wmf.
>
>...I had to do this for a client a few months ago and had both PSP and 
>Adobe
>CS2 available...we had a 3rd party graphics shop redo the logo in PSP's
>native format (.pspimage) and I retained that as the master ...PSP readily
>exported it as a vector emf and it resizes in Access and Word just as it
>should without any of the distortions native to resized raster images.
>
>...hth
>
>William




From martyconnelly at shaw.ca  Tue Jan  3 15:10:38 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Tue, 03 Jan 2006 13:10:38 -0800
Subject: [AccessD] More Word/graphics OT
References: <BAY113-F267A4EFB099EE26AC47ADEA12C0@phx.gbl>
Message-ID: <43BAE84E.6020109@shaw.ca>

If you are mailing this out, you may find sites blocking .wmf files, due 
to recent Windows Picture and Fax Viewer exploit flaw, until Microsoft 
unveils a patch. I don't know what the AV firms are doing in response or 
how it would affect embeded wmf's in a .doc file.
I just deregistered the dll until microsoft sorts it out.

Just thought I would cheer up your day. ;)

Yup, if you don't want to use the partial patch from Stuart's url.

Un-register the Windows Picture and Fax Viewer (Shimgvw.dll) on Windows 
XP Service Pack 1; Windows XP Service Pack 2; Windows Server 2003 and 
Windows Server 2003 Service Pack 1

http://www.microsoft.com/technet/security/advisory/912840.mspx

This will stop browser infections. BUT

Just remember this won't protect you, if you store and save a downloaded 
jpeg, then view it with MS window fax viewer,  these guys can disguise a 
.wmf  file extension as a .jpeg file and the exploit will work as the 
fax viewer will interpret it correctly as a virus loaded wmf file.


Stuart McLachlan wrote:


>Don't know how many of you are up on this, but be careful out there.
>This one is VERY nasty
>
>http://isc.sans.org/
>
>
>
>
>  



? Welz wrote:

> Jan 1 and all my new WMF logos were in place. I wound up being able to 
> import a few pc EPS files converted from Mac format into Corel Draw 9 
> (they are up to 12 now), delete a few redundant nodes (3 in a single 
> line with the same top cooridinate can be defined as well by 2), 
> adjust the colors (Pantone, RGB, CMYK or several other options) and 
> then save as WMF format. I now have logos varying in size from 6 to 12 
> K (6 to 26 character outlines, each with a 'swoop' line) that I 
> believe are mathematically correct and scale flawlessly as replacement 
> for the off color 2k files (10 character max) segmented outlines I had 
> before.
>
> I had started with the Trace application and it worked extremely well 
> in the conversion. After all, the logos are made up of a very simple 
> block font with just a few curves. The trace of the letter M TIFF came 
> up with 13 nodes (EPS file conversion had 14) for the 13 straight 
> lines that made up the outline. Although I did not ultimately use the 
> Trace feature, it was head and shoulders easier to use than the PSP X 
> that I tried. I probably spent 3 hours with the PSP X help before 
> quitting. I just dove in with the Corel, traced two logos and cleaned 
> them up and changed strategies to work with the EPS format imported 
> and created/modified/revised 6 logos start to finish in less than the 
> 3 hours I spent working with PSP. I picked up a reference book from 
> the library for CorelDraw! but did not need to look up anything to get 
> this part of the project done.
>
> Ciao
> J?rgen Welz
> Edmonton, Alberta
> jwelz at hotmail.com
>
>
>
>
>
>> From: "William Hindman" <wdhindman at bellsouth.net>
>>
>> ...PSP X is well capable of doing everything you need Jurgen ...Corel 
>> just
>> bought out Jasc and have not managed to screw it up as yet ...I use 
>> it all
>> the time for just such tasks ...but not even Adobe Photo Shop or 
>> Illustrator
>> will do what you want when you start with a raster version of the logo
>> ...wmf is not a pure vector format and converted rasters rarely 
>> transform
>> successfully into vectorized wmfs in my experience ...I'd redo the 
>> logo from
>> scratch in PSP as a vector image using PSP's native format rather 
>> than wmf
>> ...then export it as a wmf ...actually the emf format is a much better
>> platform imnsho for native vector images and I much prefer it over wmf.
>>
>> ...I had to do this for a client a few months ago and had both PSP 
>> and Adobe
>> CS2 available...we had a 3rd party graphics shop redo the logo in PSP's
>> native format (.pspimage) and I retained that as the master ...PSP 
>> readily
>> exported it as a vector emf and it resizes in Access and Word just as it
>> should without any of the distortions native to resized raster images.
>>
>> ...hth
>>
>> William
>
>
>
>------------------------------------------------------------------------
>
>No virus found in this incoming message.
>Checked by AVG Free Edition.
>Version: 7.1.371 / Virus Database: 267.14.12/220 - Release Date: 03/01/2006
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From martyconnelly at shaw.ca  Tue Jan  3 16:18:41 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Tue, 03 Jan 2006 14:18:41 -0800
Subject: [AccessD] More Word/graphics OT
References: <BAY113-F267A4EFB099EE26AC47ADEA12C0@phx.gbl>
	<43BAE84E.6020109@shaw.ca>
Message-ID: <43BAF841.6080109@shaw.ca>

I guess Microsoft is promising a patch for wmf exploit on Patch Tuesday 
Jan 10
http://www.publish.com/article2/0,1895,1907592,00.asp

MartyConnelly wrote:

>If you are mailing this out, you may find sites blocking .wmf files, due 
>to recent Windows Picture and Fax Viewer exploit flaw, until Microsoft 
>unveils a patch. I don't know what the AV firms are doing in response or 
>how it would affect embeded wmf's in a .doc file.
>I just deregistered the dll until microsoft sorts it out.
>
>Just thought I would cheer up your day. ;)
>
>Yup, if you don't want to use the partial patch from Stuart's url.
>
>Un-register the Windows Picture and Fax Viewer (Shimgvw.dll) on Windows 
>XP Service Pack 1; Windows XP Service Pack 2; Windows Server 2003 and 
>Windows Server 2003 Service Pack 1
>
>http://www.microsoft.com/technet/security/advisory/912840.mspx
>
>This will stop browser infections. BUT
>
>Just remember this won't protect you, if you store and save a downloaded 
>jpeg, then view it with MS window fax viewer,  these guys can disguise a 
>.wmf  file extension as a .jpeg file and the exploit will work as the 
>fax viewer will interpret it correctly as a virus loaded wmf file.
>
>
>Stuart McLachlan wrote:
>
>
>  
>
>>Don't know how many of you are up on this, but be careful out there.
>>This one is VERY nasty
>>
>>http://isc.sans.org/
>>
>>
>>
>>
>> 
>>    
>>
>
>
>
>? Welz wrote:
>
>  
>
>>Jan 1 and all my new WMF logos were in place. I wound up being able to 
>>import a few pc EPS files converted from Mac format into Corel Draw 9 
>>(they are up to 12 now), delete a few redundant nodes (3 in a single 
>>line with the same top cooridinate can be defined as well by 2), 
>>adjust the colors (Pantone, RGB, CMYK or several other options) and 
>>then save as WMF format. I now have logos varying in size from 6 to 12 
>>K (6 to 26 character outlines, each with a 'swoop' line) that I 
>>believe are mathematically correct and scale flawlessly as replacement 
>>for the off color 2k files (10 character max) segmented outlines I had 
>>before.
>>
>>I had started with the Trace application and it worked extremely well 
>>in the conversion. After all, the logos are made up of a very simple 
>>block font with just a few curves. The trace of the letter M TIFF came 
>>up with 13 nodes (EPS file conversion had 14) for the 13 straight 
>>lines that made up the outline. Although I did not ultimately use the 
>>Trace feature, it was head and shoulders easier to use than the PSP X 
>>that I tried. I probably spent 3 hours with the PSP X help before 
>>quitting. I just dove in with the Corel, traced two logos and cleaned 
>>them up and changed strategies to work with the EPS format imported 
>>and created/modified/revised 6 logos start to finish in less than the 
>>3 hours I spent working with PSP. I picked up a reference book from 
>>the library for CorelDraw! but did not need to look up anything to get 
>>this part of the project done.
>>
>>Ciao
>>J?rgen Welz
>>Edmonton, Alberta
>>jwelz at hotmail.com
>>
>>
>>
>>
>>
>>    
>>
>>>From: "William Hindman" <wdhindman at bellsouth.net>
>>>
>>>...PSP X is well capable of doing everything you need Jurgen ...Corel 
>>>just
>>>bought out Jasc and have not managed to screw it up as yet ...I use 
>>>it all
>>>the time for just such tasks ...but not even Adobe Photo Shop or 
>>>Illustrator
>>>will do what you want when you start with a raster version of the logo
>>>...wmf is not a pure vector format and converted rasters rarely 
>>>transform
>>>successfully into vectorized wmfs in my experience ...I'd redo the 
>>>logo from
>>>scratch in PSP as a vector image using PSP's native format rather 
>>>than wmf
>>>...then export it as a wmf ...actually the emf format is a much better
>>>platform imnsho for native vector images and I much prefer it over wmf.
>>>
>>>...I had to do this for a client a few months ago and had both PSP 
>>>and Adobe
>>>CS2 available...we had a 3rd party graphics shop redo the logo in PSP's
>>>native format (.pspimage) and I retained that as the master ...PSP 
>>>readily
>>>exported it as a vector emf and it resizes in Access and Word just as it
>>>should without any of the distortions native to resized raster images.
>>>
>>>...hth
>>>
>>>William
>>>      
>>>
>>
>>------------------------------------------------------------------------
>>
>>No virus found in this incoming message.
>>Checked by AVG Free Edition.
>>Version: 7.1.371 / Virus Database: 267.14.12/220 - Release Date: 03/01/2006
>>
>> 
>>
>>    
>>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From jmhecht at earthlink.net  Tue Jan  3 16:32:28 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 3 Jan 2006 14:32:28 -0800
Subject: [AccessD] Code Help please
Message-ID: <000c01c610b5$947ca700$6701a8c0@HPLaptop>

I asked this once before, but I lost it when my old drive
crashed:

 

In the footer I have a text box that I want visible only if
the page count is >1

 

The property in the sheet is visible = no

 

 

I have not been able to get to get to the visible property
in code

 

Private Sub PageFooterSection_Format(Cancel As Integer,
FormatCount As Integer)

If Me.Pages > 1 Then

    Me.txtFooterName.SetFocus

        Me.txtFooterName.v

 

End Sub

 

Please advise

 

Thanks

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Tue Jan  3 16:46:03 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 3 Jan 2006 14:46:03 -0800
Subject: [AccessD] Code help Please
In-Reply-To: <000601c60c87$2ae2c220$0200a8c0@danwaters>
Message-ID: <001101c610b7$7a30b5b0$6701a8c0@HPLaptop>

Dan,

That was a winner.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Dan Waters
Sent: Thursday, December 29, 2005 6:50 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Code help Please

Joe,

I read through your code, and you may be able to use
Conditional Formatting.

Select your textbox, then right-click and select Conditional
Formatting.
Then under condition 1 select 'Field Has Focus'.  Then
select the backcolor
you want to use.  In your case you will pick White, assuming
that you've set
the backcolor on your other textboxes to be yellow.

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, December 28, 2005 11:00 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Code help Please

I still do not understand public modules

 

I have the following code for a set of text boxes

 

Private Sub txtFirstName_GotFocus()

Dim lngwhite As Long

lngwhite = RGB(255, 255, 255)

Me.txtFirstName.BackColor = lngwhite

Me.txtFirstName.SpecialEffect = 1

End Sub

 

Private Sub txtFirstName_LostFocus()

Dim lngyellow As Long

lngyellow = RGB(255, 255, 0)

Me.txtFirstName.BackColor = RGB(255, 255, 0)

Me.txtFirstName.SpecialEffect = 2

End Sub

 

How do I make modules that will trigger as each text box
gets and loses focus?

 

Thanks

 

Joe Hecht

jmhecht at earthlink.net

 

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

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



From cfoust at infostatsystems.com  Tue Jan  3 16:48:12 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 3 Jan 2006 14:48:12 -0800
Subject: [AccessD] Code Help please
Message-ID: <F55048AF7E974F429BB24597D7355EEABEC6@INFOSERVER04.infostat.local>

Joe,

Do you mean you only want to show the text box if the report has
multiple pages, or you only want to show it on pages other than page 1?
There's no point in trying to set focus to a control on a report, so
what is it you want to accomplish with that?

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Tuesday, January 03, 2006 2:32 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Code Help please


I asked this once before, but I lost it when my old drive
crashed:

 

In the footer I have a text box that I want visible only if
the page count is >1

 

The property in the sheet is visible = no

 

 

I have not been able to get to get to the visible property
in code

 

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)

If Me.Pages > 1 Then

    Me.txtFooterName.SetFocus

        Me.txtFooterName.v

 

End Sub

 

Please advise

 

Thanks

 

Joe Hecht

jmhecht at earthlink.net

 

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


From jmhecht at earthlink.net  Tue Jan  3 16:51:26 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 3 Jan 2006 14:51:26 -0800
Subject: [AccessD] Code Help please
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABEC6@INFOSERVER04.infostat.local>
Message-ID: <001201c610b8$3abb7b30$6701a8c0@HPLaptop>

I want it to show if there is more than one page.

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Tuesday, January 03, 2006 2:48 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Code Help please

Joe,

Do you mean you only want to show the text box if the report
has
multiple pages, or you only want to show it on pages other
than page 1?
There's no point in trying to set focus to a control on a
report, so
what is it you want to accomplish with that?

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 03, 2006 2:32 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Code Help please


I asked this once before, but I lost it when my old drive
crashed:

 

In the footer I have a text box that I want visible only if
the page count is >1

 

The property in the sheet is visible = no

 

 

I have not been able to get to get to the visible property
in code

 

Private Sub PageFooterSection_Format(Cancel As Integer,
FormatCount As
Integer)

If Me.Pages > 1 Then

    Me.txtFooterName.SetFocus

        Me.txtFooterName.v

 

End Sub

 

Please advise

 

Thanks

 

Joe Hecht

jmhecht at earthlink.net

 

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



From cfoust at infostatsystems.com  Tue Jan  3 17:24:06 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 3 Jan 2006 15:24:06 -0800
Subject: [AccessD] Code Help please
Message-ID: <F55048AF7E974F429BB24597D7355EEABEC7@INFOSERVER04.infostat.local>

In that case, try checking for Pages > 1 in the ReportHeader_Format and
set the visibility of the control from there.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Tuesday, January 03, 2006 2:51 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Code Help please


I want it to show if there is more than one page.

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Tuesday, January 03, 2006 2:48 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Code Help please

Joe,

Do you mean you only want to show the text box if the report has
multiple pages, or you only want to show it on pages other than page 1?
There's no point in trying to set focus to a control on a report, so
what is it you want to accomplish with that?

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 03, 2006 2:32 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Code Help please


I asked this once before, but I lost it when my old drive
crashed:

 

In the footer I have a text box that I want visible only if
the page count is >1

 

The property in the sheet is visible = no

 

 

I have not been able to get to get to the visible property
in code

 

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)

If Me.Pages > 1 Then

    Me.txtFooterName.SetFocus

        Me.txtFooterName.v

 

End Sub

 


From wdhindman at bellsouth.net  Tue Jan  3 17:40:30 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Tue, 3 Jan 2006 18:40:30 -0500
Subject: [AccessD] Just Curious William...
References: <17724746D360394AA3BFE5B8D40A9C1BD45F@main2.marlow.com>
Message-ID: <001101c610bf$162e5150$6101a8c0@JISREGISTRATION.local>

...sample works fine Drew ...but the saved shape form is corrupting for some 
reason ...have not had time to chase it down ...been working on real dbs and 
sorting out little things ...trying to get a dao version working ...marrying 
the minimize all with timers I use to monitor inactivity ...etc. ...its a 
new paradigm and requires rethinking of a number of old code standards 
...and working through my default code modules to find conflicts and dupes 
...declare aliases, etc.

...but the pain is worthwhile ...the effect is striking and the demo I've 
worked up looks nothing like Access.

William

----- Original Message ----- 
From: <DWUTKA at marlow.com>
To: <AccessD at databaseadvisors.com>
Sent: Tuesday, January 03, 2006 12:49 PM
Subject: [AccessD] Just Curious William...


> How is it going with the latest 'sample' I sent ya?
>
> Did you figure out how to use the VB .exe I sent, to setup different 
> shapes
> for the forms?
>
> Drew
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com 




From DWUTKA at marlow.com  Tue Jan  3 17:57:37 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Tue, 3 Jan 2006 17:57:37 -0600 
Subject: [AccessD] Just Curious William...
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD467@main2.marlow.com>

Cool.  The 'sample' is still live, you may have goofed the data in the memo
field which is used to create that form's shape.  I figured putting the Byte
Array into a table was the best option, you could just put that data into a
flat file, and have it opened, read, and closed just as fast as Access is
going to read the data from the memo field.

Drew

-----Original Message-----
From: William Hindman [mailto:wdhindman at bellsouth.net]
Sent: Tuesday, January 03, 2006 5:41 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Just Curious William...


...sample works fine Drew ...but the saved shape form is corrupting for some

reason ...have not had time to chase it down ...been working on real dbs and

sorting out little things ...trying to get a dao version working ...marrying

the minimize all with timers I use to monitor inactivity ...etc. ...its a 
new paradigm and requires rethinking of a number of old code standards 
...and working through my default code modules to find conflicts and dupes 
...declare aliases, etc.

...but the pain is worthwhile ...the effect is striking and the demo I've 
worked up looks nothing like Access.

William

----- Original Message ----- 
From: <DWUTKA at marlow.com>
To: <AccessD at databaseadvisors.com>
Sent: Tuesday, January 03, 2006 12:49 PM
Subject: [AccessD] Just Curious William...


> How is it going with the latest 'sample' I sent ya?
>
> Did you figure out how to use the VB .exe I sent, to setup different 
> shapes
> for the forms?
>
> Drew
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com 


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


From dwaters at usinternet.com  Wed Jan  4 08:26:35 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Wed, 4 Jan 2006 08:26:35 -0600
Subject: [AccessD] SendKeys Reverse Tab
Message-ID: <000001c6113a$df41bac0$0200a8c0@danwaters>

I'd like to use SendKeys to do a reverse Tab.  A forward tab is:

    SendKeys Chr(9)

How do you change this to reverse the direction?

Thanks!
Dan 



From RRANTHON at sentara.com  Wed Jan  4 09:01:10 2006
From: RRANTHON at sentara.com (Randall R Anthony)
Date: Wed, 04 Jan 2006 10:01:10 -0500
Subject: [AccessD] SendKeys Reverse Tab
In-Reply-To: <000001c6113a$df41bac0$0200a8c0@danwaters>
References: <000001c6113a$df41bac0$0200a8c0@danwaters>
Message-ID: <200601041501.k04F1TV18471@databaseadvisors.com>

According to A97 help, Sendkeys "+{TAB}" should do that (+) = shift.  I
couldn't find what Chr constant it is.

>>> dwaters at usinternet.com 01/04/06 9:26 AM >>>
I'd like to use SendKeys to do a reverse Tab.  A forward tab is:

    SendKeys Chr(9)

How do you change this to reverse the direction?

Thanks!
Dan 

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


From bchacc at san.rr.com  Wed Jan  4 09:04:01 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Wed, 4 Jan 2006 07:04:01 -0800
Subject: [AccessD] SendKeys Reverse Tab
References: <000001c6113a$df41bac0$0200a8c0@danwaters>
Message-ID: <062d01c61140$189cdbb0$6801a8c0@HAL9004>

Dan:

On the keyboard it's Shift-Tab, but I don't know the ASCII equivalent.  You 
could write a quick routing to trap the keystroke and display it if someone 
doesn't know offhand what the Shift-Tab code is.

Regards,

Rocky Smolin
Beach Access Software
http://www.e-z-mrp.com
858-259-4334
----- Original Message ----- 
From: "Dan Waters" <dwaters at usinternet.com>
To: "AccessD" <accessd at databaseadvisors.com>
Sent: Wednesday, January 04, 2006 6:26 AM
Subject: [AccessD] SendKeys Reverse Tab


> I'd like to use SendKeys to do a reverse Tab.  A forward tab is:
>
>    SendKeys Chr(9)
>
> How do you change this to reverse the direction?
>
> Thanks!
> Dan
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From rusty.hammond at cpiqpc.com  Wed Jan  4 09:09:13 2006
From: rusty.hammond at cpiqpc.com (rusty.hammond at cpiqpc.com)
Date: Wed, 4 Jan 2006 09:09:13 -0600 
Subject: [AccessD] SendKeys Reverse Tab
Message-ID: <8301C8A868251E4C8ECD3D4FFEA40F8A154F83FB@cpixchng-1.cpiqpc.net>

How about sending a shift like:

SendKeys "+{Tab}"

HTH

Rusty

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 04, 2006 8:27 AM
To: AccessD
Subject: [AccessD] SendKeys Reverse Tab


I'd like to use SendKeys to do a reverse Tab.  A forward tab is:

    SendKeys Chr(9)

How do you change this to reverse the direction?

Thanks!
Dan 

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

**********************************************************************
WARNING: All e-mail sent to and from this address will be received,
scanned or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
corporate e-mail system and is subject to archival, monitoring or review 
by, and/or disclosure to, someone other than the recipient.
**********************************************************************


From Jdemarco at hudsonhealthplan.org  Wed Jan  4 10:29:43 2006
From: Jdemarco at hudsonhealthplan.org (Jim DeMarco)
Date: Wed, 4 Jan 2006 11:29:43 -0500
Subject: [AccessD] Scanning into mdb
Message-ID: <08F823FD83787D4BA0B99CA580AD3C74016C4358@TTNEXCHCL2.hshhp.com>

Thanks Jim.  

Did you use the Kodak Imaging control to call the scanner?

Jim DeMarco

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Jim Lawrence
Sent: Thursday, December 29, 2005 5:06 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Scanning into mdb


Hi Jim:

In the application that I wrote the scanner program was called from the
Access app and therefore I could hard code the profile, naming and save-path
of the scanned images... similar to the feature of a full-licensed version
of WinZip. I did not have to encrypt the images (jpg) as the application
also moved the graphics to a secure centralized directory on the server,
after the new image was saved locally.

HTH
Jim
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim DeMarco
Sent: December 29, 2005 10:25 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Scanning into mdb

Thanks Jim and Jim who replied from Jim who posted!

So I gather I should save to files or encrypt the BLOBs.  WinZip has some
automation tools.  I wonder if I should see if I can zip the images and
password protect the zip file?  Hmm.

I asked about TWAIN support because I thought the Kodak image control was
removed from XP.  Doesn't that have something to do with imaging in Access?

One last question.  If I can scan the images can I automate the saving and
naming of the files or will the user have to do that?

Thanks again

Jim DeMarco

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Jim Dettman
Sent: Thursday, December 29, 2005 12:50 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Scanning into mdb


<<1. Did you scan into BLOB data fields or store in graphic image format?
I'd prefer to use BLOBs as we'll be scanning HIPAA protected personal health
information and I don't want files on the laptops that anyone can access.
If you used BLOBs how did you tell the scanner where to store the data?>>

  Definitely want to go with a file on disk in some type of graphic format.
If you let Access handle the insert, it places an OLE wrapper around the
object which can double the storage required.

  If you really want, you can save the image to disk first, then pull into a
BLOB on your own.  That will avoid the bloating issue.  However you'll need
to export the BLOB back out to be able to do anything with it.

  In your case, this might be a good fit, as Access on it's own is easily
crackable and I'm sure would not meet HIPPA standards. When your write/read
the BLOB, you can use some form of encryption on it.  Then distribute the
app as a MDE so your code can't be looked at.

<<2. Are BLOBs an issue in A97?  The users fear data corruption.  There will
be 1-200 medical charts scanned in per day then the data is replicated back
to our main db here.>>

  I've never found memo or OLE fields to be an issue.  Others have.  A lot I
think depends on the type of environment the app runs in and the fact that
many people try to make Access do things it was never meant to do (like run
over a WAN).

<<3. We will be moving to A2K3 within the next few months and probably Win
XP (from 2000).  Will twain support in A2K3 and WinXP be an issue?  If so
what can I do in our A97 app now that will prevent issues when we upgrade
the mdb?  Are BLOBs an issue in A2K3?>>

  I can't think of any specific issues; all the drivers will still be 32 bit
and twain support has changed little if any over the years.

HTH,
Jim.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Jim DeMarco
Sent: Thursday, December 29, 2005 10:58 AM
To: AccessD (E-mail)
Subject: [AccessD] Scanning into mdb


List,

I see in the archives that some of you have implemented scanning of images
into your Access systems.  I'm being asked to add some imaging to an
existing A97 app that runs in the field on laptops and I've got some
questions.

1. Did you scan into BLOB data fields or store in graphic image format?  I'd
prefer to use BLOBs as we'll be scanning HIPAA protected personal health
information and I don't want files on the laptops that anyone can access.
If you used BLOBs how did you tell the scanner where to store the data?

2. Are BLOBs an issue in A97?  The users fear data corruption.  There will
be 1-200 medical charts scanned in per day then the data is replicated back
to our main db here.

3. We will be moving to A2K3 within the next few months and probably Win XP
(from 2000).  Will twain support in A2K3 and WinXP be an issue?  If so what
can I do in our A97 app now that will prevent issues when we upgrade the
mdb?  Are BLOBs an issue in A2K3?

This app is for data collection only and if we do store as BLOB we will
convert to graphic image for storage and retrieval here so the images would
not sit in the mdb for long.

TIA

Jim DeMarco
Director of Application Development
Hudson Health Plan


****************************************************************************
*******
"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".
****************************************************************************
*******

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


-- 
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".
****************************************************************************
*******

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

-- 
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".
***********************************************************************************



From prodevmg at yahoo.com  Wed Jan  4 10:43:15 2006
From: prodevmg at yahoo.com (Lonnie Johnson)
Date: Wed, 4 Jan 2006 08:43:15 -0800 (PST)
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
Message-ID: <20060104164315.38543.qmail@web33104.mail.mud.yahoo.com>

Is there a process by which an Access report can be saved to a pdf file then attached to an email without any manaul intervention or use of additional dll files?



May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us





 





			
---------------------------------
Yahoo! Photos
 Ring in the New Year with Photo Calendars. Add photos, events, holidays, whatever.

From harkinsss at bellsouth.net  Wed Jan  4 10:45:23 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Wed, 4 Jan 2006 11:45:23 -0500
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
In-Reply-To: <20060104164315.38543.qmail@web33104.mail.mud.yahoo.com>
Message-ID: <20060104164522.UPSP26589.ibm70aec.bellsouth.net@SUSANONE>

What do you mean by "manual intervention or use of additional dll files?" 

You can do this with a little code, but there's no built-in feature for
doing it. 

Susan  H.  


Is there a process by which an Access report can be saved to a pdf file then
attached to an email without any manaul intervention or use of additional
dll files?




From prodevmg at yahoo.com  Wed Jan  4 10:48:48 2006
From: prodevmg at yahoo.com (Lonnie Johnson)
Date: Wed, 4 Jan 2006 08:48:48 -0800 (PST)
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
Message-ID: <20060104164848.20737.qmail@web33110.mail.mud.yahoo.com>

Is there a process by which an Access report can be saved to a pdf file then attached to an email without any manaul intervention or use of additional dll files?



May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us





 





			
---------------------------------
Yahoo! Photos
 Ring in the New Year with Photo Calendars. Add photos, events, holidays, whatever.

From cfoust at infostatsystems.com  Wed Jan  4 10:53:46 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 08:53:46 -0800
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
Message-ID: <F55048AF7E974F429BB24597D7355EEABEC9@INFOSERVER04.infostat.local>

You also need a PDF (virtual) printer.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Wednesday, January 04, 2006 8:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Access Report to PDF File to EMAIL Attachement


What do you mean by "manual intervention or use of additional dll
files?" 

You can do this with a little code, but there's no built-in feature for
doing it. 

Susan  H.  


Is there a process by which an Access report can be saved to a pdf file
then attached to an email without any manaul intervention or use of
additional dll files?


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


From prodevmg at yahoo.com  Wed Jan  4 10:54:56 2006
From: prodevmg at yahoo.com (Lonnie Johnson)
Date: Wed, 4 Jan 2006 08:54:56 -0800 (PST)
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
In-Reply-To: <20060104164522.UPSP26589.ibm70aec.bellsouth.net@SUSANONE>
Message-ID: <20060104165456.8024.qmail@web33108.mail.mud.yahoo.com>

Thanks for your response Susan.
   
  Manual Intervention:
  I have one procedure that opens the report and then the user saves the report as a PDF through the FILE==>PRINT option. Then they manually attach the file to an email. 
   
  dll Files: 
  The other procedure that was given to me requires two dll files to work in concert with some code, but we are having problems getting the dll files to work on every machine. 
   
  Thanks again for taking the time.

Susan Harkins <harkinsss at bellsouth.net> wrote:
  What do you mean by "manual intervention or use of additional dll files?" 

You can do this with a little code, but there's no built-in feature for
doing it. 

Susan H. 


Is there a process by which an Access report can be saved to a pdf file then
attached to an email without any manaul intervention or use of additional
dll files?


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




May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us





 





		
---------------------------------
 Yahoo! DSL Something to write home about. Just $16.99/mo. or less

From bchacc at san.rr.com  Wed Jan  4 11:20:45 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Wed, 4 Jan 2006 09:20:45 -0800
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
References: <20060104164315.38543.qmail@web33104.mail.mud.yahoo.com>
Message-ID: <072601c61153$32f347c0$6801a8c0@HAL9004>

Lonnie:

Get Primo PDF (you can Google it).  Free pdf printer.  I use it all the 
time.  Installs like a printer.  So you do your report in print preview, hit 
Ctrl-P and select it from the list of installed printers.  Recipient needs 
Acrobat Reader to view it but everybody's got that now, I think.

Rocky

----- Original Message ----- 
From: "Lonnie Johnson" <prodevmg at yahoo.com>
To: "'MS-ACCESS-L at lists.missouri.edu'" <ms-access-l at po.missouri.edu>; 
"AccessDevelopers" <accessdevelopers at yahoogroups.com>; "ms_access" 
<ms_access at yahoogroups.com>; "Access Professionals" 
<ms_access_professionals at yahoogroups.com>; "AccessD solving'" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 04, 2006 8:43 AM
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement


> Is there a process by which an Access report can be saved to a pdf file 
> then attached to an email without any manaul intervention or use of 
> additional dll files?
>
>
>
> May God bless you beyond your imagination!
> Lonnie Johnson
> ProDev, Professional Development of MS Access Databases
> Visit me at ==> http://www.prodev.us
>
>
>
>
>
>
>
>
>
>
>
>
> ---------------------------------
> Yahoo! Photos
> Ring in the New Year with Photo Calendars. Add photos, events, holidays, 
> whatever.
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From Gustav at cactus.dk  Wed Jan  4 11:36:21 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 04 Jan 2006 18:36:21 +0100
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
Message-ID: <s3bc15cf.065@cactus.dk>

Hi Lonnie

Not quite sure if this is what you are looking for, but we use the free FreePDF XP (which uses the Apple Postscript printer driver and Ghostscript for high quality):

  http://freepdfxp.de/fpxp.htm 

It features a large button for sending the created file by e-mail via the user's mail program:

  http://freepdfxp.de/fpxpscreenshots2.htm 

The site is in German but during install you may choose English.

/gustav


----- Original Message ----- 
From: "Lonnie Johnson" <prodevmg at yahoo.com>
To: "'MS-ACCESS-L at lists.missouri.edu'" <ms-access-l at po.missouri.edu>; 
"AccessDevelopers" <accessdevelopers at yahoogroups.com>; "ms_access" 
<ms_access at yahoogroups.com>; "Access Professionals" 
<ms_access_professionals at yahoogroups.com>; "AccessD solving'" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 04, 2006 8:43 AM
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement


> Is there a process by which an Access report can be saved to a pdf file 
> then attached to an email without any manaul intervention or use of 
> additional dll files?




From jmhecht at earthlink.net  Wed Jan  4 11:37:38 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 09:37:38 -0800
Subject: [AccessD] Text Box True False Question
Message-ID: <000301c61155$8edc6a60$6701a8c0@HPLaptop>

I have a yes no text box. Without the focus it shows
correctly yes or no. When it gets focus it shows a zero or a
non zero value. How do I force it to show yes or no when it
has focus.

 

Thanks

 

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Wed Jan  4 11:46:42 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 09:46:42 -0800
Subject: [AccessD] Check Box Back Color
Message-ID: <000801c61156$d2e301f0$6701a8c0@HPLaptop>

Thanks to those who turned me on to conditional formatting.
Excellent answer.

 

I now need to be able to manipulate the back color of check
boxes depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 



From cfoust at infostatsystems.com  Wed Jan  4 12:05:34 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 10:05:34 -0800
Subject: [AccessD] Check Box Back Color
Message-ID: <F55048AF7E974F429BB24597D7355EEABECB@INFOSERVER04.infostat.local>

If I recall correctly, checkboxes are the one control you have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting. Excellent
answer.

 

I now need to be able to manipulate the back color of check boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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


From jmhecht at earthlink.net  Wed Jan  4 12:08:49 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 10:08:49 -0800
Subject: [AccessD] Check Box Back Color
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABECB@INFOSERVER04.infostat.local>
Message-ID: <001701c61159$ea1787d0$6701a8c0@HPLaptop>

May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting.
Excellent
answer.

 

I now need to be able to manipulate the back color of check
boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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



From dmcafee at pacbell.net  Wed Jan  4 12:10:32 2006
From: dmcafee at pacbell.net (David McAfee)
Date: Wed, 4 Jan 2006 10:10:32 -0800
Subject: [AccessD] SendKeys Reverse Tab
In-Reply-To: <000001c6113a$df41bac0$0200a8c0@danwaters>
Message-ID: <MAELJIKADABIDLHFDKKNMEPICGAA.dmcafee@pacbell.net>

Rather than use SendKeys which creates all sorts of fun (numlock turns off)


Try calling MoveToPreviousControl:


Private Sub MoveToPreviousControl()
    If Me.ActiveControl.TabIndex = 0 Then
        Me.Controls(Me.Controls.Count - 1).SetFocus
    Else
        Me.Controls(Me.ActiveControl.TabIndex - 1).SetFocus
    End If
End Sub

Private Sub MoveToNextControl()
    If Me.ActiveControl.TabIndex >= Me.Controls.Count - 1 Then
        Me.Controls(0).SetFocus
    Else
        Me.Controls(Me.ActiveControl.TabIndex + 1).SetFocus
    End If
End Sub

I whipped up a small sample database if you need to see a working copy

David McAfee



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Dan Waters
Sent: Wednesday, January 04, 2006 6:27 AM
To: AccessD
Subject: [AccessD] SendKeys Reverse Tab


I'd like to use SendKeys to do a reverse Tab.  A forward tab is:

    SendKeys Chr(9)

How do you change this to reverse the direction?

Thanks!
Dan 

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


From jmhecht at earthlink.net  Wed Jan  4 12:11:21 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 10:11:21 -0800
Subject: [AccessD] Tab Control & Sub Form
Message-ID: <001801c6115a$4466e280$6701a8c0@HPLaptop>

When using a tab control, how does one make sure the sub
form is in the same place on each page so it does not seem
to jump as you change each page?

 

Thanks 

 

Joe Hecht

jmhecht at earthlink.net

 



From cfoust at infostatsystems.com  Wed Jan  4 12:13:14 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 10:13:14 -0800
Subject: [AccessD] Check Box Back Color
Message-ID: <F55048AF7E974F429BB24597D7355EEABECC@INFOSERVER04.infostat.local>

Ticking along like a Timex.  Thanks for asking. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:09 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting. Excellent
answer.

 

I now need to be able to manipulate the back color of check boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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


From Gustav at cactus.dk  Wed Jan  4 12:13:35 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 04 Jan 2006 19:13:35 +0100
Subject: [AccessD] Text Box True False Question
Message-ID: <s3bc1e6e.067@cactus.dk>

Hi Joe

One way around this is to replace the textbox with a combo- or listbox.

Use a value list and change the RowSource to:
  -1;Yes;0;No
Set ColumnCount to 2 and set ColumnWidths to 0". 

/gustav

>>> jmhecht at earthlink.net 04-01-2006 18:37:38 >>>
I have a yes no text box. Without the focus it shows
correctly yes or no. When it gets focus it shows a zero or a
non zero value. How do I force it to show yes or no when it
has focus.




From Jim.Hale at FleetPride.com  Wed Jan  4 12:13:57 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Wed, 4 Jan 2006 12:13:57 -0600 
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD92C@corp-es01.fleetpride.com>

Using PowerPDF I have this code behind a button to "print" the report. Maybe
someone else can share the code to save the file and attach it to an email
automatically.
Jim Hale

Private Sub CmdPrintPDF_Click()
    Dim lngRetval As Long
On Error GoTo Err_CmdPrintPDF_Click
    lngRetval = MsgBox( _
        "Do you want to print the report?", _
        vbYesNo + vbQuestion + vbSystemModal + vbDefaultButton1, _
        "Daily Sales Report")

    Select Case lngRetval
    
        Case vbYes
            Application.ActivePrinter = "PowerPDF Printer on VSP1:"
            ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:= _
            "PowerPDF Printer on VSP1:"
        Case vbNo
    End Select
The_End:
    
Exit Sub

Err_CmdPrintPDF_Click:
     MsgBox "The following error occured: " & Error$
    Resume The_End

End Sub

-----Original Message-----
From: Lonnie Johnson [mailto:prodevmg at yahoo.com]
Sent: Wednesday, January 04, 2006 10:55 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Access Report to PDF File to EMAIL Attachement


Thanks for your response Susan.
   
  Manual Intervention:
  I have one procedure that opens the report and then the user saves the
report as a PDF through the FILE==>PRINT option. Then they manually attach
the file to an email. 
   
  dll Files: 
  The other procedure that was given to me requires two dll files to work in
concert with some code, but we are having problems getting the dll files to
work on every machine. 
   
  Thanks again for taking the time.

Susan Harkins <harkinsss at bellsouth.net> wrote:
  What do you mean by "manual intervention or use of additional dll files?" 

You can do this with a little code, but there's no built-in feature for
doing it. 

Susan H. 


Is there a process by which an Access report can be saved to a pdf file then
attached to an email without any manaul intervention or use of additional
dll files?


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




May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us





 





		
---------------------------------
 Yahoo! DSL Something to write home about. Just $16.99/mo. or less
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From andy at minstersystems.co.uk  Wed Jan  4 12:16:05 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Wed, 4 Jan 2006 18:16:05 -0000
Subject: [AccessD] Tab Control & Sub Form
In-Reply-To: <001801c6115a$4466e280$6701a8c0@HPLaptop>
Message-ID: <003901c6115a$ed82d0e0$d8ac0c54@minster33c3r25>

Well you set the Left and Top (and maybe Height and Width) properties to be
the same on each subform. JC used to have some clever thingy on his site to
help you do this. Don't know if it's still there.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
> Sent: 04 January 2006 18:11
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Tab Control & Sub Form
> 
> 
> When using a tab control, how does one make sure the sub
> form is in the same place on each page so it does not seem
> to jump as you change each page?
> 
>  
> 
> Thanks 
> 
>  
> 
> Joe Hecht
> 
> jmhecht at earthlink.net
> 
>  
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From Lambert.Heenan at AIG.com  Wed Jan  4 12:18:34 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 4 Jan 2006 12:18:34 -0600 
Subject: [AccessD] Tab Control & Sub Form
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19DC46@xlivmbx21.aig.com>

Set the Top and Left properties for each subform control to the same values.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 1:11 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Tab Control & Sub Form


When using a tab control, how does one make sure the sub
form is in the same place on each page so it does not seem
to jump as you change each page?

 

Thanks 

 

Joe Hecht

jmhecht at earthlink.net



From jmhecht at earthlink.net  Wed Jan  4 12:19:38 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 10:19:38 -0800
Subject: [AccessD] Check Box Back Color
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABECC@INFOSERVER04.infostat.local>
Message-ID: <001d01c6115b$6ca7f300$6701a8c0@HPLaptop>

If you are set to Timex I hope the leap second on 1/1 did
not hurt. ;)

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 04, 2006 10:13 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

Ticking along like a Timex.  Thanks for asking. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 10:09 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting.
Excellent
answer.

 

I now need to be able to manipulate the back color of check
boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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



From papparuff at comcast.net  Wed Jan  4 12:20:46 2006
From: papparuff at comcast.net (John Ruff)
Date: Wed, 4 Jan 2006 10:20:46 -0800
Subject: [AccessD] Tab Control & Sub Form
In-Reply-To: <001801c6115a$4466e280$6701a8c0@HPLaptop>
Message-ID: <003601c6115b$95a6a3a0$6a01a8c0@DDMJWX41>

Each subform has a Left, Top, Width, and Height properties. Set the Left and
Top properties to the same value for each subform.

John V. Ruff - The Eternal Optimist :-)
 
"Commit to the Lord whatever you do,
                and your plans will succeed." Proverbs 16:3
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:11 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Tab Control & Sub Form

When using a tab control, how does one make sure the sub
form is in the same place on each page so it does not seem
to jump as you change each page?

 

Thanks 

 

Joe Hecht

jmhecht at earthlink.net

 

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



From Jim.Hale at FleetPride.com  Wed Jan  4 12:22:30 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Wed, 4 Jan 2006 12:22:30 -0600 
Subject: [AccessD] Check Box Back Color
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD92D@corp-es01.fleetpride.com>

Hmmm.... you know they added a second to clocks on 1/1. Does this mean your
heart skipped a beat? (glad you are OK BTW)
Jim Hale

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Wednesday, January 04, 2006 12:13 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color


Ticking along like a Timex.  Thanks for asking. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:09 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting. Excellent
answer.

 

I now need to be able to manipulate the back color of check boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From cfoust at infostatsystems.com  Wed Jan  4 12:27:03 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 10:27:03 -0800
Subject: [AccessD] Tab Control & Sub Form
Message-ID: <F55048AF7E974F429BB24597D7355EEABECD@INFOSERVER04.infostat.local>

Only way I've found is to copy the top and left settings for the subform
control from one to all the rest.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:11 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Tab Control & Sub Form


When using a tab control, how does one make sure the sub
form is in the same place on each page so it does not seem
to jump as you change each page?

 

Thanks 

 

Joe Hecht

jmhecht at earthlink.net

 

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


From cfoust at infostatsystems.com  Wed Jan  4 12:27:45 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 10:27:45 -0800
Subject: [AccessD] Text Box True False Question
Message-ID: <F55048AF7E974F429BB24597D7355EEABECE@INFOSERVER04.infostat.local>

Or an option group, which is even easier

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 04, 2006 10:14 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Text Box True False Question


Hi Joe

One way around this is to replace the textbox with a combo- or listbox.

Use a value list and change the RowSource to:
  -1;Yes;0;No
Set ColumnCount to 2 and set ColumnWidths to 0". 

/gustav

>>> jmhecht at earthlink.net 04-01-2006 18:37:38 >>>
I have a yes no text box. Without the focus it shows
correctly yes or no. When it gets focus it shows a zero or a non zero
value. How do I force it to show yes or no when it has focus.


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


From cfoust at infostatsystems.com  Wed Jan  4 12:28:47 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 10:28:47 -0800
Subject: [AccessD] Check Box Back Color
Message-ID: <F55048AF7E974F429BB24597D7355EEABECF@INFOSERVER04.infostat.local>

No, I just leapt lightly into the air before settling back into my
chair. <g>

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:20 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


If you are set to Timex I hope the leap second on 1/1 did
not hurt. ;)

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:13 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

Ticking along like a Timex.  Thanks for asking. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 10:09 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting. Excellent
answer.

 

I now need to be able to manipulate the back color of check boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

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


From cfoust at infostatsystems.com  Wed Jan  4 12:29:35 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 10:29:35 -0800
Subject: [AccessD] Check Box Back Color
Message-ID: <F55048AF7E974F429BB24597D7355EEABED0@INFOSERVER04.infostat.local>

My heart often skips a beat, especially when I'm arguing with Drew or
JC! LOL

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 04, 2006 10:22 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


Hmmm.... you know they added a second to clocks on 1/1. Does this mean
your heart skipped a beat? (glad you are OK BTW) Jim Hale

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Wednesday, January 04, 2006 12:13 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color


Ticking along like a Timex.  Thanks for asking. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:09 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting. Excellent
answer.

 

I now need to be able to manipulate the back color of check boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or other
use of or taking action in reliance upon this information by persons or
entities other than the intended recipient is prohibited. If you have
received this email in error please contact the sender and delete the
material from any computer. As a recipient of this email, you are
responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From accessd at shaw.ca  Wed Jan  4 12:47:27 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Wed, 04 Jan 2006 10:47:27 -0800
Subject: [AccessD] OT Super interesting options
In-Reply-To: <08F823FD83787D4BA0B99CA580AD3C74016C4358@TTNEXCHCL2.hshhp.com>
Message-ID: <000c01c6115f$4f7e9960$017ba8c0@xpserver>

OT

This is totally off topic but the potential and product is so interesting
that, with my apologies, I had to post it here.

Check this web site out: http://www.hamachi.cc/ and listen to the linked pod
cast: 
http://reference.creativesystemdesigns.com/Downloads/Hamachi.pod 
(Remember to set the downloaded pod file's extension to 'mp3' so you can
play it.) 

Jim



From martyconnelly at shaw.ca  Wed Jan  4 12:48:22 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Wed, 04 Jan 2006 10:48:22 -0800
Subject: [AccessD] SendKeys Reverse Tab
References: <MAELJIKADABIDLHFDKKNMEPICGAA.dmcafee@pacbell.net>
Message-ID: <43BC1876.4010704@shaw.ca>

Or I prefer this general method " keybd_event ". Just make sure the 
proper control has focus
,if you execute this code from a command button, it will have the focus.
This also gets around SendKeys problems
Other interesting affects you can minimize all open windows with 
"Windows + M " key depression


Private Const VK_LWIN = &H5B 'Left window button
Private Const VK_RETURN = &HD  'ENTER key
Private Const VK_SHIFT = &H10 'SHIFT key
Private Const VK_CONTROL = &H11 'CTRL key
Private Const VK_MENU = &H12 'ALT key
Private Const VK_PAUSE = &H13 'PAUSE key
Private Const VK_CAPITAL = &H14 'CAPS LOCK key
Private Const VK_SNAPSHOT = &H2C  'Print Screen
Private Const VK_APPS = &H5D
         'Applications or "Windows" key on a Microsoft Natural Keyboard
'from http://support.microsoft.com/view/dev.asp?kb=242971

Const GW_HWNDFIRST = 0
Const GW_HWNDNEXT = 2
Private Const KEYEVENTF_KEYUP = &H2
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, ByVal dwflags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As 
Long) As Integer

Sub reversetab()
' You can use the same technique to programmatically "press" any other
' key, including Shift, Ctrl, Alt and keys combinations that can't be
' simulated through SendKeys
Dim ShiftState As Integer, CtrlState As Integer, AltState As Integer
'use next four lines to check for prior ctrl shift alt depression
 '       ShiftState = GetKeyState(VK_SHIFT) And &H80
 '       CtrlState = GetKeyState(VK_CONTROL) And &H80
 '       AltState = GetKeyState(VK_MENU) And &H80
'        Debug.Print ShiftState; CtrlState; AltState

    ' programmatically press the Shift key
    keybd_event vbKeyShift, 0, 0, 0
    ' then press and then release the Tab key
    keybd_event vbKeyTab, 0, 0, 0
    keybd_event vbKeyTab, 0, KEYEVENTF_KEYUP, 0
    ' and finally release the Shift Key
    keybd_event vbKeyShift, 0, KEYEVENTF_KEYUP, 0
End Sub


David McAfee wrote:

>Rather than use SendKeys which creates all sorts of fun (numlock turns off)
>
>
>Try calling MoveToPreviousControl:
>
>
>Private Sub MoveToPreviousControl()
>    If Me.ActiveControl.TabIndex = 0 Then
>        Me.Controls(Me.Controls.Count - 1).SetFocus
>    Else
>        Me.Controls(Me.ActiveControl.TabIndex - 1).SetFocus
>    End If
>End Sub
>
>Private Sub MoveToNextControl()
>    If Me.ActiveControl.TabIndex >= Me.Controls.Count - 1 Then
>        Me.Controls(0).SetFocus
>    Else
>        Me.Controls(Me.ActiveControl.TabIndex + 1).SetFocus
>    End If
>End Sub
>
>I whipped up a small sample database if you need to see a working copy
>
>David McAfee
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Dan Waters
>Sent: Wednesday, January 04, 2006 6:27 AM
>To: AccessD
>Subject: [AccessD] SendKeys Reverse Tab
>
>
>I'd like to use SendKeys to do a reverse Tab.  A forward tab is:
>
>    SendKeys Chr(9)
>
>How do you change this to reverse the direction?
>
>Thanks!
>Dan 
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From DWUTKA at marlow.com  Wed Jan  4 13:30:18 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Wed, 4 Jan 2006 13:30:18 -0600 
Subject: [AccessD] Check Box Back Color
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD485@main2.marlow.com>

Does this mean I need to treat ya with 'kid gloves'?  So did you get blue
tooth with the new one?  Maybe MP3 capability?

Drew

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Wednesday, January 04, 2006 12:30 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color


My heart often skips a beat, especially when I'm arguing with Drew or
JC! LOL

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 04, 2006 10:22 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


Hmmm.... you know they added a second to clocks on 1/1. Does this mean
your heart skipped a beat? (glad you are OK BTW) Jim Hale

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Wednesday, January 04, 2006 12:13 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color


Ticking along like a Timex.  Thanks for asking. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:09 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting. Excellent
answer.

 

I now need to be able to manipulate the back color of check boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or other
use of or taking action in reliance upon this information by persons or
entities other than the intended recipient is prohibited. If you have
received this email in error please contact the sender and delete the
material from any computer. As a recipient of this email, you are
responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From cfoust at infostatsystems.com  Wed Jan  4 14:59:21 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 12:59:21 -0800
Subject: [AccessD] OT:  Was Check Box Back Color
Message-ID: <F55048AF7E974F429BB24597D7355EEABED2@INFOSERVER04.infostat.local>

I asked for it, but they balked at the USB port in the neck. ;o}  And
kid gloves are always socially correct! LOL

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Wednesday, January 04, 2006 11:30 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Check Box Back Color


Does this mean I need to treat ya with 'kid gloves'?  So did you get
blue tooth with the new one?  Maybe MP3 capability?

Drew

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Wednesday, January 04, 2006 12:30 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color


My heart often skips a beat, especially when I'm arguing with Drew or
JC! LOL

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 04, 2006 10:22 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


Hmmm.... you know they added a second to clocks on 1/1. Does this mean
your heart skipped a beat? (glad you are OK BTW) Jim Hale

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Wednesday, January 04, 2006 12:13 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color


Ticking along like a Timex.  Thanks for asking. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:09 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting. Excellent
answer.

 

I now need to be able to manipulate the back color of check boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or other
use of or taking action in reliance upon this information by persons or
entities other than the intended recipient is prohibited. If you have
received this email in error please contact the sender and delete the
material from any computer. As a recipient of this email, you are
responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From jmhecht at earthlink.net  Wed Jan  4 17:01:59 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 15:01:59 -0800
Subject: [AccessD] Parent Child question
Message-ID: <000001c61182$de5968e0$6701a8c0@HPLaptop>

If there is a parent record but no child data entered is it
right the count of records is different?

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Wed Jan  4 17:06:33 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 15:06:33 -0800
Subject: [AccessD] Parent Child question
In-Reply-To: <000001c61182$de5968e0$6701a8c0@HPLaptop>
Message-ID: <000f01c61183$81c99ea0$6701a8c0@HPLaptop>

Say 255 parent records but only 250 child records?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 3:02 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Parent Child question

If there is a parent record but no child data entered is it
right the count of records is different?

 

Joe Hecht

jmhecht at earthlink.net

 

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



From DElam at jenkens.com  Wed Jan  4 17:12:50 2006
From: DElam at jenkens.com (Elam, Debbie)
Date: Wed, 4 Jan 2006 17:12:50 -0600 
Subject: [AccessD] Parent Child question
Message-ID: <7B1961ED924D1A459E378C9B1BB22B4C0492D228@natexch.jenkens.com>

If you have X parent records and each parent has one child record, you have
X parent records and X child records.  If you add a parent to this set
without a child you have X+1 parent records and X child records.  The two
sets of records must be counted separately since the numbers of records can
vary drastically in most databases.  Does this answer the question?

Debbie

-----Original Message-----
From: Joe Hecht [mailto:jmhecht at earthlink.net] 
Sent: Wednesday, January 04, 2006 5:02 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Parent Child question


If there is a parent record but no child data entered is it
right the count of records is different?

 

Joe Hecht

jmhecht at earthlink.net

 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
- JENKENS & GILCHRIST E-MAIL NOTICE - This transmission may be: (1) subject
to the Attorney-Client Privilege, (2) an attorney work product, or (3)
strictly confidential. If you are not the intended recipient of this
message, you may not disclose, print, copy or disseminate this information.
If you have received this in error, please reply and notify the sender
(only) and delete the message. Unauthorized interception of this e-mail is a
violation of federal criminal law. 
This communication does not reflect an intention by the sender or the
sender's client or principal to conduct a transaction or make any agreement
by electronic means.  Nothing contained in this message or in any attachment
shall satisfy the requirements for a writing, and nothing contained herein
shall constitute a contract or electronic signature under the Electronic
Signatures in Global and National Commerce Act, any version of the Uniform
Electronic Transactions Act or any other statute governing electronic
transactions.


From jmhecht at earthlink.net  Wed Jan  4 17:16:48 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 15:16:48 -0800
Subject: [AccessD] Parent Child question
In-Reply-To: <7B1961ED924D1A459E378C9B1BB22B4C0492D228@natexch.jenkens.com>
Message-ID: <001201c61184$f0bf4520$6701a8c0@HPLaptop>

I feel much better now Debbie. THANKS

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Elam, Debbie
Sent: Wednesday, January 04, 2006 3:13 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Parent Child question

If you have X parent records and each parent has one child
record, you have
X parent records and X child records.  If you add a parent
to this set
without a child you have X+1 parent records and X child
records.  The two
sets of records must be counted separately since the numbers
of records can
vary drastically in most databases.  Does this answer the
question?

Debbie

-----Original Message-----
From: Joe Hecht [mailto:jmhecht at earthlink.net] 
Sent: Wednesday, January 04, 2006 5:02 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Parent Child question


If there is a parent record but no child data entered is it
right the count of records is different?

 

Joe Hecht

jmhecht at earthlink.net

 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
- JENKENS & GILCHRIST E-MAIL NOTICE - This transmission may
be: (1) subject
to the Attorney-Client Privilege, (2) an attorney work
product, or (3)
strictly confidential. If you are not the intended recipient
of this
message, you may not disclose, print, copy or disseminate
this information.
If you have received this in error, please reply and notify
the sender
(only) and delete the message. Unauthorized interception of
this e-mail is a
violation of federal criminal law. 
This communication does not reflect an intention by the
sender or the
sender's client or principal to conduct a transaction or
make any agreement
by electronic means.  Nothing contained in this message or
in any attachment
shall satisfy the requirements for a writing, and nothing
contained herein
shall constitute a contract or electronic signature under
the Electronic
Signatures in Global and National Commerce Act, any version
of the Uniform
Electronic Transactions Act or any other statute governing
electronic
transactions.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From robert at servicexp.com  Wed Jan  4 18:05:12 2006
From: robert at servicexp.com (Robert Gracie)
Date: Wed, 4 Jan 2006 19:05:12 -0500
Subject: [AccessD] Visual Reports
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F4FC0@gbsserver.GBS.local>

 
Does anyone have any experience with this company and this product. Or
an alternatives...??

http://sparrow-technologies.com/products.html

Thanks

Robert Gracie
www.gbsysnow.com



From michael at ddisolutions.com.au  Wed Jan  4 18:08:58 2006
From: michael at ddisolutions.com.au (Michael Maddison)
Date: Thu, 5 Jan 2006 11:08:58 +1100
Subject: [AccessD] Extract data from .doc into db
Message-ID: <59A61174B1F5B54B97FD4ADDE71E7D0116A196@ddi-01.DDI.local>

Hi Listers,

I've been asked how much $$$ to extract data from a series of word docs.
Each record is made up
of 3 docs.  There are 80 records (240 docs).  The docs are quite large
20+ pages each, with questions
and either ticks or X's in a tabular format.  There are no fields.
I've never done this so my question is how easy is it to code something
like this or should I just
employ a temp to slog through it? 

BTW it's a one off import.

Maybe export the tables to Excel?

cheers

Michael Maddison

DDI Solutions Pty Ltd
michael at ddisolutions.com.au
Bus: 0260400620
Mob: 0412620497 
www.ddisolutions.com.au


From DWUTKA at marlow.com  Wed Jan  4 18:10:44 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Wed, 4 Jan 2006 18:10:44 -0600 
Subject: [AccessD] OT:  Was Check Box Back Color
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD48A@main2.marlow.com>

What kind of crackpot doctors do you have?  USB for a bluetooth device? ;)

Drew

	-----Original Message-----
	From:	Charlotte Foust [SMTP:cfoust at infostatsystems.com]
	Sent:	Wednesday, January 04, 2006 2:59 PM
	To:	Access Developers discussion and problem solving
	Subject:	Re: [AccessD] OT:  Was Check Box Back Color

	I asked for it, but they balked at the USB port in the neck. ;o}
And
	kid gloves are always socially correct! LOL

	Charlotte


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
	DWUTKA at marlow.com
	Sent: Wednesday, January 04, 2006 11:30 AM
	To: accessd at databaseadvisors.com
	Subject: Re: [AccessD] Check Box Back Color


	Does this mean I need to treat ya with 'kid gloves'?  So did you get
	blue tooth with the new one?  Maybe MP3 capability?

	Drew

	-----Original Message-----
	From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
	Sent: Wednesday, January 04, 2006 12:30 PM
	To: Access Developers discussion and problem solving
	Subject: Re: [AccessD] Check Box Back Color


	My heart often skips a beat, especially when I'm arguing with Drew
or
	JC! LOL

	Charlotte


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
	Sent: Wednesday, January 04, 2006 10:22 AM
	To: 'Access Developers discussion and problem solving'
	Subject: Re: [AccessD] Check Box Back Color


	Hmmm.... you know they added a second to clocks on 1/1. Does this
mean
	your heart skipped a beat? (glad you are OK BTW) Jim Hale

	-----Original Message-----
	From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
	Sent: Wednesday, January 04, 2006 12:13 PM
	To: Access Developers discussion and problem solving
	Subject: Re: [AccessD] Check Box Back Color


	Ticking along like a Timex.  Thanks for asking. ;o}

	Charlotte


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
	Sent: Wednesday, January 04, 2006 10:09 AM
	To: 'Access Developers discussion and problem solving'
	Subject: Re: [AccessD] Check Box Back Color


	May change them to text boxes.

	How are you doing?

	Joe Hecht
	jmhecht at earthlink.net
	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
	Foust
	Sent: Wednesday, January 04, 2006 10:06 AM
	To: Access Developers discussion and problem solving
	Subject: Re: [AccessD] Check Box Back Color

	If I recall correctly, checkboxes are the one control you
	have little
	... Er, control ... Over.  

	Charlotte Foust


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
	Joe Hecht
	Sent: Wednesday, January 04, 2006 9:47 AM
	To: 'Access Developers discussion and problem solving'
	Subject: [AccessD] Check Box Back Color


	Thanks to those who turned me on to conditional formatting.
Excellent
	answer.

	 

	I now need to be able to manipulate the back color of check boxes
	depending on focus.

	 

	Thanks again.

	 

	Joe Hecht

	jmhecht at earthlink.net

	 

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

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

	
***********************************************************************
	The information transmitted is intended solely for the individual or
	entity to which it is addressed and may contain confidential and/or
	privileged material. Any review, retransmission, dissemination or
other
	use of or taking action in reliance upon this information by persons
or
	entities other than the intended recipient is prohibited. If you
have
	received this email in error please contact the sender and delete
the
	material from any computer. As a recipient of this email, you are
	responsible for screening its contents and the contents of any
	attachments for the presence of viruses. No liability is accepted
for
	any damages caused by any virus transmitted by this email.
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com


From shamil at users.mns.ru  Wed Jan  4 18:49:40 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 5 Jan 2006 03:49:40 +0300
Subject: [AccessD] Extract data from .doc into db
References: <59A61174B1F5B54B97FD4ADDE71E7D0116A196@ddi-01.DDI.local>
Message-ID: <003701c61191$f4d074b0$6501a8c0@fincomplex.spb.ru>

Michael,

Have a look at these topics

http://smsconsulting.spb.ru/shamil_s/topics/dfromw95.htm
http://smsconsulting.spb.ru/shamil_s/topics/w95imp.htm

they may help you to solve your task directly.

> Maybe export the tables to Excel?
Yes, you can also copy your MS Word tables into MS Excel worksheets, then
attach these worksheets etc.
For 240 docs if the work is just one go then I'd recommend to copy data into
MS Excel manually - should be doable in a couple of hours - no need in
coding...

If you copy your source tables' data into MS Excel worksheets then these
topics may help for further work:

http://smsconsulting.spb.ru/shamil_s/topics/impbcdb0.htm
http://smsconsulting.spb.ru/shamil_s/topics/impbcdbb.htm
http://smsconsulting.spb.ru/shamil_s/topics/rxltbl.htm
http://smsconsulting.spb.ru/shamil_s/topics/exobjpr.htm

http://smsconsulting.spb.ru/shamil_s/topics/expexcel.htm

Depending on the quality of the source docs' data your task could be done in
1.5 - 5 days I guess...

Shamil

----- Original Message ----- 
From: "Michael Maddison" <michael at ddisolutions.com.au>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 3:08 AM
Subject: [AccessD] Extract data from .doc into db


> Hi Listers,
>
> I've been asked how much $$$ to extract data from a series of word docs.
> Each record is made up
> of 3 docs.  There are 80 records (240 docs).  The docs are quite large
> 20+ pages each, with questions
> and either ticks or X's in a tabular format.  There are no fields.
> I've never done this so my question is how easy is it to code something
> like this or should I just
> employ a temp to slog through it?
>
> BTW it's a one off import.
>
> Maybe export the tables to Excel?
>
> cheers
>
> Michael Maddison
>
> DDI Solutions Pty Ltd
> michael at ddisolutions.com.au
> Bus: 0260400620
> Mob: 0412620497
> www.ddisolutions.com.au
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From carbonnb at sympatico.ca  Wed Jan  4 18:46:29 2006
From: carbonnb at sympatico.ca (Bryan Carbonnell)
Date: Wed, 04 Jan 2006 19:46:29 -0500
Subject: [AccessD] (Fwd) Re:  Extract data from .doc into db
Message-ID: <BAYC1-PASMTP068527B5F2642CEB721F82AE2E0@CEZ.ICE>

Should have gone to the list too.

Bryan
------- Forwarded message follows -------
On 5 Jan 2006 at 11:08, Michael Maddison wrote:

> I've been asked how much $$$ to extract data from a series of word docs.
> Each record is made up
> of 3 docs.  There are 80 records (240 docs).  The docs are quite large
> 20+ pages each, with questions
> and either ticks or X's in a tabular format.  There are no fields.
> I've never done this so my question is how easy is it to code something
> like this or should I just
> employ a temp to slog through it? 

It depends. Are all the docs the same format? The same number of 
tables, columns, rows, etc? Is the marking consistant to indicate the 
choice?

If the answer is yes, then it should be fairly straight forward. Here 
is some code (written in Word, so you will have to translate into 
Access :)to give you an idea of what would be involved in reading the 
cells.

Sub test()

Dim doc As Document
Dim tbl As Table
Dim lngRow As Long
Dim lngRowCount As Long
Dim strCol2 As String
Dim strCol3 As String
Dim bolYes As Boolean
Dim bolNo As Boolean

Set doc = ActiveDocument
Set tbl = doc.Tables(1)

lngRowCount = tbl.Rows.Count
lngRow = 1


Do While lngRow <= lngRowCount
  'Get the values in the "choice" columns
  strCol2 = tbl.Cell(lngRow, 2).Range
  strCol3 = tbl.Cell(lngRow, 3).Range
  'Strip the trailing 2 characters asc(7) & asc(13)
  If Len(strCol2) > 2 Then
    strCol2 = Left$(strCol2, 1)
  Else
    strCol2 = ""
  End If
  If Len(strCol3) > 2 Then
    strCol3 = Left$(strCol3, 1)
  Else
    strCol3 = ""
  End If
    
  'Check to see if first "choice" column is "checked"
  If LCase(strCol2) = "x" Then
    bolYes = True
  End If
  'Check to see if second "choice" column is "checked"
  If LCase(strCol3) = "x" Then
    bolNo = True
  End If
  'Store the Values in your table
  
  'reset flags
  bolYes = False
  bolNo = False
  'increment row counter
  lngRow = lngRow + 1

Loop

Set tbl = Nothing
Set doc = Nothing

End Sub

A couple of assumptions here:

This is a single table with a minimum or 3 columns, where the choices 
are in columns 2 & 3 which are all marked with an x (upper or 
lowercase doesn't matter)

HTH,

-- 
Bryan Carbonnell - carbonnb at sympatico.ca
Earth is the insane asylum for the universe.


------- End of forwarded message -------
-- 
Bryan Carbonnell - carbonnb at sympatico.ca
Needing someone is like needing a parachute. If he isn't there the first time, chances are you won't be needing him again.




From cfoust at infostatsystems.com  Wed Jan  4 18:49:08 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 16:49:08 -0800
Subject: [AccessD] OT:  Was Check Box Back Color
Message-ID: <F55048AF7E974F429BB24597D7355EEABED6@INFOSERVER04.infostat.local>

No, the usb was for the recharger.  I figured if they wouldn't let me
recharge it, then it was fairly useless for WiFi. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Wednesday, January 04, 2006 4:11 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] OT: Was Check Box Back Color


What kind of crackpot doctors do you have?  USB for a bluetooth device?
;)

Drew

	-----Original Message-----
	From:	Charlotte Foust [SMTP:cfoust at infostatsystems.com]
	Sent:	Wednesday, January 04, 2006 2:59 PM
	To:	Access Developers discussion and problem solving
	Subject:	Re: [AccessD] OT:  Was Check Box Back Color

	I asked for it, but they balked at the USB port in the neck. ;o}
And
	kid gloves are always socially correct! LOL

	Charlotte


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
	DWUTKA at marlow.com
	Sent: Wednesday, January 04, 2006 11:30 AM
	To: accessd at databaseadvisors.com
	Subject: Re: [AccessD] Check Box Back Color


	Does this mean I need to treat ya with 'kid gloves'?  So did you
get
	blue tooth with the new one?  Maybe MP3 capability?

	Drew

	-----Original Message-----
	From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
	Sent: Wednesday, January 04, 2006 12:30 PM
	To: Access Developers discussion and problem solving
	Subject: Re: [AccessD] Check Box Back Color


	My heart often skips a beat, especially when I'm arguing with
Drew or
	JC! LOL

	Charlotte


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale,
Jim
	Sent: Wednesday, January 04, 2006 10:22 AM
	To: 'Access Developers discussion and problem solving'
	Subject: Re: [AccessD] Check Box Back Color


	Hmmm.... you know they added a second to clocks on 1/1. Does
this mean
	your heart skipped a beat? (glad you are OK BTW) Jim Hale

	-----Original Message-----
	From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
	Sent: Wednesday, January 04, 2006 12:13 PM
	To: Access Developers discussion and problem solving
	Subject: Re: [AccessD] Check Box Back Color


	Ticking along like a Timex.  Thanks for asking. ;o}

	Charlotte


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe
Hecht
	Sent: Wednesday, January 04, 2006 10:09 AM
	To: 'Access Developers discussion and problem solving'
	Subject: Re: [AccessD] Check Box Back Color


	May change them to text boxes.

	How are you doing?

	Joe Hecht
	jmhecht at earthlink.net
	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
	Foust
	Sent: Wednesday, January 04, 2006 10:06 AM
	To: Access Developers discussion and problem solving
	Subject: Re: [AccessD] Check Box Back Color

	If I recall correctly, checkboxes are the one control you
	have little
	... Er, control ... Over.  

	Charlotte Foust


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
	Joe Hecht
	Sent: Wednesday, January 04, 2006 9:47 AM
	To: 'Access Developers discussion and problem solving'
	Subject: [AccessD] Check Box Back Color


	Thanks to those who turned me on to conditional formatting.
Excellent
	answer.

	 

	I now need to be able to manipulate the back color of check
boxes
	depending on focus.

	 

	Thanks again.

	 

	Joe Hecht

	jmhecht at earthlink.net

	 

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

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

	
***********************************************************************
	The information transmitted is intended solely for the
individual or
	entity to which it is addressed and may contain confidential
and/or
	privileged material. Any review, retransmission, dissemination
or other
	use of or taking action in reliance upon this information by
persons or
	entities other than the intended recipient is prohibited. If you
have
	received this email in error please contact the sender and
delete the
	material from any computer. As a recipient of this email, you
are
	responsible for screening its contents and the contents of any
	attachments for the presence of viruses. No liability is
accepted for
	any damages caused by any virus transmitted by this email.
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From jwcolby at ColbyConsulting.com  Wed Jan  4 19:51:47 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 4 Jan 2006 20:51:47 -0500
Subject: [AccessD] OT Super interesting options
In-Reply-To: <000c01c6115f$4f7e9960$017ba8c0@xpserver>
Message-ID: <000001c6119a$97241d40$647aa8c0@ColbyM6805>

I downloaded and installed on my machine, as well as a machine I could
remote into at a client.  I was able to IM over the app, but I was unable to
ping, or to browse shares.

It is a fascinating concept and might be a nice thing if I could get it
working at one specific client where remote desktop just doesn't work (for
me).  I need to be able to up/download FE and framework files to them and
can never connect.  It would be cool to be able to see shares and do my
upload/download in that manner.  I have to wonder what the processor
overhead will be though.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
Sent: Wednesday, January 04, 2006 1:47 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] OT Super interesting options

OT

This is totally off topic but the potential and product is so interesting
that, with my apologies, I had to post it here.

Check this web site out: http://www.hamachi.cc/ and listen to the linked pod
cast: 
http://reference.creativesystemdesigns.com/Downloads/Hamachi.pod
(Remember to set the downloaded pod file's extension to 'mp3' so you can
play it.) 

Jim

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



From wdhindman at bellsouth.net  Wed Jan  4 20:03:22 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 4 Jan 2006 21:03:22 -0500
Subject: [AccessD] Check Box Back Color
References: <000801c61156$d2e301f0$6701a8c0@HPLaptop>
Message-ID: <000901c6119c$356527f0$6101a8c0@JISREGISTRATION.local>

...never found a way to do that ...but dependng upon your needs, you can use 
a yes/no text box instead along with the wingdings font ...which means you 
not only can set the bg color but the fg color and size it as well ...and 
you can set the format property to change the bg color between -1 and 0 
values ...and in XP and above you also get conditional formatting ...its 
more work of course but that's the way of most good things in Access ...hth

William

----- Original Message ----- 
From: "Joe Hecht" <jmhecht at earthlink.net>
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 04, 2006 12:46 PM
Subject: [AccessD] Check Box Back Color


> Thanks to those who turned me on to conditional formatting.
> Excellent answer.
>
>
>
> I now need to be able to manipulate the back color of check
> boxes depending on focus.
>
>
>
> Thanks again.
>
>
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From bryan.fitzpatrick at cyberone.com.au  Wed Jan  4 20:18:49 2006
From: bryan.fitzpatrick at cyberone.com.au (Bryan and Jane Fitzpatrick)
Date: Thu, 05 Jan 2006 13:18:49 +1100
Subject: [AccessD] Check Box Back Color
In-Reply-To: <000901c6119c$356527f0$6101a8c0@JISREGISTRATION.local>
References: <000801c61156$d2e301f0$6701a8c0@HPLaptop>
	<000901c6119c$356527f0$6101a8c0@JISREGISTRATION.local>
Message-ID: <43BC8209.3010805@cyberone.com.au>

There is no Backcolor property for a checkbox, so it can't be done 
directly.  Two ways around it -

1.      Change the backcolor of the Checkbox's Label.

2.      Put a rectangle control behind the Checkbox and change the color 
of the rectangle.

Hope this helps.

Bryan

William Hindman wrote:

>...never found a way to do that ...but dependng upon your needs, you can use 
>a yes/no text box instead along with the wingdings font ...which means you 
>not only can set the bg color but the fg color and size it as well ...and 
>you can set the format property to change the bg color between -1 and 0 
>values ...and in XP and above you also get conditional formatting ...its 
>more work of course but that's the way of most good things in Access ...hth
>
>William
>
>----- Original Message ----- 
>From: "Joe Hecht" <jmhecht at earthlink.net>
>To: "'Access Developers discussion and problem solving'" 
><accessd at databaseadvisors.com>
>Sent: Wednesday, January 04, 2006 12:46 PM
>Subject: [AccessD] Check Box Back Color
>
>
>  
>
>>Thanks to those who turned me on to conditional formatting.
>>Excellent answer.
>>
>>
>>
>>I now need to be able to manipulate the back color of check
>>boxes depending on focus.
>>
>>
>>
>>Thanks again.
>>
>>
>>
>>Joe Hecht
>>
>>jmhecht at earthlink.net
>>
>>
>>
>>-- 
>>AccessD mailing list
>>AccessD at databaseadvisors.com
>>http://databaseadvisors.com/mailman/listinfo/accessd
>>Website: http://www.databaseadvisors.com
>>
>>    
>>
>
>
>  
>
-------------- next part --------------
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.371 / Virus Database: 267.14.12/220 - Release Date: 3/01/2006

From wdhindman at bellsouth.net  Wed Jan  4 23:11:23 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 5 Jan 2006 00:11:23 -0500
Subject: [AccessD] Text Box True False Question
References: <000301c61155$8edc6a60$6701a8c0@HPLaptop>
Message-ID: <001d01c611b6$7949d640$6101a8c0@JISREGISTRATION.local>

...use the format property of the text box and the wingding font.

William

----- Original Message ----- 
From: "Joe Hecht" <jmhecht at earthlink.net>
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 04, 2006 12:37 PM
Subject: [AccessD] Text Box True False Question


>I have a yes no text box. Without the focus it shows
> correctly yes or no. When it gets focus it shows a zero or a
> non zero value. How do I force it to show yes or no when it
> has focus.
>
>
>
> Thanks
>
>
>
>
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From chizotz at mchsi.com  Wed Jan  4 23:21:38 2006
From: chizotz at mchsi.com (Ron Allen)
Date: Wed, 4 Jan 2006 23:21:38 -0600
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <43BC8209.3010805@cyberone.com.au>
References: <000801c61156$d2e301f0$6701a8c0@HPLaptop>
	<000901c6119c$356527f0$6101a8c0@JISREGISTRATION.local>
	<43BC8209.3010805@cyberone.com.au>
Message-ID: <1395319198.20060104232138@mchsi.com>

I know I'm an infrequent contributor here that usually asks for more
help than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first
for both of us.

I'm a little old to be a first time daddy, and the prospect worries me
in all sorts of ways -- but at the same time I've never been happier
:)

Ron





From accessd at shaw.ca  Thu Jan  5 00:10:17 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Wed, 04 Jan 2006 22:10:17 -0800
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <1395319198.20060104232138@mchsi.com>
Message-ID: <003a01c611be$b3630fb0$017ba8c0@xpserver>

Well Ron, now you will have the opportunity to be a frequent contributor but
not necessarily on the list. Congratulations... It is definitely the year of
babies and weddings. (My oldest daughter got married in a small family
affair, at our house, on New Years day; to her long time boyfriend.... a big
official event will follow in a year as soon as they are settled.)  

It is never too late to get the opportunity to spoil a child. I personally
think it is the biggest event of a life-time.

We expect pictures of the result.
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
Sent: January 4, 2006 9:22 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT: We're Expecting!

I know I'm an infrequent contributor here that usually asks for more
help than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first
for both of us.

I'm a little old to be a first time daddy, and the prospect worries me
in all sorts of ways -- but at the same time I've never been happier
:)

Ron



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



From janine_docsonline at unwired.com.au  Thu Jan  5 01:22:41 2006
From: janine_docsonline at unwired.com.au (Janine_docsonline)
Date: Thu, 5 Jan 2006 18:22:41 +1100
Subject: [AccessD] (Fwd) Re:  Extract data from .doc into db
References: <BAYC1-PASMTP068527B5F2642CEB721F82AE2E0@CEZ.ICE>
Message-ID: <00a301c611c8$d9ae2d80$2a5065dc@pcuserksvpkrsc>

Love the humour.

Don't know if this is off base. There is a convert table to access merge 
thingy in Word 2003 does that help? I was going to show a client who had 
access how a table could be merged back to Access?

Are the word documents in table? Just a suggestion only.

Cant you charge him when you're done? If it takes 10 hours charge out US$55 
PER HOUR (that seems fair).
Conver the tabular text to tables and then use Word 2003 merge option to 
turn  into fields or just import into Access from the table fields.

I may be way off base but just a thought....


----- Original Message ----- 
From: "Bryan Carbonnell" <carbonnb at sympatico.ca>
To: "access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 11:46 AM
Subject: [AccessD] (Fwd) Re: Extract data from .doc into db


> Should have gone to the list too.
>
> Bryan
> ------- Forwarded message follows -------
> On 5 Jan 2006 at 11:08, Michael Maddison wrote:
>
>> I've been asked how much $$$ to extract data from a series of word docs.
>> Each record is made up
>> of 3 docs.  There are 80 records (240 docs).  The docs are quite large
>> 20+ pages each, with questions
>> and either ticks or X's in a tabular format.  There are no fields.
>> I've never done this so my question is how easy is it to code something
>> like this or should I just
>> employ a temp to slog through it?
>
> It depends. Are all the docs the same format? The same number of
> tables, columns, rows, etc? Is the marking consistant to indicate the
> choice?
>
> If the answer is yes, then it should be fairly straight forward. Here
> is some code (written in Word, so you will have to translate into
> Access :)to give you an idea of what would be involved in reading the
> cells.
>
> Sub test()
>
> Dim doc As Document
> Dim tbl As Table
> Dim lngRow As Long
> Dim lngRowCount As Long
> Dim strCol2 As String
> Dim strCol3 As String
> Dim bolYes As Boolean
> Dim bolNo As Boolean
>
> Set doc = ActiveDocument
> Set tbl = doc.Tables(1)
>
> lngRowCount = tbl.Rows.Count
> lngRow = 1
>
>
> Do While lngRow <= lngRowCount
>  'Get the values in the "choice" columns
>  strCol2 = tbl.Cell(lngRow, 2).Range
>  strCol3 = tbl.Cell(lngRow, 3).Range
>  'Strip the trailing 2 characters asc(7) & asc(13)
>  If Len(strCol2) > 2 Then
>    strCol2 = Left$(strCol2, 1)
>  Else
>    strCol2 = ""
>  End If
>  If Len(strCol3) > 2 Then
>    strCol3 = Left$(strCol3, 1)
>  Else
>    strCol3 = ""
>  End If
>
>  'Check to see if first "choice" column is "checked"
>  If LCase(strCol2) = "x" Then
>    bolYes = True
>  End If
>  'Check to see if second "choice" column is "checked"
>  If LCase(strCol3) = "x" Then
>    bolNo = True
>  End If
>  'Store the Values in your table
>
>  'reset flags
>  bolYes = False
>  bolNo = False
>  'increment row counter
>  lngRow = lngRow + 1
>
> Loop
>
> Set tbl = Nothing
> Set doc = Nothing
>
> End Sub
>
> A couple of assumptions here:
>
> This is a single table with a minimum or 3 columns, where the choices
> are in columns 2 & 3 which are all marked with an x (upper or
> lowercase doesn't matter)
>
> HTH,
>
> -- 
> Bryan Carbonnell - carbonnb at sympatico.ca
> Earth is the insane asylum for the universe.
>
>
> ------- End of forwarded message -------
> -- 
> Bryan Carbonnell - carbonnb at sympatico.ca
> Needing someone is like needing a parachute. If he isn't there the first 
> time, chances are you won't be needing him again.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From andy at minstersystems.co.uk  Thu Jan  5 02:15:34 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Thu, 5 Jan 2006 08:15:34 -0000
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <1395319198.20060104232138@mchsi.com>
Message-ID: <00c901c611d0$33de3c30$d8ac0c54@minster33c3r25>

Congratulations Ron. It'll be a wondrous day for you.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
> Sent: 05 January 2006 05:22
> To: accessd at databaseadvisors.com
> Subject: [AccessD] OT: We're Expecting!
> 
> 
> I know I'm an infrequent contributor here that usually asks 
> for more help than I end up giving, but I wanted to share 
> this with you all :)
> 
> My wife and I found out on New Year's Eve that we're going to 
> have a baby. This was confirmed by the doctor this morning. 
> It's the first for both of us.
> 
> I'm a little old to be a first time daddy, and the prospect 
> worries me in all sorts of ways -- but at the same time I've 
> never been happier
> :)
> 
> Ron
> 
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From Gustav at cactus.dk  Thu Jan  5 03:40:39 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 05 Jan 2006 10:40:39 +0100
Subject: [AccessD] OT Super interesting options
Message-ID: <s3bcf7c0.083@cactus.dk>

Hi John

Did you check out NetOp On Demand Remote Control:

  http://www.netop.com/netop-425.htm 

Not free but fair and an eval is for download.

/gustav

>>> jwcolby at ColbyConsulting.com 05-01-2006 02:51 >>>
.. I need to be able to up/download FE and framework files to them and
can never connect.  It would be cool to be able to see shares and do my
upload/download in that manner ..



From Gustav at cactus.dk  Thu Jan  5 03:47:50 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 05 Jan 2006 10:47:50 +0100
Subject: [AccessD] Check Box Back Color
Message-ID: <s3bcf967.084@cactus.dk>

Hi Joe

If you are not afraid of using a third-party control, a free one with a bunch of checkboxes is here for free:

  http://www.devexpress.com/Products/ActiveX/XFreeLib/

/gustav

>From: "Joe Hecht" <jmhecht at earthlink.net>
>To: "'Access Developers discussion and problem solving'" 
><accessd at databaseadvisors.com>
>Sent: Wednesday, January 04, 2006 12:46 PM
>Subject: [AccessD] Check Box Back Color
>>
>>I now need to be able to manipulate the back color of check
>>boxes depending on focus.




From zora_db at yahoo.com  Thu Jan  5 05:15:19 2006
From: zora_db at yahoo.com (Roz Clarke)
Date: Thu, 5 Jan 2006 11:15:19 +0000 (GMT)
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <00c901c611d0$33de3c30$d8ac0c54@minster33c3r25>
Message-ID: <20060105111519.13548.qmail@web50108.mail.yahoo.com>

Congratulations Ron, best wishes to both of you for the duration (i.e. the rest of your lives!)

--- Andy Lacey <andy at minstersystems.co.uk> wrote:

> Congratulations Ron. It'll be a wondrous day for you.
> 
> -- Andy Lacey
> http://www.minstersystems.co.uk 
> 
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com 
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
> > Sent: 05 January 2006 05:22
> > To: accessd at databaseadvisors.com
> > Subject: [AccessD] OT: We're Expecting!
> > 
> > 
> > I know I'm an infrequent contributor here that usually asks 
> > for more help than I end up giving, but I wanted to share 
> > this with you all :)
> > 
> > My wife and I found out on New Year's Eve that we're going to 
> > have a baby. This was confirmed by the doctor this morning. 
> > It's the first for both of us.
> > 
> > I'm a little old to be a first time daddy, and the prospect 
> > worries me in all sorts of ways -- but at the same time I've 
> > never been happier
> > :)
> > 
> > Ron
> > 
> > 
> > 
> > -- 
> > AccessD mailing list
> > AccessD at databaseadvisors.com 
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> > 
> > 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



		
___________________________________________________________ 
To help you stay safe and secure online, we've developed the all new Yahoo! Security Centre. http://uk.security.yahoo.com


From fahooper at trapo.com  Thu Jan  5 05:41:07 2006
From: fahooper at trapo.com (Fred Hooper)
Date: Thu, 05 Jan 2006 06:41:07 -0500
Subject: [AccessD] OT Super interesting options
In-Reply-To: <000001c6119a$97241d40$647aa8c0@ColbyM6805>
Message-ID: <000401c611ec$eb6fbb00$2e01a8c0@fredxp>

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Wednesday, January 04, 2006 8:52 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

I downloaded and installed on my machine, as well as a machine I could
remote into at a client.  I was able to IM over the app, but I was unable to
ping, or to browse shares.

It is a fascinating concept and might be a nice thing if I could get it
working at one specific client where remote desktop just doesn't work (for
me).  I need to be able to up/download FE and framework files to them and
can never connect.  It would be cool to be able to see shares and do my
upload/download in that manner.  I have to wonder what the processor
overhead will be though.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
Sent: Wednesday, January 04, 2006 1:47 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] OT Super interesting options

OT

This is totally off topic but the potential and product is so interesting
that, with my apologies, I had to post it here.

Check this web site out: http://www.hamachi.cc/ and listen to the linked pod
cast: 
http://reference.creativesystemdesigns.com/Downloads/Hamachi.pod
(Remember to set the downloaded pod file's extension to 'mp3' so you can
play it.) 

Jim

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

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




From jwcolby at ColbyConsulting.com  Thu Jan  5 05:49:24 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 06:49:24 -0500
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <1395319198.20060104232138@mchsi.com>
Message-ID: <001501c611ee$137e97f0$647aa8c0@ColbyM6805>

Congrats!  I became a foster dad at 48 and adopted my two at 51 so I know
the feeling of worry that goes along with doing it at this age, but (if I
live through it of course) it is all worthwhile.  

Again, congrats and may God be with you as you begin this long journey.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
Sent: Thursday, January 05, 2006 12:22 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT: We're Expecting!

I know I'm an infrequent contributor here that usually asks for more help
than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a baby.
This was confirmed by the doctor this morning. It's the first for both of
us.

I'm a little old to be a first time daddy, and the prospect worries me in
all sorts of ways -- but at the same time I've never been happier
:)

Ron



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



From Gustav at cactus.dk  Thu Jan  5 06:03:11 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 05 Jan 2006 13:03:11 +0100
Subject: [AccessD] Informix, Boolean
Message-ID: <s3bd1923.095@cactus.dk>

Hi all

Didn't some of you have experience with Informix?

Why should you not be able to filter on a Boolean field in a linked table in Access? Like:

  where field_boolean <> 0

which returns no records while this does:

  where CBool(Nz(field_boolean)) <> 0

Also

  where field_boolean <> "0"

gives a type mismatch error, thus field is numeric.

If no where clause is present, records with values of 0 and -1 are returned ...

/gustav



From wdhindman at bellsouth.net  Thu Jan  5 06:35:17 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 5 Jan 2006 07:35:17 -0500
Subject: [AccessD] OT: We're Expecting!
References: <000801c61156$d2e301f0$6701a8c0@HPLaptop><000901c6119c$356527f0$6101a8c0@JISREGISTRATION.local><43BC8209.3010805@cyberone.com.au>
	<1395319198.20060104232138@mchsi.com>
Message-ID: <002401c611f4$7be3b1d0$6101a8c0@JISREGISTRATION.local>

...worries come with being a father ...but they're a small price to pay for 
the joy ...absolutely nothing you've ever done or ever will do comes close 
to the joy a child brings to every aspect of your life ...and you're never 
too old.

William

----- Original Message ----- 
From: "Ron Allen" <chizotz at mchsi.com>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 12:21 AM
Subject: [AccessD] OT: We're Expecting!


>I know I'm an infrequent contributor here that usually asks for more
> help than I end up giving, but I wanted to share this with you all :)
>
> My wife and I found out on New Year's Eve that we're going to have a
> baby. This was confirmed by the doctor this morning. It's the first
> for both of us.
>
> I'm a little old to be a first time daddy, and the prospect worries me
> in all sorts of ways -- but at the same time I've never been happier
> :)
>
> Ron
>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From wdhindman at bellsouth.net  Thu Jan  5 06:39:35 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 5 Jan 2006 07:39:35 -0500
Subject: [AccessD] Check Box Back Color
References: <s3bcf967.084@cactus.dk>
Message-ID: <002c01c611f5$15d94ca0$6101a8c0@JISREGISTRATION.local>

Gustav

...looks interesting ...but have you tried these with Access?

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 4:47 AM
Subject: Re: [AccessD] Check Box Back Color


> Hi Joe
>
> If you are not afraid of using a third-party control, a free one with a 
> bunch of checkboxes is here for free:
>
>  http://www.devexpress.com/Products/ActiveX/XFreeLib/
>
> /gustav
>
>>From: "Joe Hecht" <jmhecht at earthlink.net>
>>To: "'Access Developers discussion and problem solving'"
>><accessd at databaseadvisors.com>
>>Sent: Wednesday, January 04, 2006 12:46 PM
>>Subject: [AccessD] Check Box Back Color
>>>
>>>I now need to be able to manipulate the back color of check
>>>boxes depending on focus.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From Gustav at cactus.dk  Thu Jan  5 06:50:49 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 05 Jan 2006 13:50:49 +0100
Subject: [AccessD] Check Box Back Color
Message-ID: <s3bd245c.098@cactus.dk>

Hi William

Nope, haven't had the need. Personally I believe there should be a very good reason for using non-standard user interface controls.

/gustav

>>> wdhindman at bellsouth.net 05-01-2006 13:39 >>>
Gustav

...looks interesting ...but have you tried these with Access?

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 4:47 AM
Subject: Re: [AccessD] Check Box Back Color


> Hi Joe
>
> If you are not afraid of using a third-party control, a free one with a 
> bunch of checkboxes is here for free:
>
>  http://www.devexpress.com/Products/ActiveX/XFreeLib/ 
>
> /gustav
>
>>From: "Joe Hecht" <jmhecht at earthlink.net>
>>To: "'Access Developers discussion and problem solving'"
>><accessd at databaseadvisors.com>
>>Sent: Wednesday, January 04, 2006 12:46 PM
>>Subject: [AccessD] Check Box Back Color
>>>
>>>I now need to be able to manipulate the back color of check
>>>boxes depending on focus.




From paul.hartland at isharp.co.uk  Thu Jan  5 07:21:00 2006
From: paul.hartland at isharp.co.uk (Paul Hartland (ISHARP))
Date: Thu, 5 Jan 2006 13:21:00 -0000
Subject: [AccessD] OT - Changing a DSN Connection
In-Reply-To: <200512221305.jBMD50V16983@databaseadvisors.com>
Message-ID: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAAAaHz+LRnbAQ5PJoO5hBonIAQAAAAA=@isharp.co.uk>

To all,

We are having a new server (very soon) and changing the name to something
like AL-MASTER from AL-ORR the thing is I have a lot of Excel management
reports which use various DSN's pointing to AL-ORR, is there something I
could write in Access or VB that a a click of a button will find these DSN's
and replace the server name ?

Any help on this would be greatly appreciated.

Thanks in advance 

Paul Hartland

P.S. Happy New Year to all list members, don't know what I would do without
it sometimes



From carbonnb at gmail.com  Thu Jan  5 07:24:35 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Thu, 5 Jan 2006 08:24:35 -0500
Subject: [AccessD] OT - Changing a DSN Connection
In-Reply-To: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAAAaHz+LRnbAQ5PJoO5hBonIAQAAAAA=@isharp.co.uk>
References: <200512221305.jBMD50V16983@databaseadvisors.com>
	<!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAAAaHz+LRnbAQ5PJoO5hBonIAQAAAAA=@isharp.co.uk>
Message-ID: <e04a6c920601050524p19471845o@mail.gmail.com>

On 05/01/06, Paul Hartland (ISHARP) <paul.hartland at isharp.co.uk> wrote:

> We are having a new server (very soon) and changing the name to something
> like AL-MASTER from AL-ORR the thing is I have a lot of Excel management
> reports which use various DSN's pointing to AL-ORR, is there something I
> could write in Access or VB that a a click of a button will find these DSN's
> and replace the server name ?
>
> Any help on this would be greatly appreciated.

Paul,

Here is a suggestion, and I don't know if it will work, but why not
create an alias in you internal DNS records to point AL-ORR to
AL-MASTER. That way you don't have to change any thing on the client
side.

Like I said, I don't know if this will work, but it may be worth looking into.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From artful at rogers.com  Thu Jan  5 08:10:44 2006
From: artful at rogers.com (Arthur Fuller)
Date: Thu, 5 Jan 2006 09:10:44 -0500
Subject: [AccessD] Tab Control & Sub Form
In-Reply-To: <001801c6115a$4466e280$6701a8c0@HPLaptop>
Message-ID: <200601051410.k05EAlV23559@databaseadvisors.com>

A couple of options spring to mind:
a) in design mode, choose the one you like best then click through all the
tabs and align their subforms to that top-left coordinate.
b) make the subforms' border transparent and flat so it is not apparent that
a subform lives on each tab page.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: January 4, 2006 1:11 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Tab Control & Sub Form

When using a tab control, how does one make sure the sub
form is in the same place on each page so it does not seem
to jump as you change each page?

 

Thanks 

 

Joe Hecht

jmhecht at earthlink.net

 

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



From artful at rogers.com  Thu Jan  5 08:17:06 2006
From: artful at rogers.com (Arthur Fuller)
Date: Thu, 5 Jan 2006 09:17:06 -0500
Subject: [AccessD] OT: Eternal Optimism
In-Reply-To: <003601c6115b$95a6a3a0$6a01a8c0@DDMJWX41>
Message-ID: <200601051417.k05EH9V25105@databaseadvisors.com>

A complete aside, prompted by your signature, John.
Does "The Eternal Optimist" mean that you are Eternal and also an optimist?
Or that your optimism is eternal, at least until you have demonstrated that
you are not eternal? And finally, it occurs to me that my old definition of
life as "that which dies" may be inappropriate -- given that single-celled
creatures such as amoebae divide as their method of reproduction, this
implies that the first amoeba is still here, alive and kicking and
screaming. In which case amoeba are perhaps eternal, at least until we kill
every instance of them... a process that could take forever. So perhaps that
means that the simpler the wetware, the better. LOL.
A.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Ruff
Sent: January 4, 2006 1:21 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Tab Control & Sub Form

Each subform has a Left, Top, Width, and Height properties. Set the Left and
Top properties to the same value for each subform.

John V. Ruff - The Eternal Optimist :-)
 
"Commit to the Lord whatever you do,
                and your plans will succeed." Proverbs 16:3



From John.Clark at niagaracounty.com  Thu Jan  5 08:17:43 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Thu, 05 Jan 2006 09:17:43 -0500
Subject: [AccessD] Problem converting code
Message-ID: <s3bce4a6.008@nebnov3.niagaracounty.com>

Somebody on this list helped me with code to automatically place the
next number in a series into a control number. I'm really sorry I don't
remember who...I usually make note of it, but I've recently relocated my
office and I can't even find the code docs...there probably in a box
somewhere.

Anyhow, what the code does is auto number cases, in the form of 05-001,
05-002,...until the new year, upon which is will restart with 06-001.
This worked fine and dandy but for two things...first my client was
adamant about there being no possibility of hitting 1000 cases in a
year, which as you can probably guess they did. And they were also
adamant about there not being an extra zero, when I tried placing it in
there just in case.

The bigger problem though is that this was done in A97 and I am now
using A2K. I will be redoing this program in A2K and the program I am
currently working on and trying to reuse the code in, is also A2K. I am
getting errors on the line, "Set rst = CodeDb.OpenRecordset(strSQL)"
that says too few parameters. I am either being totally dense (a
distinct possibility) or it is a DAO vs. ADO problem, which I can not
get through my skull and always have problems with...making me dense
again...hmmmm.

Can anyone please point me in the right direction to rectify this
problem?

I make the default value for the field set as, "=NewControlNum()"

****************************** CODE
***********************************************************************
Function NewControlNum() As String
Dim strSQL As String
Dim strNewID As String
Dim rst As Recordset
strSQL = "SELECT nz(Max(Mid([tblIndictment]![IndictmentNumber],4)),0)+1
AS lngMaxID," & _
         "Right(Year(Now()),2)" & _
         "& '-' & [lngMaxID] AS lngNewID " & _
         "FROM tblIndictment " & _
         "WHERE
(((Left([tblIndictment]![IndictmentNumber],2))=Right(Year(Now()),2)));"
Set rst = CodeDb.OpenRecordset(strSQL)
With rst
   strNewID = rst!lngNewID
   rst.Close
   Set rst = Nothing
End With
NewControlNum = strNewID

Rem
***************************************************************************

Select Case Len(NewControlNum)
    Case 4
        NewControlNum = Left(NewControlNum, 3) & "00" &
Right(NewControlNum, 1)
    Case 5
        NewControlNum = Left(NewControlNum, 3) & "0" &
Right(NewControlNum, 2)
End Select


Thank you!

John W Clark


From carbonnb at gmail.com  Thu Jan  5 08:21:53 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Thu, 5 Jan 2006 09:21:53 -0500
Subject: [AccessD] Problem converting code
In-Reply-To: <s3bce4a6.008@nebnov3.niagaracounty.com>
References: <s3bce4a6.008@nebnov3.niagaracounty.com>
Message-ID: <e04a6c920601050621j75bc9feao@mail.gmail.com>

On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:

> The bigger problem though is that this was done in A97 and I am now
> using A2K. I will be redoing this program in A2K and the program I am
> currently working on and trying to reuse the code in, is also A2K. I am
> getting errors on the line, "Set rst = CodeDb.OpenRecordset(strSQL)"
> that says too few parameters. I am either being totally dense (a
> distinct possibility) or it is a DAO vs. ADO problem, which I can not
> get through my skull and always have problems with...making me dense
> again...hmmmm.

It appears to be DAO code, so you will need to add a reference to DAO.
A2K defaults to ADO.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From wdhindman at bellsouth.net  Thu Jan  5 08:31:06 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 5 Jan 2006 09:31:06 -0500
Subject: [AccessD] Problem converting code
References: <s3bce4a6.008@nebnov3.niagaracounty.com>
	<e04a6c920601050621j75bc9feao@mail.gmail.com>
Message-ID: <003d01c61204$a9f14b90$6101a8c0@JISREGISTRATION.local>

...and don't forget to set the DAO reference higher in the list than the ADO 
reference ...or remove the ADO reference altogether.

William

----- Original Message ----- 
From: "Bryan Carbonnell" <carbonnb at gmail.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 9:21 AM
Subject: Re: [AccessD] Problem converting code


> On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:
>
>> The bigger problem though is that this was done in A97 and I am now
>> using A2K. I will be redoing this program in A2K and the program I am
>> currently working on and trying to reuse the code in, is also A2K. I am
>> getting errors on the line, "Set rst = CodeDb.OpenRecordset(strSQL)"
>> that says too few parameters. I am either being totally dense (a
>> distinct possibility) or it is a DAO vs. ADO problem, which I can not
>> get through my skull and always have problems with...making me dense
>> again...hmmmm.
>
> It appears to be DAO code, so you will need to add a reference to DAO.
> A2K defaults to ADO.
>
> --
> Bryan Carbonnell - carbonnb at gmail.com
> Life's journey is not to arrive at the grave safely in a well
> preserved body, but rather to skid in sideways, totally worn out,
> shouting "What a great ride!"
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From Gustav at cactus.dk  Thu Jan  5 08:37:55 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 05 Jan 2006 15:37:55 +0100
Subject: [AccessD] OT - Changing a DSN Connection
Message-ID: <s3bd3d5d.000@cactus.dk>

Hi Paul

Here's the basics:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/odbc/htm/odbcsqlconfigdatasource.asp

and here is example code where you could enter the modified name of the server into the connect string:

<code>

  Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" ( _
    ByVal hwndParent As Long, _
    ByVal fRequest As Integer, _
    ByVal lpszDriver As String, _
    ByVal lpszAttributes As String) _
    As Long

  ' Add user DSN.
  Private Const ODBC_ADD_DSN              As Long = 1
  ' Configure user DSN.
  Private Const ODBC_CONFIG_DSN           As Long = 2
  ' Remove user DSN.
  Private Const ODBC_REMOVE_DSN           As Long = 3
  ' Add system DSN.
  Private Const ODBC_ADD_SYS_DSN          As Long = 4
  ' Configure system DSN.
  Private Const ODBC_CONFIG_SYS_DSN       As Long = 5
  ' Remove system DSN.
  Private Const ODBC_REMOVE_SYS_DSN       As Long = 6
  ' Remove the default DSN.
  Private Const ODBC_REMOVE_DEFAULT_DSN   As Long = 7
  
  Private Const ODBC_ERROR_GENERAL_ERR             As Long = 1
  Private Const ODBC_ERROR_INVALID_BUFF_LEN        As Long = 2
  Private Const ODBC_ERROR_INVALID_HWND            As Long = 3
  Private Const ODBC_ERROR_INVALID_STR             As Long = 4
  Private Const ODBC_ERROR_INVALID_REQUEST_TYPE    As Long = 5
  Private Const ODBC_ERROR_COMPONENT_NOT_FOUND     As Long = 6
  Private Const ODBC_ERROR_INVALID_NAME            As Long = 7
  Private Const ODBC_ERROR_INVALID_KEYWORD_VALUE   As Long = 8
  Private Const ODBC_ERROR_INVALID_DSN             As Long = 9
  Private Const ODBC_ERROR_INVALID_INF             As Long = 10
  Private Const ODBC_ERROR_REQUEST_FAILED          As Long = 11
  Private Const ODBC_ERROR_INVALID_PATH            As Long = 12
  Private Const ODBC_ERROR_LOAD_LIB_FAILED         As Long = 13
  Private Const ODBC_ERROR_INVALID_PARAM_SEQUENCE  As Long = 14
  Private Const ODBC_ERROR_INVALID_LOG_FILE        As Long = 15
  Private Const ODBC_ERROR_USER_CANCELED           As Long = 16
  Private Const ODBC_ERROR_USAGE_UPDATE_FAILED     As Long = 17
  Private Const ODBC_ERROR_CREATE_DSN_FAILED       As Long = 18
  Private Const ODBC_ERROR_WRITING_SYSINFO_FAILED  As Long = 19
  Private Const ODBC_ERROR_REMOVE_DSN_FAILED       As Long = 20
  Private Const ODBC_ERROR_OUT_OF_MEM              As Long = 21
  Private Const ODBC_ERROR_OUTPUT_STRING_TRUNCATED As Long = 22
  
  Private Const SQL_SUCCESS            As Long = 0
  Private Const SQL_SUCCESS_WITH_INFO  As Long = 1
  Private Const SQL_NO_DATA            As Long = 100
  Private Const SQL_ERROR              As Long = -1
  Private Const SQL_INVALID_HANDLE     As Long = -2
  Private Const SQL_MAX_MESSAGE_LENGTH As Long = 512
 
  ' Nul pointer.
  Private Const vbAPINull                 As Long = 0


Private Sub ConfigDSN() 

' Examples of driver names:
'   SQL Server
'   MySQL ODBC 3.51 Driver
'   Microsoft ODBC for Oracle
'
' Example of connection string:
'   DSN=MySQL Test;DESC=MySQL ODBC 3.51 Test;DATABASE=Test;SERVER=192.168.1.100;USER=root;PASSWORD=password;PORT=3306;SOCKET=;OPTION=3;STMT=;
'
    Dim strDriver As String 
    Dim strAttributes As String 
    Dim lngRet As Long 

    strDriver = "SQL Server" & vbNullChar
    strAttributes = "<YourModifiedConnectString>" & vbNullChar
    lngRet = SQLConfigDataSource(Me.hWnd, ODBC_CONFIG_DSN, strDriver, strAttributes) 

End Sub

</code>

This should get you started.

/gustav

>>> paul.hartland at isharp.co.uk 05-01-2006 14:21 >>>
To all,

We are having a new server (very soon) and changing the name to something
like AL-MASTER from AL-ORR the thing is I have a lot of Excel management
reports which use various DSN's pointing to AL-ORR, is there something I
could write in Access or VB that a a click of a button will find these DSN's
and replace the server name ?

Any help on this would be greatly appreciated.

Thanks in advance 

Paul Hartland

P.S. Happy New Year to all list members, don't know what I would do without
it sometimes



From James at fcidms.com  Thu Jan  5 08:40:31 2006
From: James at fcidms.com (James Barash)
Date: Thu, 5 Jan 2006 09:40:31 -0500
Subject: [AccessD] OT - Changing a DSN Connection
In-Reply-To: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAAAaHz+LRnbAQ5PJoO5hBonIAQAAAAA=@isharp.co.uk>
Message-ID: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAAC4AAAAAAAAAeFXhf3hyHUqVRm7J1rf4uwEA51l29XAtAUC2gpAQxILZJQAAAACRlwAAEAAAAK2drcaDzIpHj/2tcBRHmHABAAAAAA==@fcidms.com>

Paul:

It depends how you set up your DSN. If you use User DSN, those are stored in
the registry under Hkey_Current_User\Software\ODBC\ODBC.INI\. You could open
each Key and change the Server to AL-MASTER. If you use a System DSN, those
are stored under Hkey_Local_Machine\Software\ODBC\ODBC.INI\ and you can make
the same change. If you use a File DSN, those files are usually stored in
\Program Files\Common Files\ODBC\Data Sources\. They are just Text files so
you'd need to open each one and change the Server line.

If you know the names of the DSN ahead of time, it's much easier to write
some simple VBA to make the changes. If you need to go through all the DSNs,
it is a little more complicated but certainly possible.

I have some code somewhere for going through the registry to find specific
Keys if you need it.

Hope that helps.

James Barash

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Paul Hartland
(ISHARP)
Sent: Thursday, January 05, 2006 8:21 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] OT - Changing a DSN Connection

To all,

We are having a new server (very soon) and changing the name to something
like AL-MASTER from AL-ORR the thing is I have a lot of Excel management
reports which use various DSN's pointing to AL-ORR, is there something I
could write in Access or VB that a a click of a button will find these DSN's
and replace the server name ?

Any help on this would be greatly appreciated.

Thanks in advance 

Paul Hartland

P.S. Happy New Year to all list members, don't know what I would do without
it sometimes

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



From garykjos at gmail.com  Thu Jan  5 09:32:35 2006
From: garykjos at gmail.com (Gary Kjos)
Date: Thu, 5 Jan 2006 09:32:35 -0600
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <1395319198.20060104232138@mchsi.com>
References: <000801c61156$d2e301f0$6701a8c0@HPLaptop>
	<000901c6119c$356527f0$6101a8c0@JISREGISTRATION.local>
	<43BC8209.3010805@cyberone.com.au>
	<1395319198.20060104232138@mchsi.com>
Message-ID: <aea6c4950601050732q405596f4xa2eb48c780eedcfa@mail.gmail.com>

Congratulations Ron!  And Mrs Ron too!

Don't worry too much about being an older parent. It will help you to
stay young!

--
Gary Kjos
garykjos at gmail.com


From cfoust at infostatsystems.com  Thu Jan  5 10:06:19 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 5 Jan 2006 08:06:19 -0800
Subject: [AccessD] OT: We're Expecting!
Message-ID: <F55048AF7E974F429BB24597D7355EEABED9@INFOSERVER04.infostat.local>

Congratulations and don't worry, it's just like moving from Access VBA
to .Net programming! LOL

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
Sent: Wednesday, January 04, 2006 9:22 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT: We're Expecting!


I know I'm an infrequent contributor here that usually asks for more
help than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first for
both of us.

I'm a little old to be a first time daddy, and the prospect worries me
in all sorts of ways -- but at the same time I've never been happier
:)

Ron



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


From bheid at appdevgrp.com  Thu Jan  5 10:08:33 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 5 Jan 2006 11:08:33 -0500
Subject: [AccessD] Weird report problem (Cross posted to Access-L)...
Message-ID: <916187228923D311A6FE00A0CC3FAA30ABF59C@ADGSERVER>

Hey,

I have a report with two sub-reports on it.  During the latest revision of
the report, I widened some fields and moved around some other fields on the
two sub-reports.

Now, when I preview (or print it), it says there are 46 pages (1 of 46).
But when you go to the end of the report, there are only 11 pages and the
page counter says 11 of 46.  

If I delete either of the sub-reports, it appears to be paging correctly.
It is only when both of them are there that this is happening.

If I run each sub-report separately, it looks like all of the data is there.

The main report is grouped by project and the detail section contains the
two sub-reports.  What is weird is that for each project, it prints two
pages and then a project totals page.  It does this for all of the projects
except for one that only has one record in it.  For the 1st project there
should be about 6-8 pages.  Also, in this database, there is only one record
returned for each sub-report 1.  The 2nd sub-report is the one that is not
displaying all of it's records.

Anyone have any clues as to what may be going on?

Thanks,
Bobby



From cfoust at infostatsystems.com  Thu Jan  5 10:13:46 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 5 Jan 2006 08:13:46 -0800
Subject: [AccessD] Informix, Boolean
Message-ID: <F55048AF7E974F429BB24597D7355EEABEDC@INFOSERVER04.infostat.local>

Gustav,

I don't know Informix, but the code that works suggests you have to
explicitly coerce the field, and particularly null values, from an
Access yes/no field to a boolean/bit value to make the comparison
succeed.  

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 05, 2006 4:03 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Informix, Boolean


Hi all

Didn't some of you have experience with Informix?

Why should you not be able to filter on a Boolean field in a linked
table in Access? Like:

  where field_boolean <> 0

which returns no records while this does:

  where CBool(Nz(field_boolean)) <> 0

Also

  where field_boolean <> "0"

gives a type mismatch error, thus field is numeric.

If no where clause is present, records with values of 0 and -1 are
returned ...

/gustav

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


From starkey at wanadoo.nl  Thu Jan  5 10:17:06 2006
From: starkey at wanadoo.nl (StaRKeY)
Date: Thu, 5 Jan 2006 17:17:06 +0100
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABED9@INFOSERVER04.infostat.local>
Message-ID: <000301c61213$78e770b0$0400a8c0@PC1>

Congrats Ron! 
It's nice the unborn is going to have an experienced person for a father and
as for the rest... I have to agree with Charlotte;)


Regards,
Eric Starkenburg


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Thursday, January 05, 2006 5:06 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT: We're Expecting!

Congratulations and don't worry, it's just like moving from Access VBA
to .Net programming! LOL

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
Sent: Wednesday, January 04, 2006 9:22 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT: We're Expecting!


I know I'm an infrequent contributor here that usually asks for more
help than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first for
both of us.

I'm a little old to be a first time daddy, and the prospect worries me
in all sorts of ways -- but at the same time I've never been happier
:)

Ron



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



---
avast! Antivirus: Uitgaande bericht is niet besmet.
Virus Gegevensbestand (VPS): 0601-2, 05-01-2006
Getest op: 05-01-2006 17:17:07 uur
avast! auteursrecht (c) 1988-2005 ALWIL Software.
http://www.avast.com





From jimdettman at earthlink.net  Thu Jan  5 10:16:23 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Thu, 5 Jan 2006 11:16:23 -0500
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <1395319198.20060104232138@mchsi.com>
Message-ID: <NDEALJOEGMMPCDKIFGNFGECMHNAA.jimdettman@earthlink.net>

Hey Ron,

  Congrats!

<<My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first
for both of us.>>

  What a way to kick off the new year!

Jim.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Ron Allen
Sent: Thursday, January 05, 2006 12:22 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT: We're Expecting!


I know I'm an infrequent contributor here that usually asks for more
help than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first
for both of us.

I'm a little old to be a first time daddy, and the prospect worries me
in all sorts of ways -- but at the same time I've never been happier
:)

Ron



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




From jwcolby at ColbyConsulting.com  Thu Jan  5 10:22:12 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 11:22:12 -0500
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABED9@INFOSERVER04.infostat.local>
Message-ID: <002201c61214$2f5e6880$647aa8c0@ColbyM6805>

>it's just like moving from Access VBA to .Net programming!

ROTFLMAO! Except the results will be with you for at LEAST 3 times as long!


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Thursday, January 05, 2006 11:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT: We're Expecting!

Congratulations and don't worry, it's just like moving from Access VBA to
.Net programming! LOL

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
Sent: Wednesday, January 04, 2006 9:22 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT: We're Expecting!


I know I'm an infrequent contributor here that usually asks for more help
than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a baby.
This was confirmed by the doctor this morning. It's the first for both of
us.

I'm a little old to be a first time daddy, and the prospect worries me in
all sorts of ways -- but at the same time I've never been happier
:)

Ron



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



From Gustav at cactus.dk  Thu Jan  5 10:33:44 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 05 Jan 2006 17:33:44 +0100
Subject: [AccessD] Informix, Boolean
Message-ID: <s3bd5894.012@cactus.dk>

Hi Charlotte

Yes, but why should that be needed?

Note, the query runs in Access using the attached file from Informix. 
According to the docs, an Informix Boolean field may contain Nulls but this table should not carry any Nulls only True or False.

If you run similar code in Informix as simple as:

  where field_boolean

it works. (=> only records with True values are returned).
Neither does this exact syntax work in Access.

/gustav

>>> cfoust at infostatsystems.com 05-01-2006 17:13 >>>
Gustav,

I don't know Informix, but the code that works suggests you have to
explicitly coerce the field, and particularly null values, from an
Access yes/no field to a boolean/bit value to make the comparison
succeed.  

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 05, 2006 4:03 AM
To: accessd at databaseadvisors.com 
Subject: [AccessD] Informix, Boolean


Hi all

Didn't some of you have experience with Informix?

Why should you not be able to filter on a Boolean field in a linked
table in Access? Like:

  where field_boolean <> 0

which returns no records while this does:

  where CBool(Nz(field_boolean)) <> 0

Also

  where field_boolean <> "0"

gives a type mismatch error, thus field is numeric.

If no where clause is present, records with values of 0 and -1 are
returned ...

/gustav




From jmhecht at earthlink.net  Thu Jan  5 10:37:57 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 5 Jan 2006 08:37:57 -0800
Subject: [AccessD] Check Box Back Color
In-Reply-To: <s3bd245c.098@cactus.dk>
Message-ID: <001d01c61216$6329c4a0$6701a8c0@HPLaptop>

I agree.  With my limited coding skills and this db doing to
many new things for me to any braver than I need to be.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Gustav Brock
Sent: Thursday, January 05, 2006 4:51 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Check Box Back Color

Hi William

 Personally I believe there should be a very good reason for
using non-standard user interface controls.

/gustav





From jmhecht at earthlink.net  Thu Jan  5 10:40:57 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 5 Jan 2006 08:40:57 -0800
Subject: [AccessD] Tab Control & Sub Form
In-Reply-To: <200601051410.k05EAlV23559@databaseadvisors.com>
Message-ID: <001e01c61216$cddfbb10$6701a8c0@HPLaptop>

Arthur,

I like the look of the second one.

Joe Hecht
jmhecht at earthlink.net

A couple of options spring to mind:
a) in design mode, choose the one you like best then click
through all the
tabs and align their subforms to that top-left coordinate.
b) make the subforms' border transparent and flat so it is
not apparent that
a subform lives on each tab page.



From shamil at users.mns.ru  Thu Jan  5 10:52:10 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 5 Jan 2006 19:52:10 +0300
Subject: [AccessD] OT: Non-modal forms cannot be displayed in this host
	application from an ActiveX..
Message-ID: <002a01c61218$6460ac10$6501a8c0@fincomplex.spb.ru>

Hi All,

You may have met with the following message when opening from VB.NET a
non-modal VB6 form of an VB6 ActiveX DLL:

<+
'Non-modal forms cannot be displayed in this host application from an
ActiveX DLL, ActiveX Control, or Property page'
->

As far as I see from this article -
http://edndoc.esri.com/arcobjects/9.1/ArcGISDevHelp/TechnicalDocuments/Migrating/..%5CModelessVBDialogs.htm -
the above issue can be workarounded by using what they call Modeless frame.

Haven't you seen anywhere such a Modeless frame source code on C++?

Thank you,
Shamil



From Lambert.Heenan at AIG.com  Thu Jan  5 10:47:54 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Thu, 5 Jan 2006 10:47:54 -0600 
Subject: [AccessD] Check Box Back Color
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19DF5E@xlivmbx21.aig.com>

Personally I believe that the Access Checkbox control is a prime candidate
for being changed. It is way too small, even if you have good eyesight and
anything that can be done to improve its usability is worthwhile.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Thursday, January 05, 2006 11:38 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


I agree.  With my limited coding skills and this db doing to many new things
for me to any braver than I need to be.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 05, 2006 4:51 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Check Box Back Color

Hi William

 Personally I believe there should be a very good reason for using
non-standard user interface controls.

/gustav



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


From John.Clark at niagaracounty.com  Thu Jan  5 11:00:29 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Thu, 05 Jan 2006 12:00:29 -0500
Subject: [AccessD] Problem converting code
Message-ID: <s3bd0ac6.084@nebnov3.niagaracounty.com>

I figured it was something like this, but I added the reference to ADO
3.51, which is what is in A97, and made sure it was above ADO, but it
still gives me an error on that line, saying that there are "Two few
parameters. Expected 1." Now, when I first tried using this, I was
getting "can't find tblMain" which isn't even in the code
anywhere that I can find.

>>> wdhindman at bellsouth.net 1/5/2006 9:31 AM >>>
...and don't forget to set the DAO reference higher in the list than
the ADO 
reference ...or remove the ADO reference altogether.

William

----- Original Message ----- 
From: "Bryan Carbonnell" <carbonnb at gmail.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 9:21 AM
Subject: Re: [AccessD] Problem converting code


> On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:
>
>> The bigger problem though is that this was done in A97 and I am now
>> using A2K. I will be redoing this program in A2K and the program I
am
>> currently working on and trying to reuse the code in, is also A2K. I
am
>> getting errors on the line, "Set rst =
CodeDb.OpenRecordset(strSQL)"
>> that says too few parameters. I am either being totally dense (a
>> distinct possibility) or it is a DAO vs. ADO problem, which I can
not
>> get through my skull and always have problems with...making me
dense
>> again...hmmmm.
>
> It appears to be DAO code, so you will need to add a reference to
DAO.
> A2K defaults to ADO.
>
> --
> Bryan Carbonnell - carbonnb at gmail.com 
> Life's journey is not to arrive at the grave safely in a well
> preserved body, but rather to skid in sideways, totally worn out,
> shouting "What a great ride!"
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> 


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


From wdhindman at bellsouth.net  Thu Jan  5 11:32:39 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 5 Jan 2006 12:32:39 -0500
Subject: [AccessD] Problem converting code
References: <s3bd0ac6.084@nebnov3.niagaracounty.com>
Message-ID: <009101c6121e$06ede290$6101a8c0@JISREGISTRATION.local>

...I'd use DAO 3.6 instead of 3.51 in A2K and above ...as for the tblMain 
bit, have you decompiled the code as yet?
...if that doesn't do it and you don't have a decent search tool (Access is 
a bad joke as far as searches) like Speed Ferret then take a look at your 
form event properties and data sources ...I put as much there as I can to 
avoid form code modules when possible but pre A2K3 Access searches usually 
won't find them.

William

----- Original Message ----- 
From: "John Clark" <John.Clark at niagaracounty.com>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 12:00 PM
Subject: Re: [AccessD] Problem converting code


>I figured it was something like this, but I added the reference to ADO
> 3.51, which is what is in A97, and made sure it was above ADO, but it
> still gives me an error on that line, saying that there are "Two few
> parameters. Expected 1." Now, when I first tried using this, I was
> getting "can't find tblMain" which isn't even in the code
> anywhere that I can find.
>
>>>> wdhindman at bellsouth.net 1/5/2006 9:31 AM >>>
> ...and don't forget to set the DAO reference higher in the list than
> the ADO
> reference ...or remove the ADO reference altogether.
>
> William
>
> ----- Original Message ----- 
> From: "Bryan Carbonnell" <carbonnb at gmail.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 05, 2006 9:21 AM
> Subject: Re: [AccessD] Problem converting code
>
>
>> On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:
>>
>>> The bigger problem though is that this was done in A97 and I am now
>>> using A2K. I will be redoing this program in A2K and the program I
> am
>>> currently working on and trying to reuse the code in, is also A2K. I
> am
>>> getting errors on the line, "Set rst =
> CodeDb.OpenRecordset(strSQL)"
>>> that says too few parameters. I am either being totally dense (a
>>> distinct possibility) or it is a DAO vs. ADO problem, which I can
> not
>>> get through my skull and always have problems with...making me
> dense
>>> again...hmmmm.
>>
>> It appears to be DAO code, so you will need to add a reference to
> DAO.
>> A2K defaults to ADO.
>>
>> --
>> Bryan Carbonnell - carbonnb at gmail.com
>> Life's journey is not to arrive at the grave safely in a well
>> preserved body, but rather to skid in sideways, totally worn out,
>> shouting "What a great ride!"
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From cfoust at infostatsystems.com  Thu Jan  5 11:33:00 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 5 Jan 2006 09:33:00 -0800
Subject: [AccessD] Problem converting code
Message-ID: <F55048AF7E974F429BB24597D7355EEABEDE@INFOSERVER04.infostat.local>

You may need to specify the type of recordset, John.  If I remember
correctly, the default changed with A2k to something like ForwardOnly.
On the other hand, you haven't posted the SQL, so there may be a problem
in it.  Once thing to watch out for is that A97 accepted things like
Forms!MyForm![ControlName] as a parameter in a query and saved them that
way, while converting that query to a later version results in
[Forms!MyForm![ControlName]] in the parameter and a parameter error when
the query is accessed.  To fix it, you have to go through each query
parameters and correct the bracketing.  Brackets are required around
EACH element when you reference a form object.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Thursday, January 05, 2006 9:00 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Problem converting code


I figured it was something like this, but I added the reference to ADO
3.51, which is what is in A97, and made sure it was above ADO, but it
still gives me an error on that line, saying that there are "Two few
parameters. Expected 1." Now, when I first tried using this, I was
getting "can't find tblMain" which isn't even in the code anywhere that
I can find.

>>> wdhindman at bellsouth.net 1/5/2006 9:31 AM >>>
...and don't forget to set the DAO reference higher in the list than the
ADO 
reference ...or remove the ADO reference altogether.

William

----- Original Message ----- 
From: "Bryan Carbonnell" <carbonnb at gmail.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 9:21 AM
Subject: Re: [AccessD] Problem converting code


> On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:
>
>> The bigger problem though is that this was done in A97 and I am now 
>> using A2K. I will be redoing this program in A2K and the program I
am
>> currently working on and trying to reuse the code in, is also A2K. I
am
>> getting errors on the line, "Set rst =
CodeDb.OpenRecordset(strSQL)"
>> that says too few parameters. I am either being totally dense (a 
>> distinct possibility) or it is a DAO vs. ADO problem, which I can
not
>> get through my skull and always have problems with...making me
dense
>> again...hmmmm.
>
> It appears to be DAO code, so you will need to add a reference to
DAO.
> A2K defaults to ADO.
>
>


From Jim.Hale at FleetPride.com  Thu Jan  5 10:55:41 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Thu, 5 Jan 2006 10:55:41 -0600 
Subject: [AccessD] OT: We're Expecting!
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD93E@corp-es01.fleetpride.com>

LOL. And when they turn 16 it will be like trying to program the
HAL9000...watch out for serious bugs in the program.
Congrats
Jim Hale

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Thursday, January 05, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT: We're Expecting!


Congratulations and don't worry, it's just like moving from Access VBA
to .Net programming! LOL

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
Sent: Wednesday, January 04, 2006 9:22 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT: We're Expecting!


I know I'm an infrequent contributor here that usually asks for more
help than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first for
both of us.

I'm a little old to be a first time daddy, and the prospect worries me
in all sorts of ways -- but at the same time I've never been happier
:)

Ron



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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From john at winhaven.net  Thu Jan  5 11:40:11 2006
From: john at winhaven.net (John Bartow)
Date: Thu, 5 Jan 2006 11:40:11 -0600
Subject: [AccessD] Informix, Boolean
In-Reply-To: <s3bd1923.095@cactus.dk>
Message-ID: <006701c6121f$1493bb30$6f01a8c0@ScuzzPaq>

Hi Gustav,
When I used Informix (a long time ago) it did not have a boolean field type.
The data type "Byte" was actually binary as in BLOB data.
The data type "Numeric" was a synonym for "Decimal" defined as "a number
with defineable scale and precision" which IIRC would correlate to a Single.
The data type "Float" was double precision - IIRC the same as "Double".

I have some old informix manuals in pdf form if you'd like them.

John B.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 05, 2006 6:03 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Informix, Boolean

Hi all

Didn't some of you have experience with Informix?

Why should you not be able to filter on a Boolean field in a linked table in
Access? Like:

  where field_boolean <> 0

which returns no records while this does:

  where CBool(Nz(field_boolean)) <> 0

Also

  where field_boolean <> "0"

gives a type mismatch error, thus field is numeric.

If no where clause is present, records with values of 0 and -1 are returned
...

/gustav

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



From John.Clark at niagaracounty.com  Thu Jan  5 11:54:54 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Thu, 05 Jan 2006 12:54:54 -0500
Subject: [AccessD] OT: We're Expecting!
Message-ID: <s3bd1747.094@nebnov3.niagaracounty.com>

>From my experience, it seems that those that worry are usually the ones
who turn out to be decent parents...they strive to be such and that is
the basis of the worry. If you didn't worry, you wouldn't care, and
that would be a problem. Congrats and good luck!

John W Clark
Another who gets far more help than I can give!

>>> chizotz at mchsi.com 1/5/2006 12:21 AM >>>
I know I'm an infrequent contributor here that usually asks for more
help than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first
for both of us.

I'm a little old to be a first time daddy, and the prospect worries me
in all sorts of ways -- but at the same time I've never been happier
:)

Ron



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


From Gustav at cactus.dk  Thu Jan  5 12:05:11 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 05 Jan 2006 19:05:11 +0100
Subject: [AccessD] Informix, Boolean
Message-ID: <s3bd6e0d.017@cactus.dk>

Hi John

Thanks, that was along one my thoughts - is Boolean a Boolean?
But if you study the linked table in design view, it tells type Yes/No for that field.

I wouldn't need the manuals. IBM has done a nice work putting up all official info on the web - but I guess simply not that many Informixolics use Access for access ...

/gustav

>>> john at winhaven.net 05-01-2006 18:40 >>>
Hi Gustav,
When I used Informix (a long time ago) it did not have a boolean field type.
The data type "Byte" was actually binary as in BLOB data.
The data type "Numeric" was a synonym for "Decimal" defined as "a number
with defineable scale and precision" which IIRC would correlate to a Single.
The data type "Float" was double precision - IIRC the same as "Double".

I have some old informix manuals in pdf form if you'd like them.

John B.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 05, 2006 6:03 AM
To: accessd at databaseadvisors.com 
Subject: [AccessD] Informix, Boolean

Hi all

Didn't some of you have experience with Informix?

Why should you not be able to filter on a Boolean field in a linked table in
Access? Like:

  where field_boolean <> 0

which returns no records while this does:

  where CBool(Nz(field_boolean)) <> 0

Also

  where field_boolean <> "0"

gives a type mismatch error, thus field is numeric.

If no where clause is present, records with values of 0 and -1 are returned
...

/gustav




From john at winhaven.net  Thu Jan  5 12:19:28 2006
From: john at winhaven.net (John Bartow)
Date: Thu, 5 Jan 2006 12:19:28 -0600
Subject: [AccessD] Informix, Boolean
In-Reply-To: <s3bd6e0d.017@cactus.dk>
Message-ID: <000e01c61224$91ec8f80$7001a8c0@ScuzzPaq>

Gustav,
It could well be that Informix now supports a Boolean data type - many
things have happened since I used it, for instance IBM bought the company.
When I used it Informix was one of the "big dogs" in the RDBMS field.

I'm not sure but I think you're saying the Informix data is a linked table
in Access, is this correct? If so you may need to check the data source and
see how the field is typed there and adjust appropriately even though Access
says its Yes/No.

John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock

Hi John

Thanks, that was along one my thoughts - is Boolean a Boolean?
But if you study the linked table in design view, it tells type Yes/No for
that field.

I wouldn't need the manuals. IBM has done a nice work putting up all
official info on the web - but I guess simply not that many Informixolics
use Access for access ...

/gustav




From John.Clark at niagaracounty.com  Thu Jan  5 12:48:16 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Thu, 05 Jan 2006 13:48:16 -0500
Subject: [AccessD] Problem converting code
Message-ID: <s3bd2415.075@nebnov3.niagaracounty.com>

I tried this first, thinking, "newer may be better," but I got the
same thing, so I set it to exactly what was in my A97.

>>> wdhindman at bellsouth.net 1/5/2006 12:32 PM >>>
...I'd use DAO 3.6 instead of 3.51 in A2K and above ...as for the
tblMain 
bit, have you decompiled the code as yet?
...if that doesn't do it and you don't have a decent search tool
(Access is 
a bad joke as far as searches) like Speed Ferret then take a look at
your 
form event properties and data sources ...I put as much there as I can
to 
avoid form code modules when possible but pre A2K3 Access searches
usually 
won't find them.

William

----- Original Message ----- 
From: "John Clark" <John.Clark at niagaracounty.com>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 12:00 PM
Subject: Re: [AccessD] Problem converting code


>I figured it was something like this, but I added the reference to
ADO
> 3.51, which is what is in A97, and made sure it was above ADO, but
it
> still gives me an error on that line, saying that there are "Two few
> parameters. Expected 1." Now, when I first tried using this, I was
> getting "can't find tblMain" which isn't even in the code
> anywhere that I can find.
>
>>>> wdhindman at bellsouth.net 1/5/2006 9:31 AM >>>
> ...and don't forget to set the DAO reference higher in the list than
> the ADO
> reference ...or remove the ADO reference altogether.
>
> William
>
> ----- Original Message ----- 
> From: "Bryan Carbonnell" <carbonnb at gmail.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 05, 2006 9:21 AM
> Subject: Re: [AccessD] Problem converting code
>
>
>> On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:
>>
>>> The bigger problem though is that this was done in A97 and I am
now
>>> using A2K. I will be redoing this program in A2K and the program I
> am
>>> currently working on and trying to reuse the code in, is also A2K.
I
> am
>>> getting errors on the line, "Set rst =
> CodeDb.OpenRecordset(strSQL)"
>>> that says too few parameters. I am either being totally dense (a
>>> distinct possibility) or it is a DAO vs. ADO problem, which I can
> not
>>> get through my skull and always have problems with...making me
> dense
>>> again...hmmmm.
>>
>> It appears to be DAO code, so you will need to add a reference to
> DAO.
>> A2K defaults to ADO.
>>
>> --
>> Bryan Carbonnell - carbonnb at gmail.com 
>> Life's journey is not to arrive at the grave safely in a well
>> preserved body, but rather to skid in sideways, totally worn out,
>> shouting "What a great ride!"
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com 
>> http://databaseadvisors.com/mailman/listinfo/accessd 
>> Website: http://www.databaseadvisors.com 
>>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> 


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


From cfoust at infostatsystems.com  Thu Jan  5 13:00:02 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 5 Jan 2006 11:00:02 -0800
Subject: [AccessD] Problem converting code
Message-ID: <F55048AF7E974F429BB24597D7355EEABEE0@INFOSERVER04.infostat.local>

DAO 3.51 really doesn't work with A2K and later because they are built
on DAO 3.6.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Thursday, January 05, 2006 10:48 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Problem converting code


I tried this first, thinking, "newer may be better," but I got the same
thing, so I set it to exactly what was in my A97.

>>> wdhindman at bellsouth.net 1/5/2006 12:32 PM >>>
...I'd use DAO 3.6 instead of 3.51 in A2K and above ...as for the
tblMain 
bit, have you decompiled the code as yet?
...if that doesn't do it and you don't have a decent search tool (Access
is 
a bad joke as far as searches) like Speed Ferret then take a look at
your 
form event properties and data sources ...I put as much there as I can
to 
avoid form code modules when possible but pre A2K3 Access searches
usually 
won't find them.

William

----- Original Message ----- 
From: "John Clark" <John.Clark at niagaracounty.com>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 12:00 PM
Subject: Re: [AccessD] Problem converting code


>I figured it was something like this, but I added the reference to
ADO
> 3.51, which is what is in A97, and made sure it was above ADO, but
it
> still gives me an error on that line, saying that there are "Two few 
> parameters. Expected 1." Now, when I first tried using this, I was 
> getting "can't find tblMain" which isn't even in the code anywhere 
> that I can find.
>
>>>> wdhindman at bellsouth.net 1/5/2006 9:31 AM >>>
> ...and don't forget to set the DAO reference higher in the list than 
> the ADO reference ...or remove the ADO reference altogether.
>
> William
>
> ----- Original Message -----
> From: "Bryan Carbonnell" <carbonnb at gmail.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 05, 2006 9:21 AM
> Subject: Re: [AccessD] Problem converting code
>
>
>> On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:
>>
>>> The bigger problem though is that this was done in A97 and I am
now
>>> using A2K. I will be redoing this program in A2K and the program I
> am
>>> currently working on and trying to reuse the code in, is also A2K.
I
> am
>>> getting errors on the line, "Set rst =
> CodeDb.OpenRecordset(strSQL)"
>>> that says too few parameters. I am either being totally dense (a 
>>> distinct possibility) or it is a DAO vs. ADO problem, which I can
> not
>>> get through my skull and always have problems with...making me
> dense
>>> again...hmmmm.
>>
>> It appears to be DAO code, so you will need to add a reference to
> DAO.
>> A2K defaults to ADO.
>>
>> --
>> Bryan Carbonnell - carbonnb at gmail.com
>> Life's journey is not to arrive at the grave safely in a well
>> preserved body, but rather to skid in sideways, totally worn out,
>> shouting "What a great ride!"
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com 
>> http://databaseadvisors.com/mailman/listinfo/accessd 
>> Website: http://www.databaseadvisors.com 
>>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> 


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


From shamil at users.mns.ru  Thu Jan  5 13:13:55 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 5 Jan 2006 22:13:55 +0300
Subject: [AccessD] OT: Non-modal forms cannot be displayed in this
	hostapplication from an ActiveX..
References: <002a01c61218$6460ac10$6501a8c0@fincomplex.spb.ru>
Message-ID: <00ba01c6122c$34f01c90$6501a8c0@fincomplex.spb.ru>

Simple workaround found here:

http://www.desaware.com/support/faq/spyworks/swfaqthreading.aspx

DESAWARE rules!

Shamil

----- Original Message ----- 
From: "Shamil Salakhetdinov" <shamil at users.mns.ru>
To: "!DBA-MAIN" <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 7:52 PM
Subject: [AccessD] OT: Non-modal forms cannot be displayed in this
hostapplication from an ActiveX..


> Hi All,
>
> You may have met with the following message when opening from VB.NET a
> non-modal VB6 form of an VB6 ActiveX DLL:
>
> <+
> 'Non-modal forms cannot be displayed in this host application from an
> ActiveX DLL, ActiveX Control, or Property page'
> ->
>
> As far as I see from this article -
>
http://edndoc.esri.com/arcobjects/9.1/ArcGISDevHelp/TechnicalDocuments/Migrating/..%5CModelessVBDialogs.htm -
> the above issue can be workarounded by using what they call Modeless
frame.
>
> Haven't you seen anywhere such a Modeless frame source code on C++?
>
> Thank you,
> Shamil
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From garykjos at gmail.com  Thu Jan  5 13:16:35 2006
From: garykjos at gmail.com (Gary Kjos)
Date: Thu, 5 Jan 2006 13:16:35 -0600
Subject: [AccessD] Problem converting code
In-Reply-To: <s3bd2415.075@nebnov3.niagaracounty.com>
References: <s3bd2415.075@nebnov3.niagaracounty.com>
Message-ID: <aea6c4950601051116v1a127561yc9d006f06ce9c4e@mail.gmail.com>

Have you tried to explicitly declare your database and recordset as DAO ??

    Dim dbs As DAO.Database, rst As DAO.Recordset


--
Gary Kjos
garykjos at gmail.com


From John.Clark at niagaracounty.com  Thu Jan  5 13:18:58 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Thu, 05 Jan 2006 14:18:58 -0500
Subject: [AccessD] Problem converting code
Message-ID: <s3bd2b01.052@nebnov3.niagaracounty.com>

I think the decompile did it William. I just ran it and the original
seems to be working. I've still got some polishing, but it is looking
good. I'll let y'all know how I make out.

>>> wdhindman at bellsouth.net 1/5/2006 12:32 PM >>>
...I'd use DAO 3.6 instead of 3.51 in A2K and above ...as for the
tblMain 
bit, have you decompiled the code as yet?
...if that doesn't do it and you don't have a decent search tool
(Access is 
a bad joke as far as searches) like Speed Ferret then take a look at
your 
form event properties and data sources ...I put as much there as I can
to 
avoid form code modules when possible but pre A2K3 Access searches
usually 
won't find them.

William

----- Original Message ----- 
From: "John Clark" <John.Clark at niagaracounty.com>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 12:00 PM
Subject: Re: [AccessD] Problem converting code


>I figured it was something like this, but I added the reference to
ADO
> 3.51, which is what is in A97, and made sure it was above ADO, but
it
> still gives me an error on that line, saying that there are "Two few
> parameters. Expected 1." Now, when I first tried using this, I was
> getting "can't find tblMain" which isn't even in the code
> anywhere that I can find.
>
>>>> wdhindman at bellsouth.net 1/5/2006 9:31 AM >>>
> ...and don't forget to set the DAO reference higher in the list than
> the ADO
> reference ...or remove the ADO reference altogether.
>
> William
>
> ----- Original Message ----- 
> From: "Bryan Carbonnell" <carbonnb at gmail.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 05, 2006 9:21 AM
> Subject: Re: [AccessD] Problem converting code
>
>
>> On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:
>>
>>> The bigger problem though is that this was done in A97 and I am
now
>>> using A2K. I will be redoing this program in A2K and the program I
> am
>>> currently working on and trying to reuse the code in, is also A2K.
I
> am
>>> getting errors on the line, "Set rst =
> CodeDb.OpenRecordset(strSQL)"
>>> that says too few parameters. I am either being totally dense (a
>>> distinct possibility) or it is a DAO vs. ADO problem, which I can
> not
>>> get through my skull and always have problems with...making me
> dense
>>> again...hmmmm.
>>
>> It appears to be DAO code, so you will need to add a reference to
> DAO.
>> A2K defaults to ADO.
>>
>> --
>> Bryan Carbonnell - carbonnb at gmail.com 
>> Life's journey is not to arrive at the grave safely in a well
>> preserved body, but rather to skid in sideways, totally worn out,
>> shouting "What a great ride!"
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com 
>> http://databaseadvisors.com/mailman/listinfo/accessd 
>> Website: http://www.databaseadvisors.com 
>>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> 


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


From jwcolby at ColbyConsulting.com  Thu Jan  5 14:01:20 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 15:01:20 -0500
Subject: [AccessD] Himachi
In-Reply-To: <000401c611ec$eb6fbb00$2e01a8c0@fredxp>
Message-ID: <003201c61232$cc5adf10$647aa8c0@ColbyM6805>

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper



From Lambert.Heenan at AIG.com  Thu Jan  5 14:18:02 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Thu, 5 Jan 2006 15:18:02 -0500 
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002 (aka
	Access XP)
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E0C3@xlivmbx21.aig.com>

I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not successful
because they would create duplicate values in the index, primary key, or
relationship.  Change the data in the field or fields that contain duplicate
data, remove the index, or redefine the index to permit duplicate entries
and try again."

This was in a block of code that was simply appending new records to a table
that has a standard,  AutoNumber field called "ID". (This code has been in
use for the past three years) No other field in the table has a unique
index. The code was like this...

     With RS_Premium_Stream
        For n = LBound(mod_tPremiumArray) To UBound(mod_tPremiumArray)
            tPremiumInfo = mod_tPremiumArray(n)
            .AddNew
            !Policy_ID = tPremiumInfo.nPolicy_ID
            !nPolicyYear = tPremiumInfo.nPolicyYear
            !cPremiumProjection = tPremiumInfo.cPremiumProjection
            !cAnnualLoanInterest = tPremiumInfo.cAnnualLoanInterest
             !dDueDate = tPremiumInfo.dDueDate
            !bPaid = tPremiumInfo.bPaidStatus
            !nAge = tPremiumInfo.nAge
            !dDateCreated = dDataFileLoadDate
            .Update: SysCmd acSysCmdUpdateMeter, n
        Next n

... and the error happened when the .Update line executed. Stepping though
the code I discovered that just before the first execution of the .AddNew
line the value of RS_Premium_Stream!ID was the ID value of the "first
record" in the table, as you might expect, but after executing .AddNew the
value of ID was now that of an *existing* record a few hundred rows into the
table!!! This of course cause the duplicate error when the Update method was
called.

I tried Compact (from the command line), Compact and Repair from the Access
menus, but those did not fix the trouble. Then I tried running a Make Table
query to create a copy of the data (retaining the values of the ID field) in
a new table, but the new table exhibited the same error. JetComp didn't make
any difference either!!!!

The cure? Make a new empty table with the same structure. Then run an append
query to append all existing records to the new table - this preserves the
values of the autonumber field in the existing table - and then delete the
old table and rename the new one. You'd think that simply running a Make
Table query would have the same effect, but no, that just gives you a copy
of the table that exhibits the same problem.

What a pain!

Lambert 


From jwcolby at ColbyConsulting.com  Thu Jan  5 14:32:17 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 15:32:17 -0500
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002
	(akaAccess XP)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E0C3@xlivmbx21.aig.com>
Message-ID: <003301c61237$1f9d1f90$647aa8c0@ColbyM6805>

Lambert

I make an append query where I get the max() of the ID field, add 1, alias
it and append that back in to the table as a new record.  This adds a bogus
record to the end of the table which I then delete back out.  The autonumber
is now reset and off I go.  The only issue is if there are other fields that
have constraints then it becomes a bit more difficult discovering and
building such values. 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Thursday, January 05, 2006 3:18 PM
To: 'Access-D Email (accessd at databaseadvisors.com)'; 'ACCESS-L Email
(ACCESS-L at PEACH.EASE.LSOFT.COM)'
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002 (akaAccess
XP)

I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not successful
because they would create duplicate values in the index, primary key, or
relationship.  Change the data in the field or fields that contain duplicate
data, remove the index, or redefine the index to permit duplicate entries
and try again."

This was in a block of code that was simply appending new records to a table
that has a standard,  AutoNumber field called "ID". (This code has been in
use for the past three years) No other field in the table has a unique
index. The code was like this...

     With RS_Premium_Stream
        For n = LBound(mod_tPremiumArray) To UBound(mod_tPremiumArray)
            tPremiumInfo = mod_tPremiumArray(n)
            .AddNew
            !Policy_ID = tPremiumInfo.nPolicy_ID
            !nPolicyYear = tPremiumInfo.nPolicyYear
            !cPremiumProjection = tPremiumInfo.cPremiumProjection
            !cAnnualLoanInterest = tPremiumInfo.cAnnualLoanInterest
             !dDueDate = tPremiumInfo.dDueDate
            !bPaid = tPremiumInfo.bPaidStatus
            !nAge = tPremiumInfo.nAge
            !dDateCreated = dDataFileLoadDate
            .Update: SysCmd acSysCmdUpdateMeter, n
        Next n

... and the error happened when the .Update line executed. Stepping though
the code I discovered that just before the first execution of the .AddNew
line the value of RS_Premium_Stream!ID was the ID value of the "first
record" in the table, as you might expect, but after executing .AddNew the
value of ID was now that of an *existing* record a few hundred rows into the
table!!! This of course cause the duplicate error when the Update method was
called.

I tried Compact (from the command line), Compact and Repair from the Access
menus, but those did not fix the trouble. Then I tried running a Make Table
query to create a copy of the data (retaining the values of the ID field) in
a new table, but the new table exhibited the same error. JetComp didn't make
any difference either!!!!

The cure? Make a new empty table with the same structure. Then run an append
query to append all existing records to the new table - this preserves the
values of the autonumber field in the existing table - and then delete the
old table and rename the new one. You'd think that simply running a Make
Table query would have the same effect, but no, that just gives you a copy
of the table that exhibits the same problem.

What a pain!

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



From RRANTHON at sentara.com  Thu Jan  5 14:38:01 2006
From: RRANTHON at sentara.com (Randall R Anthony)
Date: Thu, 05 Jan 2006 15:38:01 -0500
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002	(aka
	Access XP)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E0C3@xlivmbx21.aig.com>
References: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E0C3@xlivmbx21.aig.com>
Message-ID: <200601052038.k05KcSV06096@databaseadvisors.com>

I had a similar problem, however it was dumb developer related.  I had
the autonumber set to integer, which ran out at 32 thousand whatever. 
Changing the field size to Long Integer fixed it.

>>> Lambert.Heenan at aig.com 01/05/06 3:18 PM >>>
I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not
successful
because they would create duplicate values in the index, primary key,
or
relationship.  Change the data in the field or fields that contain
duplicate
data, remove the index, or redefine the index to permit duplicate
entries
and try again."

This was in a block of code that was simply appending new records to a
table
that has a standard,  AutoNumber field called "ID". (This code has been
in
use for the past three years) No other field in the table has a unique
index. The code was like this...

     With RS_Premium_Stream
        For n = LBound(mod_tPremiumArray) To UBound(mod_tPremiumArray)
            tPremiumInfo = mod_tPremiumArray(n)
            .AddNew
            !Policy_ID = tPremiumInfo.nPolicy_ID
            !nPolicyYear = tPremiumInfo.nPolicyYear
            !cPremiumProjection = tPremiumInfo.cPremiumProjection
            !cAnnualLoanInterest = tPremiumInfo.cAnnualLoanInterest
             !dDueDate = tPremiumInfo.dDueDate
            !bPaid = tPremiumInfo.bPaidStatus
            !nAge = tPremiumInfo.nAge
            !dDateCreated = dDataFileLoadDate
            .Update: SysCmd acSysCmdUpdateMeter, n
        Next n

... and the error happened when the .Update line executed. Stepping
though
the code I discovered that just before the first execution of the
.AddNew
line the value of RS_Premium_Stream!ID was the ID value of the "first
record" in the table, as you might expect, but after executing .AddNew
the
value of ID was now that of an *existing* record a few hundred rows
into the
table!!! This of course cause the duplicate error when the Update
method was
called.

I tried Compact (from the command line), Compact and Repair from the
Access
menus, but those did not fix the trouble. Then I tried running a Make
Table
query to create a copy of the data (retaining the values of the ID
field) in
a new table, but the new table exhibited the same error. JetComp didn't
make
any difference either!!!!

The cure? Make a new empty table with the same structure. Then run an
append
query to append all existing records to the new table - this preserves
the
values of the autonumber field in the existing table - and then delete
the
old table and rename the new one. You'd think that simply running a
Make
Table query would have the same effect, but no, that just gives you a
copy
of the table that exhibits the same problem.

What a pain!

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


From jimdettman at earthlink.net  Thu Jan  5 14:40:24 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Thu, 5 Jan 2006 15:40:24 -0500
Subject: [AccessD] More Strange Autonumber Behavior - Access
	2002(akaAccess XP)
In-Reply-To: <003301c61237$1f9d1f90$647aa8c0@ColbyM6805>
Message-ID: <NDEALJOEGMMPCDKIFGNFMEFAHNAA.jimdettman@earthlink.net>


  Man if you guys only used natural keys....


  Sorry, couldn't resist.

Jim.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
Sent: Thursday, January 05, 2006 3:32 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access
2002(akaAccess XP)


Lambert

I make an append query where I get the max() of the ID field, add 1, alias
it and append that back in to the table as a new record.  This adds a bogus
record to the end of the table which I then delete back out.  The autonumber
is now reset and off I go.  The only issue is if there are other fields that
have constraints then it becomes a bit more difficult discovering and
building such values.


John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Thursday, January 05, 2006 3:18 PM
To: 'Access-D Email (accessd at databaseadvisors.com)'; 'ACCESS-L Email
(ACCESS-L at PEACH.EASE.LSOFT.COM)'
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002 (akaAccess
XP)

I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not successful
because they would create duplicate values in the index, primary key, or
relationship.  Change the data in the field or fields that contain duplicate
data, remove the index, or redefine the index to permit duplicate entries
and try again."

This was in a block of code that was simply appending new records to a table
that has a standard,  AutoNumber field called "ID". (This code has been in
use for the past three years) No other field in the table has a unique
index. The code was like this...

     With RS_Premium_Stream
        For n = LBound(mod_tPremiumArray) To UBound(mod_tPremiumArray)
            tPremiumInfo = mod_tPremiumArray(n)
            .AddNew
            !Policy_ID = tPremiumInfo.nPolicy_ID
            !nPolicyYear = tPremiumInfo.nPolicyYear
            !cPremiumProjection = tPremiumInfo.cPremiumProjection
            !cAnnualLoanInterest = tPremiumInfo.cAnnualLoanInterest
             !dDueDate = tPremiumInfo.dDueDate
            !bPaid = tPremiumInfo.bPaidStatus
            !nAge = tPremiumInfo.nAge
            !dDateCreated = dDataFileLoadDate
            .Update: SysCmd acSysCmdUpdateMeter, n
        Next n

... and the error happened when the .Update line executed. Stepping though
the code I discovered that just before the first execution of the .AddNew
line the value of RS_Premium_Stream!ID was the ID value of the "first
record" in the table, as you might expect, but after executing .AddNew the
value of ID was now that of an *existing* record a few hundred rows into the
table!!! This of course cause the duplicate error when the Update method was
called.

I tried Compact (from the command line), Compact and Repair from the Access
menus, but those did not fix the trouble. Then I tried running a Make Table
query to create a copy of the data (retaining the values of the ID field) in
a new table, but the new table exhibited the same error. JetComp didn't make
any difference either!!!!

The cure? Make a new empty table with the same structure. Then run an append
query to append all existing records to the new table - this preserves the
values of the autonumber field in the existing table - and then delete the
old table and rename the new one. You'd think that simply running a Make
Table query would have the same effect, but no, that just gives you a copy
of the table that exhibits the same problem.

What a pain!

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

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




From jimdettman at earthlink.net  Thu Jan  5 14:43:22 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Thu, 5 Jan 2006 15:43:22 -0500
Subject: [AccessD] OT - Changing a DSN Connection
In-Reply-To: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAAAaHz+LRnbAQ5PJoO5hBonIAQAAAAA=@isharp.co.uk>
Message-ID: <NDEALJOEGMMPCDKIFGNFEEFBHNAA.jimdettman@earthlink.net>

Paul,

<<I could write in Access or VB that a a click of a button will find these
DSN's and replace the server name ?>>

  I've got a VB6 program to update DSN's based on an access table that I'd
be willing to share.

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Paul Hartland
(ISHARP)
Sent: Thursday, January 05, 2006 8:21 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] OT - Changing a DSN Connection


To all,

We are having a new server (very soon) and changing the name to something
like AL-MASTER from AL-ORR the thing is I have a lot of Excel management
reports which use various DSN's pointing to AL-ORR, is there something I
could write in Access or VB that a a click of a button will find these DSN's
and replace the server name ?

Any help on this would be greatly appreciated.

Thanks in advance

Paul Hartland

P.S. Happy New Year to all list members, don't know what I would do without
it sometimes

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




From jwcolby at ColbyConsulting.com  Thu Jan  5 14:44:02 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 15:44:02 -0500
Subject: [AccessD] More Strange Autonumber Behavior - Access
	2002	(akaAccess XP)
In-Reply-To: <200601052038.k05KcSV06096@databaseadvisors.com>
Message-ID: <003401c61238$c3d85100$647aa8c0@ColbyM6805>

ROTFL.  Yea, that will cause an issue.  I just use autonumber which is
always a long. 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Randall R Anthony
Sent: Thursday, January 05, 2006 3:38 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002
(akaAccess XP)

I had a similar problem, however it was dumb developer related.  I had the
autonumber set to integer, which ran out at 32 thousand whatever. 
Changing the field size to Long Integer fixed it.

>>> Lambert.Heenan at aig.com 01/05/06 3:18 PM >>>
I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not successful
because they would create duplicate values in the index, primary key, or
relationship.  Change the data in the field or fields that contain duplicate
data, remove the index, or redefine the index to permit duplicate entries
and try again."

This was in a block of code that was simply appending new records to a table
that has a standard,  AutoNumber field called "ID". (This code has been in
use for the past three years) No other field in the table has a unique
index. The code was like this...

     With RS_Premium_Stream
        For n = LBound(mod_tPremiumArray) To UBound(mod_tPremiumArray)
            tPremiumInfo = mod_tPremiumArray(n)
            .AddNew
            !Policy_ID = tPremiumInfo.nPolicy_ID
            !nPolicyYear = tPremiumInfo.nPolicyYear
            !cPremiumProjection = tPremiumInfo.cPremiumProjection
            !cAnnualLoanInterest = tPremiumInfo.cAnnualLoanInterest
             !dDueDate = tPremiumInfo.dDueDate
            !bPaid = tPremiumInfo.bPaidStatus
            !nAge = tPremiumInfo.nAge
            !dDateCreated = dDataFileLoadDate
            .Update: SysCmd acSysCmdUpdateMeter, n
        Next n

... and the error happened when the .Update line executed. Stepping though
the code I discovered that just before the first execution of the .AddNew
line the value of RS_Premium_Stream!ID was the ID value of the "first
record" in the table, as you might expect, but after executing .AddNew the
value of ID was now that of an *existing* record a few hundred rows into the
table!!! This of course cause the duplicate error when the Update method was
called.

I tried Compact (from the command line), Compact and Repair from the Access
menus, but those did not fix the trouble. Then I tried running a Make Table
query to create a copy of the data (retaining the values of the ID
field) in
a new table, but the new table exhibited the same error. JetComp didn't make
any difference either!!!!

The cure? Make a new empty table with the same structure. Then run an append
query to append all existing records to the new table - this preserves the
values of the autonumber field in the existing table - and then delete the
old table and rename the new one. You'd think that simply running a Make
Table query would have the same effect, but no, that just gives you a copy
of the table that exhibits the same problem.

What a pain!

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



From jwcolby at ColbyConsulting.com  Thu Jan  5 14:47:03 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 15:47:03 -0500
Subject: [AccessD] More Strange Autonumber Behavior -
	Access2002(akaAccess XP)
In-Reply-To: <NDEALJOEGMMPCDKIFGNFMEFAHNAA.jimdettman@earthlink.net>
Message-ID: <003501c61239$2f32c4d0$647aa8c0@ColbyM6805>

LOL, not in my lifetime!  Wouldn't be prudent.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Thursday, January 05, 2006 3:40 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] More Strange Autonumber Behavior -
Access2002(akaAccess XP)


  Man if you guys only used natural keys....


  Sorry, couldn't resist.

Jim.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
Sent: Thursday, January 05, 2006 3:32 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access
2002(akaAccess XP)


Lambert

I make an append query where I get the max() of the ID field, add 1, alias
it and append that back in to the table as a new record.  This adds a bogus
record to the end of the table which I then delete back out.  The autonumber
is now reset and off I go.  The only issue is if there are other fields that
have constraints then it becomes a bit more difficult discovering and
building such values.


John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Thursday, January 05, 2006 3:18 PM
To: 'Access-D Email (accessd at databaseadvisors.com)'; 'ACCESS-L Email
(ACCESS-L at PEACH.EASE.LSOFT.COM)'
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002 (akaAccess
XP)

I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not successful
because they would create duplicate values in the index, primary key, or
relationship.  Change the data in the field or fields that contain duplicate
data, remove the index, or redefine the index to permit duplicate entries
and try again."

This was in a block of code that was simply appending new records to a table
that has a standard,  AutoNumber field called "ID". (This code has been in
use for the past three years) No other field in the table has a unique
index. The code was like this...

     With RS_Premium_Stream
        For n = LBound(mod_tPremiumArray) To UBound(mod_tPremiumArray)
            tPremiumInfo = mod_tPremiumArray(n)
            .AddNew
            !Policy_ID = tPremiumInfo.nPolicy_ID
            !nPolicyYear = tPremiumInfo.nPolicyYear
            !cPremiumProjection = tPremiumInfo.cPremiumProjection
            !cAnnualLoanInterest = tPremiumInfo.cAnnualLoanInterest
             !dDueDate = tPremiumInfo.dDueDate
            !bPaid = tPremiumInfo.bPaidStatus
            !nAge = tPremiumInfo.nAge
            !dDateCreated = dDataFileLoadDate
            .Update: SysCmd acSysCmdUpdateMeter, n
        Next n

... and the error happened when the .Update line executed. Stepping though
the code I discovered that just before the first execution of the .AddNew
line the value of RS_Premium_Stream!ID was the ID value of the "first
record" in the table, as you might expect, but after executing .AddNew the
value of ID was now that of an *existing* record a few hundred rows into the
table!!! This of course cause the duplicate error when the Update method was
called.

I tried Compact (from the command line), Compact and Repair from the Access
menus, but those did not fix the trouble. Then I tried running a Make Table
query to create a copy of the data (retaining the values of the ID field) in
a new table, but the new table exhibited the same error. JetComp didn't make
any difference either!!!!

The cure? Make a new empty table with the same structure. Then run an append
query to append all existing records to the new table - this preserves the
values of the autonumber field in the existing table - and then delete the
old table and rename the new one. You'd think that simply running a Make
Table query would have the same effect, but no, that just gives you a copy
of the table that exhibits the same problem.

What a pain!

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

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


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



From hkotsch at arcor.de  Thu Jan  5 15:30:28 2006
From: hkotsch at arcor.de (Helmut Kotsch)
Date: Thu, 5 Jan 2006 22:30:28 +0100
Subject: [AccessD] Himachi
In-Reply-To: <003201c61232$cc5adf10$647aa8c0@ColbyM6805>
Message-ID: <PKEDLCDKMFCKJDAENFKBEEJEEOAA.hkotsch@arcor.de>

John,
I have played with Himachi yesterday and it works perfect also behind
routers and firewalls. Since I still use Windows 2000 without the remote
desktop feature of XP I use UltraVNC for remote support. Works great as
well. UltraVnc (http://ultravnc.sourceforge.net/) is also free and works
faster and more reliable than anything else I used before.
Himachi is supposed to solve the security problem when using the internet as
your network connection. I listened to Steve Gibsons Episode18 mp3-track on
Himachi. He states that it is absolutely secure. I still have an uncertain
feeling about what I should think about it since I'm not that knowledgeable
about the whole subject. Doesn't have the server moderating the connection
have to store the password I assign and couldn't that bee misused?

Helmut


-----Ursprungliche Nachricht-----
Von: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]Im Auftrag von John Colby
Gesendet: Donnerstag, 5. Januar 2006 21:01
An: 'Access Developers discussion and problem solving'
Betreff: [AccessD] Himachi


If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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



From Lambert.Heenan at AIG.com  Thu Jan  5 15:37:01 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Thu, 5 Jan 2006 16:37:01 -0500 
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002	(aka	
	Access XP)
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E13B@xlivmbx21.aig.com>

In every version of Acces that I have used AutoNumber fields can be either
Long Integers or Replication IDs. How could you have set one to an Integer?

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Randall R Anthony
Sent: Thursday, January 05, 2006 3:38 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002 (aka
Access XP)


I had a similar problem, however it was dumb developer related.  I had the
autonumber set to integer, which ran out at 32 thousand whatever. 
Changing the field size to Long Integer fixed it.

>>> Lambert.Heenan at aig.com 01/05/06 3:18 PM >>>
I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not successful
because they would create duplicate values in the index, primary key, or
relationship.  Change the data in the field or fields that contain duplicate
data, remove the index, or redefine the index to permit duplicate entries
and try again."
<snip>


From Lambert.Heenan at AIG.com  Thu Jan  5 15:47:27 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Thu, 5 Jan 2006 15:47:27 -0600 
Subject: [AccessD] Himachi
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E145@xlivmbx21.aig.com>

Just off the top of my head I would hope that the password authentication is
handled in a similar way to Windows Authentication: i.e. a one-way hash
algorithm running on your machine takes the password you enter, calculates
the hash value and passes that over the line to the server, and that is
what's used to authenticate. Being a one-way hash value, one cannot retrieve
the password from it, and so if the server is hacked your password should be
safe.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Helmut Kotsch
Sent: Thursday, January 05, 2006 4:30 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Himachi


John,
I have played with Himachi yesterday and it works perfect also behind
routers and firewalls. Since I still use Windows 2000 without the remote
desktop feature of XP I use UltraVNC for remote support. Works great as
well. UltraVnc (http://ultravnc.sourceforge.net/) is also free and works
faster and more reliable than anything else I used before. Himachi is
supposed to solve the security problem when using the internet as your
network connection. I listened to Steve Gibsons Episode18 mp3-track on
Himachi. He states that it is absolutely secure. I still have an uncertain
feeling about what I should think about it since I'm not that knowledgeable
about the whole subject. Doesn't have the server moderating the connection
have to store the password I assign and couldn't that bee misused?

Helmut



From joeget at vgernet.net  Thu Jan  5 15:51:31 2006
From: joeget at vgernet.net (John Eget)
Date: Thu, 5 Jan 2006 16:51:31 -0500
Subject: [AccessD] universal hyper link to backend
Message-ID: <015401c61242$346e6770$cdc2f63f@JOHN>

i have a excel file that is stored in the backend but would like to hyperlink to from the front end that is stored in a different folder.   If the back end is moved, after the front end relinks to the back end tables be able to then have the hyper link work. I though that there was a way using UNC, am I wrong?

file    "qfd software.xls" is stored in "easilook backend" folder and is linked from "easilook front end" folder

any ideas?

John 

From joeget at vgernet.net  Thu Jan  5 15:52:07 2006
From: joeget at vgernet.net (John Eget)
Date: Thu, 5 Jan 2006 16:52:07 -0500
Subject: [AccessD] universal hyper link
Message-ID: <015e01c61242$49aa5900$cdc2f63f@JOHN>

i have a excel file that is stored in the backend but would like to hyperlink to from the front end that is stored in a different folder.   If the back end is moved, after the front end relinks to the back end tables be able to then have the hyper link work. I though that there was a way using UNC, am I wrong?

file    "qfd software.xls" is stored in "easilook backend" folder and is linked from "easilook front end" folder

any ideas?

John 

From Lambert.Heenan at AIG.com  Thu Jan  5 16:02:02 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Thu, 5 Jan 2006 16:02:02 -0600 
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002
	(aka	Access XP)
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E153@xlivmbx21.aig.com>

Interesting idea John. I just tried it out and it works a treat, but the fly
in the ointment is that your stuck with my more roundabout method if you
happen to be using random 'incrementing'. 

As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Thursday, January 05, 2006 3:32 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002
(akaAccess XP)


Lambert

I make an append query where I get the max() of the ID field, add 1, alias
it and append that back in to the table as a new record.  This adds a bogus
record to the end of the table which I then delete back out.  The autonumber
is now reset and off I go.  The only issue is if there are other fields that
have constraints then it becomes a bit more difficult discovering and
building such values. 


John W. Colby
www.ColbyConsulting.com 



From jwcolby at ColbyConsulting.com  Thu Jan  5 16:41:19 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 17:41:19 -0500
Subject: [AccessD] Himachi
In-Reply-To: <PKEDLCDKMFCKJDAENFKBEEJEEOAA.hkotsch@arcor.de>
Message-ID: <000401c61249$263778c0$647aa8c0@ColbyM6805>

>Doesn't have the server moderating the connection have to store the
password I assign and couldn't that bee misused?

No it stores the hash of the password.

I have found several places where I just couldn't get either VNC or remote
desktop to work.  Some kind of router issue.  Since this tunnel goes through
the firewall it appears that you are supposed to be able to put in the 05.XX
IP address and "connect" that way, right through the firewalls.  It did NOT
work for me at one of my client's though.  The Hamachi site says that about
5% of the time this problem may occur so maybe I just hit one of those
times.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Helmut Kotsch
Sent: Thursday, January 05, 2006 4:30 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Himachi

John,
I have played with Himachi yesterday and it works perfect also behind
routers and firewalls. Since I still use Windows 2000 without the remote
desktop feature of XP I use UltraVNC for remote support. Works great as
well. UltraVnc (http://ultravnc.sourceforge.net/) is also free and works
faster and more reliable than anything else I used before.
Himachi is supposed to solve the security problem when using the internet as
your network connection. I listened to Steve Gibsons Episode18 mp3-track on
Himachi. He states that it is absolutely secure. I still have an uncertain
feeling about what I should think about it since I'm not that knowledgeable
about the whole subject. Doesn't have the server moderating the connection
have to store the password I assign and couldn't that bee misused?

Helmut


-----Ursprungliche Nachricht-----
Von: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]Im Auftrag von John Colby
Gesendet: Donnerstag, 5. Januar 2006 21:01
An: 'Access Developers discussion and problem solving'
Betreff: [AccessD] Himachi


If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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

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



From jwcolby at ColbyConsulting.com  Thu Jan  5 16:47:08 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 17:47:08 -0500
Subject: [AccessD] More Strange Autonumber Behavior - Access
	2002(aka	Access XP)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E153@xlivmbx21.aig.com>
Message-ID: <000801c61249$f6330850$647aa8c0@ColbyM6805>

Yes, I don't use random autoincrement for exactly that reason.  If the
entire table has random autonumbers then you should be safe unless of course
you are are dealing with merging replication tables where the remote FE
might produce collisions.  In that case you have to be prepared to deal with
it some way.

>As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)

Oh, without a doubt.  Natural keys just pretty much suck - but we all know
that of course.  <evil grin>

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Thursday, January 05, 2006 5:02 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002(aka
Access XP)

Interesting idea John. I just tried it out and it works a treat, but the fly
in the ointment is that your stuck with my more roundabout method if you
happen to be using random 'incrementing'. 

As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Thursday, January 05, 2006 3:32 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002
(akaAccess XP)


Lambert

I make an append query where I get the max() of the ID field, add 1, alias
it and append that back in to the table as a new record.  This adds a bogus
record to the end of the table which I then delete back out.  The autonumber
is now reset and off I go.  The only issue is if there are other fields that
have constraints then it becomes a bit more difficult discovering and
building such values. 


John W. Colby
www.ColbyConsulting.com 



From jwcolby at ColbyConsulting.com  Thu Jan  5 16:58:01 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 17:58:01 -0500
Subject: [AccessD] Withevents and object library version
Message-ID: <001c01c6124b$7af3c100$647aa8c0@ColbyM6805>

I am starting dev on a little app to strip attachments off of outlook emails
and file them on the disk.  In order to do this I have to grab an instance
of outlook and sink events for it (emails hitting a sub-folder).

My issue is that of all the Office applications, Outlook is the ONE app that
the Office install only allows you to keep a single version of.  Thus I have
an issue developing in it since my version is 2003 and most of my clients
have 2002.  I can do everything else just using late binding but sinking
events just requires knowing the object type at compile time.

Does anyone have reliable code for determining which version of Outlook is
installed and referencing that lib at run time?  
John W. Colby
www.ColbyConsulting.com 




From jimdettman at earthlink.net  Thu Jan  5 17:00:23 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Thu, 5 Jan 2006 18:00:23 -0500
Subject: [AccessD] More Strange Autonumber Behavior - Access
	2002(aka	Access XP)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E153@xlivmbx21.aig.com>
Message-ID: <NDEALJOEGMMPCDKIFGNFOEFNHNAA.jimdettman@earthlink.net>

<<As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)>>

  Just having a bit of fun<g>

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Heenan,
Lambert
Sent: Thursday, January 05, 2006 5:02 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access
2002(aka Access XP)


Interesting idea John. I just tried it out and it works a treat, but the fly
in the ointment is that your stuck with my more roundabout method if you
happen to be using random 'incrementing'.

As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Thursday, January 05, 2006 3:32 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002
(akaAccess XP)


Lambert

I make an append query where I get the max() of the ID field, add 1, alias
it and append that back in to the table as a new record.  This adds a bogus
record to the end of the table which I then delete back out.  The autonumber
is now reset and off I go.  The only issue is if there are other fields that
have constraints then it becomes a bit more difficult discovering and
building such values.


John W. Colby
www.ColbyConsulting.com

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




From jwcolby at ColbyConsulting.com  Thu Jan  5 17:18:00 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 18:18:00 -0500
Subject: [AccessD] More Strange Autonumber Behavior -
	Access2002(aka	Access XP)
In-Reply-To: <NDEALJOEGMMPCDKIFGNFOEFNHNAA.jimdettman@earthlink.net>
Message-ID: <001d01c6124e$45c53920$647aa8c0@ColbyM6805>

I think you're trying to start the war again.   ;~)


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Thursday, January 05, 2006 6:00 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access2002(aka
Access XP)

<<As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)>>

  Just having a bit of fun<g>

Jim.



From michael at ddisolutions.com.au  Thu Jan  5 17:40:11 2006
From: michael at ddisolutions.com.au (Michael Maddison)
Date: Fri, 6 Jan 2006 10:40:11 +1100
Subject: [AccessD] (Fwd) Re:  Extract data from .doc into db
Message-ID: <59A61174B1F5B54B97FD4ADDE71E7D0116A197@ddi-01.DDI.local>

Thanks for the replies + code sample.

My client is a project manager for a large manufacturer, he is trying to
get a budget up for this project to
go ahead.  He is aware that any $ figure I give him is an estimate.  The
company in question will only
work on fixed price quotes (if we get that far).  As my company is
taking all the risk I will make
sure my quote is... ahem... favourable ;-)))  Hence my question.

Looking more closely at the word docs I see that there are multiple
tables and they are in different formats.
Also they start out as columns for yes/no but they then degenerate into
free text areas where the headings are in the
same cell as the text...  hmmm, not so good.  I may need to some manual
input I think.

cheers

Michael Maddison

DDI Solutions Pty Ltd
michael at ddisolutions.com.au
Bus: 0260400620
Mob: 0412620497 
www.ddisolutions.com.au

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Janine_docsonline
Sent: Thursday, 5 January 2006 6:23 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] (Fwd) Re: Extract data from .doc into db

Love the humour.

Don't know if this is off base. There is a convert table to access merge
thingy in Word 2003 does that help? I was going to show a client who had
access how a table could be merged back to Access?

Are the word documents in table? Just a suggestion only.

Cant you charge him when you're done? If it takes 10 hours charge out
US$55 PER HOUR (that seems fair).
Conver the tabular text to tables and then use Word 2003 merge option to
turn  into fields or just import into Access from the table fields.

I may be way off base but just a thought....


----- Original Message -----
From: "Bryan Carbonnell" <carbonnb at sympatico.ca>
To: "access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 11:46 AM
Subject: [AccessD] (Fwd) Re: Extract data from .doc into db


> Should have gone to the list too.
>
> Bryan
> ------- Forwarded message follows -------
> On 5 Jan 2006 at 11:08, Michael Maddison wrote:
>
>> I've been asked how much $$$ to extract data from a series of word
docs.
>> Each record is made up
>> of 3 docs.  There are 80 records (240 docs).  The docs are quite
large
>> 20+ pages each, with questions
>> and either ticks or X's in a tabular format.  There are no fields.
>> I've never done this so my question is how easy is it to code
something
>> like this or should I just
>> employ a temp to slog through it?
>
> It depends. Are all the docs the same format? The same number of
> tables, columns, rows, etc? Is the marking consistant to indicate the
> choice?
>
> If the answer is yes, then it should be fairly straight forward. Here
> is some code (written in Word, so you will have to translate into
> Access :)to give you an idea of what would be involved in reading the
> cells.
>
> Sub test()
>
> Dim doc As Document
> Dim tbl As Table
> Dim lngRow As Long
> Dim lngRowCount As Long
> Dim strCol2 As String
> Dim strCol3 As String
> Dim bolYes As Boolean
> Dim bolNo As Boolean
>
> Set doc = ActiveDocument
> Set tbl = doc.Tables(1)
>
> lngRowCount = tbl.Rows.Count
> lngRow = 1
>
>
> Do While lngRow <= lngRowCount
>  'Get the values in the "choice" columns
>  strCol2 = tbl.Cell(lngRow, 2).Range
>  strCol3 = tbl.Cell(lngRow, 3).Range
>  'Strip the trailing 2 characters asc(7) & asc(13)
>  If Len(strCol2) > 2 Then
>    strCol2 = Left$(strCol2, 1)
>  Else
>    strCol2 = ""
>  End If
>  If Len(strCol3) > 2 Then
>    strCol3 = Left$(strCol3, 1)
>  Else
>    strCol3 = ""
>  End If
>
>  'Check to see if first "choice" column is "checked"
>  If LCase(strCol2) = "x" Then
>    bolYes = True
>  End If
>  'Check to see if second "choice" column is "checked"
>  If LCase(strCol3) = "x" Then
>    bolNo = True
>  End If
>  'Store the Values in your table
>
>  'reset flags
>  bolYes = False
>  bolNo = False
>  'increment row counter
>  lngRow = lngRow + 1
>
> Loop
>
> Set tbl = Nothing
> Set doc = Nothing
>
> End Sub
>
> A couple of assumptions here:
>
> This is a single table with a minimum or 3 columns, where the choices
> are in columns 2 & 3 which are all marked with an x (upper or
> lowercase doesn't matter)
>
> HTH,
>
> -- 
> Bryan Carbonnell - carbonnb at sympatico.ca
> Earth is the insane asylum for the universe.
>
>
> ------- End of forwarded message -------
> -- 
> Bryan Carbonnell - carbonnb at sympatico.ca
> Needing someone is like needing a parachute. If he isn't there the
first 
> time, chances are you won't be needing him again.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 

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


From martyconnelly at shaw.ca  Thu Jan  5 17:40:45 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Thu, 05 Jan 2006 15:40:45 -0800
Subject: [AccessD] universal hyper link
References: <015e01c61242$49aa5900$cdc2f63f@JOHN>
Message-ID: <43BDAE7D.4000707@shaw.ca>

Well I would just use relative addressing of the excel file
Assuming the backend mdb and excel files are in the same folder on the 
new folder
You can obtain the file and path of your backend by parsing out the Connect
property of one of your linked tables.  Then just tack on this path to 
your excel file

For example:

   Dim ConnectStr As String
    Dim db As Database
  Set db = CurrentDb
    db.TableDefs.Refresh
   ConnectStr = db.TableDefs("MyTable").Connect

You would get a string something like:
   ;DATABASE=C:\MyPath\MyDB.mdb
or

;DATABASE=\\Jaxnt54\Callboard\Database2K\TransCallboard_be.mdb

John Eget wrote:

>i have a excel file that is stored in the backend but would like to hyperlink to from the front end that is stored in a different folder.   If the back end is moved, after the front end relinks to the back end tables be able to then have the hyper link work. I though that there was a way using UNC, am I wrong?
>
>file    "qfd software.xls" is stored in "easilook backend" folder and is linked from "easilook front end" folder
>
>any ideas?
>
>John 
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From max at sherman.org.uk  Fri Jan  6 01:54:45 2006
From: max at sherman.org.uk (Max Sherman)
Date: Fri, 6 Jan 2006 07:54:45 -0000
Subject: [AccessD] Himachi
In-Reply-To: <003201c61232$cc5adf10$647aa8c0@ColbyM6805>
Message-ID: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAW7DrIUv8Sk+BDIsZ6T0G1sKAAAAQAAAAzdGpyfcu8Uua41PzfVKEFwEAAAAA@sherman.org.uk>

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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




From Gustav at cactus.dk  Fri Jan  6 05:30:30 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 12:30:30 +0100
Subject: [AccessD] Withevents and object library version
Message-ID: <s3be62f9.036@cactus.dk>

Hi John

You could add Outlook as a Reference by GUID specifying Major and Minor version no.
Start from top (Outlook 2003) and continue until it doesn't fail.
Or maybe you could specify 0 for both Major and Minor and the current version will be referenced - that is how it is supposed to work, but I haven't found this method to work reliably.
Remember that the code will be left uncompiled, thus you need to recompile which is not that easy ... if you recall the old threads on this.

By why use Outlook? It's a monster. If a client doesn't use Outlook then what to do? Couldn't you just let a rule forward those mails to a known environment, then poll that at some interval? 
For a specific purpose we did that. An old 266MHz machine runs The Bat! client which polls via POP3 every five minute. If a hit exists, the mail is downloaded, the attachment saved and a batch file is called which unzips the attachment, processes it (by calling an Access app), zips the processed file and mail it - and logs it all for reference.

Not as sexy as WithEvents, I know, but it works.

/gustav


>>> jwcolby at ColbyConsulting.com 05-01-2006 23:58 >>>
I am starting dev on a little app to strip attachments off of outlook emails
and file them on the disk.  In order to do this I have to grab an instance
of outlook and sink events for it (emails hitting a sub-folder).

My issue is that of all the Office applications, Outlook is the ONE app that
the Office install only allows you to keep a single version of.  Thus I have
an issue developing in it since my version is 2003 and most of my clients
have 2002.  I can do everything else just using late binding but sinking
events just requires knowing the object type at compile time.

Does anyone have reliable code for determining which version of Outlook is
installed and referencing that lib at run time?  
John W. Colby
www.ColbyConsulting.com 




From Gustav at cactus.dk  Fri Jan  6 05:37:55 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 12:37:55 +0100
Subject: [AccessD] universal hyper link to backend
Message-ID: <s3be64c3.039@cactus.dk>

Hi John

You can use the double-dot syntax for referencing parent directories.
If "easilook backend" folder and "easilook front end" folder are sister directories then your frontend (which location you easily can find) can reference the Excel file:

  "..\easilook backend\qfd software.xls"

/gustav

>>> joeget at vgernet.net 05-01-2006 22:51 >>>
i have a excel file that is stored in the backend but would like to hyperlink to from the front end that is stored in a different folder.   If the back end is moved, after the front end relinks to the back end tables be able to then have the hyper link work. I though that there was a way using UNC, am I wrong?

file    "qfd software.xls" is stored in "easilook backend" folder and is linked from "easilook front end" folder

any ideas?

John 




From Gustav at cactus.dk  Fri Jan  6 05:51:26 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 12:51:26 +0100
Subject: [AccessD] Informix, Boolean
Message-ID: <s3be67dd.041@cactus.dk>

Hi John

Well, that has been checked. The field is of Boolean type.
And yes, the table is linked.
So I guess we are out of ideas ...

/gustav

>>> john at winhaven.net 05-01-2006 19:19 >>>
Gustav,
It could well be that Informix now supports a Boolean data type - many
things have happened since I used it, for instance IBM bought the company.
When I used it Informix was one of the "big dogs" in the RDBMS field.

I'm not sure but I think you're saying the Informix data is a linked table
in Access, is this correct? If so you may need to check the data source and
see how the field is typed there and adjust appropriately even though Access
says its Yes/No.

John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock

Hi John

Thanks, that was along one my thoughts - is Boolean a Boolean?
But if you study the linked table in design view, it tells type Yes/No for
that field.

I wouldn't need the manuals. IBM has done a nice work putting up all
official info on the web - but I guess simply not that many Informixolics
use Access for access ...

/gustav




From RRANTHON at sentara.com  Fri Jan  6 06:25:31 2006
From: RRANTHON at sentara.com (Randall R Anthony)
Date: Fri, 06 Jan 2006 07:25:31 -0500
Subject: [AccessD] More Strange Autonumber Behavior - Access	2002	(aka	
	Access XP)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E13B@xlivmbx21.aig.com>
References: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E13B@xlivmbx21.aig.com>
Message-ID: <200601061225.k06CPkV32619@databaseadvisors.com>

You would force me to look it up.  Access2.0.  And in more than one
instance.  ee-eefff

>>> Lambert.Heenan at aig.com 01/05/06 4:37 PM >>>
In every version of Acces that I have used AutoNumber fields can be
either
Long Integers or Replication IDs. How could you have set one to an
Integer?

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Randall R
Anthony
Sent: Thursday, January 05, 2006 3:38 PM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002
(aka
Access XP)


I had a similar problem, however it was dumb developer related.  I had
the
autonumber set to integer, which ran out at 32 thousand whatever. 
Changing the field size to Long Integer fixed it.

>>> Lambert.Heenan at aig.com 01/05/06 3:18 PM >>>
I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not
successful
because they would create duplicate values in the index, primary key,
or
relationship.  Change the data in the field or fields that contain
duplicate
data, remove the index, or redefine the index to permit duplicate
entries
and try again."
<snip>
-- 
AccessD mailing list
AccessD at databaseadvisors.com 
http://databaseadvisors.com/mailman/listinfo/accessd 
Website: http://www.databaseadvisors.com


From Gustav at cactus.dk  Fri Jan  6 06:33:57 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 13:33:57 +0100
Subject: [AccessD] Read picture of barcode
Message-ID: <s3be71d3.046@cactus.dk>

Hi all

Our postmen here will move from mobile scanner devices to the much cheaper standard smartphones.
These can snapshot a picture of the barcode on the delivered parcel and send it back at once to the mail office as part of a log.

But how do you "scan" a picture of a barcode to obtain the barcode?
I know some OCR applications can do that but I would prefer a small dedicated tool or ActiveX/OCR control.

Any experiences with this or ideas?

/gustav



From Gustav at cactus.dk  Fri Jan  6 06:41:44 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 13:41:44 +0100
Subject: [AccessD] More Strange Autonumber Behavior -	Access	2002	(aka	
	Access XP)
Message-ID: <s3be73a0.049@cactus.dk>

Hi Branthon

In Access 2.0 you cannot specify the AutoNumber/Counter to anything else than its native size (Long).

/gustav

>>> RRANTHON at sentara.com 06-01-2006 13:25 >>>
You would force me to look it up.  Access2.0.  And in more than one instance.  ee-eefff

>>> Lambert.Heenan at aig.com 01/05/06 4:37 PM >>>
In every version of Acces that I have used AutoNumber fields can be either Long Integers or Replication IDs. How could you have set one to an Integer?




From adtp at touchtelindia.net  Fri Jan  6 06:41:32 2006
From: adtp at touchtelindia.net (A.D.Tejpal)
Date: Fri, 6 Jan 2006 18:11:32 +0530
Subject: [AccessD] Problem converting code
References: <s3bce4a6.008@nebnov3.niagaracounty.com>
Message-ID: <00fb01c612be$9c2c8f50$b247f63d@winxp>

John,

    My sample db named AppendSequence might be of interest to you. It is available at Rogers Access Library (other developers library). Link - http://www.rogersaccesslibrary.com

    You could adapt the underlying approach suitably, for your specific needs.

Best wishes,
A.D.Tejpal
--------------

  ----- Original Message ----- 
  From: John Clark 
  To: accessd at databaseadvisors.com 
  Sent: Thursday, January 05, 2006 19:47
  Subject: [AccessD] Problem converting code


  Somebody on this list helped me with code to automatically place the next number in a series into a control number. I'm really sorry I don't remember who...I usually make note of it, but I've recently relocated my office and I can't even find the code docs...there probably in a box somewhere.

  Anyhow, what the code does is auto number cases, in the form of 05-001, 05-002,...until the new year, upon which is will restart with 06-001. 
  This worked fine and dandy but for two things...first my client was adamant about there being no possibility of hitting 1000 cases in a year, which as you can probably guess they did. And they were also adamant about there not being an extra zero, when I tried placing it inthere just in case.

  The bigger problem though is that this was done in A97 and I am now using A2K. I will be redoing this program in A2K and the program I am currently working on and trying to reuse the code in, is also A2K. I am getting errors on the line, "Set rst = CodeDb.OpenRecordset(strSQL)" that says too few parameters. I am either being totally dense (a distinct possibility) or it is a DAO vs. ADO problem, which I can not get through my skull and always have problems with...making me dense again...hmmmm.

  Can anyone please point me in the right direction to rectify this
  problem?

  I make the default value for the field set as, "=NewControlNum()"

  ****************************** CODE
  ***********************************************************************
  Function NewControlNum() As String
  Dim strSQL As String
  Dim strNewID As String
  Dim rst As Recordset
  strSQL = "SELECT nz(Max(Mid([tblIndictment]![IndictmentNumber],4)),0)+1
  AS lngMaxID," & _
           "Right(Year(Now()),2)" & _
           "& '-' & [lngMaxID] AS lngNewID " & _
           "FROM tblIndictment " & _
           "WHERE
  (((Left([tblIndictment]![IndictmentNumber],2))=Right(Year(Now()),2)));"
  Set rst = CodeDb.OpenRecordset(strSQL)
  With rst
     strNewID = rst!lngNewID
     rst.Close
     Set rst = Nothing
  End With
  NewControlNum = strNewID

  Rem
  ***************************************************************************

  Select Case Len(NewControlNum)
      Case 4
          NewControlNum = Left(NewControlNum, 3) & "00" &
  Right(NewControlNum, 1)
      Case 5
          NewControlNum = Left(NewControlNum, 3) & "0" &
  Right(NewControlNum, 2)
  End Select


  Thank you!

  John W Clark


From RRANTHON at sentara.com  Fri Jan  6 06:47:50 2006
From: RRANTHON at sentara.com (Randall R Anthony)
Date: Fri, 06 Jan 2006 07:47:50 -0500
Subject: [AccessD] More Strange Autonumber Behavior	-	Access	2002	(aka	
	Access XP)
In-Reply-To: <s3be73a0.049@cactus.dk>
References: <s3be73a0.049@cactus.dk>
Message-ID: <200601061248.k06Cm8V05965@databaseadvisors.com>

Sorry guys, I know what I saw and what fixed it.  If it was some kind of
anomally or what have you, so be it.

>>> Gustav at cactus.dk 01/06/06 7:41 AM >>>
Hi Branthon

In Access 2.0 you cannot specify the AutoNumber/Counter to anything
else than its native size (Long).

/gustav

>>> RRANTHON at sentara.com 06-01-2006 13:25 >>>
You would force me to look it up.  Access2.0.  And in more than one
instance.  ee-eefff

>>> Lambert.Heenan at aig.com 01/05/06 4:37 PM >>>
In every version of Acces that I have used AutoNumber fields can be
either Long Integers or Replication IDs. How could you have set one to
an Integer?


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


From jwcolby at ColbyConsulting.com  Fri Jan  6 06:50:55 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 07:50:55 -0500
Subject: [AccessD] Himachi
In-Reply-To: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAW7DrIUv8Sk+BDIsZ6T0G1sKAAAAQAAAAzdGpyfcu8Uua41PzfVKEFwEAAAAA@sherman.org.uk>
Message-ID: <000901c612bf$d5dea6b0$647aa8c0@ColbyM6805>

Reply,

Protection software mis-identifies software all the time.  It happens.
Hamachi installs a complete network layer because it is setting up a new
LAN.  How can I know that Hamachi isn't spyware or a trojan?  I can't.  How
do you know that any other program that you decide to use is not a Trojan?
You can't.  You have to Google the hell out of the company, look at user's
comments and just accept or not.

Hamachi has been in beta for well over a year.  There are entire lists for
users that play games over it (hundreds if not thousands - I didn't read
them all).  They are on beta release 9.9.9 (getting ready to release the
product).   This thing has been around, have literally 800,000 downloads (no
idea how many active users though).  The designer is a known security expert
from Canada who is releasing this product based on work he did as a
consultant for another company.  He is a known face, can be reached by
email, etc. etc.

Does this sound like a virus writer to you?

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 2:55 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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


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



From jwcolby at ColbyConsulting.com  Fri Jan  6 06:53:47 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 07:53:47 -0500
Subject: [AccessD] More Strange Autonumber
	Behavior	-	Access	2002	(aka	Access XP)
In-Reply-To: <200601061248.k06Cm8V05965@databaseadvisors.com>
Message-ID: <000a01c612c0$3c89ea50$647aa8c0@ColbyM6805>

But was it an autonumber?  I have seen integer/longs where you started
placing values in the column and if the first two are consecutive, then
Access places the third and subsequent values in there automatically as the
next subsequent values.  IOW, it is not an autonumber (which is an actual
datatype) but rather just an int/long that happened to be incrementing.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Randall R Anthony
Sent: Friday, January 06, 2006 7:48 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002 (aka
Access XP)

Sorry guys, I know what I saw and what fixed it.  If it was some kind of
anomally or what have you, so be it.

>>> Gustav at cactus.dk 01/06/06 7:41 AM >>>
Hi Branthon

In Access 2.0 you cannot specify the AutoNumber/Counter to anything else
than its native size (Long).

/gustav

>>> RRANTHON at sentara.com 06-01-2006 13:25 >>>
You would force me to look it up.  Access2.0.  And in more than one
instance.  ee-eefff

>>> Lambert.Heenan at aig.com 01/05/06 4:37 PM >>>
In every version of Acces that I have used AutoNumber fields can be either
Long Integers or Replication IDs. How could you have set one to an Integer?


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



From RRANTHON at sentara.com  Fri Jan  6 07:11:43 2006
From: RRANTHON at sentara.com (Randall R Anthony)
Date: Fri, 06 Jan 2006 08:11:43 -0500
Subject: [AccessD] More Strange
	Autonumber	Behavior	-	Access	2002	(aka	Access XP)
In-Reply-To: <000a01c612c0$3c89ea50$647aa8c0@ColbyM6805>
References: <200601061248.k06Cm8V05965@databaseadvisors.com>
	<000a01c612c0$3c89ea50$647aa8c0@ColbyM6805>
Message-ID: <200601061312.k06DC5V12637@databaseadvisors.com>

HaH!!  I stand corrected...  I contacted my buddy who still works for
the @#$%^ company I left, (it was her app I fixed).  She had both an
autonumber field and an auto incrementing field that she set manually,
it was this one that bounced at 32K because of being set to integer.

>>> jwcolby at colbyconsulting.com 01/06/06 7:53 AM >>>
But was it an autonumber?  I have seen integer/longs where you started
placing values in the column and if the first two are consecutive,
then
Access places the third and subsequent values in there automatically as
the
next subsequent values.  IOW, it is not an autonumber (which is an
actual
datatype) but rather just an int/long that happened to be
incrementing.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Randall R
Anthony
Sent: Friday, January 06, 2006 7:48 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002
(aka
Access XP)

Sorry guys, I know what I saw and what fixed it.  If it was some kind
of
anomally or what have you, so be it.

>>> Gustav at cactus.dk 01/06/06 7:41 AM >>>
Hi Branthon

In Access 2.0 you cannot specify the AutoNumber/Counter to anything
else
than its native size (Long).

/gustav

>>> RRANTHON at sentara.com 06-01-2006 13:25 >>>
You would force me to look it up.  Access2.0.  And in more than one
instance.  ee-eefff

>>> Lambert.Heenan at aig.com 01/05/06 4:37 PM >>>
In every version of Acces that I have used AutoNumber fields can be
either
Long Integers or Replication IDs. How could you have set one to an
Integer?


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

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


From max at sherman.org.uk  Fri Jan  6 07:15:14 2006
From: max at sherman.org.uk (Max Sherman)
Date: Fri, 6 Jan 2006 13:15:14 -0000
Subject: [AccessD] Himachi
In-Reply-To: <000901c612bf$d5dea6b0$647aa8c0@ColbyM6805>
Message-ID: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAW7DrIUv8Sk+BDIsZ6T0G1sKAAAAQAAAAlowYA7fVykaM7P+OzHM5DQEAAAAA@sherman.org.uk>

Thanks John,
That gives me some insight into it.  I am very wary of any mention of
Rootkits because once they are in, there is little or no chance of
discovering them, let alone removing them without a complete
re-installation.  It is a shame that they did not make mention of the fact
that this would happen right up front, then people could make an informed
decision before undertaking the installation and have prior warning before
the alert flashes on the screen.

>From what you have said, it does sound as if this particular program is
safe.

Many thanks

Regards
Max
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 06 January 2006 12:51
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Reply,

Protection software mis-identifies software all the time.  It happens.
Hamachi installs a complete network layer because it is setting up a new
LAN.  How can I know that Hamachi isn't spyware or a trojan?  I can't.  How
do you know that any other program that you decide to use is not a Trojan?
You can't.  You have to Google the hell out of the company, look at user's
comments and just accept or not.

Hamachi has been in beta for well over a year.  There are entire lists for
users that play games over it (hundreds if not thousands - I didn't read
them all).  They are on beta release 9.9.9 (getting ready to release the
product).   This thing has been around, have literally 800,000 downloads (no
idea how many active users though).  The designer is a known security expert
from Canada who is releasing this product based on work he did as a
consultant for another company.  He is a known face, can be reached by
email, etc. etc.

Does this sound like a virus writer to you?

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 2:55 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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


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

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




From jimdettman at earthlink.net  Fri Jan  6 07:33:59 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Fri, 6 Jan 2006 08:33:59 -0500
Subject: [AccessD] Himachi
In-Reply-To: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAW7DrIUv8Sk+BDIsZ6T0G1sKAAAAQAAAAlowYA7fVykaM7P+OzHM5DQEAAAAA@sherman.org.uk>
Message-ID: <NDEALJOEGMMPCDKIFGNFGEHMHNAA.jimdettman@earthlink.net>


  I don't know about the root kit, but I'm not sure I'd use the software in
any case.

  A quick read through the FAQ's and Forums shows a pattern of problems.
That is not a surprise given that it's new software, but I don't know if
it's something I would use for a client at this point.

  It also doesn't appear to be as forgiving as stated.  I saw a couple of
posts that said "I had to open all UDP ports on my firewall to get it to
work".  I'd never do that at a clients.  So yes, while it will do a NAT
transversal, it's still highly dependent on the Firewall/Router
configuration for it to work properly.  At it currently doesn't work if the
network is restricted to ports 80/443 and using a web proxy.

  The last thing I'd be somewhat nervous about is that it uses obscure
Windows API functions to do it's job.  Given that their not typically used,
they have the potential to buggy.  I saw a few posts that said that when the
software was installed, it interfered with other adapters that were
installed on the system.

  Overall sounds like it needs to mature a bit more.  Neat idea though.

Jim.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 8:15 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi


Thanks John,
That gives me some insight into it.  I am very wary of any mention of
Rootkits because once they are in, there is little or no chance of
discovering them, let alone removing them without a complete
re-installation.  It is a shame that they did not make mention of the fact
that this would happen right up front, then people could make an informed
decision before undertaking the installation and have prior warning before
the alert flashes on the screen.

>From what you have said, it does sound as if this particular program is
safe.

Many thanks

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 06 January 2006 12:51
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Reply,

Protection software mis-identifies software all the time.  It happens.
Hamachi installs a complete network layer because it is setting up a new
LAN.  How can I know that Hamachi isn't spyware or a trojan?  I can't.  How
do you know that any other program that you decide to use is not a Trojan?
You can't.  You have to Google the hell out of the company, look at user's
comments and just accept or not.

Hamachi has been in beta for well over a year.  There are entire lists for
users that play games over it (hundreds if not thousands - I didn't read
them all).  They are on beta release 9.9.9 (getting ready to release the
product).   This thing has been around, have literally 800,000 downloads (no
idea how many active users though).  The designer is a known security expert
from Canada who is releasing this product based on work he did as a
consultant for another company.  He is a known face, can be reached by
email, etc. etc.

Does this sound like a virus writer to you?

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 2:55 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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


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

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


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




From jimdettman at earthlink.net  Fri Jan  6 07:35:27 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Fri, 6 Jan 2006 08:35:27 -0500
Subject: [AccessD] More Strange Autonumber Behavior
	-Access2002(aka	Access XP)
In-Reply-To: <001d01c6124e$45c53920$647aa8c0@ColbyM6805>
Message-ID: <NDEALJOEGMMPCDKIFGNFMEHNHNAA.jimdettman@earthlink.net>

John,

  No, I'm really not.  We've all been over that ground too many times.

 As I said, I just couldn't resist the jab ;)

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
Sent: Thursday, January 05, 2006 6:18 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior -Access2002(aka
Access XP)


I think you're trying to start the war again.   ;~)


John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Thursday, January 05, 2006 6:00 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access2002(aka
Access XP)

<<As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)>>

  Just having a bit of fun<g>

Jim.

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




From max at sherman.org.uk  Fri Jan  6 07:59:57 2006
From: max at sherman.org.uk (Max Sherman)
Date: Fri, 6 Jan 2006 13:59:57 -0000
Subject: [AccessD] Himachi
In-Reply-To: <NDEALJOEGMMPCDKIFGNFGEHMHNAA.jimdettman@earthlink.net>
Message-ID: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAW7DrIUv8Sk+BDIsZ6T0G1sKAAAAQAAAAggaEW+whlkCrB+KBiGgHFwEAAAAA@sherman.org.uk>

Dear Jim,
>> A quick read through the FAQ's and Forums shows a pattern of problems.

Yes, you are correct.  I thought the same when I read them, but I didn't
want to mention them as it might detract from the really important issue of
the Rootkit.

Overall, even though I am quite happy to take John's comments on board, I
will not be using it.  As I said before, it is a shame because it is such a
nice concept and one that would have solved a problem for me.

Regards
Max
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: 06 January 2006 13:34
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Himachi


  I don't know about the root kit, but I'm not sure I'd use the software in
any case.

  A quick read through the FAQ's and Forums shows a pattern of problems.
That is not a surprise given that it's new software, but I don't know if
it's something I would use for a client at this point.

  It also doesn't appear to be as forgiving as stated.  I saw a couple of
posts that said "I had to open all UDP ports on my firewall to get it to
work".  I'd never do that at a clients.  So yes, while it will do a NAT
transversal, it's still highly dependent on the Firewall/Router
configuration for it to work properly.  At it currently doesn't work if the
network is restricted to ports 80/443 and using a web proxy.

  The last thing I'd be somewhat nervous about is that it uses obscure
Windows API functions to do it's job.  Given that their not typically used,
they have the potential to buggy.  I saw a few posts that said that when the
software was installed, it interfered with other adapters that were
installed on the system.

  Overall sounds like it needs to mature a bit more.  Neat idea though.

Jim.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 8:15 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi


Thanks John,
That gives me some insight into it.  I am very wary of any mention of
Rootkits because once they are in, there is little or no chance of
discovering them, let alone removing them without a complete
re-installation.  It is a shame that they did not make mention of the fact
that this would happen right up front, then people could make an informed
decision before undertaking the installation and have prior warning before
the alert flashes on the screen.

>From what you have said, it does sound as if this particular program is
safe.

Many thanks

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 06 January 2006 12:51
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Reply,

Protection software mis-identifies software all the time.  It happens.
Hamachi installs a complete network layer because it is setting up a new
LAN.  How can I know that Hamachi isn't spyware or a trojan?  I can't.  How
do you know that any other program that you decide to use is not a Trojan?
You can't.  You have to Google the hell out of the company, look at user's
comments and just accept or not.

Hamachi has been in beta for well over a year.  There are entire lists for
users that play games over it (hundreds if not thousands - I didn't read
them all).  They are on beta release 9.9.9 (getting ready to release the
product).   This thing has been around, have literally 800,000 downloads (no
idea how many active users though).  The designer is a known security expert
from Canada who is releasing this product based on work he did as a
consultant for another company.  He is a known face, can be reached by
email, etc. etc.

Does this sound like a virus writer to you?

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 2:55 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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


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

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


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


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




From Gustav at cactus.dk  Fri Jan  6 08:37:58 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 15:37:58 +0100
Subject: [AccessD] More
	Strange	Autonumber	Behavior	-	Access	2002	(aka	Access XP)
Message-ID: <s3be8ee9.055@cactus.dk>

Hi Randall

OK, that explains.

/gustav

>>> RRANTHON at sentara.com 06-01-2006 14:11 >>>
HaH!!  I stand corrected...  I contacted my buddy who still works for
the @#$%^ company I left, (it was her app I fixed).  She had both an
autonumber field and an auto incrementing field that she set manually,
it was this one that bounced at 32K because of being set to integer.




From Lambert.Heenan at AIG.com  Fri Jan  6 08:39:36 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Fri, 6 Jan 2006 09:39:36 -0500 
Subject: [AccessD] More Strange Autonumber Behavior - Access
	2002(aka		Access XP)
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E286@xlivmbx21.aig.com>

We know that, Jim :-) We're just teasing. <vbg>

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Thursday, January 05, 2006 6:00 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002(aka
Access XP)


<<As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)>>

  Just having a bit of fun<g>

Jim.


From jwcolby at ColbyConsulting.com  Fri Jan  6 08:41:18 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 09:41:18 -0500
Subject: [AccessD] Himachi
In-Reply-To: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAW7DrIUv8Sk+BDIsZ6T0G1sKAAAAQAAAAggaEW+whlkCrB+KBiGgHFwEAAAAA@sherman.org.uk>
Message-ID: <000b01c612cf$4180fb20$647aa8c0@ColbyM6805>

>> A quick read through the FAQ's and Forums shows a pattern of problems.

You know, I can appreciate that.  However if you take a quick read through
the forums on Norton AV you would find the same.  Same for MacAfee, Zone
Alarm, Microsoft Office, WindowsXP... Do I make my point?  These are all
mature products that have been out for years and they all have "patterns of
problems".

This is a product still in Beta.  What it is is what it is.  They
acknowledge that there are problems, and they have a beta program just as
any other software manufacturer has. This guy is trying to solve a difficult
problem.  He has obviously spent a lot of time and effort on his product,
and his efforts continue.

This is a 1.0 (actually 0.9.9.9) product and of course many people just
don't touch first release products.  I do think that it a real, valid
product that has a marketplace, and that if it works for me, in my
particular circumstances, I will use it.  If I can't get it to work in a
given instance then obviously I won't use it there.  I can tell you that I
use Remote desktop where I can.  I have had instances where it just didn't
work, and I never discovered why.  Same with VNC.  I think this Hamachi
thingie is just another tool, which will work sometimes, and not in others.
When it does, it will solve some problems for me that I am trying to solve.

It doesn't matter to me whether you use it, obviously that is a decision
everyone makes for themselves.  But if "a pattern of problems" were to stop
us from using a product no valid program would ever gain a user base.  

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 9:00 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear Jim,
>> A quick read through the FAQ's and Forums shows a pattern of problems.

Yes, you are correct.  I thought the same when I read them, but I didn't
want to mention them as it might detract from the really important issue of
the Rootkit.

Overall, even though I am quite happy to take John's comments on board, I
will not be using it.  As I said before, it is a shame because it is such a
nice concept and one that would have solved a problem for me.

Regards
Max
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: 06 January 2006 13:34
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Himachi


  I don't know about the root kit, but I'm not sure I'd use the software in
any case.

  A quick read through the FAQ's and Forums shows a pattern of problems.
That is not a surprise given that it's new software, but I don't know if
it's something I would use for a client at this point.

  It also doesn't appear to be as forgiving as stated.  I saw a couple of
posts that said "I had to open all UDP ports on my firewall to get it to
work".  I'd never do that at a clients.  So yes, while it will do a NAT
transversal, it's still highly dependent on the Firewall/Router
configuration for it to work properly.  At it currently doesn't work if the
network is restricted to ports 80/443 and using a web proxy.

  The last thing I'd be somewhat nervous about is that it uses obscure
Windows API functions to do it's job.  Given that their not typically used,
they have the potential to buggy.  I saw a few posts that said that when the
software was installed, it interfered with other adapters that were
installed on the system.

  Overall sounds like it needs to mature a bit more.  Neat idea though.

Jim.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 8:15 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi


Thanks John,
That gives me some insight into it.  I am very wary of any mention of
Rootkits because once they are in, there is little or no chance of
discovering them, let alone removing them without a complete
re-installation.  It is a shame that they did not make mention of the fact
that this would happen right up front, then people could make an informed
decision before undertaking the installation and have prior warning before
the alert flashes on the screen.

>From what you have said, it does sound as if this particular program is
safe.

Many thanks

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 06 January 2006 12:51
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Reply,

Protection software mis-identifies software all the time.  It happens.
Hamachi installs a complete network layer because it is setting up a new
LAN.  How can I know that Hamachi isn't spyware or a trojan?  I can't.  How
do you know that any other program that you decide to use is not a Trojan?
You can't.  You have to Google the hell out of the company, look at user's
comments and just accept or not.

Hamachi has been in beta for well over a year.  There are entire lists for
users that play games over it (hundreds if not thousands - I didn't read
them all).  They are on beta release 9.9.9 (getting ready to release the
product).   This thing has been around, have literally 800,000 downloads (no
idea how many active users though).  The designer is a known security expert
from Canada who is releasing this product based on work he did as a
consultant for another company.  He is a known face, can be reached by
email, etc. etc.

Does this sound like a virus writer to you?

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 2:55 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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


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

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


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


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


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



From jwcolby at ColbyConsulting.com  Fri Jan  6 08:51:05 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 09:51:05 -0500
Subject: [AccessD] More Strange Autonumber Behavior -
	Access2002(aka		Access XP)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E286@xlivmbx21.aig.com>
Message-ID: <001c01c612d0$9f300620$647aa8c0@ColbyM6805>

>We know that, Jim :-) We're just teasing. <vbg>

Teasing?  Surrogate keys vs. Natural keys is a deadly serious business!

;~0 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Friday, January 06, 2006 9:40 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access2002(aka
Access XP)

We know that, Jim :-) We're just teasing. <vbg>

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Thursday, January 05, 2006 6:00 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002(aka
Access XP)


<<As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)>>

  Just having a bit of fun<g>

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



From jimdettman at earthlink.net  Fri Jan  6 09:20:57 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Fri, 6 Jan 2006 10:20:57 -0500
Subject: [AccessD] Himachi
In-Reply-To: <000b01c612cf$4180fb20$647aa8c0@ColbyM6805>
Message-ID: <NDEALJOEGMMPCDKIFGNFKEIOHNAA.jimdettman@earthlink.net>

John,

<<This is a 1.0 (actually 0.9.9.9) product and of course many people just
don't touch first release products. >>

  Yeah, I'm in that category for the most part.  I found out a long time ago
that it just doesn't pay to be on that bleeding edge.

  The only time I'll use something new is if there is simply no other way to
get the job done.  But I make darn sure the client knows what were working
with and that we'll most likely have problems.

Jim.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
Sent: Friday, January 06, 2006 9:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi


>> A quick read through the FAQ's and Forums shows a pattern of problems.

You know, I can appreciate that.  However if you take a quick read through
the forums on Norton AV you would find the same.  Same for MacAfee, Zone
Alarm, Microsoft Office, WindowsXP... Do I make my point?  These are all
mature products that have been out for years and they all have "patterns of
problems".

This is a product still in Beta.  What it is is what it is.  They
acknowledge that there are problems, and they have a beta program just as
any other software manufacturer has. This guy is trying to solve a difficult
problem.  He has obviously spent a lot of time and effort on his product,
and his efforts continue.

This is a 1.0 (actually 0.9.9.9) product and of course many people just
don't touch first release products.  I do think that it a real, valid
product that has a marketplace, and that if it works for me, in my
particular circumstances, I will use it.  If I can't get it to work in a
given instance then obviously I won't use it there.  I can tell you that I
use Remote desktop where I can.  I have had instances where it just didn't
work, and I never discovered why.  Same with VNC.  I think this Hamachi
thingie is just another tool, which will work sometimes, and not in others.
When it does, it will solve some problems for me that I am trying to solve.

It doesn't matter to me whether you use it, obviously that is a decision
everyone makes for themselves.  But if "a pattern of problems" were to stop
us from using a product no valid program would ever gain a user base.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 9:00 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear Jim,
>> A quick read through the FAQ's and Forums shows a pattern of problems.

Yes, you are correct.  I thought the same when I read them, but I didn't
want to mention them as it might detract from the really important issue of
the Rootkit.

Overall, even though I am quite happy to take John's comments on board, I
will not be using it.  As I said before, it is a shame because it is such a
nice concept and one that would have solved a problem for me.

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: 06 January 2006 13:34
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Himachi


  I don't know about the root kit, but I'm not sure I'd use the software in
any case.

  A quick read through the FAQ's and Forums shows a pattern of problems.
That is not a surprise given that it's new software, but I don't know if
it's something I would use for a client at this point.

  It also doesn't appear to be as forgiving as stated.  I saw a couple of
posts that said "I had to open all UDP ports on my firewall to get it to
work".  I'd never do that at a clients.  So yes, while it will do a NAT
transversal, it's still highly dependent on the Firewall/Router
configuration for it to work properly.  At it currently doesn't work if the
network is restricted to ports 80/443 and using a web proxy.

  The last thing I'd be somewhat nervous about is that it uses obscure
Windows API functions to do it's job.  Given that their not typically used,
they have the potential to buggy.  I saw a few posts that said that when the
software was installed, it interfered with other adapters that were
installed on the system.

  Overall sounds like it needs to mature a bit more.  Neat idea though.

Jim.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 8:15 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi


Thanks John,
That gives me some insight into it.  I am very wary of any mention of
Rootkits because once they are in, there is little or no chance of
discovering them, let alone removing them without a complete
re-installation.  It is a shame that they did not make mention of the fact
that this would happen right up front, then people could make an informed
decision before undertaking the installation and have prior warning before
the alert flashes on the screen.

>From what you have said, it does sound as if this particular program is
safe.

Many thanks

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 06 January 2006 12:51
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Reply,

Protection software mis-identifies software all the time.  It happens.
Hamachi installs a complete network layer because it is setting up a new
LAN.  How can I know that Hamachi isn't spyware or a trojan?  I can't.  How
do you know that any other program that you decide to use is not a Trojan?
You can't.  You have to Google the hell out of the company, look at user's
comments and just accept or not.

Hamachi has been in beta for well over a year.  There are entire lists for
users that play games over it (hundreds if not thousands - I didn't read
them all).  They are on beta release 9.9.9 (getting ready to release the
product).   This thing has been around, have literally 800,000 downloads (no
idea how many active users though).  The designer is a known security expert
from Canada who is releasing this product based on work he did as a
consultant for another company.  He is a known face, can be reached by
email, etc. etc.

Does this sound like a virus writer to you?

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 2:55 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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


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

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


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


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


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

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




From Gustav at cactus.dk  Fri Jan  6 09:33:31 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 16:33:31 +0100
Subject: [AccessD] Read picture of barcode
Message-ID: <s3be9be7.060@cactus.dk>

Hi all

Found this attempt:

  http://wiki.tcl.tk/13193

<quote>

This code will try to scan EAN-13 barcodes from jpeg images in the current working directory. You must include the EAN-13 encode/decode functions in the same directory as this small application.

It will scan the barcodes from images like http://pascal.scheffers.net/images/barcode-sample1.jpg (not inlined due to size).

The detection is sloooooow. And it will only work with rather clean images, sorry.

</quote>

but it is written in tcl which I've never used:

  http://www.tcl.tk 

/gustav



From Gustav at cactus.dk  Fri Jan  6 09:42:27 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 16:42:27 +0100
Subject: [AccessD] Read picture of barcode
Message-ID: <s3be9e09.061@cactus.dk>

- and here's an extensive source with toolkits, SDK, picture samples (!) and much more:

  http://www.bardecode.com/windows.html 

/gustav



From jwcolby at ColbyConsulting.com  Fri Jan  6 09:49:47 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 10:49:47 -0500
Subject: [AccessD] Withevents and object library version
In-Reply-To: <s3be62f9.036@cactus.dk>
Message-ID: <003001c612d8$d493cdd0$647aa8c0@ColbyM6805>

Gustav,

In this specific case (and in 9x% of all businesses?) the client does use
outlook.  Outlook has a programming model, where I can iterate mail folders,
iterate messages in that folder's message collection, iterate attachments to
each message's attachments collection etc.  You would not believe the work
out there in programming Outlook simply because so many companies use it.

>If a hit exists, the mail is downloaded, the attachment saved and a batch
file is called which unzips the attachment, processes it (by calling an
Access app), zips the processed file and mail it - and logs it all for
reference.

And I do all of this kind of stuff (including the zip/unzip) from right
inside of VBA.  No batch files, no having the batch file call some other app
etc.  Each step of my process logs statuses etc.

I know that other approaches exist but whipping out code all inside of
Access VBA is much cleaner where it is possible.  I am going to need to
learn the workaround of the Outlook Send security crap this time though.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 06, 2006 6:31 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Withevents and object library version

Hi John

You could add Outlook as a Reference by GUID specifying Major and Minor
version no.
Start from top (Outlook 2003) and continue until it doesn't fail.
Or maybe you could specify 0 for both Major and Minor and the current
version will be referenced - that is how it is supposed to work, but I
haven't found this method to work reliably.
Remember that the code will be left uncompiled, thus you need to recompile
which is not that easy ... if you recall the old threads on this.

By why use Outlook? It's a monster. If a client doesn't use Outlook then
what to do? Couldn't you just let a rule forward those mails to a known
environment, then poll that at some interval? 
For a specific purpose we did that. An old 266MHz machine runs The Bat!
client which polls via POP3 every five minute. If a hit exists, the mail is
downloaded, the attachment saved and a batch file is called which unzips the
attachment, processes it (by calling an Access app), zips the processed file
and mail it - and logs it all for reference.

Not as sexy as WithEvents, I know, but it works.

/gustav


>>> jwcolby at ColbyConsulting.com 05-01-2006 23:58 >>>
I am starting dev on a little app to strip attachments off of outlook emails
and file them on the disk.  In order to do this I have to grab an instance
of outlook and sink events for it (emails hitting a sub-folder).

My issue is that of all the Office applications, Outlook is the ONE app that
the Office install only allows you to keep a single version of.  Thus I have
an issue developing in it since my version is 2003 and most of my clients
have 2002.  I can do everything else just using late binding but sinking
events just requires knowing the object type at compile time.

Does anyone have reliable code for determining which version of Outlook is
installed and referencing that lib at run time?  
John W. Colby
www.ColbyConsulting.com 


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



From Gustav at cactus.dk  Fri Jan  6 10:13:14 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 17:13:14 +0100
Subject: [AccessD] Withevents and object library version
Message-ID: <s3bea540.062@cactus.dk>

Hi John

OK, that's more than picking an attachment and save it.
Would you let us know if you find a method solving your original question, please?

/gustav

>>> jwcolby at ColbyConsulting.com 06-01-2006 16:49 >>>
Gustav,

In this specific case (and in 9x% of all businesses?) the client does use
outlook.  Outlook has a programming model, where I can iterate mail folders,
iterate messages in that folder's message collection, iterate attachments to
each message's attachments collection etc.  You would not believe the work
out there in programming Outlook simply because so many companies use it.

>If a hit exists, the mail is downloaded, the attachment saved and a batch
file is called which unzips the attachment, processes it (by calling an
Access app), zips the processed file and mail it - and logs it all for
reference.

And I do all of this kind of stuff (including the zip/unzip) from right
inside of VBA.  No batch files, no having the batch file call some other app
etc.  Each step of my process logs statuses etc.

I know that other approaches exist but whipping out code all inside of
Access VBA is much cleaner where it is possible.  I am going to need to
learn the workaround of the Outlook Send security crap this time though.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 06, 2006 6:31 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Withevents and object library version

Hi John

You could add Outlook as a Reference by GUID specifying Major and Minor
version no.
Start from top (Outlook 2003) and continue until it doesn't fail.
Or maybe you could specify 0 for both Major and Minor and the current
version will be referenced - that is how it is supposed to work, but I
haven't found this method to work reliably.
Remember that the code will be left uncompiled, thus you need to recompile
which is not that easy ... if you recall the old threads on this.

By why use Outlook? It's a monster. If a client doesn't use Outlook then
what to do? Couldn't you just let a rule forward those mails to a known
environment, then poll that at some interval? 
For a specific purpose we did that. An old 266MHz machine runs The Bat!
client which polls via POP3 every five minute. If a hit exists, the mail is
downloaded, the attachment saved and a batch file is called which unzips the
attachment, processes it (by calling an Access app), zips the processed file
and mail it - and logs it all for reference.

Not as sexy as WithEvents, I know, but it works.

/gustav


>>> jwcolby at ColbyConsulting.com 05-01-2006 23:58 >>>
I am starting dev on a little app to strip attachments off of outlook emails
and file them on the disk.  In order to do this I have to grab an instance
of outlook and sink events for it (emails hitting a sub-folder).

My issue is that of all the Office applications, Outlook is the ONE app that
the Office install only allows you to keep a single version of.  Thus I have
an issue developing in it since my version is 2003 and most of my clients
have 2002.  I can do everything else just using late binding but sinking
events just requires knowing the object type at compile time.

Does anyone have reliable code for determining which version of Outlook is
installed and referencing that lib at run time?  
John W. Colby
www.ColbyConsulting.com 




From jwcolby at ColbyConsulting.com  Fri Jan  6 10:37:57 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 11:37:57 -0500
Subject: [AccessD] Buttons in spreadsheets
Message-ID: <004e01c612df$8e149b80$647aa8c0@ColbyM6805>

Is there any way to "drag and drop" a control such a check box onto cells of
a spreadsheet?  IOW, "bind" a checkbox to a cell?

If that can be done, can I do this programmatically?

I am trying to build a spreadsheet which will be attached to an email.  The
spreadsheet will have locked columns where I write info and a pair of
columns where the recipient "checks".  I would like to make the checks an
actual control so that I don't have to depend on them "getting it right".
The spreadsheet is then returned to me for processing.

While we are at it, how do I cause a square area of the spreadsheet to be a
named range?  I have never done this kind of stuff before and don't want to
spend time figuring it out if someone has done it before.

So I open a "template" spreadsheet, add data into two columns - anywhere
from a few to a hundred different rows, two columns.  Attach it to a
spreadsheet and mail it.  When I get it back, I open it, read data out of
two difference columns, looking for True/False (if controls in the cells) or
an X or something similar if no control.

John W. Colby
www.ColbyConsulting.com 




From Gustav at cactus.dk  Fri Jan  6 11:20:03 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 18:20:03 +0100
Subject: [AccessD] Buttons in spreadsheets
Message-ID: <s3beb4eb.067@cactus.dk>

Hi John

Select (mark) the area.
Choose menu Insert, Named Range, Define. 
Type in the name of the new Named Range.
Click Add.
Click OK.

/gustav

>>> jwcolby at ColbyConsulting.com 06-01-2006 17:37 >>>

While we are at it, how do I cause a square area of the spreadsheet to be a
named range?  I have never done this kind of stuff before and don't want to
spend time figuring it out if someone has done it before.





From Lambert.Heenan at AIG.com  Fri Jan  6 11:20:41 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Fri, 6 Jan 2006 12:20:41 -0500 
Subject: [AccessD] Buttons in spreadsheets
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E38F@xlivmbx21.aig.com>

John,

I don't think you can bind a control to a cell in Excel, but take a look at
'Data Validation'. One simple way 
to do what you want is this...

First, in some out of the way area of the worksheet, enter TRUE and FALSE in
a couple of cells. 
Then select the whole column where you want the users to enter the
true/false datum.
Next on the 'Data' menu select 'Validation'. You'll get a three tab dialog
box. On the Settings tab there is a combo called 'Allow'. Select 'List' from
this combo and then in the 'Source' box below hit the little red-arrow to
select the two cells where you typed TRUE and FALSE, then hit OK.

Now when the users select any cell in the column you just defined data
validation for, they will get a combo button which will allow them to enter
True or False, and nothing else.

HTH

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 11:38 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Buttons in spreadsheets


Is there any way to "drag and drop" a control such a check box onto cells of
a spreadsheet?  IOW, "bind" a checkbox to a cell?

If that can be done, can I do this programmatically?

I am trying to build a spreadsheet which will be attached to an email.  The
spreadsheet will have locked columns where I write info and a pair of
columns where the recipient "checks".  I would like to make the checks an
actual control so that I don't have to depend on them "getting it right".
The spreadsheet is then returned to me for processing.

While we are at it, how do I cause a square area of the spreadsheet to be a
named range?  I have never done this kind of stuff before and don't want to
spend time figuring it out if someone has done it before.

So I open a "template" spreadsheet, add data into two columns - anywhere
from a few to a hundred different rows, two columns.  Attach it to a
spreadsheet and mail it.  When I get it back, I open it, read data out of
two difference columns, looking for True/False (if controls in the cells) or
an X or something similar if no control.

John W. Colby
www.ColbyConsulting.com 


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


From jwcolby at ColbyConsulting.com  Fri Jan  6 11:30:09 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 12:30:09 -0500
Subject: [AccessD] Can't write to an Excel spreadsheet
Message-ID: <005201c612e6$d99fe2b0$647aa8c0@ColbyM6805>

I created a spreadsheet in a workbook.  Placed text names in the top row for
four columns, saved the sheet.  I then linked the sheet to Access.  With no
data in the spreadsheet, the table shows no data, and there is no new record
row.  If I try to append data to Columns A and B using an append query, I
get a "you are using a non-updateable query" or something similar.  If I
name a range and link to the named range, with actual data in a few records,
the entire range shows, the data shows in the first few rows, but the whole
thing is non-updateable.

I thought that an Excel spreadsheet was updateable from Access.  Am I doing
something wrong or is Excel indeed not updateable from Access?

John W. Colby
www.ColbyConsulting.com 




From papparuff at comcast.net  Fri Jan  6 11:36:20 2006
From: papparuff at comcast.net (papparuff at comcast.net)
Date: Fri, 06 Jan 2006 17:36:20 +0000
Subject: [AccessD] Buttons in spreadsheets
Message-ID: <010620061736.11320.43BEAA94000AEDAB00002C38220730079300009A9D0E9F9F0E9F@comcast.net>

Download the self-extracting file Xpautomation.exe from http://support.microsoft.com/default.aspx?scid=kb;en-us;302460 for examples of using Access and Automation for manipulating Word, Excel, Outlook, etc. Even though it is for Office XP, it also works with Office 2003.

There are excellent examples here.

--
John V. Ruff ? The Eternal Optimist :-) 

?Commit to the Lord whatever you do, 
and your plans will succeed.? Proverbs 16:3

-------------- Original message -------------- 
From: "John Colby" <jwcolby at ColbyConsulting.com> 

> Is there any way to "drag and drop" a control such a check box onto cells of 
> a spreadsheet? IOW, "bind" a checkbox to a cell? 
> 
> If that can be done, can I do this programmatically? 
> 
> I am trying to build a spreadsheet which will be attached to an email. The 
> spreadsheet will have locked columns where I write info and a pair of 
> columns where the recipient "checks". I would like to make the checks an 
> actual control so that I don't have to depend on them "getting it right". 
> The spreadsheet is then returned to me for processing. 
> 
> While we are at it, how do I cause a square area of the spreadsheet to be a 
> named range? I have never done this kind of stuff before and don't want to 
> spend time figuring it out if someone has done it before. 
> 
> So I open a "template" spreadsheet, add data into two columns - anywhere 
> from a few to a hundred different rows, two columns. Attach it to a 
> spreadsheet and mail it. When I get it back, I open it, read data out of 
> two difference columns, looking for True/False (if controls in the cells) or 
> an X or something similar if no control. 
> 
> John W. Colby 
> www.ColbyConsulting.com 
> 
> 
> -- 
> AccessD mailing list 
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 

From Jim.Hale at FleetPride.com  Fri Jan  6 11:38:38 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Fri, 6 Jan 2006 11:38:38 -0600 
Subject: [AccessD] Buttons in spreadsheets
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD949@corp-es01.fleetpride.com>

Since you are using a template there is a slick way to create dynamic
ranges.  I assume your two columns are A and B and you will have a header in
cell A1 and B1. in the template go <insert><name><define>. put the name you
want for the range (ex DATA1) and in the 'refers to' box type
"=offset($a$1,0,0,counta($a:$a),counta($1:$1))" (no quotes) and click <add>.
To test add data to the range, press F5 and type DATA1. The whole range
should be highlighted. Add or delete more data and hit F5. The new range
should be selected. This range name can be refered to in code. You do need
to have auto calc on in the spreasheet so that the formulas will compute.
HTH
Jim Hale

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Friday, January 06, 2006 10:38 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Buttons in spreadsheets


Is there any way to "drag and drop" a control such a check box onto cells of
a spreadsheet?  IOW, "bind" a checkbox to a cell?

If that can be done, can I do this programmatically?

I am trying to build a spreadsheet which will be attached to an email.  The
spreadsheet will have locked columns where I write info and a pair of
columns where the recipient "checks".  I would like to make the checks an
actual control so that I don't have to depend on them "getting it right".
The spreadsheet is then returned to me for processing.

While we are at it, how do I cause a square area of the spreadsheet to be a
named range?  I have never done this kind of stuff before and don't want to
spend time figuring it out if someone has done it before.

So I open a "template" spreadsheet, add data into two columns - anywhere
from a few to a hundred different rows, two columns.  Attach it to a
spreadsheet and mail it.  When I get it back, I open it, read data out of
two difference columns, looking for True/False (if controls in the cells) or
an X or something similar if no control.

John W. Colby
www.ColbyConsulting.com 


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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From carbonnb at gmail.com  Fri Jan  6 11:40:17 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Fri, 6 Jan 2006 12:40:17 -0500
Subject: [AccessD] Buttons in spreadsheets
In-Reply-To: <004e01c612df$8e149b80$647aa8c0@ColbyM6805>
References: <004e01c612df$8e149b80$647aa8c0@ColbyM6805>
Message-ID: <e04a6c920601060940s2a7f8bdbj@mail.gmail.com>

On 06/01/06, John Colby <jwcolby at colbyconsulting.com> wrote:
> Is there any way to "drag and drop" a control such a check box onto cells of
> a spreadsheet?  IOW, "bind" a checkbox to a cell?

AFAIK, you can't bind a checkbox to a cell, but you can write code to
handle when the user checks or unchecks it.

The checkboxes are on the Controls toolbar in Excel.

> If that can be done, can I do this programmatically?

Probably, but I can't say for sure.

> While we are at it, how do I cause a square area of the spreadsheet to be a
> named range?  I have never done this kind of stuff before and don't want to
> spend time figuring it out if someone has done it before.

Select the range of cells that you want to name. Select Insert | Name
| Define... from the menu.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From Lambert.Heenan at AIG.com  Fri Jan  6 11:41:24 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Fri, 6 Jan 2006 11:41:24 -0600 
Subject: [AccessD] Can't write to an Excel spreadsheet
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E3BF@xlivmbx21.aig.com>

There were a couple of threads on this a few weeks ago.

Apparently M$ lost some law suit and the end result was they had to disable
the ability of Access to update Excel. You can still export to Excel, but
that's it - I think.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:30 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Can't write to an Excel spreadsheet


I created a spreadsheet in a workbook.  Placed text names in the top row for
four columns, saved the sheet.  I then linked the sheet to Access.  With no
data in the spreadsheet, the table shows no data, and there is no new record
row.  If I try to append data to Columns A and B using an append query, I
get a "you are using a non-updateable query" or something similar.  If I
name a range and link to the named range, with actual data in a few records,
the entire range shows, the data shows in the first few rows, but the whole
thing is non-updateable.

I thought that an Excel spreadsheet was updateable from Access.  Am I doing
something wrong or is Excel indeed not updateable from Access?

John W. Colby
www.ColbyConsulting.com 



From jwcolby at ColbyConsulting.com  Fri Jan  6 11:47:22 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 12:47:22 -0500
Subject: [AccessD] Can't write to an Excel spreadsheet
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E3BF@xlivmbx21.aig.com>
Message-ID: <005c01c612e9$412520b0$647aa8c0@ColbyM6805>

Oh yea, I remember.  What a PITA.  That throws a major wrench in the works.
I was hoping to open a predefined spreadsheet, with locked columns, named
ranges etc., then just export data to it, attach to an email and send.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Friday, January 06, 2006 12:41 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet

There were a couple of threads on this a few weeks ago.

Apparently M$ lost some law suit and the end result was they had to disable
the ability of Access to update Excel. You can still export to Excel, but
that's it - I think.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:30 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Can't write to an Excel spreadsheet


I created a spreadsheet in a workbook.  Placed text names in the top row for
four columns, saved the sheet.  I then linked the sheet to Access.  With no
data in the spreadsheet, the table shows no data, and there is no new record
row.  If I try to append data to Columns A and B using an append query, I
get a "you are using a non-updateable query" or something similar.  If I
name a range and link to the named range, with actual data in a few records,
the entire range shows, the data shows in the first few rows, but the whole
thing is non-updateable.

I thought that an Excel spreadsheet was updateable from Access.  Am I doing
something wrong or is Excel indeed not updateable from Access?

John W. Colby
www.ColbyConsulting.com 

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



From Lambert.Heenan at AIG.com  Fri Jan  6 12:17:50 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Fri, 6 Jan 2006 13:17:50 -0500 
Subject: [AccessD] Can't write to an Excel spreadsheet
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E403@xlivmbx21.aig.com>

There's always Automation though. More effort, but it works. 

See http://support.microsoft.com/default.aspx?scid=kb;en-us;302460 for a
recent help file on the subject.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:47 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet


Oh yea, I remember.  What a PITA.  That throws a major wrench in the works.
I was hoping to open a predefined spreadsheet, with locked columns, named
ranges etc., then just export data to it, attach to an email and send.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Friday, January 06, 2006 12:41 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet

There were a couple of threads on this a few weeks ago.

Apparently M$ lost some law suit and the end result was they had to disable
the ability of Access to update Excel. You can still export to Excel, but
that's it - I think.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:30 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Can't write to an Excel spreadsheet


I created a spreadsheet in a workbook.  Placed text names in the top row for
four columns, saved the sheet.  I then linked the sheet to Access.  With no
data in the spreadsheet, the table shows no data, and there is no new record
row.  If I try to append data to Columns A and B using an append query, I
get a "you are using a non-updateable query" or something similar.  If I
name a range and link to the named range, with actual data in a few records,
the entire range shows, the data shows in the first few rows, but the whole
thing is non-updateable.

I thought that an Excel spreadsheet was updateable from Access.  Am I doing
something wrong or is Excel indeed not updateable from Access?

John W. Colby
www.ColbyConsulting.com 

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

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


From Lambert.Heenan at AIG.com  Fri Jan  6 12:20:36 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Fri, 6 Jan 2006 13:20:36 -0500 
Subject: [AccessD] Can't write to an Excel spreadsheet
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E404@xlivmbx21.aig.com>

And here is an example of adding data to an Excel file from the Automation
help file...

Sub bulkTransfer()

   Dim xlApp As Excel.Application
   Dim xlBook As Workbook
   Dim xlSheet As Worksheet

   'Start a new workbook in Excel.
   Set xlApp = CreateObject("Excel.Application")
   Set xlBook = xlApp.Workbooks.Add

   'Create an array that contains 3 columns and 100 rows.
   Dim aryData(1 To 100, 1 To 3) As Variant
   Dim intCount As Integer

   For intCount = 1 To 100
      aryData(intCount, 1) = "ORD" & Format(r, "0000")
      aryData(intCount, 2) = Rnd() * 1000
      aryData(intCount, 3) = aryData(intCount, 2) * 0.7
   Next

   'Add headers to the worksheet on row 1.
   Set xlSheet = xlBook.Worksheets(1)
   xlSheet.Range(xlSheet.Cells(1,1),xlSheet.Cells(1,3)).Value = Array("Order
ID", "Amount", "Tax")

   'Transfer the array to the worksheet, starting at cell A2.
   xlSheet.Range("A2").Resize(100, 3).Value = aryData
      
   'Save the workbook and quit Excel.
   xlBook.SaveAs "C:\My Documents\ArrayDump.xls"
   xlApp.Quit
   Set xlSheet = Nothing
   Set xlBook = Nothing
   Set xlApp = Nothing

End Sub

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:47 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet


Oh yea, I remember.  What a PITA.  That throws a major wrench in the works.
I was hoping to open a predefined spreadsheet, with locked columns, named
ranges etc., then just export data to it, attach to an email and send.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Friday, January 06, 2006 12:41 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet

There were a couple of threads on this a few weeks ago.

Apparently M$ lost some law suit and the end result was they had to disable
the ability of Access to update Excel. You can still export to Excel, but
that's it - I think.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:30 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Can't write to an Excel spreadsheet


I created a spreadsheet in a workbook.  Placed text names in the top row for
four columns, saved the sheet.  I then linked the sheet to Access.  With no
data in the spreadsheet, the table shows no data, and there is no new record
row.  If I try to append data to Columns A and B using an append query, I
get a "you are using a non-updateable query" or something similar.  If I
name a range and link to the named range, with actual data in a few records,
the entire range shows, the data shows in the first few rows, but the whole
thing is non-updateable.

I thought that an Excel spreadsheet was updateable from Access.  Am I doing
something wrong or is Excel indeed not updateable from Access?

John W. Colby
www.ColbyConsulting.com 

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

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


From artful at rogers.com  Fri Jan  6 12:45:26 2006
From: artful at rogers.com (Arthur Fuller)
Date: Fri, 6 Jan 2006 13:45:26 -0500
Subject: [AccessD] Himachi -> Hamachi
In-Reply-To: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAW7DrIUv8Sk+BDIsZ6T0G1sKAAAAQAAAAggaEW+whlkCrB+KBiGgHFwEAAAAA@sherman.org.uk>
Message-ID: <200601061845.k06IjWV04973@databaseadvisors.com>

Can anyone on this list spell? It's "Hamachi" not "Himachi". The former, the
correct name of the software in question, is also the Japanese word for
yellowtail fish.
Arthur



From jim.moss at jlmoss.net  Fri Jan  6 12:48:36 2006
From: jim.moss at jlmoss.net (Jim Moss)
Date: Fri, 6 Jan 2006 12:48:36 -0600 (CST)
Subject: [AccessD] Can't write to an Excel spreadsheet
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E404@xlivmbx21.aig.com>
References: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E404@xlivmbx21.aig.com>
Message-ID: <30180.65.196.182.34.1136573316.squirrel@65.196.182.34>

John,

Here's an example of Excel creation using CopyFromRecordset and
formatting. You should be able bind a control to a cell, just start macro
recording, do your control thing, and save the macro. Then you can copy
the vba into your access module.  You can also use macro recording to
figure out cell locking.

Jim


Set Rs1 = DbA.OpenRecordset("SELECT SupplierName, InvoiceNumber, PONumber,
DueDate, ERP, LocDesc, AmountInUSD, Status, APKey FROM
qrsAPTrialBalanceNorthAmerica WHERE SupplierName = GetSupplierNameLB();",
dbOpenSnapshot)

' CopyFromRecordset code
            intMaxCol = Rs1.Fields.Count
            If Rs1.RecordCount > 0 Then
                Rs1.MoveLast
                Rs1.MoveFirst
                intMaxRow = Rs1.RecordCount
                Set objXL = CreateObject("Excel.Application")
                With objXL
                    .Visible = False
                    Set objWkb = .Workbooks.Add
                    Set objSht = objWkb.Worksheets(1)
                        With objSht
                            .Range(.cells(2, 1), .cells(intMaxRow, _
                            intMaxCol)).CopyFromRecordset Rs1
                        End With
                        With objSht
                            .Columns("G:H").select
                            .Columns.NumberFormat = "#,##0.00"
                        End With
                        With objSht
                            .Columns("M:M").select
                            .Columns.NumberFormat = "#,##0.00"
                        End With
               End With
            End If
            objXL.Sheets("Sheet1").select
            objXL.Sheets("Sheet1").Name = GetCOID()
          objSht.cells(1, 1).select
          objSht.cells(1, 1).FormulaR1C1 = "ReportDate"
          objSht.cells(1, 1).interior.colorindex = 19
          objSht.cells(1, 2).select
          objSht.cells(1, 2).FormulaR1C1 = "GLAcct"
          objSht.cells(1, 2).interior.colorindex = 19
          objSht.cells(1, 3).select
          objSht.cells(1, 3).FormulaR1C1 = "SupplierName"
          objSht.cells(1, 3).interior.colorindex = 19
          objSht.cells(1, 4).select
          objSht.cells(1, 4).FormulaR1C1 = "InvoiceNumber"
          objSht.cells(1, 4).interior.colorindex = 19
          objSht.cells(1, 5).select
          objSht.cells(1, 5).FormulaR1C1 = "InvoiceDate"
          objSht.cells(1, 5).interior.colorindex = 19
          objSht.cells(1, 6).select
          objSht.cells(1, 6).FormulaR1C1 = "Curr"
          objSht.cells(1, 6).interior.colorindex = 19
          objSht.cells(1, 7).select
          objSht.cells(1, 7).FormulaR1C1 = "OriginalAmount"
          objSht.cells(1, 7).interior.colorindex = 19
          objSht.cells(1, 8).select
          objSht.cells(1, 8).FormulaR1C1 = "RemainingAmount"
          objSht.cells(1, 8).interior.colorindex = 19
          objSht.cells(1, 9).select
          objSht.cells(1, 9).FormulaR1C1 = "ERP"
          objSht.cells(1, 9).interior.colorindex = 19
          objSht.cells(1, 10).select
          objSht.cells(1, 10).FormulaR1C1 = "Location"
          objSht.cells(1, 10).interior.colorindex = 19
          objSht.cells(1, 11).select
          objSht.cells(1, 11).FormulaR1C1 = "Grouping"
          objSht.cells(1, 11).interior.colorindex = 19
          objSht.cells(1, 12).select
          objSht.cells(1, 12).FormulaR1C1 = "Category"
          objSht.cells(1, 12).interior.colorindex = 19
          objSht.cells(1, 13).select
          objSht.cells(1, 13).FormulaR1C1 = "AmtInUSD"
          objSht.cells(1, 13).interior.colorindex = 19
          objSht.cells(1, 14).select
          objSht.cells(1, 14).FormulaR1C1 = "Acct"
          objSht.cells(1, 14).interior.colorindex = 19
          objSht.cells(1, 15).select
          objSht.cells(1, 15).FormulaR1C1 = "Co"
          objSht.cells(1, 15).interior.colorindex = 19
           'objSht.Rows("1:1").Select
            objSht.rows("1:1").AutoFilter
            objSht.rows("2:2").select
            objXL.ActiveWindow.FreezePanes = True
         objWkb.SaveAs ("J:\Month End Reports\" & strUser &
"\APTrialBalance_" & strDate & "_" & MyERPOUR)
         objWkb.Close
         Set objSht = Nothing
         Set objWkb = Nothing
         Set objXL = Nothing
        Rs0.MoveNext
    Loop






> And here is an example of adding data to an Excel file from the Automation
> help file...
>
> Sub bulkTransfer()
>
>    Dim xlApp As Excel.Application
>    Dim xlBook As Workbook
>    Dim xlSheet As Worksheet
>
>    'Start a new workbook in Excel.
>    Set xlApp = CreateObject("Excel.Application")
>    Set xlBook = xlApp.Workbooks.Add
>
>    'Create an array that contains 3 columns and 100 rows.
>    Dim aryData(1 To 100, 1 To 3) As Variant
>    Dim intCount As Integer
>
>    For intCount = 1 To 100
>       aryData(intCount, 1) = "ORD" & Format(r, "0000")
>       aryData(intCount, 2) = Rnd() * 1000
>       aryData(intCount, 3) = aryData(intCount, 2) * 0.7
>    Next
>
>    'Add headers to the worksheet on row 1.
>    Set xlSheet = xlBook.Worksheets(1)
>    xlSheet.Range(xlSheet.Cells(1,1),xlSheet.Cells(1,3)).Value =
> Array("Order
> ID", "Amount", "Tax")
>
>    'Transfer the array to the worksheet, starting at cell A2.
>    xlSheet.Range("A2").Resize(100, 3).Value = aryData
>
>    'Save the workbook and quit Excel.
>    xlBook.SaveAs "C:\My Documents\ArrayDump.xls"
>    xlApp.Quit
>    Set xlSheet = Nothing
>    Set xlBook = Nothing
>    Set xlApp = Nothing
>
> End Sub
>
> Lambert
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
> Sent: Friday, January 06, 2006 12:47 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Can't write to an Excel spreadsheet
>
>
> Oh yea, I remember.  What a PITA.  That throws a major wrench in the
> works.
> I was hoping to open a predefined spreadsheet, with locked columns, named
> ranges etc., then just export data to it, attach to an email and send.
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
> Sent: Friday, January 06, 2006 12:41 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Can't write to an Excel spreadsheet
>
> There were a couple of threads on this a few weeks ago.
>
> Apparently M$ lost some law suit and the end result was they had to
> disable
> the ability of Access to update Excel. You can still export to Excel, but
> that's it - I think.
>
> Lambert
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
> Sent: Friday, January 06, 2006 12:30 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Can't write to an Excel spreadsheet
>
>
> I created a spreadsheet in a workbook.  Placed text names in the top row
> for
> four columns, saved the sheet.  I then linked the sheet to Access.  With
> no
> data in the spreadsheet, the table shows no data, and there is no new
> record
> row.  If I try to append data to Columns A and B using an append query, I
> get a "you are using a non-updateable query" or something similar.  If I
> name a range and link to the named range, with actual data in a few
> records,
> the entire range shows, the data shows in the first few rows, but the
> whole
> thing is non-updateable.
>
> I thought that an Excel spreadsheet was updateable from Access.  Am I
> doing
> something wrong or is Excel indeed not updateable from Access?
>
> John W. Colby
> www.ColbyConsulting.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>




From djkr at msn.com  Fri Jan  6 12:55:05 2006
From: djkr at msn.com (DJK(John) Robinson)
Date: Fri, 6 Jan 2006 18:55:05 -0000
Subject: [AccessD] Himachi -> Hamachi
In-Reply-To: <200601061845.k06IjWV04973@databaseadvisors.com>
Message-ID: <BAY106-DAV4183ABBD66FABEB5FB3D5D2210@phx.gbl>

Thanks, Arthur.  I've been itching to say that, but only just got to it!
John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: 06 January 2006 18:45
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi -> Hamachi


Can anyone on this list spell? It's "Hamachi" not "Himachi". The former, the
correct name of the software in question, is also the Japanese word for
yellowtail fish. Arthur

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


From papparuff at comcast.net  Fri Jan  6 13:08:01 2006
From: papparuff at comcast.net (John Ruff)
Date: Fri, 6 Jan 2006 11:08:01 -0800
Subject: [AccessD] Can't write to an Excel spreadsheet
In-Reply-To: <005c01c612e9$412520b0$647aa8c0@ColbyM6805>
Message-ID: <001c01c612f4$844dcfd0$6a01a8c0@DDMJWX41>

And here's some more code (using the CopyFromRecordset property.

Public Function CreateSpreadsheet() as boolean
  ' This routine permits you to quickly save data in a recordset to a
spreadsheet.  

  Dim xlApp As Excel.Application
  Dim xlBook As Excel.Workbook
  Dim xlSheet As Excel.Worksheet
  Dim dbsTemp As Database
  Dim rstTemp As Recordset
  Dim bolIsExcelRunning As Boolean
  Dim strFileName as string
  Dim strDirectory as string
  Dim intCount as integer  
  Dim intColCount as integer

  Set dbsTemp = CurrentDb

  Set rstTemp =
dbsTemp.OpenRecordset("qSel_AgingReport_Summary_Spreadsheet_Final")

  ' This is the directory where the spreadsheet will be saved to
  strDirectory="N:\COMMON\MSSP\AGING REPORT\"
  ' This is the File Name
  strFileName="MySpreadsheet.xls"

  ' Determine if Excel is open
  bolIsExcelRunning = IsExcelRunning()
 
  ' Create a Worksheet Object
  If bolIsExcelRunning Then
    Set xlApp = GetObject(, "Excel.Application")   
  Else
    Set xlApp = CreateObject("Excel.Application")
  End If
    
  ' Create a new workbook
  Set xlBook = xlApp.Workbooks.Add()
  
  ' Provide a name for the worksheet
  For Each xlSheet In xlBook.Worksheets
    If xlSheet.Name = "Sheet1" Then
      xlSheet.Name = "Aging Report Summary"
    End If
    If xlSheet.Name = "Sheet2" Then
      xlSheet.Name = "Aging Report Detail"
    End If
  Next
   
  Set xlSheet = xlBook.Worksheets("Aging Report Summary")

  xlSheet.Visible = True
  xlSheet.Activate

  intColCount = rstTemp.Fields.Count
 
  ' Place Column Headers onto the spreadsheet starting in cell A1
  With xlSheet.Range("A1")
    For intCol = 0 To intColCount - 1
      .Cells(1, intCol + 1).Value = rstTemp.Fields(intCol).Name
    Next intCol
  End With
  
  ' Copy the recordset to the spreadsheet starting in cell A2
  xlSheet.Range("A2").CopyFromRecordset rstTemp


 
  ' Saving and quitting
 
  ' Save the file
  xlBook.Close savechanges:=True, FileName:=strDirectory & strFileName

  ' Quit
  If Not bolIsExcelRunning Then
    xlApp.Quit
  End If
  
  Set xlSheet = Nothing
  Set xlBook = Nothing
  Set xlApp = Nothing

  ' Reset error object to 0
  Err = 0

End Function

Public Function IsExcelRunning() As Boolean
' This function determines if Excel is running
    Dim xlApp As Excel.Application
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    IsExcelRunning = (Err.Number = 0)
    Set xlApp = Nothing
    Err.Clear
End Function



John V. Ruff - The Eternal Optimist :-)
 
"Commit to the Lord whatever you do,
                and your plans will succeed." Proverbs 16:3
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet

Oh yea, I remember.  What a PITA.  That throws a major wrench in the works.
I was hoping to open a predefined spreadsheet, with locked columns, named
ranges etc., then just export data to it, attach to an email and send.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Friday, January 06, 2006 12:41 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet

There were a couple of threads on this a few weeks ago.

Apparently M$ lost some law suit and the end result was they had to disable
the ability of Access to update Excel. You can still export to Excel, but
that's it - I think.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:30 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Can't write to an Excel spreadsheet


I created a spreadsheet in a workbook.  Placed text names in the top row for
four columns, saved the sheet.  I then linked the sheet to Access.  With no
data in the spreadsheet, the table shows no data, and there is no new record
row.  If I try to append data to Columns A and B using an append query, I
get a "you are using a non-updateable query" or something similar.  If I
name a range and link to the named range, with actual data in a few records,
the entire range shows, the data shows in the first few rows, but the whole
thing is non-updateable.

I thought that an Excel spreadsheet was updateable from Access.  Am I doing
something wrong or is Excel indeed not updateable from Access?

John W. Colby
www.ColbyConsulting.com 

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

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



From KIsmert at texassystems.com  Fri Jan  6 13:13:25 2006
From: KIsmert at texassystems.com (Ken Ismert)
Date: Fri, 6 Jan 2006 13:13:25 -0600
Subject: [AccessD] Himachi
Message-ID: <B7C87D3ABC87FC4E8CFE054CE2E8868A314DF9@aries.TexasSystems.local>

 
Jim,

<<John> This is a ... 0.9.9.9 product>

<<Jim> ... I found out a long time ago that it just doesn't pay to be on
that bleeding edge > 

Certainly, for commercial, Closed Source code, this is a wise strategy.

But I just want to point out that in Open Source, versions actually Mean
Something. 1.0 for an Open Source product means that the writers say
'this works'. Their reputation and credibility are on the line. Thus,
you see Open Source projects move very slowly to 1.0, with lots of
public testing. 

Think of it: this guy has an 800,000 user beta program on this product.
That's larger than the beta team that worked on Windows 2000, IIRC. 

Typically, a 1.0 Open Source product is stable, well tested, and works
in a real sense of the word. 

Regarding the users who say things like "I had to open all UDP ports on
my firewall to get it to work", that sounds a lot like network newbies
flailing away. Of course, turning off the firewall would get nearly
anything to work. The Hamachi author freely admits that the free version
will work in 97% of cases. The other 3% will require his "pro" version,
that requires dedicated (but still just as secure) third-party
connection hosting (and thus requires a fee). That's his business model,
and that's how he intends to keep on fixing and expanding the product. 

-Ken


From jwcolby at ColbyConsulting.com  Fri Jan  6 13:20:15 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 14:20:15 -0500
Subject: [AccessD] Can't write to an Excel spreadsheet
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E403@xlivmbx21.aig.com>
Message-ID: <000001c612f6$39ff5f50$647aa8c0@ColbyM6805>

Yea, I already have automation figured out (I think).

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Friday, January 06, 2006 1:18 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet

There's always Automation though. More effort, but it works. 

See http://support.microsoft.com/default.aspx?scid=kb;en-us;302460 for a
recent help file on the subject.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:47 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet


Oh yea, I remember.  What a PITA.  That throws a major wrench in the works.
I was hoping to open a predefined spreadsheet, with locked columns, named
ranges etc., then just export data to it, attach to an email and send.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Friday, January 06, 2006 12:41 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet

There were a couple of threads on this a few weeks ago.

Apparently M$ lost some law suit and the end result was they had to disable
the ability of Access to update Excel. You can still export to Excel, but
that's it - I think.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:30 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Can't write to an Excel spreadsheet


I created a spreadsheet in a workbook.  Placed text names in the top row for
four columns, saved the sheet.  I then linked the sheet to Access.  With no
data in the spreadsheet, the table shows no data, and there is no new record
row.  If I try to append data to Columns A and B using an append query, I
get a "you are using a non-updateable query" or something similar.  If I
name a range and link to the named range, with actual data in a few records,
the entire range shows, the data shows in the first few rows, but the whole
thing is non-updateable.

I thought that an Excel spreadsheet was updateable from Access.  Am I doing
something wrong or is Excel indeed not updateable from Access?

John W. Colby
www.ColbyConsulting.com 

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

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



From jwcolby at ColbyConsulting.com  Fri Jan  6 13:21:33 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 14:21:33 -0500
Subject: [AccessD] Himachi -> Hamachi
In-Reply-To: <200601061845.k06IjWV04973@databaseadvisors.com>
Message-ID: <000101c612f6$68087f80$647aa8c0@ColbyM6805>

Yur gittin awflee ornree n yur old age.

;-)  


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: Friday, January 06, 2006 1:45 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi -> Hamachi

Can anyone on this list spell? It's "Hamachi" not "Himachi". The former, the
correct name of the software in question, is also the Japanese word for
yellowtail fish.
Arthur

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



From jwcolby at ColbyConsulting.com  Fri Jan  6 13:29:14 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 14:29:14 -0500
Subject: [AccessD] Hamachi
In-Reply-To: <B7C87D3ABC87FC4E8CFE054CE2E8868A314DF9@aries.TexasSystems.local>
Message-ID: <000201c612f7$7c70b0e0$647aa8c0@ColbyM6805>

Well... 

AFAICT this is not open source.
The "Beta program" does not have 800k beta users, the beta program has been
downloaded 800k times.  I downloaded it but I do not consider myself a beta
tester, just a (potential) user of a product still in beta.

Still, 800k downloads all by itself says a lot about the product.

As for all the rest, yup.  It certainly looks to me like a stable product,
with a knowledgeable developer behind the wheels, with a valid business
strategy for survival.  

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ken Ismert
Sent: Friday, January 06, 2006 2:13 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Hamachi

 
Jim,

<<John> This is a ... 0.9.9.9 product>

<<Jim> ... I found out a long time ago that it just doesn't pay to be on
that bleeding edge > 

Certainly, for commercial, Closed Source code, this is a wise strategy.

But I just want to point out that in Open Source, versions actually Mean
Something. 1.0 for an Open Source product means that the writers say 'this
works'. Their reputation and credibility are on the line. Thus, you see Open
Source projects move very slowly to 1.0, with lots of public testing. 

Think of it: this guy has an 800,000 user beta program on this product.
That's larger than the beta team that worked on Windows 2000, IIRC. 

Typically, a 1.0 Open Source product is stable, well tested, and works in a
real sense of the word. 

Regarding the users who say things like "I had to open all UDP ports on my
firewall to get it to work", that sounds a lot like network newbies flailing
away. Of course, turning off the firewall would get nearly anything to work.
The Hamachi author freely admits that the free version will work in 97% of
cases. The other 3% will require his "pro" version, that requires dedicated
(but still just as secure) third-party connection hosting (and thus requires
a fee). That's his business model, and that's how he intends to keep on
fixing and expanding the product. 

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



From Jim.Hale at FleetPride.com  Fri Jan  6 16:06:38 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Fri, 6 Jan 2006 16:06:38 -0600 
Subject: [AccessD] Can't write to an Excel spreadsheet
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD94D@corp-es01.fleetpride.com>

FYI you can designate the top left cell and execute the paste without having
to designate the entire range. ie.
".Range("A2").CopyFromRecordset Rs1" would work just as well eliminating the
need to determine intMaxRow and intMaxCol.
Jim Hale

-----Original Message-----
From: Jim Moss [mailto:jim.moss at jlmoss.net]
Sent: Friday, January 06, 2006 12:49 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Can't write to an Excel spreadsheet


John,

Here's an example of Excel creation using CopyFromRecordset and
formatting. You should be able bind a control to a cell, just start macro
recording, do your control thing, and save the macro. Then you can copy
the vba into your access module.  You can also use macro recording to
figure out cell locking.

Jim


Set Rs1 = DbA.OpenRecordset("SELECT SupplierName, InvoiceNumber, PONumber,
DueDate, ERP, LocDesc, AmountInUSD, Status, APKey FROM
qrsAPTrialBalanceNorthAmerica WHERE SupplierName = GetSupplierNameLB();",
dbOpenSnapshot)

' CopyFromRecordset code
            intMaxCol = Rs1.Fields.Count
            If Rs1.RecordCount > 0 Then
                Rs1.MoveLast
                Rs1.MoveFirst
                intMaxRow = Rs1.RecordCount
                Set objXL = CreateObject("Excel.Application")
                With objXL
                    .Visible = False
                    Set objWkb = .Workbooks.Add
                    Set objSht = objWkb.Worksheets(1)
                        With objSht
                            .Range(.cells(2, 1), .cells(intMaxRow, _
                            intMaxCol)).CopyFromRecordset Rs1
                        End With
                        With objSht
                            .Columns("G:H").select
                            .Columns.NumberFormat = "#,##0.00"
                        End With
                        With objSht
                            .Columns("M:M").select
                            .Columns.NumberFormat = "#,##0.00"
                        End With
               End With
            End If
           

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From jmhecht at earthlink.net  Fri Jan  6 21:10:29 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 6 Jan 2006 19:10:29 -0800
Subject: [AccessD] Naming conventions
Message-ID: <002201c61337$eb0e9bd0$6701a8c0@HPLaptop>

Who renames all controls in Access?

 

Who just renames controls that you write code against?

 

Joe Hecht

jmhecht at earthlink.net

 



From carbonnb at gmail.com  Fri Jan  6 22:07:08 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Fri, 6 Jan 2006 23:07:08 -0500
Subject: [AccessD] Naming conventions
In-Reply-To: <002201c61337$eb0e9bd0$6701a8c0@HPLaptop>
References: <002201c61337$eb0e9bd0$6701a8c0@HPLaptop>
Message-ID: <e04a6c920601062007n57f98d2u@mail.gmail.com>

On 06/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> Who renames all controls in Access?

I rename them all. Label and all.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From Jeff at outbaktech.com  Fri Jan  6 22:12:14 2006
From: Jeff at outbaktech.com (Jeff Barrows)
Date: Fri, 6 Jan 2006 22:12:14 -0600
Subject: [AccessD] Naming conventions
Message-ID: <E2FBF0A51D2A324C90BA16C566366A6D014BC3@belgarion.Outbak.local>

I try and rename them all, including labels also.

Jeff Barrows
MCP, MCAD, MCSD
 
Outbak Technologies, LLC
Racine, WI
Phone:  (262) 886-5913
Fax:      (262) 886-5932
jeff at outbaktech.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan
Carbonnell
Sent: Friday, January 06, 2006 10:07 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Naming conventions

On 06/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> Who renames all controls in Access?

I rename them all. Label and all.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jmhecht at earthlink.net  Fri Jan  6 22:14:42 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 6 Jan 2006 20:14:42 -0800
Subject: [AccessD] Naming conventions
In-Reply-To: <e04a6c920601062007n57f98d2u@mail.gmail.com>
Message-ID: <003001c61340$e2eaa120$6701a8c0@HPLaptop>

Manually or do have some power code?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bryan Carbonnell
Sent: Friday, January 06, 2006 8:07 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Naming conventions

On 06/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> Who renames all controls in Access?

I rename them all. Label and all.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a
well
preserved body, but rather to skid in sideways, totally worn
out,
shouting "What a great ride!"
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From carbonnb at gmail.com  Fri Jan  6 22:18:26 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Fri, 6 Jan 2006 23:18:26 -0500
Subject: [AccessD] Naming conventions
In-Reply-To: <003001c61340$e2eaa120$6701a8c0@HPLaptop>
References: <e04a6c920601062007n57f98d2u@mail.gmail.com>
	<003001c61340$e2eaa120$6701a8c0@HPLaptop>
Message-ID: <e04a6c920601062018u777c108eu@mail.gmail.com>

On 06/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> Manually or do have some power code?

Manually as I add the control to the form.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From jwcolby at ColbyConsulting.com  Fri Jan  6 22:29:46 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 23:29:46 -0500
Subject: [AccessD] Naming conventions
In-Reply-To: <002201c61337$eb0e9bd0$6701a8c0@HPLaptop>
Message-ID: <002201c61342$fdc51a00$647aa8c0@ColbyM6805>

I generally do not rename them until I need to write code against them.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Friday, January 06, 2006 10:10 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Naming conventions

Who renames all controls in Access?

 

Who just renames controls that you write code against?

 

Joe Hecht

jmhecht at earthlink.net

 

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



From dwaters at usinternet.com  Fri Jan  6 22:35:10 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Fri, 6 Jan 2006 22:35:10 -0600
Subject: [AccessD] Naming conventions
In-Reply-To: <22544379.1136603686714.JavaMail.root@sniper19>
Message-ID: <000001c61343$beedcd30$0300a8c0@danwaters>

I rename just the ones I write code against.  But then, that's just about
everything!

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Friday, January 06, 2006 9:10 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Naming conventions

Who renames all controls in Access?

 

Who just renames controls that you write code against?

 

Joe Hecht

jmhecht at earthlink.net

 

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



From jmhecht at earthlink.net  Fri Jan  6 22:52:19 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 6 Jan 2006 20:52:19 -0800
Subject: [AccessD] Date Diff Help
Message-ID: <003501c61346$23fd0220$6701a8c0@HPLaptop>

I am trying to do a an age calculation with the following
data source.

 

=DateDiff("yyyy",[DOB],Now())+Int(Format(Now(),"mmdd"))

 

DOB is the employees date of birth.

 

If Dob is 5/11/1940 I am expecting to get 65 back not 172.

 

TIA

 

Joe Hecht

jmhecht at earthlink.net

 



From jim.moss at jlmoss.net  Fri Jan  6 22:57:11 2006
From: jim.moss at jlmoss.net (Jim Moss)
Date: Fri, 6 Jan 2006 22:57:11 -0600 (CST)
Subject: [AccessD] email validation
Message-ID: <44801.65.196.182.34.1136609831.squirrel@65.196.182.34>

Does anyone have a good email validation module that they would be willing
to share?

Thanks,

Jim



From shamil at users.mns.ru  Fri Jan  6 23:13:41 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Sat, 7 Jan 2006 08:13:41 +0300
Subject: [AccessD] Naming conventions
References: <002201c61337$eb0e9bd0$6701a8c0@HPLaptop>
Message-ID: <004201c61349$285a3a60$6501a8c0@fincomplex.spb.ru>

Joe,

I rename all controls.
Several years ago I did write and I did publish add-ins to rename controls -
here they are:

http://www.smsconsulting.spb.ru/download/addins/accdeva97.zip
http://www.smsconsulting.spb.ru/download/addins/accdeva2k.zip
http://www.smsconsulting.spb.ru/download/addins/accdevaxp.zip

There is online help inside.

HTH,
Shamil

----- Original Message ----- 
From: "Joe Hecht" <jmhecht at earthlink.net>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Saturday, January 07, 2006 6:10 AM
Subject: [AccessD] Naming conventions


> Who renames all controls in Access?
>
>
>
> Who just renames controls that you write code against?
>
>
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From jmhecht at earthlink.net  Fri Jan  6 23:20:53 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 6 Jan 2006 21:20:53 -0800
Subject: [AccessD] (no subject)
Message-ID: <004201c6134a$21ad48f0$6701a8c0@HPLaptop>

Trying to work my datediff problem I went to help (l)

 

When did the fate function start in 1980? Or is that another
random feature?


=Date()

Displays the current date in the form of mm-dd-yyyy, where
mm is the month (1 through 12), dd is the day (1 through
31), and yyyy is the year (1980 through 2099).

 

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Fri Jan  6 23:40:47 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 6 Jan 2006 21:40:47 -0800
Subject: [AccessD] Date Diff Help
In-Reply-To: <003501c61346$23fd0220$6701a8c0@HPLaptop>
Message-ID: <004701c6134c$e9ac4020$6701a8c0@HPLaptop>

Moral

Never, Ever use a copied text box. To many damn places the
formatting can kill you.

I got it now.

I think.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Friday, January 06, 2006 8:52 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Date Diff Help

I am trying to do a an age calculation with the following
data source.

 

=DateDiff("yyyy",[DOB],Now())+Int(Format(Now(),"mmdd"))

 

DOB is the employees date of birth.

 

If Dob is 5/11/1940 I am expecting to get 65 back not 172.

 

TIA

 

Joe Hecht

jmhecht at earthlink.net

 

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



From jmhecht at earthlink.net  Fri Jan  6 23:46:05 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 6 Jan 2006 21:46:05 -0800
Subject: [AccessD] Date Diff Help
In-Reply-To: <004701c6134c$e9ac4020$6701a8c0@HPLaptop>
Message-ID: <004801c6134d$a7813470$6701a8c0@HPLaptop>

Almost.

DOB = 5/11/1940

=DateDiff("yyyy", [DOB], Now())+ Int( Format(now(), "mmdd")
returns 66

=DateDiff("yyyy", [DOB], Now

Returns 172

Help Please
Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Friday, January 06, 2006 9:41 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Date Diff Help

Moral

Never, Ever use a copied text box. To many damn places the
formatting can kill you.

I got it now.

I think.

Joe Hecht
jmhecht at earthlink.net



From bhjohnson at verizon.net  Sat Jan  7 00:15:26 2006
From: bhjohnson at verizon.net (Bruce H. Johnson)
Date: Fri, 06 Jan 2006 22:15:26 -0800
Subject: [AccessD] email validation
In-Reply-To: <44801.65.196.182.34.1136609831.squirrel@65.196.182.34>
Message-ID: <000901c61351$c0d5beb0$6500a8c0@HALSR>

I found this somewhere:

Public Function EMail_Validate_EMailAddr(varEM As Variant) As Boolean
Dim strTmp As String, n As Long, Emsg As String

If SAFEOUTLOOK_RUNTIME Then On Error GoTo EMail_Validate_EMailAddr_Err
EMail_Validate_EMailAddr = False 'default
Emsg = vbNullString
If VarType(varEM) = vbNull Then GoTo EMail_Validate_EMailAddr_Exit
'***************************************************************************
*****
'Validates an email address and returns either True if OK or False if
failed.
'If failed, call the public variable Emsg to see a description of the error
generated
'***************************************************************************
*****

EMail_Validate_EMailAddr = False 'Assume bad on init
n = VarType(varEM)
If n = vbNull Or n <> vbString Then
   Emsg = Emsg & MsgText(6142)
ElseIf InStr(1, varEM, "@") = 0 Then
   Emsg = Emsg & MsgText(6152)
ElseIf InStr(1, varEM, "@") = 1 Then
   Emsg = Emsg & MsgText(6230)
ElseIf InStr(1, varEM, "@") = Len(varEM) Then
   Emsg = Emsg & MsgText(6240)
ElseIf Right(varEM, 4) <> ".com" And Right(varEM, 4) <> ".net" And _
  Right(varEM, 4) <> ".gov" And Right(varEM, 4) <> ".org" And _
  Right(varEM, 3) <> ".us" And Right(varEM, 3) <> ".tv" And _
  Right(varEM, 4) <> ".biz" And Right(varEM, 4) <> ".edu" Then
   Emsg = Emsg & MsgText(6250)
   Emsg = Emsg & vbCrLf & MsgText(6260)
   Emsg = Emsg & vbCrLf & MsgText(6270)
ElseIf Len(varEM) < 6 Then
   Emsg = Emsg & MsgText(6280)
End If
strTmp = varEM
Do While InStr(1, strTmp, "@") <> 0
   n = 1
   strTmp = Right(strTmp, Len(strTmp) - InStr(1, strTmp, "@"))
Loop
If n > 1 Then 'found more than one @ sign
   Emsg = Emsg & ""
End If
If Len(Emsg) Then
    MsgBox Emsg, vbOKOnly Or vbExclamation, MsgText(6290)
    EMail_Validate_EMailAddr = False
Else
    EMail_Validate_EMailAddr = True
End If
GoTo EMail_Validate_EMailAddr_Exit

EMail_Validate_EMailAddr_Err:
MsgBox Err.Description, vbOKOnly Or vbExclamation,
"EMail_Validate_EMailAddr"
EMail_Validate_EMailAddr = False

EMail_Validate_EMailAddr_Exit:
End Function
 


Bruce H. Johnson
Sylmar, CA
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Moss
Sent: Friday, January 06, 2006 8:57 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] email validation

Does anyone have a good email validation module that they would be willing
to share?

Thanks,

Jim

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




From stuart at lexacorp.com.pg  Sat Jan  7 00:31:07 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Sat, 07 Jan 2006 16:31:07 +1000
Subject: [AccessD] (no subject)
In-Reply-To: <004201c6134a$21ad48f0$6701a8c0@HPLaptop>
Message-ID: <43BFECCB.12771.1A4F6F7@stuart.lexacorp.com.pg>

On 6 Jan 2006 at 21:20, Joe Hecht wrote:
> 
> When did the fate function start in 1980? Or is that another
> random feature?
> 

With GWBasic in MSDOS1.0



-- 
Stuart




From martyconnelly at shaw.ca  Sat Jan  7 00:35:25 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 06 Jan 2006 22:35:25 -0800
Subject: [AccessD] email validation
References: <44801.65.196.182.34.1136609831.squirrel@65.196.182.34>
Message-ID: <43BF612D.9010106@shaw.ca>

There is quite a range of vaild email addresses including the old X400 types
Mastering Regular Expressions.  Is the best Owl book for regexp

 The book ends with an example regular expression to match
an email address.  Its a 16,000+ byte regular expression.  Just shows
the scope of such a match when you want to get an email address "from
the wild".
This should verify or catch about 90-95% using regexp

 Function testEmail(strEmail As String) As Boolean

 If IsEmail(strEmail) Then
 ' email address ok
  Debug.Print "OK"
  testEmail = True
 Else
 ' email address not ok
  Debug.Print "False"

 End If
 End Function
 Function IsEmail(strText as String)
 'Need to Set reference to Microsoft VBScript Regular Expressions 5.5 
vbscript.dll/3
'or set for 5.6
 Dim regEx as Object
 Set regEx = New RegExp
 regEx.Pattern = "^[\w\-\._]+@[\w\-]{2,}(\.[\w\-]{2,})+$"
 'or               "^([\w-_]+\.)*[\w-_]+\@ ([\w-_]+\.)+[a-zA-Z]{2,3}$"
 regEx.ignoreCase = True
 regEx.Global = True
 IsEmail = regEx.Test(strText)
 End Function



Jim Moss wrote:

>Does anyone have a good email validation module that they would be willing
>to share?
>
>Thanks,
>
>Jim
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From stuart at lexacorp.com.pg  Sat Jan  7 00:39:24 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Sat, 07 Jan 2006 16:39:24 +1000
Subject: [AccessD] Date Diff Help
In-Reply-To: <004801c6134d$a7813470$6701a8c0@HPLaptop>
References: <004701c6134c$e9ac4020$6701a8c0@HPLaptop>
Message-ID: <43BFEEBC.5566.1AC8C50@stuart.lexacorp.com.pg>

On 6 Jan 2006 at 21:46, Joe Hecht wrote:

> Almost.
> 
> DOB = 5/11/1940
> 
> =DateDiff("yyyy", [DOB], Now())+ Int( Format(now(), "mmdd")
> returns 66
> 
> =DateDiff("yyyy", [DOB], Now
> 
> Returns 172
> 

Int(Format(Now(),"mmdd")  will return the number 107 at the moment (7 Jan),
or106 (6 Jan)  for you.  It would have returned the number 1231 at the end 
of last month (31 Dec). Are you sure that's what you want?




-- 
Stuart




From Gustav at cactus.dk  Sat Jan  7 05:54:07 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 07 Jan 2006 12:54:07 +0100
Subject: [AccessD] Can't write to an Excel spreadsheet
Message-ID: <s3bfba0c.083@cactus.dk>

Hi all

Please note this date. JC in modest mode!

However, JC and other class freaks, did you notice last month's public article in Smart Access on accessing Excel via a class?

<quote>

In this article, Garry Robinson shows you how to use a class to manipulate Microsoft Excel. His class provides a software layer that hides the complexity of dealing with Excel through VBA. You'll see how to use Garry's class to push single pieces of data into Excel, how to transfer data from queries into Excel, and how to let users navigate between results using bookmarks. 

</quote>

The article requires subscription now but the download with code etc. is still there:

http://www.pinpub.com/Media/PublicationsArticle/512robinson_SA05l.zip 

'fxCm-->  FXc8_Excel ... Class library for Automating Microsoft Excel
'fxCm
'fxCm     The calls to the class module defined below rely on the
'fxCm     following declaration in the software that you are using
'fxCm
'fxCm     Public Excel_FX As New FXc8_Excel
'fxCm
'fxCm     So when the class module is called, the notes specify Excel_FX rather than
'fxCm     FXc8_Excel
'fxCm
'fxCm     Requires a reference to the following non standard libraries
'fxCm
'fxCm     Microsoft Excel 8 (97) or 9 (2000) Object library
'fxCm
'fxCm     Originally developed by GR-FX Pty Limited in Australia.
'fxCm     Can be modified and used by customers who purchase the rights to the software
'fxCm
'fxCm     Additional Methods and Properties
'fxCm
'fxCm     Search for the following commented lines and remove the comments to add the
'fxCm     additional methods to the class module.
'fxCm
'fxCm     'Cube - Methods that allow you to change Excel 2000 cube objects
'fxCm     'AccSQL - Method to load Access SQL into Excel
'fxCm
'fxCm     Jul 99         GR - Original
'fxCm     Oct 1999  GR - Modified for FX Classes library
'fxCm     Nov 1999     GR - Excel chart rows output issues
'fxCm     Nov 1999     GR - Different error handling sequence for opening Excel Templates
'fxCm     Dec 1999    GR - Added transpose as an option
'fxCm     Jan 2000    GR - Refining worksheet swaping methods
'fxCm     Jan 2000       GR - Added DAO. to necessary objects to avoid confusion with ADO objects.
'fxCm     Feb 2000    GR - Change OpenExcel to accomodate optional sheetnames
'fxCm                    GR   and SQLData bug
'fxCm     June 2000   GR - Add open Excel spreadsheet
'fxCm      "    "   "         Modified delete rows method for greater speed
'fxCm     Sep 2000    GR - Added GetCellValue
'fxCm     Oct 2000    GR - Upgraded GetCellValue for errors in Excel cells
'fxCm     Nov 2000    GR - Added moveToReference method
'fxCm     Nov 2000    GR - Added Printout method
'fxCm     Nov 2000    GR - Mods to closedown method
'fxCm     Nov 2000    GR - Added print preview
'fxCm     Dec 2000    GR - Added CopyAccessQuery, RenameWorksheet, AddWorksheet
'fxCm                      and TextBookmarks methods
'fxCm     Mar 2002    GR - Added CopyData to use faster CopyFromRecordset method
'fxCm     Mar 2002    GR - Added InsertRows
'fxCm     Mar 2002    GR - Added AddChart method
'fxCm     Mar 2002    GR - Added DeleteWorksheet method

/gustav


>>> jwcolby at ColbyConsulting.com 06-01-2006 20:20 >>>
Yea, I already have automation figured out (I think).

John W. Colby
www.ColbyConsulting.com 




From Gustav at cactus.dk  Sat Jan  7 06:27:59 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 07 Jan 2006 13:27:59 +0100
Subject: [AccessD] Date Diff Help
Message-ID: <s3bfc1f0.084@cactus.dk>

Hi Joe

This requires a little more than a line of code.
Study here for a reliable solution:

  http://databaseadvisors.com/mailman/htdig/accessd/2003-August/011575.html 

/gustav

>>> jmhecht at earthlink.net 07-01-2006 05:52 >>>
I am trying to do a an age calculation with the following data source.

=DateDiff("yyyy",[DOB],Now())+Int(Format(Now(),"mmdd"))




From Gustav at cactus.dk  Sat Jan  7 07:38:11 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 07 Jan 2006 14:38:11 +0100
Subject: [AccessD] email validation
Message-ID: <s3bfd25e.086@cactus.dk>

Hi Jim

Here's another pattern:

^(?:[\w\!\#\$\%\&'\*\+\-\/\=\?\^\`\{\|\}\~]+\.)*[\w\!\#\$\%\&'\*\+\-\/\=\?
\^\`\{\|\}\~]+@(?:(?:(?:[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!\.)){0,61}[a-zA-Z0-9]? 
\.)+[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!$)){0,61}[a-zA-Z0-9]?)|(?:\[(?:(?:[01]?\d{
1,2}|2[0-4]\d|25[0-5])\.){3}(?:[01]?\d{1,2}|2[0-4]\d|25[0-5])\]))$

which claims to have a proven record (browse to 2004-04-28, 7:48 pm):

http://www.codecomments.com/archive299-2004-4-184908.html 

However, it fails for me - and I don't have the need to debug it.

Note that addresses may have a subdomain like:

  submit.ry8JtxnVhqqmpAFS at spam.spamcop.net

/gustav


>>> martyconnelly at shaw.ca 07-01-2006 07:35 >>>
There is quite a range of vaild email addresses including the old X400 types
Mastering Regular Expressions.  Is the best Owl book for regexp

 The book ends with an example regular expression to match
an email address.  Its a 16,000+ byte regular expression.  Just shows
the scope of such a match when you want to get an email address "from
the wild".
This should verify or catch about 90-95% using regexp

 Function testEmail(strEmail As String) As Boolean

 If IsEmail(strEmail) Then
 ' email address ok
  Debug.Print "OK"
  testEmail = True
 Else
 ' email address not ok
  Debug.Print "False"

 End If
 End Function
 Function IsEmail(strText as String)
 'Need to Set reference to Microsoft VBScript Regular Expressions 5.5 
vbscript.dll/3
'or set for 5.6
 Dim regEx as Object
 Set regEx = New RegExp
 regEx.Pattern = "^[\w\-\._]+@[\w\-]{2,}(\.[\w\-]{2,})+$"
 'or               "^([\w-_]+\.)*[\w-_]+\@ ([\w-_]+\.)+[a-zA-Z]{2,3}$"
 regEx.ignoreCase = True
 regEx.Global = True
 IsEmail = regEx.Test(strText)
 End Function



Jim Moss wrote:

>Does anyone have a good email validation module that they would be willing to share?




From tinanfields at torchlake.com  Sat Jan  7 08:25:05 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Sat, 07 Jan 2006 09:25:05 -0500
Subject: [AccessD] OT: We're Expecting!
References: <001501c611ee$137e97f0$647aa8c0@ColbyM6805>
Message-ID: <43BFCF41.70809@torchlake.com>

No matter when you start, it is an amazing journey!  My first-born came 
right after my 21st birthday, and my fourth-born (and last) came shortly 
after my 29th.  First grandchild arrived when I was 46.  I started out 
trying to be the perfect parent, but, eventually I learned perfection is 
not the point - love is.  Congratulations, Ron - just be a loving father 
and you'll be great!
Tina

John Colby wrote:

>Congrats!  I became a foster dad at 48 and adopted my two at 51 so I know
>the feeling of worry that goes along with doing it at this age, but (if I
>live through it of course) it is all worthwhile.  
>
>Again, congrats and may God be with you as you begin this long journey.
>
>John W. Colby
>www.ColbyConsulting.com 
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
>Sent: Thursday, January 05, 2006 12:22 AM
>To: accessd at databaseadvisors.com
>Subject: [AccessD] OT: We're Expecting!
>
>I know I'm an infrequent contributor here that usually asks for more help
>than I end up giving, but I wanted to share this with you all :)
>
>My wife and I found out on New Year's Eve that we're going to have a baby.
>This was confirmed by the doctor this morning. It's the first for both of
>us.
>
>I'm a little old to be a first time daddy, and the prospect worries me in
>all sorts of ways -- but at the same time I've never been happier
>:)
>
>Ron
>
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>  
>




From jmhecht at earthlink.net  Sat Jan  7 08:51:25 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sat, 7 Jan 2006 06:51:25 -0800
Subject: [AccessD] Date Diff Help
In-Reply-To: <43BFEEBC.5566.1AC8C50@stuart.lexacorp.com.pg>
Message-ID: <000a01c61399$d59d07c0$6701a8c0@HPLaptop>

No.

65 is current correct & desired answer for this employee.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Stuart McLachlan
 

Int(Format(Now(),"mmdd")  will return the number 107 at the
moment (7 Jan),
or106 (6 Jan)  for you.  It would have returned the number
1231 at the end 
of last month (31 Dec). Are you sure that's what you want?




-- 
Stuart


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



From jwcolby at ColbyConsulting.com  Sat Jan  7 10:01:05 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sat, 7 Jan 2006 11:01:05 -0500
Subject: [AccessD] (no subject)
In-Reply-To: <43BFECCB.12771.1A4F6F7@stuart.lexacorp.com.pg>
Message-ID: <002701c613a3$9255eea0$647aa8c0@ColbyM6805>

>> When did the fate function start in 1980?

The fate function started in the Garden of Eden.

;-)

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: Saturday, January 07, 2006 1:31 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] (no subject)

On 6 Jan 2006 at 21:20, Joe Hecht wrote:
> 
> When did the fate function start in 1980? Or is that another random 
> feature?
> 

With GWBasic in MSDOS1.0



--
Stuart


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



From tinanfields at torchlake.com  Sat Jan  7 11:28:59 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Sat, 07 Jan 2006 12:28:59 -0500
Subject: [AccessD] Hiding the Access Window WAS: access xp runtime
References: <20051224140729.XGTJ9476.ibm62aec.bellsouth.net@SUSANONE>
Message-ID: <43BFFA5B.9080501@torchlake.com>

Puts me in mind of the quote attributed to Albert Einstein when asked by 
a young news reporter, "well, then, Dr. Einstein, what is the square 
root of 2?"  Einstein is said to have replied, "I have no idea - I know 
where to look that up - why should I keep it in my head?"  If that's 
okay for Dr. Einstein, it's certainly okay for me.
Tina


Susan Harkins wrote:

>Joe, I have to look up everything. Why do you think I write articles? So,
>I'll have instructions that I understand!!!!!!!!! ;) 
>
>Seriously, knowing how to do something and knowing where to find the right
>syntax, arguments, etc. is the key -- not being able to pluck it all out of
>you're a... I mean your head. :) If I tried to keep all that in my head, it
>would've exploded long ago. :) 
>
>Susan H. 
>
>Because, when I am working on my current project I have to look up how to
>change the back color in my text boxes when they get focus. Used to be
>standard did that automatically.
>You guys are playing with form shapes and mouse cursers and stuff.
>
>Just developer envy. So what if you and Susan have been published. 
>
>I still do not understand how to write code and reuse it.
>
>Just Envy. No mean intended.
>
>
>  
>




From martyconnelly at shaw.ca  Sat Jan  7 12:24:58 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Sat, 07 Jan 2006 10:24:58 -0800
Subject: [AccessD] (no subject)
References: <002701c613a3$9255eea0$647aa8c0@ColbyM6805>
Message-ID: <43C0077A.2030801@shaw.ca>

I have a Karma function that randomly reboots.

John Colby wrote:

>>>When did the fate function start in 1980?
>>>      
>>>
>
>The fate function started in the Garden of Eden.
>
>;-)
>
>John W. Colby
>www.ColbyConsulting.com 
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
>Sent: Saturday, January 07, 2006 1:31 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] (no subject)
>
>On 6 Jan 2006 at 21:20, Joe Hecht wrote:
>  
>
>>When did the fate function start in 1980? Or is that another random 
>>feature?
>>
>>    
>>
>
>With GWBasic in MSDOS1.0
>
>
>
>--
>Stuart
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From jmhecht at earthlink.net  Sat Jan  7 21:41:53 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sat, 7 Jan 2006 19:41:53 -0800
Subject: [AccessD] Query as Report Record source question
Message-ID: <000101c61405$77a609c0$6701a8c0@HPLaptop>

I have a huge query that is record source to a main report
in my project. It could potentially be the source for other
smaller reports.

 

Is it better to use the one query many times or build
specific queries for each report?

 

Thanks.

 

Anyone else working on a Sat night?

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Sat Jan  7 21:49:41 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sat, 7 Jan 2006 19:49:41 -0800
Subject: [AccessD] Query as Report Record source question Answered
In-Reply-To: <000101c61405$77a609c0$6701a8c0@HPLaptop>
Message-ID: <000601c61406$8ec67d50$6701a8c0@HPLaptop>

Just answered my own question.

There is a parameter in the big report query.

This report just won its own query.


Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Saturday, January 07, 2006 7:42 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Query as Report Record source question

I have a huge query that is record source to a main report
in my project. It could potentially be the source for other
smaller reports.

 

Is it better to use the one query many times or build
specific queries for each report?

 

Thanks.

 

Anyone else working on a Sat night?

 

Joe Hecht

jmhecht at earthlink.net

 

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



From darrend at nimble.com.au  Sun Jan  8 04:33:28 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Sun, 8 Jan 2006 21:33:28 +1100
Subject: [AccessD] A2003: SQL to Access Q`
Message-ID: <20060108103333.ZTHD14751.omta05ps.mx.bigpond.com@DENZILLAP>

Hi all
Cross posted to dba-SQL
 
I have just discovered a significant (and disturbing for me) difference in SQL
and Access that
I never thought about - I'll explain the problem hoping that someone can explain
any work around options I have
 
In SQL I use the following SQL to return 31159 Records - That's the expected
number by the way
 
SELECT I.InvoiceNo, ARP.PointsAmount as Pending
FROM Invoice as I
LEFT JOIN AccountRewardPoints  ARP
ON ARP.InvoiceNo = I.InvoiceNo
AND ARP.PointsStatusCode = 'PP'
Order By I.InvoiceNo
 
In Access if I use that SQL It errors on the Join - IE I can't create joins on
what is 
kind of a Criteria - in this case PP on the PointStatusCode field
 
I am learning the reason
 
When I paste the same SQL into the SQL query designer in enterprise manager (The
one that looks like Access's Query Designer)
- You get there by...
Right clicking ANY SQL table in Enterprise Manager
Select OPEN TABLE
Select QUERY
 
When I do this I see an unusual join line/link that goes not from a field to a
field as you expect in Access
but from the Table name to Table name with a small F and a small X next to each
other to signify the join type
 
I appreciate this means show me all and I mean ALL records (In my case) from
Invoice table IE 31159 of 'em
And it actually creates a Join on the PP Criteria - I think
 
That's all well and good - but how do I get something like that happening in
Access?
 
<big sigh>
 
Darren
 
 


From djkr at msn.com  Sun Jan  8 05:49:58 2006
From: djkr at msn.com (DJK(John) Robinson)
Date: Sun, 8 Jan 2006 11:49:58 -0000
Subject: [AccessD] A2003: SQL to Access Q`
In-Reply-To: <20060108103333.ZTHD14751.omta05ps.mx.bigpond.com@DENZILLAP>
Message-ID: <BAY106-DAV17CC9C62F6409503F8FB44D2230@phx.gbl>

Darren

I haven't got SQLS instantly handy (in process of reconfiguration), so I
can't easily check what results you're expecting from it.  Nor am I sure
about your table design.

However, I do understand Access's doubt about ambiguity - I think - as to
when/how to apply the criterion which is not strictly part of the join.  In
Access, does this give the answer you are looking for?

SELECT I.InvoiceNo, ARP.PointsAmount as Pending
FROM Invoice as I
LEFT JOIN 
(select * from AccountRewardPoints where ARP.PointsStatusCode = "PP" ) as
ARP
ON ARP.InvoiceNo = I.InvoiceNo
Order By I.InvoiceNo

John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: 08 January 2006 10:33
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] A2003: SQL to Access Q`


Hi all
Cross posted to dba-SQL
 
I have just discovered a significant (and disturbing for me) difference in
SQL and Access that I never thought about - I'll explain the problem hoping
that someone can explain any work around options I have
 
In SQL I use the following SQL to return 31159 Records - That's the expected
number by the way
 
SELECT I.InvoiceNo, ARP.PointsAmount as Pending
FROM Invoice as I
LEFT JOIN AccountRewardPoints  ARP
ON ARP.InvoiceNo = I.InvoiceNo
AND ARP.PointsStatusCode = 'PP'
Order By I.InvoiceNo
 
In Access if I use that SQL It errors on the Join - IE I can't create joins
on what is 
kind of a Criteria - in this case PP on the PointStatusCode field
 
I am learning the reason
 
When I paste the same SQL into the SQL query designer in enterprise manager
(The one that looks like Access's Query Designer)
- You get there by...
Right clicking ANY SQL table in Enterprise Manager
Select OPEN TABLE
Select QUERY
 
When I do this I see an unusual join line/link that goes not from a field to
a field as you expect in Access but from the Table name to Table name with a
small F and a small X next to each other to signify the join type
 
I appreciate this means show me all and I mean ALL records (In my case) from
Invoice table IE 31159 of 'em And it actually creates a Join on the PP
Criteria - I think
 
That's all well and good - but how do I get something like that happening in
Access?
 
<big sigh>
 
Darren
 
 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From darrend at nimble.com.au  Sun Jan  8 06:34:54 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Sun, 8 Jan 2006 23:34:54 +1100
Subject: [AccessD] A2003: SQL to Access Q`
In-Reply-To: <BAY106-DAV17CC9C62F6409503F8FB44D2230@phx.gbl>
Message-ID: <20060108123504.BFUY14751.omta05ps.mx.bigpond.com@DENZILLAP>

John
Brilliant - Absolutely brilliant
I had no idea a select statement could be buried inside the SQL like that

Yes...

SELECT I.InvoiceNo, ARP.PointsAmount AS Pending
FROM Invoice AS I LEFT JOIN [select * from AccountRewardPoints as ARP where
ARP.PointsStatusCode = 'PP' ]. AS ARP ON I.InvoiceNo = ARP.InvoiceNo
GROUP BY I.InvoiceNo, ARP.PointsAmount
ORDER BY I.InvoiceNo;

Works in Access and returns 31159 records as expected

Thank you

Darren

 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DJK(John) Robinson
Sent: Sunday, 8 January 2006 10:50 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] A2003: SQL to Access Q`

Darren

I haven't got SQLS instantly handy (in process of reconfiguration), so I can't
easily check what results you're expecting from it.  Nor am I sure about your
table design.

However, I do understand Access's doubt about ambiguity - I think - as to
when/how to apply the criterion which is not strictly part of the join.  In
Access, does this give the answer you are looking for?

SELECT I.InvoiceNo, ARP.PointsAmount as Pending FROM Invoice as I LEFT JOIN
(select * from AccountRewardPoints where ARP.PointsStatusCode = "PP" ) as ARP ON
ARP.InvoiceNo = I.InvoiceNo Order By I.InvoiceNo

John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: 08 January 2006 10:33
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] A2003: SQL to Access Q`


Hi all
Cross posted to dba-SQL
 
I have just discovered a significant (and disturbing for me) difference in SQL
and Access that I never thought about - I'll explain the problem hoping that
someone can explain any work around options I have
 
In SQL I use the following SQL to return 31159 Records - That's the expected
number by the way
 
SELECT I.InvoiceNo, ARP.PointsAmount as Pending FROM Invoice as I LEFT JOIN
AccountRewardPoints  ARP ON ARP.InvoiceNo = I.InvoiceNo AND ARP.PointsStatusCode
= 'PP'
Order By I.InvoiceNo
 
In Access if I use that SQL It errors on the Join - IE I can't create joins on
what is kind of a Criteria - in this case PP on the PointStatusCode field
 
I am learning the reason
 
When I paste the same SQL into the SQL query designer in enterprise manager (The
one that looks like Access's Query Designer)
- You get there by...
Right clicking ANY SQL table in Enterprise Manager Select OPEN TABLE Select
QUERY
 
When I do this I see an unusual join line/link that goes not from a field to a
field as you expect in Access but from the Table name to Table name with a small
F and a small X next to each other to signify the join type
 
I appreciate this means show me all and I mean ALL records (In my case) from
Invoice table IE 31159 of 'em And it actually creates a Join on the PP Criteria
- I think
 
That's all well and good - but how do I get something like that happening in
Access?
 
<big sigh>
 
Darren
 
 
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jwcolby at ColbyConsulting.com  Sun Jan  8 10:24:14 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sun, 8 Jan 2006 11:24:14 -0500
Subject: [AccessD] Sensing email items in an outlook folder
Message-ID: <001f01c6146f$f79acac0$8ad60e05@ColbyM6805>

The following code was working in an Access project for sensing messages in
a folder and processing the email.  I am trying to build a little
application for preparing my spam to be sent off to BlueFrog for reporting.
The code is not working from directly inside of Outlook.  The code gets
here, but the Items collection never contains anything, even when there is
email in the folder.  Any ideas?

Function CheckForSpamMail(fldrSpamIncoming As Outlook.MAPIFolder) As Boolean
On Error GoTo Err_CheckForSpamMail
Dim msg As Outlook.MailItem
    Debug.Print fldrSpamIncoming.Name
    For Each msg In fldrSpamIncoming.Items
        Debug.Print "CheckForSpamMail - Processing message #" & intMsgCnt; "
of " & fldrSpamIncoming.Items.Count
        ProcessSpamMail fldrSpamIncoming, msg
    Next msg
'    intMsgCntOrig = fldrSpamIncoming.Items.Count
'    For intMsgCnt = 1 To intMsgCntOrig
'        Set msg = fldrSpamIncoming.Items(1)
'        Debug.Print "CheckForSpamMail - Processing message #" & intMsgCnt;
" of " & fldrSpamIncoming.Items.Count
'        ProcessSpamMail fldrSpamIncoming, msg
'    Next intMsgCnt
    
Exit_CheckForSpamMail:
On Error Resume Next
    Set msg = Nothing
Exit Function
Err_CheckForSpamMail:
    Select Case Err
    Case 0      '.insert Errors you wish to ignore here
        Resume Next
    Case -2147352567 'No messages
        Resume Exit_CheckForSpamMail
    Case Else   '.All other errors will trap
        Beep
        MsgBox Err.Number & ":" & Err.Description, , "Error in Function
dclsOutlook.CheckForSpamMail"
        Resume Exit_CheckForSpamMail
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function

John W. Colby
www.ColbyConsulting.com 




From martyconnelly at shaw.ca  Sun Jan  8 15:12:35 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Sun, 08 Jan 2006 13:12:35 -0800
Subject: [AccessD] email validation
References: <s3bfd25e.086@cactus.dk>
Message-ID: <43C18043.50203@shaw.ca>

Here is some vb code to validate email addresses subject to a free daily 
limit or paid for
via smtp mail server authentication at www.internetfrog.com

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=1&txtCodeId=63971

Gustav Brock wrote:

>Hi Jim
>
>Here's another pattern:
>
>^(?:[\w\!\#\$\%\&'\*\+\-\/\=\?\^\`\{\|\}\~]+\.)*[\w\!\#\$\%\&'\*\+\-\/\=\?
>\^\`\{\|\}\~]+@(?:(?:(?:[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!\.)){0,61}[a-zA-Z0-9]? 
>\.)+[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!$)){0,61}[a-zA-Z0-9]?)|(?:\[(?:(?:[01]?\d{
>1,2}|2[0-4]\d|25[0-5])\.){3}(?:[01]?\d{1,2}|2[0-4]\d|25[0-5])\]))$
>
>which claims to have a proven record (browse to 2004-04-28, 7:48 pm):
>
>http://www.codecomments.com/archive299-2004-4-184908.html 
>
>However, it fails for me - and I don't have the need to debug it.
>
>Note that addresses may have a subdomain like:
>
>  submit.ry8JtxnVhqqmpAFS at spam.spamcop.net
>
>/gustav
>
>
>  
>
>>>>martyconnelly at shaw.ca 07-01-2006 07:35 >>>
>>>>        
>>>>
>There is quite a range of vaild email addresses including the old X400 types
>Mastering Regular Expressions.  Is the best Owl book for regexp
>
> The book ends with an example regular expression to match
>an email address.  Its a 16,000+ byte regular expression.  Just shows
>the scope of such a match when you want to get an email address "from
>the wild".
>This should verify or catch about 90-95% using regexp
>
> Function testEmail(strEmail As String) As Boolean
>
> If IsEmail(strEmail) Then
> ' email address ok
>  Debug.Print "OK"
>  testEmail = True
> Else
> ' email address not ok
>  Debug.Print "False"
>
> End If
> End Function
> Function IsEmail(strText as String)
> 'Need to Set reference to Microsoft VBScript Regular Expressions 5.5 
>vbscript.dll/3
>'or set for 5.6
> Dim regEx as Object
> Set regEx = New RegExp
> regEx.Pattern = "^[\w\-\._]+@[\w\-]{2,}(\.[\w\-]{2,})+$"
> 'or               "^([\w-_]+\.)*[\w-_]+\@ ([\w-_]+\.)+[a-zA-Z]{2,3}$"
> regEx.ignoreCase = True
> regEx.Global = True
> IsEmail = regEx.Test(strText)
> End Function
>
>
>
>Jim Moss wrote:
>
>  
>
>>Does anyone have a good email validation module that they would be willing to share?
>>    
>>
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From stuart at lexacorp.com.pg  Sun Jan  8 16:52:11 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Mon, 09 Jan 2006 08:52:11 +1000
Subject: [AccessD] email validation
In-Reply-To: <43C18043.50203@shaw.ca>
Message-ID: <43C2243B.4545.286A225@stuart.lexacorp.com.pg>

Are we talking about code to determine whether the format of a particular 
string is valid as an email address or whether  a particular email address 
resolves to a real mailbox?

On 8 Jan 2006 at 13:12, MartyConnelly wrote:

> Here is some vb code to validate email addresses subject to a free daily
> limit or paid for via smtp mail server authentication at
> www.internetfrog.com
> 
...
> 
> Gustav Brock wrote:
...
> >^(?:[\w\!\#\$\%\&'\*\+\-\/\=\?\^\`\{\|\}\~]+\.)*[\w\!\#\$\%\&'\*\+\-\/\=\?
> >\^\`\{\|\}\~]+@(?:(?:(?:[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!\.)){0,61}[a-zA-Z0-9]
> >?
> >\.)+[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!$)){0,61}[a-zA-Z0-9]?)|(?:\[(?:(?:[01]?\d
> >{ 1,2}|2[0-4]\d|25[0-5])\.){3}(?:[01]?\d{1,2}|2[0-4]\d|25[0-5])\]))$
> >
> >which claims to have a proven record (browse to 2004-04-28, 7:48 pm):
> >
...
> >>>>martyconnelly at shaw.ca 07-01-2006 07:35 >>>
> >>>>
> >There is quite a range of vaild email addresses including the old X400
> >types Mastering Regular Expressions.  Is the best Owl book for regexp
> >
> > The book ends with an example regular expression to match
> >an email address. 
....
> >Jim Moss wrote:
> >
> >>Does anyone have a good email validation module that they would be willing
> >>to share?
> >>    
-- 
Stuart




From artful at rogers.com  Sun Jan  8 17:12:23 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sun, 8 Jan 2006 18:12:23 -0500
Subject: [AccessD] email validation
In-Reply-To: <43C18043.50203@shaw.ca>
Message-ID: <019501c614a8$fbfb4ed0$8e01a8c0@rock>

In terms of validation, that looks more interesting as actual validation...
or perhaps Authentication ought to be the word. To use the terms from Logic
101, various algorithms can prove that any given address is Valid, but
without a Send and either a Receiver or a Bounce then you have no way to
determine if the address is Sound.
I have fought this battle in a couple of web apps and came away with
Validation not Soundness -- less than perfect, to be sure. What I wanted in
those contexts was an event that would immediately attempt to send a message
to the specified address, and holler at the user if it failed, placing the
cursor back in the email field (in case of simple mis-spelling). I never did
come to a correct method of doing this.
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: January 8, 2006 4:13 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] email validation
Here is some vb code to validate email addresses subject to a free daily 
limit or paid for via smtp mail server authentication at
www.internetfrog.com
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=1&txtCodeId
=63971



From stuart at lexacorp.com.pg  Sun Jan  8 17:25:10 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Mon, 09 Jan 2006 09:25:10 +1000
Subject: [AccessD] email validation
In-Reply-To: <019501c614a8$fbfb4ed0$8e01a8c0@rock>
References: <43C18043.50203@shaw.ca>
Message-ID: <43C22BF6.31402.2A4D588@stuart.lexacorp.com.pg>

On 8 Jan 2006 at 18:12, Arthur Fuller wrote:

> to be sure. What I wanted in those contexts was an event that would
> immediately attempt to send a message to the specified address, and holler
> at the user if it failed, placing the cursor back in the email field (in
> case of simple mis-spelling). I never did come to a correct method of doing
> this. 
> 

A few reasons off the top of my head why this will never work reliably, 
there are probably a number of other reasons as well.

1. Emails are not instant messaging.  A recipient mail server may be 
temporarily unavailable for any number of reasons. Many outbound servers  
retry for up to four days to complete delivery.

2. Many servers accept (or at least appear to accept) all messages for a 
domain whether the individual mailbox address is valid or not.

3. Challenge/response systems :-(

-- 
Stuart




From artful at rogers.com  Sun Jan  8 17:28:18 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sun, 8 Jan 2006 18:28:18 -0500
Subject: [AccessD] email validation
In-Reply-To: <43C2243B.4545.286A225@stuart.lexacorp.com.pg>
Message-ID: <019b01c614ab$350e98b0$8e01a8c0@rock>

Hah! See my reply to the previous message. Exactly my concern on this issue.
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: January 8, 2006 5:52 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] email validation

Are we talking about code to determine whether the format of a particular 
string is valid as an email address or whether  a particular email address 
resolves to a real mailbox?

On 8 Jan 2006 at 13:12, MartyConnelly wrote:

> Here is some vb code to validate email addresses subject to a free daily
> limit or paid for via smtp mail server authentication at
> www.internetfrog.com
> 
...
> 
> Gustav Brock wrote:
...
>
>^(?:[\w\!\#\$\%\&'\*\+\-\/\=\?\^\`\{\|\}\~]+\.)*[\w\!\#\$\%\&'\*\+\-\/\=\?
>
>\^\`\{\|\}\~]+@(?:(?:(?:[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!\.)){0,61}[a-zA-Z0-9]
> >?
>
>\.)+[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!$)){0,61}[a-zA-Z0-9]?)|(?:\[(?:(?:[01]?\d
> >{ 1,2}|2[0-4]\d|25[0-5])\.){3}(?:[01]?\d{1,2}|2[0-4]\d|25[0-5])\]))$
> >
> >which claims to have a proven record (browse to 2004-04-28, 7:48 pm):
> >
...
> >>>>martyconnelly at shaw.ca 07-01-2006 07:35 >>>
> >>>>
> >There is quite a range of vaild email addresses including the old X400
> >types Mastering Regular Expressions.  Is the best Owl book for regexp
> >
> > The book ends with an example regular expression to match
> >an email address. 
....
> >Jim Moss wrote:
> >
> >>Does anyone have a good email validation module that they would be
willing
> >>to share?
> >>    
-- 
Stuart


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



From DWUTKA at marlow.com  Sun Jan  8 17:28:43 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Sun, 8 Jan 2006 17:28:43 -0600 
Subject: [AccessD] email validation
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD4F5@main2.marlow.com>

Technically, you could use TCP/IP to create an SMTP session to verify an
email address.  The SMTP protocol does verify whether an email is valid on
it's domain.

Drew

	-----Original Message-----
	From:	Stuart McLachlan [SMTP:stuart at lexacorp.com.pg]
	Sent:	Sunday, January 08, 2006 5:25 PM
	To:	Access Developers discussion and problem solving
	Subject:	Re: [AccessD] email validation

	On 8 Jan 2006 at 18:12, Arthur Fuller wrote:

	> to be sure. What I wanted in those contexts was an event that
would
	> immediately attempt to send a message to the specified address,
and holler
	> at the user if it failed, placing the cursor back in the email
field (in
	> case of simple mis-spelling). I never did come to a correct method
of doing
	> this. 
	> 

	A few reasons off the top of my head why this will never work
reliably, 
	there are probably a number of other reasons as well.

	1. Emails are not instant messaging.  A recipient mail server may be

	temporarily unavailable for any number of reasons. Many outbound
servers  
	retry for up to four days to complete delivery.

	2. Many servers accept (or at least appear to accept) all messages
for a 
	domain whether the individual mailbox address is valid or not.

	3. Challenge/response systems :-(

	-- 
	Stuart


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


From artful at rogers.com  Sun Jan  8 17:43:39 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sun, 8 Jan 2006 18:43:39 -0500
Subject: [AccessD] email validation
In-Reply-To: <43C22BF6.31402.2A4D588@stuart.lexacorp.com.pg>
Message-ID: <019c01c614ad$5a065520$8e01a8c0@rock>

To be sure you are right, not to mention spam filters. Lots of problems
authenticating an email address. Our site cautions you that our response
might get bounced, and invites you to regard incoming mail from us as cool,
and to tell your spam-filter so before proceeding. But lots of people may
not know how to do this, some people might be suspicious, and so on. 
There are no simple solutions, I fear. In a business with unlimited
inventory, this is not really an issue, but in the business to which I
refer, the product was seats to a concert by U2 or somebody, and any delay
at all could cause problems, either for us or for the user. I never did come
up with a cool solution. The whole business premise was that we could
contact you by email, so this was deemed critical. Yes, we also asked for
your phone number, but imagine that there are 24 tickets left to a U2
concert. Relying on you not being on the phone (at work or home) is not an
option. In that situation we have to KNOW we can contact you asap, otherwise
even if we put through the credit card charge, then what... a tough problem.
We eventually came up with something that works most of the time, but it is
far from what I imagined as a perfect solution.
A.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: January 8, 2006 6:25 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] email validation

On 8 Jan 2006 at 18:12, Arthur Fuller wrote:

> to be sure. What I wanted in those contexts was an event that would
> immediately attempt to send a message to the specified address, and holler
> at the user if it failed, placing the cursor back in the email field (in
> case of simple mis-spelling). I never did come to a correct method of
doing
> this. 
> 

A few reasons off the top of my head why this will never work reliably, 
there are probably a number of other reasons as well.

1. Emails are not instant messaging.  A recipient mail server may be 
temporarily unavailable for any number of reasons. Many outbound servers  
retry for up to four days to complete delivery.

2. Many servers accept (or at least appear to accept) all messages for a 
domain whether the individual mailbox address is valid or not.

3. Challenge/response systems :-(

-- 
Stuart



From artful at rogers.com  Sun Jan  8 17:47:04 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sun, 8 Jan 2006 18:47:04 -0500
Subject: [AccessD] email validation
In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD4F5@main2.marlow.com>
Message-ID: <019d01c614ad$d417dff0$8e01a8c0@rock>

I would like to learn more about this. In the problem domain that I faced, I
would want not only to know whether the email address is valid, but whether
you received my send, because DWUTKA at marlow.com and DDWUTKA at marlow.com might
both be valid, and I need to make sure that the mail goes to you not him.
Which implies that I would like a response immediately. I realize there are
problems such as hotmail and gmail's relatively show times, not to mention
an ISP's mail down. But still...
A.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: January 8, 2006 6:29 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] email validation

Technically, you could use TCP/IP to create an SMTP session to verify an
email address.  The SMTP protocol does verify whether an email is valid on
it's domain.

Drew



From djkr at msn.com  Sun Jan  8 17:56:49 2006
From: djkr at msn.com (DJK(John) Robinson)
Date: Sun, 8 Jan 2006 23:56:49 -0000
Subject: [AccessD] A2003: SQL to Access Q`
In-Reply-To: <20060108123504.BFUY14751.omta05ps.mx.bigpond.com@DENZILLAP>
Message-ID: <BAY106-DAV1590A5A4677C42E860118FD2230@phx.gbl>

My pleasure, Darren.  I'm usually too far behind in reading this list to be
of any use at all.

I notice you've now added in a GROUP BY, and included the PointsAmount.  Was
that intentional?  Seems to me you've either gone too far or not far enough,
depending on what it was for.  (I don't know, for instance, whether you
might have more than one 'pp' record per invoice - deliberately or
accidentally.)

John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: 08 January 2006 12:35
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] A2003: SQL to Access Q`


John
Brilliant - Absolutely brilliant
I had no idea a select statement could be buried inside the SQL like that

Yes...

SELECT I.InvoiceNo, ARP.PointsAmount AS Pending
FROM Invoice AS I LEFT JOIN [select * from AccountRewardPoints as ARP where
ARP.PointsStatusCode = 'PP' ]. AS ARP ON I.InvoiceNo = ARP.InvoiceNo GROUP
BY I.InvoiceNo, ARP.PointsAmount ORDER BY I.InvoiceNo;

Works in Access and returns 31159 records as expected

Thank you

Darren

 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DJK(John)
Robinson
Sent: Sunday, 8 January 2006 10:50 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] A2003: SQL to Access Q`

Darren

I haven't got SQLS instantly handy (in process of reconfiguration), so I
can't easily check what results you're expecting from it.  Nor am I sure
about your table design.

However, I do understand Access's doubt about ambiguity - I think - as to
when/how to apply the criterion which is not strictly part of the join.  In
Access, does this give the answer you are looking for?

SELECT I.InvoiceNo, ARP.PointsAmount as Pending FROM Invoice as I LEFT JOIN
(select * from AccountRewardPoints where ARP.PointsStatusCode = "PP" ) as
ARP ON ARP.InvoiceNo = I.InvoiceNo Order By I.InvoiceNo

John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: 08 January 2006 10:33
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] A2003: SQL to Access Q`


Hi all
Cross posted to dba-SQL
 
I have just discovered a significant (and disturbing for me) difference in
SQL and Access that I never thought about - I'll explain the problem hoping
that someone can explain any work around options I have
 
In SQL I use the following SQL to return 31159 Records - That's the expected
number by the way
 
SELECT I.InvoiceNo, ARP.PointsAmount as Pending FROM Invoice as I LEFT JOIN
AccountRewardPoints  ARP ON ARP.InvoiceNo = I.InvoiceNo AND
ARP.PointsStatusCode = 'PP' Order By I.InvoiceNo
 
In Access if I use that SQL It errors on the Join - IE I can't create joins
on what is kind of a Criteria - in this case PP on the PointStatusCode field
 
I am learning the reason
 
When I paste the same SQL into the SQL query designer in enterprise manager
(The one that looks like Access's Query Designer)
- You get there by...
Right clicking ANY SQL table in Enterprise Manager Select OPEN TABLE Select
QUERY
 
When I do this I see an unusual join line/link that goes not from a field to
a field as you expect in Access but from the Table name to Table name with a
small F and a small X next to each other to signify the join type
 
I appreciate this means show me all and I mean ALL records (In my case) from
Invoice table IE 31159 of 'em And it actually creates a Join on the PP
Criteria
- I think
 
That's all well and good - but how do I get something like that happening in
Access?
 
<big sigh>
 
Darren
 
 
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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


From jim.moss at jlmoss.net  Sun Jan  8 18:11:49 2006
From: jim.moss at jlmoss.net (Jim Moss)
Date: Sun, 8 Jan 2006 18:11:49 -0600 (CST)
Subject: [AccessD] email validation
In-Reply-To: <019b01c614ab$350e98b0$8e01a8c0@rock>
References: <43C2243B.4545.286A225@stuart.lexacorp.com.pg>
	<019b01c614ab$350e98b0$8e01a8c0@rock>
Message-ID: <54786.209.136.1.154.1136765509.squirrel@209.136.1.154>

First, thanks to all! My primary concern is the formatting of the string.
This will be used as part of a process that currently emails Excel based
statements to approximately 800 corporations.

Jim



> Hah! See my reply to the previous message. Exactly my concern on this
> issue.
> Arthur
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
> McLachlan
> Sent: January 8, 2006 5:52 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] email validation
>
> Are we talking about code to determine whether the format of a particular
> string is valid as an email address or whether  a particular email address
> resolves to a real mailbox?
>
> On 8 Jan 2006 at 13:12, MartyConnelly wrote:
>
>> Here is some vb code to validate email addresses subject to a free daily
>> limit or paid for via smtp mail server authentication at
>> www.internetfrog.com
>>
> ...
>>
>> Gustav Brock wrote:
> ...
>>
>>^(?:[\w\!\#\$\%\&'\*\+\-\/\=\?\^\`\{\|\}\~]+\.)*[\w\!\#\$\%\&'\*\+\-\/\=\?
>>
>>\^\`\{\|\}\~]+@(?:(?:(?:[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!\.)){0,61}[a-zA-Z0-9]
>> >?
>>
>>\.)+[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!$)){0,61}[a-zA-Z0-9]?)|(?:\[(?:(?:[01]?\d
>> >{ 1,2}|2[0-4]\d|25[0-5])\.){3}(?:[01]?\d{1,2}|2[0-4]\d|25[0-5])\]))$
>> >
>> >which claims to have a proven record (browse to 2004-04-28, 7:48 pm):
>> >
> ...
>> >>>>martyconnelly at shaw.ca 07-01-2006 07:35 >>>
>> >>>>
>> >There is quite a range of vaild email addresses including the old X400
>> >types Mastering Regular Expressions.  Is the best Owl book for regexp
>> >
>> > The book ends with an example regular expression to match
>> >an email address.
> ....
>> >Jim Moss wrote:
>> >
>> >>Does anyone have a good email validation module that they would be
> willing
>> >>to share?
>> >>
> --
> Stuart
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>




From martyconnelly at shaw.ca  Sun Jan  8 18:24:31 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Sun, 08 Jan 2006 16:24:31 -0800
Subject: [AccessD] email validation
References: <019d01c614ad$d417dff0$8e01a8c0@rock>
Message-ID: <43C1AD3F.40101@shaw.ca>

If this method from internetfrog indicates a vaild email address
then
The Domain has a working mail server  
and the Mail server did not reject the address  

It doesn't indicate that
the  Local part (username) is valid on the destination system

Arthur Fuller wrote:

>I would like to learn more about this. In the problem domain that I faced, I
>would want not only to know whether the email address is valid, but whether
>you received my send, because DWUTKA at marlow.com and DDWUTKA at marlow.com might
>both be valid, and I need to make sure that the mail goes to you not him.
>Which implies that I would like a response immediately. I realize there are
>problems such as hotmail and gmail's relatively show times, not to mention
>an ISP's mail down. But still...
>A.
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
>Sent: January 8, 2006 6:29 PM
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] email validation
>
>Technically, you could use TCP/IP to create an SMTP session to verify an
>email address.  The SMTP protocol does verify whether an email is valid on
>it's domain.
>
>Drew
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From prodevmg at yahoo.com  Sun Jan  8 20:50:23 2006
From: prodevmg at yahoo.com (Lonnie Johnson)
Date: Sun, 8 Jan 2006 18:50:23 -0800 (PST)
Subject: [AccessD] Move to next page of a report with code.
Message-ID: <20060109025023.64771.qmail@web33104.mail.mud.yahoo.com>

Can you move to the next page of a report programatically via code in the reports class module?



May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us





 





		
---------------------------------
 Yahoo! DSL Something to write home about. Just $16.99/mo. or less

From k.williamson5 at verizon.net  Sun Jan  8 21:20:09 2006
From: k.williamson5 at verizon.net (Keith Williamson)
Date: Sun, 08 Jan 2006 22:20:09 -0500
Subject: [AccessD] Date conversion
In-Reply-To: <20060109025023.64771.qmail@web33104.mail.mud.yahoo.com>
Message-ID: <000001c614cb$99a2fcb0$568bfea9@KeithHome>

Okay,

I know I'm being stupid, but how do I convert an Access date field to a
weekday name?  I have a field that is the date  (01/01/04), and want to have
another field read the day of the week (Thursday.)

Thanks,

Keith

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lonnie Johnson
Sent: Sunday, January 08, 2006 9:50 PM
To: AccessD solving'
Subject: [AccessD] Move to next page of a report with code.

Can you move to the next page of a report programatically via code in the
reports class module?



May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us





 





		
---------------------------------
 Yahoo! DSL Something to write home about. Just $16.99/mo. or less
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From rusty.hammond at cpiqpc.com  Sun Jan  8 21:40:18 2006
From: rusty.hammond at cpiqpc.com (rusty.hammond at cpiqpc.com)
Date: Sun, 8 Jan 2006 21:40:18 -0600 
Subject: [AccessD] Date conversion
Message-ID: <8301C8A868251E4C8ECD3D4FFEA40F8A154F840D@cpixchng-1.cpiqpc.net>

try format(fldName,"dddd")

-----Original Message-----
From: Keith Williamson [mailto:k.williamson5 at verizon.net]
Sent: Sunday, January 08, 2006 9:20 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Date conversion


Okay,

I know I'm being stupid, but how do I convert an Access date field to a
weekday name?  I have a field that is the date  (01/01/04), and want to have
another field read the day of the week (Thursday.)

Thanks,

Keith

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lonnie Johnson
Sent: Sunday, January 08, 2006 9:50 PM
To: AccessD solving'
Subject: [AccessD] Move to next page of a report with code.

Can you move to the next page of a report programatically via code in the
reports class module?



May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us





 





		
---------------------------------
 Yahoo! DSL Something to write home about. Just $16.99/mo. or less
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


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

**********************************************************************
WARNING: All e-mail sent to and from this address will be received,
scanned or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
corporate e-mail system and is subject to archival, monitoring or review 
by, and/or disclosure to, someone other than the recipient.
**********************************************************************


From accessd at shaw.ca  Sun Jan  8 22:26:01 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Sun, 08 Jan 2006 20:26:01 -0800
Subject: [AccessD] OT Super interesting options
In-Reply-To: <000401c611ec$eb6fbb00$2e01a8c0@fredxp>
Message-ID: <000e01c614d4$ccc89ec0$017ba8c0@xpserver>

Hi Fred:

The other link added with the link to the download site was a link to a pod
cast from Steve Gibson who is totally impressed with the product. 

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: January 5, 2006 3:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Wednesday, January 04, 2006 8:52 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

I downloaded and installed on my machine, as well as a machine I could
remote into at a client.  I was able to IM over the app, but I was unable to
ping, or to browse shares.

It is a fascinating concept and might be a nice thing if I could get it
working at one specific client where remote desktop just doesn't work (for
me).  I need to be able to up/download FE and framework files to them and
can never connect.  It would be cool to be able to see shares and do my
upload/download in that manner.  I have to wonder what the processor
overhead will be though.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
Sent: Wednesday, January 04, 2006 1:47 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] OT Super interesting options

OT

This is totally off topic but the potential and product is so interesting
that, with my apologies, I had to post it here.

Check this web site out: http://www.hamachi.cc/ and listen to the linked pod
cast: 
http://reference.creativesystemdesigns.com/Downloads/Hamachi.pod
(Remember to set the downloaded pod file's extension to 'mp3' so you can
play it.) 

Jim

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

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


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



From jmhecht at earthlink.net  Sun Jan  8 22:39:00 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sun, 8 Jan 2006 20:39:00 -0800
Subject: [AccessD] Date Diff Help It cant be this hard
Message-ID: <001201c614d6$9cbda930$6701a8c0@HPLaptop>

Why cant I get the proper age to return.

 

This code errors at run time. Dateborn = me.dob  has no
value.

 

 

 

Private Sub Report_Open(Cancel As Integer)

Dim datenow As Date

Dim dateborn As Date

Dim txtage As Integer

 

 

    datenow = Now()

    dateborn = Me.DOB

    

Me.txtage = DateDiff("yyyy", datenow, dateborn)

End Sub

 

Either in txtage or somewhere I want to get the persons
current age stuffed into txtAge.

 

Thanks 

Joe Hecht

jmhecht at earthlink.net

  _____  

From: Joe Hecht [mailto:jmhecht at earthlink.net] 
Sent: Friday, January 06, 2006 8:52 PM
To: 'Access Developers discussion and problem solving'
Subject: Date Diff Help

 

I am trying to do a an age calculation with the following
data source.

 

=DateDiff("yyyy",[DOB],Now())+Int(Format(Now(),"mmdd"))

 

DOB is the employees date of birth.

 

If Dob is 5/11/1940 I am expecting to get 65 back not 172.

 

TIA

 

Joe Hecht

jmhecht at earthlink.net

 



From stuart at lexacorp.com.pg  Sun Jan  8 22:44:29 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Mon, 09 Jan 2006 14:44:29 +1000
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <001201c614d6$9cbda930$6701a8c0@HPLaptop>
Message-ID: <43C276CD.6281.62FEC@stuart.lexacorp.com.pg>

On 8 Jan 2006 at 20:39, Joe Hecht wrote:

> Why cant I get the proper age to return.
...
> Private Sub Report_Open(Cancel As Integer)

Try doing it in the "on_format" for a header or detail.


-- 
Stuart




From rbgajewski at adelphia.net  Sun Jan  8 22:45:16 2006
From: rbgajewski at adelphia.net (Bob Gajewski)
Date: Sun, 8 Jan 2006 23:45:16 -0500
Subject: [AccessD] Date conversion
In-Reply-To: <8301C8A868251E4C8ECD3D4FFEA40F8A154F840D@cpixchng-1.cpiqpc.net>
Message-ID: <000601c614d7$7ce0f6c0$bd00a8c0@DG1P2N21>

I could be wrong, but I thought that the format for day was only three d's
("ddd") ... If four doesn't work, try that instead.

Regards,
Bob Gajewski 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
rusty.hammond at cpiqpc.com
Sent: Sunday, January 08, 2006 22:40 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Date conversion

try format(fldName,"dddd")

-----Original Message-----
From: Keith Williamson [mailto:k.williamson5 at verizon.net]
Sent: Sunday, January 08, 2006 9:20 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Date conversion


Okay,

I know I'm being stupid, but how do I convert an Access date field to a
weekday name?  I have a field that is the date  (01/01/04), and want to have
another field read the day of the week (Thursday.)

Thanks,

Keith

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lonnie Johnson
Sent: Sunday, January 08, 2006 9:50 PM
To: AccessD solving'
Subject: [AccessD] Move to next page of a report with code.

Can you move to the next page of a report programatically via code in the
reports class module?



May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases Visit me at ==>
http://www.prodev.us





 





		
---------------------------------
 Yahoo! DSL Something to write home about. Just $16.99/mo. or less
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


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

**********************************************************************
WARNING: All e-mail sent to and from this address will be received,
scanned or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
corporate e-mail system and is subject to archival, monitoring or review 
by, and/or disclosure to, someone other than the recipient.
**********************************************************************
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jmhecht at earthlink.net  Sun Jan  8 22:55:57 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sun, 8 Jan 2006 20:55:57 -0800
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <43C276CD.6281.62FEC@stuart.lexacorp.com.pg>
Message-ID: <001701c614d8$fb4ae9c0$6701a8c0@HPLaptop>

Tried a different route.

txtAge is unbound control

Data source txtAge=((Now()-[DOB])/365) 

Set decimals to 0 in format

Getting 65.70923 etc

Tied various number formats. The 65 is right in test form.
Can not kill the decimal

What dumb thing did I forget now?




Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Stuart McLachlan
Sent: Sunday, January 08, 2006 8:44 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Date Diff Help It cant be this hard

On 8 Jan 2006 at 20:39, Joe Hecht wrote:

> Why cant I get the proper age to return.
...
> Private Sub Report_Open(Cancel As Integer)

Try doing it in the "on_format" for a header or detail.


-- 
Stuart


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



From stuart at lexacorp.com.pg  Sun Jan  8 22:56:59 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Mon, 09 Jan 2006 14:56:59 +1000
Subject: [AccessD] Date conversion
In-Reply-To: <000601c614d7$7ce0f6c0$bd00a8c0@DG1P2N21>
References: <8301C8A868251E4C8ECD3D4FFEA40F8A154F840D@cpixchng-1.cpiqpc.net>
Message-ID: <43C279BB.19975.119F4A@stuart.lexacorp.com.pg>

On 8 Jan 2006 at 23:45, Bob Gajewski wrote:

> I could be wrong, but I thought that the format for day was only three d's
> ("ddd") ... If four doesn't work, try that instead.
> 

"ddd" returns "Mon", "dddd" returns "Monday"
-- 
Stuart




From jmhecht at earthlink.net  Sun Jan  8 23:05:14 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sun, 8 Jan 2006 21:05:14 -0800
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <001701c614d8$fb4ae9c0$6701a8c0@HPLaptop>
Message-ID: <001801c614da$48e94130$6701a8c0@HPLaptop>

They say if it works ugly can be pretty.

My age solution for unbound text box

=Left (((Now ()-[DOB])/365),2)

Anyone have a better or more accurate way to do this?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Sunday, January 08, 2006 8:56 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Date Diff Help It cant be this hard

Tried a different route.

txtAge is unbound control

Data source txtAge=((Now()-[DOB])/365) 

Set decimals to 0 in format

Getting 65.70923 etc

Tied various number formats. The 65 is right in test form.
Can not kill the decimal

What dumb thing did I forget now?




Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Stuart McLachlan
Sent: Sunday, January 08, 2006 8:44 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Date Diff Help It cant be this hard

On 8 Jan 2006 at 20:39, Joe Hecht wrote:

> Why cant I get the proper age to return.
...
> Private Sub Report_Open(Cancel As Integer)

Try doing it in the "on_format" for a header or detail.


-- 
Stuart


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

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



From stuart at lexacorp.com.pg  Sun Jan  8 23:09:36 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Mon, 09 Jan 2006 15:09:36 +1000
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <001201c614d6$9cbda930$6701a8c0@HPLaptop>
Message-ID: <43C27CB0.1722.1D2E46@stuart.lexacorp.com.pg>

On 8 Jan 2006 at 20:39, Joe Hecht wrote:

> 
>     datenow = Now()
>     dateborn = Me.DOB
> Me.txtage = DateDiff("yyyy", datenow, dateborn)
> 

This will not always give the correct age since it only works on the year 
part and doesn't take into account the actual dates. It will be one year 
too high if datenow is earlier in the year than dateborn.

ie DateDiff("yyyy","31 Dec 05","1 Jan 06") will return 1 even though it is 
only one day difference (to say nothing of your version always returning a 
negative value because the arguments are the wrong way round)

Try
Me.txtage = Datediff("yyyy",dateborn,datenow) + _
(DatePart("y", datenow) < DatePart("y",dateborn))






-- 
Stuart




From stuart at lexacorp.com.pg  Sun Jan  8 23:12:26 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Mon, 09 Jan 2006 15:12:26 +1000
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <001701c614d8$fb4ae9c0$6701a8c0@HPLaptop>
References: <43C276CD.6281.62FEC@stuart.lexacorp.com.pg>
Message-ID: <43C27D5A.27686.1FC50E@stuart.lexacorp.com.pg>

On 8 Jan 2006 at 20:55, Joe Hecht wrote:

> Tried a different route.
> 
> txtAge is unbound control
> 
> Data source txtAge=((Now()-[DOB])/365) 
> 

Doesn't take into account leap years.  This one won't always return the 
correct result either.

-- 
Stuart




From rbgajewski at adelphia.net  Sun Jan  8 23:13:51 2006
From: rbgajewski at adelphia.net (Bob Gajewski)
Date: Mon, 9 Jan 2006 00:13:51 -0500
Subject: [AccessD] Date conversion
In-Reply-To: <43C279BB.19975.119F4A@stuart.lexacorp.com.pg>
Message-ID: <000b01c614db$7aaba360$bd00a8c0@DG1P2N21>

Thanks Stuart! 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: Sunday, January 08, 2006 23:57 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Date conversion

On 8 Jan 2006 at 23:45, Bob Gajewski wrote:

> I could be wrong, but I thought that the format for day was only three 
> d's
> ("ddd") ... If four doesn't work, try that instead.
> 

"ddd" returns "Mon", "dddd" returns "Monday"
--
Stuart


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




From rbgajewski at adelphia.net  Sun Jan  8 23:19:49 2006
From: rbgajewski at adelphia.net (Bob Gajewski)
Date: Mon, 9 Jan 2006 00:19:49 -0500
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <001801c614da$48e94130$6701a8c0@HPLaptop>
Message-ID: <000c01c614dc$5038faf0$bd00a8c0@DG1P2N21>

Check out http://www.mvps.org/access/datetime/date0001.htm
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Monday, January 09, 2006 00:05 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Date Diff Help It cant be this hard

They say if it works ugly can be pretty.

My age solution for unbound text box

=Left (((Now ()-[DOB])/365),2)

Anyone have a better or more accurate way to do this?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Sunday, January 08, 2006 8:56 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Date Diff Help It cant be this hard

Tried a different route.

txtAge is unbound control

Data source txtAge=((Now()-[DOB])/365) 

Set decimals to 0 in format

Getting 65.70923 etc

Tied various number formats. The 65 is right in test form.
Can not kill the decimal

What dumb thing did I forget now?




Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: Sunday, January 08, 2006 8:44 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Date Diff Help It cant be this hard

On 8 Jan 2006 at 20:39, Joe Hecht wrote:

> Why cant I get the proper age to return.
...
> Private Sub Report_Open(Cancel As Integer)

Try doing it in the "on_format" for a header or detail.


--
Stuart


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

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

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




From dajomigo at tpg.com.au  Mon Jan  9 00:51:00 2006
From: dajomigo at tpg.com.au (David & Joanne Gould)
Date: Mon, 09 Jan 2006 17:51:00 +1100
Subject: [AccessD]  Write Conflict - solved
In-Reply-To: <6.2.1.2.2.20060103135101.033b66f0@mail.tpg.com.au>
References: <EB062E528F7B964281EB0F83CFDA3B43251810@usndc0419.us.deloitte.com>
	<6.2.1.2.2.20060103135101.033b66f0@mail.tpg.com.au>
Message-ID: <6.2.1.2.2.20060109174820.02c14b10@mail.tpg.com.au>

Thanks to everyone who offered suggestions. I finally solved the problem. I 
had been focusing on the original form. The problem was actually in the 
other form. I had bound the form back to its table and then updated the 
records through code. The solution was to make the form unbound and 
populate the details from the summoning form.

David

At 01:55 PM 3/01/2006, you wrote:
>Mark
>
>No, I'm just using Access XP keeping the database in Access 2000 format.  I
>think the problem is that the data in the table is updated in the other
>form and therefore doesn't match the subform. I originally wasn't saving
>the changes in the update form but was getting the same problem except that
>the Save button didn't fix things then. So I think I'm closer to the right
>solution except I can't figure out how to do the Save at the right time. It
>seems to be somewhere between when the Close command is activated and
>anything else happening.
>
>Hope this helps.
>
>TIA
>
>David
>
>At 12:41 PM 3/01/2006, you wrote:
> >David -
> >Are you using SQL Server as the backend to your form's data?  I've seen
> >this in the past when SQL tables are being updated.
> >If so, adding a timestamp datatype column to the table seemed to fix it
> >for me.
> >
> >
> >Mark Boyd
> >Senior Consultant
> >Enterprise Risk Services
> >Deloitte & Touche LLP
> >
> >Tel: +1 215 405 5576
> >mboyd at deloitte.com
> >www.deloitte.com
> >
> >
> >-----Original Message-----
> >From: accessd-bounces at databaseadvisors.com
> >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David &
> >Joanne Gould
> >Sent: Saturday, December 31, 2005 8:02 AM
> >To: Access Developers discussion and problem solving
> >Subject: Re: [AccessD] Write Conflict
> >
> >It is set to update the table. However, it doesn't matter what I set to
> >happen in the subform because the error message happens when the other
> >form
> >is closed and before the subform is accessed.
> >
> >At 11:28 PM 31/12/2005, you wrote:
> > >Hi David, and Happy New Year to you too.
> > >
> > >It sounds as if the "new form" on which they change rental type is
> >updating
> > >the same table that your subform is based on. If so I'd try 2 things.
> > >Firstly do a Save of the subform before opening the new form, and then
> > >Requery the subform when the other form closes.
> > >
> > >-- Andy Lacey
> > >http://www.minstersystems.co.uk
> > >
> > > > -----Original Message-----
> > > > From: accessd-bounces at databaseadvisors.com
> > > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > > > David & Joanne Gould
> > > > Sent: 31 December 2005 12:09
> > > > To: accessd at databaseadvisors.com
> > > > Subject: [AccessD] Write Conflict
> > > >
> > > >
> > > > Firstly, I would like to wish everyone on the a Happy and
> > > > Prosperous 2006.
> > > > May the best of 2005 be the worst of 2006.
> > > >
> > > > My problem is I am working on a video library database. My
> > > > hire form has a
> > > > main form (hirer's details) and a subform (hiring details).
> > > > There is a
> > > > combo box that the user uses to select the movie. If they
> > > > double-click on
> > > > the combo box they are taken to a new form where they can
> > > > change the rental
> > > > type for the movie (eg is it an overnight, 3 nights, weekly
> > > > etc rental)
> > > > When they have selected the new rental type the program
> > > > checks for every
> > > > instance of that movie name and changes it to the new rental
> > > > type. It also
> > > > updates the Hiring record to record the new date due into the
> > > > table. This
> > > > all works perfectly. However, when they close the form to go
> > > > back to the
> > > > Hiring form, I get Write Conflict. If I click on the Save
> > > > option it works
> > > > perfectly and updates the row in the Hire form details to reflect
> >the
> > > > changes and I can continue to work.
> > > >
> > > > I can't seem to figure out where the error is being triggered
> > > > so I can tell
> > > > it to save programatically and leave the user none the wiser.
> > > >
> > > > Any help in this will be greatly appreciated.
> > > >
> > > > TIA
> > > >
> > > > David
> > > >
> > > >
> > > > --
> > > > AccessD mailing list
> > > > AccessD at databaseadvisors.com
> > > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > > Website: http://www.databaseadvisors.com
> > > >
> > > >
> > >
> > >--
> > >AccessD mailing list
> > >AccessD at databaseadvisors.com
> > >http://databaseadvisors.com/mailman/listinfo/accessd
> > >Website: http://www.databaseadvisors.com
> >
> >
> >--
> >AccessD mailing list
> >AccessD at databaseadvisors.com
> >http://databaseadvisors.com/mailman/listinfo/accessd
> >Website: http://www.databaseadvisors.com
> >
> >
> >This message (including any attachments) contains confidential information
> >intended for a specific individual and purpose, and is protected by
> >law.  If you are not the intended recipient, you should delete this message.
> >
> >
> >Any disclosure, copying, or distribution of this message, or the taking of
> >any action based on it, is strictly prohibited. [v.E.1]
> >--
> >AccessD mailing list
> >AccessD at databaseadvisors.com
> >http://databaseadvisors.com/mailman/listinfo/accessd
> >Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From Gustav at cactus.dk  Mon Jan  9 03:23:23 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 10:23:23 +0100
Subject: [AccessD] Date Diff Help It cant be this hard
Message-ID: <s3c239b5.009@cactus.dk>

Hi Joe

Well, it is hard; and you missed my posting from 2006-01-07 somehow:

Hi Joe

This requires a little more than a line of code.
Study here for a reliable solution:

  http://databaseadvisors.com/mailman/htdig/accessd/2003-August/011575.html 

/gustav

>>> jmhecht at earthlink.net 09-01-2006 05:55:57 >>>

What dumb thing did I forget now?




From Gustav at cactus.dk  Mon Jan  9 03:30:31 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 10:30:31 +0100
Subject: [AccessD] Date Diff Help It cant be this hard
Message-ID: <s3c23b5e.011@cactus.dk>

Hi Bob and Joe

Be careful. This - as most other attempts - only works sort of.

/gustav

>>> rbgajewski at adelphia.net 09-01-2006 06:19:49 >>>

Check out http://www.mvps.org/access/datetime/date0001.htm 




From mjrobertson at iinet.net.au  Mon Jan  9 04:45:22 2006
From: mjrobertson at iinet.net.au (Mike)
Date: Mon, 9 Jan 2006 20:45:22 +1000
Subject: [AccessD] Report Printing Problem - Graphs Being Split
Message-ID: <000301c61509$cb491090$0600a8c0@D3NSLB1S>

Hi Folks.

I've been a "lurker" here for some time now - and have benefited enormously
from the knowledge shared in AccessD. Please accept my thanks for the effort
each and everyone of you puts into this list.

I'm still trying to find a question I can help with - although by the time I
get to see the questions they have generally been answered!

I have a problem with Access reports. Let me describe the scenario, starting
with a little of my background.

I've spent 30 or so years in the IT industry and have worked across just
about all disciplines - but focussed mainly on development, testing and
deployment. My knowledge base extends across Cobol, Fortran (in the early
days of mainframe apps) to VB (from it's first release) and of course Access
and VBA (also from the first releases). I currently do volunteer work with a
Not For Profit organisation here in Australia. I enjoy that immensely and it
keeps my IT skills up to date.

Now for the problem! (I hope my description is a little clearer than mud,
but it is difficult to describe)

The NFP organisation is required to report against a set of Key Performance
Indicators determined by a Gov't Department which provides a good deal of
their funding. The KPIs and the reporting format are fixed and can't be
changed except by the Gov't. I have developed an Access app (Access 2002)
that manages the counselling services provided by the NFPO and includes all
of the data (in a raw form) required for reporting KPIs.

The reporting includes both textual and graphic formatting which is where I
am having difficulty. The textual reporting as well as the graphs are
sub-reports - and they individually do exactly as I want them to do. The
sub-reports are just a series of independent sub-reports placed in the
detail section of the main report.

I have broken the reporting into separate reports simply because there are
way too many sub-reports to fit into one Access report. Within each report,
there is a mixture of textual sub-reports and graphical sub-reports. Most
textual sub-reports have a predictable maximum length (in terms of report
lines) but some depend on the number of records being reported and therefore
are unpredictable in terms of length. The graphs are also predictable in
terms of maximum length. The total number of sub-reports is around 130 split
over 12 main reports.

Each sub-report, including the graphs, is being handled for "no data"
conditions and that works well.

I have also provided the NFPO with the means of hiding any combination of
sub-reports in any report (their requirement). BTW, when a sub-report is
hidden I programmatically move all following report elements (sub-reports
and labels) up to use the space vacated by the hidden elements.

When a report is printed, any textual or graphical sub-report which starts
before the end of the page is "split" i.e.. part of it prints on the page it
started on and the rest prints on the following page. This is particularly
horrific when a graph is being printed - the "pie" ends up not only sliced
but also severed! I think I can live with textual type reports being split
across pages, but splitting a graph into 2 parts isn't acceptable.

Manually placing page breaks in each section can fix this, but given the
varying height of each sub-report plus the fact that any sub-report may be
hidden and therefore not print at all, even manually placing page breaks is
a difficult task.

I suspect the problem lies in the height of the Detail Section of each main
report - it can be as high as 52cms when zero height sub-reports are placed
on it along with some labels, and that extends to much higher physically at
print time (graphs are typically 11cms high). I simply don't know how to fix
this printing problem without significant manual intervention in the
printing process.

Can anyone help?


Thanks in anticipation,


Mike Robertson

-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.371 / Virus Database: 267.14.15/223 - Release Date: 6/01/2006
 


From andy at minstersystems.co.uk  Mon Jan  9 07:07:32 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Mon, 9 Jan 2006 13:07:32 +0000
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <20060109130729.CC70D2686C9@smtp.nildram.co.uk>

Help guys

I have this Access 97 MDB (FE and BE both A97) which has been running for
years, mostly on W98 but also for some time on W2K. Last week something new
happened. 2 users who were previously on W98 went to W2K. They use a part of
the system which others don't, or at least they try to but when they do it
regularly crashes with:

"Msaccess.exe has generated errors and will be closed by Windows. You will
need to restart the program. An error log is being created."

Needless to say no error log is created at all.

It isn't a coding error because everything works fine on W98.

I used the word 'regularly' above because it's intermittent (the worst
sort). Sometimes it runs fine, other times it crashes, and seemingly at
different points in the routine. I say seemingly but I'm not 100% sure
because debugging this is a nightmare. When it crashes it doesn't go into
debug, so the only way I can see is to step through and wait for it to
crash, but it's a huge routine and as it doesn't crash every time anyway
I'll be here til next Xmas trying to see where it fails.

When I Googled the error I found suggestions to reinstall Jet 3.5 SP3,
reinstall Office SR2B, recopy DAO350.DLL and increase Windows paging limits.
So I've done all of those things to no avail. Also it is not machine
specific. I've gone to another machine running W2K which has been running
the system for years (but not this are of functionality) and it crashes too
when I try this routine.

Has anyone had anything like this (and solved it)? Any bright ideas?



--
Andy Lacey
http://www.minstersystems.co.uk

________________________________________________
Message sent using UebiMiau 2.7.2



From Gustav at cactus.dk  Mon Jan  9 07:23:14 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 14:23:14 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c271ee.026@cactus.dk>

Hi Andy

I had a similar thing which I tracked down to a line with Debug.Print. Commented this out and the code ran, believe it or not.
However, that was not intermittent but consistent.

Have you been through the usual tools: decompile and recompile on Win2000? Or - still on Win2000 - import all objects in a new file?

/gustav

>>> andy at minstersystems.co.uk 09-01-2006 14:07:32 >>>
Help guys

I have this Access 97 MDB (FE and BE both A97) which has been running for
years, mostly on W98 but also for some time on W2K. Last week something new
happened. 2 users who were previously on W98 went to W2K. They use a part of
the system which others don't, or at least they try to but when they do it
regularly crashes with:

"Msaccess.exe has generated errors and will be closed by Windows. You will
need to restart the program. An error log is being created."




From mikedorism at verizon.net  Mon Jan  9 07:31:52 2006
From: mikedorism at verizon.net (Mike & Doris Manning)
Date: Mon, 09 Jan 2006 08:31:52 -0500
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <001701c614d8$fb4ae9c0$6701a8c0@HPLaptop>
Message-ID: <002f01c61521$0e632340$2f01a8c0@dorismanning>

How about using Int() to return just the integer portion?

Doris Manning
mikedorism at verizon.net




From andy at minstersystems.co.uk  Mon Jan  9 07:50:04 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Mon, 9 Jan 2006 13:50:04 +0000
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <20060109135001.C625226C07D@smtp.nildram.co.uk>

Mmm, well there may be a Debug.Print around in a called routine somewhere I
guess. I'll take a look. I've decomp'd and recomp'd on the W2K machine but
not done the new MDB thing. I could try but it'd be a nightmare scenario.
The MDB is in constant evolution and I couldn't contemplate having to do
that every time. Madre mia! Still, I guess it'd be worth knowing if it cures
the problem. Thanks Gustav. Any other suggestions welcomed (very, very
much).

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 09/01/06 13:24


Hi Andy

I had a similar thing which I tracked down to a line with Debug.Print.
Commented this out and the code ran, believe it or not.
However, that was not intermittent but consistent.

Have you been through the usual tools: decompile and recompile on Win2000?
Or - still on Win2000 - import all objects in a new file?

/gustav

>>> andy at minstersystems.co.uk 09-01-2006 14:07:32 >>>
Help guys

I have this Access 97 MDB (FE and BE both A97) which has been running for
years, mostly on W98 but also for some time on W2K. Last week something new
happened. 2 users who were previously on W98 went to W2K. They use a part of
the system which others don't, or at least they try to but when they do it
regularly crashes with:

"Msaccess.exe has generated errors and will be closed by Windows. You will
need to restart the program. An error log is being created."


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

________________________________________________
Message sent using UebiMiau 2.7.2



From kwilliam at ashlandnet.com  Mon Jan  9 08:03:01 2006
From: kwilliam at ashlandnet.com (Keith Williamson)
Date: Mon, 09 Jan 2006 09:03:01 -0500
Subject: [AccessD] Date conversion
In-Reply-To: <8301C8A868251E4C8ECD3D4FFEA40F8A154F840D@cpixchng-1.cpiqpc.net>
Message-ID: <004201c61525$67e1c3a0$0300a8c0@ashlandnet.com>

Seems simple enough.....THANKS!!!

Keith E. Williamson
Ashland Equipment
410-273-1856 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com [mailto:accessd-
> bounces at databaseadvisors.com] On Behalf Of rusty.hammond at cpiqpc.com
> Sent: Sunday, January 08, 2006 10:40 PM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Date conversion
> 
> try format(fldName,"dddd")
> 
> -----Original Message-----
> From: Keith Williamson [mailto:k.williamson5 at verizon.net]
> Sent: Sunday, January 08, 2006 9:20 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Date conversion
> 
> 
> Okay,
> 
> I know I'm being stupid, but how do I convert an Access date field to a
> weekday name?  I have a field that is the date  (01/01/04), and want to
> have
> another field read the day of the week (Thursday.)
> 
> Thanks,
> 
> Keith
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lonnie Johnson
> Sent: Sunday, January 08, 2006 9:50 PM
> To: AccessD solving'
> Subject: [AccessD] Move to next page of a report with code.
> 
> Can you move to the next page of a report programatically via code in the
> reports class module?
> 
> 
> 
> May God bless you beyond your imagination!
> Lonnie Johnson
> ProDev, Professional Development of MS Access Databases
> Visit me at ==> http://www.prodev.us
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> ---------------------------------
>  Yahoo! DSL Something to write home about. Just $16.99/mo. or less
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> **********************************************************************
> WARNING: All e-mail sent to and from this address will be received,
> scanned or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
> corporate e-mail system and is subject to archival, monitoring or review
> by, and/or disclosure to, someone other than the recipient.
> **********************************************************************
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com




From kwilliam at ashlandnet.com  Mon Jan  9 08:03:14 2006
From: kwilliam at ashlandnet.com (Keith Williamson)
Date: Mon, 09 Jan 2006 09:03:14 -0500
Subject: [AccessD] Date conversion
In-Reply-To: <000601c614d7$7ce0f6c0$bd00a8c0@DG1P2N21>
Message-ID: <004301c61525$6fc766b0$0300a8c0@ashlandnet.com>

OK...thanks

Keith E. Williamson
Ashland Equipment
410-273-1856 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com [mailto:accessd-
> bounces at databaseadvisors.com] On Behalf Of Bob Gajewski
> Sent: Sunday, January 08, 2006 11:45 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Date conversion
> 
> I could be wrong, but I thought that the format for day was only three d's
> ("ddd") ... If four doesn't work, try that instead.
> 
> Regards,
> Bob Gajewski
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> rusty.hammond at cpiqpc.com
> Sent: Sunday, January 08, 2006 22:40 PM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Date conversion
> 
> try format(fldName,"dddd")
> 
> -----Original Message-----
> From: Keith Williamson [mailto:k.williamson5 at verizon.net]
> Sent: Sunday, January 08, 2006 9:20 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Date conversion
> 
> 
> Okay,
> 
> I know I'm being stupid, but how do I convert an Access date field to a
> weekday name?  I have a field that is the date  (01/01/04), and want to
> have
> another field read the day of the week (Thursday.)
> 
> Thanks,
> 
> Keith
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lonnie Johnson
> Sent: Sunday, January 08, 2006 9:50 PM
> To: AccessD solving'
> Subject: [AccessD] Move to next page of a report with code.
> 
> Can you move to the next page of a report programatically via code in the
> reports class module?
> 
> 
> 
> May God bless you beyond your imagination!
> Lonnie Johnson
> ProDev, Professional Development of MS Access Databases Visit me at ==>
> http://www.prodev.us
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> ---------------------------------
>  Yahoo! DSL Something to write home about. Just $16.99/mo. or less
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> **********************************************************************
> WARNING: All e-mail sent to and from this address will be received,
> scanned or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
> corporate e-mail system and is subject to archival, monitoring or review
> by, and/or disclosure to, someone other than the recipient.
> **********************************************************************
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com




From Gustav at cactus.dk  Mon Jan  9 08:08:12 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 15:08:12 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c27c7a.029@cactus.dk>

Hi Andy

Yes, I see the problem. 
But the import thing - if it should be the cure - should really be a one-timer. If it works, proceed evolution on the fresh version as it should work on W98 as well.

/gustav

>>> andy at minstersystems.co.uk 09-01-2006 14:50:04 >>>
Mmm, well there may be a Debug.Print around in a called routine somewhere I
guess. I'll take a look. I've decomp'd and recomp'd on the W2K machine but
not done the new MDB thing. I could try but it'd be a nightmare scenario.
The MDB is in constant evolution and I couldn't contemplate having to do
that every time. Madre mia! Still, I guess it'd be worth knowing if it cures
the problem. Thanks Gustav. Any other suggestions welcomed (very, very
much).

--
Andy Lacey
http://www.minstersystems.co.uk 




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 09/01/06 13:24


Hi Andy

I had a similar thing which I tracked down to a line with Debug.Print.
Commented this out and the code ran, believe it or not.
However, that was not intermittent but consistent.

Have you been through the usual tools: decompile and recompile on Win2000?
Or - still on Win2000 - import all objects in a new file?

/gustav

>>> andy at minstersystems.co.uk 09-01-2006 14:07:32 >>>
Help guys

I have this Access 97 MDB (FE and BE both A97) which has been running for
years, mostly on W98 but also for some time on W2K. Last week something new
happened. 2 users who were previously on W98 went to W2K. They use a part of
the system which others don't, or at least they try to but when they do it
regularly crashes with:

"Msaccess.exe has generated errors and will be closed by Windows. You will
need to restart the program. An error log is being created."




From shamil at users.mns.ru  Mon Jan  9 08:42:22 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Mon, 9 Jan 2006 17:42:22 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <20060109130729.CC70D2686C9@smtp.nildram.co.uk>
Message-ID: <006d01c6152a$fc0c6bc0$6401a8c0@fincomplex.spb.ru>

Andy,

Can you post the routine here?

As Gustav noted - debug.print or better custom log file writes here and
there in the problematic routine could help to localize the source of the
problem rather quickly - after not that many GPF crashes hopefully. BTW, do
not forget to "kill" ghost MS Access instances/monikers before the next test
run, which may hang in Running Objects Table(ROT) when MS Access GPFs - use
ROTClean utility for that ROT clean-up...

> It isn't a coding error because everything works fine on W98.
This could be coding problem, which doesn't appear on W98 but shows its ugly
head on W2K with latest updates.
There was a problem with recordsets in MS Access 97 SR1, which was breaking
MS Access 97 (first release) code and then MS Access 97 SR2 solved the
issue. Sorry, I can't remember what kind of problem it was - maybe this link
helps: http://www.mvps.org/access/bugs/bugs0016.htm...

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Monday, January 09, 2006 4:07 PM
Subject: [AccessD] Access97 on W2000 crashes


> Help guys
>
> I have this Access 97 MDB (FE and BE both A97) which has been running for
> years, mostly on W98 but also for some time on W2K. Last week something
new
> happened. 2 users who were previously on W98 went to W2K. They use a part
of
> the system which others don't, or at least they try to but when they do it
> regularly crashes with:
>
> "Msaccess.exe has generated errors and will be closed by Windows. You will
> need to restart the program. An error log is being created."
>
> Needless to say no error log is created at all.
>
> It isn't a coding error because everything works fine on W98.
>
> I used the word 'regularly' above because it's intermittent (the worst
> sort). Sometimes it runs fine, other times it crashes, and seemingly at
> different points in the routine. I say seemingly but I'm not 100% sure
> because debugging this is a nightmare. When it crashes it doesn't go into
> debug, so the only way I can see is to step through and wait for it to
> crash, but it's a huge routine and as it doesn't crash every time anyway
> I'll be here til next Xmas trying to see where it fails.
>
> When I Googled the error I found suggestions to reinstall Jet 3.5 SP3,
> reinstall Office SR2B, recopy DAO350.DLL and increase Windows paging
limits.
> So I've done all of those things to no avail. Also it is not machine
> specific. I've gone to another machine running W2K which has been running
> the system for years (but not this are of functionality) and it crashes
too
> when I try this routine.
>
> Has anyone had anything like this (and solved it)? Any bright ideas?
>
>
>
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
> ________________________________________________
> Message sent using UebiMiau 2.7.2
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Mon Jan  9 08:50:24 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 15:50:24 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c28655.035@cactus.dk>

Hi Shamil

It was the line with Debug.Print (left in the production code) that caused the crash!

/gustav

>>> Gustav at cactus.dk 09-01-2006 14:23:14 >>>

I had a similar thing which I tracked down to a line with Debug.Print. Commented this out and the code ran, believe it or not.




From shamil at users.mns.ru  Mon Jan  9 09:24:01 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Mon, 9 Jan 2006 18:24:01 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <s3c28655.035@cactus.dk>
Message-ID: <000d01c61530$b9500340$6401a8c0@fincomplex.spb.ru>

> It was the line with Debug.Print (left in the production code) that caused
the crash!
I did misinterpret your advice, Gustav, sorry.

But was that just:

debug.print

i.e. debug.print of an empty line or it had some stuff to debug.print?

I guess the problem was with debug.print's parameters?

In the cases like Andy's the only way to find the problematic code is to use
detailed logging - simple text file I/O should be used for that with file
open for append/close for every log record write...

To find a stable workaround the source VBA code line(s) resulting in the GPF
should be found - trying to "solve" the problem with "blind" installation of
different updates is a pure guessing/gambling...

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Monday, January 09, 2006 5:50 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Hi Shamil
>
> It was the line with Debug.Print (left in the production code) that caused
the crash!
>
> /gustav
>
> >>> Gustav at cactus.dk 09-01-2006 14:23:14 >>>
>
> I had a similar thing which I tracked down to a line with Debug.Print.
Commented this out and the code ran, believe it or not.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Mon Jan  9 10:00:56 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 17:00:56 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c296ea.043@cactus.dk>

Hi Shamil

No problem.

No, it was a simple line like

  Debug.Print "Records:", lngRecordCount

which "can't" fail. But it did.
However, I did not do the import-to-new-thing which might have cured the issue. In production code no Debug.Print is needed, so I just commented it out. Still wondering.

/gustav

>>> shamil at users.mns.ru 09-01-2006 16:24:01 >>>
> It was the line with Debug.Print (left in the production code) that caused
the crash!
I did misinterpret your advice, Gustav, sorry.

But was that just:

debug.print

i.e. debug.print of an empty line or it had some stuff to debug.print?

I guess the problem was with debug.print's parameters?

In the cases like Andy's the only way to find the problematic code is to use
detailed logging - simple text file I/O should be used for that with file
open for append/close for every log record write...

To find a stable workaround the source VBA code line(s) resulting in the GPF
should be found - trying to "solve" the problem with "blind" installation of
different updates is a pure guessing/gambling...

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Monday, January 09, 2006 5:50 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Hi Shamil
>
> It was the line with Debug.Print (left in the production code) that caused
the crash!
>
> /gustav
>
> >>> Gustav at cactus.dk 09-01-2006 14:23:14 >>>
>
> I had a similar thing which I tracked down to a line with Debug.Print.
Commented this out and the code ran, believe it or not.




From jmhecht at earthlink.net  Mon Jan  9 10:14:30 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Mon, 9 Jan 2006 08:14:30 -0800
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <s3c239b5.009@cactus.dk>
Message-ID: <003401c61537$c5e14fe0$6701a8c0@HPLaptop>

Gustav,

I may have. I will go back and read it now.

Thanks

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Gustav Brock
Sent: Monday, January 09, 2006 1:23 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Date Diff Help It cant be this hard

Hi Joe

Well, it is hard; and you missed my posting from 2006-01-07
somehow:

Hi Joe

This requires a little more than a line of code.
Study here for a reliable solution:

 
http://databaseadvisors.com/mailman/htdig/accessd/2003-Augus
t/011575.html 

/gustav

>>> jmhecht at earthlink.net 09-01-2006 05:55:57 >>>

What dumb thing did I forget now?


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



From artful at rogers.com  Mon Jan  9 10:28:20 2006
From: artful at rogers.com (Arthur Fuller)
Date: Mon, 9 Jan 2006 11:28:20 -0500
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <001201c614d6$9cbda930$6701a8c0@HPLaptop>
Message-ID: <025001c61539$b413bf30$8e01a8c0@rock>

Here is a solution for you. You have stumbled upon a couple of croquet hoops
in date calculations, but here is a solution for you. First, using my
birthday as the value (rather than your control name), look at these
results:
? datediff("yyyy", #11/15/1947#, Date())
 59 
Which is wrong: I am 58 not 59: the problem is that the above examines only
the year.
? datediff("d", #11/15/1947#, Date())
 21240 
Which correctly returns the number of days between my birthdate and today.
? 21240 / 365.26
 58.1503586486339
This divides the number of days by the number of days in a year (the .26 is
for leap years and handles them correctly).
Now just Int() that value and you get the correct number of years. So,
ungainly as it is, the formula becomes:
? Int(DateDiff("d", #11/15/1947#, Date())/365.26)
There may be a simpler and foolproof way, but until someone presents it, you
can reliably use this. I would suggest creating a function AgeInYears() into
which you pass the DateOfBirth. Then when someone presents a simpler way to
do it, you can just change the content of the function.
HTH,
Arthur




From DWUTKA at marlow.com  Mon Jan  9 10:30:30 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Mon, 9 Jan 2006 10:30:30 -0600 
Subject: [AccessD] email validation
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD4F9@main2.marlow.com>

Sure, that's easy though, just send them a registration email.  When the
user signs up, tell them an email was sent to them to finish the
registration.  That will verify the email is their's.

Drew

-----Original Message-----
From: Arthur Fuller [mailto:artful at rogers.com]
Sent: Sunday, January 08, 2006 5:47 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] email validation


I would like to learn more about this. In the problem domain that I faced, I
would want not only to know whether the email address is valid, but whether
you received my send, because DWUTKA at marlow.com and DDWUTKA at marlow.com might
both be valid, and I need to make sure that the mail goes to you not him.
Which implies that I would like a response immediately. I realize there are
problems such as hotmail and gmail's relatively show times, not to mention
an ISP's mail down. But still...
A.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: January 8, 2006 6:29 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] email validation

Technically, you could use TCP/IP to create an SMTP session to verify an
email address.  The SMTP protocol does verify whether an email is valid on
it's domain.

Drew

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


From Gustav at cactus.dk  Mon Jan  9 10:59:51 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 17:59:51 +0100
Subject: [AccessD] email validation
Message-ID: <s3c2a4a0.048@cactus.dk>

Hi Stuart

This is a good and valid point.

One purpose is to validate a typed input or a table with addresses for typing errors and malformatted strings.

Another is to validate a real-life e-mail address. This is extremely slow compared to string validation and may - as noted - fail for many other reasons than typing errors. Thus, your purpose for validating the address must be clearly defined and so must the actions to be taken in case of an error. These will be different for, say, the situation where you wish to send an email _now_ and the situation where you wish to send something to this address some day in the future; in this case you could wait for a response (accept) from the mail server for the usual up to 48 hours.

/gustav

>>> stuart at lexacorp.com.pg 08-01-2006 23:52:11 >>>
Are we talking about code to determine whether the format of a particular 
string is valid as an email address or whether  a particular email address 
resolves to a real mailbox?




From cfoust at infostatsystems.com  Mon Jan  9 11:01:29 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 9 Jan 2006 09:01:29 -0800
Subject: [AccessD] Naming conventions
Message-ID: <F55048AF7E974F429BB24597D7355EEABEE9@INFOSERVER04.infostat.local>

I rename them all, as I create them.  I hate trying to sort out Text121
or Label57 when I'm trying to find something.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Friday, January 06, 2006 7:10 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Naming conventions


Who renames all controls in Access?

 

Who just renames controls that you write code against?

 

Joe Hecht

jmhecht at earthlink.net

 

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


From john at winhaven.net  Mon Jan  9 11:14:42 2006
From: john at winhaven.net (John Bartow)
Date: Mon, 9 Jan 2006 11:14:42 -0600
Subject: [AccessD] Naming conventions
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABEE9@INFOSERVER04.infostat.local>
Message-ID: <00a501c61540$2f54ba90$7601a8c0@ScuzzPaq>

Same here. I have used Shamil's add-on to assist with this. 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust

I rename them all, as I create them.  I hate trying to sort out Text121 or
Label57 when I'm trying to find something.



From DWUTKA at marlow.com  Mon Jan  9 11:10:59 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Mon, 9 Jan 2006 11:10:59 -0600 
Subject: [AccessD] Naming conventions
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD4FD@main2.marlow.com>

I rename everything but 'extra' labels.  ie, if I put a label in place, I
have it renamed.  If I put a textbox in place, I will not rename the
associated label unless I'm going to mess with it in code.  Of course, I
tend to write more VB/ASP stuff, so my techniques in Access are used
minimally.

Drew

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Monday, January 09, 2006 11:01 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Naming conventions


I rename them all, as I create them.  I hate trying to sort out Text121
or Label57 when I'm trying to find something.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Friday, January 06, 2006 7:10 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Naming conventions


Who renames all controls in Access?

 

Who just renames controls that you write code against?

 

Joe Hecht

jmhecht at earthlink.net

 

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


From Gustav at cactus.dk  Mon Jan  9 11:24:27 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 18:24:27 +0100
Subject: [AccessD] Date Diff Help It cant be this hard
Message-ID: <s3c2aa64.049@cactus.dk>

Hi Arthur

I love the word "reliably" ...
Try this:

? Int(DateDiff("d", #1/9/1955#, Date())/365.26)
? Int(DateDiff("d", #1/9/1956#, Date())/365.26)

It would be nice but there is no simple and foolproof way.
If age calculation is for birthday greeting cards to the boys in the football club, who cares (well, I could think of some, but the World would still stand), but if you need an age for an insurance case it has to be right. Not to forget that more than 3 mio. people are born on the 29th. February ...

/gustav


>>> artful at rogers.com 09-01-2006 17:28:20 >>>
Here is a solution for you. You have stumbled upon a couple of croquet hoops
in date calculations, but here is a solution for you. First, using my
birthday as the value (rather than your control name), look at these
results:
? datediff("yyyy", #11/15/1947#, Date())
 59 
Which is wrong: I am 58 not 59: the problem is that the above examines only
the year.
? datediff("d", #11/15/1947#, Date())
 21240 
Which correctly returns the number of days between my birthdate and today.
? 21240 / 365.26
 58.1503586486339
This divides the number of days by the number of days in a year (the .26 is
for leap years and handles them correctly).
Now just Int() that value and you get the correct number of years. So,
ungainly as it is, the formula becomes:
? Int(DateDiff("d", #11/15/1947#, Date())/365.26)
There may be a simpler and foolproof way, but until someone presents it, you
can reliably use this. I would suggest creating a function AgeInYears() into
which you pass the DateOfBirth. Then when someone presents a simpler way to
do it, you can just change the content of the function.
HTH,
Arthur




From dw-murphy at cox.net  Mon Jan  9 11:35:02 2006
From: dw-murphy at cox.net (Doug Murphy)
Date: Mon, 9 Jan 2006 09:35:02 -0800
Subject: [AccessD] Weird form color problem
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABEE9@INFOSERVER04.infostat.local>
Message-ID: <000001c61543$05b75190$0200a8c0@murphyf3vdfepi>

Folks,

We have an application that has been installed on several hundred computers.
We were recently visiting a client and helped to put the application on her
laptop.  When opened the forms in the app. were not in the color that was
set at design time and the text boxes that have their background set to
transparent, and borders invisible were back to white background and normal
borders.  This is an mde file.  When we designed the app we set all forms
and controls to non windows colors so that if the user sets their windows
preferences to some non-standard color set it does not impact our
application.  The monitor on the computer displays all colors and pictures
correctly.  The only thing I can think of that might cause this behavior is
that some windows or Office file has been corrupted.

Have any of you seen this type of behavior and if so do you know what the
cause is?

The laptop was a year old Dell with Windows XP Home.

Thanks in advance.

Doug



From shamil at users.mns.ru  Mon Jan  9 11:58:38 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Mon, 9 Jan 2006 20:58:38 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <s3c296ea.043@cactus.dk>
Message-ID: <00b901c61546$52f01e80$6401a8c0@fincomplex.spb.ru>

> No, it was a simple line like
>   Debug.Print "Records:", lngRecordCount
Well, it looks simple but it implicitly uses Long to String conversion, it
does use tabbed formatting of output etc.
Did you try to comment and to replace it with just

Debug.print

?

It may happen VBA didn't compile/execute lngRecordCount assignment code line
at all because you commented out the only(?) line where this assignment was
used etc.

<<<
so I just commented it out. Still wondering.
>>>
Yes, it happens sometimes - this "automagical" bug fixing.

But I'm usually trying to avoid that by any means and to find the real cause
of the
troubles for me and my customers to sleep well :)

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Monday, January 09, 2006 7:00 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Hi Shamil
>
> No problem.
>
> No, it was a simple line like
>
>   Debug.Print "Records:", lngRecordCount
>
> which "can't" fail. But it did.
> However, I did not do the import-to-new-thing which might have cured the
issue. In production code no Debug.Print is needed, so I just commented it
out. Still wondering.
>
> /gustav
>
> >>> shamil at users.mns.ru 09-01-2006 16:24:01 >>>
> > It was the line with Debug.Print (left in the production code) that
caused
> the crash!
> I did misinterpret your advice, Gustav, sorry.
>
> But was that just:
>
> debug.print
>
> i.e. debug.print of an empty line or it had some stuff to debug.print?
>
> I guess the problem was with debug.print's parameters?
>
> In the cases like Andy's the only way to find the problematic code is to
use
> detailed logging - simple text file I/O should be used for that with file
> open for append/close for every log record write...
>
> To find a stable workaround the source VBA code line(s) resulting in the
GPF
> should be found - trying to "solve" the problem with "blind" installation
of
> different updates is a pure guessing/gambling...
>
> Shamil
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Monday, January 09, 2006 5:50 PM
> Subject: Re: [AccessD] Access97 on W2000 crashes
>
>
> > Hi Shamil
> >
> > It was the line with Debug.Print (left in the production code) that
caused
> the crash!
> >
> > /gustav
> >
> > >>> Gustav at cactus.dk 09-01-2006 14:23:14 >>>
> >
> > I had a similar thing which I tracked down to a line with Debug.Print.
> Commented this out and the code ran, believe it or not.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Mon Jan  9 11:55:42 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 18:55:42 +0100
Subject: [AccessD] Weird form color problem
Message-ID: <s3c2b1b4.050@cactus.dk>

Hi Doug

It might be a Dell issue (we've seen many strange things on Dells, though not this). 
However, try to, if you are allowed to:

Check for graphic driver update.
Change graphic resolution, run the app, change resolution back.
Switch to another "Theme"
Switch to "Classic view" - like Win2000
Switch to same resolution but fewer colours

/gustav

>>> dw-murphy at cox.net 09-01-2006 18:35:02 >>>
Folks,

We have an application that has been installed on several hundred computers.
We were recently visiting a client and helped to put the application on her
laptop.  When opened the forms in the app. were not in the color that was
set at design time and the text boxes that have their background set to
transparent, and borders invisible were back to white background and normal
borders.  This is an mde file.  When we designed the app we set all forms
and controls to non windows colors so that if the user sets their windows
preferences to some non-standard color set it does not impact our
application.  The monitor on the computer displays all colors and pictures
correctly.  The only thing I can think of that might cause this behavior is
that some windows or Office file has been corrupted.

Have any of you seen this type of behavior and if so do you know what the
cause is?

The laptop was a year old Dell with Windows XP Home.

Thanks in advance.

Doug




From Gustav at cactus.dk  Mon Jan  9 12:03:23 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 19:03:23 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c2b39d.051@cactus.dk>

Hi Shamil

You are absolutely right. But, you know, this app was developed by someone else and I really didn't feel that much for it. I was happy just to be able to track down this weird bug. The budget didn't leave room for fun, so ... 
Will I be punished in the next life? Who knows.

/gustav

>>> shamil at users.mns.ru 09-01-2006 18:58:38 >>>
> No, it was a simple line like
>   Debug.Print "Records:", lngRecordCount
Well, it looks simple but it implicitly uses Long to String conversion, it
does use tabbed formatting of output etc.
Did you try to comment and to replace it with just

Debug.print

?

It may happen VBA didn't compile/execute lngRecordCount assignment code line
at all because you commented out the only(?) line where this assignment was
used etc.

<<<
so I just commented it out. Still wondering.
>>>
Yes, it happens sometimes - this "automagical" bug fixing.

But I'm usually trying to avoid that by any means and to find the real cause of the
troubles for me and my customers to sleep well :)

Shamil




From jwcolby at ColbyConsulting.com  Mon Jan  9 12:27:09 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 9 Jan 2006 13:27:09 -0500
Subject: [AccessD] Print various document types from Access
Message-ID: <000901c6154a$4fa27d50$7000a8c0@ColbyM6805>

My client currently opens a directory, selects a bunch of files, and from
explorer's right click menu clicks "Print".  The files are sent directly to
the printer.  In fact an instance of the object that "handles" the object
opens and somehow causes it to send to the printer.  Is there any way to use
that functionality from inside Access?  

Try it yourself.  Go to a directory, select a document (a word doc for
instance), right click to get the context menu, click "Print" and watch
closely, you will see Windows open Word, send the doc to the printer (the
default printer for the machine) and then close Word again.  This works for
Office apps, for Tiffs (with a registered viewer) and for PDF files (with
the registered viewer) although it does not close the PDF viewer when
finished for some reason.

I need to know how to call whatever it is that the print menu item calls,
passing in the pathed document name in order to print the object.  Has
anyone done this?

John W. Colby
www.ColbyConsulting.com 




From jwelz at hotmail.com  Mon Jan  9 13:46:35 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Mon, 09 Jan 2006 12:46:35 -0700
Subject: [AccessD] Print various document types from Access
In-Reply-To: <000901c6154a$4fa27d50$7000a8c0@ColbyM6805>
Message-ID: <BAY113-F38F44FD9EF1B9845CA6145A1220@phx.gbl>

ShellExecute

http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/dnarvb4/html/msdn_shelexec.asp

I have a mult-select list box showing the files and let the user click print 
after selecting 1 or more files.


Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "John Colby" <jwcolby at colbyconsulting.com>
>>
>My client currently opens a directory, selects a bunch of files, and from
>explorer's right click menu clicks "Print".  The files are sent directly to
>the printer.  In fact an instance of the object that "handles" the object
>opens and somehow causes it to send to the printer.  Is there any way to 
>use
>that functionality from inside Access?
>
>Try it yourself.  Go to a directory, select a document (a word doc for
>instance), right click to get the context menu, click "Print" and watch
>closely, you will see Windows open Word, send the doc to the printer (the
>default printer for the machine) and then close Word again.  This works for
>Office apps, for Tiffs (with a registered viewer) and for PDF files (with
>the registered viewer) although it does not close the PDF viewer when
>finished for some reason.
>
>I need to know how to call whatever it is that the print menu item calls,
>passing in the pathed document name in order to print the object.  Has
>anyone done this?
>
>John W. Colby
>www.ColbyConsulting.com




From reuben at gfconsultants.com  Mon Jan  9 13:51:04 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Mon, 9 Jan 2006 14:51:04 -0500
Subject: [AccessD] A2K - Unzip  and append from CD
Message-ID: <DPEKLCIHBOJKCKJECLCPEEHBDAAA.reuben@gfconsultants.com>

I need to append data to a table in Access.

However, the data is in a zipped txt file on a CD.

Anyone, have a way to allow the user to browse to the proper file, unzip it,
and insert the data into Access in one motion?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017






From andy at minstersystems.co.uk  Mon Jan  9 14:26:16 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Mon, 9 Jan 2006 20:26:16 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <s3c27c7a.029@cactus.dk>
Message-ID: <000001c6155a$f13db1b0$6caf0c54@minster33c3r25>

Well I've moved on but not solved the problem. Importing everything into a
new mdb didn't do it, so I decided to see if WXP had the same problem. The
answer was almost but not quite. It didn't give the error message, instead
it just dropped out of Access clean as a whistle - no meesage, no nothing.
So, I reckon, same problem just looks different under XP. Now I've come home
to my own XP machine and run the app and no sign of a problem. I now have to
think - why does an XP machine at work fail but not mine here? Would it be
reasonable to think it's a DLL issue? And could the following be a factor?
At work I long ago created a distributable version on the network so we
could use Runtime. So even though we later installed full Access everywhere
we still install from the network Setup and use /Runtime. At home I've never
done that. It's not the /Runtime itself cos I've tried without it, but does
the fact that the MDB is installed by a distributable runtime setup mean
that it's using different DLL's than a version just running under a normal
Access installation? I'm sure I've explained that badly, but the nub is: a)
does anyone know how I can establish a full list of DLLs involved in running
the MDB, and b) how can I easily compare versions of said DLLs on two
machines?


-- Andy Lacey
http://www.minstersystems.co.uk 



> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gustav Brock
> Sent: 09 January 2006 14:08
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> Hi Andy
> 
> Yes, I see the problem. 
> But the import thing - if it should be the cure - should 
> really be a one-timer. If it works, proceed evolution on the 
> fresh version as it should work on W98 as well.
> 
> /gustav
> 
> >>> andy at minstersystems.co.uk 09-01-2006 14:50:04 >>>
> Mmm, well there may be a Debug.Print around in a called 
> routine somewhere I guess. I'll take a look. I've decomp'd 
> and recomp'd on the W2K machine but not done the new MDB 
> thing. I could try but it'd be a nightmare scenario. The MDB 
> is in constant evolution and I couldn't contemplate having to 
> do that every time. Madre mia! Still, I guess it'd be worth 
> knowing if it cures the problem. Thanks Gustav. Any other 
> suggestions welcomed (very, very much).
> 
> --
> Andy Lacey
> http://www.minstersystems.co.uk 
> 
> 
> 
> 
> --------- Original Message --------
> From: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Access97 on W2000 crashes
> Date: 09/01/06 13:24
> 
> 
> Hi Andy
> 
> I had a similar thing which I tracked down to a line with 
> Debug.Print. Commented this out and the code ran, believe it 
> or not. However, that was not intermittent but consistent.
> 
> Have you been through the usual tools: decompile and 
> recompile on Win2000? Or - still on Win2000 - import all 
> objects in a new file?
> 
> /gustav
> 
> >>> andy at minstersystems.co.uk 09-01-2006 14:07:32 >>>
> Help guys
> 
> I have this Access 97 MDB (FE and BE both A97) which has been 
> running for years, mostly on W98 but also for some time on 
> W2K. Last week something new happened. 2 users who were 
> previously on W98 went to W2K. They use a part of the system 
> which others don't, or at least they try to but when they do 
> it regularly crashes with:
> 
> "Msaccess.exe has generated errors and will be closed by 
> Windows. You will need to restart the program. An error log 
> is being created."
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From carbonnb at gmail.com  Mon Jan  9 14:43:07 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Mon, 9 Jan 2006 15:43:07 -0500
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <000001c6155a$f13db1b0$6caf0c54@minster33c3r25>
References: <s3c27c7a.029@cactus.dk>
	<000001c6155a$f13db1b0$6caf0c54@minster33c3r25>
Message-ID: <e04a6c920601091243k2d7b34a1k@mail.gmail.com>

On 09/01/06, Andy Lacey <andy at minstersystems.co.uk> wrote:
> Well I've moved on but not solved the problem. Importing everything into a
> new mdb didn't do it, so I decided to see if WXP had the same problem. The
> answer was almost but not quite. It didn't give the error message, instead
> it just dropped out of Access clean as a whistle - no meesage, no nothing.
> So, I reckon, same problem just looks different under XP. Now I've come home
> to my own XP machine and run the app and no sign of a problem. I now have to
> think - why does an XP machine at work fail but not mine here? Would it be
> reasonable to think it's a DLL issue? And could the following be a factor?
> At work I long ago created a distributable version on the network so we
> could use Runtime. So even though we later installed full Access everywhere
> we still install from the network Setup and use /Runtime. At home I've never
> done that. It's not the /Runtime itself cos I've tried without it, but does
> the fact that the MDB is installed by a distributable runtime setup mean
> that it's using different DLL's than a version just running under a normal
> Access installation? I'm sure I've explained that badly, but the nub is: a)
> does anyone know how I can establish a full list of DLLs involved in running
> the MDB, and b) how can I easily compare versions of said DLLs on two
> machines?

Something about this is bringing up something from the fuzzy recesses
of the grey matter.

It sounds like it may be a Jet or MDAC issue.

You can get the MDAC Utility: Component Checker from:

http://www.microsoft.com/downloads/details.aspx?FamilyID=8f0a8df6-4a21-4b43-bf53-14332ef092c9&DisplayLang=en

This will let you see what MDAC version is installed.

I think my issue was my dev pc had Jet SP6 and the desktops it was
deployed to had Jet SP3. Something along those lines.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From andy at minstersystems.co.uk  Mon Jan  9 15:11:36 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Mon, 9 Jan 2006 21:11:36 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <e04a6c920601091243k2d7b34a1k@mail.gmail.com>
Message-ID: <000501c61561$468c2b00$6caf0c54@minster33c3r25>

Thanks Bryan. I installed Jet SP3 on all machines so I'd have thought that
was ok. The MDAC checker's great. Could do with something for Access
components now. Anyone?

-- Andy Lacey
http://www.minstersystems.co.uk 


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Bryan Carbonnell
> Sent: 09 January 2006 20:43
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> On 09/01/06, Andy Lacey <andy at minstersystems.co.uk> wrote:
> > Well I've moved on but not solved the problem. Importing everything 
> > into a new mdb didn't do it, so I decided to see if WXP had 
> the same 
> > problem. The answer was almost but not quite. It didn't 
> give the error 
> > message, instead it just dropped out of Access clean as a 
> whistle - no 
> > meesage, no nothing. So, I reckon, same problem just looks 
> different 
> > under XP. Now I've come home to my own XP machine and run 
> the app and 
> > no sign of a problem. I now have to think - why does an XP 
> machine at 
> > work fail but not mine here? Would it be reasonable to think it's a 
> > DLL issue? And could the following be a factor? At work I long ago 
> > created a distributable version on the network so we could use 
> > Runtime. So even though we later installed full Access 
> everywhere we 
> > still install from the network Setup and use /Runtime. At home I've 
> > never done that. It's not the /Runtime itself cos I've 
> tried without 
> > it, but does the fact that the MDB is installed by a distributable 
> > runtime setup mean that it's using different DLL's than a 
> version just 
> > running under a normal Access installation? I'm sure I've explained 
> > that badly, but the nub is: a) does anyone know how I can 
> establish a 
> > full list of DLLs involved in running the MDB, and b) how 
> can I easily 
> > compare versions of said DLLs on two machines?
> 
> Something about this is bringing up something from the fuzzy 
> recesses of the grey matter.
> 
> It sounds like it may be a Jet or MDAC issue.
> 
> You can get the MDAC Utility: Component Checker from:
> 
> http://www.microsoft.com/downloads/details.aspx?FamilyID=8f0a8
df6-4a21-4b43-bf53-14332ef092c9&DisplayLang=en

This will let you see what MDAC version is installed.

I think my issue was my dev pc had Jet SP6 and the desktops it was deployed
to had Jet SP3. Something along those lines.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well preserved
body, but rather to skid in sideways, totally worn out, shouting "What a
great ride!"
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From lmrazek at lcm-res.com  Mon Jan  9 15:16:36 2006
From: lmrazek at lcm-res.com (Lawrence Mrazek)
Date: Mon, 9 Jan 2006 15:16:36 -0600
Subject: [AccessD] Report Summing Help
In-Reply-To: <e04a6c920601091243k2d7b34a1k@mail.gmail.com>
Message-ID: <070e01c61561$f9cf9620$036fa8c0@hplaptop>

Hi:

I have a report comparing previous year data with current year data. Let's
assume that the report was run for period 4, which included everything
Jan-March data:

Month:	PrevYrData	CurrYrData
Jan		10		10
Feb		20		10
Mar		10		10
Apr		10		0
May		10		0
Jun		10		0
Jul		10		0
Aug		10		0
Sept		10		0
Oct		10		0
Nov		10		0
Dec		10		0

Totals YTD	40		30 (I need it to do this)
Totals	130		30	 

I'd like the report to be able to calculate the YTD comparison totals, that
is, if we ran the report for the first 4 months, it would automatically
create YTD totals for the previous year for the first 4 months (instead of
calculating for all 12 months). 

Any ideas on how to approach this? This is generated from data off a
mainframe, so I don't have a lot of control over the format and fields. 

Thanks in advance.

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com
lmrazek at lcm-res.com
ph. 314-432-5886
fx. 314-432-3304





From Jim.Hale at FleetPride.com  Mon Jan  9 15:36:37 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Mon, 9 Jan 2006 15:36:37 -0600 
Subject: [AccessD] Report Summing Help
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD959@corp-es01.fleetpride.com>

One way to do it would be to create a 2 field table where field 1 is a
number from 1 to 12 representing the month. Field two is the text name of
the month Jan, Feb, Mar etc. Join this table with your data table. In the
query grid select the prevyrdata and curryrdata fields and the new month
number field. Select groupby but change the month number field to a where
clause. in the criteria place >=3. The result should be a two field record
with the totals you want. HTH
Jim Hale 

-----Original Message-----
From: Lawrence Mrazek [mailto:lmrazek at lcm-res.com]
Sent: Monday, January 09, 2006 3:17 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Report Summing Help


Hi:

I have a report comparing previous year data with current year data. Let's
assume that the report was run for period 4, which included everything
Jan-March data:

Month:	PrevYrData	CurrYrData
Jan		10		10
Feb		20		10
Mar		10		10
Apr		10		0
May		10		0
Jun		10		0
Jul		10		0
Aug		10		0
Sept		10		0
Oct		10		0
Nov		10		0
Dec		10		0

Totals YTD	40		30 (I need it to do this)
Totals	130		30	 

I'd like the report to be able to calculate the YTD comparison totals, that
is, if we ran the report for the first 4 months, it would automatically
create YTD totals for the previous year for the first 4 months (instead of
calculating for all 12 months). 

Any ideas on how to approach this? This is generated from data off a
mainframe, so I don't have a lot of control over the format and fields. 

Thanks in advance.

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com
lmrazek at lcm-res.com
ph. 314-432-5886
fx. 314-432-3304



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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From shamil at users.mns.ru  Mon Jan  9 15:53:31 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 10 Jan 2006 00:53:31 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <000001c6155a$f13db1b0$6caf0c54@minster33c3r25>
Message-ID: <004801c61567$3216d610$6401a8c0@fincomplex.spb.ru>

Andy,

Do you have just one front-end program mdb database or this mdb refers to
the other (library) .mdb/.mde databases?
Do you haev your front-end program mdb database's code compiled and saved?

Shamil

P.S. I still hope you can solve the problem without investigating the list
of loaded .dlls etc. but if you will need that here is the code you can use:

http://www.vbaccelerator.com/home/VB/Tips/Getting_Process_Information_Using_PSAPI/VB_PSAPI_Demonstration.asp

combined with GetFileVersionInfo API call...

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Monday, January 09, 2006 11:26 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Well I've moved on but not solved the problem. Importing everything into a
> new mdb didn't do it, so I decided to see if WXP had the same problem. The
> answer was almost but not quite. It didn't give the error message, instead
> it just dropped out of Access clean as a whistle - no meesage, no nothing.
> So, I reckon, same problem just looks different under XP. Now I've come
home
> to my own XP machine and run the app and no sign of a problem. I now have
to
> think - why does an XP machine at work fail but not mine here? Would it be
> reasonable to think it's a DLL issue? And could the following be a factor?
> At work I long ago created a distributable version on the network so we
> could use Runtime. So even though we later installed full Access
everywhere
> we still install from the network Setup and use /Runtime. At home I've
never
> done that. It's not the /Runtime itself cos I've tried without it, but
does
> the fact that the MDB is installed by a distributable runtime setup mean
> that it's using different DLL's than a version just running under a normal
> Access installation? I'm sure I've explained that badly, but the nub is:
a)
> does anyone know how I can establish a full list of DLLs involved in
running
> the MDB, and b) how can I easily compare versions of said DLLs on two
> machines?
>
>
> -- Andy Lacey
> http://www.minstersystems.co.uk
>
>
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Gustav Brock
> > Sent: 09 January 2006 14:08
> > To: accessd at databaseadvisors.com
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > Hi Andy
> >
> > Yes, I see the problem.
> > But the import thing - if it should be the cure - should
> > really be a one-timer. If it works, proceed evolution on the
> > fresh version as it should work on W98 as well.
> >
> > /gustav
> >
> > >>> andy at minstersystems.co.uk 09-01-2006 14:50:04 >>>
> > Mmm, well there may be a Debug.Print around in a called
> > routine somewhere I guess. I'll take a look. I've decomp'd
> > and recomp'd on the W2K machine but not done the new MDB
> > thing. I could try but it'd be a nightmare scenario. The MDB
> > is in constant evolution and I couldn't contemplate having to
> > do that every time. Madre mia! Still, I guess it'd be worth
> > knowing if it cures the problem. Thanks Gustav. Any other
> > suggestions welcomed (very, very much).
> >
> > --
> > Andy Lacey
> > http://www.minstersystems.co.uk
> >
> >
> >
> >
> > --------- Original Message --------
> > From: "Access Developers discussion and problem solving"
> > <accessd at databaseadvisors.com>
> > To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> > Date: 09/01/06 13:24
> >
> >
> > Hi Andy
> >
> > I had a similar thing which I tracked down to a line with
> > Debug.Print. Commented this out and the code ran, believe it
> > or not. However, that was not intermittent but consistent.
> >
> > Have you been through the usual tools: decompile and
> > recompile on Win2000? Or - still on Win2000 - import all
> > objects in a new file?
> >
> > /gustav
> >
> > >>> andy at minstersystems.co.uk 09-01-2006 14:07:32 >>>
> > Help guys
> >
> > I have this Access 97 MDB (FE and BE both A97) which has been
> > running for years, mostly on W98 but also for some time on
> > W2K. Last week something new happened. 2 users who were
> > previously on W98 went to W2K. They use a part of the system
> > which others don't, or at least they try to but when they do
> > it regularly crashes with:
> >
> > "Msaccess.exe has generated errors and will be closed by
> > Windows. You will need to restart the program. An error log
> > is being created."
> >
> >
> > -- 
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> >
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From andy at minstersystems.co.uk  Mon Jan  9 16:03:24 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Mon, 9 Jan 2006 22:03:24 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <004801c61567$3216d610$6401a8c0@fincomplex.spb.ru>
Message-ID: <000801c61568$83060630$6caf0c54@minster33c3r25>

Thanks for the link Shamil, I'll investigate.

Yes there's just one (v large) FE. No library MDBs or MDEs.

Andy

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Shamil Salakhetdinov
> Sent: 09 January 2006 21:54
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> Andy,
> 
> Do you have just one front-end program mdb database or this 
> mdb refers to the other (library) .mdb/.mde databases? Do you 
> haev your front-end program mdb database's code compiled and saved?
> 
> Shamil
> 
> P.S. I still hope you can solve the problem without 
> investigating the list of loaded .dlls etc. but if you will 
> need that here is the code you can use:
> 
> http://www.vbaccelerator.com/home/VB/Tips/Getting_Process_Info
> rmation_Using_PSAPI/VB_PSAPI_Demonstration.asp
> 
> combined with GetFileVersionInfo API call...
> 
> ----- Original Message ----- 
> From: "Andy Lacey" <andy at minstersystems.co.uk>
> To: "'Access Developers discussion and problem solving'" 
> <accessd at databaseadvisors.com>
> Sent: Monday, January 09, 2006 11:26 PM
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> > Well I've moved on but not solved the problem. Importing everything 
> > into a new mdb didn't do it, so I decided to see if WXP had 
> the same 
> > problem. The answer was almost but not quite. It didn't 
> give the error 
> > message, instead it just dropped out of Access clean as a 
> whistle - no 
> > meesage, no nothing. So, I reckon, same problem just looks 
> different 
> > under XP. Now I've come
> home
> > to my own XP machine and run the app and no sign of a 
> problem. I now 
> > have
> to
> > think - why does an XP machine at work fail but not mine 
> here? Would 
> > it be reasonable to think it's a DLL issue? And could the 
> following be 
> > a factor? At work I long ago created a distributable version on the 
> > network so we could use Runtime. So even though we later installed 
> > full Access
> everywhere
> > we still install from the network Setup and use /Runtime. 
> At home I've
> never
> > done that. It's not the /Runtime itself cos I've tried 
> without it, but
> does
> > the fact that the MDB is installed by a distributable runtime setup 
> > mean that it's using different DLL's than a version just 
> running under 
> > a normal Access installation? I'm sure I've explained that 
> badly, but 
> > the nub is:
> a)
> > does anyone know how I can establish a full list of DLLs involved in
> running
> > the MDB, and b) how can I easily compare versions of said 
> DLLs on two 
> > machines?
> >
> >
> > -- Andy Lacey
> > http://www.minstersystems.co.uk
> >
> >
> >
> > > -----Original Message-----
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav 
> > > Brock
> > > Sent: 09 January 2006 14:08
> > > To: accessd at databaseadvisors.com
> > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > >
> > >
> > > Hi Andy
> > >
> > > Yes, I see the problem.
> > > But the import thing - if it should be the cure - should 
> really be a 
> > > one-timer. If it works, proceed evolution on the fresh 
> version as it 
> > > should work on W98 as well.
> > >
> > > /gustav
> > >
> > > >>> andy at minstersystems.co.uk 09-01-2006 14:50:04 >>>
> > > Mmm, well there may be a Debug.Print around in a called routine 
> > > somewhere I guess. I'll take a look. I've decomp'd and 
> recomp'd on 
> > > the W2K machine but not done the new MDB thing. I could 
> try but it'd 
> > > be a nightmare scenario. The MDB is in constant evolution and I 
> > > couldn't contemplate having to do that every time. Madre 
> mia! Still, 
> > > I guess it'd be worth knowing if it cures the problem. Thanks 
> > > Gustav. Any other suggestions welcomed (very, very much).
> > >
> > > --
> > > Andy Lacey
> > > http://www.minstersystems.co.uk
> > >
> > >
> > >
> > >
> > > --------- Original Message --------
> > > From: "Access Developers discussion and problem solving" 
> > > <accessd at databaseadvisors.com>
> > > To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
> > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > > Date: 09/01/06 13:24
> > >
> > >
> > > Hi Andy
> > >
> > > I had a similar thing which I tracked down to a line with 
> > > Debug.Print. Commented this out and the code ran, believe 
> it or not. 
> > > However, that was not intermittent but consistent.
> > >
> > > Have you been through the usual tools: decompile and recompile on 
> > > Win2000? Or - still on Win2000 - import all objects in a new file?
> > >
> > > /gustav
> > >
> > > >>> andy at minstersystems.co.uk 09-01-2006 14:07:32 >>>
> > > Help guys
> > >
> > > I have this Access 97 MDB (FE and BE both A97) which has been 
> > > running for years, mostly on W98 but also for some time 
> on W2K. Last 
> > > week something new happened. 2 users who were previously 
> on W98 went 
> > > to W2K. They use a part of the system which others don't, or at 
> > > least they try to but when they do it regularly crashes with:
> > >
> > > "Msaccess.exe has generated errors and will be closed by Windows. 
> > > You will need to restart the program. An error log is being 
> > > created."
> > >
> > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> > >
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From stuart at lexacorp.com.pg  Mon Jan  9 16:22:12 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 10 Jan 2006 08:22:12 +1000
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <s3c2aa64.049@cactus.dk>
Message-ID: <43C36EB4.13745.3CE8D69@stuart.lexacorp.com.pg>

On 9 Jan 2006 at 18:24, Gustav Brock wrote:

> Hi Arthur
> 
> I love the word "reliably" ...
> Try this:
> 
> ? Int(DateDiff("d", #1/9/1955#, Date())/365.26)
> ? Int(DateDiff("d", #1/9/1956#, Date())/365.26)
> 
> It would be nice but there is no simple and foolproof way.

Can you come up with an example that breaks the code I posted ealier?

Datediff("yyyy",dateborn,datenow) + _
(DatePart("y", datenow) < DatePart("y",dateborn))

-- 
Stuart




From shamil at users.mns.ru  Mon Jan  9 16:42:58 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 10 Jan 2006 01:42:58 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <000801c61568$83060630$6caf0c54@minster33c3r25>
Message-ID: <001a01c6156e$11e5da60$6401a8c0@fincomplex.spb.ru>

> Yes there's just one (v large) FE. No library MDBs or MDEs.
OK, if this MDB is compiled and saved then when you run it on another PC
with other versions of referenced DLLs then it can/will get lost its
compiled state - I have had such problem a long ago with a large MS Access
frontend - and it did crash unexpectedly as in your case. The solution was
to compile it into .mde...

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 1:03 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Thanks for the link Shamil, I'll investigate.
>
> Yes there's just one (v large) FE. No library MDBs or MDEs.
>
> Andy
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Shamil Salakhetdinov
> > Sent: 09 January 2006 21:54
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > Andy,
> >
> > Do you have just one front-end program mdb database or this
> > mdb refers to the other (library) .mdb/.mde databases? Do you
> > haev your front-end program mdb database's code compiled and saved?
> >
> > Shamil
> >
> > P.S. I still hope you can solve the problem without
> > investigating the list of loaded .dlls etc. but if you will
> > need that here is the code you can use:
> >
> > http://www.vbaccelerator.com/home/VB/Tips/Getting_Process_Info
> > rmation_Using_PSAPI/VB_PSAPI_Demonstration.asp
> >
> > combined with GetFileVersionInfo API call...
> >
<<< tail skipped>>>



From accessd at shaw.ca  Mon Jan  9 16:55:18 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Mon, 09 Jan 2006 14:55:18 -0800
Subject: [AccessD] Himachi
In-Reply-To: <NDEALJOEGMMPCDKIFGNFKEIOHNAA.jimdettman@earthlink.net>
Message-ID: <004b01c6156f$c3393fe0$017ba8c0@xpserver>

Hi Jim:

This would be true for most beta products but Steve Gibson from www.grc.com
has been absolutely raving about the application. Though Steve is a bit of a
security fanatic he does know his stuff and hammers any programs that do not
match his high standards. When he thoroughly tests a product and then gives
it an A++, I have to assume quality.

Jim  

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: January 6, 2006 7:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Himachi

John,

<<This is a 1.0 (actually 0.9.9.9) product and of course many people just
don't touch first release products. >>

  Yeah, I'm in that category for the most part.  I found out a long time ago
that it just doesn't pay to be on that bleeding edge.

  The only time I'll use something new is if there is simply no other way to
get the job done.  But I make darn sure the client knows what were working
with and that we'll most likely have problems.

Jim.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
Sent: Friday, January 06, 2006 9:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi


>> A quick read through the FAQ's and Forums shows a pattern of problems.

You know, I can appreciate that.  However if you take a quick read through
the forums on Norton AV you would find the same.  Same for MacAfee, Zone
Alarm, Microsoft Office, WindowsXP... Do I make my point?  These are all
mature products that have been out for years and they all have "patterns of
problems".

This is a product still in Beta.  What it is is what it is.  They
acknowledge that there are problems, and they have a beta program just as
any other software manufacturer has. This guy is trying to solve a difficult
problem.  He has obviously spent a lot of time and effort on his product,
and his efforts continue.

This is a 1.0 (actually 0.9.9.9) product and of course many people just
don't touch first release products.  I do think that it a real, valid
product that has a marketplace, and that if it works for me, in my
particular circumstances, I will use it.  If I can't get it to work in a
given instance then obviously I won't use it there.  I can tell you that I
use Remote desktop where I can.  I have had instances where it just didn't
work, and I never discovered why.  Same with VNC.  I think this Hamachi
thingie is just another tool, which will work sometimes, and not in others.
When it does, it will solve some problems for me that I am trying to solve.

It doesn't matter to me whether you use it, obviously that is a decision
everyone makes for themselves.  But if "a pattern of problems" were to stop
us from using a product no valid program would ever gain a user base.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 9:00 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear Jim,
>> A quick read through the FAQ's and Forums shows a pattern of problems.

Yes, you are correct.  I thought the same when I read them, but I didn't
want to mention them as it might detract from the really important issue of
the Rootkit.

Overall, even though I am quite happy to take John's comments on board, I
will not be using it.  As I said before, it is a shame because it is such a
nice concept and one that would have solved a problem for me.

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: 06 January 2006 13:34
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Himachi


  I don't know about the root kit, but I'm not sure I'd use the software in
any case.

  A quick read through the FAQ's and Forums shows a pattern of problems.
That is not a surprise given that it's new software, but I don't know if
it's something I would use for a client at this point.

  It also doesn't appear to be as forgiving as stated.  I saw a couple of
posts that said "I had to open all UDP ports on my firewall to get it to
work".  I'd never do that at a clients.  So yes, while it will do a NAT
transversal, it's still highly dependent on the Firewall/Router
configuration for it to work properly.  At it currently doesn't work if the
network is restricted to ports 80/443 and using a web proxy.

  The last thing I'd be somewhat nervous about is that it uses obscure
Windows API functions to do it's job.  Given that their not typically used,
they have the potential to buggy.  I saw a few posts that said that when the
software was installed, it interfered with other adapters that were
installed on the system.

  Overall sounds like it needs to mature a bit more.  Neat idea though.

Jim.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 8:15 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi


Thanks John,
That gives me some insight into it.  I am very wary of any mention of
Rootkits because once they are in, there is little or no chance of
discovering them, let alone removing them without a complete
re-installation.  It is a shame that they did not make mention of the fact
that this would happen right up front, then people could make an informed
decision before undertaking the installation and have prior warning before
the alert flashes on the screen.

>From what you have said, it does sound as if this particular program is
safe.

Many thanks

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 06 January 2006 12:51
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Reply,

Protection software mis-identifies software all the time.  It happens.
Hamachi installs a complete network layer because it is setting up a new
LAN.  How can I know that Hamachi isn't spyware or a trojan?  I can't.  How
do you know that any other program that you decide to use is not a Trojan?
You can't.  You have to Google the hell out of the company, look at user's
comments and just accept or not.

Hamachi has been in beta for well over a year.  There are entire lists for
users that play games over it (hundreds if not thousands - I didn't read
them all).  They are on beta release 9.9.9 (getting ready to release the
product).   This thing has been around, have literally 800,000 downloads (no
idea how many active users though).  The designer is a known security expert
from Canada who is releasing this product based on work he did as a
consultant for another company.  He is a known face, can be reached by
email, etc. etc.

Does this sound like a virus writer to you?

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 2:55 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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


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

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


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


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


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

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


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



From dw-murphy at cox.net  Mon Jan  9 18:26:36 2006
From: dw-murphy at cox.net (Doug Murphy)
Date: Mon, 9 Jan 2006 16:26:36 -0800
Subject: [AccessD] Weird form color problem
In-Reply-To: <s3c2b1b4.050@cactus.dk>
Message-ID: <000001c6157c$8432af40$0200a8c0@murphyf3vdfepi>

Thank you Gustav,

This is our first problem, that we know of, with a Dell computer.  All of
our development is done on Dell's but not the Dell Laptop.  I'll try and
find one to test on.  I have not tried a graphics driver update but did play
with the computer settings with no improvement.  As I said, images are
rendered properly so it seemed to me that this might be an office issue.

Doug

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Monday, January 09, 2006 9:56 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Weird form color problem


Hi Doug

It might be a Dell issue (we've seen many strange things on Dells, though
not this). 
However, try to, if you are allowed to:

Check for graphic driver update.
Change graphic resolution, run the app, change resolution back. Switch to
another "Theme" Switch to "Classic view" - like Win2000 Switch to same
resolution but fewer colours

/gustav

>>> dw-murphy at cox.net 09-01-2006 18:35:02 >>>
Folks,

We have an application that has been installed on several hundred computers.
We were recently visiting a client and helped to put the application on her
laptop.  When opened the forms in the app. were not in the color that was
set at design time and the text boxes that have their background set to
transparent, and borders invisible were back to white background and normal
borders.  This is an mde file.  When we designed the app we set all forms
and controls to non windows colors so that if the user sets their windows
preferences to some non-standard color set it does not impact our
application.  The monitor on the computer displays all colors and pictures
correctly.  The only thing I can think of that might cause this behavior is
that some windows or Office file has been corrupted.

Have any of you seen this type of behavior and if so do you know what the
cause is?

The laptop was a year old Dell with Windows XP Home.

Thanks in advance.

Doug


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



From adtp at hotmail.com  Mon Jan  9 22:29:34 2006
From: adtp at hotmail.com (A.D.Tejpal)
Date: Tue, 10 Jan 2006 09:59:34 +0530
Subject: [AccessD] Print various document types from Access
References: <000901c6154a$4fa27d50$7000a8c0@ColbyM6805>
Message-ID: <BAY12-DAV3ED6763B5A53A4ED1727CCE250@phx.gbl>

    My sample db named PrintExternalFiles might be of interest to you. It is available at Rogers Access Library (other developers library). Link - http://www.rogersaccesslibrary.com

A.D.Tejpal
--------------

  ----- Original Message ----- 
  From: John Colby 
  To: 'Access Developers discussion and problem solving' 
  Sent: Monday, January 09, 2006 23:57
  Subject: [AccessD] Print various document types from Access


  My client currently opens a directory, selects a bunch of files, and from
  explorer's right click menu clicks "Print".  The files are sent directly to
  the printer.  In fact an instance of the object that "handles" the object
  opens and somehow causes it to send to the printer.  Is there any way to use
  that functionality from inside Access?  

  Try it yourself.  Go to a directory, select a document (a word doc for
  instance), right click to get the context menu, click "Print" and watch
  closely, you will see Windows open Word, send the doc to the printer (the
  default printer for the machine) and then close Word again.  This works for
  Office apps, for Tiffs (with a registered viewer) and for PDF files (with
  the registered viewer) although it does not close the PDF viewer when
  finished for some reason.

  I need to know how to call whatever it is that the print menu item calls,
  passing in the pathed document name in order to print the object.  Has
  anyone done this?

  John W. Colby
  www.ColbyConsulting.com 


From Bruce.Bruen at railcorp.nsw.gov.au  Mon Jan  9 22:41:24 2006
From: Bruce.Bruen at railcorp.nsw.gov.au (Bruen, Bruce)
Date: Tue, 10 Jan 2006 15:41:24 +1100
Subject: [AccessD] Print various document types from Access
Message-ID: <A546D78AF46A5C47B6D2D4B79821A8F713F506@EXCHVS1.rail.nsw.gov.au>

John,

>From memory, exporer "calls" Word using a command line option.  You can
look at these "commands" in the file associations for ".doc" etc in the
explorer "folder options" file types tab (actual location depends on
WinVer).

There is plenty of gumph on this type of Majik in the Win Tips and
Tricks websites/blogs/etc.  I don't use it so I don't remember anything
more specific.

bruce

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of A.D.Tejpal
Sent: Tuesday, 10 January 2006 3:30 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Print various document types from Access

    My sample db named PrintExternalFiles might be of interest to you.
It is available at Rogers Access Library (other developers library).
Link - http://www.rogersaccesslibrary.com

A.D.Tejpal
--------------

  ----- Original Message -----
  From: John Colby
  To: 'Access Developers discussion and problem solving' 
  Sent: Monday, January 09, 2006 23:57
  Subject: [AccessD] Print various document types from Access


  My client currently opens a directory, selects a bunch of files, and
from
  explorer's right click menu clicks "Print".  The files are sent
directly to
  the printer.  In fact an instance of the object that "handles" the
object
  opens and somehow causes it to send to the printer.  Is there any way
to use
  that functionality from inside Access?  

  Try it yourself.  Go to a directory, select a document (a word doc for
  instance), right click to get the context menu, click "Print" and
watch
  closely, you will see Windows open Word, send the doc to the printer
(the
  default printer for the machine) and then close Word again.  This
works for
  Office apps, for Tiffs (with a registered viewer) and for PDF files
(with
  the registered viewer) although it does not close the PDF viewer when
  finished for some reason.

  I need to know how to call whatever it is that the print menu item
calls,
  passing in the pathed document name in order to print the object.  Has
  anyone done this?

  John W. Colby
  www.ColbyConsulting.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




This e-mail and any attachments may contain confidential information that is intended solely for the use of the intended recipient and may be subject to copyright. If you receive this e-mail in error, please notify the sender immediately and delete the e-mail and its attachments from your system. You must not disclose, copy or use any part of this e-mail if you are not the intended recipient. Any opinion expressed in this e-mail and any attachments is not an opinion of RailCorp unless stated or apparent from its content. RailCorp is not responsible for any unauthorised alterations to this e-mail or any attachments. RailCorp will not incur any liability resulting directly or indirectly as a result of the recipient accessing any of the attached files that may contain a virus.


From lmrazek at lcm-res.com  Tue Jan 10 01:10:28 2006
From: lmrazek at lcm-res.com (Lawrence Mrazek)
Date: Tue, 10 Jan 2006 01:10:28 -0600
Subject: [AccessD] Report Summing Help
In-Reply-To: <6A6AA9DF57E4F046BDA1E273BDDB67727DD959@corp-es01.fleetpride.com>
Message-ID: <07a101c615b4$efea15b0$036fa8c0@hplaptop>

Thanks Jim:

I'm probably going to end up doing something like that; basically will
create a subreport with the YTD Totals. 

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com
lmrazek at lcm-res.com
ph. 314-432-5886
fx. 314-432-3304

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Monday, January 09, 2006 3:37 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Report Summing Help

One way to do it would be to create a 2 field table where field 1 is a
number from 1 to 12 representing the month. Field two is the text name of
the month Jan, Feb, Mar etc. Join this table with your data table. In the
query grid select the prevyrdata and curryrdata fields and the new month
number field. Select groupby but change the month number field to a where
clause. in the criteria place >=3. The result should be a two field record
with the totals you want. HTH Jim Hale 

-----Original Message-----
From: Lawrence Mrazek [mailto:lmrazek at lcm-res.com]
Sent: Monday, January 09, 2006 3:17 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Report Summing Help


Hi:

I have a report comparing previous year data with current year data. Let's
assume that the report was run for period 4, which included everything
Jan-March data:

Month:	PrevYrData	CurrYrData
Jan		10		10
Feb		20		10
Mar		10		10
Apr		10		0
May		10		0
Jun		10		0
Jul		10		0
Aug		10		0
Sept		10		0
Oct		10		0
Nov		10		0
Dec		10		0

Totals YTD	40		30 (I need it to do this)
Totals	130		30	 

I'd like the report to be able to calculate the YTD comparison totals, that
is, if we ran the report for the first 4 months, it would automatically
create YTD totals for the previous year for the first 4 months (instead of
calculating for all 12 months). 

Any ideas on how to approach this? This is generated from data off a
mainframe, so I don't have a lot of control over the format and fields. 

Thanks in advance.

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com
lmrazek at lcm-res.com
ph. 314-432-5886
fx. 314-432-3304



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

***********************************************************************
The information transmitted is intended solely for the individual or entity
to which it is addressed and may contain confidential and/or privileged
material. Any review, retransmission, dissemination or other use of or
taking action in reliance upon this information by persons or entities other
than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email, you are
responsible for screening its contents and the contents of any attachments
for the presence of viruses. No liability is accepted for any damages caused
by any virus transmitted by this email.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com





From andy at minstersystems.co.uk  Tue Jan 10 01:26:16 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 07:26:16 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <001a01c6156e$11e5da60$6401a8c0@fincomplex.spb.ru>
Message-ID: <004301c615b7$24fc70c0$6caf0c54@minster33c3r25>

Interesting thought Shamil, thanks. I'll try today to see if that cures it.
However I have a horrible feeling that will open up other problems. I've no
experience with MDEs, never had the need, but have the lurking suspicion
that there are things you can do with MDBs that you can't with MDEs - and I
probably do them.

Andy

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Shamil Salakhetdinov
> Sent: 09 January 2006 22:43
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> > Yes there's just one (v large) FE. No library MDBs or MDEs.
> OK, if this MDB is compiled and saved then when you run it on 
> another PC with other versions of referenced DLLs then it 
> can/will get lost its compiled state - I have had such 
> problem a long ago with a large MS Access frontend - and it 
> did crash unexpectedly as in your case. The solution was to 
> compile it into .mde...
> 
> Shamil
> 
> ----- Original Message ----- 
> From: "Andy Lacey" <andy at minstersystems.co.uk>
> To: "'Access Developers discussion and problem solving'" 
> <accessd at databaseadvisors.com>
> Sent: Tuesday, January 10, 2006 1:03 AM
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> > Thanks for the link Shamil, I'll investigate.
> >
> > Yes there's just one (v large) FE. No library MDBs or MDEs.
> >
> > Andy
> >
> > > -----Original Message-----
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil 
> > > Salakhetdinov
> > > Sent: 09 January 2006 21:54
> > > To: Access Developers discussion and problem solving
> > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > >
> > >
> > > Andy,
> > >
> > > Do you have just one front-end program mdb database or this mdb 
> > > refers to the other (library) .mdb/.mde databases? Do you 
> haev your 
> > > front-end program mdb database's code compiled and saved?
> > >
> > > Shamil
> > >
> > > P.S. I still hope you can solve the problem without investigating 
> > > the list of loaded .dlls etc. but if you will need that 
> here is the 
> > > code you can use:
> > >
> > > http://www.vbaccelerator.com/home/VB/Tips/Getting_Process_Info
> > > rmation_Using_PSAPI/VB_PSAPI_Demonstration.asp
> > >
> > > combined with GetFileVersionInfo API call...
> > >
> <<< tail skipped>>>
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From Gustav at cactus.dk  Tue Jan 10 03:31:02 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 10:31:02 +0100
Subject: [AccessD] Date Diff Help It cant be this hard
Message-ID: <s3c38d0f.059@cactus.dk>

Hi Stuart

Your method will work for all dates of birth prior to or on 28th. February only. For later dates it will always fail for dates between a normal and a leap year or vice versa. A few examples:

dateborn=#3/29/1946#
datenow=#3/28/1996#

dateborn=#2/29/1948#
datenow=#2/28/1997#

dateborn=#3/1/1944#
datenow=#3/1/1997#

The important part to understand is, that age for humans is not counted by the year, the month or the day but by the day of the month, and as the length of February varies between normal years and leap years, you will have to take leap years into account.
Your code may be expanded to do that. 

My code does it this way:

  ' Maximum number of days in a month.
  Const cbytMonthDaysMax  As Byte = 31

<snip>

    ' Calculate day difference using months and days as Days() will fail when
    ' comparing leap years with non leap years for dates after February.
    intDaysDiff = (Month(datDate1) * cbytMonthDaysMax + Day(datDate1)) - (Month(datDate2) * cbytMonthDaysMax + Day(datDate2))
    intReversed = Sgn(intYears)
    ' Decrease count of years by one if dates are closer than one year.
    intYears = intYears + (intReversed * ((intReversed * intDaysDiff) > 0))

It can be done simpler if you don't the function to be symmetrical (count negative age as well).

Further to this, you must take care of the special case that people born on 29th. February have birthday on 28th. February in normal years. That's what this part of the code does:

  ' Constants for leap year calculation. Last normal date of February.
  Const cbytFebMonth      As Byte = 2
  Const cbytFebLastDay    As Byte = 28

<snip>

    ' Check for ultimo February and leap years.
    If (Month(datDate1) = cbytFebMonth) And (Month(datDate2) = cbytFebMonth) Then
      ' Both dates fall in February.
      ' Check if dates are at ultimo February.
      If (Day(datDate1) >= cbytFebLastDay) And (Day(datDate2) >= cbytFebLastDay) Then
        ' Both dates are at ultimo February.
        ' Check if the dates fall in leap years.
        If Day(DateSerial(Year(datDate1), cbytFebMonth + 1, 0)) = cbytFebLastDay Xor _
          Day(DateSerial(Year(datDate2), cbytFebMonth + 1, 0)) = cbytFebLastDay Then
          ' Only one date falls within a leap year.
          ' Adjust both dates to day 28 of February.
          datDate1 = DateAdd("d", cbytFebLastDay - Day(datDate1), datDate1)
          datDate2 = DateAdd("d", cbytFebLastDay - Day(datDate2), datDate2)
        Else
          ' Both dates fall either in leap years or non leap years.
          ' No adjustment needed.
        End If
      End If

Note the use of Xor, my favourite operator (this is for you Susan, if you are with us).

/gustav


>>> stuart at lexacorp.com.pg 09-01-2006 23:22 >>>
On 9 Jan 2006 at 18:24, Gustav Brock wrote:

> Hi Arthur
> 
> I love the word "reliably" ...
> Try this:
> 
> ? Int(DateDiff("d", #1/9/1955#, Date())/365.26)
> ? Int(DateDiff("d", #1/9/1956#, Date())/365.26)
> 
> It would be nice but there is no simple and foolproof way.

Can you come up with an example that breaks the code I posted ealier?

Datediff("yyyy",dateborn,datenow) + _
(DatePart("y", datenow) < DatePart("y",dateborn))

-- 
Stuart




From Gustav at cactus.dk  Tue Jan 10 04:34:47 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 11:34:47 +0100
Subject: [AccessD] Report Summing Help
Message-ID: <s3c39bec.065@cactus.dk>

Hi Larry

If you never (!) have data for a past month of zero (CurrYrData will _always_ be 1 or more) you can do it very easily.
Right now you probably have a running sum for PrevYrData and CurrYrData. That's the Totals.
Now, for Totals YTD sum on this expression:

  =PrevYrData * Sgn(CurrYrData)

Sgn() returns 0 for values of zero and 1 for positive values.

/gustav

>>> lmrazek at lcm-res.com 09-01-2006 22:16 >>>
Hi:

I have a report comparing previous year data with current year data. Let's
assume that the report was run for period 4, which included everything
Jan-March data:

Month:	PrevYrData	CurrYrData
Jan		10		10
Feb		20		10
Mar		10		10
Apr		10		0
May		10		0
Jun		10		0
Jul		10		0
Aug		10		0
Sept		10		0
Oct		10		0
Nov		10		0
Dec		10		0

Totals YTD	40		30 (I need it to do this)
Totals	130		30	 

I'd like the report to be able to calculate the YTD comparison totals, that
is, if we ran the report for the first 4 months, it would automatically
create YTD totals for the previous year for the first 4 months (instead of
calculating for all 12 months). 

Any ideas on how to approach this? This is generated from data off a
mainframe, so I don't have a lot of control over the format and fields. 

Thanks in advance.

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com 
lmrazek at lcm-res.com 
ph. 314-432-5886
fx. 314-432-3304




From Gustav at cactus.dk  Tue Jan 10 04:47:02 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 11:47:02 +0100
Subject: [AccessD] Weird form color problem
Message-ID: <s3c39ec8.067@cactus.dk>

Hi Doug

You may be right. One method we use more and more for "strange" issues is to do a complete reinstall. Yes, it may take a couple of hours, much shorter if you have an image to restore, but it gives you a firm starting point; else - in many cases - you may find yourself (or your staff) having spend a day to debug the machine and it still won't run perfectly, thus you fall back to the reinstall anyway.

Have in mind that most machines you have no absolute control of. The user may have installed anything, visited naughty sites etc. but they will either not know it, have forgotten it, or they lie ...

/gustav

>>> dw-murphy at cox.net 10-01-2006 01:26 >>>
Thank you Gustav,

This is our first problem, that we know of, with a Dell computer.  All of
our development is done on Dell's but not the Dell Laptop.  I'll try and
find one to test on.  I have not tried a graphics driver update but did play
with the computer settings with no improvement.  As I said, images are
rendered properly so it seemed to me that this might be an office issue.

Doug

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Monday, January 09, 2006 9:56 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Weird form color problem


Hi Doug

It might be a Dell issue (we've seen many strange things on Dells, though
not this). 
However, try to, if you are allowed to:

Check for graphic driver update.
Change graphic resolution, run the app, change resolution back. Switch to
another "Theme" Switch to "Classic view" - like Win2000 Switch to same
resolution but fewer colours

/gustav

>>> dw-murphy at cox.net 09-01-2006 18:35:02 >>>
Folks,

We have an application that has been installed on several hundred computers.
We were recently visiting a client and helped to put the application on her
laptop.  When opened the forms in the app. were not in the color that was
set at design time and the text boxes that have their background set to
transparent, and borders invisible were back to white background and normal
borders.  This is an mde file.  When we designed the app we set all forms
and controls to non windows colors so that if the user sets their windows
preferences to some non-standard color set it does not impact our
application.  The monitor on the computer displays all colors and pictures
correctly.  The only thing I can think of that might cause this behavior is
that some windows or Office file has been corrupted.

Have any of you seen this type of behavior and if so do you know what the
cause is?

The laptop was a year old Dell with Windows XP Home.

Thanks in advance.

Doug




From Gustav at cactus.dk  Tue Jan 10 05:20:54 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 12:20:54 +0100
Subject: [AccessD] A2K - Unzip  and append from CD
Message-ID: <s3c3a6c6.068@cactus.dk>

Hi Reuben

Can't you create a small VB, VBScript or Access app that does this?

Mr. Colby has some zip routines I believe, or study here:

  http://www.zlib.net/

or have a control (not free) to do the dirty work:

  http://www.chilkatsoft.com/zip-activex.asp 

or simply run a command line tool like unzip.exe:

  http://www.mame.net/downmain.html

/gustav

>>> reuben at gfconsultants.com 09-01-2006 20:51 >>>
I need to append data to a table in Access.

However, the data is in a zipped txt file on a CD.

Anyone, have a way to allow the user to browse to the proper file, unzip it,
and insert the data into Access in one motion?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017




From shamil at users.mns.ru  Tue Jan 10 05:33:51 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 10 Jan 2006 14:33:51 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <004301c615b7$24fc70c0$6caf0c54@minster33c3r25>
Message-ID: <007801c615d9$d30c6810$6401a8c0@fincomplex.spb.ru>

Andy,

If you:

1. Do not change references on runtime;
2. Do not create forms/reports on runtime;
3. Do not allow your users to change design of your forms/reports on design
time and to edit your code -

then your app should work OK compiled into MDE.

If you do change references on runtime then reconsider this part of your
app's coding and use RefLibPaths.

If you do create forms/reports on runtime or allow users to change design of
your forms/reports then split your monolith app's mdb into constant and
changing parts. (This may involve quite some refactoring or go smoothly
depending of your coding but when done this will work for sure - in one of
the MS Access 97 apps I worked on we had one root program  mdb and up to 40
mde program components.... In your case these could be just two parts but in
general case any big application can/should be split into many parts working
together in ensemble...)

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 10:26 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Interesting thought Shamil, thanks. I'll try today to see if that cures
it.
> However I have a horrible feeling that will open up other problems. I've
no
> experience with MDEs, never had the need, but have the lurking suspicion
> that there are things you can do with MDBs that you can't with MDEs - and
I
> probably do them.
>
> Andy
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Shamil Salakhetdinov
> > Sent: 09 January 2006 22:43
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > > Yes there's just one (v large) FE. No library MDBs or MDEs.
> > OK, if this MDB is compiled and saved then when you run it on
> > another PC with other versions of referenced DLLs then it
> > can/will get lost its compiled state - I have had such
> > problem a long ago with a large MS Access frontend - and it
> > did crash unexpectedly as in your case. The solution was to
> > compile it into .mde...
> >
> > Shamil
> >
<<< tail skipped>>>



From andy at minstersystems.co.uk  Tue Jan 10 06:15:06 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 12:15:06 +0000
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <20060110121503.C7DA626A111@smtp.nildram.co.uk>

Well it's not an issue anyway because the MDE route didn't work. I've found
something that does, however, but boy is it weird. I'd really appreciate
some help understanding this.

The following works every time. On the W2K machine I decompile the app. I
then run the app but compile at the start of it with a Syscmd(504, 16483).
It runs perfectly.

However as soon as I exit the app and try to run it again it crashes again.
If I test for IsCompiled and only run the Syscmd if not compiled then the
app skips the syscmd but then crashes in the original area. If I omit the
IsCompiled and just try to run the Syscmd regardless then it crashes on
that.

If I manually compile and save the app then run it from an icon it fails. If
I make an MDE of it, it fails. The *only* way I can get it to run
consistently is as I describe above; decompile, exit, compile on the way in.

What on earth is going on here????? Does anyone have the faintest idea? At
the moment (unless someone knows a way of decompiling with code) the only
solution I can see is to make the icon copy a decompiled version of the MDB
over the 'live' one, then run with that compilation at the start. But as a
regular method of running it sucks. Any help VERY gratefully received.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 10/01/06 11:29


Andy,

If you:

1. Do not change references on runtime;
2. Do not create forms/reports on runtime;
3. Do not allow your users to change design of your forms/reports on design
time and to edit your code -

then your app should work OK compiled into MDE.

If you do change references on runtime then reconsider this part of your
app's coding and use RefLibPaths.

If you do create forms/reports on runtime or allow users to change design of
your forms/reports then split your monolith app's mdb into constant and
changing parts. (This may involve quite some refactoring or go smoothly
depending of your coding but when done this will work for sure - in one of
the MS Access 97 apps I worked on we had one root program mdb and up to 40
mde program components.... In your case these could be just two parts but in
general case any big application can/should be split into many parts working
together in ensemble...)

Shamil

----- Original Message -----
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 10:26 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Interesting thought Shamil, thanks. I'll try today to see if that cures
it.
> However I have a horrible feeling that will open up other problems. I've
no
> experience with MDEs, never had the need, but have the lurking suspicion
> that there are things you can do with MDBs that you can't with MDEs - and
I
> probably do them.
>
> Andy
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Shamil Salakhetdinov
> > Sent: 09 January 2006 22:43
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > > Yes there's just one (v large) FE. No library MDBs or MDEs.
> > OK, if this MDB is compiled and saved then when you run it on
> > another PC with other versions of referenced DLLs then it
> > can/will get lost its compiled state - I have had such
> > problem a long ago with a large MS Access frontend - and it
> > did crash unexpectedly as in your case. The solution was to
> > compile it into .mde...
> >
> > Shamil
> >
<<< tail skipped>>>

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

________________________________________________
Message sent using UebiMiau 2.7.2



From accessd at shaw.ca  Tue Jan 10 06:37:38 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Tue, 10 Jan 2006 04:37:38 -0800
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <20060110121503.C7DA626A111@smtp.nildram.co.uk>
Message-ID: <000801c615e2$a454f060$017ba8c0@xpserver>

Hi Andy:

Your problem seems strange. It must be because it does not really exit from
memory when you have completed. I had a similar issue a while back and it
was because a reference was not getting loaded/attached because the DLL was
not right. It took a while to find and resolve.

I am not saying this is the issue but it might be worth a try.

Jim

PS You have tried re-installing the Access app on Windows 2000 and latest
patches? Also I have had issues that could only be resolved when the Access
version was not updated to say A2K.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
Sent: January 10, 2006 4:15 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Access97 on W2000 crashes

Well it's not an issue anyway because the MDE route didn't work. I've found
something that does, however, but boy is it weird. I'd really appreciate
some help understanding this.

The following works every time. On the W2K machine I decompile the app. I
then run the app but compile at the start of it with a Syscmd(504, 16483).
It runs perfectly.

However as soon as I exit the app and try to run it again it crashes again.
If I test for IsCompiled and only run the Syscmd if not compiled then the
app skips the syscmd but then crashes in the original area. If I omit the
IsCompiled and just try to run the Syscmd regardless then it crashes on
that.

If I manually compile and save the app then run it from an icon it fails. If
I make an MDE of it, it fails. The *only* way I can get it to run
consistently is as I describe above; decompile, exit, compile on the way in.

What on earth is going on here????? Does anyone have the faintest idea? At
the moment (unless someone knows a way of decompiling with code) the only
solution I can see is to make the icon copy a decompiled version of the MDB
over the 'live' one, then run with that compilation at the start. But as a
regular method of running it sucks. Any help VERY gratefully received.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 10/01/06 11:29


Andy,

If you:

1. Do not change references on runtime;
2. Do not create forms/reports on runtime;
3. Do not allow your users to change design of your forms/reports on design
time and to edit your code -

then your app should work OK compiled into MDE.

If you do change references on runtime then reconsider this part of your
app's coding and use RefLibPaths.

If you do create forms/reports on runtime or allow users to change design of
your forms/reports then split your monolith app's mdb into constant and
changing parts. (This may involve quite some refactoring or go smoothly
depending of your coding but when done this will work for sure - in one of
the MS Access 97 apps I worked on we had one root program mdb and up to 40
mde program components.... In your case these could be just two parts but in
general case any big application can/should be split into many parts working
together in ensemble...)

Shamil

----- Original Message -----
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 10:26 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Interesting thought Shamil, thanks. I'll try today to see if that cures
it.
> However I have a horrible feeling that will open up other problems. I've
no
> experience with MDEs, never had the need, but have the lurking suspicion
> that there are things you can do with MDBs that you can't with MDEs - and
I
> probably do them.
>
> Andy
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Shamil Salakhetdinov
> > Sent: 09 January 2006 22:43
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > > Yes there's just one (v large) FE. No library MDBs or MDEs.
> > OK, if this MDB is compiled and saved then when you run it on
> > another PC with other versions of referenced DLLs then it
> > can/will get lost its compiled state - I have had such
> > problem a long ago with a large MS Access frontend - and it
> > did crash unexpectedly as in your case. The solution was to
> > compile it into .mde...
> >
> > Shamil
> >
<<< tail skipped>>>

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

________________________________________________
Message sent using UebiMiau 2.7.2

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



From shamil at users.mns.ru  Tue Jan 10 06:56:52 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 10 Jan 2006 15:56:52 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <20060110121503.C7DA626A111@smtp.nildram.co.uk>
Message-ID: <000d01c615e5$554272b0$6401a8c0@fincomplex.spb.ru>

Amdy,

You probably have ".DLL hell" kind of problem.

If decompile and then Syscmd(504, 16483) works on target PCs then decompile
and make MDE on target PC should also work.

Compiled and saved MDB on your development PC crashes on the users PC
because they have some .DLLs with broken compatibility - in this case
internally the function call is done based on the binary call context
existing on your PC against incompatible binary call context existing on the
target users PC - CRASH....

I still think that logging is the only solution here to find and fix the
problematic code line(s) - usually this is something like default property
name skipped and the default property name can't be skipped or is different
in the new DLLs installed on the target PCs....

If you will not find and fix problematic code line(s) then you'll leave the
"time bomb" inside your app...

Try to run this function on your development PC and on target users PC to
get the list of references:

Public Function ListRefs()
Dim eref As Reference
    For Each eref In References
        With eref
          Debug.Print _
             .Name & "." & .Major & "." & .Minor; _
            " " & .Kind & " " & .BuiltIn; _
            " " & .IsBroken
          Debug.Print vbTab & .FullPath
          Debug.Print vbTab & .Guid
          Debug.Print vbTab & .IsBroken
        End With
    Next eref
End Function

You will probably get the same results - the problematic DLL could be the
one of the referenced/used by the DLLs, which are directly referenced from
your program MDB...

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 3:15 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Well it's not an issue anyway because the MDE route didn't work. I've
found
> something that does, however, but boy is it weird. I'd really appreciate
> some help understanding this.
>
> The following works every time. On the W2K machine I decompile the app. I
> then run the app but compile at the start of it with a Syscmd(504, 16483).
> It runs perfectly.
>
> However as soon as I exit the app and try to run it again it crashes
again.
> If I test for IsCompiled and only run the Syscmd if not compiled then the
> app skips the syscmd but then crashes in the original area. If I omit the
> IsCompiled and just try to run the Syscmd regardless then it crashes on
> that.
>
> If I manually compile and save the app then run it from an icon it fails.
If
> I make an MDE of it, it fails. The *only* way I can get it to run
> consistently is as I describe above; decompile, exit, compile on the way
in.
>
> What on earth is going on here????? Does anyone have the faintest idea? At
> the moment (unless someone knows a way of decompiling with code) the only
> solution I can see is to make the icon copy a decompiled version of the
MDB
> over the 'live' one, then run with that compilation at the start. But as a
> regular method of running it sucks. Any help VERY gratefully received.
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
>
>
>
> --------- Original Message --------
> From: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Access97 on W2000 crashes
> Date: 10/01/06 11:29
>
>
> Andy,
>
> If you:
>
> 1. Do not change references on runtime;
> 2. Do not create forms/reports on runtime;
> 3. Do not allow your users to change design of your forms/reports on
design
> time and to edit your code -
>
> then your app should work OK compiled into MDE.
>
> If you do change references on runtime then reconsider this part of your
> app's coding and use RefLibPaths.
>
> If you do create forms/reports on runtime or allow users to change design
of
> your forms/reports then split your monolith app's mdb into constant and
> changing parts. (This may involve quite some refactoring or go smoothly
> depending of your coding but when done this will work for sure - in one of
> the MS Access 97 apps I worked on we had one root program mdb and up to 40
> mde program components.... In your case these could be just two parts but
in
> general case any big application can/should be split into many parts
working
> together in ensemble...)
>
> Shamil
>
> ----- Original Message -----
> From: "Andy Lacey" <andy at minstersystems.co.uk>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Sent: Tuesday, January 10, 2006 10:26 AM
> Subject: Re: [AccessD] Access97 on W2000 crashes
>
>
> > Interesting thought Shamil, thanks. I'll try today to see if that cures
> it.
> > However I have a horrible feeling that will open up other problems. I've
> no
> > experience with MDEs, never had the need, but have the lurking suspicion
> > that there are things you can do with MDBs that you can't with MDEs -
and
> I
> > probably do them.
> >
> > Andy
> >
> > > -----Original Message-----
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > > Shamil Salakhetdinov
> > > Sent: 09 January 2006 22:43
> > > To: Access Developers discussion and problem solving
> > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > >
> > >
> > > > Yes there's just one (v large) FE. No library MDBs or MDEs.
> > > OK, if this MDB is compiled and saved then when you run it on
> > > another PC with other versions of referenced DLLs then it
> > > can/will get lost its compiled state - I have had such
> > > problem a long ago with a large MS Access frontend - and it
> > > did crash unexpectedly as in your case. The solution was to
> > > compile it into .mde...
> > >
> > > Shamil
> > >
> <<< tail skipped>>>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> ________________________________________________
> Message sent using UebiMiau 2.7.2
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From jimdettman at earthlink.net  Tue Jan 10 07:39:39 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Tue, 10 Jan 2006 08:39:39 -0500
Subject: [AccessD] Report Printing Problem - Graphs Being Split
In-Reply-To: <000301c61509$cb491090$0600a8c0@D3NSLB1S>
Message-ID: <NDEALJOEGMMPCDKIFGNFEEKHHOAA.jimdettman@earthlink.net>

Hi Mike,

<<When a report is printed, any textual or graphical sub-report which starts
before the end of the page is "split" i.e.. part of it prints on the page it
started on and the rest prints on the following page. This is particularly
horrific when a graph is being printed - the "pie" ends up not only sliced
but also severed! I think I can live with textual type reports being split
across pages, but splitting a graph into 2 parts isn't acceptable.>>

  I'm going to suggest something and it may solve it with a little
experimentation, but if it doesn't it will certainly get you started in the
right direction.

  First, what your seeing is more or less normal report engine behavior, so
there is no easy fix for this (i.e. no setting to change) and your going to
need to mange this problem on your own.  The Access report engine is quite
controllable, much more so then many people think.  You've already seen some
of that with hiding/un-hiding sub reports with no data.

  I'm going to toss out three things that you can use to control reports and
when combined, you'll be really surprised at some of the things you can do.

1. "Two Pass" printing - This is where by placing a reference to .Pages
anywhere on the report, you force Access to do a dry run of the report to
figure out the total number of pages.  It then does a second pass to
actually print the report.

   What's interesting with this is that on the first pass, you can build a
table of contents, find what page sections will fall, the number of
sections, which will print or not, etc and store that in a temp table.  Then
on the print pass, use the built temp table to drive printer logic.

   One big gotcha here: You should have no code in the OnPrint event that
would affect the print layout.  The reason is that on the first pass, Access
does not fire the OnPrint event at all for any section.  So all your
conditional code needs to be in a OnFormat event.

2. Use of:

   MoveLayout property  - specifies whether Microsoft Access should move to
the next printing location on the page.
   NextRecord property - specifies whether a section should advance to the
next record.
   PrintSection property  - specifies whether a section should be printed.

3. Use of:

   Top property - Tells you how far down the page you are
   Left property - Tells you what column your in


  So where does this all get us?   What I see is this:  Do a two pass
report, and record the size of each subreport in inches of page that it
occupies.  Store that info in a temp table.

  On the second pass, use the temp table info and the Top property to
determine if you have sufficient space left on the page to print the graph.
If not, use MoveLayout = True, NextRecord = False to skip down the page
until a new page is forced or hide/un-hide a page break control.

  I believe that will work. As I said though, it may require some
experimentation to get it to work right. If your willing to give it a go,
I'll go into more detail.  In the meantime, I'll give it some more thought
and see if there might be an easier way.

Let me know,
Jim.
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Mike
Sent: Monday, January 09, 2006 5:45 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Report Printing Problem - Graphs Being Split


Hi Folks.

I've been a "lurker" here for some time now - and have benefited enormously
from the knowledge shared in AccessD. Please accept my thanks for the effort
each and everyone of you puts into this list.

I'm still trying to find a question I can help with - although by the time I
get to see the questions they have generally been answered!
<<snip>>





From andy at minstersystems.co.uk  Tue Jan 10 07:52:32 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 13:52:32 +0000
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <20060110135229.455E326DF25@smtp.nildram.co.uk>

I've listed below the results of running ListRefs on the two machines. At
first I thought they were identical, but there is one difference in the path
to the Outlok library. Under W98 this is

C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb

whereas W2K has the old-fashioned DOS'y path of

C:\PROGRA~1\MICROS~1\Office\msoutl9.olb

Surely this is not significant. It can't be, can it?

The other thing I thought odd was that the DAO 3.5 reference returns a
.Major and .Minor of 4.0 not 3.5, but then again it's the same on both
machines.


Windows 98
==========
VBA.3.0 0 True False
C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL
{000204EF-0000-0000-C000-000000000046}
False
Access.8.0 0 True False
C:\Program Files\Microsoft Office\Office\MSACC8.OLB
{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
False
DAO.4.0 0 False False
C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL
{00025E01-0000-0000-C000-000000000046}
False
Outlook.9.0 0 False False
C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
{00062FFF-0000-0000-C000-000000000046}
False
Word.8.0 0 False False
C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
{00020905-0000-0000-C000-000000000046}
False


Windows 2000
============
VBA.3.0 0 True False
C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLL
{000204EF-0000-0000-C000-000000000046}
False
Access.8.0 0 True False
C:\Program Files\Microsoft Office\Office\msacc8.olb
{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
False
DAO.4.0 0 False False
C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll
{00025E01-0000-0000-C000-000000000046}
False
Outlook.9.0 0 False False
C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
{00062FFF-0000-0000-C000-000000000046}
False
Word.8.0 0 False False
C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
{00020905-0000-0000-C000-000000000046}
False


Does any of this give any clues Shamil?


--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 10/01/06 12:51


Amdy,

You probably have ".DLL hell" kind of problem.

If decompile and then Syscmd(504, 16483) works on target PCs then decompile
and make MDE on target PC should also work.

Compiled and saved MDB on your development PC crashes on the users PC
because they have some .DLLs with broken compatibility - in this case
internally the function call is done based on the binary call context
existing on your PC against incompatible binary call context existing on the
target users PC - CRASH....

I still think that logging is the only solution here to find and fix the
problematic code line(s) - usually this is something like default property
name skipped and the default property name can't be skipped or is different
in the new DLLs installed on the target PCs....

If you will not find and fix problematic code line(s) then you'll leave the
"time bomb" inside your app...

Try to run this function on your development PC and on target users PC to
get the list of references:

Public Function ListRefs()
Dim eref As Reference
For Each eref In References
With eref
Debug.Print _
.Name & "." & .Major & "." & .Minor; _
" " & .Kind & " " & .BuiltIn; _
" " & .IsBroken
Debug.Print vbTab & .FullPath
Debug.Print vbTab & .Guid
Debug.Print vbTab & .IsBroken
End With
Next eref
End Function

You will probably get the same results - the problematic DLL could be the
one of the referenced/used by the DLLs, which are directly referenced from
your program MDB...

Shamil

----- Original Message -----
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 3:15 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Well it's not an issue anyway because the MDE route didn't work. I've
found
> something that does, however, but boy is it weird. I'd really appreciate
> some help understanding this.
>
> The following works every time. On the W2K machine I decompile the app. I
> then run the app but compile at the start of it with a Syscmd(504, 16483).
> It runs perfectly.
>
> However as soon as I exit the app and try to run it again it crashes
again.
> If I test for IsCompiled and only run the Syscmd if not compiled then the
> app skips the syscmd but then crashes in the original area. If I omit the
> IsCompiled and just try to run the Syscmd regardless then it crashes on
> that.
>
> If I manually compile and save the app then run it from an icon it fails.
If
> I make an MDE of it, it fails. The *only* way I can get it to run
> consistently is as I describe above; decompile, exit, compile on the way
in.
>
> What on earth is going on here????? Does anyone have the faintest idea? At
> the moment (unless someone knows a way of decompiling with code) the only
> solution I can see is to make the icon copy a decompiled version of the
MDB
> over the 'live' one, then run with that compilation at the start. But as a
> regular method of running it sucks. Any help VERY gratefully received.
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
>
>
>


________________________________________________
Message sent using UebiMiau 2.7.2



From andy at minstersystems.co.uk  Tue Jan 10 07:56:21 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 13:56:21 +0000
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <20060110135618.DFAC926D827@smtp.nildram.co.uk>

Hi Jim
Yep it's a nasty that's for sure. I too keep going back to thinking it's a
DLL issue, but what and where I've no idea. I've reinstalled Office 97 on
the target machine, and reupdated its SP's and patches, and reinstalled Jet
3.5. And it can't be a case of Access not exiting well because if I reboot
the machine and run the app straight off it still crashes unless I do the
decompile thing I described. Horrendous.

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 10/01/06 12:39


Hi Andy:

Your problem seems strange. It must be because it does not really exit from
memory when you have completed. I had a similar issue a while back and it
was because a reference was not getting loaded/attached because the DLL was
not right. It took a while to find and resolve.

I am not saying this is the issue but it might be worth a try.

Jim

PS You have tried re-installing the Access app on Windows 2000 and latest
patches? Also I have had issues that could only be resolved when the Access
version was not updated to say A2K.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
Sent: January 10, 2006 4:15 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Access97 on W2000 crashes

Well it's not an issue anyway because the MDE route didn't work. I've found
something that does, however, but boy is it weird. I'd really appreciate
some help understanding this.

The following works every time. On the W2K machine I decompile the app. I
then run the app but compile at the start of it with a Syscmd(504, 16483).
It runs perfectly.

However as soon as I exit the app and try to run it again it crashes again.
If I test for IsCompiled and only run the Syscmd if not compiled then the
app skips the syscmd but then crashes in the original area. If I omit the
IsCompiled and just try to run the Syscmd regardless then it crashes on
that.

If I manually compile and save the app then run it from an icon it fails. If
I make an MDE of it, it fails. The *only* way I can get it to run
consistently is as I describe above; decompile, exit, compile on the way in.

What on earth is going on here????? Does anyone have the faintest idea? At
the moment (unless someone knows a way of decompiling with code) the only
solution I can see is to make the icon copy a decompiled version of the MDB
over the 'live' one, then run with that compilation at the start. But as a
regular method of running it sucks. Any help VERY gratefully received.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 10/01/06 11:29


Andy,

If you:

1. Do not change references on runtime;
2. Do not create forms/reports on runtime;
3. Do not allow your users to change design of your forms/reports on design
time and to edit your code -

then your app should work OK compiled into MDE.

If you do change references on runtime then reconsider this part of your
app's coding and use RefLibPaths.

If you do create forms/reports on runtime or allow users to change design of
your forms/reports then split your monolith app's mdb into constant and
changing parts. (This may involve quite some refactoring or go smoothly
depending of your coding but when done this will work for sure - in one of
the MS Access 97 apps I worked on we had one root program mdb and up to 40
mde program components.... In your case these could be just two parts but in
general case any big application can/should be split into many parts working
together in ensemble...)

Shamil

----- Original Message -----
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 10:26 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Interesting thought Shamil, thanks. I'll try today to see if that cures
it.
> However I have a horrible feeling that will open up other problems. I've
no
> experience with MDEs, never had the need, but have the lurking suspicion
> that there are things you can do with MDBs that you can't with MDEs - and
I
> probably do them.
>
> Andy
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Shamil Salakhetdinov
> > Sent: 09 January 2006 22:43
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > > Yes there's just one (v large) FE. No library MDBs or MDEs.
> > OK, if this MDB is compiled and saved then when you run it on
> > another PC with other versions of referenced DLLs then it
> > can/will get lost its compiled state - I have had such
> > problem a long ago with a large MS Access frontend - and it
> > did crash unexpectedly as in your case. The solution was to
> > compile it into .mde...
> >
> > Shamil
> >
<<< tail skipped>>>

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

________________________________________________
Message sent using UebiMiau 2.7.2

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

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

________________________________________________
Message sent using UebiMiau 2.7.2



From bheid at appdevgrp.com  Tue Jan 10 08:05:04 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Tue, 10 Jan 2006 09:05:04 -0500
Subject: [AccessD] Weird report problem (Cross posted to Access-L)...
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D1D7AC@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30ABF5E8@ADGSERVER>

In case anyone cares, I solved the problem by moving one of the sub-reports
to a different section before the detail line and all was well.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 05, 2006 11:09 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Weird report problem (Cross posted to Access-L)...


Hey,

I have a report with two sub-reports on it.  During the latest revision of
the report, I widened some fields and moved around some other fields on the
two sub-reports.

Now, when I preview (or print it), it says there are 46 pages (1 of 46).
But when you go to the end of the report, there are only 11 pages and the
page counter says 11 of 46.  

If I delete either of the sub-reports, it appears to be paging correctly.
It is only when both of them are there that this is happening.

If I run each sub-report separately, it looks like all of the data is there.

The main report is grouped by project and the detail section contains the
two sub-reports.  What is weird is that for each project, it prints two
pages and then a project totals page.  It does this for all of the projects
except for one that only has one record in it.  For the 1st project there
should be about 6-8 pages.  Also, in this database, there is only one record
returned for each sub-report 1.  The 2nd sub-report is the one that is not
displaying all of it's records.

Anyone have any clues as to what may be going on?

Thanks,
Bobby



From jarus at amerinet-gpo.com  Tue Jan 10 08:13:50 2006
From: jarus at amerinet-gpo.com (Terri Jarus)
Date: Tue, 10 Jan 2006 08:13:50 -0600
Subject: [AccessD]  Calculating DateDiff for Workdays
Message-ID: <s3c36cc5.058@an-mail.amerinet-gpo.com>

I've found a function in the archives "DiffBusinessDays_TSB" which references DiffWeekdays_TSB - however, I'm unable to locate that function.  

I need to set up a formula to calculate the difference between two dates - but only wish to count Business days - no weekends.

Thanks for any help.

Terri Jarus
Vice President, Contract Services
jarus at amerinet-gpo.com
314-542-1902


---------------------------------------------------------------------------
This email and any files transmitted with it are intended solely for the use of the individuals or entities to whom they are addressed and are not to be disclosed to any other party. If you have received this email in error please return it to the sender, and erase any copies thereof.
---------------------------------------------------------------------------



From reuben at gfconsultants.com  Tue Jan 10 08:17:36 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Tue, 10 Jan 2006 09:17:36 -0500
Subject: [AccessD] A2K - Unzip  and append from CD
In-Reply-To: <s3c3a6c6.068@cactus.dk>
Message-ID: <DPEKLCIHBOJKCKJECLCPCEIEDAAA.reuben@gfconsultants.com>

I'm confident I can do it in Access, but I was hoping somebody had something
close just for the sake of time.

Thanks for the links - I'll check them out.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: Tuesday, January 10, 2006 6:21 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] A2K - Unzip and append from CD
>
>
> Hi Reuben
>
> Can't you create a small VB, VBScript or Access app that does this?
>
> Mr. Colby has some zip routines I believe, or study here:
>
>   http://www.zlib.net/
>
> or have a control (not free) to do the dirty work:
>
>   http://www.chilkatsoft.com/zip-activex.asp
>
> or simply run a command line tool like unzip.exe:
>
>   http://www.mame.net/downmain.html
>
> /gustav
>
> >>> reuben at gfconsultants.com 09-01-2006 20:51 >>>
> I need to append data to a table in Access.
>
> However, the data is in a zipped txt file on a CD.
>
> Anyone, have a way to allow the user to browse to the proper
> file, unzip it,
> and insert the data into Access in one motion?
>
> Thanks.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From lmrazek at lcm-res.com  Tue Jan 10 08:21:55 2006
From: lmrazek at lcm-res.com (Lawrence Mrazek)
Date: Tue, 10 Jan 2006 08:21:55 -0600
Subject: [AccessD] Report Summing Help
In-Reply-To: <s3c39bec.065@cactus.dk>
Message-ID: <0a6901c615f1$35b69e60$036fa8c0@hplaptop>

Hi Gustav:

Good idea; this almost works for my situation, but I can't use it because
CurrYr occassionally has 0's in the past month. Ended up writing a query
that did the calculation and binding it to a subreport ... Not pretty, but
it works. 

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com
lmrazek at lcm-res.com
ph. 314-432-5886
fx. 314-432-3304

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, January 10, 2006 4:35 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Report Summing Help

Hi Larry

If you never (!) have data for a past month of zero (CurrYrData will
_always_ be 1 or more) you can do it very easily.
Right now you probably have a running sum for PrevYrData and CurrYrData.
That's the Totals.
Now, for Totals YTD sum on this expression:

  =PrevYrData * Sgn(CurrYrData)

Sgn() returns 0 for values of zero and 1 for positive values.

/gustav

>>> lmrazek at lcm-res.com 09-01-2006 22:16 >>>
Hi:

I have a report comparing previous year data with current year data. Let's
assume that the report was run for period 4, which included everything
Jan-March data:

Month:	PrevYrData	CurrYrData
Jan		10		10
Feb		20		10
Mar		10		10
Apr		10		0
May		10		0
Jun		10		0
Jul		10		0
Aug		10		0
Sept		10		0
Oct		10		0
Nov		10		0
Dec		10		0

Totals YTD	40		30 (I need it to do this)
Totals	130		30	 

I'd like the report to be able to calculate the YTD comparison totals, that
is, if we ran the report for the first 4 months, it would automatically
create YTD totals for the previous year for the first 4 months (instead of
calculating for all 12 months). 

Any ideas on how to approach this? This is generated from data off a
mainframe, so I don't have a lot of control over the format and fields. 

Thanks in advance.

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com
lmrazek at lcm-res.com
ph. 314-432-5886
fx. 314-432-3304


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





From JHewson at karta.com  Tue Jan 10 08:25:42 2006
From: JHewson at karta.com (Jim Hewson)
Date: Tue, 10 Jan 2006 08:25:42 -0600
Subject: [AccessD] Report Printing Problem - Graphs Being Split
Message-ID: <9C382E065F54AE48BC3AA7925DCBB01C03AC7C7D@karta-exc-int.Karta.com>

Jim,
Thanks for the info.
Very useful...
Seems to me this topic would be a good article somewhere.
"Printing Graphs and Subreports on Multiple Pages"

Jim 
jhewson at karta.com
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Tuesday, January 10, 2006 7:40 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Report Printing Problem - Graphs Being Split

Hi Mike,

<<When a report is printed, any textual or graphical sub-report which starts
before the end of the page is "split" i.e.. part of it prints on the page it
started on and the rest prints on the following page. This is particularly
horrific when a graph is being printed - the "pie" ends up not only sliced
but also severed! I think I can live with textual type reports being split
across pages, but splitting a graph into 2 parts isn't acceptable.>>

  I'm going to suggest something and it may solve it with a little
experimentation, but if it doesn't it will certainly get you started in the
right direction.

  First, what your seeing is more or less normal report engine behavior, so
there is no easy fix for this (i.e. no setting to change) and your going to
need to mange this problem on your own.  The Access report engine is quite
controllable, much more so then many people think.  You've already seen some
of that with hiding/un-hiding sub reports with no data.

  I'm going to toss out three things that you can use to control reports and
when combined, you'll be really surprised at some of the things you can do.

1. "Two Pass" printing - This is where by placing a reference to .Pages
anywhere on the report, you force Access to do a dry run of the report to
figure out the total number of pages.  It then does a second pass to
actually print the report.

   What's interesting with this is that on the first pass, you can build a
table of contents, find what page sections will fall, the number of
sections, which will print or not, etc and store that in a temp table.  Then
on the print pass, use the built temp table to drive printer logic.

   One big gotcha here: You should have no code in the OnPrint event that
would affect the print layout.  The reason is that on the first pass, Access
does not fire the OnPrint event at all for any section.  So all your
conditional code needs to be in a OnFormat event.

2. Use of:

   MoveLayout property  - specifies whether Microsoft Access should move to
the next printing location on the page.
   NextRecord property - specifies whether a section should advance to the
next record.
   PrintSection property  - specifies whether a section should be printed.

3. Use of:

   Top property - Tells you how far down the page you are
   Left property - Tells you what column your in


  So where does this all get us?   What I see is this:  Do a two pass
report, and record the size of each subreport in inches of page that it
occupies.  Store that info in a temp table.

  On the second pass, use the temp table info and the Top property to
determine if you have sufficient space left on the page to print the graph.
If not, use MoveLayout = True, NextRecord = False to skip down the page
until a new page is forced or hide/un-hide a page break control.

  I believe that will work. As I said though, it may require some
experimentation to get it to work right. If your willing to give it a go,
I'll go into more detail.  In the meantime, I'll give it some more thought
and see if there might be an easier way.

Let me know,
Jim.
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Mike
Sent: Monday, January 09, 2006 5:45 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Report Printing Problem - Graphs Being Split


Hi Folks.

I've been a "lurker" here for some time now - and have benefited enormously
from the knowledge shared in AccessD. Please accept my thanks for the effort
each and everyone of you puts into this list.

I'm still trying to find a question I can help with - although by the time I
get to see the questions they have generally been answered!
<<snip>>



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


From Gustav at cactus.dk  Tue Jan 10 08:35:54 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 15:35:54 +0100
Subject: [AccessD] A2K - Unzip  and append from CD
Message-ID: <s3c3d477.084@cactus.dk>

Hi Reuben

If you tell a bit more someone might have an idea.
How would you import a text file in Access without using Access ..?

/gustav

>>> reuben at gfconsultants.com 10-01-2006 15:17:36 >>>
I'm confident I can do it in Access, but I was hoping somebody had something
close just for the sake of time.

Thanks for the links - I'll check them out.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: Tuesday, January 10, 2006 6:21 AM
> To: accessd at databaseadvisors.com 
> Subject: Re: [AccessD] A2K - Unzip and append from CD
>
>
> Hi Reuben
>
> Can't you create a small VB, VBScript or Access app that does this?
>
> Mr. Colby has some zip routines I believe, or study here:
>
>   http://www.zlib.net/ 
>
> or have a control (not free) to do the dirty work:
>
>   http://www.chilkatsoft.com/zip-activex.asp 
>
> or simply run a command line tool like unzip.exe:
>
>   http://www.mame.net/downmain.html 
>
> /gustav
>
> >>> reuben at gfconsultants.com 09-01-2006 20:51 >>>
> I need to append data to a table in Access.
>
> However, the data is in a zipped txt file on a CD.
>
> Anyone, have a way to allow the user to browse to the proper
> file, unzip it,
> and insert the data into Access in one motion?
>
> Thanks.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017




From Gustav at cactus.dk  Tue Jan 10 08:40:49 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 15:40:49 +0100
Subject: [AccessD] Report Summing Help
Message-ID: <s3c3d587.086@cactus.dk>

Hi Larry

OK. You could also have checked for the month:

  =PrevYrData * Sgn(Abs(intMontYePrev <= Month(Date())))

/gustav

>>> lmrazek at lcm-res.com 10-01-2006 15:21:55 >>>
Hi Gustav:

Good idea; this almost works for my situation, but I can't use it because
CurrYr occassionally has 0's in the past month. Ended up writing a query
that did the calculation and binding it to a subreport ... Not pretty, but
it works. 

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com 
lmrazek at lcm-res.com 
ph. 314-432-5886
fx. 314-432-3304

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, January 10, 2006 4:35 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Report Summing Help

Hi Larry

If you never (!) have data for a past month of zero (CurrYrData will
_always_ be 1 or more) you can do it very easily.
Right now you probably have a running sum for PrevYrData and CurrYrData.
That's the Totals.
Now, for Totals YTD sum on this expression:

  =PrevYrData * Sgn(CurrYrData)

Sgn() returns 0 for values of zero and 1 for positive values.

/gustav

>>> lmrazek at lcm-res.com 09-01-2006 22:16 >>>
Hi:

I have a report comparing previous year data with current year data. Let's
assume that the report was run for period 4, which included everything
Jan-March data:

Month:	PrevYrData	CurrYrData
Jan		10		10
Feb		20		10
Mar		10		10
Apr		10		0
May		10		0
Jun		10		0
Jul		10		0
Aug		10		0
Sept		10		0
Oct		10		0
Nov		10		0
Dec		10		0

Totals YTD	40		30 (I need it to do this)
Totals	130		30	 

I'd like the report to be able to calculate the YTD comparison totals, that
is, if we ran the report for the first 4 months, it would automatically
create YTD totals for the previous year for the first 4 months (instead of
calculating for all 12 months). 

Any ideas on how to approach this? This is generated from data off a
mainframe, so I don't have a lot of control over the format and fields. 




From jimdettman at earthlink.net  Tue Jan 10 08:43:10 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Tue, 10 Jan 2006 09:43:10 -0500
Subject: [AccessD] Report Printing Problem - Graphs Being Split
In-Reply-To: <9C382E065F54AE48BC3AA7925DCBB01C03AC7C7D@karta-exc-int.Karta.com>
Message-ID: <NDEALJOEGMMPCDKIFGNFCELEHOAA.jimdettman@earthlink.net>

Jim,

  Actually, I've got an article sitting that talks about controlling the
report engine in depth.  I started it after handling a particularly thorny
problem on Experts Exchange, which was a college transcript report that need
to print specific continuation messages based on the sections that followed.

  Since it's something that comes up quite often on EE (controlling the
report engine), I started the article.

  I'll finish it one of these days<g>.....

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Jim Hewson
Sent: Tuesday, January 10, 2006 9:26 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Report Printing Problem - Graphs Being Split


Jim,
Thanks for the info.
Very useful...
Seems to me this topic would be a good article somewhere.
"Printing Graphs and Subreports on Multiple Pages"

Jim
jhewson at karta.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Tuesday, January 10, 2006 7:40 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Report Printing Problem - Graphs Being Split

Hi Mike,

<<When a report is printed, any textual or graphical sub-report which starts
before the end of the page is "split" i.e.. part of it prints on the page it
started on and the rest prints on the following page. This is particularly
horrific when a graph is being printed - the "pie" ends up not only sliced
but also severed! I think I can live with textual type reports being split
across pages, but splitting a graph into 2 parts isn't acceptable.>>

  I'm going to suggest something and it may solve it with a little
experimentation, but if it doesn't it will certainly get you started in the
right direction.

  First, what your seeing is more or less normal report engine behavior, so
there is no easy fix for this (i.e. no setting to change) and your going to
need to mange this problem on your own.  The Access report engine is quite
controllable, much more so then many people think.  You've already seen some
of that with hiding/un-hiding sub reports with no data.

  I'm going to toss out three things that you can use to control reports and
when combined, you'll be really surprised at some of the things you can do.

1. "Two Pass" printing - This is where by placing a reference to .Pages
anywhere on the report, you force Access to do a dry run of the report to
figure out the total number of pages.  It then does a second pass to
actually print the report.

   What's interesting with this is that on the first pass, you can build a
table of contents, find what page sections will fall, the number of
sections, which will print or not, etc and store that in a temp table.  Then
on the print pass, use the built temp table to drive printer logic.

   One big gotcha here: You should have no code in the OnPrint event that
would affect the print layout.  The reason is that on the first pass, Access
does not fire the OnPrint event at all for any section.  So all your
conditional code needs to be in a OnFormat event.

2. Use of:

   MoveLayout property  - specifies whether Microsoft Access should move to
the next printing location on the page.
   NextRecord property - specifies whether a section should advance to the
next record.
   PrintSection property  - specifies whether a section should be printed.

3. Use of:

   Top property - Tells you how far down the page you are
   Left property - Tells you what column your in


  So where does this all get us?   What I see is this:  Do a two pass
report, and record the size of each subreport in inches of page that it
occupies.  Store that info in a temp table.

  On the second pass, use the temp table info and the Top property to
determine if you have sufficient space left on the page to print the graph.
If not, use MoveLayout = True, NextRecord = False to skip down the page
until a new page is forced or hide/un-hide a page break control.

  I believe that will work. As I said though, it may require some
experimentation to get it to work right. If your willing to give it a go,
I'll go into more detail.  In the meantime, I'll give it some more thought
and see if there might be an easier way.

Let me know,
Jim.
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Mike
Sent: Monday, January 09, 2006 5:45 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Report Printing Problem - Graphs Being Split


Hi Folks.

I've been a "lurker" here for some time now - and have benefited enormously
from the knowledge shared in AccessD. Please accept my thanks for the effort
each and everyone of you puts into this list.

I'm still trying to find a question I can help with - although by the time I
get to see the questions they have generally been answered!
<<snip>>



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




From Gustav at cactus.dk  Tue Jan 10 09:05:48 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 16:05:48 +0100
Subject: [AccessD] Report Printing Problem - Graphs Being Split
Message-ID: <s3c3db6e.087@cactus.dk>

Hi Jim

And where would that article pop up? Sounds like good reading.

/gustav

>>> jimdettman at earthlink.net 10-01-2006 15:43:10 >>>
Jim,

  Actually, I've got an article sitting that talks about controlling the
report engine in depth.  I started it after handling a particularly thorny
problem on Experts Exchange, which was a college transcript report that need
to print specific continuation messages based on the sections that followed.

  Since it's something that comes up quite often on EE (controlling the
report engine), I started the article.

  I'll finish it one of these days<g>.....

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Jim Hewson
Sent: Tuesday, January 10, 2006 9:26 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Report Printing Problem - Graphs Being Split


Jim,
Thanks for the info.
Very useful...
Seems to me this topic would be a good article somewhere.
"Printing Graphs and Subreports on Multiple Pages"

Jim
jhewson at karta.com 




From reuben at gfconsultants.com  Tue Jan 10 09:13:59 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Tue, 10 Jan 2006 10:13:59 -0500
Subject: [AccessD] A2K - Unzip  and append from CD
In-Reply-To: <s3c3d477.084@cactus.dk>
Message-ID: <DPEKLCIHBOJKCKJECLCPOEIGDAAA.reuben@gfconsultants.com>

I meant I am planning to do it all in Access.  I mentioned Access because
you mentioned VB or VB Script...

What happens is...
1.  The state of Indiana sends a CD out with two or three zipped txt files
on it.
2.  The user needs to be able to browse to and select the appropriate file
to open.
3.  My app needs to unzip the file (I don't need the text file saved and
prefer not to save it) in order to read the text file
4.  The text file is comma delimited and the fields are always the same (so
the import specs should be easy)
5.  The records from the text file need to be appended to a table (the table
never changes)

Now, there is one issue with step one.  Sometimes the state forgets to zip
them and they come as just txt files.  I guess I'll just check the extension
after the user selects the file and act appropriately.

My real concern is how do I work with a zipped file?

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: Tuesday, January 10, 2006 9:36 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] A2K - Unzip and append from CD
>
>
> Hi Reuben
>
> If you tell a bit more someone might have an idea.
> How would you import a text file in Access without using Access ..?
>
> /gustav
>
> >>> reuben at gfconsultants.com 10-01-2006 15:17:36 >>>
> I'm confident I can do it in Access, but I was hoping somebody
> had something
> close just for the sake of time.
>
> Thanks for the links - I'll check them out.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> > Sent: Tuesday, January 10, 2006 6:21 AM
> > To: accessd at databaseadvisors.com
> > Subject: Re: [AccessD] A2K - Unzip and append from CD
> >
> >
> > Hi Reuben
> >
> > Can't you create a small VB, VBScript or Access app that does this?
> >
> > Mr. Colby has some zip routines I believe, or study here:
> >
> >   http://www.zlib.net/
> >
> > or have a control (not free) to do the dirty work:
> >
> >   http://www.chilkatsoft.com/zip-activex.asp
> >
> > or simply run a command line tool like unzip.exe:
> >
> >   http://www.mame.net/downmain.html
> >
> > /gustav
> >
> > >>> reuben at gfconsultants.com 09-01-2006 20:51 >>>
> > I need to append data to a table in Access.
> >
> > However, the data is in a zipped txt file on a CD.
> >
> > Anyone, have a way to allow the user to browse to the proper
> > file, unzip it,
> > and insert the data into Access in one motion?
> >
> > Thanks.
> >
> > Reuben Cummings
> > GFC, LLC
> > 812.523.1017
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From Gustav at cactus.dk  Tue Jan 10 09:50:34 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 16:50:34 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c3e5f8.089@cactus.dk>

Hi Andy

First, if the issue is a dll, one (fast) thing to check is if any exists in more than one folder. If so, and you can't sort that out, use RefLibPaths.

Then, SysCmd(..) run from code will not compile and save the code. It must be done from outside a code module which means manually (as we, the developer, do) or from a macro. Brilliant idea from Charlotte. 
It is not that difficult to implement. Read closely here from the old thread:

  Broken References in Runtime AXP and A97. Solved!

  http://databaseadvisors.com/mailman/htdig/accessd/2003-July/011034.html 

Note the extended test for broken references.

/gustav

>>> andy at minstersystems.co.uk 10-01-2006 14:52:32 >>>
I've listed below the results of running ListRefs on the two machines. At
first I thought they were identical, but there is one difference in the path
to the Outlok library. Under W98 this is

C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb

whereas W2K has the old-fashioned DOS'y path of

C:\PROGRA~1\MICROS~1\Office\msoutl9.olb

Surely this is not significant. It can't be, can it?

The other thing I thought odd was that the DAO 3.5 reference returns a
.Major and .Minor of 4.0 not 3.5, but then again it's the same on both
machines.




From paul.hartland at isharp.co.uk  Tue Jan 10 10:05:17 2006
From: paul.hartland at isharp.co.uk (Paul Hartland (ISHARP))
Date: Tue, 10 Jan 2006 16:05:17 -0000
Subject: [AccessD] Creating Access .exe (2003)
In-Reply-To: <200512221305.jBMD50V16983@databaseadvisors.com>
Message-ID: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAABqm3d61OhDQYdu37t71DMvAQAAAAA=@isharp.co.uk>

To all,

I want to start making a few of my Access programs into .exe's is there
anyway to do this other than buy the Microsoft Office Developer kit ?

Thanks in advance for any help on this.

Paul Hartland
Database Developer.



From Gustav at cactus.dk  Tue Jan 10 10:08:37 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 17:08:37 +0100
Subject: [AccessD] A2K - Unzip  and append from CD
Message-ID: <s3c3ea24.090@cactus.dk>

Hi Reuben

OK, sorry for the misunderstanding.
I think - haven't done it myself - the Chilkat component can do that for you:

 - Create or open in-memory Zips. 
 - Provides in-memory access to compressed or uncompressed data. 

If the file is zipped or not, you can probably get that info as well from the Chilkat component, or you can open the file and check the two first characters to be "PK" and the third 03 (Bytes: 50 4B 03).

/gustav

>>> reuben at gfconsultants.com 10-01-2006 16:13:59 >>>
I meant I am planning to do it all in Access.  I mentioned Access because
you mentioned VB or VB Script...

What happens is...
1.  The state of Indiana sends a CD out with two or three zipped txt files
on it.
2.  The user needs to be able to browse to and select the appropriate file
to open.
3.  My app needs to unzip the file (I don't need the text file saved and
prefer not to save it) in order to read the text file
4.  The text file is comma delimited and the fields are always the same (so
the import specs should be easy)
5.  The records from the text file need to be appended to a table (the table
never changes)

Now, there is one issue with step one.  Sometimes the state forgets to zip
them and they come as just txt files.  I guess I'll just check the extension
after the user selects the file and act appropriately.

My real concern is how do I work with a zipped file?

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: Tuesday, January 10, 2006 9:36 AM
> To: accessd at databaseadvisors.com 
> Subject: Re: [AccessD] A2K - Unzip and append from CD
>
>
> Hi Reuben
>
> If you tell a bit more someone might have an idea.
> How would you import a text file in Access without using Access ..?
>
> /gustav
>
> >>> reuben at gfconsultants.com 10-01-2006 15:17:36 >>>
> I'm confident I can do it in Access, but I was hoping somebody
> had something
> close just for the sake of time.
>
> Thanks for the links - I'll check them out.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com 
> > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> > Sent: Tuesday, January 10, 2006 6:21 AM
> > To: accessd at databaseadvisors.com 
> > Subject: Re: [AccessD] A2K - Unzip and append from CD
> >
> >
> > Hi Reuben
> >
> > Can't you create a small VB, VBScript or Access app that does this?
> >
> > Mr. Colby has some zip routines I believe, or study here:
> >
> >   http://www.zlib.net/ 
> >
> > or have a control (not free) to do the dirty work:
> >
> >   http://www.chilkatsoft.com/zip-activex.asp 
> >
> > or simply run a command line tool like unzip.exe:
> >
> >   http://www.mame.net/downmain.html 
> >
> > /gustav
> >
> > >>> reuben at gfconsultants.com 09-01-2006 20:51 >>>
> > I need to append data to a table in Access.
> >
> > However, the data is in a zipped txt file on a CD.
> >
> > Anyone, have a way to allow the user to browse to the proper
> > file, unzip it,
> > and insert the data into Access in one motion?
> >
> > Thanks.
> >
> > Reuben Cummings
> > GFC, LLC
> > 812.523.1017




From Donald.A.McGillivray at sprint.com  Tue Jan 10 10:08:31 2006
From: Donald.A.McGillivray at sprint.com (Mcgillivray, Don [IT])
Date: Tue, 10 Jan 2006 10:08:31 -0600
Subject: [AccessD] A2K - Unzip  and append from CD
Message-ID: <EC829B33DF5B5B48A956B7A2E894AA9A03D99DEA@PLSWB06C.ad.sprint.com>

Reuben,

I'm sure that there are other solutions, and somebody may have a nice
tidy class or something, but I use Terry Kreft's ShellWait to call the
command line extensions that are available with Winzip.  Once you know
the path and file name of the target zip file, it's easy to create the
command line and pass it in.  Have a look at:

http://www.winzip.com/prodpagecl.htm

HTH,

Don

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben
Cummings
Sent: Tuesday, January 10, 2006 7:14 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] A2K - Unzip and append from CD

I meant I am planning to do it all in Access.  I mentioned Access
because
you mentioned VB or VB Script...

What happens is...
1.  The state of Indiana sends a CD out with two or three zipped txt
files
on it.
2.  The user needs to be able to browse to and select the appropriate
file
to open.
3.  My app needs to unzip the file (I don't need the text file saved and
prefer not to save it) in order to read the text file
4.  The text file is comma delimited and the fields are always the same
(so
the import specs should be easy)
5.  The records from the text file need to be appended to a table (the
table
never changes)

Now, there is one issue with step one.  Sometimes the state forgets to
zip
them and they come as just txt files.  I guess I'll just check the
extension
after the user selects the file and act appropriately.

My real concern is how do I work with a zipped file?

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: Tuesday, January 10, 2006 9:36 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] A2K - Unzip and append from CD
>
>
> Hi Reuben
>
> If you tell a bit more someone might have an idea.
> How would you import a text file in Access without using Access ..?
>
> /gustav
>
> >>> reuben at gfconsultants.com 10-01-2006 15:17:36 >>>
> I'm confident I can do it in Access, but I was hoping somebody
> had something
> close just for the sake of time.
>
> Thanks for the links - I'll check them out.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav
Brock
> > Sent: Tuesday, January 10, 2006 6:21 AM
> > To: accessd at databaseadvisors.com
> > Subject: Re: [AccessD] A2K - Unzip and append from CD
> >
> >
> > Hi Reuben
> >
> > Can't you create a small VB, VBScript or Access app that does this?
> >
> > Mr. Colby has some zip routines I believe, or study here:
> >
> >   http://www.zlib.net/
> >
> > or have a control (not free) to do the dirty work:
> >
> >   http://www.chilkatsoft.com/zip-activex.asp
> >
> > or simply run a command line tool like unzip.exe:
> >
> >   http://www.mame.net/downmain.html
> >
> > /gustav
> >
> > >>> reuben at gfconsultants.com 09-01-2006 20:51 >>>
> > I need to append data to a table in Access.
> >
> > However, the data is in a zipped txt file on a CD.
> >
> > Anyone, have a way to allow the user to browse to the proper
> > file, unzip it,
> > and insert the data into Access in one motion?
> >
> > Thanks.
> >
> > Reuben Cummings
> > GFC, LLC
> > 812.523.1017
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>




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




From jimdettman at earthlink.net  Tue Jan 10 10:15:44 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Tue, 10 Jan 2006 11:15:44 -0500
Subject: [AccessD] Report Printing Problem - Graphs Being Split
In-Reply-To: <s3c3db6e.087@cactus.dk>
Message-ID: <NDEALJOEGMMPCDKIFGNFCEMAHOAA.jimdettman@earthlink.net>

gustav,

<<And where would that article pop up? Sounds like good reading.>>

  Until they get the site mods in place, the only avenue for publishing is
the EE Newsletter that goes out every few weeks.

Jim.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
Sent: Tuesday, January 10, 2006 10:06 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Report Printing Problem - Graphs Being Split


Hi Jim

And where would that article pop up? Sounds like good reading.

/gustav

>>> jimdettman at earthlink.net 10-01-2006 15:43:10 >>>
Jim,

  Actually, I've got an article sitting that talks about controlling the
report engine in depth.  I started it after handling a particularly thorny
problem on Experts Exchange, which was a college transcript report that need
to print specific continuation messages based on the sections that followed.

  Since it's something that comes up quite often on EE (controlling the
report engine), I started the article.

  I'll finish it one of these days<g>.....

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Jim Hewson
Sent: Tuesday, January 10, 2006 9:26 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Report Printing Problem - Graphs Being Split


Jim,
Thanks for the info.
Very useful...
Seems to me this topic would be a good article somewhere.
"Printing Graphs and Subreports on Multiple Pages"

Jim
jhewson at karta.com


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




From garykjos at gmail.com  Tue Jan 10 10:23:36 2006
From: garykjos at gmail.com (Gary Kjos)
Date: Tue, 10 Jan 2006 10:23:36 -0600
Subject: [AccessD] Calculating DateDiff for Workdays
In-Reply-To: <s3c36cc5.058@an-mail.amerinet-gpo.com>
References: <s3c36cc5.058@an-mail.amerinet-gpo.com>
Message-ID: <aea6c4950601100823j6762a222xc00c399c45d37520@mail.gmail.com>

AccessWeb has a solution for Number of Workdays

http://www.mvps.org/access/datetime/date0006.htm

Have a look.  There are two solutions posted, one counts weekdays with
no allowing for holidays and the other factors in holidays but
requires a table listing the holidays.

Good luck!

Gary


On 1/10/06, Terri Jarus <jarus at amerinet-gpo.com> wrote:
> I've found a function in the archives "DiffBusinessDays_TSB" which references DiffWeekdays_TSB - however, I'm unable to locate that function.
>
> I need to set up a formula to calculate the difference between two dates - but only wish to count Business days - no weekends.
>
> Thanks for any help.
>
> Terri Jarus
> Vice President, Contract Services
> jarus at amerinet-gpo.com
> 314-542-1902
>
>
> ---------------------------------------------------------------------------
> This email and any files transmitted with it are intended solely for the use of the individuals or entities to whom they are addressed and are not to be disclosed to any other party. If you have received this email in error please return it to the sender, and erase any copies thereof.
> ---------------------------------------------------------------------------
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


--
Gary Kjos
garykjos at gmail.com


From mikedorism at verizon.net  Tue Jan 10 10:31:05 2006
From: mikedorism at verizon.net (Mike & Doris Manning)
Date: Tue, 10 Jan 2006 11:31:05 -0500
Subject: [AccessD] Calculating DateDiff for Workdays
In-Reply-To: <s3c36cc5.058@an-mail.amerinet-gpo.com>
Message-ID: <000201c61603$42740310$2f01a8c0@dorismanning>

Here is a very easy function found at
http://www.databasejournal.com/features/msaccess/article.php/1552691

  Public Function GetNumberOfWorkDays(sStartDate, sEndDate)
    Dim iDays
    Dim iWorkDays
    Dim sDay
    Dim i
    
    iDays = DateDiff("d", sStartDate, sEndDate)
   
    iWorkDays = 0
   
    For i = 0 To iDays
      'First day of the week is sunday
      sDay = Weekday(DateAdd("d", i, sStartDate))
      If sDay <> 1 And sDay <> 7 Then
        iWorkDays = iWorkDays + 1
      End If
    Next
    GetNumberOfWorkDays = iWorkDays
  End Function

Doris Manning
mikedorism at verizon.net




From paul.hartland at isharp.co.uk  Tue Jan 10 10:39:55 2006
From: paul.hartland at isharp.co.uk (Paul Hartland (ISHARP))
Date: Tue, 10 Jan 2006 16:39:55 -0000
Subject: [AccessD] Access exe files
In-Reply-To: <200512221305.jBMD50V16983@databaseadvisors.com>
Message-ID: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAADfHwyzGQegS7I3qBTudvCvAQAAAAA=@isharp.co.uk>

To all,

Is there any other way than purchasing the Microsoft Office Developer
editions to create and Access exe file ?

Thanks in advance for any help on this

Paul Hartland
Database Developer.



From harkinsss at bellsouth.net  Tue Jan 10 10:47:02 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Tue, 10 Jan 2006 11:47:02 -0500
Subject: [AccessD] Access exe files
In-Reply-To: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAADfHwyzGQegS7I3qBTudvCvAQAAAAA=@isharp.co.uk>
Message-ID: <20060110164702.UVBD8357.ibm57aec.bellsouth.net@SUSANONE>

You can't create an Access .exe file. 

Are you wanting to turn an .mdb into an .mde? 

Susan H. 

Is there any other way than purchasing the Microsoft Office Developer
editions to create and Access exe file ?

Thanks in advance for any help on this




From cfoust at infostatsystems.com  Tue Jan 10 11:02:54 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 10 Jan 2006 09:02:54 -0800
Subject: [AccessD] Access exe files
Message-ID: <F55048AF7E974F429BB24597D7355EEABEF2@INFOSERVER04.infostat.local>

Someone asked this same question recently.  Even the ODE won't create an
Access executable file, it merely allows you to distrubute the runtime
files to use with an mdb or mde application.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Paul Hartland
(ISHARP)
Sent: Tuesday, January 10, 2006 8:40 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Access exe files


To all,

Is there any other way than purchasing the Microsoft Office Developer
editions to create and Access exe file ?

Thanks in advance for any help on this

Paul Hartland
Database Developer.

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


From martyconnelly at shaw.ca  Tue Jan 10 12:09:46 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Tue, 10 Jan 2006 10:09:46 -0800
Subject: [AccessD] Creating Access .exe (2003)
References: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAABqm3d61OhDQYdu37t71DMvAQAAAAA=@isharp.co.uk>
Message-ID: <43C3F86A.5090008@shaw.ca>

Purchasing the MS VSTO Visual Studio Tools for Office (developer kit)  
is the only way to get the Access Package and Deployment Wizard
http://msdn.microsoft.com/office/technologyinfo/devtools/accessextensions/default.aspx


Paul Hartland (ISHARP) wrote:

>To all,
>
>I want to start making a few of my Access programs into .exe's is there
>anyway to do this other than buy the Microsoft Office Developer kit ?
>
>Thanks in advance for any help on this.
>
>Paul Hartland
>Database Developer.
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From andy at minstersystems.co.uk  Tue Jan 10 12:12:14 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 18:12:14 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <s3c3e5f8.089@cactus.dk>
Message-ID: <006101c61611$62419c80$6caf0c54@minster33c3r25>

But the SysCmd does work for me Gustav. I see it working, compilng and
saving. My problem's almost the very reverse as far as I can see. My
references all show as ok. Nothing broken. Nothing failing to compile.
Nothing to mend. It's just that something flipping well crashes despite
that. And, as I said, it's when the MDB has been decompiled and therefore my
Syscmd runs that everything works (see my post that begins "Well it's not an
issue anyway"). My problems come when I exit and then reload the
by-now-compiled MDB. Any ideas?

Any ideas from anyone who's ben following this?

Yours desperately

-- Andy Lacey
http://www.minstersystems.co.uk 


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gustav Brock
> Sent: 10 January 2006 15:51
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> Hi Andy
> 
> First, if the issue is a dll, one (fast) thing to check is if 
> any exists in more than one folder. If so, and you can't sort 
> that out, use RefLibPaths.
> 
> Then, SysCmd(..) run from code will not compile and save the 
> code. It must be done from outside a code module which means 
> manually (as we, the developer, do) or from a macro. 
> Brilliant idea from Charlotte. 
> It is not that difficult to implement. Read closely here from 
> the old thread:
> 
>   Broken References in Runtime AXP and A97. Solved!
> 
>   
> http://databaseadvisors.com/mailman/htdig/accessd/2003-July/01
1034.html 

Note the extended test for broken references.

/gustav

>>> andy at minstersystems.co.uk 10-01-2006 14:52:32 >>>
I've listed below the results of running ListRefs on the two machines. At
first I thought they were identical, but there is one difference in the path
to the Outlok library. Under W98 this is

C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb

whereas W2K has the old-fashioned DOS'y path of

C:\PROGRA~1\MICROS~1\Office\msoutl9.olb

Surely this is not significant. It can't be, can it?

The other thing I thought odd was that the DAO 3.5 reference returns a
.Major and .Minor of 4.0 not 3.5, but then again it's the same on both
machines.


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




From markamatte at hotmail.com  Tue Jan 10 12:16:26 2006
From: markamatte at hotmail.com (Mark A Matte)
Date: Tue, 10 Jan 2006 18:16:26 +0000
Subject: [AccessD] A2K - Unzip and append from CD
In-Reply-To: <DPEKLCIHBOJKCKJECLCPOEIGDAAA.reuben@gfconsultants.com>
Message-ID: <BAY114-F26D2FF0D1683F0202ED8F1D2250@phx.gbl>

Reuben,

I went through this back in May (search archives for subjects "[AccessD] 
Unzip Files" and  "[AccessD] Unzip Files Part II ")...I was using A2k on XP 
and was trying to call the decompress/unzip function of XP.  This did not go 
well.  The easiest solution was to pay to register WINZIP and use their 
command line function(they even give you directions)...but this means there 
would have to be a registered copy on WINZIP on each machine using the app.  
My app retrieved via ftp,unzipped,imported,then deleted the zipped and 
unzipped files.

If I could have found a somewhat easy way without paying I would have.  Hope 
this helps.

Mark A. Matte


>From: "Reuben Cummings" <reuben at gfconsultants.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem 
>solving"<accessd at databaseadvisors.com>
>Subject: Re: [AccessD] A2K - Unzip  and append from CD
>Date: Tue, 10 Jan 2006 10:13:59 -0500
>
>I meant I am planning to do it all in Access.  I mentioned Access because
>you mentioned VB or VB Script...
>
>What happens is...
>1.  The state of Indiana sends a CD out with two or three zipped txt files
>on it.
>2.  The user needs to be able to browse to and select the appropriate file
>to open.
>3.  My app needs to unzip the file (I don't need the text file saved and
>prefer not to save it) in order to read the text file
>4.  The text file is comma delimited and the fields are always the same (so
>the import specs should be easy)
>5.  The records from the text file need to be appended to a table (the 
>table
>never changes)
>
>Now, there is one issue with step one.  Sometimes the state forgets to zip
>them and they come as just txt files.  I guess I'll just check the 
>extension
>after the user selects the file and act appropriately.
>
>My real concern is how do I work with a zipped file?
>
>Reuben Cummings
>GFC, LLC
>812.523.1017
>
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> > Sent: Tuesday, January 10, 2006 9:36 AM
> > To: accessd at databaseadvisors.com
> > Subject: Re: [AccessD] A2K - Unzip and append from CD
> >
> >
> > Hi Reuben
> >
> > If you tell a bit more someone might have an idea.
> > How would you import a text file in Access without using Access ..?
> >
> > /gustav
> >
> > >>> reuben at gfconsultants.com 10-01-2006 15:17:36 >>>
> > I'm confident I can do it in Access, but I was hoping somebody
> > had something
> > close just for the sake of time.
> >
> > Thanks for the links - I'll check them out.
> >
> > Reuben Cummings
> > GFC, LLC
> > 812.523.1017
> >
> >
> > > -----Original Message-----
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> > > Sent: Tuesday, January 10, 2006 6:21 AM
> > > To: accessd at databaseadvisors.com
> > > Subject: Re: [AccessD] A2K - Unzip and append from CD
> > >
> > >
> > > Hi Reuben
> > >
> > > Can't you create a small VB, VBScript or Access app that does this?
> > >
> > > Mr. Colby has some zip routines I believe, or study here:
> > >
> > >   http://www.zlib.net/
> > >
> > > or have a control (not free) to do the dirty work:
> > >
> > >   http://www.chilkatsoft.com/zip-activex.asp
> > >
> > > or simply run a command line tool like unzip.exe:
> > >
> > >   http://www.mame.net/downmain.html
> > >
> > > /gustav
> > >
> > > >>> reuben at gfconsultants.com 09-01-2006 20:51 >>>
> > > I need to append data to a table in Access.
> > >
> > > However, the data is in a zipped txt file on a CD.
> > >
> > > Anyone, have a way to allow the user to browse to the proper
> > > file, unzip it,
> > > and insert the data into Access in one motion?
> > >
> > > Thanks.
> > >
> > > Reuben Cummings
> > > GFC, LLC
> > > 812.523.1017
> >
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
>
>
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From shamil at users.mns.ru  Tue Jan 10 12:07:20 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 10 Jan 2006 21:07:20 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <20060110135229.455E326DF25@smtp.nildram.co.uk>
Message-ID: <007501c61613$4cc582c0$6401a8c0@fincomplex.spb.ru>

> Does any of this give any clues Shamil?
No, Andy, it doesn't. :(

They look similar despite the difference in fullpath name for outlook - this
(hopefully) shouldn't force MS Access to automatically change refs because
GUIDs are the same.

The problem could be in the differences of the product versions and/or
indirectly referenced/loaded DLLs.

I did write a small PSAPI.dll based utility, which creates the XML file with
the information about DLLs loaded by MS Access directly or indirectly:

http://smsconsulting.spb.ru/download/tests/myPSAPI.zip (10KB)

Run it on your development PC and on the target PC after you run your test
because DLLs are loaded on demand only and you will have the complete list
of DLL only when you run your app (Of course on the target system your app
should be decompiled and compiled and saved to let it run successfully).

You'll get processes.xml file with information like in P.S. of this message.
MS Access should be active when you run the utility.

When you get two xml files you can compare them to see what are the
differences of the loaded DLLs versions.

But it still could be no clue there....

Andy, there are no miracles in programming, you know that as well as I do -
instead of spending time trying to indirectly solve the issue I'd recommend
you to find the code lines giving you the trouble - it's the second day you
are looking for "magical" solution - IMO it's now time to stop relying on
miracles and to do some dirty routine tracing/logging work and fix the bug
in your (legacy) code...

And when you fix the trouble - use .MDEs they run faster and are smaller in
size than big MDBs with compiled and saved code...

I'm sorry, I think I can't be of any help further in this issue....

Shamil

P.S.

  <?xml version="1.0" encoding="utf-8" ?>
- <Processes>
- <Process>
  <Id>3708</Id>
  <BaseName>msaccess.exe</BaseName>
  <MemUsage>7,524KB</MemUsage>
  <ExeFullPath>D:\Program
Files\MSOffice\97\Office\msaccess.exe</ExeFullPath>
  <ModulesCount>25</ModulesCount>
- <version>
  <vi>CompanyName: Microsoft Corporation</vi>
  <vi>FileDescription: Microsoft Access</vi>
  <vi>FileVersion: 8.0.5903</vi>
  <vi>InternalName: MSACCESS</vi>
  <vi>LegalCopyright: Copyright ? Microsoft Corp. 1991-1997. All rights
reserved.</vi>
  <vi>OriginalFilename: MSACCESS.EXE</vi>
  <vi>ProductName: Microsoft? Access</vi>
  <vi>ProductVersion: 8.0.5903</vi>
  <vi>Comments</vi>
  <vi>LegalTrademarks</vi>
  <vi>PrivateBuild</vi>
  <vi>SpecialBuild</vi>
  </version>
- <Modules>
- <Module>
  <BaseName>ntdll.dll</BaseName>
  <ExeFullPath>D:\WINDOWS\system32\ntdll.dll</ExeFullPath>
- <version>
  <vi>CompanyName: Microsoft Corporation</vi>
  <vi>FileDescription: NT Layer DLL</vi>
  <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
  <vi>InternalName: ntdll.dll</vi>
  <vi>LegalCopyright: ? Microsoft Corporation. All rights reserved.</vi>
  <vi>OriginalFilename: ntdll.dll</vi>
  <vi>ProductName: Microsoft? Windows? Operating System</vi>
  <vi>ProductVersion: 5.2.3790.0</vi>
  <vi>Comments</vi>
  <vi>LegalTrademarks</vi>
  <vi>PrivateBuild</vi>
  <vi>SpecialBuild</vi>
  </version>
  </Module>
- <Module>
  <BaseName>kernel32.dll</BaseName>
  <ExeFullPath>D:\WINDOWS\system32\kernel32.dll</ExeFullPath>
- <version>
  <vi>CompanyName: Microsoft Corporation</vi>
  <vi>FileDescription: Windows NT BASE API Client DLL</vi>
  <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
  <vi>InternalName: kernel32</vi>
  <vi>LegalCopyright: ? Microsoft Corporation. All rights reserved.</vi>
  <vi>OriginalFilename: kernel32</vi>
  <vi>ProductName: Microsoft? Windows? Operating System</vi>
  <vi>ProductVersion: 5.2.3790.0</vi>


... etc...

P.P.S (could be of help in other issues)

If you run myPSAPI.exe with a parameter equal to a (part of the) name of an
active process/processes it will create processes.xml file for this
process/these processes....

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 4:52 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> I've listed below the results of running ListRefs on the two machines. At
> first I thought they were identical, but there is one difference in the
path
> to the Outlok library. Under W98 this is
>
> C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
>
> whereas W2K has the old-fashioned DOS'y path of
>
> C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
>
> Surely this is not significant. It can't be, can it?
>
> The other thing I thought odd was that the DAO 3.5 reference returns a
> .Major and .Minor of 4.0 not 3.5, but then again it's the same on both
> machines.
>
>
> Windows 98
> ==========
> VBA.3.0 0 True False
> C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL
> {000204EF-0000-0000-C000-000000000046}
> False
> Access.8.0 0 True False
> C:\Program Files\Microsoft Office\Office\MSACC8.OLB
> {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> False
> DAO.4.0 0 False False
> C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL
> {00025E01-0000-0000-C000-000000000046}
> False
> Outlook.9.0 0 False False
> C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> {00062FFF-0000-0000-C000-000000000046}
> False
> Word.8.0 0 False False
> C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
> {00020905-0000-0000-C000-000000000046}
> False
>
>
> Windows 2000
> ============
> VBA.3.0 0 True False
> C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLL
> {000204EF-0000-0000-C000-000000000046}
> False
> Access.8.0 0 True False
> C:\Program Files\Microsoft Office\Office\msacc8.olb
> {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> False
> DAO.4.0 0 False False
> C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll
> {00025E01-0000-0000-C000-000000000046}
> False
> Outlook.9.0 0 False False
> C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> {00062FFF-0000-0000-C000-000000000046}
> False
> Word.8.0 0 False False
> C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
> {00020905-0000-0000-C000-000000000046}
> False
>
>
> Does any of this give any clues Shamil?
>
>
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
>
>
<<< tail skipped>>>



From jwelz at hotmail.com  Tue Jan 10 12:40:07 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Tue, 10 Jan 2006 11:40:07 -0700
Subject: [AccessD] Access exe files
Message-ID: <BAY113-F3804ABB204990BCC51E4FA1250@phx.gbl>

Of course there is an Access executable.

Reverse engineering the exe would be an excessively onerous task and would 
likely run you in to trouble with Microsoft.

If you must give clients an exe, you can buy Access and sell it to them and 
they will have the Access exe (MSAccess.exe) and you can deploy Access file 
solutions to your heart's content.

Curmudgeonly
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Charlotte Foust" <cfoust at infostatsystems.com>
>
>Someone asked this same question recently.  Even the ODE won't create an
>Access executable file, it merely allows you to distrubute the runtime
>files to use with an mdb or mde application.
>
>Charlotte Foust
>
>
>-----Original Message-----
>
>
>To all,
>
>Is there any other way than purchasing the Microsoft Office Developer
>editions to create and Access exe file ?
>
>Thanks in advance for any help on this
>
>Paul Hartland
>Database Developer.




From cfoust at infostatsystems.com  Tue Jan 10 12:58:28 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 10 Jan 2006 10:58:28 -0800
Subject: [AccessD] Access exe files
Message-ID: <F55048AF7E974F429BB24597D7355EEABEF4@INFOSERVER04.infostat.local>

Picky! ;o} The only access executable is Msaccess.exe, but you can't turn an mdb into an executable.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of J?rgen Welz
Sent: Tuesday, January 10, 2006 10:40 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Access exe files


Of course there is an Access executable.

Reverse engineering the exe would be an excessively onerous task and would 
likely run you in to trouble with Microsoft.

If you must give clients an exe, you can buy Access and sell it to them and 
they will have the Access exe (MSAccess.exe) and you can deploy Access file 
solutions to your heart's content.

Curmudgeonly
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Charlotte Foust" <cfoust at infostatsystems.com>
>
>Someone asked this same question recently.  Even the ODE won't create 
>an Access executable file, it merely allows you to distrubute the 
>runtime files to use with an mdb or mde application.
>
>Charlotte Foust
>
>
>-----Original Message-----
>
>
>To all,
>
>Is there any other way than purchasing the Microsoft Office Developer 
>editions to create and Access exe file ?
>
>Thanks in advance for any help on this
>
>Paul Hartland
>Database Developer.




From darsant at gmail.com  Tue Jan 10 13:02:41 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Tue, 10 Jan 2006 13:02:41 -0600
Subject: [AccessD] Access exe files
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABEF4@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABEF4@INFOSERVER04.infostat.local>
Message-ID: <53c8e05a0601101102m3e2d113ay1e37c17de155a277@mail.gmail.com>

On 1/10/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> Picky! ;o} The only access executable is Msaccess.exe, but you can't turn an mdb into an executable.

Technically, if you wanted to pull a fast one, you could embed the
front end Access mdb into the executable, extract it, run it, and then
store the data as a back-end mdb with a different extension.

That'd be quite interesting.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From andy at minstersystems.co.uk  Tue Jan 10 13:40:49 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 19:40:49 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <007501c61613$4cc582c0$6401a8c0@fincomplex.spb.ru>
Message-ID: <006f01c6161d$c2635430$6caf0c54@minster33c3r25>

Thanks for that Shamil I'll try it tomorrow.

I'd have found the code if I thought that feasible I assure you but there is
little or no pattern to where it crashes. I can execute the same key presses
and it will fail at different points each time.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Shamil Salakhetdinov
> Sent: 10 January 2006 18:07
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> > Does any of this give any clues Shamil?
> No, Andy, it doesn't. :(
> 
> They look similar despite the difference in fullpath name for 
> outlook - this
> (hopefully) shouldn't force MS Access to automatically change 
> refs because GUIDs are the same.
> 
> The problem could be in the differences of the product 
> versions and/or indirectly referenced/loaded DLLs.
> 
> I did write a small PSAPI.dll based utility, which creates 
> the XML file with the information about DLLs loaded by MS 
> Access directly or indirectly:
> 
> http://smsconsulting.spb.ru/download/tests/myPSAPI.zip (10KB)
> 
> Run it on your development PC and on the target PC after you 
> run your test because DLLs are loaded on demand only and you 
> will have the complete list of DLL only when you run your app 
> (Of course on the target system your app should be decompiled 
> and compiled and saved to let it run successfully).
> 
> You'll get processes.xml file with information like in P.S. 
> of this message. MS Access should be active when you run the utility.
> 
> When you get two xml files you can compare them to see what 
> are the differences of the loaded DLLs versions.
> 
> But it still could be no clue there....
> 
> Andy, there are no miracles in programming, you know that as 
> well as I do - instead of spending time trying to indirectly 
> solve the issue I'd recommend you to find the code lines 
> giving you the trouble - it's the second day you are looking 
> for "magical" solution - IMO it's now time to stop relying on 
> miracles and to do some dirty routine tracing/logging work 
> and fix the bug in your (legacy) code...
> 
> And when you fix the trouble - use .MDEs they run faster and 
> are smaller in size than big MDBs with compiled and saved code...
> 
> I'm sorry, I think I can't be of any help further in this issue....
> 
> Shamil
> 
> P.S.
> 
>   <?xml version="1.0" encoding="utf-8" ?>
> - <Processes>
> - <Process>
>   <Id>3708</Id>
>   <BaseName>msaccess.exe</BaseName>
>   <MemUsage>7,524KB</MemUsage>
>   <ExeFullPath>D:\Program 
> Files\MSOffice\97\Office\msaccess.exe</ExeFullPath>
>   <ModulesCount>25</ModulesCount>
> - <version>
>   <vi>CompanyName: Microsoft Corporation</vi>
>   <vi>FileDescription: Microsoft Access</vi>
>   <vi>FileVersion: 8.0.5903</vi>
>   <vi>InternalName: MSACCESS</vi>
>   <vi>LegalCopyright: Copyright C Microsoft Corp. 1991-1997. 
> All rights reserved.</vi>
>   <vi>OriginalFilename: MSACCESS.EXE</vi>
>   <vi>ProductName: MicrosoftR Access</vi>
>   <vi>ProductVersion: 8.0.5903</vi>
>   <vi>Comments</vi>
>   <vi>LegalTrademarks</vi>
>   <vi>PrivateBuild</vi>
>   <vi>SpecialBuild</vi>
>   </version>
> - <Modules>
> - <Module>
>   <BaseName>ntdll.dll</BaseName>
>   <ExeFullPath>D:\WINDOWS\system32\ntdll.dll</ExeFullPath>
> - <version>
>   <vi>CompanyName: Microsoft Corporation</vi>
>   <vi>FileDescription: NT Layer DLL</vi>
>   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
>   <vi>InternalName: ntdll.dll</vi>
>   <vi>LegalCopyright: C Microsoft Corporation. All rights 
> reserved.</vi>
>   <vi>OriginalFilename: ntdll.dll</vi>
>   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
>   <vi>ProductVersion: 5.2.3790.0</vi>
>   <vi>Comments</vi>
>   <vi>LegalTrademarks</vi>
>   <vi>PrivateBuild</vi>
>   <vi>SpecialBuild</vi>
>   </version>
>   </Module>
> - <Module>
>   <BaseName>kernel32.dll</BaseName>
>   <ExeFullPath>D:\WINDOWS\system32\kernel32.dll</ExeFullPath>
> - <version>
>   <vi>CompanyName: Microsoft Corporation</vi>
>   <vi>FileDescription: Windows NT BASE API Client DLL</vi>
>   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
>   <vi>InternalName: kernel32</vi>
>   <vi>LegalCopyright: C Microsoft Corporation. All rights 
> reserved.</vi>
>   <vi>OriginalFilename: kernel32</vi>
>   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
>   <vi>ProductVersion: 5.2.3790.0</vi>
> 
> 
> ... etc...
> 
> P.P.S (could be of help in other issues)
> 
> If you run myPSAPI.exe with a parameter equal to a (part of 
> the) name of an active process/processes it will create 
> processes.xml file for this process/these processes....
> 
> ----- Original Message ----- 
> From: "Andy Lacey" <andy at minstersystems.co.uk>
> To: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> Sent: Tuesday, January 10, 2006 4:52 PM
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> > I've listed below the results of running ListRefs on the 
> two machines. 
> > At first I thought they were identical, but there is one 
> difference in 
> > the
> path
> > to the Outlok library. Under W98 this is
> >
> > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> >
> > whereas W2K has the old-fashioned DOS'y path of
> >
> > C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> >
> > Surely this is not significant. It can't be, can it?
> >
> > The other thing I thought odd was that the DAO 3.5 
> reference returns a 
> > .Major and .Minor of 4.0 not 3.5, but then again it's the 
> same on both 
> > machines.
> >
> >
> > Windows 98
> > ==========
> > VBA.3.0 0 True False
> > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL 
> > {000204EF-0000-0000-C000-000000000046}
> > False
> > Access.8.0 0 True False
> > C:\Program Files\Microsoft Office\Office\MSACC8.OLB 
> > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > False
> > DAO.4.0 0 False False
> > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL 
> > {00025E01-0000-0000-C000-000000000046}
> > False
> > Outlook.9.0 0 False False
> > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb 
> > {00062FFF-0000-0000-C000-000000000046}
> > False
> > Word.8.0 0 False False
> > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB 
> > {00020905-0000-0000-C000-000000000046}
> > False
> >
> >
> > Windows 2000
> > ============
> > VBA.3.0 0 True False
> > C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLL 
> > {000204EF-0000-0000-C000-000000000046}
> > False
> > Access.8.0 0 True False
> > C:\Program Files\Microsoft Office\Office\msacc8.olb 
> > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > False
> > DAO.4.0 0 False False
> > C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll 
> > {00025E01-0000-0000-C000-000000000046}
> > False
> > Outlook.9.0 0 False False C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> > {00062FFF-0000-0000-C000-000000000046}
> > False
> > Word.8.0 0 False False
> > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
> > {00020905-0000-0000-C000-000000000046}
> > False
> >
> >
> > Does any of this give any clues Shamil?
> >
> >
> > --
> > Andy Lacey
> > http://www.minstersystems.co.uk
> >
> >
> >
> <<< tail skipped>>>
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From martyconnelly at shaw.ca  Tue Jan 10 13:43:34 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Tue, 10 Jan 2006 11:43:34 -0800
Subject: [AccessD] Access97 on W2000 crashes
References: <006101c61611$62419c80$6caf0c54@minster33c3r25>
Message-ID: <43C40E66.2040004@shaw.ca>

Check you are using Windows 2000 Service Pack 3 (SP3)  to stop oplock 
problems
When compiling make sure Track name AutoCorrect  is off
can lead to corruption problems.
Tools >> Options >> General >>.Track name AutoCorrect info should be off.

Alan Browne has this suggestion
http://allenbrowne.com/ser-25.html

In your subforms, include a text box for each field in its 
LinkChildFields property. This simple step avoids frequent but 
intermittent crashes of Access 2002 and 2003 ("... shut down by 
Windows..."). The text boxes can be hidden if you do not wish to see the 
foreign key fields.

Or Tony Toews corruption FAQ

http://www.granite.ab.ca/access/corruptmdbs.htm

Andy Lacey wrote:

>But the SysCmd does work for me Gustav. I see it working, compilng and
>saving. My problem's almost the very reverse as far as I can see. My
>references all show as ok. Nothing broken. Nothing failing to compile.
>Nothing to mend. It's just that something flipping well crashes despite
>that. And, as I said, it's when the MDB has been decompiled and therefore my
>Syscmd runs that everything works (see my post that begins "Well it's not an
>issue anyway"). My problems come when I exit and then reload the
>by-now-compiled MDB. Any ideas?
>
>Any ideas from anyone who's ben following this?
>
>Yours desperately
>
>-- Andy Lacey
>http://www.minstersystems.co.uk 
>
>
>  
>
>>-----Original Message-----
>>From: accessd-bounces at databaseadvisors.com 
>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
>>Gustav Brock
>>Sent: 10 January 2006 15:51
>>To: accessd at databaseadvisors.com
>>Subject: Re: [AccessD] Access97 on W2000 crashes
>>
>>
>>Hi Andy
>>
>>First, if the issue is a dll, one (fast) thing to check is if 
>>any exists in more than one folder. If so, and you can't sort 
>>that out, use RefLibPaths.
>>
>>Then, SysCmd(..) run from code will not compile and save the 
>>code. It must be done from outside a code module which means 
>>manually (as we, the developer, do) or from a macro. 
>>Brilliant idea from Charlotte. 
>>It is not that difficult to implement. Read closely here from 
>>the old thread:
>>
>>  Broken References in Runtime AXP and A97. Solved!
>>
>>  
>>http://databaseadvisors.com/mailman/htdig/accessd/2003-July/01
>>    
>>
>1034.html 
>
>Note the extended test for broken references.
>
>/gustav
>
>  
>
>>>>andy at minstersystems.co.uk 10-01-2006 14:52:32 >>>
>>>>        
>>>>
>I've listed below the results of running ListRefs on the two machines. At
>first I thought they were identical, but there is one difference in the path
>to the Outlok library. Under W98 this is
>
>C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
>
>whereas W2K has the old-fashioned DOS'y path of
>
>C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
>
>Surely this is not significant. It can't be, can it?
>
>The other thing I thought odd was that the DAO 3.5 reference returns a
>.Major and .Minor of 4.0 not 3.5, but then again it's the same on both
>machines.
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From Gustav at cactus.dk  Tue Jan 10 13:55:04 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 20:55:04 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c41f4d.002@cactus.dk>

Hi Andy

Hmm, if you can "see it working", I guess you run it from the Immediate window. That works, but it is not the same as calling it from code - that's the trap.
But I'm not saying this is the key to the solution, only that you may think the code gets compiled and saved while it perhaps doesn't.

I would follow Shamil's advice closely and track down the offending code lines. Then rewrite the code.

Once I had some very simple code (no API, no dll) that worked perfectly here and on the client's Win2000 machines. On her Win98 machines the app crashed much like yours - just poof and no Access. I rewrote the code and the problem was gone.

/gustav

>>> andy at minstersystems.co.uk 10-01-2006 19:12:14 >>>
But the SysCmd does work for me Gustav. I see it working, compilng and
saving. My problem's almost the very reverse as far as I can see. My
references all show as ok. Nothing broken. Nothing failing to compile.
Nothing to mend. It's just that something flipping well crashes despite
that. And, as I said, it's when the MDB has been decompiled and therefore my
Syscmd runs that everything works (see my post that begins "Well it's not an
issue anyway"). My problems come when I exit and then reload the
by-now-compiled MDB. Any ideas?

Any ideas from anyone who's ben following this?

Yours desperately

-- Andy Lacey
http://www.minstersystems.co.uk 


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gustav Brock
> Sent: 10 January 2006 15:51
> To: accessd at databaseadvisors.com 
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> Hi Andy
> 
> First, if the issue is a dll, one (fast) thing to check is if 
> any exists in more than one folder. If so, and you can't sort 
> that out, use RefLibPaths.
> 
> Then, SysCmd(..) run from code will not compile and save the 
> code. It must be done from outside a code module which means 
> manually (as we, the developer, do) or from a macro. 
> Brilliant idea from Charlotte. 
> It is not that difficult to implement. Read closely here from 
> the old thread:
> 
>   Broken References in Runtime AXP and A97. Solved!
> 
>   
> http://databaseadvisors.com/mailman/htdig/accessd/2003-July/01 
1034.html 

Note the extended test for broken references.

/gustav

>>> andy at minstersystems.co.uk 10-01-2006 14:52:32 >>>
I've listed below the results of running ListRefs on the two machines. At
first I thought they were identical, but there is one difference in the path
to the Outlok library. Under W98 this is

C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb

whereas W2K has the old-fashioned DOS'y path of

C:\PROGRA~1\MICROS~1\Office\msoutl9.olb

Surely this is not significant. It can't be, can it?

The other thing I thought odd was that the DAO 3.5 reference returns a
.Major and .Minor of 4.0 not 3.5, but then again it's the same on both
machines.




From shamil at users.mns.ru  Tue Jan 10 14:09:02 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 10 Jan 2006 23:09:02 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <006f01c6161d$c2635430$6caf0c54@minster33c3r25>
Message-ID: <003d01c61621$b59042a0$6401a8c0@fincomplex.spb.ru>

<<<
it will fail at different points each time.
>>>
Andy,

This means you use the same key presses but different data.

Yes, it's not easy to have "clean hands" tests with MS Access databases and
programs...

But you said you get it crashed always in the same (long) VBA procedure?

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 10:40 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Thanks for that Shamil I'll try it tomorrow.
>
> I'd have found the code if I thought that feasible I assure you but there
is
> little or no pattern to where it crashes. I can execute the same key
presses
> and it will fail at different points each time.
>
> -- Andy Lacey
> http://www.minstersystems.co.uk
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Shamil Salakhetdinov
> > Sent: 10 January 2006 18:07
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > > Does any of this give any clues Shamil?
> > No, Andy, it doesn't. :(
> >
> > They look similar despite the difference in fullpath name for
> > outlook - this
> > (hopefully) shouldn't force MS Access to automatically change
> > refs because GUIDs are the same.
> >
> > The problem could be in the differences of the product
> > versions and/or indirectly referenced/loaded DLLs.
> >
> > I did write a small PSAPI.dll based utility, which creates
> > the XML file with the information about DLLs loaded by MS
> > Access directly or indirectly:
> >
> > http://smsconsulting.spb.ru/download/tests/myPSAPI.zip (10KB)
> >
> > Run it on your development PC and on the target PC after you
> > run your test because DLLs are loaded on demand only and you
> > will have the complete list of DLL only when you run your app
> > (Of course on the target system your app should be decompiled
> > and compiled and saved to let it run successfully).
> >
> > You'll get processes.xml file with information like in P.S.
> > of this message. MS Access should be active when you run the utility.
> >
> > When you get two xml files you can compare them to see what
> > are the differences of the loaded DLLs versions.
> >
> > But it still could be no clue there....
> >
> > Andy, there are no miracles in programming, you know that as
> > well as I do - instead of spending time trying to indirectly
> > solve the issue I'd recommend you to find the code lines
> > giving you the trouble - it's the second day you are looking
> > for "magical" solution - IMO it's now time to stop relying on
> > miracles and to do some dirty routine tracing/logging work
> > and fix the bug in your (legacy) code...
> >
> > And when you fix the trouble - use .MDEs they run faster and
> > are smaller in size than big MDBs with compiled and saved code...
> >
> > I'm sorry, I think I can't be of any help further in this issue....
> >
> > Shamil
> >
> > P.S.
> >
> >   <?xml version="1.0" encoding="utf-8" ?>
> > - <Processes>
> > - <Process>
> >   <Id>3708</Id>
> >   <BaseName>msaccess.exe</BaseName>
> >   <MemUsage>7,524KB</MemUsage>
> >   <ExeFullPath>D:\Program
> > Files\MSOffice\97\Office\msaccess.exe</ExeFullPath>
> >   <ModulesCount>25</ModulesCount>
> > - <version>
> >   <vi>CompanyName: Microsoft Corporation</vi>
> >   <vi>FileDescription: Microsoft Access</vi>
> >   <vi>FileVersion: 8.0.5903</vi>
> >   <vi>InternalName: MSACCESS</vi>
> >   <vi>LegalCopyright: Copyright C Microsoft Corp. 1991-1997.
> > All rights reserved.</vi>
> >   <vi>OriginalFilename: MSACCESS.EXE</vi>
> >   <vi>ProductName: MicrosoftR Access</vi>
> >   <vi>ProductVersion: 8.0.5903</vi>
> >   <vi>Comments</vi>
> >   <vi>LegalTrademarks</vi>
> >   <vi>PrivateBuild</vi>
> >   <vi>SpecialBuild</vi>
> >   </version>
> > - <Modules>
> > - <Module>
> >   <BaseName>ntdll.dll</BaseName>
> >   <ExeFullPath>D:\WINDOWS\system32\ntdll.dll</ExeFullPath>
> > - <version>
> >   <vi>CompanyName: Microsoft Corporation</vi>
> >   <vi>FileDescription: NT Layer DLL</vi>
> >   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
> >   <vi>InternalName: ntdll.dll</vi>
> >   <vi>LegalCopyright: C Microsoft Corporation. All rights
> > reserved.</vi>
> >   <vi>OriginalFilename: ntdll.dll</vi>
> >   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
> >   <vi>ProductVersion: 5.2.3790.0</vi>
> >   <vi>Comments</vi>
> >   <vi>LegalTrademarks</vi>
> >   <vi>PrivateBuild</vi>
> >   <vi>SpecialBuild</vi>
> >   </version>
> >   </Module>
> > - <Module>
> >   <BaseName>kernel32.dll</BaseName>
> >   <ExeFullPath>D:\WINDOWS\system32\kernel32.dll</ExeFullPath>
> > - <version>
> >   <vi>CompanyName: Microsoft Corporation</vi>
> >   <vi>FileDescription: Windows NT BASE API Client DLL</vi>
> >   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
> >   <vi>InternalName: kernel32</vi>
> >   <vi>LegalCopyright: C Microsoft Corporation. All rights
> > reserved.</vi>
> >   <vi>OriginalFilename: kernel32</vi>
> >   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
> >   <vi>ProductVersion: 5.2.3790.0</vi>
> >
> >
> > ... etc...
> >
> > P.P.S (could be of help in other issues)
> >
> > If you run myPSAPI.exe with a parameter equal to a (part of
> > the) name of an active process/processes it will create
> > processes.xml file for this process/these processes....
> >
> > ----- Original Message ----- 
> > From: "Andy Lacey" <andy at minstersystems.co.uk>
> > To: "Access Developers discussion and problem solving"
> > <accessd at databaseadvisors.com>
> > Sent: Tuesday, January 10, 2006 4:52 PM
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > > I've listed below the results of running ListRefs on the
> > two machines.
> > > At first I thought they were identical, but there is one
> > difference in
> > > the
> > path
> > > to the Outlok library. Under W98 this is
> > >
> > > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> > >
> > > whereas W2K has the old-fashioned DOS'y path of
> > >
> > > C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> > >
> > > Surely this is not significant. It can't be, can it?
> > >
> > > The other thing I thought odd was that the DAO 3.5
> > reference returns a
> > > .Major and .Minor of 4.0 not 3.5, but then again it's the
> > same on both
> > > machines.
> > >
> > >
> > > Windows 98
> > > ==========
> > > VBA.3.0 0 True False
> > > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL
> > > {000204EF-0000-0000-C000-000000000046}
> > > False
> > > Access.8.0 0 True False
> > > C:\Program Files\Microsoft Office\Office\MSACC8.OLB
> > > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > > False
> > > DAO.4.0 0 False False
> > > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL
> > > {00025E01-0000-0000-C000-000000000046}
> > > False
> > > Outlook.9.0 0 False False
> > > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> > > {00062FFF-0000-0000-C000-000000000046}
> > > False
> > > Word.8.0 0 False False
> > > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
> > > {00020905-0000-0000-C000-000000000046}
> > > False
> > >
> > >
> > > Windows 2000
> > > ============
> > > VBA.3.0 0 True False
> > > C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLL
> > > {000204EF-0000-0000-C000-000000000046}
> > > False
> > > Access.8.0 0 True False
> > > C:\Program Files\Microsoft Office\Office\msacc8.olb
> > > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > > False
> > > DAO.4.0 0 False False
> > > C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll
> > > {00025E01-0000-0000-C000-000000000046}
> > > False
> > > Outlook.9.0 0 False False C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> > > {00062FFF-0000-0000-C000-000000000046}
> > > False
> > > Word.8.0 0 False False
> > > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
> > > {00020905-0000-0000-C000-000000000046}
> > > False
> > >
> > >
> > > Does any of this give any clues Shamil?
> > >
> > >
> > > --
> > > Andy Lacey
> > > http://www.minstersystems.co.uk
> > >
> > >
> > >
> > <<< tail skipped>>>
> >
> > -- 
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Tue Jan 10 14:08:55 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 21:08:55 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c4227b.003@cactus.dk>

Hi Andy

If so it could be something outside Access. Try to run the graphics driver at low colour resolution and check for updates. 
Also the printer driver for the default printer may cause trouble. Test with a new default printer assigned a low-tech printer driver like Windows' HP LaserJet II.

/gustav

>>> andy at minstersystems.co.uk 10-01-2006 20:40:49 >>>

I'd have found the code if I thought that feasible I assure you but there is
little or no pattern to where it crashes. I can execute the same key presses
and it will fail at different points each time.




From prosoft6 at hotmail.com  Tue Jan 10 14:34:26 2006
From: prosoft6 at hotmail.com (Julie Reardon-Taylor)
Date: Tue, 10 Jan 2006 15:34:26 -0500
Subject: [AccessD] Filtering a combo box
Message-ID: <BAY114-F16B4BAE4F24E687D2BEA1E9A250@phx.gbl>

Hi Group,

This is another one of my simple minded questions.  I haven't asked on in 
awhile, so I'm hoping that you will indulge me.

All I want to do is filter a combo box's values when the records on my form 
are in a filtered state.  In other words, I want to apply the same filter to 
both the records on my form as well as the combo box that allows the user to 
search for a record.



Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business




From cfoust at infostatsystems.com  Tue Jan 10 15:11:27 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 10 Jan 2006 13:11:27 -0800
Subject: [AccessD] Filtering a combo box
Message-ID: <F55048AF7E974F429BB24597D7355EEABEF7@INFOSERVER04.infostat.local>

If you do that, are you going to provide a means for the user to turn
off the filter and show all records?  Otherwise, they'll be trapped.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Julie
Reardon-Taylor
Sent: Tuesday, January 10, 2006 12:34 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] Filtering a combo box


Hi Group,

This is another one of my simple minded questions.  I haven't asked on
in 
awhile, so I'm hoping that you will indulge me.

All I want to do is filter a combo box's values when the records on my
form 
are in a filtered state.  In other words, I want to apply the same
filter to 
both the records on my form as well as the combo box that allows the
user to 
search for a record.



Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business


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


From prosoft6 at hotmail.com  Tue Jan 10 15:17:26 2006
From: prosoft6 at hotmail.com (Julie Reardon-Taylor)
Date: Tue, 10 Jan 2006 16:17:26 -0500
Subject: [AccessD] Filtering a combo box
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABEF7@INFOSERVER04.infostat.local>
Message-ID: <BAY114-F3339B20A000FD3D0D9D1829A250@phx.gbl>

Yes.  Definitely.



Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business




From JHewson at karta.com  Tue Jan 10 15:46:37 2006
From: JHewson at karta.com (Jim Hewson)
Date: Tue, 10 Jan 2006 15:46:37 -0600
Subject: [AccessD] Filtering a combo box
Message-ID: <9C382E065F54AE48BC3AA7925DCBB01C03AC7D7F@karta-exc-int.Karta.com>

Use the same filter (query) for the combo box as the form. Refresh the form after you set the filter.
The filter will apply both to the form and the combo box.

Jim 
jhewson at karta.com
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Julie Reardon-Taylor
Sent: Tuesday, January 10, 2006 2:34 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] Filtering a combo box

Hi Group,

This is another one of my simple minded questions.  I haven't asked on in 
awhile, so I'm hoping that you will indulge me.

All I want to do is filter a combo box's values when the records on my form 
are in a filtered state.  In other words, I want to apply the same filter to 
both the records on my form as well as the combo box that allows the user to 
search for a record.



Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business


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


From cfoust at infostatsystems.com  Tue Jan 10 15:46:33 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 10 Jan 2006 13:46:33 -0800
Subject: [AccessD] Filtering a combo box
Message-ID: <F55048AF7E974F429BB24597D7355EEABEF8@INFOSERVER04.infostat.local>

In that case, assuming you're applying a filter to the form, you can get
the filterstring for the form. Then assuming your combobox has a SELECT
statement as a rowsource and you have the default "all records"
rowsource for the combobox stored in a constant in the form, you can
just add the filterstring as a where clause and set the rowsource to the
new SQL statement.  When you want to show all, just set the rowsource
back to the default select string.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Julie
Reardon-Taylor
Sent: Tuesday, January 10, 2006 1:17 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Filtering a combo box


Yes.  Definitely.



Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business


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


From andy at minstersystems.co.uk  Tue Jan 10 16:07:05 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 22:07:05 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <43C40E66.2040004@shaw.ca>
Message-ID: <007901c61632$31692cb0$6caf0c54@minster33c3r25>

Hi Marty, thanks for the suggestions but it's an Access 97 MDB, so some of
these don't apply. And it's not actually a corrupt MDB as it runs (and has
done for years) under W98 and, in many situations, under W2K and XP too.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> MartyConnelly
> Sent: 10 January 2006 19:44
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> Check you are using Windows 2000 Service Pack 3 (SP3)  to stop oplock 
> problems
> When compiling make sure Track name AutoCorrect  is off
> can lead to corruption problems.
> Tools >> Options >> General >>.Track name AutoCorrect info 
> should be off.
> 
> Alan Browne has this suggestion http://allenbrowne.com/ser-25.html
> 
> In your subforms, include a text box for each field in its 
> LinkChildFields property. This simple step avoids frequent but 
> intermittent crashes of Access 2002 and 2003 ("... shut down by 
> Windows..."). The text boxes can be hidden if you do not wish 
> to see the 
> foreign key fields.
> 
> Or Tony Toews corruption FAQ
> 
> http://www.granite.ab.ca/access/corruptmdbs.htm
> 
> Andy Lacey wrote:
> 
> >But the SysCmd does work for me Gustav. I see it working, 
> compilng and 
> >saving. My problem's almost the very reverse as far as I can see. My 
> >references all show as ok. Nothing broken. Nothing failing 
> to compile. 
> >Nothing to mend. It's just that something flipping well 
> crashes despite 
> >that. And, as I said, it's when the MDB has been decompiled and 
> >therefore my Syscmd runs that everything works (see my post 
> that begins 
> >"Well it's not an issue anyway"). My problems come when I 
> exit and then 
> >reload the by-now-compiled MDB. Any ideas?
> >
> >Any ideas from anyone who's ben following this?
> >
> >Yours desperately
> >
> >-- Andy Lacey
> >http://www.minstersystems.co.uk
> >
> >
> >  
> >
> >>-----Original Message-----
> >>From: accessd-bounces at databaseadvisors.com
> >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> >>Gustav Brock
> >>Sent: 10 January 2006 15:51
> >>To: accessd at databaseadvisors.com
> >>Subject: Re: [AccessD] Access97 on W2000 crashes
> >>
> >>
> >>Hi Andy
> >>
> >>First, if the issue is a dll, one (fast) thing to check is if
> >>any exists in more than one folder. If so, and you can't sort 
> >>that out, use RefLibPaths.
> >>
> >>Then, SysCmd(..) run from code will not compile and save the
> >>code. It must be done from outside a code module which means 
> >>manually (as we, the developer, do) or from a macro. 
> >>Brilliant idea from Charlotte. 
> >>It is not that difficult to implement. Read closely here from 
> >>the old thread:
> >>
> >>  Broken References in Runtime AXP and A97. Solved!
> >>
> >>  
> >>http://databaseadvisors.com/mailman/htdig/accessd/2003-July/01
> >>    
> >>
> >1034.html
> >
> >Note the extended test for broken references.
> >
> >/gustav
> >
> >  
> >
> >>>>andy at minstersystems.co.uk 10-01-2006 14:52:32 >>>
> >>>>        
> >>>>
> >I've listed below the results of running ListRefs on the two 
> machines. 
> >At first I thought they were identical, but there is one 
> difference in 
> >the path to the Outlok library. Under W98 this is
> >
> >C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> >
> >whereas W2K has the old-fashioned DOS'y path of
> >
> >C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> >
> >Surely this is not significant. It can't be, can it?
> >
> >The other thing I thought odd was that the DAO 3.5 reference 
> returns a 
> >.Major and .Minor of 4.0 not 3.5, but then again it's the 
> same on both 
> >machines.
> >
> >
> >  
> >
> 
> -- 
> Marty Connelly
> Victoria, B.C.
> Canada
> 
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From andy at minstersystems.co.uk  Tue Jan 10 16:07:05 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 22:07:05 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <003d01c61621$b59042a0$6401a8c0@fincomplex.spb.ru>
Message-ID: <007a01c61632$319d0df0$6caf0c54@minster33c3r25>

No, exactly the same data. Believe me. And I key absolutely nothing in. It's
a quoation module. Very complex but it's written such that the user's last
selections are "remembered" (ie written to a table). So when I open the 1st
form in the quotation cycle it offers me the last selections I made. All I
have to do is click 'Proceed' buttons to step through the process (bit like
a very big and complex wizard), so reproducing the same path through the
operation is easy. And sometimes it will crash on the first Proceed,
sometimes the 4th, or the 5th, and so on. Sometimes it will get all the way
through but crash on a second pass. But behind those buttons there's masses
of data retrieval and calculation going on, and calls to zillions of
functions. So, for example, pressing the 2nd Proceed will execute literally
hunders of lines of code. And it may crash somewhere in there. Or it may
not, but crash after the next Proceed. And bear in mind that none of this
crashes ever on any W98 machine (and did I mention that it doesn't crash
either on my XP machine at home, just W2K and XP machines as configured at
work?). So I'm not being difficult in holding off from tracking the point in
code where it crashes, it just looks like a lifetime's work to do so. And of
course I'd have to face up to that if I had a bug in there, but there can't
be a conventional bug if it's so inconsistent.

Aaaaaargh.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Shamil Salakhetdinov
> Sent: 10 January 2006 20:09
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> <<<
> it will fail at different points each time.
> >>>
> Andy,
> 
> This means you use the same key presses but different data.
> 
> Yes, it's not easy to have "clean hands" tests with MS Access 
> databases and programs...
> 
> But you said you get it crashed always in the same (long) VBA 
> procedure?
> 
> Shamil
> 
> ----- Original Message ----- 
> From: "Andy Lacey" <andy at minstersystems.co.uk>
> To: "'Access Developers discussion and problem solving'" 
> <accessd at databaseadvisors.com>
> Sent: Tuesday, January 10, 2006 10:40 PM
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> > Thanks for that Shamil I'll try it tomorrow.
> >
> > I'd have found the code if I thought that feasible I assure you but 
> > there
> is
> > little or no pattern to where it crashes. I can execute the same key
> presses
> > and it will fail at different points each time.
> >
> > -- Andy Lacey
> > http://www.minstersystems.co.uk
> >
> > > -----Original Message-----
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil 
> > > Salakhetdinov
> > > Sent: 10 January 2006 18:07
> > > To: Access Developers discussion and problem solving
> > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > >
> > >
> > > > Does any of this give any clues Shamil?
> > > No, Andy, it doesn't. :(
> > >
> > > They look similar despite the difference in fullpath name for 
> > > outlook - this
> > > (hopefully) shouldn't force MS Access to automatically 
> change refs 
> > > because GUIDs are the same.
> > >
> > > The problem could be in the differences of the product versions 
> > > and/or indirectly referenced/loaded DLLs.
> > >
> > > I did write a small PSAPI.dll based utility, which 
> creates the XML 
> > > file with the information about DLLs loaded by MS Access 
> directly or 
> > > indirectly:
> > >
> > > http://smsconsulting.spb.ru/download/tests/myPSAPI.zip (10KB)
> > >
> > > Run it on your development PC and on the target PC after you run 
> > > your test because DLLs are loaded on demand only and you 
> will have 
> > > the complete list of DLL only when you run your app (Of course on 
> > > the target system your app should be decompiled and compiled and 
> > > saved to let it run successfully).
> > >
> > > You'll get processes.xml file with information like in 
> P.S. of this 
> > > message. MS Access should be active when you run the utility.
> > >
> > > When you get two xml files you can compare them to see 
> what are the 
> > > differences of the loaded DLLs versions.
> > >
> > > But it still could be no clue there....
> > >
> > > Andy, there are no miracles in programming, you know that 
> as well as 
> > > I do - instead of spending time trying to indirectly 
> solve the issue 
> > > I'd recommend you to find the code lines giving you the trouble - 
> > > it's the second day you are looking for "magical" solution - IMO 
> > > it's now time to stop relying on miracles and to do some dirty 
> > > routine tracing/logging work and fix the bug in your (legacy) 
> > > code...
> > >
> > > And when you fix the trouble - use .MDEs they run faster and are 
> > > smaller in size than big MDBs with compiled and saved code...
> > >
> > > I'm sorry, I think I can't be of any help further in this 
> issue....
> > >
> > > Shamil
> > >
> > > P.S.
> > >
> > >   <?xml version="1.0" encoding="utf-8" ?>
> > > - <Processes>
> > > - <Process>
> > >   <Id>3708</Id>
> > >   <BaseName>msaccess.exe</BaseName>
> > >   <MemUsage>7,524KB</MemUsage>
> > >   <ExeFullPath>D:\Program 
> > > Files\MSOffice\97\Office\msaccess.exe</ExeFullPath>
> > >   <ModulesCount>25</ModulesCount>
> > > - <version>
> > >   <vi>CompanyName: Microsoft Corporation</vi>
> > >   <vi>FileDescription: Microsoft Access</vi>
> > >   <vi>FileVersion: 8.0.5903</vi>
> > >   <vi>InternalName: MSACCESS</vi>
> > >   <vi>LegalCopyright: Copyright C Microsoft Corp. 1991-1997. All 
> > > rights reserved.</vi>
> > >   <vi>OriginalFilename: MSACCESS.EXE</vi>
> > >   <vi>ProductName: MicrosoftR Access</vi>
> > >   <vi>ProductVersion: 8.0.5903</vi>
> > >   <vi>Comments</vi>
> > >   <vi>LegalTrademarks</vi>
> > >   <vi>PrivateBuild</vi>
> > >   <vi>SpecialBuild</vi>
> > >   </version>
> > > - <Modules>
> > > - <Module>
> > >   <BaseName>ntdll.dll</BaseName>
> > >   <ExeFullPath>D:\WINDOWS\system32\ntdll.dll</ExeFullPath>
> > > - <version>
> > >   <vi>CompanyName: Microsoft Corporation</vi>
> > >   <vi>FileDescription: NT Layer DLL</vi>
> > >   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
> > >   <vi>InternalName: ntdll.dll</vi>
> > >   <vi>LegalCopyright: C Microsoft Corporation. All rights 
> > > reserved.</vi>
> > >   <vi>OriginalFilename: ntdll.dll</vi>
> > >   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
> > >   <vi>ProductVersion: 5.2.3790.0</vi>
> > >   <vi>Comments</vi>
> > >   <vi>LegalTrademarks</vi>
> > >   <vi>PrivateBuild</vi>
> > >   <vi>SpecialBuild</vi>
> > >   </version>
> > >   </Module>
> > > - <Module>
> > >   <BaseName>kernel32.dll</BaseName>
> > >   <ExeFullPath>D:\WINDOWS\system32\kernel32.dll</ExeFullPath>
> > > - <version>
> > >   <vi>CompanyName: Microsoft Corporation</vi>
> > >   <vi>FileDescription: Windows NT BASE API Client DLL</vi>
> > >   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
> > >   <vi>InternalName: kernel32</vi>
> > >   <vi>LegalCopyright: C Microsoft Corporation. All rights 
> > > reserved.</vi>
> > >   <vi>OriginalFilename: kernel32</vi>
> > >   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
> > >   <vi>ProductVersion: 5.2.3790.0</vi>
> > >
> > >
> > > ... etc...
> > >
> > > P.P.S (could be of help in other issues)
> > >
> > > If you run myPSAPI.exe with a parameter equal to a (part of
> > > the) name of an active process/processes it will create 
> > > processes.xml file for this process/these processes....
> > >
> > > ----- Original Message -----
> > > From: "Andy Lacey" <andy at minstersystems.co.uk>
> > > To: "Access Developers discussion and problem solving"
> > > <accessd at databaseadvisors.com>
> > > Sent: Tuesday, January 10, 2006 4:52 PM
> > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > >
> > >
> > > > I've listed below the results of running ListRefs on the
> > > two machines.
> > > > At first I thought they were identical, but there is one
> > > difference in
> > > > the
> > > path
> > > > to the Outlok library. Under W98 this is
> > > >
> > > > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> > > >
> > > > whereas W2K has the old-fashioned DOS'y path of
> > > >
> > > > C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> > > >
> > > > Surely this is not significant. It can't be, can it?
> > > >
> > > > The other thing I thought odd was that the DAO 3.5
> > > reference returns a
> > > > .Major and .Minor of 4.0 not 3.5, but then again it's the
> > > same on both
> > > > machines.
> > > >
> > > >
> > > > Windows 98
> > > > ==========
> > > > VBA.3.0 0 True False
> > > > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL 
> > > > {000204EF-0000-0000-C000-000000000046}
> > > > False
> > > > Access.8.0 0 True False
> > > > C:\Program Files\Microsoft Office\Office\MSACC8.OLB 
> > > > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > > > False
> > > > DAO.4.0 0 False False
> > > > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL 
> > > > {00025E01-0000-0000-C000-000000000046}
> > > > False
> > > > Outlook.9.0 0 False False
> > > > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb 
> > > > {00062FFF-0000-0000-C000-000000000046}
> > > > False
> > > > Word.8.0 0 False False
> > > > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB 
> > > > {00020905-0000-0000-C000-000000000046}
> > > > False
> > > >
> > > >
> > > > Windows 2000
> > > > ============
> > > > VBA.3.0 0 True False
> > > > C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLL 
> > > > {000204EF-0000-0000-C000-000000000046}
> > > > False
> > > > Access.8.0 0 True False
> > > > C:\Program Files\Microsoft Office\Office\msacc8.olb 
> > > > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > > > False
> > > > DAO.4.0 0 False False
> > > > C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll 
> > > > {00025E01-0000-0000-C000-000000000046}
> > > > False
> > > > Outlook.9.0 0 False False 
> C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> > > > {00062FFF-0000-0000-C000-000000000046}
> > > > False
> > > > Word.8.0 0 False False
> > > > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB 
> > > > {00020905-0000-0000-C000-000000000046}
> > > > False
> > > >
> > > >
> > > > Does any of this give any clues Shamil?
> > > >
> > > >
> > > > --
> > > > Andy Lacey
> > > > http://www.minstersystems.co.uk
> > > >
> > > >
> > > >
> > > <<< tail skipped>>>
> > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From stuart at lexacorp.com.pg  Tue Jan 10 16:30:56 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Wed, 11 Jan 2006 08:30:56 +1000
Subject: [AccessD] A2K - Unzip  and append from CD
In-Reply-To: <s3c3d477.084@cactus.dk>
Message-ID: <43C4C240.13625.2117B3D@stuart.lexacorp.com.pg>

On 10 Jan 2006 at 15:35, Gustav Brock wrote:

> Hi Reuben
> 
> If you tell a bit more someone might have an idea.
> How would you import a text file in Access without using Access ..?
> 

Using Jet or ODBC with any other application development environment that 
supports one of them? :-)



-- 
Stuart




From andy at minstersystems.co.uk  Tue Jan 10 16:32:31 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 22:32:31 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <007a01c61632$319d0df0$6caf0c54@minster33c3r25>
Message-ID: <007d01c61635$be9dacc0$6caf0c54@minster33c3r25>

Sorry, bad info there. I was wrong when I said "it doesn't crash either on
my XP machine at home". It does.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
> Sent: 10 January 2006 22:07
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> No, exactly the same data. Believe me. And I key absolutely 
> nothing in. It's a quoation module. Very complex but it's 
> written such that the user's last selections are "remembered" 
> (ie written to a table). So when I open the 1st form in the 
> quotation cycle it offers me the last selections I made. All 
> I have to do is click 'Proceed' buttons to step through the 
> process (bit like a very big and complex wizard), so 
> reproducing the same path through the operation is easy. And 
> sometimes it will crash on the first Proceed, sometimes the 
> 4th, or the 5th, and so on. Sometimes it will get all the way 
> through but crash on a second pass. But behind those buttons 
> there's masses of data retrieval and calculation going on, 
> and calls to zillions of functions. So, for example, pressing 
> the 2nd Proceed will execute literally hunders of lines of 
> code. And it may crash somewhere in there. Or it may not, but 
> crash after the next Proceed. And bear in mind that none of 
> this crashes ever on any W98 machine (and did I mention that 
> it doesn't crash either on my XP machine at home, just W2K 
> and XP machines as configured at work?). So I'm not being 
> difficult in holding off from tracking the point in code 
> where it crashes, it just looks like a lifetime's work to do 
> so. And of course I'd have to face up to that if I had a bug 
> in there, but there can't be a conventional bug if it's so 
> inconsistent.
> 
> Aaaaaargh.
> 
> -- Andy Lacey
> http://www.minstersystems.co.uk 
> 
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> > Shamil Salakhetdinov
> > Sent: 10 January 2006 20:09
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> > 
> > 
> > <<<
> > it will fail at different points each time.
> > >>>
> > Andy,
> > 
> > This means you use the same key presses but different data.
> > 
> > Yes, it's not easy to have "clean hands" tests with MS Access
> > databases and programs...
> > 
> > But you said you get it crashed always in the same (long) VBA
> > procedure?
> > 
> > Shamil
> > 
> > ----- Original Message -----
> > From: "Andy Lacey" <andy at minstersystems.co.uk>
> > To: "'Access Developers discussion and problem solving'" 
> > <accessd at databaseadvisors.com>
> > Sent: Tuesday, January 10, 2006 10:40 PM
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> > 
> > 
> > > Thanks for that Shamil I'll try it tomorrow.
> > >
> > > I'd have found the code if I thought that feasible I 
> assure you but
> > > there
> > is
> > > little or no pattern to where it crashes. I can execute 
> the same key
> > presses
> > > and it will fail at different points each time.
> > >
> > > -- Andy Lacey
> > > http://www.minstersystems.co.uk
> > >
> > > > -----Original Message-----
> > > > From: accessd-bounces at databaseadvisors.com
> > > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf 
> Of Shamil
> > > > Salakhetdinov
> > > > Sent: 10 January 2006 18:07
> > > > To: Access Developers discussion and problem solving
> > > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > > >
> > > >
> > > > > Does any of this give any clues Shamil?
> > > > No, Andy, it doesn't. :(
> > > >
> > > > They look similar despite the difference in fullpath name for
> > > > outlook - this
> > > > (hopefully) shouldn't force MS Access to automatically 
> > change refs
> > > > because GUIDs are the same.
> > > >
> > > > The problem could be in the differences of the product versions
> > > > and/or indirectly referenced/loaded DLLs.
> > > >
> > > > I did write a small PSAPI.dll based utility, which
> > creates the XML
> > > > file with the information about DLLs loaded by MS Access
> > directly or
> > > > indirectly:
> > > >
> > > > http://smsconsulting.spb.ru/download/tests/myPSAPI.zip (10KB)
> > > >
> > > > Run it on your development PC and on the target PC after you run
> > > > your test because DLLs are loaded on demand only and you 
> > will have
> > > > the complete list of DLL only when you run your app (Of 
> course on
> > > > the target system your app should be decompiled and 
> compiled and 
> > > > saved to let it run successfully).
> > > >
> > > > You'll get processes.xml file with information like in
> > P.S. of this
> > > > message. MS Access should be active when you run the utility.
> > > >
> > > > When you get two xml files you can compare them to see
> > what are the
> > > > differences of the loaded DLLs versions.
> > > >
> > > > But it still could be no clue there....
> > > >
> > > > Andy, there are no miracles in programming, you know that
> > as well as
> > > > I do - instead of spending time trying to indirectly
> > solve the issue
> > > > I'd recommend you to find the code lines giving you the 
> trouble -
> > > > it's the second day you are looking for "magical" 
> solution - IMO 
> > > > it's now time to stop relying on miracles and to do some dirty 
> > > > routine tracing/logging work and fix the bug in your (legacy) 
> > > > code...
> > > >
> > > > And when you fix the trouble - use .MDEs they run faster and are
> > > > smaller in size than big MDBs with compiled and saved code...
> > > >
> > > > I'm sorry, I think I can't be of any help further in this
> > issue....
> > > >
> > > > Shamil
> > > >
> > > > P.S.
> > > >
> > > >   <?xml version="1.0" encoding="utf-8" ?>
> > > > - <Processes>
> > > > - <Process>
> > > >   <Id>3708</Id>
> > > >   <BaseName>msaccess.exe</BaseName>
> > > >   <MemUsage>7,524KB</MemUsage>
> > > >   <ExeFullPath>D:\Program
> > > > Files\MSOffice\97\Office\msaccess.exe</ExeFullPath>
> > > >   <ModulesCount>25</ModulesCount>
> > > > - <version>
> > > >   <vi>CompanyName: Microsoft Corporation</vi>
> > > >   <vi>FileDescription: Microsoft Access</vi>
> > > >   <vi>FileVersion: 8.0.5903</vi>
> > > >   <vi>InternalName: MSACCESS</vi>
> > > >   <vi>LegalCopyright: Copyright C Microsoft Corp. 
> 1991-1997. All 
> > > > rights reserved.</vi>
> > > >   <vi>OriginalFilename: MSACCESS.EXE</vi>
> > > >   <vi>ProductName: MicrosoftR Access</vi>
> > > >   <vi>ProductVersion: 8.0.5903</vi>
> > > >   <vi>Comments</vi>
> > > >   <vi>LegalTrademarks</vi>
> > > >   <vi>PrivateBuild</vi>
> > > >   <vi>SpecialBuild</vi>
> > > >   </version>
> > > > - <Modules>
> > > > - <Module>
> > > >   <BaseName>ntdll.dll</BaseName>
> > > >   <ExeFullPath>D:\WINDOWS\system32\ntdll.dll</ExeFullPath>
> > > > - <version>
> > > >   <vi>CompanyName: Microsoft Corporation</vi>
> > > >   <vi>FileDescription: NT Layer DLL</vi>
> > > >   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
> > > >   <vi>InternalName: ntdll.dll</vi>
> > > >   <vi>LegalCopyright: C Microsoft Corporation. All rights 
> > > > reserved.</vi>
> > > >   <vi>OriginalFilename: ntdll.dll</vi>
> > > >   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
> > > >   <vi>ProductVersion: 5.2.3790.0</vi>
> > > >   <vi>Comments</vi>
> > > >   <vi>LegalTrademarks</vi>
> > > >   <vi>PrivateBuild</vi>
> > > >   <vi>SpecialBuild</vi>
> > > >   </version>
> > > >   </Module>
> > > > - <Module>
> > > >   <BaseName>kernel32.dll</BaseName>
> > > >   <ExeFullPath>D:\WINDOWS\system32\kernel32.dll</ExeFullPath>
> > > > - <version>
> > > >   <vi>CompanyName: Microsoft Corporation</vi>
> > > >   <vi>FileDescription: Windows NT BASE API Client DLL</vi>
> > > >   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
> > > >   <vi>InternalName: kernel32</vi>
> > > >   <vi>LegalCopyright: C Microsoft Corporation. All rights 
> > > > reserved.</vi>
> > > >   <vi>OriginalFilename: kernel32</vi>
> > > >   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
> > > >   <vi>ProductVersion: 5.2.3790.0</vi>
> > > >
> > > >
> > > > ... etc...
> > > >
> > > > P.P.S (could be of help in other issues)
> > > >
> > > > If you run myPSAPI.exe with a parameter equal to a (part of
> > > > the) name of an active process/processes it will create
> > > > processes.xml file for this process/these processes....
> > > >
> > > > ----- Original Message -----
> > > > From: "Andy Lacey" <andy at minstersystems.co.uk>
> > > > To: "Access Developers discussion and problem solving" 
> > > > <accessd at databaseadvisors.com>
> > > > Sent: Tuesday, January 10, 2006 4:52 PM
> > > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > > >
> > > >
> > > > > I've listed below the results of running ListRefs on the
> > > > two machines.
> > > > > At first I thought they were identical, but there is one
> > > > difference in
> > > > > the
> > > > path
> > > > > to the Outlok library. Under W98 this is
> > > > >
> > > > > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> > > > >
> > > > > whereas W2K has the old-fashioned DOS'y path of
> > > > >
> > > > > C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> > > > >
> > > > > Surely this is not significant. It can't be, can it?
> > > > >
> > > > > The other thing I thought odd was that the DAO 3.5
> > > > reference returns a
> > > > > .Major and .Minor of 4.0 not 3.5, but then again it's the
> > > > same on both
> > > > > machines.
> > > > >
> > > > >
> > > > > Windows 98
> > > > > ==========
> > > > > VBA.3.0 0 True False
> > > > > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL
> > > > > {000204EF-0000-0000-C000-000000000046}
> > > > > False
> > > > > Access.8.0 0 True False
> > > > > C:\Program Files\Microsoft Office\Office\MSACC8.OLB 
> > > > > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > > > > False
> > > > > DAO.4.0 0 False False
> > > > > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL 
> > > > > {00025E01-0000-0000-C000-000000000046}
> > > > > False
> > > > > Outlook.9.0 0 False False
> > > > > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb 
> > > > > {00062FFF-0000-0000-C000-000000000046}
> > > > > False
> > > > > Word.8.0 0 False False
> > > > > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB 
> > > > > {00020905-0000-0000-C000-000000000046}
> > > > > False
> > > > >
> > > > >
> > > > > Windows 2000
> > > > > ============
> > > > > VBA.3.0 0 True False
> > > > > C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLL
> > > > > {000204EF-0000-0000-C000-000000000046}
> > > > > False
> > > > > Access.8.0 0 True False
> > > > > C:\Program Files\Microsoft Office\Office\msacc8.olb 
> > > > > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > > > > False
> > > > > DAO.4.0 0 False False
> > > > > C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll 
> > > > > {00025E01-0000-0000-C000-000000000046}
> > > > > False
> > > > > Outlook.9.0 0 False False 
> > C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> > > > > {00062FFF-0000-0000-C000-000000000046}
> > > > > False
> > > > > Word.8.0 0 False False
> > > > > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
> > > > > {00020905-0000-0000-C000-000000000046}
> > > > > False
> > > > >
> > > > >
> > > > > Does any of this give any clues Shamil?
> > > > >
> > > > >
> > > > > --
> > > > > Andy Lacey
> > > > > http://www.minstersystems.co.uk
> > > > >
> > > > >
> > > > >
> > > > <<< tail skipped>>>
> > > >
> > > > --
> > > > AccessD mailing list
> > > > AccessD at databaseadvisors.com 
> > > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > > Website: http://www.databaseadvisors.com
> > > >
> > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com 
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > 
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com 
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> > 
> > 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From andy at minstersystems.co.uk  Tue Jan 10 17:21:35 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 23:21:35 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <s3c41f4d.002@cactus.dk>
Message-ID: <000001c6163c$99c08e20$6caf0c54@minster33c3r25>

No, sorry to confuse Gustav. When I said I could see it I menat I can see
the Compile progress indicator, then the Save one.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gustav Brock
> Sent: 10 January 2006 19:55
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> Hi Andy
> 
> Hmm, if you can "see it working", I guess you run it from the 
> Immediate window. That works, but it is not the same as 
> calling it from code - that's the trap. But I'm not saying 
> this is the key to the solution, only that you may think the 
> code gets compiled and saved while it perhaps doesn't.
> 
> I would follow Shamil's advice closely and track down the 
> offending code lines. Then rewrite the code.
> 
> Once I had some very simple code (no API, no dll) that worked 
> perfectly here and on the client's Win2000 machines. On her 
> Win98 machines the app crashed much like yours - just poof 
> and no Access. I rewrote the code and the problem was gone.
> 
> /gustav
> 
> >>> andy at minstersystems.co.uk 10-01-2006 19:12:14 >>>
> But the SysCmd does work for me Gustav. I see it working, 
> compilng and saving. My problem's almost the very reverse as 
> far as I can see. My references all show as ok. Nothing 
> broken. Nothing failing to compile. Nothing to mend. It's 
> just that something flipping well crashes despite that. And, 
> as I said, it's when the MDB has been decompiled and 
> therefore my Syscmd runs that everything works (see my post 
> that begins "Well it's not an issue anyway"). My problems 
> come when I exit and then reload the by-now-compiled MDB. Any ideas?
> 
> Any ideas from anyone who's ben following this?
> 
> Yours desperately
> 
> -- Andy Lacey
> http://www.minstersystems.co.uk 
> 
> 
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> > Gustav Brock
> > Sent: 10 January 2006 15:51
> > To: accessd at databaseadvisors.com 
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> > 
> > 
> > Hi Andy
> > 
> > First, if the issue is a dll, one (fast) thing to check is if
> > any exists in more than one folder. If so, and you can't sort 
> > that out, use RefLibPaths.
> > 
> > Then, SysCmd(..) run from code will not compile and save the
> > code. It must be done from outside a code module which means 
> > manually (as we, the developer, do) or from a macro. 
> > Brilliant idea from Charlotte. 
> > It is not that difficult to implement. Read closely here from 
> > the old thread:
> > 
> >   Broken References in Runtime AXP and A97. Solved!
> > 
> >   
> > http://databaseadvisors.com/mailman/htdig/accessd/2003-July/01
> 1034.html 
> 
> Note the extended test for broken references.
> 
> /gustav
> 
> >>> andy at minstersystems.co.uk 10-01-2006 14:52:32 >>>
> I've listed below the results of running ListRefs on the two 
> machines. At
> first I thought they were identical, but there is one 
> difference in the path
> to the Outlok library. Under W98 this is
> 
> C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> 
> whereas W2K has the old-fashioned DOS'y path of
> 
> C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> 
> Surely this is not significant. It can't be, can it?
> 
> The other thing I thought odd was that the DAO 3.5 reference returns a
> .Major and .Minor of 4.0 not 3.5, but then again it's the same on both
> machines.
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From prosoft6 at hotmail.com  Tue Jan 10 17:21:58 2006
From: prosoft6 at hotmail.com (Julie Reardon-Taylor)
Date: Tue, 10 Jan 2006 18:21:58 -0500
Subject: [AccessD] Filtering a combo box
In-Reply-To: <9C382E065F54AE48BC3AA7925DCBB01C03AC7D7F@karta-exc-int.Karta.com>
Message-ID: <BAY114-F17AC10688FE850B9B4C1BE9A250@phx.gbl>

Found this knowledge base article that states that "Access does not allow 
filters on a combo box"


http://support.microsoft.com/default.aspx?scid=kb;en-us;209542


Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business




From cfoust at infostatsystems.com  Tue Jan 10 17:32:39 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 10 Jan 2006 15:32:39 -0800
Subject: [AccessD] Filtering a combo box
Message-ID: <F55048AF7E974F429BB24597D7355EEABEF9@INFOSERVER04.infostat.local>

You don't filter it in the same sense you filter the form, you merely
add the filter condition (i.e., Where Field1 = 'A'") to the rowsource of
the combobox.  Resetting the rowsource effectively filters the contents.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Julie
Reardon-Taylor
Sent: Tuesday, January 10, 2006 3:22 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Filtering a combo box


Found this knowledge base article that states that "Access does not
allow 
filters on a combo box"


http://support.microsoft.com/default.aspx?scid=kb;en-us;209542


Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business


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


From prosoft6 at hotmail.com  Tue Jan 10 17:48:34 2006
From: prosoft6 at hotmail.com (Julie Reardon-Taylor)
Date: Tue, 10 Jan 2006 18:48:34 -0500
Subject: [AccessD] Filtering a combo box
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABEF9@INFOSERVER04.infostat.local>
Message-ID: <BAY114-F263EF90C874C1B561094139A250@phx.gbl>

Thanks Charlotte and Jim.  I was able to use the same filter for both, just 
couldn't figure out how to apply the filter to both at the same time, ie. in 
one click.



Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business




From KIsmert at texassystems.com  Tue Jan 10 21:51:41 2006
From: KIsmert at texassystems.com (Ken Ismert)
Date: Tue, 10 Jan 2006 21:51:41 -0600
Subject: [AccessD] Filtering a combo box
Message-ID: <B7C87D3ABC87FC4E8CFE054CE2E8868A31527F@aries.TexasSystems.local>


>> ... are you going to provide a means for the user 
>> to turn off the filter and show all records? ...

Would you be interested doing this in a way that:

* Doesn't build a SQL statement or Where clause
* Doesn't build a filter string
* Can use as little as 1 line of code

-Ken


From jmhecht at earthlink.net  Tue Jan 10 22:22:58 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 10 Jan 2006 20:22:58 -0800
Subject: [AccessD] Push Data
Message-ID: <000001c61666$b4378310$6701a8c0@HPLaptop>

My head still hurts from the DateDiff fight I had over the
weekend.

 

I am going to have a master form and many sub forms on a tab
control.

 

What issues do I want to look out for in trying to push data
from the parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one
employee, I want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Tue Jan 10 22:48:48 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 10 Jan 2006 20:48:48 -0800
Subject: [AccessD] cbo valuelist vs lookup table
Message-ID: <000d01c6166a$504680a0$6701a8c0@HPLaptop>

A table and or matching forms have several places where a
combo box is appropriate

 

Figure at worst 5 people in database at any one time.
Unlikely .but not impossible to might be in same form at
same time. Split DB.

 

What is the hit of using tables as lookup source for combo
box vs. list box in this scenario?

 

This is a project that may go commercial and other people
may have other thoughts on how to describe things?

 

Thanks 

 

Joe Hecht

jmhecht at earthlink.net

 



From artful at rogers.com  Tue Jan 10 23:32:35 2006
From: artful at rogers.com (Arthur Fuller)
Date: Wed, 11 Jan 2006 00:32:35 -0500
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <s3c2b39d.051@cactus.dk>
Message-ID: <054001c61670$6dbeb200$8e01a8c0@rock>

You will most assuredly be punished in the next life, Gustav, even if you
did nothing wrong in this life. That's how it is. The man who laughs has not
been told the truth. LOL.
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: January 9, 2006 1:03 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Access97 on W2000 crashes

Hi Shamil

You are absolutely right. But, you know, this app was developed by someone
else and I really didn't feel that much for it. I was happy just to be able
to track down this weird bug. The budget didn't leave room for fun, so ... 
Will I be punished in the next life? Who knows.

/gustav



From shamil at users.mns.ru  Wed Jan 11 03:06:04 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 11 Jan 2006 12:06:04 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <054001c61670$6dbeb200$8e01a8c0@rock>
Message-ID: <002a01c61693$a46f50c0$6401a8c0@fincomplex.spb.ru>

Arthur & Gustav,

The kids (next generations) pay for/have to fix their fathers' sins/bugs.
That's is how it is.
And I'm serious talking about that.

Let's leave more fun work for our kids and let's do as much as possible
heavy and dirty work by ourselves?

Shamil

----- Original Message ----- 
From: "Arthur Fuller" <artful at rogers.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 8:32 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> You will most assuredly be punished in the next life, Gustav, even if you
> did nothing wrong in this life. That's how it is. The man who laughs has
not
> been told the truth. LOL.
> Arthur
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
> Sent: January 9, 2006 1:03 PM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Access97 on W2000 crashes
>
> Hi Shamil
>
> You are absolutely right. But, you know, this app was developed by someone
> else and I really didn't feel that much for it. I was happy just to be
able
> to track down this weird bug. The budget didn't leave room for fun, so ...
> Will I be punished in the next life? Who knows.
>
> /gustav
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From shamil at users.mns.ru  Wed Jan 11 03:44:37 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 11 Jan 2006 12:44:37 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <007a01c61632$319d0df0$6caf0c54@minster33c3r25>
Message-ID: <002b01c61693$a4957660$6401a8c0@fincomplex.spb.ru>

Andy,

Can you convert your app to MS Access 2003 just for testing purposes? Reason
is that MS Access 2003 is more stable usually and it may give you exact
position where your code is troublesome...

<<<
>  but there can't
> be a conventional bug if it's so inconsistent.
>>>
It still can be a conventional bug:

1. If Win32 API is used
2. If late binding is used
3. If default properties (with late binding) are used
4. If withevents is used
...

For example late binding uses COM marshaling and for that it dynamically
allocates memory from the heap memory area - and what could be there can't
be predicted - "unexpected" crash when late binding used in "DLL-hell"
environment....

<<<
bit like a very big and complex wizard
>>>
Do you mean that during your tests you assign values to the wizard form
controls using saved in tables' values?
Do you have checkboxes on your wizard form?

Shamil

P.S. Have a look on real life case how WinAPI calls may result in
"unexpected" bugs:

<<<
http://www.lebans.com/monthcalendar.htm

Version 3.8

** BUG FIX**  Pressing the SHIFT Key under WIN2K caused a GPF. My partner
Pedro Gil found the cause. I had inadvertently left in some debug code that
was calling CopyMemory on what is now , under the current logic, a random
memory address. Under Win9x you can get away with this but with WIN2K's more
advanced memory protection logic you will generate an exception.

>>>

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 1:07 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> No, exactly the same data. Believe me. And I key absolutely nothing in.
It's
> a quoation module. Very complex but it's written such that the user's last
> selections are "remembered" (ie written to a table). So when I open the
1st
> form in the quotation cycle it offers me the last selections I made. All I
> have to do is click 'Proceed' buttons to step through the process (bit
like
> a very big and complex wizard), so reproducing the same path through the
> operation is easy. And sometimes it will crash on the first Proceed,
> sometimes the 4th, or the 5th, and so on. Sometimes it will get all the
way
> through but crash on a second pass. But behind those buttons there's
masses
> of data retrieval and calculation going on, and calls to zillions of
> functions. So, for example, pressing the 2nd Proceed will execute
literally
> hunders of lines of code. And it may crash somewhere in there. Or it may
> not, but crash after the next Proceed. And bear in mind that none of this
> crashes ever on any W98 machine (and did I mention that it doesn't crash
> either on my XP machine at home, just W2K and XP machines as configured at
> work?). So I'm not being difficult in holding off from tracking the point
in
> code where it crashes, it just looks like a lifetime's work to do so. And
of
> course I'd have to face up to that if I had a bug in there, but there
can't
> be a conventional bug if it's so inconsistent.
>
> Aaaaaargh.
>
> -- Andy Lacey
> http://www.minstersystems.co.uk
>
> Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Wed Jan 11 03:54:02 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 11 Jan 2006 10:54:02 +0100
Subject: [AccessD] A2K - Unzip  and append from CD
Message-ID: <s3c4e3dd.021@cactus.dk>

Hi Stuart

That's right. Don't know why, but I was thinking of using some import spec. But of course you can run your own code for reading the text file.
Thanks for the clarification.

/gustav

>>> stuart at lexacorp.com.pg 10-01-2006 23:30 >>>
On 10 Jan 2006 at 15:35, Gustav Brock wrote:

> Hi Reuben
> 
> If you tell a bit more someone might have an idea.
> How would you import a text file in Access without using Access ..?

Using Jet or ODBC with any other application development environment that 
supports one of them? :-)




From Gustav at cactus.dk  Wed Jan 11 04:10:00 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 11 Jan 2006 11:10:00 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c4e7a4.023@cactus.dk>

Hi Arthur and Shamil

Well, I left a line of in-line documentation telling that the stubborn code line must be commented out at all times.
Will that save me?

/gustav

>>> shamil at users.mns.ru 11-01-2006 10:06 >>>
Arthur & Gustav,

The kids (next generations) pay for/have to fix their fathers' sins/bugs.
That's is how it is.
And I'm serious talking about that.

Let's leave more fun work for our kids and let's do as much as possible
heavy and dirty work by ourselves?

Shamil

----- Original Message ----- 
From: "Arthur Fuller" <artful at rogers.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 8:32 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> You will most assuredly be punished in the next life, Gustav, even if you
> did nothing wrong in this life. That's how it is. The man who laughs has not
> been told the truth. LOL.
> Arthur
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
> Sent: January 9, 2006 1:03 PM
> To: accessd at databaseadvisors.com 
> Subject: Re: [AccessD] Access97 on W2000 crashes
>
> Hi Shamil
>
> You are absolutely right. But, you know, this app was developed by someone
> else and I really didn't feel that much for it. I was happy just to be able
> to track down this weird bug. The budget didn't leave room for fun, so ...
> Will I be punished in the next life? Who knows.
>
> /gustav




From andy at minstersystems.co.uk  Wed Jan 11 04:16:48 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Wed, 11 Jan 2006 10:16:48 +0000
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <20060111101646.1E3D026A353@smtp.nildram.co.uk>

Shamil, many, many thanks for your continued thoughts on my behalf. It is
MUCH appreciated. Same goes for anyone else who has made suggestions.

I'm working on creating a cut-down version of the MDB to see if it will
crash in that same routine then. Once I've done that I may well be able to
take it home and convert to Access 2003 (not available on-site here).

A dumb question: is there any way that the presence of an API call in a
module could have any effect on this even if is not called by the time the
crash occurs? i.e. am I safe in assuming that the only routines I need to
look at are ones I'm calling?

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 11/01/06 09:39


Andy,

Can you convert your app to MS Access 2003 just for testing purposes? Reason
is that MS Access 2003 is more stable usually and it may give you exact
position where your code is troublesome...

<<<
> but there can't
> be a conventional bug if it's so inconsistent.
>>>
It still can be a conventional bug:

1. If Win32 API is used
2. If late binding is used
3. If default properties (with late binding) are used
4. If withevents is used
....

For example late binding uses COM marshaling and for that it dynamically
allocates memory from the heap memory area - and what could be there can't
be predicted - "unexpected" crash when late binding used in "DLL-hell"
environment....

<<<
bit like a very big and complex wizard
>>>
Do you mean that during your tests you assign values to the wizard form
controls using saved in tables' values?
Do you have checkboxes on your wizard form?

Shamil

P.S. Have a look on real life case how WinAPI calls may result in
"unexpected" bugs:

<<<
http://www.lebans.com/monthcalendar.htm

Version 3.8

** BUG FIX** Pressing the SHIFT Key under WIN2K caused a GPF. My partner
Pedro Gil found the cause. I had inadvertently left in some debug code that
was calling CopyMemory on what is now , under the current logic, a random
memory address. Under Win9x you can get away with this but with WIN2K's more
advanced memory protection logic you will generate an exception.

>>>

----- Original Message -----
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 1:07 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> No, exactly the same data. Believe me. And I key absolutely nothing in.
It's
> a quoation module. Very complex but it's written such that the user's last
> selections are "remembered" (ie written to a table). So when I open the
1st
> form in the quotation cycle it offers me the last selections I made. All I
> have to do is click 'Proceed' buttons to step through the process (bit
like
> a very big and complex wizard), so reproducing the same path through the
> operation is easy. And sometimes it will crash on the first Proceed,
> sometimes the 4th, or the 5th, and so on. Sometimes it will get all the
way
> through but crash on a second pass. But behind those buttons there's
masses
> of data retrieval and calculation going on, and calls to zillions of
> functions. So, for example, pressing the 2nd Proceed will execute
literally
> hunders of lines of code. And it may crash somewhere in there. Or it may
> not, but crash after the next Proceed. And bear in mind that none of this
> crashes ever on any W98 machine (and did I mention that it doesn't crash
> either on my XP machine at home, just W2K and XP machines as configured at
> work?). So I'm not being difficult in holding off from tracking the point
in
> code where it crashes, it just looks like a lifetime's work to do so. And
of
> course I'd have to face up to that if I had a bug in there, but there
can't
> be a conventional bug if it's so inconsistent.
>
> Aaaaaargh.
>
> -- Andy Lacey
> http://www.minstersystems.co.uk
>
> Website: http://www.databaseadvisors.com

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

________________________________________________
Message sent using UebiMiau 2.7.2



From Gustav at cactus.dk  Wed Jan 11 04:19:38 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 11 Jan 2006 11:19:38 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c4e9e4.025@cactus.dk>

Hi Andy

OK, I see. But still, the simple fact is (or at least was) that code cannot compile and save itself and stay compiled and saved ...

If you close the app and reopen it without running anything (holding down Shift while launching) and check "Compile and save all modules", is this greyed out?
If so I would very much like to know how you do it - after you have resolved your urgent issue, of course.

/gustav

>>> andy at minstersystems.co.uk 11-01-2006 00:21 >>>
No, sorry to confuse Gustav. When I said I could see it I menat I can see
the Compile progress indicator, then the Save one.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gustav Brock
> Sent: 10 January 2006 19:55
> To: accessd at databaseadvisors.com 
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> Hi Andy
> 
> Hmm, if you can "see it working", I guess you run it from the 
> Immediate window. That works, but it is not the same as 
> calling it from code - that's the trap. But I'm not saying 
> this is the key to the solution, only that you may think the 
> code gets compiled and saved while it perhaps doesn't.
> 
> I would follow Shamil's advice closely and track down the 
> offending code lines. Then rewrite the code.
> 
> Once I had some very simple code (no API, no dll) that worked 
> perfectly here and on the client's Win2000 machines. On her 
> Win98 machines the app crashed much like yours - just poof 
> and no Access. I rewrote the code and the problem was gone.
> 
> /gustav
> 
> >>> andy at minstersystems.co.uk 10-01-2006 19:12:14 >>>
> But the SysCmd does work for me Gustav. I see it working, 
> compilng and saving. My problem's almost the very reverse as 
> far as I can see. My references all show as ok. Nothing 
> broken. Nothing failing to compile. Nothing to mend. It's 
> just that something flipping well crashes despite that. And, 
> as I said, it's when the MDB has been decompiled and 
> therefore my Syscmd runs that everything works (see my post 
> that begins "Well it's not an issue anyway"). My problems 
> come when I exit and then reload the by-now-compiled MDB. Any ideas?




From shamil at users.mns.ru  Wed Jan 11 04:44:45 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 11 Jan 2006 13:44:45 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <20060111101646.1E3D026A353@smtp.nildram.co.uk>
Message-ID: <002701c6169d$60b5c6c0$6401a8c0@fincomplex.spb.ru>

<<<
an API call in a module could have any effect on this
even if is not called by the time the
crash occurs?
>>>
No, it cannot. That would be a nightmare miracle if it could have such side
effect...  (I assume you don't have other API calls, which may unwillingly
change not only data but also the code and by thus result in calling other
API functions, which result in GPF. FYI: API functions' entry points are
written in a special area of loaded DLLs and this area isn't protected and
can be modified on runtime...)

<<<
am I safe in assuming that the only routines I need to
> look at are ones I'm calling?
>>>
Yes, you're safe. But be sure you don't miss any routines called by
indirectly fired events....

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 1:16 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Shamil, many, many thanks for your continued thoughts on my behalf. It is
> MUCH appreciated. Same goes for anyone else who has made suggestions.
>
> I'm working on creating a cut-down version of the MDB to see if it will
> crash in that same routine then. Once I've done that I may well be able to
> take it home and convert to Access 2003 (not available on-site here).
>
> A dumb question: is there any way that the presence of an API call in a
> module could have any effect on this even if is not called by the time the
> crash occurs? i.e. am I safe in assuming that the only routines I need to
> look at are ones I'm calling?
>
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>



From shamil at users.mns.ru  Wed Jan 11 04:52:45 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 11 Jan 2006 13:52:45 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <s3c4e7a4.023@cactus.dk>
Message-ID: <002801c6169d$60cd9480$6401a8c0@fincomplex.spb.ru>

Hi Gustav,

I may only guess - my guess it will give you some more positive points to
overweight the sins/bugs you left in your software and therefore, yes, this
line in online docs could save you :)

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 1:10 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Hi Arthur and Shamil
>
> Well, I left a line of in-line documentation telling that the stubborn
code line must be commented out at all times.
> Will that save me?
>
> /gustav
>

<<< tail skipped>>>



From andy at minstersystems.co.uk  Wed Jan 11 05:11:23 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Wed, 11 Jan 2006 11:11:23 +0000
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <20060111111122.6B3EC26FCF3@smtp.nildram.co.uk>

Well I'm not doing anything clever but it is working. And yes, if I exit and
reopen the app the compile is greyed out. The code I call at the start is
below. The sequence is that the desktop icon runs the mdb with a /X to run a
specific macro. The macro calls a function to handle all my starting up
stuff, and that, fairly early on, calls the Recompile function.

Function Recompile
If Application.IsCompiled = False Then
Call SysCmd(504, 16483)
End If
End Function

So, if I decompile and run my icon it recompiles and saves (and you can
watch the progress meters). If I exit and then run again it does not now
recompile. Is that unusual?

Bear in ind this is A97. Don't know if your experience is on later versions.

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 11/01/06 10:21


Hi Andy

OK, I see. But still, the simple fact is (or at least was) that code cannot
compile and save itself and stay compiled and saved ...

If you close the app and reopen it without running anything (holding down
Shift while launching) and check "Compile and save all modules", is this
greyed out?
If so I would very much like to know how you do it - after you have resolved
your urgent issue, of course.

/gustav

>>> andy at minstersystems.co.uk 11-01-2006 00:21 >>>
No, sorry to confuse Gustav. When I said I could see it I menat I can see
the Compile progress indicator, then the Save one.

-- Andy Lacey
http://www.minstersystems.co.uk

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Gustav Brock
> Sent: 10 January 2006 19:55
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Access97 on W2000 crashes
>
>
> Hi Andy
>
> Hmm, if you can "see it working", I guess you run it from the
> Immediate window. That works, but it is not the same as
> calling it from code - that's the trap. But I'm not saying
> this is the key to the solution, only that you may think the
> code gets compiled and saved while it perhaps doesn't.
>
> I would follow Shamil's advice closely and track down the
> offending code lines. Then rewrite the code.
>
> Once I had some very simple code (no API, no dll) that worked
> perfectly here and on the client's Win2000 machines. On her
> Win98 machines the app crashed much like yours - just poof
> and no Access. I rewrote the code and the problem was gone.
>
> /gustav
>
> >>> andy at minstersystems.co.uk 10-01-2006 19:12:14 >>>
> But the SysCmd does work for me Gustav. I see it working,
> compilng and saving. My problem's almost the very reverse as
> far as I can see. My references all show as ok. Nothing
> broken. Nothing failing to compile. Nothing to mend. It's
> just that something flipping well crashes despite that. And,
> as I said, it's when the MDB has been decompiled and
> therefore my Syscmd runs that everything works (see my post
> that begins "Well it's not an issue anyway"). My problems
> come when I exit and then reload the by-now-compiled MDB. Any ideas?


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

________________________________________________
Message sent using UebiMiau 2.7.2



From Gustav at cactus.dk  Wed Jan 11 08:23:43 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 11 Jan 2006 15:23:43 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c5231e.032@cactus.dk>

Hi Andy

OK, thanks. Interesting.
The trick may (or rather must) be that you run this code from a macro at start. I will try that, though not now (busy with real work). 
All my testing at that time was done with A97.

/gustav

>>> andy at minstersystems.co.uk 11-01-2006 12:11 >>>
Well I'm not doing anything clever but it is working. And yes, if I exit and
reopen the app the compile is greyed out. The code I call at the start is
below. The sequence is that the desktop icon runs the mdb with a /X to run a
specific macro. The macro calls a function to handle all my starting up
stuff, and that, fairly early on, calls the Recompile function.

Function Recompile
If Application.IsCompiled = False Then
Call SysCmd(504, 16483)
End If
End Function

So, if I decompile and run my icon it recompiles and saves (and you can
watch the progress meters). If I exit and then run again it does not now
recompile. Is that unusual?

Bear in ind this is A97. Don't know if your experience is on later versions.

--
Andy Lacey
http://www.minstersystems.co.uk 




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 11/01/06 10:21


Hi Andy

OK, I see. But still, the simple fact is (or at least was) that code cannot
compile and save itself and stay compiled and saved ...

If you close the app and reopen it without running anything (holding down
Shift while launching) and check "Compile and save all modules", is this
greyed out?
If so I would very much like to know how you do it - after you have resolved
your urgent issue, of course.

/gustav

>>> andy at minstersystems.co.uk 11-01-2006 00:21 >>>
No, sorry to confuse Gustav. When I said I could see it I menat I can see
the Compile progress indicator, then the Save one.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Gustav Brock
> Sent: 10 January 2006 19:55
> To: accessd at databaseadvisors.com 
> Subject: Re: [AccessD] Access97 on W2000 crashes
>
>
> Hi Andy
>
> Hmm, if you can "see it working", I guess you run it from the
> Immediate window. That works, but it is not the same as
> calling it from code - that's the trap. But I'm not saying
> this is the key to the solution, only that you may think the
> code gets compiled and saved while it perhaps doesn't.
>
> I would follow Shamil's advice closely and track down the
> offending code lines. Then rewrite the code.
>
> Once I had some very simple code (no API, no dll) that worked
> perfectly here and on the client's Win2000 machines. On her
> Win98 machines the app crashed much like yours - just poof
> and no Access. I rewrote the code and the problem was gone.
>
> /gustav
>
> >>> andy at minstersystems.co.uk 10-01-2006 19:12:14 >>>
> But the SysCmd does work for me Gustav. I see it working,
> compilng and saving. My problem's almost the very reverse as
> far as I can see. My references all show as ok. Nothing
> broken. Nothing failing to compile. Nothing to mend. It's
> just that something flipping well crashes despite that. And,
> as I said, it's when the MDB has been decompiled and
> therefore my Syscmd runs that everything works (see my post
> that begins "Well it's not an issue anyway"). My problems
> come when I exit and then reload the by-now-compiled MDB. Any ideas?




From cfoust at infostatsystems.com  Wed Jan 11 10:34:25 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 08:34:25 -0800
Subject: [AccessD] Push Data
Message-ID: <F55048AF7E974F429BB24597D7355EEABEFF@INFOSERVER04.infostat.local>

What do you mean by "push data"?  Ordinarily, you pull data from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the default value
of a textbox on a child form to "=[Parent]![EmployeeID]" (without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the weekend.

 

I am going to have a master form and many sub forms on a tab control.

 

What issues do I want to look out for in trying to push data from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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


From jmhecht at earthlink.net  Wed Jan 11 10:40:50 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 08:40:50 -0800
Subject: [AccessD] Push Data
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABEFF@INFOSERVER04.infostat.local>
Message-ID: <000601c616cd$c82962a0$6701a8c0@HPLaptop>

I want the user to select an employee and then it will in
various fields in the parent and child forms.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 11, 2006 8:34 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

What do you mean by "push data"?  Ordinarily, you pull data
from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the
default value
of a textbox on a child form to "=[Parent]![EmployeeID]"
(without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the
weekend.

 

I am going to have a master form and many sub forms on a tab
control.

 

What issues do I want to look out for in trying to push data
from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one
employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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



From cfoust at infostatsystems.com  Wed Jan 11 10:50:35 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 08:50:35 -0800
Subject: [AccessD] Push Data
Message-ID: <F55048AF7E974F429BB24597D7355EEABF01@INFOSERVER04.infostat.local>

Joe,

If the subforms are linked to the parent form, the related records
should show up automatically ... Or are you talking about something
else?  Is this on existing or new records in the parent and child forms?
You can use code to fill in values, but it's generally a better idea to
let the child form retrieve the values rather than having it manipulated
from outside.  I'm not clear on the scenario you envision, so I may just
be confusing you.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 11, 2006 8:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


I want the user to select an employee and then it will in various fields
in the parent and child forms.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:34 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

What do you mean by "push data"?  Ordinarily, you pull data from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the default value
of a textbox on a child form to "=[Parent]![EmployeeID]" (without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the weekend.

 

I am going to have a master form and many sub forms on a tab control.

 

What issues do I want to look out for in trying to push data from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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


From jmhecht at earthlink.net  Wed Jan 11 11:26:20 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 09:26:20 -0800
Subject: [AccessD] Push Data
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF01@INFOSERVER04.infostat.local>
Message-ID: <000001c616d4$247011c0$6701a8c0@HPLaptop>

The form records workplace accidents.

Much of the information about the employee exists in the
employee tables. When a new incident is added I want the
user to select the employee name and then automatically fill
in fields like DOB, Hire Date, and license info.

I thought it would be better to push data out in after
update of cboemployee select. You seem to be recommending
that I pull instead.

Do I understand you correctly? 

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 11, 2006 8:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

Joe,

If the subforms are linked to the parent form, the related
records
should show up automatically ... Or are you talking about
something
else?  Is this on existing or new records in the parent and
child forms?
You can use code to fill in values, but it's generally a
better idea to
let the child form retrieve the values rather than having it
manipulated
from outside.  I'm not clear on the scenario you envision,
so I may just
be confusing you.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 8:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


I want the user to select an employee and then it will in
various fields
in the parent and child forms.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:34 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

What do you mean by "push data"?  Ordinarily, you pull data
from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the
default value
of a textbox on a child form to "=[Parent]![EmployeeID]"
(without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the
weekend.

 

I am going to have a master form and many sub forms on a tab
control.

 

What issues do I want to look out for in trying to push data
from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one
employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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



From cfoust at infostatsystems.com  Wed Jan 11 11:43:52 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 09:43:52 -0800
Subject: [AccessD] Push Data
Message-ID: <F55048AF7E974F429BB24597D7355EEABF02@INFOSERVER04.infostat.local>

You actually don't need to do either.  If that info is in a table
already, all you need is a subform linked to EmployeeID to display the
values for those fields.  If the employee ID  combo is and unbound
control on the parent form, the employee subform can be linked to the
value selected and nothing needs to be pushed anywhere because the child
form will fill in automatically.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 11, 2006 9:26 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


The form records workplace accidents.

Much of the information about the employee exists in the employee
tables. When a new incident is added I want the user to select the
employee name and then automatically fill in fields like DOB, Hire Date,
and license info.

I thought it would be better to push data out in after
update of cboemployee select. You seem to be recommending
that I pull instead.

Do I understand you correctly? 

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

Joe,

If the subforms are linked to the parent form, the related records
should show up automatically ... Or are you talking about something
else?  Is this on existing or new records in the parent and child forms?
You can use code to fill in values, but it's generally a better idea to
let the child form retrieve the values rather than having it manipulated
from outside.  I'm not clear on the scenario you envision, so I may just
be confusing you.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 8:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


I want the user to select an employee and then it will in various fields
in the parent and child forms.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:34 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

What do you mean by "push data"?  Ordinarily, you pull data from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the default value
of a textbox on a child form to "=[Parent]![EmployeeID]" (without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the weekend.

 

I am going to have a master form and many sub forms on a tab control.

 

What issues do I want to look out for in trying to push data from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

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


From jmhecht at earthlink.net  Wed Jan 11 11:56:38 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 09:56:38 -0800
Subject: [AccessD] Push Data
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF02@INFOSERVER04.infostat.local>
Message-ID: <000001c616d8$5ef77320$6701a8c0@HPLaptop>

Doesn't the table need to be open? That's why I was going to
push pull from the cbo query?

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 11, 2006 9:44 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

You actually don't need to do either.  If that info is in a
table
already, all you need is a subform linked to EmployeeID to
display the
values for those fields.  If the employee ID  combo is and
unbound
control on the parent form, the employee subform can be
linked to the
value selected and nothing needs to be pushed anywhere
because the child
form will fill in automatically.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 9:26 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


The form records workplace accidents.

Much of the information about the employee exists in the
employee
tables. When a new incident is added I want the user to
select the
employee name and then automatically fill in fields like
DOB, Hire Date,
and license info.

I thought it would be better to push data out in after
update of cboemployee select. You seem to be recommending
that I pull instead.

Do I understand you correctly? 

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

Joe,

If the subforms are linked to the parent form, the related
records
should show up automatically ... Or are you talking about
something
else?  Is this on existing or new records in the parent and
child forms?
You can use code to fill in values, but it's generally a
better idea to
let the child form retrieve the values rather than having it
manipulated
from outside.  I'm not clear on the scenario you envision,
so I may just
be confusing you.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 8:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


I want the user to select an employee and then it will in
various fields
in the parent and child forms.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:34 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

What do you mean by "push data"?  Ordinarily, you pull data
from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the
default value
of a textbox on a child form to "=[Parent]![EmployeeID]"
(without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the
weekend.

 

I am going to have a master form and many sub forms on a tab
control.

 

What issues do I want to look out for in trying to push data
from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one
employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

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



From jmhecht at earthlink.net  Wed Jan 11 12:50:09 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 10:50:09 -0800
Subject: [AccessD] Older Access install with A2K3
Message-ID: <000f01c616df$d8d8c200$6701a8c0@HPLaptop>

I know normally you install older versions of Access before
new ones.

 

If I put A2k in a separate directory or even a separate
partition will I be ok or is client change going to byte me

 

Joe Hecht

jmhecht at earthlink.net

 



From carbonnb at gmail.com  Wed Jan 11 12:58:43 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Wed, 11 Jan 2006 13:58:43 -0500
Subject: [AccessD] Older Access install with A2K3
In-Reply-To: <000f01c616df$d8d8c200$6701a8c0@HPLaptop>
References: <000f01c616df$d8d8c200$6701a8c0@HPLaptop>
Message-ID: <e04a6c920601111058o13895a44h@mail.gmail.com>

On 11/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> I know normally you install older versions of Access before
> new ones.
>
> If I put A2k in a separate directory or even a separate
> partition will I be ok or is client change going to byte me

Possibly, but more likely than not, you are going to have problems.

Your best bet is to uninstall O2K3, install A2K and then reinstall O2K3.

I tried to do it backwards with O2K and A97 and spent 2 days trying to
fix it. I ended up having to uninstall both, cleaning out the registry
(manually) and then reinstalling A97 and then O2K

A royal PITA it was.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From jmhecht at earthlink.net  Wed Jan 11 13:04:10 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 11:04:10 -0800
Subject: [AccessD] Currency Format
Message-ID: <001701c616e1$ce7a44d0$6701a8c0@HPLaptop>

If one sets data type to currency in a table how important
is it to change the format on the general tab below? 

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Wed Jan 11 13:07:04 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 11:07:04 -0800
Subject: [AccessD] Older Access install with A2K3
In-Reply-To: <e04a6c920601111058o13895a44h@mail.gmail.com>
Message-ID: <001f01c616e2$35f115d0$6701a8c0@HPLaptop>

Gotta love clients. I told them I am building in XP 2K3. Now
they do not want to buy either.

I really do not want to rebuild my hard drive for them.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bryan Carbonnell
Sent: Wednesday, January 11, 2006 10:59 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Older Access install with A2K3

On 11/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> I know normally you install older versions of Access
before
> new ones.
>
> If I put A2k in a separate directory or even a separate
> partition will I be ok or is client change going to byte
me

Possibly, but more likely than not, you are going to have
problems.

Your best bet is to uninstall O2K3, install A2K and then
reinstall O2K3.

I tried to do it backwards with O2K and A97 and spent 2 days
trying to
fix it. I ended up having to uninstall both, cleaning out
the registry
(manually) and then reinstalling A97 and then O2K

A royal PITA it was.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a
well
preserved body, but rather to skid in sideways, totally worn
out,
shouting "What a great ride!"
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From cfoust at infostatsystems.com  Wed Jan 11 13:27:04 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 11:27:04 -0800
Subject: [AccessD] Push Data
Message-ID: <F55048AF7E974F429BB24597D7355EEABF04@INFOSERVER04.infostat.local>

No, the child form is bound to the table and linked to the parent form
on the EmployeeID.  Unless I totally misunderstand what you're trying to
do.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 11, 2006 9:57 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


Doesn't the table need to be open? That's why I was going to push pull
from the cbo query?

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 11, 2006 9:44 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

You actually don't need to do either.  If that info is in a table
already, all you need is a subform linked to EmployeeID to display the
values for those fields.  If the employee ID  combo is and unbound
control on the parent form, the employee subform can be linked to the
value selected and nothing needs to be pushed anywhere because the child
form will fill in automatically.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 9:26 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


The form records workplace accidents.

Much of the information about the employee exists in the employee
tables. When a new incident is added I want the user to select the
employee name and then automatically fill in fields like DOB, Hire Date,
and license info.

I thought it would be better to push data out in after
update of cboemployee select. You seem to be recommending
that I pull instead.

Do I understand you correctly? 

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

Joe,

If the subforms are linked to the parent form, the related records
should show up automatically ... Or are you talking about something
else?  Is this on existing or new records in the parent and child forms?
You can use code to fill in values, but it's generally a better idea to
let the child form retrieve the values rather than having it manipulated
from outside.  I'm not clear on the scenario you envision, so I may just
be confusing you.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 8:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


I want the user to select an employee and then it will in various fields
in the parent and child forms.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:34 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

What do you mean by "push data"?  Ordinarily, you pull data from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the default value
of a textbox on a child form to "=[Parent]![EmployeeID]" (without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the weekend.

 

I am going to have a master form and many sub forms on a tab control.

 

What issues do I want to look out for in trying to push data from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

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

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


From martyconnelly at shaw.ca  Wed Jan 11 13:27:33 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Wed, 11 Jan 2006 11:27:33 -0800
Subject: [AccessD] Access97 on W2000 crashes
References: <20060111111122.6B3EC26FCF3@smtp.nildram.co.uk>
Message-ID: <43C55C25.9010603@shaw.ca>

Just something else to check.
This will tell you the version of DAO is in use within Access97 mdb
It will return either 3.51 or 3.6, you can use either with Access 97
depending on your reference settings.

Debug.Print DAO.DBEngine.Version

You might want to check you OS environment to see what Jet SP you are 
running
on your home machines and client. You can do this in code but this maybe 
quicker.

I have Jet SP8 installed
right click on these files in explorer then  select properties
Version Tab and look at the File Version Number

DAO 3.51
C:\WINDOWS\system32\msjet35.dll

3.51.3328.0

DAO 3.6
C:\WINDOWS\system32\msjet40.dll

4.00.8618.0


To find which older versions you maybe running insert above dll names
in DLL Help database to get older version numbers and what product 
installs them.

http://support.microsoft.com/dllhelp/

Andy Lacey wrote:

>Well I'm not doing anything clever but it is working. And yes, if I exit and
>reopen the app the compile is greyed out. The code I call at the start is
>below. The sequence is that the desktop icon runs the mdb with a /X to run a
>specific macro. The macro calls a function to handle all my starting up
>stuff, and that, fairly early on, calls the Recompile function.
>
>Function Recompile
>If Application.IsCompiled = False Then
>Call SysCmd(504, 16483)
>End If
>End Function
>
>So, if I decompile and run my icon it recompiles and saves (and you can
>watch the progress meters). If I exit and then run again it does not now
>recompile. Is that unusual?
>
>Bear in ind this is A97. Don't know if your experience is on later versions.
>
>--
>Andy Lacey
>http://www.minstersystems.co.uk
>
>
>
>
>--------- Original Message --------
>From: "Access Developers discussion and problem solving"
><accessd at databaseadvisors.com>
>To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
>Subject: Re: [AccessD] Access97 on W2000 crashes
>Date: 11/01/06 10:21
>
>
>Hi Andy
>
>OK, I see. But still, the simple fact is (or at least was) that code cannot
>compile and save itself and stay compiled and saved ...
>
>If you close the app and reopen it without running anything (holding down
>Shift while launching) and check "Compile and save all modules", is this
>greyed out?
>If so I would very much like to know how you do it - after you have resolved
>your urgent issue, of course.
>
>/gustav
>
>  
>
>>>>andy at minstersystems.co.uk 11-01-2006 00:21 >>>
>>>>        
>>>>
>No, sorry to confuse Gustav. When I said I could see it I menat I can see
>the Compile progress indicator, then the Save one.
>
>-- Andy Lacey
>http://www.minstersystems.co.uk
>
>  
>
>>-----Original Message-----
>>From: accessd-bounces at databaseadvisors.com
>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>>Gustav Brock
>>Sent: 10 January 2006 19:55
>>To: accessd at databaseadvisors.com
>>Subject: Re: [AccessD] Access97 on W2000 crashes
>>
>>
>>Hi Andy
>>
>>Hmm, if you can "see it working", I guess you run it from the
>>Immediate window. That works, but it is not the same as
>>calling it from code - that's the trap. But I'm not saying
>>this is the key to the solution, only that you may think the
>>code gets compiled and saved while it perhaps doesn't.
>>
>>I would follow Shamil's advice closely and track down the
>>offending code lines. Then rewrite the code.
>>
>>Once I had some very simple code (no API, no dll) that worked
>>perfectly here and on the client's Win2000 machines. On her
>>Win98 machines the app crashed much like yours - just poof
>>and no Access. I rewrote the code and the problem was gone.
>>
>>/gustav
>>
>>    
>>
>>>>>andy at minstersystems.co.uk 10-01-2006 19:12:14 >>>
>>>>>          
>>>>>
>>But the SysCmd does work for me Gustav. I see it working,
>>compilng and saving. My problem's almost the very reverse as
>>far as I can see. My references all show as ok. Nothing
>>broken. Nothing failing to compile. Nothing to mend. It's
>>just that something flipping well crashes despite that. And,
>>as I said, it's when the MDB has been decompiled and
>>therefore my Syscmd runs that everything works (see my post
>>that begins "Well it's not an issue anyway"). My problems
>>come when I exit and then reload the by-now-compiled MDB. Any ideas?
>>    
>>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From shamil at users.mns.ru  Wed Jan 11 13:35:01 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 11 Jan 2006 22:35:01 +0300
Subject: [AccessD] Older Access install with A2K3
References: <001f01c616e2$35f115d0$6701a8c0@HPLaptop>
Message-ID: <001e01c616e6$2a6cf270$6401a8c0@fincomplex.spb.ru>

Virtual PC or VMWare could be a good solution - MS Access 2000 runs quick
enough on 2GHZ/1GB RAM PC inside VMWare Virtual Machine, especially if
this VM is Win98...

Shamil

----- Original Message ----- 
From: "Joe Hecht" <jmhecht at earthlink.net>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 10:07 PM
Subject: Re: [AccessD] Older Access install with A2K3


> Gotta love clients. I told them I am building in XP 2K3. Now
> they do not want to buy either.
>
> I really do not want to rebuild my hard drive for them.
>
> Joe Hecht
> jmhecht at earthlink.net

<<< tail skipped>>>



From Lambert.Heenan at AIG.com  Wed Jan 11 13:29:21 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 11 Jan 2006 13:29:21 -0600
Subject: [AccessD] Currency Format
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B7C7DED@xlivmbx21.aig.com>

IMHO It's not important at all. Changing the format in design view changes
the way the data is *displayed*, not the values that are *stored*.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 11, 2006 2:04 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Currency Format


If one sets data type to currency in a table how important
is it to change the format on the general tab below? 

 

Joe Hecht

jmhecht at earthlink.net

 

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


From jwcolby at ColbyConsulting.com  Wed Jan 11 13:38:20 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 11 Jan 2006 14:38:20 -0500
Subject: [AccessD] OT: Windows Media center
Message-ID: <001701c616e6$945f71d0$647aa8c0@ColbyM6805>

Does any one know whether Windows Media Center (as opposed to Windows Home)
has any "gotchas" that would make it inappropriate for a home business
laptop?  It seems to be the big thing now in the low to medium range
laptops.

John W. Colby
www.ColbyConsulting.com 




From jmhecht at earthlink.net  Wed Jan 11 14:05:20 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 12:05:20 -0800
Subject: [AccessD] Push Data
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF04@INFOSERVER04.infostat.local>
Message-ID: <000001c616ea$5a10da10$6701a8c0@HPLaptop>

You are not confused, I may be. 

Seen my last post about A2k & A2k3

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 11, 2006 11:27 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

No, the child form is bound to the table and linked to the
parent form
on the EmployeeID.  Unless I totally misunderstand what
you're trying to
do.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 9:57 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


Doesn't the table need to be open? That's why I was going to
push pull
from the cbo query?

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 11, 2006 9:44 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

You actually don't need to do either.  If that info is in a
table
already, all you need is a subform linked to EmployeeID to
display the
values for those fields.  If the employee ID  combo is and
unbound
control on the parent form, the employee subform can be
linked to the
value selected and nothing needs to be pushed anywhere
because the child
form will fill in automatically.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 9:26 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


The form records workplace accidents.

Much of the information about the employee exists in the
employee
tables. When a new incident is added I want the user to
select the
employee name and then automatically fill in fields like
DOB, Hire Date,
and license info.

I thought it would be better to push data out in after
update of cboemployee select. You seem to be recommending
that I pull instead.

Do I understand you correctly? 

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

Joe,

If the subforms are linked to the parent form, the related
records
should show up automatically ... Or are you talking about
something
else?  Is this on existing or new records in the parent and
child forms?
You can use code to fill in values, but it's generally a
better idea to
let the child form retrieve the values rather than having it
manipulated
from outside.  I'm not clear on the scenario you envision,
so I may just
be confusing you.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 8:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


I want the user to select an employee and then it will in
various fields
in the parent and child forms.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:34 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

What do you mean by "push data"?  Ordinarily, you pull data
from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the
default value
of a textbox on a child form to "=[Parent]![EmployeeID]"
(without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the
weekend.

 

I am going to have a master form and many sub forms on a tab
control.

 

What issues do I want to look out for in trying to push data
from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one
employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

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

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



From shamil at users.mns.ru  Wed Jan 11 14:35:31 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 11 Jan 2006 23:35:31 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <20060111111122.6B3EC26FCF3@smtp.nildram.co.uk>
	<43C55C25.9010603@shaw.ca>
Message-ID: <002001c616ee$92228080$6401a8c0@fincomplex.spb.ru>

Marty,

MS Access 97 uses Jet 3.5 independent of the reference set to DAO 3.51 or
DAO 3.6:

The simple VB6 utility I made for Andy yesterday says that:

http://smsconsulting.spb.ru/download/tests/myPSAPI.zip (10KB)

I have here:

Access97
========

 <BaseName>msjet35.dll</BaseName>
  <ExeFullPath>D:\WINDOWS\system32\msjet35.dll</ExeFullPath>
  <version>
  <vi>CompanyName: Microsoft Corporation</vi>
  <vi>FileDescription: Microsoft Jet Engine Library</vi>
  <vi>FileVersion: 3.51.2723.0</vi>
  <vi>InternalName: MSJET35.DLL</vi>
  <vi>LegalCopyright: Copyright (C) Microsoft Corp. 1993-1996</vi>
  <vi>OriginalFilename: MSJET35.DLL</vi>
  <vi>ProductName: Microsoft? Jet</vi>
  <vi>ProductVersion: 3.51.2723.0</vi>
  </version>

Access2003
==========

  <BaseName>msjet40.dll</BaseName>
  <ExeFullPath>D:\WINDOWS\system32\msjet40.dll</ExeFullPath>
   <version>
  <vi>CompanyName: Microsoft Corporation</vi>
  <vi>FileDescription: Microsoft Jet Engine Library</vi>
  <vi>FileVersion: 4.00.8618.0</vi>
  <vi>InternalName: MSJET40.DLL</vi>
  <vi>LegalCopyright: Copyright (C) Microsoft Corp. 1993-1999</vi>
  <vi>OriginalFilename: MSJET40.DLL</vi>
  <vi>ProductName: Microsoft (R) Jet</vi>
  <vi>ProductVersion: 4.00.8618.0</vi>
  </version>

Am I missing something? (Yes, I see I don't have latest Jet 3.5 DLL
installed - something else?)

Shamil


----- Original Message ----- 
From: "MartyConnelly" <martyconnelly at shaw.ca>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 10:27 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Just something else to check.
> This will tell you the version of DAO is in use within Access97 mdb
> It will return either 3.51 or 3.6, you can use either with Access 97
> depending on your reference settings.
>
> Debug.Print DAO.DBEngine.Version
>
> You might want to check you OS environment to see what Jet SP you are
> running
> on your home machines and client. You can do this in code but this maybe
> quicker.
>
> I have Jet SP8 installed
> right click on these files in explorer then  select properties
> Version Tab and look at the File Version Number
>
> DAO 3.51
> C:\WINDOWS\system32\msjet35.dll
>
> 3.51.3328.0
>
> DAO 3.6
> C:\WINDOWS\system32\msjet40.dll
>
> 4.00.8618.0
>
>
> To find which older versions you maybe running insert above dll names
> in DLL Help database to get older version numbers and what product
> installs them.
>
> http://support.microsoft.com/dllhelp/
>
> Andy Lacey wrote:
>
> >Well I'm not doing anything clever but it is working. And yes, if I exit
and
> >reopen the app the compile is greyed out. The code I call at the start is
> >below. The sequence is that the desktop icon runs the mdb with a /X to
run a
> >specific macro. The macro calls a function to handle all my starting up
> >stuff, and that, fairly early on, calls the Recompile function.
> >
> >Function Recompile
> >If Application.IsCompiled = False Then
> >Call SysCmd(504, 16483)
> >End If
> >End Function
> >
> >So, if I decompile and run my icon it recompiles and saves (and you can
> >watch the progress meters). If I exit and then run again it does not now
> >recompile. Is that unusual?
> >
> >Bear in ind this is A97. Don't know if your experience is on later
versions.
> >
> >--
> >Andy Lacey
> >http://www.minstersystems.co.uk
> >
<<< tail skipped>>>



From cfoust at infostatsystems.com  Wed Jan 11 14:42:01 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 12:42:01 -0800
Subject: [AccessD] Push Data
Message-ID: <F55048AF7E974F429BB24597D7355EEABF05@INFOSERVER04.infostat.local>

Now I'm thoroughly confused.  What does the version have to do with it?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 11, 2006 12:05 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


You are not confused, I may be. 

Seen my last post about A2k & A2k3

Joe Hecht
jmhecht at earthlink.net


From jmhecht at earthlink.net  Wed Jan 11 14:50:58 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 12:50:58 -0800
Subject: [AccessD] Push Data
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF05@INFOSERVER04.infostat.local>
Message-ID: <000a01c616f0$b9cc3d90$6701a8c0@HPLaptop>

I had agreed with the client AXP or 2K2

Day before first delivery, " Cant it be in 2000?" That's all
we have.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 11, 2006 12:42 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

Now I'm thoroughly confused.  What does the version have to
do with it?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 12:05 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


You are not confused, I may be. 

Seen my last post about A2k & A2k3

Joe Hecht
jmhecht at earthlink.net
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From cfoust at infostatsystems.com  Wed Jan 11 15:25:35 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 13:25:35 -0800
Subject: [AccessD] Push Data
Message-ID: <F55048AF7E974F429BB24597D7355EEABF06@INFOSERVER04.infostat.local>

And .... The same master/child links work in all three versions.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 11, 2006 12:51 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


I had agreed with the client AXP or 2K2

Day before first delivery, " Cant it be in 2000?" That's all
we have.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 11, 2006 12:42 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

Now I'm thoroughly confused.  What does the version have to
do with it?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 12:05 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


You are not confused, I may be. 

Seen my last post about A2k & A2k3

Joe Hecht
jmhecht at earthlink.net
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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


From mmmtbig at bellsouth.net  Wed Jan 11 16:44:40 2006
From: mmmtbig at bellsouth.net (Myke Myers)
Date: Wed, 11 Jan 2006 17:44:40 -0500
Subject: [AccessD] Backend Database Format: Access 2000 vs Access 2002
Message-ID: <001701c61700$9e87da20$6601a8c0@tbig1>

I'm getting ready to upgrade a corporate client from Access 2000 to Access
2002.

The backend databases (tables and data only) that reside on the servers are
Access 2000.

Is there any reason to import the data tables into an Access 2002 database
for the upgrade?

TIA,

Myke




From cfoust at infostatsystems.com  Wed Jan 11 16:59:34 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 14:59:34 -0800
Subject: [AccessD] Backend Database Format: Access 2000 vs Access 2002
Message-ID: <F55048AF7E974F429BB24597D7355EEABF07@INFOSERVER04.infostat.local>

Definitely not.  Our AXP apps use the 2000 format for all our datafiles.
Only the front end files are 2002 format.  There are better arguments
for not migrating data to the 2002 or later formats, since they bloat
worse than 2000.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Myke Myers
Sent: Wednesday, January 11, 2006 2:45 PM
To: 'Database Advisors'
Subject: [AccessD] Backend Database Format: Access 2000 vs Access 2002


I'm getting ready to upgrade a corporate client from Access 2000 to
Access 2002.

The backend databases (tables and data only) that reside on the servers
are Access 2000.

Is there any reason to import the data tables into an Access 2002
database for the upgrade?

TIA,

Myke


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


From jmhecht at earthlink.net  Wed Jan 11 18:22:12 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 16:22:12 -0800
Subject: [AccessD] Push code help please
Message-ID: <000801c6170e$3c7269f0$6701a8c0@HPLaptop>

This is the sql that controls Combo32

 

SELECT [20_tblAIMaster340].ACCIDENT,
[20_tblAIMaster340].DRIV_NUM,
[10_tbl_PersonelMasterData].LAST_NAME,
[10_tbl_PersonelMasterData].FIRST_NAME,
[10_tbl_PersonelMasterData].MIDDLE_Name, [Last_Name] & ", "
& [First_Name] & " " & [Middle_Name] AS Fname

FROM 10_tbl_PersonelMasterData INNER JOIN 20_tblAIMaster340
ON [10_tbl_PersonelMasterData].DRIV_NUM =
[20_tblAIMaster340].DRIV_NUM;

 

I want to put FNAME from above into txtEmployeeName

 

Private Sub Combo32_AfterUpdate()

    ' Find the record that matches the control.

    Dim rs As Object

 

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[ACCIDENT] = '" & Me![Combo32] & "'"

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

    

    me.txtEmployeeName.Text= me.Combo32.Column.(6)

 

I can not trace syntax error I get when I added bottom line
of code.

 

The get the record code is good.

 

Is it source = target or target = source

 

About to put my head my ADH

 

Thanks

    

 

Joe Hecht

jmhecht at earthlink.net

 



From cfoust at infostatsystems.com  Wed Jan 11 19:36:30 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 17:36:30 -0800
Subject: [AccessD] Push code help please
Message-ID: <F55048AF7E974F429BB24597D7355EEABF09@INFOSERVER04.infostat.local>

Is txtEmployeeName unbound and you just want to display it?  That isn't
what your original question suggested to me, so I might have misled you.
Text is a read-only property, so you have to set the value of the
textbox (assuming that's what txtEmployeeName is), not the Text.  Also,
the column index gets a little confusing but in this case, I believe it
should be 5, not 6 for your 6th column.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 11, 2006 4:22 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push code help please


This is the sql that controls Combo32

 

SELECT [20_tblAIMaster340].ACCIDENT, [20_tblAIMaster340].DRIV_NUM,
[10_tbl_PersonelMasterData].LAST_NAME,
[10_tbl_PersonelMasterData].FIRST_NAME,
[10_tbl_PersonelMasterData].MIDDLE_Name, [Last_Name] & ", "
& [First_Name] & " " & [Middle_Name] AS Fname

FROM 10_tbl_PersonelMasterData INNER JOIN 20_tblAIMaster340
ON [10_tbl_PersonelMasterData].DRIV_NUM = [20_tblAIMaster340].DRIV_NUM;

 

I want to put FNAME from above into txtEmployeeName

 

Private Sub Combo32_AfterUpdate()

    ' Find the record that matches the control.

    Dim rs As Object

 

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[ACCIDENT] = '" & Me![Combo32] & "'"

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

    

    me.txtEmployeeName.Text= me.Combo32.Column.(6)

 

I can not trace syntax error I get when I added bottom line
of code.

 

The get the record code is good.

 

Is it source = target or target = source

 

About to put my head my ADH

 

Thanks

    

 

Joe Hecht

jmhecht at earthlink.net

 

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


From accessd at shaw.ca  Wed Jan 11 20:04:08 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Wed, 11 Jan 2006 18:04:08 -0800
Subject: [AccessD] Push code help please
In-Reply-To: <000801c6170e$3c7269f0$6701a8c0@HPLaptop>
Message-ID: <007301c6171c$7912dbc0$017ba8c0@xpserver>

Hi Joe:

Instead of:
me.txtEmployeeName.Text= me.Combo32.Column.(5)

...it is:
me.txtEmployeeName.Text = me.Combo32.Column(ColumnPosition, RowPosition)

Remember it starts from 0 for column and row position so if it is the 10
record in the 3rd column:
me.Combo32.Column(2, 9)

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: January 11, 2006 4:22 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push code help please

This is the sql that controls Combo32

 

SELECT [20_tblAIMaster340].ACCIDENT,
[20_tblAIMaster340].DRIV_NUM,
[10_tbl_PersonelMasterData].LAST_NAME,
[10_tbl_PersonelMasterData].FIRST_NAME,
[10_tbl_PersonelMasterData].MIDDLE_Name, [Last_Name] & ", "
& [First_Name] & " " & [Middle_Name] AS Fname

FROM 10_tbl_PersonelMasterData INNER JOIN 20_tblAIMaster340
ON [10_tbl_PersonelMasterData].DRIV_NUM =
[20_tblAIMaster340].DRIV_NUM;

 

I want to put FNAME from above into txtEmployeeName

 

Private Sub Combo32_AfterUpdate()

    ' Find the record that matches the control.

    Dim rs As Object

 

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[ACCIDENT] = '" & Me![Combo32] & "'"

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

    

    me.txtEmployeeName.Text= me.Combo32.Column.(6)

 

I can not trace syntax error I get when I added bottom line
of code.

 

The get the record code is good.

 

Is it source = target or target = source

 

About to put my head my ADH

 

Thanks

    

 

Joe Hecht

jmhecht at earthlink.net

 

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



From jmhecht at earthlink.net  Wed Jan 11 20:09:41 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 18:09:41 -0800
Subject: [AccessD] Push code help please
In-Reply-To: <007301c6171c$7912dbc0$017ba8c0@xpserver>
Message-ID: <001601c6171d$3fd434c0$6701a8c0@HPLaptop>

Thanks


Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Jim Lawrence
Sent: Wednesday, January 11, 2006 6:04 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push code help please

Hi Joe:

Instead of:
me.txtEmployeeName.Text= me.Combo32.Column.(5)

...it is:
me.txtEmployeeName.Text = me.Combo32.Column(ColumnPosition,
RowPosition)

Remember it starts from 0 for column and row position so if
it is the 10
record in the 3rd column:
me.Combo32.Column(2, 9)

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: January 11, 2006 4:22 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push code help please

This is the sql that controls Combo32

 

SELECT [20_tblAIMaster340].ACCIDENT,
[20_tblAIMaster340].DRIV_NUM,
[10_tbl_PersonelMasterData].LAST_NAME,
[10_tbl_PersonelMasterData].FIRST_NAME,
[10_tbl_PersonelMasterData].MIDDLE_Name, [Last_Name] & ", "
& [First_Name] & " " & [Middle_Name] AS Fname

FROM 10_tbl_PersonelMasterData INNER JOIN 20_tblAIMaster340
ON [10_tbl_PersonelMasterData].DRIV_NUM =
[20_tblAIMaster340].DRIV_NUM;

 

I want to put FNAME from above into txtEmployeeName

 

Private Sub Combo32_AfterUpdate()

    ' Find the record that matches the control.

    Dim rs As Object

 

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[ACCIDENT] = '" & Me![Combo32] & "'"

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

    

    me.txtEmployeeName.Text= me.Combo32.Column.(6)

 

I can not trace syntax error I get when I added bottom line
of code.

 

The get the record code is good.

 

Is it source = target or target = source

 

About to put my head my ADH

 

Thanks

    

 

Joe Hecht

jmhecht at earthlink.net

 

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

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



From wdhindman at bellsouth.net  Wed Jan 11 21:35:42 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 11 Jan 2006 22:35:42 -0500
Subject: [AccessD] Backend Database Format: Access 2000 vs Access 2002
References: <F55048AF7E974F429BB24597D7355EEABF07@INFOSERVER04.infostat.local>
Message-ID: <000501c61729$44415c70$6101a8c0@JISREGISTRATION.local>

...A2K3 with the SP doesn't appear to have the bloat problem.

William

----- Original Message ----- 
From: "Charlotte Foust" <cfoust at infostatsystems.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 5:59 PM
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002


> Definitely not.  Our AXP apps use the 2000 format for all our datafiles.
> Only the front end files are 2002 format.  There are better arguments
> for not migrating data to the 2002 or later formats, since they bloat
> worse than 2000.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Myke Myers
> Sent: Wednesday, January 11, 2006 2:45 PM
> To: 'Database Advisors'
> Subject: [AccessD] Backend Database Format: Access 2000 vs Access 2002
>
>
> I'm getting ready to upgrade a corporate client from Access 2000 to
> Access 2002.
>
> The backend databases (tables and data only) that reside on the servers
> are Access 2000.
>
> Is there any reason to import the data tables into an Access 2002
> database for the upgrade?
>
> TIA,
>
> Myke
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From jwcolby at ColbyConsulting.com  Wed Jan 11 22:06:31 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 11 Jan 2006 23:06:31 -0500
Subject: [AccessD] Outlook Redemption
Message-ID: <000801c6172d$929fa120$647aa8c0@ColbyM6805>

Can I assume that redemption works with Outlook 2003?

John W. Colby
www.ColbyConsulting.com 




From jmhecht at earthlink.net  Wed Jan 11 23:27:07 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 21:27:07 -0800
Subject: [AccessD] Wont Add Up
Message-ID: <003d01c61738$d4f2fee0$6701a8c0@HPLaptop>

txtPaidTotal Datasource  

 

=Sum([BODILY_INJ]+[CARG_DAMAG]+[CHRG_BAK]+[CLAIM_EXPS]+[PHYS
_DAMAG]+[PROP_DAMAG]+[SALVAGE]+[SUBRO]+[WORK_COMP])

 

If I view the subform only it returns $120,000 and change

 

If I view it on subform in a tab control values are showing
for the categories but the text box is null.

 

Any thoughts appreciated

 

 

Joe Hecht

jmhecht at earthlink.net

 



From bill_Patten at earthlink.net  Wed Jan 11 23:29:45 2006
From: bill_Patten at earthlink.net (Bill Patten)
Date: Wed, 11 Jan 2006 21:29:45 -0800
Subject: [AccessD] Outlook Redemption
References: <000801c6172d$929fa120$647aa8c0@ColbyM6805>
Message-ID: <00a401c61739$32db5ed0$6501a8c0@BPCS>

It worked OK for me, though I'm only using a small amount of it's features.

Bill
----- Original Message ----- 
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 8:06 PM
Subject: [AccessD] Outlook Redemption


Can I assume that redemption works with Outlook 2003?

John W. Colby
www.ColbyConsulting.com


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



From mikedorism at verizon.net  Thu Jan 12 07:13:09 2006
From: mikedorism at verizon.net (Mike & Doris Manning)
Date: Thu, 12 Jan 2006 08:13:09 -0500
Subject: [AccessD] Outlook Redemption
In-Reply-To: <000801c6172d$929fa120$647aa8c0@ColbyM6805>
Message-ID: <000201c61779$f07f6400$2f01a8c0@dorismanning>

It has worked fine for me with no problems and I use a lot of its features.

Doris Manning
mikedorism at verizon.net




From bheid at appdevgrp.com  Thu Jan 12 08:00:24 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 12 Jan 2006 09:00:24 -0500
Subject: [AccessD] Wont Add Up
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D1E178@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30ABF625@ADGSERVER>

One of the fields may be null.  Anything + Null = Null.

Try this:

=Sum(nz([BODILY_INJ],0)+nz([CARG_DAMAG],0)+nz([CHRG_BAK],0)+
  nz([CLAIM_EXPS],0)+nz([PHYS_DAMAG],0)+nz([PROP_DAMAG],0)+
  nz([SALVAGE],0)+nz([SUBRO],0)+nz([WORK_COMP],0))

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Thursday, January 12, 2006 12:27 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Wont Add Up


txtPaidTotal Datasource  

 

=Sum([BODILY_INJ]+[CARG_DAMAG]+[CHRG_BAK]+[CLAIM_EXPS]+[PHYS
_DAMAG]+[PROP_DAMAG]+[SALVAGE]+[SUBRO]+[WORK_COMP])

 

If I view the subform only it returns $120,000 and change

 

If I view it on subform in a tab control values are showing
for the categories but the text box is null.

 

Any thoughts appreciated

 

 

Joe Hecht

jmhecht at earthlink.net



From Jim.Hale at FleetPride.com  Thu Jan 12 08:28:40 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Thu, 12 Jan 2006 08:28:40 -0600
Subject: [AccessD] Outlook Redemption
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD96C@corp-es01.fleetpride.com>

Only if you are a true believer.
Jim Hale

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 11, 2006 10:07 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Outlook Redemption


Can I assume that redemption works with Outlook 2003?

John W. Colby
www.ColbyConsulting.com 


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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From jmhecht at earthlink.net  Thu Jan 12 08:29:02 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 12 Jan 2006 06:29:02 -0800
Subject: [AccessD] Wont Add Up
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30ABF625@ADGSERVER>
Message-ID: <004d01c61784$8919f720$6701a8c0@HPLaptop>

That was it.

Thanks

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bobby Heid
Sent: Thursday, January 12, 2006 6:00 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Wont Add Up

One of the fields may be null.  Anything + Null = Null.

Try this:

=Sum(nz([BODILY_INJ],0)+nz([CARG_DAMAG],0)+nz([CHRG_BAK],0)+
  nz([CLAIM_EXPS],0)+nz([PHYS_DAMAG],0)+nz([PROP_DAMAG],0)+
  nz([SALVAGE],0)+nz([SUBRO],0)+nz([WORK_COMP],0))

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Thursday, January 12, 2006 12:27 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Wont Add Up


txtPaidTotal Datasource  

 

=Sum([BODILY_INJ]+[CARG_DAMAG]+[CHRG_BAK]+[CLAIM_EXPS]+[PHYS
_DAMAG]+[PROP_DAMAG]+[SALVAGE]+[SUBRO]+[WORK_COMP])

 

If I view the subform only it returns $120,000 and change

 

If I view it on subform in a tab control values are showing
for the categories but the text box is null.

 

Any thoughts appreciated

 

 

Joe Hecht

jmhecht at earthlink.net

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



From mjrobertson at iinet.net.au  Thu Jan 12 08:31:51 2006
From: mjrobertson at iinet.net.au (Mike)
Date: Fri, 13 Jan 2006 00:31:51 +1000
Subject: [AccessD] Report Printing Problem - Graphs Being Split
Message-ID: <000001c61784$ee11be60$0600a8c0@D3NSLB1S>

Hi Jim.

Thanks for the reply.

I'm certainly willing to give this method a go - I'll have some time over
the next few days to get it operational with some luck and hopefully some
more advice from you.

I've started trying it out and have initiated a 2 pass printing process on
one of the reports.

One thing I failed to mention in my original message is that all sub-reports
have been collapsed to .1cm (or 57 twips) high so that I can get all of them
into the main report's detail section. I'm unsure of what effect that may
have on this process.

I understand the intent of your suggestion - and I'm glad to see that I
still learn something new everyday - I wasn't aware of the MoveLayout
property etc.

You mentioned "record the size of each sub-report in inches of page that it
occupies".

So far, I have just used the Immediate Window to show me the heights of each
sub-report during the first execution of the onFormat event of the report's
Detail Section (all of the sub-reports are in the detail section). This pass
also hides sub-reports as dictated by the client and moves subsequent labels
and sub-report controls up the page as necessary. Then during the second
pass of the OnFormat event I display the heights of the sub-reports again.
Finally, in the OnPrint event of the Detail Section I display the heights
once more. Only the OnPrint event shows the "grown" sizes of the
sub-reports. Here's the debug output:

In first Format pass
 57 
 57 
 57 
In Second Format pass
 57 
 57 
 57 
In Print Pass
 851 
 4077 
 57 

(expressed in twips)

I need some help at this point as it seems that I am getting the "grown"
sub-report sizes too late to exert any control over page breaks (either
through use of the MoveLayout property or through unhiding page break
controls. It's my understanding that I can't alter detail section formatting
in the OnPrint event

I expected to see a change in sub-report heights after the first pass. At
that point that I would record the relevant sizes of sub-reports to be used
in the second format pass to control pagination.

Clearly I'm missing something here and need some more assistance to get back
on track.

Thanks again Jim.

Regards,


Mike Robertson



Date: Tue, 10 Jan 2006 08:39:39 -0500
From: "Jim Dettman" <jimdettman at earthlink.net>
Subject: Re: [AccessD] Report Printing Problem - Graphs Being Split
To: "Access Developers discussion and problem solving"
	<accessd at databaseadvisors.com>
Message-ID: <NDEALJOEGMMPCDKIFGNFEEKHHOAA.jimdettman at earthlink.net>
Content-Type: text/plain;	charset="iso-8859-1"

Hi Mike,

<<When a report is printed, any textual or graphical sub-report which starts
before the end of the page is "split" i.e.. part of it prints on the page it
started on and the rest prints on the following page. This is particularly
horrific when a graph is being printed - the "pie" ends up not only sliced
but also severed! I think I can live with textual type reports being split
across pages, but splitting a graph into 2 parts isn't acceptable.>>

  I'm going to suggest something and it may solve it with a little
experimentation, but if it doesn't it will certainly get you started in the
right direction.

  First, what your seeing is more or less normal report engine behavior, so
there is no easy fix for this (i.e. no setting to change) and your going to
need to mange this problem on your own.  The Access report engine is quite
controllable, much more so then many people think.  You've already seen some
of that with hiding/un-hiding sub reports with no data.

  I'm going to toss out three things that you can use to control reports and
when combined, you'll be really surprised at some of the things you can do.

1. "Two Pass" printing - This is where by placing a reference to .Pages
anywhere on the report, you force Access to do a dry run of the report to
figure out the total number of pages.  It then does a second pass to
actually print the report.
<Snip>

-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.371 / Virus Database: 267.14.17/227 - Release Date: 11/01/2006
 


From cfoust at infostatsystems.com  Thu Jan 12 10:03:21 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 12 Jan 2006 08:03:21 -0800
Subject: [AccessD] Backend Database Format: Access 2000 vs Access 2002
Message-ID: <F55048AF7E974F429BB24597D7355EEABF0A@INFOSERVER04.infostat.local>

Good to know.  I don't use 2003 and was repeating whata developer who
does had told me.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
Hindman
Sent: Wednesday, January 11, 2006 7:36 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
2002


...A2K3 with the SP doesn't appear to have the bloat problem.

William

----- Original Message ----- 
From: "Charlotte Foust" <cfoust at infostatsystems.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 5:59 PM
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
2002


> Definitely not.  Our AXP apps use the 2000 format for all our 
> datafiles. Only the front end files are 2002 format.  There are better

> arguments for not migrating data to the 2002 or later formats, since 
> they bloat worse than 2000.
>
> Charlotte Foust
>
>
> 


From bill_Patten at earthlink.net  Thu Jan 12 10:36:01 2006
From: bill_Patten at earthlink.net (Bill Patten)
Date: Thu, 12 Jan 2006 08:36:01 -0800
Subject: [AccessD] Access reinstalls when switching from 2002 to 2003
Message-ID: <001401c61796$469e4ab0$6501a8c0@BPCS>

For several years I have had Access 97, 2002 and 2003 installed on both my main PC and laptop, and switched back and forth with no problem. Recently each time I open 2002 after having opened 2003 or vice versa the preparing to install window opens and it reinstalls prior to opening. Everything works OK it's just annoying and time consuming. Anybody know a solution? It may have something to do with an auto update.

Thanks

Bill

From rl_stewart at highstream.net  Thu Jan 12 10:36:17 2006
From: rl_stewart at highstream.net (Robert L. Stewart)
Date: Thu, 12 Jan 2006 10:36:17 -0600
Subject: [AccessD] Older Access install with A2K3
In-Reply-To: <mailman.1223.1137076129.21013.accessd@databaseadvisors.com
 >
References: <mailman.1223.1137076129.21013.accessd@databaseadvisors.com>
Message-ID: <6.2.3.4.2.20060112103446.02f68758@pop3.highstream.net>

Sounds like time to tell them those are the most stable and you will 
not provide them a poor product.  If they insist, then if you can 
afford to, fire them and find another client.

At 08:28 AM 1/12/2006, you wrote:
>Date: Wed, 11 Jan 2006 11:07:04 -0800
>From: "Joe Hecht" <jmhecht at earthlink.net>
>Subject: Re: [AccessD] Older Access install with A2K3
>To: "'Access Developers discussion and problem solving'"
>         <accessd at databaseadvisors.com>
>Message-ID: <001f01c616e2$35f115d0$6701a8c0 at HPLaptop>
>Content-Type: text/plain;       charset="us-ascii"
>
>Gotta love clients. I told them I am building in XP 2K3. Now
>they do not want to buy either.
>
>I really do not want to rebuild my hard drive for them.
>
>Joe Hecht




From martyconnelly at shaw.ca  Thu Jan 12 13:14:18 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Thu, 12 Jan 2006 11:14:18 -0800
Subject: [AccessD] Access97 on W2000 crashes
References: <20060111111122.6B3EC26FCF3@smtp.nildram.co.uk>
	<43C55C25.9010603@shaw.ca>
	<002001c616ee$92228080$6401a8c0@fincomplex.spb.ru>
Message-ID: <43C6AA8A.7050206@shaw.ca>

You can remove DAO 3.51 from the reference list and replace with DAO 3.60
Then run Debug.Print DAO.DBEngine.Version
It returns 3.6
I use to read 2000 mdb's in Access 97 VBA. It won't allow you to link tables
as Access itself defaults to 3.51 but you can use from VBA code to read 
a 2000 mdb
Of course MS says this is unsupported.

This is security patch to Jet 3.51 after installing Office 97 SR-1 and SR2-B

Jet 3.51 Service Pack 3
http://www.microsoft.com/downloads/details.aspx?FamilyID=7e82ef88-52ec-4a8f-8bb2-8b06d6cb668d&DisplayLang=en

Sub testb()
   Dim db As DAO.Database
    Dim dbe As Object
    'Set dbe = CreateObject("DAO.DBEngine.36")
    'Set db = dbe.CreateDatabase("c:\temp\test.mdb", _
    ' ";LANGID=0x0409;CP=1252;COUNTRY=0")
       Set db = OpenDatabase("c:\temp\test.mdb")
    Dim tdfLoop As TableDef

For Each tdfLoop In db.TableDefs
        Debug.Print tdfLoop.Name
      
Next tdfLoop
Set db = Nothing
    
End Sub


Shamil Salakhetdinov wrote:

>Marty,
>
>MS Access 97 uses Jet 3.5 independent of the reference set to DAO 3.51 or
>DAO 3.6:
>
>The simple VB6 utility I made for Andy yesterday says that:
>
>http://smsconsulting.spb.ru/download/tests/myPSAPI.zip (10KB)
>
>I have here:
>
>Access97
>========
>
> <BaseName>msjet35.dll</BaseName>
>  <ExeFullPath>D:\WINDOWS\system32\msjet35.dll</ExeFullPath>
>  <version>
>  <vi>CompanyName: Microsoft Corporation</vi>
>  <vi>FileDescription: Microsoft Jet Engine Library</vi>
>  <vi>FileVersion: 3.51.2723.0</vi>
>  <vi>InternalName: MSJET35.DLL</vi>
>  <vi>LegalCopyright: Copyright (C) Microsoft Corp. 1993-1996</vi>
>  <vi>OriginalFilename: MSJET35.DLL</vi>
>  <vi>ProductName: Microsoft? Jet</vi>
>  <vi>ProductVersion: 3.51.2723.0</vi>
>  </version>
>
>Access2003
>==========
>
>  <BaseName>msjet40.dll</BaseName>
>  <ExeFullPath>D:\WINDOWS\system32\msjet40.dll</ExeFullPath>
>   <version>
>  <vi>CompanyName: Microsoft Corporation</vi>
>  <vi>FileDescription: Microsoft Jet Engine Library</vi>
>  <vi>FileVersion: 4.00.8618.0</vi>
>  <vi>InternalName: MSJET40.DLL</vi>
>  <vi>LegalCopyright: Copyright (C) Microsoft Corp. 1993-1999</vi>
>  <vi>OriginalFilename: MSJET40.DLL</vi>
>  <vi>ProductName: Microsoft (R) Jet</vi>
>  <vi>ProductVersion: 4.00.8618.0</vi>
>  </version>
>
>Am I missing something? (Yes, I see I don't have latest Jet 3.5 DLL
>installed - something else?)
>
>Shamil
>
>
>----- Original Message ----- 
>From: "MartyConnelly" <martyconnelly at shaw.ca>
>To: "Access Developers discussion and problem solving"
><accessd at databaseadvisors.com>
>Sent: Wednesday, January 11, 2006 10:27 PM
>Subject: Re: [AccessD] Access97 on W2000 crashes
>
>
>  
>
>>Just something else to check.
>>This will tell you the version of DAO is in use within Access97 mdb
>>It will return either 3.51 or 3.6, you can use either with Access 97
>>depending on your reference settings.
>>
>>Debug.Print DAO.DBEngine.Version
>>
>>You might want to check you OS environment to see what Jet SP you are
>>running
>>on your home machines and client. You can do this in code but this maybe
>>quicker.
>>
>>I have Jet SP8 installed
>>right click on these files in explorer then  select properties
>>Version Tab and look at the File Version Number
>>
>>DAO 3.51
>>C:\WINDOWS\system32\msjet35.dll
>>
>>3.51.3328.0
>>
>>DAO 3.6
>>C:\WINDOWS\system32\msjet40.dll
>>
>>4.00.8618.0
>>
>>
>>To find which older versions you maybe running insert above dll names
>>in DLL Help database to get older version numbers and what product
>>installs them.
>>
>>http://support.microsoft.com/dllhelp/
>>
>>Andy Lacey wrote:
>>
>>    
>>
>>>Well I'm not doing anything clever but it is working. And yes, if I exit
>>>      
>>>
>and
>  
>
>>>reopen the app the compile is greyed out. The code I call at the start is
>>>below. The sequence is that the desktop icon runs the mdb with a /X to
>>>      
>>>
>run a
>  
>
>>>specific macro. The macro calls a function to handle all my starting up
>>>stuff, and that, fairly early on, calls the Recompile function.
>>>
>>>Function Recompile
>>>If Application.IsCompiled = False Then
>>>Call SysCmd(504, 16483)
>>>End If
>>>End Function
>>>
>>>So, if I decompile and run my icon it recompiles and saves (and you can
>>>watch the progress meters). If I exit and then run again it does not now
>>>recompile. Is that unusual?
>>>
>>>Bear in ind this is A97. Don't know if your experience is on later
>>>      
>>>
>versions.
>  
>
>>>--
>>>Andy Lacey
>>>http://www.minstersystems.co.uk
>>>
>>>      
>>>
><<< tail skipped>>>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From shamil at users.mns.ru  Thu Jan 12 14:42:28 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 12 Jan 2006 23:42:28 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <20060111111122.6B3EC26FCF3@smtp.nildram.co.uk><43C55C25.9010603@shaw.ca><002001c616ee$92228080$6401a8c0@fincomplex.spb.ru>
	<43C6AA8A.7050206@shaw.ca>
Message-ID: <000f01c617b8$b8893960$6401a8c0@fincomplex.spb.ru>

<<<
I use to read 2000 mdb's in Access 97 VBA. It won't allow you to link tables
as Access itself defaults to 3.51 but you can use from VBA code to read
a 2000 mdb
>>>
OK. I didn't know that. It doesn't work here but I don't have the latest Jet
3.51 patch that could be the problem.

Shamil

----- Original Message ----- 
From: "MartyConnelly" <martyconnelly at shaw.ca>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, January 12, 2006 10:14 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


You can remove DAO 3.51 from the reference list and replace with DAO 3.60
Then run Debug.Print DAO.DBEngine.Version
It returns 3.6
I use to read 2000 mdb's in Access 97 VBA. It won't allow you to link tables
as Access itself defaults to 3.51 but you can use from VBA code to read
a 2000 mdb
Of course MS says this is unsupported.

This is security patch to Jet 3.51 after installing Office 97 SR-1 and SR2-B

Jet 3.51 Service Pack 3
http://www.microsoft.com/downloads/details.aspx?FamilyID=7e82ef88-52ec-4a8f-8bb2-8b06d6cb668d&DisplayLang=en

Sub testb()
   Dim db As DAO.Database
    Dim dbe As Object
    'Set dbe = CreateObject("DAO.DBEngine.36")
    'Set db = dbe.CreateDatabase("c:\temp\test.mdb", _
    ' ";LANGID=0x0409;CP=1252;COUNTRY=0")
       Set db = OpenDatabase("c:\temp\test.mdb")
    Dim tdfLoop As TableDef

For Each tdfLoop In db.TableDefs
        Debug.Print tdfLoop.Name

Next tdfLoop
Set db = Nothing

End Sub


<<< tail skipped >>>



From Patricia.O'Connor at otda.state.ny.us  Thu Jan 12 15:52:21 2006
From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA))
Date: Thu, 12 Jan 2006 16:52:21 -0500
Subject: [AccessD] OT file with PIC extension
Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B235F@EXCNYSM0A1AI.nysemail.nyenet>

Hi

I had to look back on some historical data and there are some files with
PIC as the extension. Does anyone know what to look at this with? I have
tried IE, excel, paint, adobe, and image viewer.  It may have something
to do with lotus but I don't have that software. The WK1 files we were
able to open with excel but not these.

Any help will be greatly appreciated
Thanks
Patti

**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
************************************************** 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system.


From JHewson at karta.com  Thu Jan 12 16:10:19 2006
From: JHewson at karta.com (Jim Hewson)
Date: Thu, 12 Jan 2006 16:10:19 -0600
Subject: [AccessD] OT file with PIC extension
Message-ID: <9C382E065F54AE48BC3AA7925DCBB01C03AC8060@karta-exc-int.Karta.com>

I have found this site to be useful when looking for extensions.

http://filext.com/

It gives you a whole host of information about the extension.

For example:  PIC is an extension for "Advanced Art Studio;" "Animator PIC/CEL Bitmap;" "BioRad Confocula Image;" "Delcam Picture File;" "Handy Scaner Cameron Image;" plus a few more.  Read carefully and in some cases it will give a link to a viewer.

BTW did you try Paint?

HTH

Jim 
jhewson at karta.com
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of O'Connor, Patricia (OTDA)
Sent: Thursday, January 12, 2006 3:52 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] OT file with PIC extension

Hi

I had to look back on some historical data and there are some files with
PIC as the extension. Does anyone know what to look at this with? I have
tried IE, excel, paint, adobe, and image viewer.  It may have something
to do with lotus but I don't have that software. The WK1 files we were
able to open with excel but not these.

Any help will be greatly appreciated
Thanks
Patti

**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
************************************************** 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From Patricia.O'Connor at otda.state.ny.us  Thu Jan 12 16:18:09 2006
From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA))
Date: Thu, 12 Jan 2006 17:18:09 -0500
Subject: [AccessD] OT file with PIC extension
Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B2360@EXCNYSM0A1AI.nysemail.nyenet>

Jim

Yes I tried paint says it is not a valid bmp file.  I think it may have
something to do with lotus but I can not get it to work.  We don't have
lotus at all here just ms office. We must have gotten this from someone
else or we had the very old lotus back in 95.

Thanks
Patti

**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
**************************************************
 

> 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system. 


-----Original Message-----

> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Hewson
> Sent: Thursday, January 12, 2006 05:10 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] OT file with PIC extension
> 
> I have found this site to be useful when looking for extensions.
> 
> http://filext.com/
> 
> It gives you a whole host of information about the extension.
> 
> For example:  PIC is an extension for "Advanced Art Studio;" 
> "Animator PIC/CEL Bitmap;" "BioRad Confocula Image;" "Delcam 
> Picture File;" "Handy Scaner Cameron Image;" plus a few more. 
>  Read carefully and in some cases it will give a link to a viewer.
> 
> BTW did you try Paint?
> 
> HTH
> 
> Jim
> jhewson at karta.com
>  
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> O'Connor, Patricia (OTDA)
> Sent: Thursday, January 12, 2006 3:52 PM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] OT file with PIC extension
> 
> Hi
> 
> I had to look back on some historical data and there are some 
> files with PIC as the extension. Does anyone know what to 
> look at this with? I have tried IE, excel, paint, adobe, and 
> image viewer.  It may have something to do with lotus but I 
> don't have that software. The WK1 files we were able to open 
> with excel but not these.
> 
> Any help will be greatly appreciated
> Thanks
> Patti
> 
> **************************************************
> * Patricia O'Connor
> * Associate Computer Programmer Analyst
> * OTDA - BDMA
> * (W) mailto:Patricia.O'Connor at otda.state.ny.us
> * (w) mailto:aa1160 at otda.state.ny.us
> **************************************************
> --------------------------------------------------------
> This e-mail, including any attachments, may be confidential, 
> privileged or otherwise legally protected. It is intended 
> only for the addressee. If you received this e-mail in error 
> or from someone who was not authorized to send it to you, do 
> not disseminate, copy or otherwise use this e-mail or its 
> attachments.  Please notify the sender immediately by reply 
> e-mail and delete the e-mail from your system.
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


From john at winhaven.net  Thu Jan 12 19:04:11 2006
From: john at winhaven.net (John Bartow)
Date: Thu, 12 Jan 2006 19:04:11 -0600
Subject: [AccessD] OT file with PIC extension
In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B235F@EXCNYSM0A1AI.nysemail.nyenet>
Message-ID: <011201c617dd$443ae700$7b01a8c0@ScuzzPaq>

IIRC Lotus 123 used the .pic format to hold graphs a long time ago.

I have 123 if you I can try and open one for you. I think I would need to
the spreadsheet that goes with it but am not sure of that.

John B.
Send to john at winhaven.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of O'Connor,
Patricia (OTDA)
Sent: Thursday, January 12, 2006 3:52 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] OT file with PIC extension

Hi

I had to look back on some historical data and there are some files with PIC
as the extension. Does anyone know what to look at this with? I have tried
IE, excel, paint, adobe, and image viewer.  It may have something to do with
lotus but I don't have that software. The WK1 files we were able to open
with excel but not these.

Any help will be greatly appreciated
Thanks
Patti

**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
**************************************************
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or
otherwise legally protected. It is intended only for the addressee. If you
received this e-mail in error or from someone who was not authorized to send
it to you, do not disseminate, copy or otherwise use this e-mail or its
attachments.  Please notify the sender immediately by reply e-mail and
delete the e-mail from your system.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jwcolby at ColbyConsulting.com  Thu Jan 12 19:08:17 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 12 Jan 2006 20:08:17 -0500
Subject: [AccessD] Class builder
Message-ID: <004e01c617dd$d977dbc0$647aa8c0@ColbyM6805>

I have just finished a little class builder.  If anyone wants to play with
it let me know.

In the meantime, the one thing I can't figure out is how to save the newly
created class.  I can click the save button and it saves the new module, but
I can't make it happen from VBA.  Anyone know what object saves unsaved
modules?

John W. Colby
www.ColbyConsulting.com 




From cfoust at infostatsystems.com  Thu Jan 12 19:45:29 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 12 Jan 2006 17:45:29 -0800
Subject: [AccessD] Class builder
Message-ID: <F55048AF7E974F429BB24597D7355EEABF1B@INFOSERVER04.infostat.local>

I'm not sure, John, but I think you need a VBE reference to add a class
to a project from code.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Thursday, January 12, 2006 5:08 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Class builder


I have just finished a little class builder.  If anyone wants to play
with it let me know.

In the meantime, the one thing I can't figure out is how to save the
newly created class.  I can click the save button and it saves the new
module, but I can't make it happen from VBA.  Anyone know what object
saves unsaved modules?

John W. Colby
www.ColbyConsulting.com 


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


From listmaster at databaseadvisors.com  Thu Jan 12 20:48:24 2006
From: listmaster at databaseadvisors.com (Bryan Carbonnell)
Date: Thu, 12 Jan 2006 21:48:24 -0500
Subject: [AccessD] Administrivia - DBA's New Executive Officers.
Message-ID: <43C6CEA8.24082.46E416@listmaster.databaseadvisors.com>

The Board of Directors of Database Advisors recently held elections 
for the executive committee for the upcoming year.

The Executive Officers for 2006 are:
President: John Bartow
Vice-President: Reuben Cummings
Secretary: Donna Cook
Treasurer: Keith Williamson

Congratulations to all.


-- 
Bryan Carbonnell - listmaster at databaseadvisors.com
Normal people worry me.




From wdhindman at bellsouth.net  Thu Jan 12 22:52:24 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 12 Jan 2006 23:52:24 -0500
Subject: [AccessD] Backend Database Format: Access 2000 vs Access 2002
References: <F55048AF7E974F429BB24597D7355EEABF0A@INFOSERVER04.infostat.local>
Message-ID: <000a01c617fd$25465990$6101a8c0@JISREGISTRATION.local>

...the bloat was still there in A2K3 before the SP but apparently not after.

William

----- Original Message ----- 
From: "Charlotte Foust" <cfoust at infostatsystems.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 12, 2006 11:03 AM
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002


> Good to know.  I don't use 2003 and was repeating whata developer who
> does had told me.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
> Hindman
> Sent: Wednesday, January 11, 2006 7:36 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
> 2002
>
>
> ...A2K3 with the SP doesn't appear to have the bloat problem.
>
> William
>
> ----- Original Message ----- 
> From: "Charlotte Foust" <cfoust at infostatsystems.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Wednesday, January 11, 2006 5:59 PM
> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
> 2002
>
>
>> Definitely not.  Our AXP apps use the 2000 format for all our
>> datafiles. Only the front end files are 2002 format.  There are better
>
>> arguments for not migrating data to the 2002 or later formats, since
>> they bloat worse than 2000.
>>
>> Charlotte Foust
>>
>>
>>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From accessd at shaw.ca  Fri Jan 13 00:20:30 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Thu, 12 Jan 2006 22:20:30 -0800
Subject: [AccessD] OT Alternative to Access, MySQL, Oracle etc???
In-Reply-To: <43C6AA8A.7050206@shaw.ca>
Message-ID: <001801c61809$74404860$017ba8c0@xpserver>

OT:

Hi All:

Is this the alternative to Access? Check this out:
http://www.kexi-project.org/ 

Definitely needs a few years to mature but seems to be developing nicely.

Jim



From Erwin.Craps at ithelps.be  Fri Jan 13 01:08:06 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Fri, 13 Jan 2006 08:08:06 +0100
Subject: [AccessD] OT file with PIC extension
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62A1@stekelbes.ithelps.local>

Hi

Just checked in Coreldraw Photopaint.

.PIC is a Lotus picture file.
It should be posible to open it in Coreldraw Photopaint an to convert it
to something more current (JPG?).
If its only a couple of them I'm willing to convert them for you.
If you have a lot of them in one folder, maybe I cn convert a litle
script of mine to automize this.
You better mail me directly, I'm not checking the list every day...
Erwin.Craps at ithelps.be

But hold your horses (files :-) a bit.
Just checked my Explorer File extensions.
The PIC extension seems to be related with the Quicktime viewer.
C:\PROGRA~1\QUICKT~1\PictureViewer.exe"

So if I'm not mistaking, if you install the Quicktime viewer you can
doubleclick the file and see the content.
Here's where you can find it.
http://www.apple.com/quicktime/win.html



Erwin
 

-----Oorspronkelijk bericht-----
Van: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] Namens John Bartow
Verzonden: vrijdag 13 januari 2006 2:04
Aan: 'Access Developers discussion and problem solving'
Onderwerp: Re: [AccessD] OT file with PIC extension

IIRC Lotus 123 used the .pic format to hold graphs a long time ago.

I have 123 if you I can try and open one for you. I think I would need
to the spreadsheet that goes with it but am not sure of that.

John B.
Send to john at winhaven.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of O'Connor,
Patricia (OTDA)
Sent: Thursday, January 12, 2006 3:52 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] OT file with PIC extension

Hi

I had to look back on some historical data and there are some files with
PIC as the extension. Does anyone know what to look at this with? I have
tried IE, excel, paint, adobe, and image viewer.  It may have something
to do with lotus but I don't have that software. The WK1 files we were
able to open with excel but not these.

Any help will be greatly appreciated
Thanks
Patti

**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
**************************************************
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged
or otherwise legally protected. It is intended only for the addressee.
If you received this e-mail in error or from someone who was not
authorized to send it to you, do not disseminate, copy or otherwise use
this e-mail or its attachments.  Please notify the sender immediately by
reply e-mail and delete the e-mail from your system.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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


From shamil at users.mns.ru  Fri Jan 13 02:53:13 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Fri, 13 Jan 2006 11:53:13 +0300
Subject: [AccessD] Class builder
References: <004e01c617dd$d977dbc0$647aa8c0@ColbyM6805>
Message-ID: <00ec01c6181e$cb38a350$6401a8c0@fincomplex.spb.ru>

John,

Here is one of the methods how a new class module can be created and saved
using VBA:

Dim mdl As Access.Module
Dim objApp As Access.Application
Dim strTempMdlName As String
Dim strMdlName As String
    Set objApp = Access.Application
    strMdlName = "CTestClassModule"

    With objApp.DoCmd
        .RunCommand acCmdNewObjectClassModule
        Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
        strTempMdlName = mdl.Name

        mdl.InsertText "public TestProperty as integer"

        .Close acModule, strTempMdlName, acSaveYes
        .Rename strMdlName, acModule, strTempMdlName
    End With

Make sure there is no class module with the name CTestClassModule in your
database...

Shamil

----- Original Message ----- 
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 4:08 AM
Subject: [AccessD] Class builder


> I have just finished a little class builder.  If anyone wants to play with
> it let me know.
>
> In the meantime, the one thing I can't figure out is how to save the newly
> created class.  I can click the save button and it saves the new module,
but
> I can't make it happen from VBA.  Anyone know what object saves unsaved
> modules?
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Fri Jan 13 05:57:03 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 13 Jan 2006 12:57:03 +0100
Subject: [AccessD] Backend Database Format: Access 2000 vs Access	2002
Message-ID: <s3c7a3ad.086@cactus.dk>

Hi William

SP1 or SP2?

/gustav

>>> wdhindman at bellsouth.net 13-01-2006 05:52 >>>
...the bloat was still there in A2K3 before the SP but apparently not after.

William

----- Original Message ----- 
From: "Charlotte Foust" <cfoust at infostatsystems.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 12, 2006 11:03 AM
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002


> Good to know.  I don't use 2003 and was repeating whata developer who
> does had told me.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
> Hindman
> Sent: Wednesday, January 11, 2006 7:36 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
> 2002
>
>
> ...A2K3 with the SP doesn't appear to have the bloat problem.
>
> William




From wdhindman at bellsouth.net  Fri Jan 13 06:36:39 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Fri, 13 Jan 2006 07:36:39 -0500
Subject: [AccessD] Backend Database Format: Access 2000 vs Access	2002
References: <s3c7a3ad.086@cactus.dk>
Message-ID: <003701c6183e$0088eb90$6101a8c0@JISREGISTRATION.local>

...I don't really know Gustav ...I was working on rewriting a new client mdb 
that was in A2K3 and noticed that it didn't appear to be bloating ...both 
SPs were installed ...I've since converted others without seeing the bloat 
...but neither SP mentions that as a bug fix.

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 6:57 AM
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002


> Hi William
>
> SP1 or SP2?
>
> /gustav
>
>>>> wdhindman at bellsouth.net 13-01-2006 05:52 >>>
> ...the bloat was still there in A2K3 before the SP but apparently not 
> after.
>
> William
>
> ----- Original Message ----- 
> From: "Charlotte Foust" <cfoust at infostatsystems.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 12, 2006 11:03 AM
> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002
>
>
>> Good to know.  I don't use 2003 and was repeating whata developer who
>> does had told me.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
>> Hindman
>> Sent: Wednesday, January 11, 2006 7:36 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
>> 2002
>>
>>
>> ...A2K3 with the SP doesn't appear to have the bloat problem.
>>
>> William
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From Gustav at cactus.dk  Fri Jan 13 06:48:02 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 13 Jan 2006 13:48:02 +0100
Subject: [AccessD] Backend Database Format: Access 2000 vs	Access	2002
Message-ID: <s3c7afa4.090@cactus.dk>

Hi William

It would be nice to know since, as I understand it, SP2 introduces the disabling of the ability to update linked Excel files.

/gustav

>>> wdhindman at bellsouth.net 13-01-2006 13:36 >>>
...I don't really know Gustav ...I was working on rewriting a new client mdb 
that was in A2K3 and noticed that it didn't appear to be bloating ...both 
SPs were installed ...I've since converted others without seeing the bloat 
...but neither SP mentions that as a bug fix.

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 6:57 AM
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002


> Hi William
>
> SP1 or SP2?
>
> /gustav
>
>>>> wdhindman at bellsouth.net 13-01-2006 05:52 >>>
> ...the bloat was still there in A2K3 before the SP but apparently not 
> after.
>
> William
>
> ----- Original Message ----- 
> From: "Charlotte Foust" <cfoust at infostatsystems.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 12, 2006 11:03 AM
> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002
>
>
>> Good to know.  I don't use 2003 and was repeating whata developer who
>> does had told me.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com 
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
>> Hindman
>> Sent: Wednesday, January 11, 2006 7:36 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
>> 2002
>>
>>
>> ...A2K3 with the SP doesn't appear to have the bloat problem.




From wdhindman at bellsouth.net  Fri Jan 13 07:17:51 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Fri, 13 Jan 2006 08:17:51 -0500
Subject: [AccessD] Backend Database Format: Access 2000 vs	Access	2002
References: <s3c7afa4.090@cactus.dk>
Message-ID: <005d01c61843$c1d31730$6101a8c0@JISREGISTRATION.local>

...yes, that's in SP2 ...but then AXP and Excel XP have also been updated to 
remove that capability ...some patent suit settlement issue ...you now have 
to import the ws, change the data, and then export it.

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 7:48 AM
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002


> Hi William
>
> It would be nice to know since, as I understand it, SP2 introduces the 
> disabling of the ability to update linked Excel files.
>
> /gustav
>
>>>> wdhindman at bellsouth.net 13-01-2006 13:36 >>>
> ...I don't really know Gustav ...I was working on rewriting a new client 
> mdb
> that was in A2K3 and noticed that it didn't appear to be bloating ...both
> SPs were installed ...I've since converted others without seeing the bloat
> ...but neither SP mentions that as a bug fix.
>
> William
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Friday, January 13, 2006 6:57 AM
> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002
>
>
>> Hi William
>>
>> SP1 or SP2?
>>
>> /gustav
>>
>>>>> wdhindman at bellsouth.net 13-01-2006 05:52 >>>
>> ...the bloat was still there in A2K3 before the SP but apparently not
>> after.
>>
>> William
>>
>> ----- Original Message ----- 
>> From: "Charlotte Foust" <cfoust at infostatsystems.com>
>> To: "Access Developers discussion and problem solving"
>> <accessd at databaseadvisors.com>
>> Sent: Thursday, January 12, 2006 11:03 AM
>> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 
>> 2002
>>
>>
>>> Good to know.  I don't use 2003 and was repeating whata developer who
>>> does had told me.
>>>
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
>>> Hindman
>>> Sent: Wednesday, January 11, 2006 7:36 PM
>>> To: Access Developers discussion and problem solving
>>> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
>>> 2002
>>>
>>>
>>> ...A2K3 with the SP doesn't appear to have the bloat problem.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From jwcolby at ColbyConsulting.com  Fri Jan 13 07:52:46 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 13 Jan 2006 08:52:46 -0500
Subject: [AccessD] Class builder
In-Reply-To: <00ec01c6181e$cb38a350$6401a8c0@fincomplex.spb.ru>
Message-ID: <006201c61848$a2bcec40$647aa8c0@ColbyM6805>

Shamil,

Thanks!  And I was looking for a save method.  Much too obvious I guess.
BTW do you have any help files for the VBA editor?  The help is rather
sparse. 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: Friday, January 13, 2006 3:53 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Class builder

John,

Here is one of the methods how a new class module can be created and saved
using VBA:

Dim mdl As Access.Module
Dim objApp As Access.Application
Dim strTempMdlName As String
Dim strMdlName As String
    Set objApp = Access.Application
    strMdlName = "CTestClassModule"

    With objApp.DoCmd
        .RunCommand acCmdNewObjectClassModule
        Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
        strTempMdlName = mdl.Name

        mdl.InsertText "public TestProperty as integer"

        .Close acModule, strTempMdlName, acSaveYes
        .Rename strMdlName, acModule, strTempMdlName
    End With

Make sure there is no class module with the name CTestClassModule in your
database...

Shamil

----- Original Message -----
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 4:08 AM
Subject: [AccessD] Class builder


> I have just finished a little class builder.  If anyone wants to play with
> it let me know.
>
> In the meantime, the one thing I can't figure out is how to save the newly
> created class.  I can click the save button and it saves the new module,
but
> I can't make it happen from VBA.  Anyone know what object saves unsaved
> modules?
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com

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



From jwcolby at ColbyConsulting.com  Fri Jan 13 08:32:25 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 13 Jan 2006 09:32:25 -0500
Subject: [AccessD] Class builder
In-Reply-To: <00ec01c6181e$cb38a350$6401a8c0@fincomplex.spb.ru>
Message-ID: <006301c6184e$2c870640$647aa8c0@ColbyM6805>

Shamil,

Well, that didn't work.  I am trying to build this as an Add-In and
apparently the .RunCommand acCmdNewObjectClassModule isn't available in the
context of code running out in an add-in.  I had been using the following
code to get a module:

Dim lMdl As VBComponent
Dim VBProj As VBProject
    Set VBProj = Application.VBE.ActiveVBProject
    Set lMdl =
Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_ClassModule)
    lMdl.Name = strModuleName
    Set AddModule = lMdl.CodeModule

The "lMdl.Name = strModuleName" does correctly set the name of the class
module.  The problem is that the created class is in limbo somewhere.  It
exists, i.e. if I try it again, the "lMdl.Name = strModuleName" causes a run
time error.  I cannot save it however.  Even opening a module in the current
app and clicking save doesn't save it.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: Friday, January 13, 2006 3:53 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Class builder

John,

Here is one of the methods how a new class module can be created and saved
using VBA:

Dim mdl As Access.Module
Dim objApp As Access.Application
Dim strTempMdlName As String
Dim strMdlName As String
    Set objApp = Access.Application
    strMdlName = "CTestClassModule"

    With objApp.DoCmd
        .RunCommand acCmdNewObjectClassModule
        Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
        strTempMdlName = mdl.Name

        mdl.InsertText "public TestProperty as integer"

        .Close acModule, strTempMdlName, acSaveYes
        .Rename strMdlName, acModule, strTempMdlName
    End With

Make sure there is no class module with the name CTestClassModule in your
database...

Shamil

----- Original Message -----
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 4:08 AM
Subject: [AccessD] Class builder


> I have just finished a little class builder.  If anyone wants to play with
> it let me know.
>
> In the meantime, the one thing I can't figure out is how to save the newly
> created class.  I can click the save button and it saves the new module,
but
> I can't make it happen from VBA.  Anyone know what object saves unsaved
> modules?
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com

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



From jwcolby at ColbyConsulting.com  Fri Jan 13 09:11:37 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 13 Jan 2006 10:11:37 -0500
Subject: [AccessD] Saving Code Builder generated class
Message-ID: <006701c61853$a69fcac0$647aa8c0@ColbyM6805>

It appears that Access is getting confused as to where the class is being
built.  I have a framework linked in to my FE and apparently the add-in
can't figure out what container the class belongs in.  When I create the
class and go look at it (it opens so I can see it) but up at the top it says
the container is the Add-In.  The save button is not grayed out but if I try
and click it, nothing happens.  If I then cut the code out and insert
another class and paste the code back in, I still can't save it.  If I open
a module inside the actual application first, then insert a new class and
paste in the code, I can now save it (prompted for the class name of course)
and it saves in the application.

So it appears that the code that actually creates the class is creating it
inside of the Add-In container and it is illegal to save changes to that
from the app using the Add-In.

The odd part is that somehow, someway (and VERY briefly) at the very
beginning I was able to create the module in the application container and
MANUALLY save it by clicking the save icon.

Very frustrating.

Again, the code for creating the module is:

Function AddModule() As CodeModule
On Error GoTo Err_AddModule
Dim lVBCmp As VBComponent
    Set lVBCmp = mVBProj.VBComponents.Add(vbext_ct_ClassModule)
    Set mMdl = lVBCmp.CodeModule
    mMdl.Name = mstrClassName
    mMdl.CodePane.Show
    mMdl.AddFromString mstrModule
    Set AddModule = mMdl
Exit_AddModule:
On Error Resume Next
Exit Function
Err_AddModule:
        MsgBox Err.Description, , "Error in Function basVBE.AddModule"
        Resume Exit_AddModule
    Resume 0    '.FOR TROUBLESHOOTING
End Function

The mObjects are dimensioned in the header of the class, and mVBProj is
instantiated in the Init:

    Set mVBProj = CurrentProject.Application.VBE.ActiveVBProject

I thought that CurrentProject was the application and thus would cause an
instance of the application even if run in a lib or add-in.

John W. Colby
www.ColbyConsulting.com 




From reuben at gfconsultants.com  Fri Jan 13 09:25:36 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Fri, 13 Jan 2006 10:25:36 -0500
Subject: [AccessD] File Created with wrong name
Message-ID: <DPEKLCIHBOJKCKJECLCPGEONDAAA.reuben@gfconsultants.com>

I have a feature that allows a user to zip the data file or zip it and FTP
it to my web server.

It has worked flawlessly until now...the reason is that the file name that
the zip file got saved to was not what it's supposed to be.  I need help
figuring out why the file name was incorrect.

The data file (in this case) is named   chrttable.mdb

I append some data from the app to create a unique file name.  The name ends
up being   chrttableAllenCounty01132006.zip

The client's system produced a zip file named     chrtta~1.zip

Why is the name trucnated and changed to chrtta~1.zip?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017






From Gustav at cactus.dk  Fri Jan 13 09:46:11 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 13 Jan 2006 16:46:11 +0100
Subject: [AccessD] File Created with wrong name
Message-ID: <s3c7d968.095@cactus.dk>

Hi Reuben

It's the short filename.

You may convert to and from the short and long filename:

<code>

' -------------------------------------------------------------------------
' Declarations for GetShortFileName.

Private Declare Function GetLongPathName Lib "kernel32" Alias "GetLongPathNameA" ( _
  ByVal lpszShortPath As String, _
  ByVal lpszLongPath As String, _
  ByVal cchBuffer As Long) As Long

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" ( _
  ByVal lpszLongPath As String, _
  ByVal lpszShortPath As String, _
  ByVal cchBuffer As Long) As Long


Public Function GetShortFileName(ByVal FullPath As String) As String

'PURPOSE: Returns DOS File Name (8.3 Format) Give
'FullPath for long file name

'PARAMETERS: FullPath: Full Path of Original File

'RETURNS: 8.3 FileName, or "" if FullPath doesn't
'         exist or file fails for other reasons

'EXAMPLE:
'Debug.Print _
'  GetShortFileName("C:\My Documents\My Very Long File Name.doc")

'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
'in the debug window

Dim lAns As Long
Dim sAns As String
Dim iLen As Integer
   
On Error Resume Next

'this function doesn't work if the file doesn't exist
'''If Dir(FullPath) = "" Then Exit Function

sAns = Space(255)
lAns = GetShortPathName(FullPath, sAns, 255)
GetShortFileName = Left(sAns, lAns)
    
End Function

Public Function GetLongFileName(ByVal FullPath As String) As String

'PURPOSE:
' Returns FullPath for short file name (8.3 Format)
' Give long File Name

'PARAMETERS: FullPath: Full Path of Original File

'RETURNS: FileName, or "" if FullPath doesn't
'         exist or file fails for other reasons

'EXAMPLE:
'Debug.Print _
'  GetShortFileName("C:\My Documents\My Very Long File Name.doc")

'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
'in the debug window

Dim lAns As Long
Dim sAns As String
Dim iLen As Integer
   
On Error Resume Next

'this function doesn't work if the file doesn't exist
'''If Dir(FullPath) = "" Then Exit Function

sAns = Space(255)
lAns = GetLongPathName(FullPath, sAns, 255)
GetLongFileName = Left(sAns, lAns)
    
End Function

</code>

/gustav


>>> reuben at gfconsultants.com 13-01-2006 16:25 >>>
I have a feature that allows a user to zip the data file or zip it and FTP
it to my web server.

It has worked flawlessly until now...the reason is that the file name that
the zip file got saved to was not what it's supposed to be.  I need help
figuring out why the file name was incorrect.

The data file (in this case) is named   chrttable.mdb

I append some data from the app to create a unique file name.  The name ends
up being   chrttableAllenCounty01132006.zip

The client's system produced a zip file named     chrtta~1.zip

Why is the name trucnated and changed to chrtta~1.zip?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017




From andy at minstersystems.co.uk  Fri Jan 13 09:54:59 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 13 Jan 2006 15:54:59 +0000
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)
Message-ID: <20060113155456.55B51255853@smtp.nildram.co.uk>

Well at long last I've cracked what was causing my strange crashes under
W2000. For the sake of the archives, and anyone else who encounters this
nightmare, I will tell all.

We all know that you can refer to controls on forms as form!ctl  or
form.ctl. We can argue about the rights and wrongs of the second of those
but we know you can do it. This is not about that argument. What, though, if
you have a field in a form's underlying recordsource but not on the form? If
you referenced that you'd think that you must use the ! form wouldn't you,
as there is no control? I would. But what if you inadvertently use the .
form? What, in particular, if you pass the form as a parameter to a function
and make that mistake inside the function (thereby giving the compiler no
chance of picking it up as an error)? Well maybe nothing...but then again
maybe programming havoc.

W98 seems to be extremely tolerant of this mistake. It treats it as if you'd
coded ! after all. You will be none the wiser about your slip-up. Moving the
same MDB to W2000 or XP was a different story. What happened there was that
once the offending line had been executed the system would inevitably crash,
at some point, either with a non-specific "Msaccess.exe has generated errors
and will be closed by Windows" error, or a GPF or a "Tried to write to
memory location xyz and you're not flipping allowed to" error. But the
'beauty' of this was that it *never* crashed on the line which caused the
errors, just at seemingly random points thereafter. So standard debugging
methods were useless. As fast as I put traps in one part of the system it
would crash somewhere else entirely. So I'd switch my attention to there,
and it blazes through there without a hitch and a couple of minutes later
GPFs somewhere else. I was tearing my hair out. In the end, and it's taken
all week, I took a different approach. I said, if I quit this area of code
after it's executed 1 line, do I get any crashes? Answer, no. If I allow it
to go to the end do I get crashes, answer yes. So, if I quit the code half
way through, do I get crashes? If yes the code before the half-way point is
causing it, if no it's between half-way and the end. You get the picture. In
that way I chopped and chopped and, a long, long time later, got down to the
function and then the line that made the difference. Not, remember, that
executing the line crashed, but that executing the line caused the system to
crash somewhere else soon. And that's when I saw that whilst the surrounding
lines were of the format

frm!fld = rst!fld

this one was

frm.fld = rst!fld

So I changed . to ! and lo and behold no more crashes.

And I can only talk about A97, as I can't test my app on anything else, and
I know it's not even a universal problem in A97 as I just tried to create a
little MDB to demo the problem, and it fails to crash. So there's no
consistency in any of this but there is a huge problem there somewhere, cos
when it does hit it's a terror. It's perhaps the closest I've come in 30
years of programming to saying I can't solve this because it defies logic.
But still, it's solved now, just in time for the week-end so I'll be having
a big drink tonight.

Thanks to all who responded to my plea earlier in the week. I was on the
wrong track with DLL's, although I think I can be forgiven for thinking
along those lines, and it was Shamil who urged me to focus on code. You were
right as ever Shamil, although even you might be taken aback by a seemingly
trivial coding error that 'works' itself but causes such collateral damage
elsewhere.

Have a good week-end all. I know I will.

--
Andy Lacey
http://www.minstersystems.co.uk


________________________________________________
Message sent using UebiMiau 2.7.2



From reuben at gfconsultants.com  Fri Jan 13 10:07:23 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Fri, 13 Jan 2006 11:07:23 -0500
Subject: [AccessD] File Created with wrong name
In-Reply-To: <s3c7d968.095@cactus.dk>
Message-ID: <DPEKLCIHBOJKCKJECLCPIEOPDAAA.reuben@gfconsultants.com>

Gustav, do you mean that although the file name is chrtta~1.zip that the
full name is still associated to it and can be found thru that second
function you sent?

I'm sure this is another one of those things I've missed out on by never
taking computer classes of any type.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: Friday, January 13, 2006 10:46 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] File Created with wrong name
>
>
> Hi Reuben
>
> It's the short filename.
>
> You may convert to and from the short and long filename:
>
> <code>
>
> '
> -------------------------------------------------------------------------
> ' Declarations for GetShortFileName.
>
> Private Declare Function GetLongPathName Lib "kernel32" Alias
> "GetLongPathNameA" ( _
>   ByVal lpszShortPath As String, _
>   ByVal lpszLongPath As String, _
>   ByVal cchBuffer As Long) As Long
>
> Private Declare Function GetShortPathName Lib "kernel32" Alias
> "GetShortPathNameA" ( _
>   ByVal lpszLongPath As String, _
>   ByVal lpszShortPath As String, _
>   ByVal cchBuffer As Long) As Long
>
>
> Public Function GetShortFileName(ByVal FullPath As String) As String
>
> 'PURPOSE: Returns DOS File Name (8.3 Format) Give
> 'FullPath for long file name
>
> 'PARAMETERS: FullPath: Full Path of Original File
>
> 'RETURNS: 8.3 FileName, or "" if FullPath doesn't
> '         exist or file fails for other reasons
>
> 'EXAMPLE:
> 'Debug.Print _
> '  GetShortFileName("C:\My Documents\My Very Long File Name.doc")
>
> 'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
> 'in the debug window
>
> Dim lAns As Long
> Dim sAns As String
> Dim iLen As Integer
>
> On Error Resume Next
>
> 'this function doesn't work if the file doesn't exist
> '''If Dir(FullPath) = "" Then Exit Function
>
> sAns = Space(255)
> lAns = GetShortPathName(FullPath, sAns, 255)
> GetShortFileName = Left(sAns, lAns)
>
> End Function
>
> Public Function GetLongFileName(ByVal FullPath As String) As String
>
> 'PURPOSE:
> ' Returns FullPath for short file name (8.3 Format)
> ' Give long File Name
>
> 'PARAMETERS: FullPath: Full Path of Original File
>
> 'RETURNS: FileName, or "" if FullPath doesn't
> '         exist or file fails for other reasons
>
> 'EXAMPLE:
> 'Debug.Print _
> '  GetShortFileName("C:\My Documents\My Very Long File Name.doc")
>
> 'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
> 'in the debug window
>
> Dim lAns As Long
> Dim sAns As String
> Dim iLen As Integer
>
> On Error Resume Next
>
> 'this function doesn't work if the file doesn't exist
> '''If Dir(FullPath) = "" Then Exit Function
>
> sAns = Space(255)
> lAns = GetLongPathName(FullPath, sAns, 255)
> GetLongFileName = Left(sAns, lAns)
>
> End Function
>
> </code>
>
> /gustav
>
>
> >>> reuben at gfconsultants.com 13-01-2006 16:25 >>>
> I have a feature that allows a user to zip the data file or zip it and FTP
> it to my web server.
>
> It has worked flawlessly until now...the reason is that the file name that
> the zip file got saved to was not what it's supposed to be.  I need help
> figuring out why the file name was incorrect.
>
> The data file (in this case) is named   chrttable.mdb
>
> I append some data from the app to create a unique file name.
> The name ends
> up being   chrttableAllenCounty01132006.zip
>
> The client's system produced a zip file named     chrtta~1.zip
>
> Why is the name trucnated and changed to chrtta~1.zip?
>
> Thanks.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From Gustav at cactus.dk  Fri Jan 13 10:12:42 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 13 Jan 2006 17:12:42 +0100
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000	crashes)
Message-ID: <s3c7dfac.096@cactus.dk>

Hi Andy

What a story and what a lesson. 
I've never liked the dot for bang. Even though the dot is needed for intellisense to work, I often change the dot back to a bang. 

You certainly deserve the weekend and a nice beer or two!
Thanks for enlighten us.

/gustav

>>> andy at minstersystems.co.uk 13-01-2006 16:54 >>>
Well at long last I've cracked what was causing my strange crashes under
W2000. For the sake of the archives, and anyone else who encounters this
nightmare, I will tell all.

We all know that you can refer to controls on forms as form!ctl  or
form.ctl. We can argue about the rights and wrongs of the second of those
but we know you can do it. This is not about that argument. What, though, if
you have a field in a form's underlying recordsource but not on the form? If
you referenced that you'd think that you must use the ! form wouldn't you,
as there is no control? I would. But what if you inadvertently use the .
form? What, in particular, if you pass the form as a parameter to a function
and make that mistake inside the function (thereby giving the compiler no
chance of picking it up as an error)? Well maybe nothing...but then again
maybe programming havoc.

W98 seems to be extremely tolerant of this mistake. It treats it as if you'd
coded ! after all. You will be none the wiser about your slip-up. Moving the
same MDB to W2000 or XP was a different story. What happened there was that
once the offending line had been executed the system would inevitably crash,
at some point, either with a non-specific "Msaccess.exe has generated errors
and will be closed by Windows" error, or a GPF or a "Tried to write to
memory location xyz and you're not flipping allowed to" error. But the
'beauty' of this was that it *never* crashed on the line which caused the
errors, just at seemingly random points thereafter. So standard debugging
methods were useless. As fast as I put traps in one part of the system it
would crash somewhere else entirely. So I'd switch my attention to there,
and it blazes through there without a hitch and a couple of minutes later
GPFs somewhere else. I was tearing my hair out. In the end, and it's taken
all week, I took a different approach. I said, if I quit this area of code
after it's executed 1 line, do I get any crashes? Answer, no. If I allow it
to go to the end do I get crashes, answer yes. So, if I quit the code half
way through, do I get crashes? If yes the code before the half-way point is
causing it, if no it's between half-way and the end. You get the picture. In
that way I chopped and chopped and, a long, long time later, got down to the
function and then the line that made the difference. Not, remember, that
executing the line crashed, but that executing the line caused the system to
crash somewhere else soon. And that's when I saw that whilst the surrounding
lines were of the format

frm!fld = rst!fld

this one was

frm.fld = rst!fld

So I changed . to ! and lo and behold no more crashes.

And I can only talk about A97, as I can't test my app on anything else, and
I know it's not even a universal problem in A97 as I just tried to create a
little MDB to demo the problem, and it fails to crash. So there's no
consistency in any of this but there is a huge problem there somewhere, cos
when it does hit it's a terror. It's perhaps the closest I've come in 30
years of programming to saying I can't solve this because it defies logic.
But still, it's solved now, just in time for the week-end so I'll be having
a big drink tonight.

Thanks to all who responded to my plea earlier in the week. I was on the
wrong track with DLL's, although I think I can be forgiven for thinking
along those lines, and it was Shamil who urged me to focus on code. You were
right as ever Shamil, although even you might be taken aback by a seemingly
trivial coding error that 'works' itself but causes such collateral damage
elsewhere.

Have a good week-end all. I know I will.

--
Andy Lacey
http://www.minstersystems.co.uk 




From cfoust at infostatsystems.com  Fri Jan 13 10:13:31 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 13 Jan 2006 08:13:31 -0800
Subject: [AccessD] Saving Code Builder generated class
Message-ID: <F55048AF7E974F429BB24597D7355EEABF1C@INFOSERVER04.infostat.local>

John,

Don't you want to use CodeProject instead of CurrentProject when
referring to the add-in?  

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 13, 2006 7:12 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Saving Code Builder generated class


It appears that Access is getting confused as to where the class is
being built.  I have a framework linked in to my FE and apparently the
add-in can't figure out what container the class belongs in.  When I
create the class and go look at it (it opens so I can see it) but up at
the top it says the container is the Add-In.  The save button is not
grayed out but if I try and click it, nothing happens.  If I then cut
the code out and insert another class and paste the code back in, I
still can't save it.  If I open a module inside the actual application
first, then insert a new class and paste in the code, I can now save it
(prompted for the class name of course) and it saves in the application.

So it appears that the code that actually creates the class is creating
it inside of the Add-In container and it is illegal to save changes to
that from the app using the Add-In.

The odd part is that somehow, someway (and VERY briefly) at the very
beginning I was able to create the module in the application container
and MANUALLY save it by clicking the save icon.

Very frustrating.

Again, the code for creating the module is:

Function AddModule() As CodeModule
On Error GoTo Err_AddModule
Dim lVBCmp As VBComponent
    Set lVBCmp = mVBProj.VBComponents.Add(vbext_ct_ClassModule)
    Set mMdl = lVBCmp.CodeModule
    mMdl.Name = mstrClassName
    mMdl.CodePane.Show
    mMdl.AddFromString mstrModule
    Set AddModule = mMdl
Exit_AddModule:
On Error Resume Next
Exit Function
Err_AddModule:
        MsgBox Err.Description, , "Error in Function basVBE.AddModule"
        Resume Exit_AddModule
    Resume 0    '.FOR TROUBLESHOOTING
End Function

The mObjects are dimensioned in the header of the class, and mVBProj is
instantiated in the Init:

    Set mVBProj = CurrentProject.Application.VBE.ActiveVBProject

I thought that CurrentProject was the application and thus would cause
an instance of the application even if run in a lib or add-in.

John W. Colby
www.ColbyConsulting.com 


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


From Gustav at cactus.dk  Fri Jan 13 10:18:34 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 13 Jan 2006 17:18:34 +0100
Subject: [AccessD] File Created with wrong name
Message-ID: <s3c7e0fc.098@cactus.dk>

Hi Reuben

Yes, as soon as a long file name is created, so is a short. But not vice versa.
That's for the OS. If the file is saved in a zip with the short name, the long file name is lost for the receiver of the zip file.

Of course you should test it, but that's not a big deal.

/gustav

>>> reuben at gfconsultants.com 13-01-2006 17:07 >>>
Gustav, do you mean that although the file name is chrtta~1.zip that the
full name is still associated to it and can be found thru that second
function you sent?

I'm sure this is another one of those things I've missed out on by never
taking computer classes of any type.

Reuben Cummings
GFC, LLC
812.523.1017




From cfoust at infostatsystems.com  Fri Jan 13 10:31:24 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 13 Jan 2006 08:31:24 -0800
Subject: [AccessD] File Created with wrong name
Message-ID: <F55048AF7E974F429BB24597D7355EEABF1E@INFOSERVER04.infostat.local>

It isn't exactly an issue of computer classes, Reuben, more like ancient
history.  Early on, file names were limited to 8 characters plus an
extension.  Windows eventually (Win 98?) allowed longer file names in
the Windows interface but kept the short form as well, probably for DOS
compatibility.  The ~1 indicates that this is the first zip file with a
name that begins with the characters chrtta and which has a file name
longer than 8 characters.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben
Cummings
Sent: Friday, January 13, 2006 8:07 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] File Created with wrong name


Gustav, do you mean that although the file name is chrtta~1.zip that the
full name is still associated to it and can be found thru that second
function you sent?

I'm sure this is another one of those things I've missed out on by never
taking computer classes of any type.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: Friday, January 13, 2006 10:46 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] File Created with wrong name
>
>
> Hi Reuben
>
> It's the short filename.
>
> You may convert to and from the short and long filename:
>
> <code>
>
> '
> ----------------------------------------------------------------------
> ---
> ' Declarations for GetShortFileName.
>
> Private Declare Function GetLongPathName Lib "kernel32" Alias 
> "GetLongPathNameA" ( _
>   ByVal lpszShortPath As String, _
>   ByVal lpszLongPath As String, _
>   ByVal cchBuffer As Long) As Long
>
> Private Declare Function GetShortPathName Lib "kernel32" Alias 
> "GetShortPathNameA" ( _
>   ByVal lpszLongPath As String, _
>   ByVal lpszShortPath As String, _
>   ByVal cchBuffer As Long) As Long
>
>
> Public Function GetShortFileName(ByVal FullPath As String) As String
>
> 'PURPOSE: Returns DOS File Name (8.3 Format) Give
> 'FullPath for long file name
>
> 'PARAMETERS: FullPath: Full Path of Original File
>
> 'RETURNS: 8.3 FileName, or "" if FullPath doesn't
> '         exist or file fails for other reasons
>
> 'EXAMPLE:
> 'Debug.Print _
> '  GetShortFileName("C:\My Documents\My Very Long File Name.doc")
>
> 'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
> 'in the debug window
>
> Dim lAns As Long
> Dim sAns As String
> Dim iLen As Integer
>
> On Error Resume Next
>
> 'this function doesn't work if the file doesn't exist
> '''If Dir(FullPath) = "" Then Exit Function
>
> sAns = Space(255)
> lAns = GetShortPathName(FullPath, sAns, 255)
> GetShortFileName = Left(sAns, lAns)
>
> End Function
>
> Public Function GetLongFileName(ByVal FullPath As String) As String
>
> 'PURPOSE:
> ' Returns FullPath for short file name (8.3 Format)
> ' Give long File Name
>
> 'PARAMETERS: FullPath: Full Path of Original File
>
> 'RETURNS: FileName, or "" if FullPath doesn't
> '         exist or file fails for other reasons
>
> 'EXAMPLE:
> 'Debug.Print _
> '  GetShortFileName("C:\My Documents\My Very Long File Name.doc")
>
> 'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
> 'in the debug window
>
> Dim lAns As Long
> Dim sAns As String
> Dim iLen As Integer
>
> On Error Resume Next
>
> 'this function doesn't work if the file doesn't exist
> '''If Dir(FullPath) = "" Then Exit Function
>
> sAns = Space(255)
> lAns = GetLongPathName(FullPath, sAns, 255)
> GetLongFileName = Left(sAns, lAns)
>
> End Function
>
> </code>
>
> /gustav
>
>
> >>> reuben at gfconsultants.com 13-01-2006 16:25 >>>
> I have a feature that allows a user to zip the data file or zip it and

> FTP it to my web server.
>
> It has worked flawlessly until now...the reason is that the file name 
> that the zip file got saved to was not what it's supposed to be.  I 
> need help figuring out why the file name was incorrect.
>
> The data file (in this case) is named   chrttable.mdb
>
> I append some data from the app to create a unique file name. The name

> ends
> up being   chrttableAllenCounty01132006.zip
>
> The client's system produced a zip file named     chrtta~1.zip
>
> Why is the name trucnated and changed to chrtta~1.zip?
>
> Thanks.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>




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


From reuben at gfconsultants.com  Fri Jan 13 10:32:38 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Fri, 13 Jan 2006 11:32:38 -0500
Subject: [AccessD] File Created with wrong name
In-Reply-To: <DPEKLCIHBOJKCKJECLCPIEOPDAAA.reuben@gfconsultants.com>
Message-ID: <DPEKLCIHBOJKCKJECLCPMEPADAAA.reuben@gfconsultants.com>

The file in question was emailed to me and that long name thing does not
work on it (is that possibly lost in the emailing).

More importantly, why did their system store the file this way?

If I ALWAYS run this GetLongFileName on the path and file I plan to FTP I
should always get the correct path.  Because if I pass the long name I
should get the long name, correct?

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Reuben
> Cummings
> Sent: Friday, January 13, 2006 11:07 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] File Created with wrong name
>
>
> Gustav, do you mean that although the file name is chrtta~1.zip that the
> full name is still associated to it and can be found thru that second
> function you sent?
>
> I'm sure this is another one of those things I've missed out on by never
> taking computer classes of any type.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> > Sent: Friday, January 13, 2006 10:46 AM
> > To: accessd at databaseadvisors.com
> > Subject: Re: [AccessD] File Created with wrong name
> >
> >
> > Hi Reuben
> >
> > It's the short filename.
> >
> > You may convert to and from the short and long filename:
> >
> > <code>
> >
> > '
> >
> -------------------------------------------------------------------------
> > ' Declarations for GetShortFileName.
> >
> > Private Declare Function GetLongPathName Lib "kernel32" Alias
> > "GetLongPathNameA" ( _
> >   ByVal lpszShortPath As String, _
> >   ByVal lpszLongPath As String, _
> >   ByVal cchBuffer As Long) As Long
> >
> > Private Declare Function GetShortPathName Lib "kernel32" Alias
> > "GetShortPathNameA" ( _
> >   ByVal lpszLongPath As String, _
> >   ByVal lpszShortPath As String, _
> >   ByVal cchBuffer As Long) As Long
> >
> >
> > Public Function GetShortFileName(ByVal FullPath As String) As String
> >
> > 'PURPOSE: Returns DOS File Name (8.3 Format) Give
> > 'FullPath for long file name
> >
> > 'PARAMETERS: FullPath: Full Path of Original File
> >
> > 'RETURNS: 8.3 FileName, or "" if FullPath doesn't
> > '         exist or file fails for other reasons
> >
> > 'EXAMPLE:
> > 'Debug.Print _
> > '  GetShortFileName("C:\My Documents\My Very Long File Name.doc")
> >
> > 'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
> > 'in the debug window
> >
> > Dim lAns As Long
> > Dim sAns As String
> > Dim iLen As Integer
> >
> > On Error Resume Next
> >
> > 'this function doesn't work if the file doesn't exist
> > '''If Dir(FullPath) = "" Then Exit Function
> >
> > sAns = Space(255)
> > lAns = GetShortPathName(FullPath, sAns, 255)
> > GetShortFileName = Left(sAns, lAns)
> >
> > End Function
> >
> > Public Function GetLongFileName(ByVal FullPath As String) As String
> >
> > 'PURPOSE:
> > ' Returns FullPath for short file name (8.3 Format)
> > ' Give long File Name
> >
> > 'PARAMETERS: FullPath: Full Path of Original File
> >
> > 'RETURNS: FileName, or "" if FullPath doesn't
> > '         exist or file fails for other reasons
> >
> > 'EXAMPLE:
> > 'Debug.Print _
> > '  GetShortFileName("C:\My Documents\My Very Long File Name.doc")
> >
> > 'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
> > 'in the debug window
> >
> > Dim lAns As Long
> > Dim sAns As String
> > Dim iLen As Integer
> >
> > On Error Resume Next
> >
> > 'this function doesn't work if the file doesn't exist
> > '''If Dir(FullPath) = "" Then Exit Function
> >
> > sAns = Space(255)
> > lAns = GetLongPathName(FullPath, sAns, 255)
> > GetLongFileName = Left(sAns, lAns)
> >
> > End Function
> >
> > </code>
> >
> > /gustav
> >
> >
> > >>> reuben at gfconsultants.com 13-01-2006 16:25 >>>
> > I have a feature that allows a user to zip the data file or zip
> it and FTP
> > it to my web server.
> >
> > It has worked flawlessly until now...the reason is that the
> file name that
> > the zip file got saved to was not what it's supposed to be.  I need help
> > figuring out why the file name was incorrect.
> >
> > The data file (in this case) is named   chrttable.mdb
> >
> > I append some data from the app to create a unique file name.
> > The name ends
> > up being   chrttableAllenCounty01132006.zip
> >
> > The client's system produced a zip file named     chrtta~1.zip
> >
> > Why is the name trucnated and changed to chrtta~1.zip?
> >
> > Thanks.
> >
> > Reuben Cummings
> > GFC, LLC
> > 812.523.1017
> >
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
>
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From jwcolby at ColbyConsulting.com  Fri Jan 13 10:40:04 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 13 Jan 2006 11:40:04 -0500
Subject: [AccessD] Saving Code Builder generated class
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF1C@INFOSERVER04.infostat.local>
Message-ID: <007301c61860$01d2ff50$647aa8c0@ColbyM6805>

Well, I am trying to build a class in the project, not in the add-in.  In my
tiny mind, if I use CurrentProject I should get a handle to the stuff in the
application, thus if I build a module it should be built in the
CurrentProject. If I use CodeProject, then I would be telling it to build
the class in the container where the code is currently running which is the
add-in, not what I want.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Friday, January 13, 2006 11:14 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Saving Code Builder generated class

John,

Don't you want to use CodeProject instead of CurrentProject when referring
to the add-in?  

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 13, 2006 7:12 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Saving Code Builder generated class


It appears that Access is getting confused as to where the class is being
built.  I have a framework linked in to my FE and apparently the add-in
can't figure out what container the class belongs in.  When I create the
class and go look at it (it opens so I can see it) but up at the top it says
the container is the Add-In.  The save button is not grayed out but if I try
and click it, nothing happens.  If I then cut the code out and insert
another class and paste the code back in, I still can't save it.  If I open
a module inside the actual application first, then insert a new class and
paste in the code, I can now save it (prompted for the class name of course)
and it saves in the application.

So it appears that the code that actually creates the class is creating it
inside of the Add-In container and it is illegal to save changes to that
from the app using the Add-In.

The odd part is that somehow, someway (and VERY briefly) at the very
beginning I was able to create the module in the application container and
MANUALLY save it by clicking the save icon.

Very frustrating.

Again, the code for creating the module is:

Function AddModule() As CodeModule
On Error GoTo Err_AddModule
Dim lVBCmp As VBComponent
    Set lVBCmp = mVBProj.VBComponents.Add(vbext_ct_ClassModule)
    Set mMdl = lVBCmp.CodeModule
    mMdl.Name = mstrClassName
    mMdl.CodePane.Show
    mMdl.AddFromString mstrModule
    Set AddModule = mMdl
Exit_AddModule:
On Error Resume Next
Exit Function
Err_AddModule:
        MsgBox Err.Description, , "Error in Function basVBE.AddModule"
        Resume Exit_AddModule
    Resume 0    '.FOR TROUBLESHOOTING
End Function

The mObjects are dimensioned in the header of the class, and mVBProj is
instantiated in the Init:

    Set mVBProj = CurrentProject.Application.VBE.ActiveVBProject

I thought that CurrentProject was the application and thus would cause an
instance of the application even if run in a lib or add-in.

John W. Colby
www.ColbyConsulting.com 


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



From darrend at nimble.com.au  Fri Jan 13 10:43:49 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Sat, 14 Jan 2006 03:43:49 +1100
Subject: [AccessD] A2003:Navigating using Web Browser Control
Message-ID: <20060113164350.YDQJ1358.omta03sl.mx.bigpond.com@DENZILLAP>

Hi all
Using the Microsoft Web Browser from the ActiveX list
Dropped it onto a form - all good
I can go to a page by using code such as...
Me.actxWebBrowser.navigate www.databaseadvisors.com
No problem
 
When I click a link inside the 'loaded' web page - how am I to detremine this
'new address'?
 
I have tried various things like...
me.actxWebBrowser.navigate.value
etc with no success
 
Any suggestions?
 
Many thanks in advanmce
 
Darren
 
FYI
OLE CLASS =Microsoft Web Browser
CLASS = Shell.Explorer.2 
 


From jwcolby at ColbyConsulting.com  Fri Jan 13 10:44:21 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 13 Jan 2006 11:44:21 -0500
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)
In-Reply-To: <20060113155456.55B51255853@smtp.nildram.co.uk>
Message-ID: <007401c61860$9ae31c20$647aa8c0@ColbyM6805>

Andy,

I chased a similar bug for weeks.  I used a function that wrote to a text
file, setting statements to perform the write down through the code.  Thus I
could find "the code wrote this one, and this one, and this one, but failed
to write this one".  It made it a matter of pasting in these "write a
number" statements in and made the narrowing down much quicker.

Fascinating bug though.  You should report that one to MS.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
Sent: Friday, January 13, 2006 10:55 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)

Well at long last I've cracked what was causing my strange crashes under
W2000. For the sake of the archives, and anyone else who encounters this
nightmare, I will tell all.

We all know that you can refer to controls on forms as form!ctl  or
form.ctl. We can argue about the rights and wrongs of the second of those
but we know you can do it. This is not about that argument. What, though, if
you have a field in a form's underlying recordsource but not on the form? If
you referenced that you'd think that you must use the ! form wouldn't you,
as there is no control? I would. But what if you inadvertently use the .
form? What, in particular, if you pass the form as a parameter to a function
and make that mistake inside the function (thereby giving the compiler no
chance of picking it up as an error)? Well maybe nothing...but then again
maybe programming havoc.

W98 seems to be extremely tolerant of this mistake. It treats it as if you'd
coded ! after all. You will be none the wiser about your slip-up. Moving the
same MDB to W2000 or XP was a different story. What happened there was that
once the offending line had been executed the system would inevitably crash,
at some point, either with a non-specific "Msaccess.exe has generated errors
and will be closed by Windows" error, or a GPF or a "Tried to write to
memory location xyz and you're not flipping allowed to" error. But the
'beauty' of this was that it *never* crashed on the line which caused the
errors, just at seemingly random points thereafter. So standard debugging
methods were useless. As fast as I put traps in one part of the system it
would crash somewhere else entirely. So I'd switch my attention to there,
and it blazes through there without a hitch and a couple of minutes later
GPFs somewhere else. I was tearing my hair out. In the end, and it's taken
all week, I took a different approach. I said, if I quit this area of code
after it's executed 1 line, do I get any crashes? Answer, no. If I allow it
to go to the end do I get crashes, answer yes. So, if I quit the code half
way through, do I get crashes? If yes the code before the half-way point is
causing it, if no it's between half-way and the end. You get the picture. In
that way I chopped and chopped and, a long, long time later, got down to the
function and then the line that made the difference. Not, remember, that
executing the line crashed, but that executing the line caused the system to
crash somewhere else soon. And that's when I saw that whilst the surrounding
lines were of the format

frm!fld = rst!fld

this one was

frm.fld = rst!fld

So I changed . to ! and lo and behold no more crashes.

And I can only talk about A97, as I can't test my app on anything else, and
I know it's not even a universal problem in A97 as I just tried to create a
little MDB to demo the problem, and it fails to crash. So there's no
consistency in any of this but there is a huge problem there somewhere, cos
when it does hit it's a terror. It's perhaps the closest I've come in 30
years of programming to saying I can't solve this because it defies logic.
But still, it's solved now, just in time for the week-end so I'll be having
a big drink tonight.

Thanks to all who responded to my plea earlier in the week. I was on the
wrong track with DLL's, although I think I can be forgiven for thinking
along those lines, and it was Shamil who urged me to focus on code. You were
right as ever Shamil, although even you might be taken aback by a seemingly
trivial coding error that 'works' itself but causes such collateral damage
elsewhere.

Have a good week-end all. I know I will.

--
Andy Lacey
http://www.minstersystems.co.uk


________________________________________________
Message sent using UebiMiau 2.7.2

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



From Gustav at cactus.dk  Fri Jan 13 10:47:19 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 13 Jan 2006 17:47:19 +0100
Subject: [AccessD] File Created with wrong name
Message-ID: <s3c7e7bd.000@cactus.dk>

Hi Reuben

Yes, if all you receive is a zip with a file given a short name, that's it.
Why the short name was zipped is difficult to say. In Win9x with FAT or FAT32 file system I think you could set it up to use short filenames only; I'm not sure about NTFS file system.

A primitive method to preserve the long file name is to save it as text in a text file, say filename.txt, and include that in the zip. Then, at the receiver, unzip both files and read the true name from the text file.

/gustav

>>> reuben at gfconsultants.com 13-01-2006 17:32 >>>
The file in question was emailed to me and that long name thing does not
work on it (is that possibly lost in the emailing).

More importantly, why did their system store the file this way?

If I ALWAYS run this GetLongFileName on the path and file I plan to FTP I
should always get the correct path.  Because if I pass the long name I
should get the long name, correct?

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Reuben
> Cummings
> Sent: Friday, January 13, 2006 11:07 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] File Created with wrong name
>
>
> Gustav, do you mean that although the file name is chrtta~1.zip that the
> full name is still associated to it and can be found thru that second
> function you sent?
>
> I'm sure this is another one of those things I've missed out on by never
> taking computer classes of any type.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017




From cfoust at infostatsystems.com  Fri Jan 13 10:52:39 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 13 Jan 2006 08:52:39 -0800
Subject: [AccessD] Saving Code Builder generated class
Message-ID: <F55048AF7E974F429BB24597D7355EEABF1F@INFOSERVER04.infostat.local>

Sorry, I misunderstood which project you were trying to add it to.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 13, 2006 8:40 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Saving Code Builder generated class


Well, I am trying to build a class in the project, not in the add-in.
In my tiny mind, if I use CurrentProject I should get a handle to the
stuff in the application, thus if I build a module it should be built in
the CurrentProject. If I use CodeProject, then I would be telling it to
build the class in the container where the code is currently running
which is the add-in, not what I want.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Friday, January 13, 2006 11:14 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Saving Code Builder generated class

John,

Don't you want to use CodeProject instead of CurrentProject when
referring to the add-in?  

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 13, 2006 7:12 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Saving Code Builder generated class


It appears that Access is getting confused as to where the class is
being built.  I have a framework linked in to my FE and apparently the
add-in can't figure out what container the class belongs in.  When I
create the class and go look at it (it opens so I can see it) but up at
the top it says the container is the Add-In.  The save button is not
grayed out but if I try and click it, nothing happens.  If I then cut
the code out and insert another class and paste the code back in, I
still can't save it.  If I open a module inside the actual application
first, then insert a new class and paste in the code, I can now save it
(prompted for the class name of course) and it saves in the application.

So it appears that the code that actually creates the class is creating
it inside of the Add-In container and it is illegal to save changes to
that from the app using the Add-In.

The odd part is that somehow, someway (and VERY briefly) at the very
beginning I was able to create the module in the application container
and MANUALLY save it by clicking the save icon.

Very frustrating.

Again, the code for creating the module is:

Function AddModule() As CodeModule
On Error GoTo Err_AddModule
Dim lVBCmp As VBComponent
    Set lVBCmp = mVBProj.VBComponents.Add(vbext_ct_ClassModule)
    Set mMdl = lVBCmp.CodeModule
    mMdl.Name = mstrClassName
    mMdl.CodePane.Show
    mMdl.AddFromString mstrModule
    Set AddModule = mMdl
Exit_AddModule:
On Error Resume Next
Exit Function
Err_AddModule:
        MsgBox Err.Description, , "Error in Function basVBE.AddModule"
        Resume Exit_AddModule
    Resume 0    '.FOR TROUBLESHOOTING
End Function

The mObjects are dimensioned in the header of the class, and mVBProj is
instantiated in the Init:

    Set mVBProj = CurrentProject.Application.VBE.ActiveVBProject

I thought that CurrentProject was the application and thus would cause
an instance of the application even if run in a lib or add-in.

John W. Colby
www.ColbyConsulting.com 


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

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


From mlcollins at direcway.com  Fri Jan 13 10:58:16 2006
From: mlcollins at direcway.com (michael collins)
Date: Fri, 13 Jan 2006 10:58:16 -0600
Subject: [AccessD] File Created with wrong name
In-Reply-To: <DPEKLCIHBOJKCKJECLCPGEONDAAA.reuben@gfconsultants.com>
Message-ID: <NJBBLMJNGLIDBIMJIHGLIEBIDAAA.mlcollins@direcway.com>

Their system is set to use only short file names.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Reuben
Cummings
Sent: Friday, January 13, 2006 9:26 AM
To: AccessD
Subject: [AccessD] File Created with wrong name


I have a feature that allows a user to zip the data file or zip it and FTP
it to my web server.

It has worked flawlessly until now...the reason is that the file name that
the zip file got saved to was not what it's supposed to be.  I need help
figuring out why the file name was incorrect.

The data file (in this case) is named   chrttable.mdb

I append some data from the app to create a unique file name.  The name ends
up being   chrttableAllenCounty01132006.zip

The client's system produced a zip file named     chrtta~1.zip

Why is the name trucnated and changed to chrtta~1.zip?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017




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



From garykjos at gmail.com  Fri Jan 13 11:03:16 2006
From: garykjos at gmail.com (Gary Kjos)
Date: Fri, 13 Jan 2006 11:03:16 -0600
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)
In-Reply-To: <20060113155456.55B51255853@smtp.nildram.co.uk>
References: <20060113155456.55B51255853@smtp.nildram.co.uk>
Message-ID: <aea6c4950601130903pbafe8ei58a3211d517e6b89@mail.gmail.com>

Yea Andy!!!  Great job figuring it out <BANG>

--
Gary Kjos
garykjos at gmail.com


From DWUTKA at marlow.com  Fri Jan 13 11:03:07 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Fri, 13 Jan 2006 11:03:07 -0600
Subject: [AccessD] A2003:Navigating using Web Browser Control
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD53D@main2.marlow.com>

There should be a navigate event, that should have the new URL as an
argument.

Drew

-----Original Message-----
From: Darren DICK [mailto:darrend at nimble.com.au]
Sent: Friday, January 13, 2006 10:44 AM
To: AccessD
Subject: [AccessD] A2003:Navigating using Web Browser Control


Hi all
Using the Microsoft Web Browser from the ActiveX list
Dropped it onto a form - all good
I can go to a page by using code such as...
Me.actxWebBrowser.navigate www.databaseadvisors.com
No problem
 
When I click a link inside the 'loaded' web page - how am I to detremine
this
'new address'?
 
I have tried various things like...
me.actxWebBrowser.navigate.value
etc with no success
 
Any suggestions?
 
Many thanks in advanmce
 
Darren
 
FYI
OLE CLASS =Microsoft Web Browser
CLASS = Shell.Explorer.2 
 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From shamil at users.mns.ru  Fri Jan 13 11:17:03 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Fri, 13 Jan 2006 20:17:03 +0300
Subject: [AccessD] Class builder
References: <006301c6184e$2c870640$647aa8c0@ColbyM6805>
Message-ID: <001f01c61865$2cd6dc80$6401a8c0@fincomplex.spb.ru>

John,

The code I posted here works because it was tested before posting but it
works in another context.

You didn't say you write a (kind of) COM add-in and manipulate class modules
via VBE.

If you will not solve this problem until tomorrow I will check my archives
to find how it can be done - I did that both in MS Access and MS Excel -
it's simple but needs some testing...

I have to do some urgent work now...

Shamil

----- Original Message ----- 
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 5:32 PM
Subject: Re: [AccessD] Class builder


> Shamil,
>
> Well, that didn't work.  I am trying to build this as an Add-In and
> apparently the .RunCommand acCmdNewObjectClassModule isn't available in
the
> context of code running out in an add-in.  I had been using the following
> code to get a module:
>
> Dim lMdl As VBComponent
> Dim VBProj As VBProject
>     Set VBProj = Application.VBE.ActiveVBProject
>     Set lMdl =
> Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_ClassModule)
>     lMdl.Name = strModuleName
>     Set AddModule = lMdl.CodeModule
>
> The "lMdl.Name = strModuleName" does correctly set the name of the class
> module.  The problem is that the created class is in limbo somewhere.  It
> exists, i.e. if I try it again, the "lMdl.Name = strModuleName" causes a
run
> time error.  I cannot save it however.  Even opening a module in the
current
> app and clicking save doesn't save it.
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> Salakhetdinov
> Sent: Friday, January 13, 2006 3:53 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Class builder
>
> John,
>
> Here is one of the methods how a new class module can be created and saved
> using VBA:
>
> Dim mdl As Access.Module
> Dim objApp As Access.Application
> Dim strTempMdlName As String
> Dim strMdlName As String
>     Set objApp = Access.Application
>     strMdlName = "CTestClassModule"
>
>     With objApp.DoCmd
>         .RunCommand acCmdNewObjectClassModule
>         Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
>         strTempMdlName = mdl.Name
>
>         mdl.InsertText "public TestProperty as integer"
>
>         .Close acModule, strTempMdlName, acSaveYes
>         .Rename strMdlName, acModule, strTempMdlName
>     End With
>
> Make sure there is no class module with the name CTestClassModule in your
> database...
>
> Shamil
>
> ----- Original Message -----
> From: "John Colby" <jwcolby at ColbyConsulting.com>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Sent: Friday, January 13, 2006 4:08 AM
> Subject: [AccessD] Class builder
>
>
> > I have just finished a little class builder.  If anyone wants to play
with
> > it let me know.
> >
> > In the meantime, the one thing I can't figure out is how to save the
newly
> > created class.  I can click the save button and it saves the new module,
> but
> > I can't make it happen from VBA.  Anyone know what object saves unsaved
> > modules?
> >
> > John W. Colby
> > www.ColbyConsulting.com
> >
> >
> > -- 
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From darrend at nimble.com.au  Fri Jan 13 11:18:37 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Sat, 14 Jan 2006 04:18:37 +1100
Subject: [AccessD] A2003:Navigating using Web Browser Control
Message-ID: <20060113171839.YHOG1358.omta03sl.mx.bigpond.com@DENZILLAP>

Hi Drew 

Long time no speak :-))

I Agree...there should be a navigate event but how would I interrogate it and
get its results?

DD

-----Original Message-----

From: accessd-bounces at databaseadvisors.com [
<mailto:accessd-bounces at databaseadvisors.com>
mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com

Sent: Saturday, 14 January 2006 4:03 AM

To: accessd at databaseadvisors.com

Subject: Re: [AccessD] A2003:Navigating using Web Browser Control

There should be a navigate event, that should have the new URL as an argument.

Drew

-----Original Message-----

From: Darren DICK [ <mailto:darrend at nimble.com.au> mailto:darrend at nimble.com.au]

Sent: Friday, January 13, 2006 10:44 AM

To: AccessD

Subject: [AccessD] A2003:Navigating using Web Browser Control

Hi all

Using the Microsoft Web Browser from the ActiveX list Dropped it onto a form -
all good I can go to a page by using code such as...

Me.actxWebBrowser.navigate  <outbind://3/www.databaseadvisors.com>
www.databaseadvisors.com No problem

When I click a link inside the 'loaded' web page - how am I to detremine this
'new address'?

I have tried various things like...

me.actxWebBrowser.navigate.value

etc with no success

Any suggestions?

Many thanks in advanmce

Darren

FYI

OLE CLASS =Microsoft Web Browser

CLASS = Shell.Explorer.2 



From reuben at gfconsultants.com  Fri Jan 13 11:30:13 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Fri, 13 Jan 2006 12:30:13 -0500
Subject: [AccessD] File Created with wrong name
In-Reply-To: <NJBBLMJNGLIDBIMJIHGLIEBIDAAA.mlcollins@direcway.com>
Message-ID: <DPEKLCIHBOJKCKJECLCPMEPEDAAA.reuben@gfconsultants.com>

I don't know about that.

It allows the data file to be named chrttable.mdb (9 letters)  I also have
another be with a 9 letter name there.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of michael
> collins
> Sent: Friday, January 13, 2006 11:58 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] File Created with wrong name
>
>
> Their system is set to use only short file names.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Reuben
> Cummings
> Sent: Friday, January 13, 2006 9:26 AM
> To: AccessD
> Subject: [AccessD] File Created with wrong name
>
>
> I have a feature that allows a user to zip the data file or zip it and FTP
> it to my web server.
>
> It has worked flawlessly until now...the reason is that the file name that
> the zip file got saved to was not what it's supposed to be.  I need help
> figuring out why the file name was incorrect.
>
> The data file (in this case) is named   chrttable.mdb
>
> I append some data from the app to create a unique file name.
> The name ends
> up being   chrttableAllenCounty01132006.zip
>
> The client's system produced a zip file named     chrtta~1.zip
>
> Why is the name trucnated and changed to chrtta~1.zip?
>
> Thanks.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From DWUTKA at marlow.com  Fri Jan 13 11:27:49 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Fri, 13 Jan 2006 11:27:49 -0600
Subject: [AccessD] A2003:Navigating using Web Browser Control
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD543@main2.marlow.com>

Are you just referencing the browser in code, if so, you need to dimension
it 'withevents' so you are hooked into it's events.  If you are dropping it
as an ActiveX control, on a form, it should be an object within the forms
code page with events you can write code for.

Drew

-----Original Message-----
From: Darren DICK [mailto:darrend at nimble.com.au]
Sent: Friday, January 13, 2006 11:19 AM
To: AccessD
Subject: Re: [AccessD] A2003:Navigating using Web Browser Control


Hi Drew 

Long time no speak :-))

I Agree...there should be a navigate event but how would I interrogate it
and
get its results?

DD

-----Original Message-----

From: accessd-bounces at databaseadvisors.com [
<mailto:accessd-bounces at databaseadvisors.com>
mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com

Sent: Saturday, 14 January 2006 4:03 AM

To: accessd at databaseadvisors.com

Subject: Re: [AccessD] A2003:Navigating using Web Browser Control

There should be a navigate event, that should have the new URL as an
argument.

Drew

-----Original Message-----

From: Darren DICK [ <mailto:darrend at nimble.com.au>
mailto:darrend at nimble.com.au]

Sent: Friday, January 13, 2006 10:44 AM

To: AccessD

Subject: [AccessD] A2003:Navigating using Web Browser Control

Hi all

Using the Microsoft Web Browser from the ActiveX list Dropped it onto a form
-
all good I can go to a page by using code such as...

Me.actxWebBrowser.navigate  <outbind://3/www.databaseadvisors.com>
www.databaseadvisors.com No problem

When I click a link inside the 'loaded' web page - how am I to detremine
this
'new address'?

I have tried various things like...

me.actxWebBrowser.navigate.value

etc with no success

Any suggestions?

Many thanks in advanmce

Darren

FYI

OLE CLASS =Microsoft Web Browser

CLASS = Shell.Explorer.2 

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


From shamil at users.mns.ru  Fri Jan 13 11:41:42 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Fri, 13 Jan 2006 20:41:42 +0300
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)
References: <20060113155456.55B51255853@smtp.nildram.co.uk>
Message-ID: <002d01c61868$a10bd350$6401a8c0@fincomplex.spb.ru>

Congratulations, Andy!

> although even you might be taken aback by a seemingly
> trivial coding error that 'works' itself but causes such collateral damage
> elsewhere.
No, I wouldn't :)
I did fix many issues like that - didn'ty I say there is no miracles in
software programming and that you will sleep well only when you find the
real cause of your trouble?

I have had similar error(s) in the past with legacy code coming from MS
Access 2.0 where dot was allowed.
But in your case I didn't expect your code has MS Access 2.0 roots.

Of course I should have recommend you to check dot vs. bang first of all.
Sorry I didn't do that.

But I did say you to analize your code for your wizard when you wrote that
you get wizard steps automated.
And to take close attention on your using default properties.

> this one was
> frm.fld = rst!fld
This is exactly the case of "default properties + dot vs. bang nightmare".
And I do remember there was a KB article or something like that in the past
on this subject. I did try to find it for you but failed Then I forgot to
recommend to check you first of all dot vs. bang code because of other work.
My fault...

Is that frm.fld a checkbox?

Have a nice weekend and a good night sleep at last!

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 6:54 PM
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)


> Well at long last I've cracked what was causing my strange crashes under
> W2000. For the sake of the archives, and anyone else who encounters this
> nightmare, I will tell all.
>
> We all know that you can refer to controls on forms as form!ctl  or
> form.ctl. We can argue about the rights and wrongs of the second of those
> but we know you can do it. This is not about that argument. What, though,
if
> you have a field in a form's underlying recordsource but not on the form?
If
> you referenced that you'd think that you must use the ! form wouldn't you,
> as there is no control? I would. But what if you inadvertently use the .
> form? What, in particular, if you pass the form as a parameter to a
function
> and make that mistake inside the function (thereby giving the compiler no
> chance of picking it up as an error)? Well maybe nothing...but then again
> maybe programming havoc.
>
> W98 seems to be extremely tolerant of this mistake. It treats it as if
you'd
> coded ! after all. You will be none the wiser about your slip-up. Moving
the
> same MDB to W2000 or XP was a different story. What happened there was
that
> once the offending line had been executed the system would inevitably
crash,
> at some point, either with a non-specific "Msaccess.exe has generated
errors
> and will be closed by Windows" error, or a GPF or a "Tried to write to
> memory location xyz and you're not flipping allowed to" error. But the
> 'beauty' of this was that it *never* crashed on the line which caused the
> errors, just at seemingly random points thereafter. So standard debugging
> methods were useless. As fast as I put traps in one part of the system it
> would crash somewhere else entirely. So I'd switch my attention to there,
> and it blazes through there without a hitch and a couple of minutes later
> GPFs somewhere else. I was tearing my hair out. In the end, and it's taken
> all week, I took a different approach. I said, if I quit this area of code
> after it's executed 1 line, do I get any crashes? Answer, no. If I allow
it
> to go to the end do I get crashes, answer yes. So, if I quit the code half
> way through, do I get crashes? If yes the code before the half-way point
is
> causing it, if no it's between half-way and the end. You get the picture.
In
> that way I chopped and chopped and, a long, long time later, got down to
the
> function and then the line that made the difference. Not, remember, that
> executing the line crashed, but that executing the line caused the system
to
> crash somewhere else soon. And that's when I saw that whilst the
surrounding
> lines were of the format
>
> frm!fld = rst!fld
>
> this one was
>
> frm.fld = rst!fld
>
> So I changed . to ! and lo and behold no more crashes.
>
> And I can only talk about A97, as I can't test my app on anything else,
and
> I know it's not even a universal problem in A97 as I just tried to create
a
> little MDB to demo the problem, and it fails to crash. So there's no
> consistency in any of this but there is a huge problem there somewhere,
cos
> when it does hit it's a terror. It's perhaps the closest I've come in 30
> years of programming to saying I can't solve this because it defies logic.
> But still, it's solved now, just in time for the week-end so I'll be
having
> a big drink tonight.
>
> Thanks to all who responded to my plea earlier in the week. I was on the
> wrong track with DLL's, although I think I can be forgiven for thinking
> along those lines, and it was Shamil who urged me to focus on code. You
were
> right as ever Shamil, although even you might be taken aback by a
seemingly
> trivial coding error that 'works' itself but causes such collateral damage
> elsewhere.
>
> Have a good week-end all. I know I will.
>
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
>
> ________________________________________________
> Message sent using UebiMiau 2.7.2
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Patricia.O'Connor at otda.state.ny.us  Fri Jan 13 11:39:37 2006
From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA))
Date: Fri, 13 Jan 2006 12:39:37 -0500
Subject: [AccessD] OT file with PIC extension
Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B2361@EXCNYSM0A1AI.nysemail.nyenet>

Thanks Erwin and John
The quicktime view did not work. 
Since there are at least 3 different file types in these folders  DRW,
WK1, and PIC.
I can open the WK1 with Excel. I will check with Supe to see if I need
to go on with this. I have several other things with higher priority

 Patti
**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
**************************************************
 

> 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system. 


-----Original Message-----

> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Erwin Craps - IT Helps
> Sent: Friday, January 13, 2006 02:08 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] OT file with PIC extension
> 
> Hi
> 
> Just checked in Coreldraw Photopaint.
> 
> .PIC is a Lotus picture file.
> It should be posible to open it in Coreldraw Photopaint an to 
> convert it to something more current (JPG?).
> If its only a couple of them I'm willing to convert them for you.
> If you have a lot of them in one folder, maybe I cn convert a 
> litle script of mine to automize this.
> You better mail me directly, I'm not checking the list every day...
> Erwin.Craps at ithelps.be
> 
> But hold your horses (files :-) a bit.
> Just checked my Explorer File extensions.
> The PIC extension seems to be related with the Quicktime viewer.
> C:\PROGRA~1\QUICKT~1\PictureViewer.exe"
> 
> So if I'm not mistaking, if you install the Quicktime viewer 
> you can doubleclick the file and see the content.
> Here's where you can find it.
> http://www.apple.com/quicktime/win.html
> 
> 
> 
> Erwin
>


From darrend at nimble.com.au  Fri Jan 13 11:41:40 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Sat, 14 Jan 2006 04:41:40 +1100
Subject: [AccessD] A2003:Navigating using Web Browser Control
In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD543@main2.marlow.com>
Message-ID: <20060113174142.TCHP18661.omta02sl.mx.bigpond.com@DENZILLAP>

Howdy
Yep it's an activeX
But I am a luddite and have no idea what you mean :-))
What's a 'forms code page'?

All I know is I can pass values to the dot navigate property of the Active X
control
I just wanna find a property for something like dot CurrentURLIs blah blah blah

The other stuff is far too cerebral for me - sorry

DD



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Saturday, 14 January 2006 4:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] A2003:Navigating using Web Browser Control

Are you just referencing the browser in code, if so, you need to dimension it
'withevents' so you are hooked into it's events.  If you are dropping it as an
ActiveX control, on a form, it should be an object within the forms code page
with events you can write code for.

Drew

-----Original Message-----
From: Darren DICK [mailto:darrend at nimble.com.au]
Sent: Friday, January 13, 2006 11:19 AM
To: AccessD
Subject: Re: [AccessD] A2003:Navigating using Web Browser Control


Hi Drew 

Long time no speak :-))

I Agree...there should be a navigate event but how would I interrogate it and
get its results?

DD

-----Original Message-----

From: accessd-bounces at databaseadvisors.com [
<mailto:accessd-bounces at databaseadvisors.com>
mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com

Sent: Saturday, 14 January 2006 4:03 AM

To: accessd at databaseadvisors.com

Subject: Re: [AccessD] A2003:Navigating using Web Browser Control

There should be a navigate event, that should have the new URL as an argument.

Drew

-----Original Message-----

From: Darren DICK [ <mailto:darrend at nimble.com.au> mailto:darrend at nimble.com.au]

Sent: Friday, January 13, 2006 10:44 AM

To: AccessD

Subject: [AccessD] A2003:Navigating using Web Browser Control

Hi all

Using the Microsoft Web Browser from the ActiveX list Dropped it onto a form
-
all good I can go to a page by using code such as...

Me.actxWebBrowser.navigate  <outbind://3/www.databaseadvisors.com>
www.databaseadvisors.com No problem

When I click a link inside the 'loaded' web page - how am I to detremine this
'new address'?

I have tried various things like...

me.actxWebBrowser.navigate.value

etc with no success

Any suggestions?

Many thanks in advanmce

Darren

FYI

OLE CLASS =Microsoft Web Browser

CLASS = Shell.Explorer.2 

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



From accessd at shaw.ca  Fri Jan 13 12:19:18 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Fri, 13 Jan 2006 10:19:18 -0800
Subject: [AccessD] Class builder
In-Reply-To: <00ec01c6181e$cb38a350$6401a8c0@fincomplex.spb.ru>
Message-ID: <003001c6186d$de64aec0$017ba8c0@xpserver>

Shamil... that is brilliant.

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: January 13, 2006 12:53 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Class builder

John,

Here is one of the methods how a new class module can be created and saved
using VBA:

Dim mdl As Access.Module
Dim objApp As Access.Application
Dim strTempMdlName As String
Dim strMdlName As String
    Set objApp = Access.Application
    strMdlName = "CTestClassModule"

    With objApp.DoCmd
        .RunCommand acCmdNewObjectClassModule
        Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
        strTempMdlName = mdl.Name

        mdl.InsertText "public TestProperty as integer"

        .Close acModule, strTempMdlName, acSaveYes
        .Rename strMdlName, acModule, strTempMdlName
    End With

Make sure there is no class module with the name CTestClassModule in your
database...

Shamil

----- Original Message ----- 
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 4:08 AM
Subject: [AccessD] Class builder


> I have just finished a little class builder.  If anyone wants to play with
> it let me know.
>
> In the meantime, the one thing I can't figure out is how to save the newly
> created class.  I can click the save button and it saves the new module,
but
> I can't make it happen from VBA.  Anyone know what object saves unsaved
> modules?
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com

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



From accessd at shaw.ca  Fri Jan 13 12:20:54 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Fri, 13 Jan 2006 10:20:54 -0800
Subject: [AccessD] Class builder
In-Reply-To: <006201c61848$a2bcec40$647aa8c0@ColbyM6805>
Message-ID: <003101c6186e$174bf180$017ba8c0@xpserver>

John...and not forgetting you. I continue to learn new tricks on this list
every day.

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: January 13, 2006 5:53 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Class builder

Shamil,

Thanks!  And I was looking for a save method.  Much too obvious I guess.
BTW do you have any help files for the VBA editor?  The help is rather
sparse. 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: Friday, January 13, 2006 3:53 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Class builder

John,

Here is one of the methods how a new class module can be created and saved
using VBA:

Dim mdl As Access.Module
Dim objApp As Access.Application
Dim strTempMdlName As String
Dim strMdlName As String
    Set objApp = Access.Application
    strMdlName = "CTestClassModule"

    With objApp.DoCmd
        .RunCommand acCmdNewObjectClassModule
        Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
        strTempMdlName = mdl.Name

        mdl.InsertText "public TestProperty as integer"

        .Close acModule, strTempMdlName, acSaveYes
        .Rename strMdlName, acModule, strTempMdlName
    End With

Make sure there is no class module with the name CTestClassModule in your
database...

Shamil

----- Original Message -----
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 4:08 AM
Subject: [AccessD] Class builder


> I have just finished a little class builder.  If anyone wants to play with
> it let me know.
>
> In the meantime, the one thing I can't figure out is how to save the newly
> created class.  I can click the save button and it saves the new module,
but
> I can't make it happen from VBA.  Anyone know what object saves unsaved
> modules?
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com

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

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



From accessd at shaw.ca  Fri Jan 13 12:25:23 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Fri, 13 Jan 2006 10:25:23 -0800
Subject: [AccessD] File Created with wrong name
In-Reply-To: <DPEKLCIHBOJKCKJECLCPGEONDAAA.reuben@gfconsultants.com>
Message-ID: <003201c6186e$b833a7a0$017ba8c0@xpserver>

Hi Ruben:

I had a similar problem when odd characters included in the file name, in my
case the character was being acquired from the current user's computer name.
Just strip out any dashes or "~", before processing and the problem should
go away.

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings
Sent: January 13, 2006 7:26 AM
To: AccessD
Subject: [AccessD] File Created with wrong name

I have a feature that allows a user to zip the data file or zip it and FTP
it to my web server.

It has worked flawlessly until now...the reason is that the file name that
the zip file got saved to was not what it's supposed to be.  I need help
figuring out why the file name was incorrect.

The data file (in this case) is named   chrttable.mdb

I append some data from the app to create a unique file name.  The name ends
up being   chrttableAllenCounty01132006.zip

The client's system produced a zip file named     chrtta~1.zip

Why is the name trucnated and changed to chrtta~1.zip?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017




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



From andy at minstersystems.co.uk  Fri Jan 13 12:31:11 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 13 Jan 2006 18:31:11 -0000
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)
In-Reply-To: <002d01c61868$a10bd350$6401a8c0@fincomplex.spb.ru>
Message-ID: <000501c6186f$878ab9d0$851c0c54@minster33c3r25>

Thanks Shamil.

> Is that frm.fld a checkbox?
No, you'll see from my post that fld doesn't appear on the form at all, only
on the underlying recordsource. There is no control.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Shamil Salakhetdinov
> Sent: 13 January 2006 17:42
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] A Dot Bang nightmare (WAS Access97 on 
> W2000 crashes)
> 
> 
> Congratulations, Andy!
> 
> > although even you might be taken aback by a seemingly
> > trivial coding error that 'works' itself but causes such collateral 
> > damage elsewhere.
> No, I wouldn't :)
> I did fix many issues like that - didn'ty I say there is no 
> miracles in software programming and that you will sleep well 
> only when you find the real cause of your trouble?
> 
> I have had similar error(s) in the past with legacy code 
> coming from MS Access 2.0 where dot was allowed. But in your 
> case I didn't expect your code has MS Access 2.0 roots.
> 
> Of course I should have recommend you to check dot vs. bang 
> first of all. Sorry I didn't do that.
> 
> But I did say you to analize your code for your wizard when 
> you wrote that you get wizard steps automated. And to take 
> close attention on your using default properties.
> 
> > this one was
> > frm.fld = rst!fld
> This is exactly the case of "default properties + dot vs. 
> bang nightmare". And I do remember there was a KB article or 
> something like that in the past on this subject. I did try to 
> find it for you but failed Then I forgot to recommend to 
> check you first of all dot vs. bang code because of other 
> work. My fault...
> 
> Is that frm.fld a checkbox?
> 
> Have a nice weekend and a good night sleep at last!
> 
> Shamil
> 
> ----- Original Message ----- 
> From: "Andy Lacey" <andy at minstersystems.co.uk>
> To: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> Sent: Friday, January 13, 2006 6:54 PM
> Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on 
> W2000 crashes)
> 
> 
> > Well at long last I've cracked what was causing my strange crashes 
> > under W2000. For the sake of the archives, and anyone else who 
> > encounters this nightmare, I will tell all.
> >
> > We all know that you can refer to controls on forms as form!ctl  or 
> > form.ctl. We can argue about the rights and wrongs of the second of 
> > those but we know you can do it. This is not about that argument. 
> > What, though,
> if
> > you have a field in a form's underlying recordsource but not on the 
> > form?
> If
> > you referenced that you'd think that you must use the ! 
> form wouldn't 
> > you, as there is no control? I would. But what if you inadvertently 
> > use the . form? What, in particular, if you pass the form as a 
> > parameter to a
> function
> > and make that mistake inside the function (thereby giving 
> the compiler 
> > no chance of picking it up as an error)? Well maybe 
> nothing...but then 
> > again maybe programming havoc.
> >
> > W98 seems to be extremely tolerant of this mistake. It 
> treats it as if
> you'd
> > coded ! after all. You will be none the wiser about your slip-up. 
> > Moving
> the
> > same MDB to W2000 or XP was a different story. What 
> happened there was
> that
> > once the offending line had been executed the system would 
> inevitably
> crash,
> > at some point, either with a non-specific "Msaccess.exe has 
> generated
> errors
> > and will be closed by Windows" error, or a GPF or a "Tried 
> to write to 
> > memory location xyz and you're not flipping allowed to" 
> error. But the 
> > 'beauty' of this was that it *never* crashed on the line 
> which caused 
> > the errors, just at seemingly random points thereafter. So standard 
> > debugging methods were useless. As fast as I put traps in 
> one part of 
> > the system it would crash somewhere else entirely. So I'd switch my 
> > attention to there, and it blazes through there without a 
> hitch and a 
> > couple of minutes later GPFs somewhere else. I was tearing my hair 
> > out. In the end, and it's taken all week, I took a 
> different approach. 
> > I said, if I quit this area of code after it's executed 1 
> line, do I 
> > get any crashes? Answer, no. If I allow
> it
> > to go to the end do I get crashes, answer yes. So, if I 
> quit the code 
> > half way through, do I get crashes? If yes the code before the 
> > half-way point
> is
> > causing it, if no it's between half-way and the end. You get the 
> > picture.
> In
> > that way I chopped and chopped and, a long, long time 
> later, got down 
> > to
> the
> > function and then the line that made the difference. Not, remember, 
> > that executing the line crashed, but that executing the line caused 
> > the system
> to
> > crash somewhere else soon. And that's when I saw that whilst the
> surrounding
> > lines were of the format
> >
> > frm!fld = rst!fld
> >
> > this one was
> >
> > frm.fld = rst!fld
> >
> > So I changed . to ! and lo and behold no more crashes.
> >
> > And I can only talk about A97, as I can't test my app on anything 
> > else,
> and
> > I know it's not even a universal problem in A97 as I just tried to 
> > create
> a
> > little MDB to demo the problem, and it fails to crash. So 
> there's no 
> > consistency in any of this but there is a huge problem there 
> > somewhere,
> cos
> > when it does hit it's a terror. It's perhaps the closest 
> I've come in 
> > 30 years of programming to saying I can't solve this 
> because it defies 
> > logic. But still, it's solved now, just in time for the week-end so 
> > I'll be
> having
> > a big drink tonight.
> >
> > Thanks to all who responded to my plea earlier in the week. 
> I was on 
> > the wrong track with DLL's, although I think I can be forgiven for 
> > thinking along those lines, and it was Shamil who urged me 
> to focus on 
> > code. You
> were
> > right as ever Shamil, although even you might be taken aback by a
> seemingly
> > trivial coding error that 'works' itself but causes such collateral 
> > damage elsewhere.
> >
> > Have a good week-end all. I know I will.
> >
> > --
> > Andy Lacey
> > http://www.minstersystems.co.uk
> >
> >
> > ________________________________________________
> > Message sent using UebiMiau 2.7.2
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From accessd at shaw.ca  Fri Jan 13 12:30:40 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Fri, 13 Jan 2006 10:30:40 -0800
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)
In-Reply-To: <20060113155456.55B51255853@smtp.nildram.co.uk>
Message-ID: <003301c6186f$7517ac40$017ba8c0@xpserver>

Andy:

A great piece of deductive reasoning! That deserves a tall drink.

Jim 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
Sent: January 13, 2006 7:55 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)

Well at long last I've cracked what was causing my strange crashes under
W2000. For the sake of the archives, and anyone else who encounters this
nightmare, I will tell all.

We all know that you can refer to controls on forms as form!ctl  or
form.ctl. We can argue about the rights and wrongs of the second of those
but we know you can do it. This is not about that argument. What, though, if
you have a field in a form's underlying recordsource but not on the form? If
you referenced that you'd think that you must use the ! form wouldn't you,
as there is no control? I would. But what if you inadvertently use the .
form? What, in particular, if you pass the form as a parameter to a function
and make that mistake inside the function (thereby giving the compiler no
chance of picking it up as an error)? Well maybe nothing...but then again
maybe programming havoc.

W98 seems to be extremely tolerant of this mistake. It treats it as if you'd
coded ! after all. You will be none the wiser about your slip-up. Moving the
same MDB to W2000 or XP was a different story. What happened there was that
once the offending line had been executed the system would inevitably crash,
at some point, either with a non-specific "Msaccess.exe has generated errors
and will be closed by Windows" error, or a GPF or a "Tried to write to
memory location xyz and you're not flipping allowed to" error. But the
'beauty' of this was that it *never* crashed on the line which caused the
errors, just at seemingly random points thereafter. So standard debugging
methods were useless. As fast as I put traps in one part of the system it
would crash somewhere else entirely. So I'd switch my attention to there,
and it blazes through there without a hitch and a couple of minutes later
GPFs somewhere else. I was tearing my hair out. In the end, and it's taken
all week, I took a different approach. I said, if I quit this area of code
after it's executed 1 line, do I get any crashes? Answer, no. If I allow it
to go to the end do I get crashes, answer yes. So, if I quit the code half
way through, do I get crashes? If yes the code before the half-way point is
causing it, if no it's between half-way and the end. You get the picture. In
that way I chopped and chopped and, a long, long time later, got down to the
function and then the line that made the difference. Not, remember, that
executing the line crashed, but that executing the line caused the system to
crash somewhere else soon. And that's when I saw that whilst the surrounding
lines were of the format

frm!fld = rst!fld

this one was

frm.fld = rst!fld

So I changed . to ! and lo and behold no more crashes.

And I can only talk about A97, as I can't test my app on anything else, and
I know it's not even a universal problem in A97 as I just tried to create a
little MDB to demo the problem, and it fails to crash. So there's no
consistency in any of this but there is a huge problem there somewhere, cos
when it does hit it's a terror. It's perhaps the closest I've come in 30
years of programming to saying I can't solve this because it defies logic.
But still, it's solved now, just in time for the week-end so I'll be having
a big drink tonight.

Thanks to all who responded to my plea earlier in the week. I was on the
wrong track with DLL's, although I think I can be forgiven for thinking
along those lines, and it was Shamil who urged me to focus on code. You were
right as ever Shamil, although even you might be taken aback by a seemingly
trivial coding error that 'works' itself but causes such collateral damage
elsewhere.

Have a good week-end all. I know I will.

--
Andy Lacey
http://www.minstersystems.co.uk


________________________________________________
Message sent using UebiMiau 2.7.2

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



From garykjos at gmail.com  Fri Jan 13 12:35:38 2006
From: garykjos at gmail.com (Gary Kjos)
Date: Fri, 13 Jan 2006 12:35:38 -0600
Subject: [AccessD] OT file with PIC extension
In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B2361@EXCNYSM0A1AI.nysemail.nyenet>
References: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B2361@EXCNYSM0A1AI.nysemail.nyenet>
Message-ID: <aea6c4950601131035o1c9a4c93h59e268847d99d375@mail.gmail.com>

You may also be able to open the files with an hex or a text editor
and see it there is some clues to it's origin too. Sometimes there
will be the name of the creating program near the front or the end of
the file. Not always but sometimes.  Just don't change anything ;-)

WK1 is most certainly a Lotus 123 format file. Both PIC and DRW files
could be several different types. Both seem to be graphics, pictures
or drawings type files.

Good luck

GK

On 1/13/06, O'Connor, Patricia (OTDA)
<Patricia.O'Connor at otda.state.ny.us> wrote:
> Thanks Erwin and John
> The quicktime view did not work.
> Since there are at least 3 different file types in these folders  DRW,
> WK1, and PIC.
> I can open the WK1 with Excel. I will check with Supe to see if I need
> to go on with this. I have several other things with higher priority
>
>  Patti
> **************************************************
> * Patricia O'Connor
> * Associate Computer Programmer Analyst
> * OTDA - BDMA
> * (W) mailto:Patricia.O'Connor at otda.state.ny.us
> * (w) mailto:aa1160 at otda.state.ny.us
> **************************************************
>
>
> >
> --------------------------------------------------------
> This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system.
>
>
> -----Original Message-----
>
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Erwin Craps - IT Helps
> > Sent: Friday, January 13, 2006 02:08 AM
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] OT file with PIC extension
> >
> > Hi
> >
> > Just checked in Coreldraw Photopaint.
> >
> > .PIC is a Lotus picture file.
> > It should be posible to open it in Coreldraw Photopaint an to
> > convert it to something more current (JPG?).
> > If its only a couple of them I'm willing to convert them for you.
> > If you have a lot of them in one folder, maybe I cn convert a
> > litle script of mine to automize this.
> > You better mail me directly, I'm not checking the list every day...
> > Erwin.Craps at ithelps.be
> >
> > But hold your horses (files :-) a bit.
> > Just checked my Explorer File extensions.
> > The PIC extension seems to be related with the Quicktime viewer.
> > C:\PROGRA~1\QUICKT~1\PictureViewer.exe"
> >
> > So if I'm not mistaking, if you install the Quicktime viewer
> > you can doubleclick the file and see the content.
> > Here's where you can find it.
> > http://www.apple.com/quicktime/win.html
> >
> >
> >
> > Erwin
> >
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


--
Gary Kjos
garykjos at gmail.com


From martyconnelly at shaw.ca  Fri Jan 13 12:53:56 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 13 Jan 2006 10:53:56 -0800
Subject: [AccessD] A2003:Navigating using Web Browser Control
References: <20060113171839.YHOG1358.omta03sl.mx.bigpond.com@DENZILLAP>
Message-ID: <43C7F744.2090705@shaw.ca>

Assuming your webbrowser control is called ocxWeb.
I haven't tested this within frames.

on a command button

Private Sub Command23_Click()
Debug.Print Me!ocxWeb.LocationURL
Debug.Print Me!ocxWeb.LocationName
End Sub

It is written up in Getz's ADH book chapter 23

There is an undocumented event method
see shdocvw.dll  set a reference and view in object browser

Private Sub ocxWeb_BeforeNavigate(ByVal URL As String, ByVal Flags As 
Long,  _
 ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As 
String, Cancel As Boolean)
    Me!lblStatusNav.Caption = "Navigating to " & URL & "..."
    Me!txtSearch = URL
End Sub

http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/office97/html/usingwebbrowsercontrol.asp
http://www.vbwm.com/art_2001/IE05/
http://support.microsoft.com/default.aspx?scid=kb;en-us;165212

Darren DICK wrote:

>Hi Drew 
>
>Long time no speak :-))
>
>I Agree...there should be a navigate event but how would I interrogate it and
>get its results?
>
>DD
>
>-----Original Message-----
>
>From: accessd-bounces at databaseadvisors.com [
><mailto:accessd-bounces at databaseadvisors.com>
>mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
>
>Sent: Saturday, 14 January 2006 4:03 AM
>
>To: accessd at databaseadvisors.com
>
>Subject: Re: [AccessD] A2003:Navigating using Web Browser Control
>
>There should be a navigate event, that should have the new URL as an argument.
>
>Drew
>
>-----Original Message-----
>
>From: Darren DICK [ <mailto:darrend at nimble.com.au> mailto:darrend at nimble.com.au]
>
>Sent: Friday, January 13, 2006 10:44 AM
>
>To: AccessD
>
>Subject: [AccessD] A2003:Navigating using Web Browser Control
>
>Hi all
>
>Using the Microsoft Web Browser from the ActiveX list Dropped it onto a form -
>all good I can go to a page by using code such as...
>
>Me.actxWebBrowser.navigate  <outbind://3/www.databaseadvisors.com>
>www.databaseadvisors.com No problem
>
>When I click a link inside the 'loaded' web page - how am I to detremine this
>'new address'?
>
>I have tried various things like...
>
>me.actxWebBrowser.navigate.value
>
>etc with no success
>
>Any suggestions?
>
>Many thanks in advanmce
>
>Darren
>
>FYI
>
>OLE CLASS =Microsoft Web Browser
>
>CLASS = Shell.Explorer.2 
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From shamil at users.mns.ru  Fri Jan 13 14:11:54 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Fri, 13 Jan 2006 23:11:54 +0300
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)
References: <000501c6186f$878ab9d0$851c0c54@minster33c3r25>
Message-ID: <006d01c6187d$9a5f6700$6401a8c0@fincomplex.spb.ru>

> only on the underlying recordsource.
OK. But

?TypeName(frm.fld)
AccessField
?TypeName(frm!fld)
AccessField
?typename(me.controls("fld"))
AccessField

and

?TypeName(rst!fld)
<Data type of fld field>

How AccessField gets transmitted/cohersed a value to its underlaying
recordset's field from recordset's field value is a big question.

So intended operation was:

frm!fld.value = rst!fld.Value

But it happened to be something else because implicit conversion wasn't well
built during compilation/run-time..

And resulted in "delayed" GPFs...

And it works that badly on modern WinXP and W2K with latest SPs only....

Andy, there is no still clear answer why it worked badly and why it can't be
reproduced if trying to build this case from scratch. But to search for this
clear answer now would be a waste of time when bug is fixed. (Try to
inform/ask MS but I doubt they will answer something definitive).

To make it 100% bullet-proof in such cases I also create explicit but
invisible MS Access control, name this control using naming conventions i.e.
using prefixes to make control name different from underlaying recorsource
field. I bind corresponding field to this control and I use CONTROL not
FIELD name to assign value. Reason is that Access.AccessField
is a stange hidden in Object Browser "creature" - and
Access.Control (Access.TextBox, Access.ComboBox,...)
are friendly and predictable built-in MS Access objects....

Then it will never fail - this rule works well since MS Access 2.0 - one of
the reasons why LRNC are so great invention....

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 9:31 PM
Subject: Re: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)


> Thanks Shamil.
>
> > Is that frm.fld a checkbox?
> No, you'll see from my post that fld doesn't appear on the form at all,
only
> on the underlying recordsource. There is no control.
>
> -- Andy Lacey
> http://www.minstersystems.co.uk
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Shamil Salakhetdinov
> > Sent: 13 January 2006 17:42
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] A Dot Bang nightmare (WAS Access97 on
> > W2000 crashes)
> >
> >
> > Congratulations, Andy!
> >
> > > although even you might be taken aback by a seemingly
> > > trivial coding error that 'works' itself but causes such collateral
> > > damage elsewhere.
> > No, I wouldn't :)
> > I did fix many issues like that - didn'ty I say there is no
> > miracles in software programming and that you will sleep well
> > only when you find the real cause of your trouble?
> >
> > I have had similar error(s) in the past with legacy code
> > coming from MS Access 2.0 where dot was allowed. But in your
> > case I didn't expect your code has MS Access 2.0 roots.
> >
> > Of course I should have recommend you to check dot vs. bang
> > first of all. Sorry I didn't do that.
> >
> > But I did say you to analize your code for your wizard when
> > you wrote that you get wizard steps automated. And to take
> > close attention on your using default properties.
> >
> > > this one was
> > > frm.fld = rst!fld
> > This is exactly the case of "default properties + dot vs.
> > bang nightmare". And I do remember there was a KB article or
> > something like that in the past on this subject. I did try to
> > find it for you but failed Then I forgot to recommend to
> > check you first of all dot vs. bang code because of other
> > work. My fault...
> >
> > Is that frm.fld a checkbox?
> >
> > Have a nice weekend and a good night sleep at last!
> >
> > Shamil
> >



From DWUTKA at marlow.com  Fri Jan 13 16:46:17 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Fri, 13 Jan 2006 16:46:17 -0600
Subject: [AccessD] A2003:Navigating using Web Browser Control
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD548@main2.marlow.com>

Come on Darren, you're better then that! ;)

Do you know how to code the 'Click' event for a button?  That's the form's
code page.  A form (and report) are Class Modules.  When you are in a class
module, the top left dropdown is the 'objects' you have associated with that
class.  In the case of a form, there are 'default' objects, such as Form,
Detail, etc.  When you put objects on that form, such as buttons, textboxes,
etc, those too will show up in that top left dropdown. (including ActiveX
controls).  If you dim something 'withevents', it will show up in that top
left dropdown also (if it has raisable events).  When you have something
selected in the top left drop down, look at the top right dropdown.  That is
the list of events associated with the selected object.

Drew

-----Original Message-----
From: Darren DICK [mailto:darrend at nimble.com.au]
Sent: Friday, January 13, 2006 11:42 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] A2003:Navigating using Web Browser Control


Howdy
Yep it's an activeX
But I am a luddite and have no idea what you mean :-))
What's a 'forms code page'?

All I know is I can pass values to the dot navigate property of the Active X
control
I just wanna find a property for something like dot CurrentURLIs blah blah
blah

The other stuff is far too cerebral for me - sorry

DD



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Saturday, 14 January 2006 4:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] A2003:Navigating using Web Browser Control

Are you just referencing the browser in code, if so, you need to dimension
it
'withevents' so you are hooked into it's events.  If you are dropping it as
an
ActiveX control, on a form, it should be an object within the forms code
page
with events you can write code for.

Drew

-----Original Message-----
From: Darren DICK [mailto:darrend at nimble.com.au]
Sent: Friday, January 13, 2006 11:19 AM
To: AccessD
Subject: Re: [AccessD] A2003:Navigating using Web Browser Control


Hi Drew 

Long time no speak :-))

I Agree...there should be a navigate event but how would I interrogate it
and
get its results?

DD

-----Original Message-----

From: accessd-bounces at databaseadvisors.com [
<mailto:accessd-bounces at databaseadvisors.com>
mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com

Sent: Saturday, 14 January 2006 4:03 AM

To: accessd at databaseadvisors.com

Subject: Re: [AccessD] A2003:Navigating using Web Browser Control

There should be a navigate event, that should have the new URL as an
argument.

Drew

-----Original Message-----

From: Darren DICK [ <mailto:darrend at nimble.com.au>
mailto:darrend at nimble.com.au]

Sent: Friday, January 13, 2006 10:44 AM

To: AccessD

Subject: [AccessD] A2003:Navigating using Web Browser Control

Hi all

Using the Microsoft Web Browser from the ActiveX list Dropped it onto a form
-
all good I can go to a page by using code such as...

Me.actxWebBrowser.navigate  <outbind://3/www.databaseadvisors.com>
www.databaseadvisors.com No problem

When I click a link inside the 'loaded' web page - how am I to detremine
this
'new address'?

I have tried various things like...

me.actxWebBrowser.navigate.value

etc with no success

Any suggestions?

Many thanks in advanmce

Darren

FYI

OLE CLASS =Microsoft Web Browser

CLASS = Shell.Explorer.2 

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

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


From artful at rogers.com  Sat Jan 14 06:16:17 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sat, 14 Jan 2006 07:16:17 -0500
Subject: [AccessD] Compact by code
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30ABF330@ADGSERVER>
Message-ID: <030501c61904$525b0c20$8e01a8c0@rock>

Where is the code for GetFilePath()? I have something vaguely similar but I
figured rather than experiment with making mine and yours compatible, I
would simply ask for it.
Arthur
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Monday, November 21, 2005 12:54 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Compact by code

Sorry, GetFilePath() returns the path of a given file name string.
Bobby



From artful at rogers.com  Sat Jan 14 06:21:34 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sat, 14 Jan 2006 07:21:34 -0500
Subject: [AccessD] File Created with wrong name
In-Reply-To: <NJBBLMJNGLIDBIMJIHGLIEBIDAAA.mlcollins@direcway.com>
Message-ID: <030601c61905$0f24f910$8e01a8c0@rock>

Completely OT, but given the topic I thought I'd point out what a historic
name you have.
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of michael collins
Sent: January 13, 2006 11:58 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] File Created with wrong name

Their system is set to use only short file names.



From jwcolby at ColbyConsulting.com  Sat Jan 14 08:07:40 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sat, 14 Jan 2006 09:07:40 -0500
Subject: [AccessD] Class builder
In-Reply-To: <001f01c61865$2cd6dc80$6401a8c0@fincomplex.spb.ru>
Message-ID: <000901c61913$e20cf1d0$647aa8c0@ColbyM6805>

Shamil,

It appears that I am not going to solve this so any help is much
appreciated.

Thanks, 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: Friday, January 13, 2006 12:17 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Class builder

John,

The code I posted here works because it was tested before posting but it
works in another context.

You didn't say you write a (kind of) COM add-in and manipulate class modules
via VBE.

If you will not solve this problem until tomorrow I will check my archives
to find how it can be done - I did that both in MS Access and MS Excel -
it's simple but needs some testing...

I have to do some urgent work now...

Shamil

----- Original Message -----
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 5:32 PM
Subject: Re: [AccessD] Class builder


> Shamil,
>
> Well, that didn't work.  I am trying to build this as an Add-In and
> apparently the .RunCommand acCmdNewObjectClassModule isn't available in
the
> context of code running out in an add-in.  I had been using the following
> code to get a module:
>
> Dim lMdl As VBComponent
> Dim VBProj As VBProject
>     Set VBProj = Application.VBE.ActiveVBProject
>     Set lMdl =
> Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_ClassModule)
>     lMdl.Name = strModuleName
>     Set AddModule = lMdl.CodeModule
>
> The "lMdl.Name = strModuleName" does correctly set the name of the class
> module.  The problem is that the created class is in limbo somewhere.  It
> exists, i.e. if I try it again, the "lMdl.Name = strModuleName" causes a
run
> time error.  I cannot save it however.  Even opening a module in the
current
> app and clicking save doesn't save it.
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> Salakhetdinov
> Sent: Friday, January 13, 2006 3:53 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Class builder
>
> John,
>
> Here is one of the methods how a new class module can be created and saved
> using VBA:
>
> Dim mdl As Access.Module
> Dim objApp As Access.Application
> Dim strTempMdlName As String
> Dim strMdlName As String
>     Set objApp = Access.Application
>     strMdlName = "CTestClassModule"
>
>     With objApp.DoCmd
>         .RunCommand acCmdNewObjectClassModule
>         Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
>         strTempMdlName = mdl.Name
>
>         mdl.InsertText "public TestProperty as integer"
>
>         .Close acModule, strTempMdlName, acSaveYes
>         .Rename strMdlName, acModule, strTempMdlName
>     End With
>
> Make sure there is no class module with the name CTestClassModule in your
> database...
>
> Shamil
>
> ----- Original Message -----
> From: "John Colby" <jwcolby at ColbyConsulting.com>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Sent: Friday, January 13, 2006 4:08 AM
> Subject: [AccessD] Class builder
>
>
> > I have just finished a little class builder.  If anyone wants to play
with
> > it let me know.
> >
> > In the meantime, the one thing I can't figure out is how to save the
newly
> > created class.  I can click the save button and it saves the new module,
> but
> > I can't make it happen from VBA.  Anyone know what object saves unsaved
> > modules?
> >
> > John W. Colby
> > www.ColbyConsulting.com
> >
> >
> > -- 
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com

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



From artful at rogers.com  Sat Jan 14 10:23:08 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sat, 14 Jan 2006 11:23:08 -0500
Subject: [AccessD] Missing GetFilePath function
In-Reply-To: <030501c61904$525b0c20$8e01a8c0@rock>
Message-ID: <032d01c61926$ce87b650$8e01a8c0@rock>

In case anyone else needs it, here it is:
<code>
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
strFilter As String
strCustomFilter As String
lMaxCustFilter As Long
lFilterIndex As Long
strFile As String
lMaxFile As Long
strFileTitle As String
lMaxFileTitle As Long
strInitialDir As String
strTitle As String
lFlags As Long
iFileOffset As Integer
iFileExtension As Integer
strDefExt As String
lCustData As Long
lpfnHook As Long
strTemplateName As String
End Type

Public Function GetFilePath( _
    Filter As String, _
    Title As String, _
    Optional DefaultDir As String) _
    As String
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
Dim i As Integer
OpenFile.lStructSize = Len(OpenFile)
'OpenFile.hwndOwner = Application.h
OpenFile.hInstance = 0
OpenFile.strFilter = Filter
OpenFile.lFilterIndex = 1
OpenFile.strFile = String(257, 0)
OpenFile.lMaxFile = Len(OpenFile.strFile) - 1
OpenFile.strFileTitle = OpenFile.strFile
OpenFile.lMaxFileTitle = OpenFile.lMaxFile

If IsMissing(DefaultDir) Or (DefaultDir = "") Then
    OpenFile.strInitialDir = CurDir
Else
    OpenFile.strInitialDir = DefaultDir
End If

OpenFile.strTitle = Title
OpenFile.lFlags = 0
lReturn = GetOpenFileName(OpenFile)

If lReturn = 0 Then
    GetFilePath = ""
Else
    i = InStr(OpenFile.strFile, vbNullChar)
    If i > 0 Then
        GetFilePath = Left(OpenFile.strFile, i - 1)
    Else
        GetFilePath = OpenFile.strFile
    End If
End If

End Function

</code>
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: January 14, 2006 7:16 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Compact by code

Where is the code for GetFilePath()? I have something vaguely similar but I
figured rather than experiment with making mine and yours compatible, I
would simply ask for it.
Arthur
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Monday, November 21, 2005 12:54 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Compact by code

Sorry, GetFilePath() returns the path of a given file name string.
Bobby

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



From shamil at users.mns.ru  Sat Jan 14 11:08:55 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Sat, 14 Jan 2006 20:08:55 +0300
Subject: [AccessD] Class builder
References: <000901c61913$e20cf1d0$647aa8c0@ColbyM6805>
Message-ID: <006b01c6192d$3573ebd0$6401a8c0@fincomplex.spb.ru>

John,

This should work I think for both MS Access and COM-Add ins - please try:

Public Function a_test()
dim objApp as object

   set objApp = Access.Application ' for MS Access add-ins
   'set objApp = <Application object reference COM Add-in gets on
   '                       connection>

'
' Add reference to:
'
' 1. Microsoft Visual Basic for Applications
'     Extensibility 5.3 - VBE6EXT.OLB
'
' before running this code
'
Dim strCode As String
Dim strName As String
    strName = "CTest"
    strCode = _
      "public function Test()" & vbCrLf & _
      "    Msgbox ""Hello, World!""" & vbCrLf & _
      "end function"
    AddClassModule objApp, strName, strCode
End Function

Public Sub AddClassModule( _
                ByRef rapp As object, _
                ByVal vstrName As String, _
                ByVal vstrCode As String, _
                Optional ByVal vstrProjectName As String = "")
Dim prj As VBIDE.VBProject
Dim prjItem As VBIDE.VBComponent
Dim strLst As String

    If Len(vstrProjectName) = 0 Then
       Set prj = rapp.VBE.ActiveVBProject
    Else
       Set prj = rapp.VBE.VBProjects.Item(vstrProjectName)
    End If

    Set prjItem = prj.VBComponents.Add(vbext_ct_ClassModule)
    prjItem.CodeModule.AddFromString vstrCode
    prjItem.Name = vstrName
    rapp.DoCmd.Save acModule, vstrName
End Sub

> apparently the .RunCommand acCmdNewObjectClassModule
> isn't available in the
> context of code running out in an add-in.
.RunCommand acCmdNewObjectClassModule is available in an addin but you have
to have your front-end MS Access mdb/adp opened and of course code line
should be:

objApp.RunCommand ....

where objApp is Access.Application object reference, which COM Add-in gets
on connection and MS Access Add-in has natively as default instance of
Access.Application ...

Shamil

----- Original Message ----- 
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Saturday, January 14, 2006 5:07 PM
Subject: Re: [AccessD] Class builder


> Shamil,
>
> It appears that I am not going to solve this so any help is much
> appreciated.
>
> Thanks,
>
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> Salakhetdinov
> Sent: Friday, January 13, 2006 12:17 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Class builder
>
> John,
>
> The code I posted here works because it was tested before posting but it
> works in another context.
>
> You didn't say you write a (kind of) COM add-in and manipulate class
modules
> via VBE.
>
> If you will not solve this problem until tomorrow I will check my archives
> to find how it can be done - I did that both in MS Access and MS Excel -
> it's simple but needs some testing...
>
> I have to do some urgent work now...
>
> Shamil
>
> ----- Original Message -----
> From: "John Colby" <jwcolby at ColbyConsulting.com>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Sent: Friday, January 13, 2006 5:32 PM
> Subject: Re: [AccessD] Class builder
>
>
> > Shamil,
> >
> > Well, that didn't work.  I am trying to build this as an Add-In and
> > apparently the .RunCommand acCmdNewObjectClassModule isn't available in
> the
> > context of code running out in an add-in.  I had been using the
following
> > code to get a module:
> >
> > Dim lMdl As VBComponent
> > Dim VBProj As VBProject
> >     Set VBProj = Application.VBE.ActiveVBProject
> >     Set lMdl =
> > Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_ClassModule)
> >     lMdl.Name = strModuleName
> >     Set AddModule = lMdl.CodeModule
> >
> > The "lMdl.Name = strModuleName" does correctly set the name of the class
> > module.  The problem is that the created class is in limbo somewhere.
It
> > exists, i.e. if I try it again, the "lMdl.Name = strModuleName" causes a
> run
> > time error.  I cannot save it however.  Even opening a module in the
> current
> > app and clicking save doesn't save it.
> >
> > John W. Colby
> > www.ColbyConsulting.com
> >
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> > Salakhetdinov
> > Sent: Friday, January 13, 2006 3:53 AM
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Class builder
> >
> > John,
> >
> > Here is one of the methods how a new class module can be created and
saved
> > using VBA:
> >
> > Dim mdl As Access.Module
> > Dim objApp As Access.Application
> > Dim strTempMdlName As String
> > Dim strMdlName As String
> >     Set objApp = Access.Application
> >     strMdlName = "CTestClassModule"
> >
> >     With objApp.DoCmd
> >         .RunCommand acCmdNewObjectClassModule
> >         Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
> >         strTempMdlName = mdl.Name
> >
> >         mdl.InsertText "public TestProperty as integer"
> >
> >         .Close acModule, strTempMdlName, acSaveYes
> >         .Rename strMdlName, acModule, strTempMdlName
> >     End With
> >
> > Make sure there is no class module with the name CTestClassModule in
your
> > database...
> >
> > Shamil
> >
> > ----- Original Message -----
> > From: "John Colby" <jwcolby at ColbyConsulting.com>
> > To: "'Access Developers discussion and problem solving'"
> > <accessd at databaseadvisors.com>
> > Sent: Friday, January 13, 2006 4:08 AM
> > Subject: [AccessD] Class builder
> >
> >
> > > I have just finished a little class builder.  If anyone wants to play
> with
> > > it let me know.
> > >
> > > In the meantime, the one thing I can't figure out is how to save the
> newly
> > > created class.  I can click the save button and it saves the new
module,
> > but
> > > I can't make it happen from VBA.  Anyone know what object saves
unsaved
> > > modules?
> > >
> > > John W. Colby
> > > www.ColbyConsulting.com
> > >
> > >



From dwaters at usinternet.com  Sat Jan 14 16:03:44 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Sat, 14 Jan 2006 16:03:44 -0600
Subject: [AccessD] Source Code Control
Message-ID: <000001c61956$63a1fc80$0200a8c0@danwaters>

Has anyone used a program called Vault from Sourcegear, or Perforce, while
programming in Access?  If it worked, was it useful?  

Dan



From darsant at gmail.com  Sat Jan 14 16:35:29 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Sat, 14 Jan 2006 16:35:29 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <000001c61956$63a1fc80$0200a8c0@danwaters>
References: <000001c61956$63a1fc80$0200a8c0@danwaters>
Message-ID: <53c8e05a0601141435j2123d88g7d6ec0abfaf3a698@mail.gmail.com>

On 1/14/06, Dan Waters <dwaters at usinternet.com> wrote:
> Has anyone used a program called Vault from Sourcegear, or Perforce, while
> programming in Access?  If it worked, was it useful?

Dan,

For Access IIRC, source control will lose one of it's most important
featuers (diff'ing) with Access because Access is stored as a binary
file.

That said, I've used 3 different source control programs while working
on C++ coding.

Visual Source-Safe: Steer clear of this one - It's outdated and has a
high corruption rate on the source control database.

CVS: Open-source, widely used, and widely tested. Nice for single-file
verisoning. Made for Unix but NT versions are also available

Subversion: Also open source, this is what we currently use in shop.
It maintains versioning on a per-repository basis rather than a
per-file basis. Very very nice freeware client called TortioseSVN. Was
fairly easy to set up also. Also tracks file renames, directory
changes, and other meta information. Allows you to also add a meta-tag
to track changes due to bug-fixes from bug-tracking software, etc.

As a whole, it'd work great for a backup / revision system as long as
you made sure that when you checked in files you comment what changed.

If you try out Vault or Perforce, let me know what you think.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From shamil at users.mns.ru  Sat Jan 14 19:43:00 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Sun, 15 Jan 2006 04:43:00 +0300
Subject: [AccessD] Class builder
References: <000901c61913$e20cf1d0$647aa8c0@ColbyM6805>
	<006b01c6192d$3573ebd0$6401a8c0@fincomplex.spb.ru>
Message-ID: <001f01c61975$16921be0$6401a8c0@fincomplex.spb.ru>

Correction - here is a working solution for both cases code running in FE
module and in add-in module:

Public Function a_test()
Dim objApp As Object

   Set objApp = Access.Application ' for MS Access add-ins
   'set objApp = <Application object reference COM Add-in gets on
   '                       connection>

'
' Add reference to:
'
' 1. Microsoft Visual Basic for Applications
'     Extensibility 5.3 - VBE6EXT.OLB
'
' before running this code
'
Dim strCode As String
Dim strName As String
    strName = "CTest"
    strCode = _
      "public function Test()" & vbCrLf & _
      "    Msgbox ""Hello, World!""" & vbCrLf & _
      "end function"
    AddClassModule objApp, strName, strCode
End Function

Public Sub AddClassModule( _
                ByRef rapp As Object, _
                ByVal vstrName As String, _
                ByVal vstrCode As String)
Dim prj As VBIDE.VBProject
Dim prjItem As VBIDE.VBComponent
Dim strLst As String

    Set prj = rapp.VBE.VBProjects(rapp.GetOption("Project Name"))

    Set prjItem = prj.VBComponents.Add(vbext_ct_ClassModule)
    prjItem.CodeModule.AddFromString vstrCode
    prjItem.Properties("Name").Value = vstrName
    SendKeys "^s{Enter}"
End Sub

Shamil

----- Original Message ----- 
From: "Shamil Salakhetdinov" <shamil at users.mns.ru>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Saturday, January 14, 2006 8:08 PM
Subject: Re: [AccessD] Class builder


> John,
>
> This should work I think for both MS Access and COM-Add ins - please try:
>
> Public Function a_test()
> dim objApp as object
>
>    set objApp = Access.Application ' for MS Access add-ins
>    'set objApp = <Application object reference COM Add-in gets on
>    '                       connection>
>
> '
> ' Add reference to:
> '
> ' 1. Microsoft Visual Basic for Applications
> '     Extensibility 5.3 - VBE6EXT.OLB
> '
> ' before running this code
> '
> Dim strCode As String
> Dim strName As String
>     strName = "CTest"
>     strCode = _
>       "public function Test()" & vbCrLf & _
>       "    Msgbox ""Hello, World!""" & vbCrLf & _
>       "end function"
>     AddClassModule objApp, strName, strCode
> End Function
>
> Public Sub AddClassModule( _
>                 ByRef rapp As object, _
>                 ByVal vstrName As String, _
>                 ByVal vstrCode As String, _
>                 Optional ByVal vstrProjectName As String = "")
> Dim prj As VBIDE.VBProject
> Dim prjItem As VBIDE.VBComponent
> Dim strLst As String
>
>     If Len(vstrProjectName) = 0 Then
>        Set prj = rapp.VBE.ActiveVBProject
>     Else
>        Set prj = rapp.VBE.VBProjects.Item(vstrProjectName)
>     End If
>
>     Set prjItem = prj.VBComponents.Add(vbext_ct_ClassModule)
>     prjItem.CodeModule.AddFromString vstrCode
>     prjItem.Name = vstrName
>     rapp.DoCmd.Save acModule, vstrName
> End Sub
>
> > apparently the .RunCommand acCmdNewObjectClassModule
> > isn't available in the
> > context of code running out in an add-in.
> .RunCommand acCmdNewObjectClassModule is available in an addin but you
have
> to have your front-end MS Access mdb/adp opened and of course code line
> should be:
>
> objApp.RunCommand ....
>
> where objApp is Access.Application object reference, which COM Add-in gets
> on connection and MS Access Add-in has natively as default instance of
> Access.Application ...
>
> Shamil
>
<<< tail skipped>>>



From kost36 at otenet.gr  Mon Jan 16 05:47:59 2006
From: kost36 at otenet.gr (Kostas Konstantinidis)
Date: Mon, 16 Jan 2006 13:47:59 +0200
Subject: [AccessD] is it possible to rename many folders via access?
References: <s3973f7d.045@cactus.dk>
Message-ID: <007501c61a92$b3008160$6401a8c0@KOST36>

I have about 7.000 folders saved as .
KING KONG (1933) - Max Steiner
what I want to do is to rename all the folders as
(1933) KING KONG - Max Steiner

is that possible?
thank's a lot
/kostas



From jwcolby at ColbyConsulting.com  Sun Jan 15 10:07:22 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sun, 15 Jan 2006 11:07:22 -0500
Subject: [AccessD] String replacement wizard
Message-ID: <002701c619ed$c5344b00$647aa8c0@ColbyM6805>

Have you ever wanted the ability to replace markers in boiler plate?

I have been building up a wizard for building class /controller class pairs,
something I use all the time.  Part of the process is to insert boilerplate
text such as:

'CopyRight: |CopyRightVal|
'.=========================================================================
'.Description  :
'.
'.Written By   : |AuthorVal|
'.Date Created : |DateVal|
' Rev. History :
'
' Comments     :
'THESE CONSTANTS AND VARIABLES ARE USED INTERNALLY TO THE CLASS
'*+ Class constant declaration
Private Const DebugPrint As Boolean = False
Private Const mcstrModuleName As String = "|ClsNameVal|"

And then be able to replace the markers:

|CopyRightVal|
|AuthorVal|
|DateVal|
|ClsNameVal|

With values either pulled from a string replacement table or generated by
the code.

|CopyRightVal|
|AuthorVal|

Come from a table of marker / replacement strings, and

|DateVal|
|ClsNameVal|

Are values that the class generation code determines at run time.

In order to do this I built a child class / controller pair.  The child
class holds the data from tblStringReplacement where the data looks like:

Orig			Text
Replacement		Memo

The controller class loads the data from the table into child class
instances, then has a pair of methods to do the replacements.  One method
replaces all markers that it can find in the table (looking in the child
classes), the other method performs a replacement of a marker passed in and
a replacement string passed in (used for Runtime marker replacements).

The classes look like:

'*******************
'Begin Code Code Code Code
'*******************
Option Compare Database
Option Explicit

Private mOrig As String
Private mReplacement As String

Function mInit(lOrig As String, lReplacement As String)
    mOrig = lOrig
    mReplacement = lReplacement
End Function
Property Get pOrig() As String
    pOrig = mOrig
End Property
Property Get pReplacement() As String
    pReplacement = mReplacement
End Property

'*******************
'End Code Code Code Code
'*******************

Which holds the data in the tblStringReplacement - one class per record and:

'*******************
'Begin Code Code Code Code
'*******************
Private mstrTblName As String
Private mstrIdentFldName As String

Private mcolclsSystem As Collection

Private Sub Class_Initialize()
    Set mcolclsSystem = New Collection
End Sub

Private Sub Class_Terminate()
    Set mcolclsSystem = Nothing
End Sub
'
'strIdentFldName used as the key into the collection if present
'
Function mInit(strTblName As String, Optional strIdentFldName As String =
"Orig")
On Error GoTo Err_mInit
    mstrTblName = strTblName
    mstrIdentFldName = strIdentFldName
    ClsFactory
Exit_mInit:
Exit Function
Err_mInit:
        MsgBox Err.Description, , "Error in Function clsStrReplaceCtl.mInit"
        Resume Exit_mInit
    Resume 0    '.FOR TROUBLESHOOTING
End Function
Private Function ClsFactory()
On Error GoTo Err_ClsFactory
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim lcls As clsStrReplace
Dim fld As ADODB.Field
    Set cnn = CodeProject.Connection
    Set rst = New ADODB.Recordset
    rst.Open "SELECT * FROM " & mstrTblName, cnn, adOpenStatic,
adLockPessimistic
    With rst
        While Not .EOF
            Set lcls = New clsStrReplace
            lcls.mInit .Fields("Orig"), .Fields("Replacement")
            If Len(mstrIdentFldName) > 0 Then
                mcolclsSystem.Add lcls, CStr(.Fields(mstrIdentFldName))
            Else
                mcolclsSystem.Add lcls
            End If
            .MoveNext
        Wend
    End With
Exit_ClsFactory:
On Error Resume Next
    If Not (rst Is Nothing) Then rst.Close: Set rst = Nothing
    If Not (cnn Is Nothing) Then cnn.Close: Set cnn = Nothing
Exit Function
Err_ClsFactory:
        MsgBox Err.Description, , "Error in Function
clsSystemsCtrl.ClsFactory"
        Resume Exit_ClsFactory
    Resume 0    '.FOR TROUBLESHOOTING
End Function
Property Get cStrReplace(varVal As Variant) As clsStrReplace
On Error GoTo Err_cStrReplace
    Set cStrReplace = mcolclsSystem(CStr(varVal))
Exit_cStrReplace:
Exit Property
Err_cStrReplace:
        MsgBox Err.Description, , "Error in Property Get clsStrReplaceCtl.
cStrReplace"
        Resume Exit_cStrReplace
    Resume 0    '.FOR TROUBLESHOOTING
End Property
'
'This function will search a string for a specific marker passed in.
'Where found, the marker will be replaced by the replacement passed in.
'
Public Function mReplaceMarker(strToProcess As String, strMarker As String,
strReplacement As String)
On Error GoTo Err_mReplaceMarker
Dim intPos1 As Integer
Dim intPos2 As Integer
Dim lstrToProcess As String
Dim lstrProcessed As String
Dim lstrMarker As String
'Dim lstrReplacement As String
Dim blnMarkerNotFound As Boolean
    lstrToProcess = strToProcess
    'intPos1 = 1
    Do
        blnMarkerNotFound = True
        lstrMarker = ""
        '
        'Look for a marker
        '
        intPos1 = InStr(intPos1 + 1, lstrToProcess, "|")
        If intPos1 > intPos2 Then
            intPos2 = InStr(intPos1 + 1, lstrToProcess, "|")
            If intPos2 > intPos1 Then
                lstrMarker = mID$(lstrToProcess, intPos1 + 1, intPos2 -
intPos1 - 1)
                If Len(lstrMarker) > 0 Then
                    blnMarkerNotFound = False
                    On Error Resume Next
                    If lstrMarker = strMarker Then
                        '
                        'I only use the lstrProcessed so I can watch the
process as I am programming it.
                        'Replace this when debugged
                        '
                        'lstrReplacement =
cStrReplace(lstrMarker).pReplacement
                        lstrProcessed = Replace(lstrToProcess, "|" &
lstrMarker & "|", strReplacement)
                        lstrToProcess = lstrProcessed
                    Else
                        intPos1 = intPos2 + 1
                        
                    End If
                    'intPos1 = intPos2 + 1
                Else
                End If
            Else
            End If
        Else
        End If
    Loop Until blnMarkerNotFound
    mReplaceMarker = lstrToProcess
Exit_mReplaceMarker:
Exit Function
Err_mReplaceMarker:
        MsgBox Err.Description, , "Error in Function
clsStrReplaceCtl.mReplaceMarker"
        Resume Exit_mReplaceMarker
    Resume 0    '.FOR TROUBLESHOOTING
End Function
'
'This function will search strings for embedded "replacement markers"
denoted by |SomeValue|
'Where found, these replacement markers will be looked up in the
tblStrReplacement (the loaded collection)
'and if found, the replacement marker will be replaced with the replacement
value.
'
'If not found, the Replacement marker will be left in place untouched.
'
Public Function mReplaceMarkers(strToProcess As String) As String
On Error GoTo Err_mReplaceMarkers
Dim intPos1 As Integer
Dim intPos2 As Integer
Dim lstrToProcess As String
Dim lstrProcessed As String
Dim lstrMarker As String
Dim lstrReplacement As String
Dim cSR As clsStrReplace

Dim blnMarkerNotFound As Boolean
    lstrToProcess = strToProcess
    'intPos1 = 1
    Do
        blnMarkerNotFound = True
        lstrMarker = ""
        '
        'Look for a marker
        '
        intPos1 = InStr(intPos1 + 1, lstrToProcess, "|")
        If intPos1 > intPos2 Then
            intPos2 = InStr(intPos1 + 1, lstrToProcess, "|")
            If intPos2 > intPos1 Then
                lstrMarker = mID$(lstrToProcess, intPos1 + 1, intPos2 -
intPos1 - 1)
                If Len(lstrMarker) > 0 Then
                    blnMarkerNotFound = False
                    On Error Resume Next
                    Set cSR = mcolclsSystem(lstrMarker)
                    If Err = 0 Then
                        '
                        'I only use the lstrProcessed so I can watch the
process as I am programming it.
                        'Replace this when debugged
                        '
                        lstrReplacement =
cStrReplace(lstrMarker).pReplacement
                        lstrProcessed = Replace(lstrToProcess, "|" &
lstrMarker & "|", lstrReplacement)
                        lstrToProcess = lstrProcessed
                    Else
                        intPos1 = intPos2 + 1
                        
                    End If
        On Error GoTo Err_mReplaceMarkers
                    'intPos1 = intPos2 + 1
                Else
                End If
            Else
            End If
        Else
        End If
    Loop Until blnMarkerNotFound
    mReplaceMarkers = lstrToProcess
Exit_mReplaceMarkers:
Exit Function
Err_mReplaceMarkers:
        MsgBox Err.Description, , "Error in Function
clsStrReplaceCtl.mReplaceMarkers"
        Resume Exit_mReplaceMarkers
    Resume 0    '.FOR TROUBLESHOOTING
End Function
'*******************
'End Code Code Code Code
'*******************

The following code tests the control class clsStrReplaceCtl:

'*******************
'Begin Code Code Code Code
'*******************
Option Compare Database
Option Explicit

Private mclsStrReplaceCtl As clsStrReplaceCtl
Function StrReplaceInit(strTbl As String)
    If mclsStrReplaceCtl Is Nothing Then
        Set mclsStrReplaceCtl = New clsStrReplaceCtl
        mclsStrReplaceCtl.mInit strTbl
    End If
End Function
Function StrReplaceTerm()
    Set mclsStrReplaceCtl = Nothing
End Function
Public Function cSRC() As clsStrReplaceCtl
    Set cSRC = mclsStrReplaceCtl
End Function
Function TestReplace()
Dim strToTest As String
Dim strResults As String
    StrReplaceInit "tblStrReplace"
    strToTest = "This is a |specific| test.  |Author| is a very nice guy.
His phone is |Phone|.  His email is |email|.  I hope that this is enough to
|test|"
    strResults = cSRC.mReplaceMarkers(strToTest)
    Debug.Print strResults
    strToTest = strResults
    strResults = cSRC.mReplaceMarker(strToTest, "specific", "Very specific")
    Debug.Print strResults
    strToTest = strResults
    strResults = cSRC.mReplaceMarker(strToTest, "test", "work with")
    Debug.Print strResults
End Function
'*******************
'End Code Code Code Code
'*******************

Author, Phone and Email will be found in the table, Specific and Test will
be "run time replacement" tests.

This is a rather example of how I use child / controller classes.  The data
gets cached to speed up access to what would non-changing data in a table,
and then accessed from child classes stored in a collection in the
controller.

I have pretty much finished an Add-in to build the child / controller class
pair for a given table.  The add-in uses this string replacement system.  It
was an interesting exercise in frustration trying to get the finished
classes to save properly (thanks Shamil for the solution).

John W. Colby
www.ColbyConsulting.com 




From jwcolby at ColbyConsulting.com  Sun Jan 15 10:22:54 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sun, 15 Jan 2006 11:22:54 -0500
Subject: [AccessD] String replacement wizard
In-Reply-To: <002701c619ed$c5344b00$647aa8c0@ColbyM6805>
Message-ID: <002901c619ef$f2977c50$647aa8c0@ColbyM6805>

BTW, the two classes for the string builder wizard were built by the new
class builder Add-In.  I then added the two methods for doing the string
replacement 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Sunday, January 15, 2006 11:07 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] String replacement wizard

Have you ever wanted the ability to replace markers in boiler plate?

I have been building up a wizard for building class /controller class pairs,
something I use all the time.  Part of the process is to insert boilerplate
text such as:

'CopyRight: |CopyRightVal|
'.=========================================================================
'.Description  :
'.
'.Written By   : |AuthorVal|
'.Date Created : |DateVal|
' Rev. History :
'
' Comments     :
'THESE CONSTANTS AND VARIABLES ARE USED INTERNALLY TO THE CLASS '*+ Class
constant declaration Private Const DebugPrint As Boolean = False Private
Const mcstrModuleName As String = "|ClsNameVal|"

And then be able to replace the markers:

|CopyRightVal|
|AuthorVal|
|DateVal|
|ClsNameVal|

With values either pulled from a string replacement table or generated by
the code.

|CopyRightVal|
|AuthorVal|

Come from a table of marker / replacement strings, and

|DateVal|
|ClsNameVal|

Are values that the class generation code determines at run time.

In order to do this I built a child class / controller pair.  The child
class holds the data from tblStringReplacement where the data looks like:

Orig			Text
Replacement		Memo

The controller class loads the data from the table into child class
instances, then has a pair of methods to do the replacements.  One method
replaces all markers that it can find in the table (looking in the child
classes), the other method performs a replacement of a marker passed in and
a replacement string passed in (used for Runtime marker replacements).

The classes look like:

'*******************
'Begin Code Code Code Code
'*******************
Option Compare Database
Option Explicit

Private mOrig As String
Private mReplacement As String

Function mInit(lOrig As String, lReplacement As String)
    mOrig = lOrig
    mReplacement = lReplacement
End Function
Property Get pOrig() As String
    pOrig = mOrig
End Property
Property Get pReplacement() As String
    pReplacement = mReplacement
End Property

'*******************
'End Code Code Code Code
'*******************

Which holds the data in the tblStringReplacement - one class per record and:

'*******************
'Begin Code Code Code Code
'*******************
Private mstrTblName As String
Private mstrIdentFldName As String

Private mcolclsSystem As Collection

Private Sub Class_Initialize()
    Set mcolclsSystem = New Collection
End Sub

Private Sub Class_Terminate()
    Set mcolclsSystem = Nothing
End Sub
'
'strIdentFldName used as the key into the collection if present '
Function mInit(strTblName As String, Optional strIdentFldName As String =
"Orig")
On Error GoTo Err_mInit
    mstrTblName = strTblName
    mstrIdentFldName = strIdentFldName
    ClsFactory
Exit_mInit:
Exit Function
Err_mInit:
        MsgBox Err.Description, , "Error in Function clsStrReplaceCtl.mInit"
        Resume Exit_mInit
    Resume 0    '.FOR TROUBLESHOOTING
End Function
Private Function ClsFactory()
On Error GoTo Err_ClsFactory
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim lcls As clsStrReplace
Dim fld As ADODB.Field
    Set cnn = CodeProject.Connection
    Set rst = New ADODB.Recordset
    rst.Open "SELECT * FROM " & mstrTblName, cnn, adOpenStatic,
adLockPessimistic
    With rst
        While Not .EOF
            Set lcls = New clsStrReplace
            lcls.mInit .Fields("Orig"), .Fields("Replacement")
            If Len(mstrIdentFldName) > 0 Then
                mcolclsSystem.Add lcls, CStr(.Fields(mstrIdentFldName))
            Else
                mcolclsSystem.Add lcls
            End If
            .MoveNext
        Wend
    End With
Exit_ClsFactory:
On Error Resume Next
    If Not (rst Is Nothing) Then rst.Close: Set rst = Nothing
    If Not (cnn Is Nothing) Then cnn.Close: Set cnn = Nothing Exit Function
Err_ClsFactory:
        MsgBox Err.Description, , "Error in Function
clsSystemsCtrl.ClsFactory"
        Resume Exit_ClsFactory
    Resume 0    '.FOR TROUBLESHOOTING
End Function
Property Get cStrReplace(varVal As Variant) As clsStrReplace On Error GoTo
Err_cStrReplace
    Set cStrReplace = mcolclsSystem(CStr(varVal))
Exit_cStrReplace:
Exit Property
Err_cStrReplace:
        MsgBox Err.Description, , "Error in Property Get clsStrReplaceCtl.
cStrReplace"
        Resume Exit_cStrReplace
    Resume 0    '.FOR TROUBLESHOOTING
End Property
'
'This function will search a string for a specific marker passed in.
'Where found, the marker will be replaced by the replacement passed in.
'
Public Function mReplaceMarker(strToProcess As String, strMarker As String,
strReplacement As String) On Error GoTo Err_mReplaceMarker Dim intPos1 As
Integer Dim intPos2 As Integer Dim lstrToProcess As String Dim lstrProcessed
As String Dim lstrMarker As String 'Dim lstrReplacement As String Dim
blnMarkerNotFound As Boolean
    lstrToProcess = strToProcess
    'intPos1 = 1
    Do
        blnMarkerNotFound = True
        lstrMarker = ""
        '
        'Look for a marker
        '
        intPos1 = InStr(intPos1 + 1, lstrToProcess, "|")
        If intPos1 > intPos2 Then
            intPos2 = InStr(intPos1 + 1, lstrToProcess, "|")
            If intPos2 > intPos1 Then
                lstrMarker = mID$(lstrToProcess, intPos1 + 1, intPos2 -
intPos1 - 1)
                If Len(lstrMarker) > 0 Then
                    blnMarkerNotFound = False
                    On Error Resume Next
                    If lstrMarker = strMarker Then
                        '
                        'I only use the lstrProcessed so I can watch the
process as I am programming it.
                        'Replace this when debugged
                        '
                        'lstrReplacement =
cStrReplace(lstrMarker).pReplacement
                        lstrProcessed = Replace(lstrToProcess, "|" &
lstrMarker & "|", strReplacement)
                        lstrToProcess = lstrProcessed
                    Else
                        intPos1 = intPos2 + 1
                        
                    End If
                    'intPos1 = intPos2 + 1
                Else
                End If
            Else
            End If
        Else
        End If
    Loop Until blnMarkerNotFound
    mReplaceMarker = lstrToProcess
Exit_mReplaceMarker:
Exit Function
Err_mReplaceMarker:
        MsgBox Err.Description, , "Error in Function
clsStrReplaceCtl.mReplaceMarker"
        Resume Exit_mReplaceMarker
    Resume 0    '.FOR TROUBLESHOOTING
End Function
'
'This function will search strings for embedded "replacement markers"
denoted by |SomeValue|
'Where found, these replacement markers will be looked up in the
tblStrReplacement (the loaded collection) 'and if found, the replacement
marker will be replaced with the replacement value.
'
'If not found, the Replacement marker will be left in place untouched.
'
Public Function mReplaceMarkers(strToProcess As String) As String On Error
GoTo Err_mReplaceMarkers Dim intPos1 As Integer Dim intPos2 As Integer Dim
lstrToProcess As String Dim lstrProcessed As String Dim lstrMarker As String
Dim lstrReplacement As String Dim cSR As clsStrReplace

Dim blnMarkerNotFound As Boolean
    lstrToProcess = strToProcess
    'intPos1 = 1
    Do
        blnMarkerNotFound = True
        lstrMarker = ""
        '
        'Look for a marker
        '
        intPos1 = InStr(intPos1 + 1, lstrToProcess, "|")
        If intPos1 > intPos2 Then
            intPos2 = InStr(intPos1 + 1, lstrToProcess, "|")
            If intPos2 > intPos1 Then
                lstrMarker = mID$(lstrToProcess, intPos1 + 1, intPos2 -
intPos1 - 1)
                If Len(lstrMarker) > 0 Then
                    blnMarkerNotFound = False
                    On Error Resume Next
                    Set cSR = mcolclsSystem(lstrMarker)
                    If Err = 0 Then
                        '
                        'I only use the lstrProcessed so I can watch the
process as I am programming it.
                        'Replace this when debugged
                        '
                        lstrReplacement =
cStrReplace(lstrMarker).pReplacement
                        lstrProcessed = Replace(lstrToProcess, "|" &
lstrMarker & "|", lstrReplacement)
                        lstrToProcess = lstrProcessed
                    Else
                        intPos1 = intPos2 + 1
                        
                    End If
        On Error GoTo Err_mReplaceMarkers
                    'intPos1 = intPos2 + 1
                Else
                End If
            Else
            End If
        Else
        End If
    Loop Until blnMarkerNotFound
    mReplaceMarkers = lstrToProcess
Exit_mReplaceMarkers:
Exit Function
Err_mReplaceMarkers:
        MsgBox Err.Description, , "Error in Function
clsStrReplaceCtl.mReplaceMarkers"
        Resume Exit_mReplaceMarkers
    Resume 0    '.FOR TROUBLESHOOTING
End Function
'*******************
'End Code Code Code Code
'*******************

The following code tests the control class clsStrReplaceCtl:

'*******************
'Begin Code Code Code Code
'*******************
Option Compare Database
Option Explicit

Private mclsStrReplaceCtl As clsStrReplaceCtl Function StrReplaceInit(strTbl
As String)
    If mclsStrReplaceCtl Is Nothing Then
        Set mclsStrReplaceCtl = New clsStrReplaceCtl
        mclsStrReplaceCtl.mInit strTbl
    End If
End Function
Function StrReplaceTerm()
    Set mclsStrReplaceCtl = Nothing
End Function
Public Function cSRC() As clsStrReplaceCtl
    Set cSRC = mclsStrReplaceCtl
End Function
Function TestReplace()
Dim strToTest As String
Dim strResults As String
    StrReplaceInit "tblStrReplace"
    strToTest = "This is a |specific| test.  |Author| is a very nice guy.
His phone is |Phone|.  His email is |email|.  I hope that this is enough to
|test|"
    strResults = cSRC.mReplaceMarkers(strToTest)
    Debug.Print strResults
    strToTest = strResults
    strResults = cSRC.mReplaceMarker(strToTest, "specific", "Very specific")
    Debug.Print strResults
    strToTest = strResults
    strResults = cSRC.mReplaceMarker(strToTest, "test", "work with")
    Debug.Print strResults
End Function
'*******************
'End Code Code Code Code
'*******************

Author, Phone and Email will be found in the table, Specific and Test will
be "run time replacement" tests.

This is a rather example of how I use child / controller classes.  The data
gets cached to speed up access to what would non-changing data in a table,
and then accessed from child classes stored in a collection in the
controller.

I have pretty much finished an Add-in to build the child / controller class
pair for a given table.  The add-in uses this string replacement system.  It
was an interesting exercise in frustration trying to get the finished
classes to save properly (thanks Shamil for the solution).

John W. Colby
www.ColbyConsulting.com 


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



From jwelz at hotmail.com  Sun Jan 15 10:36:59 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Sun, 15 Jan 2006 09:36:59 -0700
Subject: [AccessD] is it possible to rename many folders via access?
In-Reply-To: <007501c61a92$b3008160$6401a8c0@KOST36>
Message-ID: <BAY113-F240AD418CEF2BAF1F20881A1180@phx.gbl>

Kostas:

You can use the Dir function to return file/folder names that match the 
spec, check the return value as to whether it is a directory with GetAttr 
(If (GetAttr(strDirReturn) And vbDirectory) = vbDirectory Then) and then use 
the Name "C:\FilePath" As "C:\NewFilePath" syntax to rename folders.

Obviously all your folders can't have the same name and be in the same 
location.  EIther they are elsewhere in the directory structure or on 
various drives and/or machines.  You'll either need to to a recursive search 
with the Dir function to return the original folder names, unless the 
folders have some kind of suffix like:  KING KONG (1933) - Max Steiner A.

Do all the folders have exactly the same name, or is that just the start of 
the name and they have various suffixes and share the same root?



Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Kostas Konstantinidis" <kost36 at otenet.gr>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem 
>solving"<accessd at databaseadvisors.com>
>Subject: [AccessD] is it possible to rename many folders via access?
>Date: Mon, 16 Jan 2006 13:47:59 +0200
>MIME-Version: 1.0
>Received: from databaseadvisors.com ([209.135.140.44]) by 
>bay0-mc2-f19.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.211); Sun, 15 
>Jan 2006 03:49:00 -0800
>Received: from databaseadvisors.com (databaseadvisors.com 
>[209.135.140.44])by databaseadvisors.com (8.11.6/8.11.6) with ESMTP id 
>k0FBlaV12568;Sun, 15 Jan 2006 05:47:36 -0600
>Received: from aiolos.otenet.gr 
>(OTEnet-mail-system at aiolos.otenet.gr[195.170.0.93])by databaseadvisors.com 
>(8.11.6/8.11.6) with ESMTP id k0FBlOV12502for 
><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 05:47:25 -0600
>Received: from KOST36 (athe730e-2894.otenet.gr [83.235.12.100])by 
>aiolos.otenet.gr (8.13.4/8.13.4/Debian-8) with SMTP idk0FBlMDb003045for 
><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 13:47:23 +0200
>X-Message-Info: tyddfols8vHo3LAyqMtMFe5EiIL9cWdA2ZMd7W/Skmg=
>References: <s3973f7d.045 at cactus.dk>
>X-MSMail-Priority: Normal
>X-Mailer: Microsoft Outlook Express 6.00.2900.2180
>X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
>X-BeenThere: accessd at databaseadvisors.com
>X-Mailman-Version: 2.1.6-xhtml
>Precedence: list
>List-Id: Access Developers discussion and problem 
>solving<accessd.databaseadvisors.com>
>List-Unsubscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=unsubscribe>
>List-Archive: <http://databaseadvisors.com/pipermail/accessd>
>List-Post: <mailto:accessd at databaseadvisors.com>
>List-Help: <mailto:accessd-request at databaseadvisors.com?subject=help>
>List-Subscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=subscribe>
>Errors-To: accessd-bounces at databaseadvisors.com
>Return-Path: accessd-bounces at databaseadvisors.com
>X-OriginalArrivalTime: 15 Jan 2006 11:49:01.0053 (UTC) 
>FILETIME=[AD234AD0:01C619C9]
>
>I have about 7.000 folders saved as .
>KING KONG (1933) - Max Steiner
>what I want to do is to rename all the folders as
>(1933) KING KONG - Max Steiner
>
>is that possible?
>thank's a lot
>/kostas
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From jwelz at hotmail.com  Sun Jan 15 10:37:34 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Sun, 15 Jan 2006 09:37:34 -0700
Subject: [AccessD] is it possible to rename many folders via access?
In-Reply-To: <007501c61a92$b3008160$6401a8c0@KOST36>
Message-ID: <BAY113-F57172D5760830E4554B52A1180@phx.gbl>

Kostas:

You can use the Dir function to return file/folder names that match the 
spec, check the return value as to whether it is a directory with GetAttr 
(If (GetAttr(strDirReturn) And vbDirectory) = vbDirectory Then) and then use 
the Name "C:\FilePath" As "C:\NewFilePath" syntax to rename folders.

Obviously all your folders can't have the same name and be in the same 
location.  EIther they are elsewhere in the directory structure or on 
various drives and/or machines.  You'll either need to to a recursive search 
with the Dir function to return the original folder names, unless the 
folders have some kind of suffix like:  KING KONG (1933) - Max Steiner A.

Do all the folders have exactly the same name, or is that just the start of 
the name and they have various suffixes and share the same root?



Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Kostas Konstantinidis" <kost36 at otenet.gr>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem 
>solving"<accessd at databaseadvisors.com>
>Subject: [AccessD] is it possible to rename many folders via access?
>Date: Mon, 16 Jan 2006 13:47:59 +0200
>MIME-Version: 1.0
>Received: from databaseadvisors.com ([209.135.140.44]) by 
>bay0-mc2-f19.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.211); Sun, 15 
>Jan 2006 03:49:00 -0800
>Received: from databaseadvisors.com (databaseadvisors.com 
>[209.135.140.44])by databaseadvisors.com (8.11.6/8.11.6) with ESMTP id 
>k0FBlaV12568;Sun, 15 Jan 2006 05:47:36 -0600
>Received: from aiolos.otenet.gr 
>(OTEnet-mail-system at aiolos.otenet.gr[195.170.0.93])by databaseadvisors.com 
>(8.11.6/8.11.6) with ESMTP id k0FBlOV12502for 
><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 05:47:25 -0600
>Received: from KOST36 (athe730e-2894.otenet.gr [83.235.12.100])by 
>aiolos.otenet.gr (8.13.4/8.13.4/Debian-8) with SMTP idk0FBlMDb003045for 
><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 13:47:23 +0200
>X-Message-Info: tyddfols8vHo3LAyqMtMFe5EiIL9cWdA2ZMd7W/Skmg=
>References: <s3973f7d.045 at cactus.dk>
>X-MSMail-Priority: Normal
>X-Mailer: Microsoft Outlook Express 6.00.2900.2180
>X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
>X-BeenThere: accessd at databaseadvisors.com
>X-Mailman-Version: 2.1.6-xhtml
>Precedence: list
>List-Id: Access Developers discussion and problem 
>solving<accessd.databaseadvisors.com>
>List-Unsubscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=unsubscribe>
>List-Archive: <http://databaseadvisors.com/pipermail/accessd>
>List-Post: <mailto:accessd at databaseadvisors.com>
>List-Help: <mailto:accessd-request at databaseadvisors.com?subject=help>
>List-Subscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=subscribe>
>Errors-To: accessd-bounces at databaseadvisors.com
>Return-Path: accessd-bounces at databaseadvisors.com
>X-OriginalArrivalTime: 15 Jan 2006 11:49:01.0053 (UTC) 
>FILETIME=[AD234AD0:01C619C9]
>
>I have about 7.000 folders saved as .
>KING KONG (1933) - Max Steiner
>what I want to do is to rename all the folders as
>(1933) KING KONG - Max Steiner
>
>is that possible?
>thank's a lot
>/kostas
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From kost36 at otenet.gr  Mon Jan 16 10:46:16 2006
From: kost36 at otenet.gr (Kostas Konstantinidis)
Date: Mon, 16 Jan 2006 18:46:16 +0200
Subject: [AccessD] is it possible to rename many folders via access?
References: <BAY113-F57172D5760830E4554B52A1180@phx.gbl>
Message-ID: <003801c61abc$5e76b6d0$6401a8c0@KOST36>

Jurgen,
KING KONG was just an example.
every folder has its unic name
My example was refferenced to that, trying to explain the format of the 
folder names e.g.

Movie Title (Year) - Composer

thank's for your response
/kostas

----- Original Message ----- 
From: "Jurgen Welz" <jwelz at hotmail.com>
To: <accessd at databaseadvisors.com>
Sent: Sunday, January 15, 2006 6:37 PM
Subject: Re: [AccessD] is it possible to rename many folders via access?


> Kostas:
>
> You can use the Dir function to return file/folder names that match the
> spec, check the return value as to whether it is a directory with GetAttr
> (If (GetAttr(strDirReturn) And vbDirectory) = vbDirectory Then) and then 
> use
> the Name "C:\FilePath" As "C:\NewFilePath" syntax to rename folders.
>
> Obviously all your folders can't have the same name and be in the same
> location.  EIther they are elsewhere in the directory structure or on
> various drives and/or machines.  You'll either need to to a recursive 
> search
> with the Dir function to return the original folder names, unless the
> folders have some kind of suffix like:  KING KONG (1933) - Max Steiner A.
>
> Do all the folders have exactly the same name, or is that just the start 
> of
> the name and they have various suffixes and share the same root?
>
>
>
> Ciao
> J?rgen Welz
> Edmonton, Alberta
> jwelz at hotmail.com
>
>
>
>
>
>>From: "Kostas Konstantinidis" <kost36 at otenet.gr>
>>Reply-To: Access Developers discussion and problem
>>solving<accessd at databaseadvisors.com>
>>To: "Access Developers discussion and problem
>>solving"<accessd at databaseadvisors.com>
>>Subject: [AccessD] is it possible to rename many folders via access?
>>Date: Mon, 16 Jan 2006 13:47:59 +0200
>>MIME-Version: 1.0
>>Received: from databaseadvisors.com ([209.135.140.44]) by
>>bay0-mc2-f19.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.211); Sun, 
>>15
>>Jan 2006 03:49:00 -0800
>>Received: from databaseadvisors.com (databaseadvisors.com
>>[209.135.140.44])by databaseadvisors.com (8.11.6/8.11.6) with ESMTP id
>>k0FBlaV12568;Sun, 15 Jan 2006 05:47:36 -0600
>>Received: from aiolos.otenet.gr
>>(OTEnet-mail-system at aiolos.otenet.gr[195.170.0.93])by databaseadvisors.com
>>(8.11.6/8.11.6) with ESMTP id k0FBlOV12502for
>><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 05:47:25 -0600
>>Received: from KOST36 (athe730e-2894.otenet.gr [83.235.12.100])by
>>aiolos.otenet.gr (8.13.4/8.13.4/Debian-8) with SMTP idk0FBlMDb003045for
>><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 13:47:23 +0200
>>X-Message-Info: tyddfols8vHo3LAyqMtMFe5EiIL9cWdA2ZMd7W/Skmg=
>>References: <s3973f7d.045 at cactus.dk>
>>X-MSMail-Priority: Normal
>>X-Mailer: Microsoft Outlook Express 6.00.2900.2180
>>X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
>>X-BeenThere: accessd at databaseadvisors.com
>>X-Mailman-Version: 2.1.6-xhtml
>>Precedence: list
>>List-Id: Access Developers discussion and problem
>>solving<accessd.databaseadvisors.com>
>>List-Unsubscribe:
>><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=unsubscribe>
>>List-Archive: <http://databaseadvisors.com/pipermail/accessd>
>>List-Post: <mailto:accessd at databaseadvisors.com>
>>List-Help: <mailto:accessd-request at databaseadvisors.com?subject=help>
>>List-Subscribe:
>><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=subscribe>
>>Errors-To: accessd-bounces at databaseadvisors.com
>>Return-Path: accessd-bounces at databaseadvisors.com
>>X-OriginalArrivalTime: 15 Jan 2006 11:49:01.0053 (UTC)
>>FILETIME=[AD234AD0:01C619C9]
>>
>>I have about 7.000 folders saved as .
>>KING KONG (1933) - Max Steiner
>>what I want to do is to rename all the folders as
>>(1933) KING KONG - Max Steiner
>>
>>is that possible?
>>thank's a lot
>>/kostas
>>
>>--
>>AccessD mailing list
>>AccessD at databaseadvisors.com
>>http://databaseadvisors.com/mailman/listinfo/accessd
>>Website: http://www.databaseadvisors.com
>
>
>


--------------------------------------------------------------------------------


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




From Gustav at cactus.dk  Sun Jan 15 11:50:39 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sun, 15 Jan 2006 18:50:39 +0100
Subject: [AccessD] is it possible to rename many folders via	access?
Message-ID: <s3ca99a3.020@cactus.dk>

Hi Kostas

Well, Dir will list your folders:

  ' Find first folder.
  strFolder = Dir(strParent & "\*.", vbDirectory)
  While Len(strFolder) > 0
    ' Pick movie.
    strName = Split(strFolder, "-")(0)
    lngLen = Len(strName)
    ' Rearrange movie and concatenate with composer.
    strNewName = Right(strName, 6) & " " & Left(strName, lngLen - 7) & "-" & Split(strFolder, "-")(1)
    ' Build old and new path.
    strPath = strParent & "\" & strFolder
    strNewPath = strParent & "\" & strNewName
    ' Rename folder.
    Name strPath As strNewPath
    ' Find next folder.
    strFolder = Dir
  Wend

/gustav

>>> kost36 at otenet.gr 16-01-2006 17:46:16 >>>
Jurgen,
KING KONG was just an example.
every folder has its unic name
My example was refferenced to that, trying to explain the format of the 
folder names e.g.

Movie Title (Year) - Composer

thank's for your response
/kostas

----- Original Message ----- 
From: "Jurgen Welz" <jwelz at hotmail.com>
To: <accessd at databaseadvisors.com>
Sent: Sunday, January 15, 2006 6:37 PM
Subject: Re: [AccessD] is it possible to rename many folders via access?


> Kostas:
>
> You can use the Dir function to return file/folder names that match the
> spec, check the return value as to whether it is a directory with GetAttr
> (If (GetAttr(strDirReturn) And vbDirectory) = vbDirectory Then) and then 
> use
> the Name "C:\FilePath" As "C:\NewFilePath" syntax to rename folders.
>
> Obviously all your folders can't have the same name and be in the same
> location.  EIther they are elsewhere in the directory structure or on
> various drives and/or machines.  You'll either need to to a recursive 
> search
> with the Dir function to return the original folder names, unless the
> folders have some kind of suffix like:  KING KONG (1933) - Max Steiner A.
>
> Do all the folders have exactly the same name, or is that just the start 
> of
> the name and they have various suffixes and share the same root?
>
>
>
> Ciao
> J?rgen Welz
> Edmonton, Alberta
> jwelz at hotmail.com 
>
>
>
>
>
>>From: "Kostas Konstantinidis" <kost36 at otenet.gr>
>>Reply-To: Access Developers discussion and problem
>>solving<accessd at databaseadvisors.com>
>>To: "Access Developers discussion and problem
>>solving"<accessd at databaseadvisors.com>
>>Subject: [AccessD] is it possible to rename many folders via access?
>>Date: Mon, 16 Jan 2006 13:47:59 +0200
>>MIME-Version: 1.0
>>Received: from databaseadvisors.com ([209.135.140.44]) by
>>bay0-mc2-f19.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.211); Sun, 
>>15
>>Jan 2006 03:49:00 -0800
>>Received: from databaseadvisors.com (databaseadvisors.com
>>[209.135.140.44])by databaseadvisors.com (8.11.6/8.11.6) with ESMTP id
>>k0FBlaV12568;Sun, 15 Jan 2006 05:47:36 -0600
>>Received: from aiolos.otenet.gr
>>(OTEnet-mail-system at aiolos.otenet.gr[195.170.0.93])by databaseadvisors.com
>>(8.11.6/8.11.6) with ESMTP id k0FBlOV12502for
>><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 05:47:25 -0600
>>Received: from KOST36 (athe730e-2894.otenet.gr [83.235.12.100])by
>>aiolos.otenet.gr (8.13.4/8.13.4/Debian-8) with SMTP idk0FBlMDb003045for
>><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 13:47:23 +0200
>>X-Message-Info: tyddfols8vHo3LAyqMtMFe5EiIL9cWdA2ZMd7W/Skmg=
>>References: <s3973f7d.045 at cactus.dk>
>>X-MSMail-Priority: Normal
>>X-Mailer: Microsoft Outlook Express 6.00.2900.2180
>>X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
>>X-BeenThere: accessd at databaseadvisors.com 
>>X-Mailman-Version: 2.1.6-xhtml
>>Precedence: list
>>List-Id: Access Developers discussion and problem
>>solving<accessd.databaseadvisors.com>
>>List-Unsubscribe:
>><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=unsubscribe>
>>List-Archive: <http://databaseadvisors.com/pipermail/accessd>
>>List-Post: <mailto:accessd at databaseadvisors.com>
>>List-Help: <mailto:accessd-request at databaseadvisors.com?subject=help>
>>List-Subscribe:
>><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=subscribe>
>>Errors-To: accessd-bounces at databaseadvisors.com 
>>Return-Path: accessd-bounces at databaseadvisors.com 
>>X-OriginalArrivalTime: 15 Jan 2006 11:49:01.0053 (UTC)
>>FILETIME=[AD234AD0:01C619C9]
>>
>>I have about 7.000 folders saved as .
>>KING KONG (1933) - Max Steiner
>>what I want to do is to rename all the folders as
>>(1933) KING KONG - Max Steiner
>>
>>is that possible?
>>thank's a lot
>>/kostas



From jwelz at hotmail.com  Sun Jan 15 12:28:23 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Sun, 15 Jan 2006 11:28:23 -0700
Subject: [AccessD] is it possible to rename many folders via access?
In-Reply-To: <s3ca99a3.020@cactus.dk>
Message-ID: <BAY113-F22A2B759E849D65D89F543A1180@phx.gbl>

Gustav is of course correct, you need to pass the  vbDirectory parameter to 
Dir in order to include folder names in the search and I had neglected to 
include this detail.

Including this parameter allows Dir to return folders, but it does not 
restrict return values to folders.  It still returns files.

Gustav's file spec, '*.', parameter ordinarily ensures that only files will 
be returned.  However, folders may be given an extension or include a '.' 
and these will be excluded by that spec.  Also, this would return file names 
that lack an extension.  In Kostas' case this is probably irrelevant since 
probably no folder names contain a '.' and there are not likely to be any 
files without an extension that would be returned by Dir.

You would want to be sure that your Dir function returns test with IsDate on 
a portion of the folder name beyond the 5th character that match a year 
between 1900 and 2006 (or IsNumeric).  After all, you wouldn't want Dir to 
find a renamed folder and perhaps rename it again ad infinitum, perhaps 
scrambling the folder names beyond all recognition.  You need to be sure 
your string manipulation recognizes a renamed folder.  I still use instr() 
and would test for the location of the first parenthesis.

Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Gustav Brock" <Gustav at cactus.dk>

>Hi Kostas
>
>Well, Dir will list your folders:
>
>   ' Find first folder.
>   strFolder = Dir(strParent & "\*.", vbDirectory)
>   While Len(strFolder) > 0
>     ' Pick movie.
>     strName = Split(strFolder, "-")(0)
>     lngLen = Len(strName)
>     ' Rearrange movie and concatenate with composer.
>     strNewName = Right(strName, 6) & " " & Left(strName, lngLen - 7) & "-" 
>& Split(strFolder, "-")(1)
>     ' Build old and new path.
>     strPath = strParent & "\" & strFolder
>     strNewPath = strParent & "\" & strNewName
>     ' Rename folder.
>     Name strPath As strNewPath
>     ' Find next folder.
>     strFolder = Dir
>   Wend
>
>/gustav
>
> >>> kost36 at otenet.gr 16-01-2006 17:46:16 >>>
>Jurgen,
>KING KONG was just an example.
>every folder has its unic name
>My example was refferenced to that, trying to explain the format of the
>folder names e.g.
>
>Movie Title (Year) - Composer
>
>thank's for your response
>/kostas
>
>----- Original Message -----
>From: "Jurgen Welz" <jwelz at hotmail.com>
>To: <accessd at databaseadvisors.com>
>Sent: Sunday, January 15, 2006 6:37 PM
>Subject: Re: [AccessD] is it possible to rename many folders via access?
>
>
> > Kostas:
> >
> > You can use the Dir function to return file/folder names that match the
> > spec, check the return value as to whether it is a directory with 
>GetAttr
> > (If (GetAttr(strDirReturn) And vbDirectory) = vbDirectory Then) and then
> > use
> > the Name "C:\FilePath" As "C:\NewFilePath" syntax to rename folders.
> >
> > Obviously all your folders can't have the same name and be in the same
> > location.  EIther they are elsewhere in the directory structure or on
> > various drives and/or machines.  You'll either need to to a recursive
> > search
> > with the Dir function to return the original folder names, unless the
> > folders have some kind of suffix like:  KING KONG (1933) - Max Steiner 
>A.
> >
> > Do all the folders have exactly the same name, or is that just the start
> > of
> > the name and they have various suffixes and share the same root?
> >
> >
> >
> > Ciao
> > J?rgen Welz
> > Edmonton, Alberta
> > jwelz at hotmail.com
> >
> >
> >
> >
> >
> >>From: "Kostas Konstantinidis" <kost36 at otenet.gr>
> >>
> >>I have about 7.000 folders saved as .
> >>KING KONG (1933) - Max Steiner
> >>what I want to do is to rename all the folders as
> >>(1933) KING KONG - Max Steiner
> >>
> >>is that possible?
> >>thank's a lot
> >>/kostas




From Gustav at cactus.dk  Sun Jan 15 12:52:06 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sun, 15 Jan 2006 19:52:06 +0100
Subject: [AccessD] is it possible to rename many folders via	access?
Message-ID: <s3caa7fa.022@cactus.dk>

Hi J?rgen and Kostas

Right, you have to be careful - you could destroy a complete folder structure with this code if you get something wrong!

Now I recall I have a helper function to get around some of the limitations of Dir.

<code>

Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" ( _
  ByVal pszPath As String) _
  As Long
  
Public Function IsDir( _
  ByVal strPath As String) _
  As Boolean
  
' Returns True if strPath exists.
  
  Dim stzPath As String
  
  stzPath = strPath & vbNullChar
  
  IsDir = CBool(PathIsDirectory(stzPath))

End Function

</code>

Use this and every other error check you can think of, like:

  If IsDate("1/1/" & Val(Mid(strNewName, 2))) Then 
    ...
  End if

/gustav


>>> jwelz at hotmail.com 15-01-2006 19:28:23 >>>
Gustav is of course correct, you need to pass the  vbDirectory parameter to 
Dir in order to include folder names in the search and I had neglected to 
include this detail.

Including this parameter allows Dir to return folders, but it does not 
restrict return values to folders.  It still returns files.

Gustav's file spec, '*.', parameter ordinarily ensures that only files will 
be returned.  However, folders may be given an extension or include a '.' 
and these will be excluded by that spec.  Also, this would return file names 
that lack an extension.  In Kostas' case this is probably irrelevant since 
probably no folder names contain a '.' and there are not likely to be any 
files without an extension that would be returned by Dir.

You would want to be sure that your Dir function returns test with IsDate on 
a portion of the folder name beyond the 5th character that match a year 
between 1900 and 2006 (or IsNumeric).  After all, you wouldn't want Dir to 
find a renamed folder and perhaps rename it again ad infinitum, perhaps 
scrambling the folder names beyond all recognition.  You need to be sure 
your string manipulation recognizes a renamed folder.  I still use instr() 
and would test for the location of the first parenthesis.

Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com 





>From: "Gustav Brock" <Gustav at cactus.dk>

>Hi Kostas
>
>Well, Dir will list your folders:
>
>   ' Find first folder.
>   strFolder = Dir(strParent & "\*.", vbDirectory)
>   While Len(strFolder) > 0
>     ' Pick movie.
>     strName = Split(strFolder, "-")(0)
>     lngLen = Len(strName)
>     ' Rearrange movie and concatenate with composer.
>     strNewName = Right(strName, 6) & " " & Left(strName, lngLen - 7) & "-" 
>& Split(strFolder, "-")(1)
>     ' Build old and new path.
>     strPath = strParent & "\" & strFolder
>     strNewPath = strParent & "\" & strNewName
>     ' Rename folder.
>     Name strPath As strNewPath
>     ' Find next folder.
>     strFolder = Dir
>   Wend
>
>/gustav
>
> >>> kost36 at otenet.gr 16-01-2006 17:46:16 >>>
>Jurgen,
>KING KONG was just an example.
>every folder has its unic name
>My example was refferenced to that, trying to explain the format of the
>folder names e.g.
>
>Movie Title (Year) - Composer
>
>thank's for your response
>/kostas
>
>----- Original Message -----
>From: "Jurgen Welz" <jwelz at hotmail.com>
>To: <accessd at databaseadvisors.com>
>Sent: Sunday, January 15, 2006 6:37 PM
>Subject: Re: [AccessD] is it possible to rename many folders via access?
>
>
> > Kostas:
> >
> > You can use the Dir function to return file/folder names that match the
> > spec, check the return value as to whether it is a directory with 
>GetAttr
> > (If (GetAttr(strDirReturn) And vbDirectory) = vbDirectory Then) and then
> > use
> > the Name "C:\FilePath" As "C:\NewFilePath" syntax to rename folders.
> >
> > Obviously all your folders can't have the same name and be in the same
> > location.  EIther they are elsewhere in the directory structure or on
> > various drives and/or machines.  You'll either need to to a recursive
> > search
> > with the Dir function to return the original folder names, unless the
> > folders have some kind of suffix like:  KING KONG (1933) - Max Steiner 
>A.
> >
> > Do all the folders have exactly the same name, or is that just the start
> > of
> > the name and they have various suffixes and share the same root?
> >
> >
> >
> > Ciao
> > J?rgen Welz
> > Edmonton, Alberta
> > jwelz at hotmail.com 
> >
> >
> >
> >
> >
> >>From: "Kostas Konstantinidis" <kost36 at otenet.gr>
> >>
> >>I have about 7.000 folders saved as .
> >>KING KONG (1933) - Max Steiner
> >>what I want to do is to rename all the folders as
> >>(1933) KING KONG - Max Steiner
> >>
> >>is that possible?
> >>thank's a lot
> >>/kostas




From martyconnelly at shaw.ca  Sun Jan 15 13:15:30 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Sun, 15 Jan 2006 11:15:30 -0800
Subject: [AccessD] SMS Phone text messaging from Access
References: <BAY113-F22A2B759E849D65D89F543A1180@phx.gbl>
Message-ID: <43CA9F52.70906@shaw.ca>

Here is an Access one liner to send a Phone SMS text message to any cell 
phone in North America.

DoCmd.SendObject , , acFormatTXT, "250-555-1212 at teleflip.com", _
, ,  "SMS Message from Access"," Body this is a test from Access" , False

Using teleflip.com SMS portal avoids having to distinguish between these 
cell phone SMS portals below
Here are some cellphone providers that you do have to know the carrier of
the cellphone you want to send email to:
AT&T:   AreaCode+Mob... at mobile.att.net
Verizon:   AreaCode+Mob... at vtext.com
Nextel:   AreaCode+Mob... at page.nextel.com
T-Mobile:   AreaCode+Mob... at tmomail.com
Sprint:   AreaCode+Mob... at messaging.sprintpcs.com
Cingular:   1+AreaCode+Mob... at mobile.mycingular.com

Given Teleflip's privacy policy of storing text messages and numbers  
for business purposes
(that veils a multitude of sins). I would only use to message such 
things as an
indicator of  computer job run termination or sql server failure.
And given the recent press announcements that you can obtain a list
of called numbers for a particular cell phone from a broker, does anyone 
see
any other security problems with this messaging method?

http://www.teleflip.com/teleflip/index.jsp

http://abtolls.com/information/sendatextpage.html

Advanced SMS methods to handle acknowledgement etc.
http://www.microsoft.com/sql/ns/partners/delivery.asp

-- 
Marty Connelly
Victoria, B.C.
Canada





From accessd at shaw.ca  Sun Jan 15 14:59:40 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Sun, 15 Jan 2006 12:59:40 -0800
Subject: [AccessD] String replacement wizard
In-Reply-To: <002701c619ed$c5344b00$647aa8c0@ColbyM6805>
Message-ID: <001b01c61a16$9a1bbe70$017ba8c0@xpserver>

Hi John:

A very interesting read. Excellent coding sample.

Jim  

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: January 15, 2006 8:07 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] String replacement wizard

Have you ever wanted the ability to replace markers in boiler plate?

I have been building up a wizard for building class /controller class pairs,
something I use all the time.  Part of the process is to insert boilerplate
text such as:

'CopyRight: |CopyRightVal|
'.=========================================================================
'.Description  :
'.
'.Written By   : |AuthorVal|
'.Date Created : |DateVal|
' Rev. History :
'
' Comments     :
'THESE CONSTANTS AND VARIABLES ARE USED INTERNALLY TO THE CLASS
'*+ Class constant declaration
Private Const DebugPrint As Boolean = False
Private Const mcstrModuleName As String = "|ClsNameVal|"

And then be able to replace the markers:

|CopyRightVal|
|AuthorVal|
|DateVal|
|ClsNameVal|

With values either pulled from a string replacement table or generated by
the code.

|CopyRightVal|
|AuthorVal|

Come from a table of marker / replacement strings, and

|DateVal|
|ClsNameVal|

Are values that the class generation code determines at run time.

In order to do this I built a child class / controller pair.  The child
class holds the data from tblStringReplacement where the data looks like:

Orig			Text
Replacement		Memo

The controller class loads the data from the table into child class
instances, then has a pair of methods to do the replacements.  One method
replaces all markers that it can find in the table (looking in the child
classes), the other method performs a replacement of a marker passed in and
a replacement string passed in (used for Runtime marker replacements).

The classes look like:

'*******************
'Begin Code Code Code Code
'*******************
Option Compare Database
Option Explicit

Private mOrig As String
Private mReplacement As String

Function mInit(lOrig As String, lReplacement As String)
    mOrig = lOrig
    mReplacement = lReplacement
End Function
Property Get pOrig() As String
    pOrig = mOrig
End Property
Property Get pReplacement() As String
    pReplacement = mReplacement
End Property

'*******************
'End Code Code Code Code
'*******************

Which holds the data in the tblStringReplacement - one class per record and:

'*******************
'Begin Code Code Code Code
'*******************
Private mstrTblName As String
Private mstrIdentFldName As String

Private mcolclsSystem As Collection

Private Sub Class_Initialize()
    Set mcolclsSystem = New Collection
End Sub

Private Sub Class_Terminate()
    Set mcolclsSystem = Nothing
End Sub
'
'strIdentFldName used as the key into the collection if present
'
Function mInit(strTblName As String, Optional strIdentFldName As String =
"Orig")
On Error GoTo Err_mInit
    mstrTblName = strTblName
    mstrIdentFldName = strIdentFldName
    ClsFactory
Exit_mInit:
Exit Function
Err_mInit:
        MsgBox Err.Description, , "Error in Function clsStrReplaceCtl.mInit"
        Resume Exit_mInit
    Resume 0    '.FOR TROUBLESHOOTING
End Function
Private Function ClsFactory()
On Error GoTo Err_ClsFactory
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim lcls As clsStrReplace
Dim fld As ADODB.Field
    Set cnn = CodeProject.Connection
    Set rst = New ADODB.Recordset
    rst.Open "SELECT * FROM " & mstrTblName, cnn, adOpenStatic,
adLockPessimistic
    With rst
        While Not .EOF
            Set lcls = New clsStrReplace
            lcls.mInit .Fields("Orig"), .Fields("Replacement")
            If Len(mstrIdentFldName) > 0 Then
                mcolclsSystem.Add lcls, CStr(.Fields(mstrIdentFldName))
            Else
                mcolclsSystem.Add lcls
            End If
            .MoveNext
        Wend
    End With
Exit_ClsFactory:
On Error Resume Next
    If Not (rst Is Nothing) Then rst.Close: Set rst = Nothing
    If Not (cnn Is Nothing) Then cnn.Close: Set cnn = Nothing
Exit Function
Err_ClsFactory:
        MsgBox Err.Description, , "Error in Function
clsSystemsCtrl.ClsFactory"
        Resume Exit_ClsFactory
    Resume 0    '.FOR TROUBLESHOOTING
End Function
Property Get cStrReplace(varVal As Variant) As clsStrReplace
On Error GoTo Err_cStrReplace
    Set cStrReplace = mcolclsSystem(CStr(varVal))
Exit_cStrReplace:
Exit Property
Err_cStrReplace:
        MsgBox Err.Description, , "Error in Property Get clsStrReplaceCtl.
cStrReplace"
        Resume Exit_cStrReplace
    Resume 0    '.FOR TROUBLESHOOTING
End Property
'
'This function will search a string for a specific marker passed in.
'Where found, the marker will be replaced by the replacement passed in.
'
Public Function mReplaceMarker(strToProcess As String, strMarker As String,
strReplacement As String)
On Error GoTo Err_mReplaceMarker
Dim intPos1 As Integer
Dim intPos2 As Integer
Dim lstrToProcess As String
Dim lstrProcessed As String
Dim lstrMarker As String
'Dim lstrReplacement As String
Dim blnMarkerNotFound As Boolean
    lstrToProcess = strToProcess
    'intPos1 = 1
    Do
        blnMarkerNotFound = True
        lstrMarker = ""
        '
        'Look for a marker
        '
        intPos1 = InStr(intPos1 + 1, lstrToProcess, "|")
        If intPos1 > intPos2 Then
            intPos2 = InStr(intPos1 + 1, lstrToProcess, "|")
            If intPos2 > intPos1 Then
                lstrMarker = mID$(lstrToProcess, intPos1 + 1, intPos2 -
intPos1 - 1)
                If Len(lstrMarker) > 0 Then
                    blnMarkerNotFound = False
                    On Error Resume Next
                    If lstrMarker = strMarker Then
                        '
                        'I only use the lstrProcessed so I can watch the
process as I am programming it.
                        'Replace this when debugged
                        '
                        'lstrReplacement =
cStrReplace(lstrMarker).pReplacement
                        lstrProcessed = Replace(lstrToProcess, "|" &
lstrMarker & "|", strReplacement)
                        lstrToProcess = lstrProcessed
                    Else
                        intPos1 = intPos2 + 1
                        
                    End If
                    'intPos1 = intPos2 + 1
                Else
                End If
            Else
            End If
        Else
        End If
    Loop Until blnMarkerNotFound
    mReplaceMarker = lstrToProcess
Exit_mReplaceMarker:
Exit Function
Err_mReplaceMarker:
        MsgBox Err.Description, , "Error in Function
clsStrReplaceCtl.mReplaceMarker"
        Resume Exit_mReplaceMarker
    Resume 0    '.FOR TROUBLESHOOTING
End Function
'
'This function will search strings for embedded "replacement markers"
denoted by |SomeValue|
'Where found, these replacement markers will be looked up in the
tblStrReplacement (the loaded collection)
'and if found, the replacement marker will be replaced with the replacement
value.
'
'If not found, the Replacement marker will be left in place untouched.
'
Public Function mReplaceMarkers(strToProcess As String) As String
On Error GoTo Err_mReplaceMarkers
Dim intPos1 As Integer
Dim intPos2 As Integer
Dim lstrToProcess As String
Dim lstrProcessed As String
Dim lstrMarker As String
Dim lstrReplacement As String
Dim cSR As clsStrReplace

Dim blnMarkerNotFound As Boolean
    lstrToProcess = strToProcess
    'intPos1 = 1
    Do
        blnMarkerNotFound = True
        lstrMarker = ""
        '
        'Look for a marker
        '
        intPos1 = InStr(intPos1 + 1, lstrToProcess, "|")
        If intPos1 > intPos2 Then
            intPos2 = InStr(intPos1 + 1, lstrToProcess, "|")
            If intPos2 > intPos1 Then
                lstrMarker = mID$(lstrToProcess, intPos1 + 1, intPos2 -
intPos1 - 1)
                If Len(lstrMarker) > 0 Then
                    blnMarkerNotFound = False
                    On Error Resume Next
                    Set cSR = mcolclsSystem(lstrMarker)
                    If Err = 0 Then
                        '
                        'I only use the lstrProcessed so I can watch the
process as I am programming it.
                        'Replace this when debugged
                        '
                        lstrReplacement =
cStrReplace(lstrMarker).pReplacement
                        lstrProcessed = Replace(lstrToProcess, "|" &
lstrMarker & "|", lstrReplacement)
                        lstrToProcess = lstrProcessed
                    Else
                        intPos1 = intPos2 + 1
                        
                    End If
        On Error GoTo Err_mReplaceMarkers
                    'intPos1 = intPos2 + 1
                Else
                End If
            Else
            End If
        Else
        End If
    Loop Until blnMarkerNotFound
    mReplaceMarkers = lstrToProcess
Exit_mReplaceMarkers:
Exit Function
Err_mReplaceMarkers:
        MsgBox Err.Description, , "Error in Function
clsStrReplaceCtl.mReplaceMarkers"
        Resume Exit_mReplaceMarkers
    Resume 0    '.FOR TROUBLESHOOTING
End Function
'*******************
'End Code Code Code Code
'*******************

The following code tests the control class clsStrReplaceCtl:

'*******************
'Begin Code Code Code Code
'*******************
Option Compare Database
Option Explicit

Private mclsStrReplaceCtl As clsStrReplaceCtl
Function StrReplaceInit(strTbl As String)
    If mclsStrReplaceCtl Is Nothing Then
        Set mclsStrReplaceCtl = New clsStrReplaceCtl
        mclsStrReplaceCtl.mInit strTbl
    End If
End Function
Function StrReplaceTerm()
    Set mclsStrReplaceCtl = Nothing
End Function
Public Function cSRC() As clsStrReplaceCtl
    Set cSRC = mclsStrReplaceCtl
End Function
Function TestReplace()
Dim strToTest As String
Dim strResults As String
    StrReplaceInit "tblStrReplace"
    strToTest = "This is a |specific| test.  |Author| is a very nice guy.
His phone is |Phone|.  His email is |email|.  I hope that this is enough to
|test|"
    strResults = cSRC.mReplaceMarkers(strToTest)
    Debug.Print strResults
    strToTest = strResults
    strResults = cSRC.mReplaceMarker(strToTest, "specific", "Very specific")
    Debug.Print strResults
    strToTest = strResults
    strResults = cSRC.mReplaceMarker(strToTest, "test", "work with")
    Debug.Print strResults
End Function
'*******************
'End Code Code Code Code
'*******************

Author, Phone and Email will be found in the table, Specific and Test will
be "run time replacement" tests.

This is a rather example of how I use child / controller classes.  The data
gets cached to speed up access to what would non-changing data in a table,
and then accessed from child classes stored in a collection in the
controller.

I have pretty much finished an Add-in to build the child / controller class
pair for a given table.  The add-in uses this string replacement system.  It
was an interesting exercise in frustration trying to get the finished
classes to save properly (thanks Shamil for the solution).

John W. Colby
www.ColbyConsulting.com 


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



From jmhecht at earthlink.net  Sun Jan 15 22:57:56 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sun, 15 Jan 2006 20:57:56 -0800
Subject: [AccessD] Conditional Format Question
Message-ID: <001f01c61a59$6abdc130$6701a8c0@HPLaptop>

I have series of date fields that represent license
expiration dates.

 

I have tried to do a conditional format where 

 

            If field value < now () bold the field

 

Where field value is the expiration date.

 

Nothing happens to the field.

 

Any ideas?

 

 

 

 

Joe Hecht

jmhecht at earthlink.net

 



From accessd at shaw.ca  Mon Jan 16 00:36:40 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Sun, 15 Jan 2006 22:36:40 -0800
Subject: [AccessD] Conditional Format Question
In-Reply-To: <001f01c61a59$6abdc130$6701a8c0@HPLaptop>
Message-ID: <000c01c61a67$3617c940$017ba8c0@xpserver>

Hi Jim:

It would not be as simple as field.text (what displays) and field.value
(what the field value was). Barring that it may be that the field stored
value is represented as a string and is not comparing with date value or the
formatting is different. Have you tried something like? :

If format(me.field.value,"yyyymmdd") < format(now(),"yyyymmdd") then bold
field.

HTH
Jim 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: January 15, 2006 8:58 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Conditional Format Question

I have series of date fields that represent license
expiration dates.

 

I have tried to do a conditional format where 

 

            If field value < now () bold the field

 

Where field value is the expiration date.

 

Nothing happens to the field.

 

Any ideas?

 

 

 

 

Joe Hecht

jmhecht at earthlink.net

 

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



From cfoust at infostatsystems.com  Mon Jan 16 10:40:43 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 16 Jan 2006 08:40:43 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF26@INFOSERVER04.infostat.local>

I don't know what you mean, Josh, but I suspect you haven't had actual
experience with SourceSafe.  We use SourceSafe with Access and with
VB.Net and have no problems comparing versions.  With Access, you do
need the add-in that allows you to work with Source Safe from within
Access (comes with the ODE, if I remember correctly).  This maintains
each object as a separate sourcesafe file, not the entire database.  Nor
have we had the corruption issues you describe.  ANY file can and will
corrupt.  It isn't peculiar to any particular product or program.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Saturday, January 14, 2006 2:35 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/14/06, Dan Waters <dwaters at usinternet.com> wrote:
> Has anyone used a program called Vault from Sourcegear, or Perforce, 
> while programming in Access?  If it worked, was it useful?

Dan,

For Access IIRC, source control will lose one of it's most important
featuers (diff'ing) with Access because Access is stored as a binary
file.

That said, I've used 3 different source control programs while working
on C++ coding.

Visual Source-Safe: Steer clear of this one - It's outdated and has a
high corruption rate on the source control database.

CVS: Open-source, widely used, and widely tested. Nice for single-file
verisoning. Made for Unix but NT versions are also available

Subversion: Also open source, this is what we currently use in shop. It
maintains versioning on a per-repository basis rather than a per-file
basis. Very very nice freeware client called TortioseSVN. Was fairly
easy to set up also. Also tracks file renames, directory changes, and
other meta information. Allows you to also add a meta-tag to track
changes due to bug-fixes from bug-tracking software, etc.

As a whole, it'd work great for a backup / revision system as long as
you made sure that when you checked in files you comment what changed.

If you try out Vault or Perforce, let me know what you think.

--
Josh McFarlane


From dwaters at usinternet.com  Mon Jan 16 11:19:52 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Mon, 16 Jan 2006 11:19:52 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <24856680.1137430014235.JavaMail.root@sniper21>
Message-ID: <001001c61ac1$10395180$0200a8c0@danwaters>

Charlotte,

I've seen where I can download this add-in for Access 2003, but I was
wondering if the add-in can also be used with Access XP?

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Monday, January 16, 2006 10:41 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control

I don't know what you mean, Josh, but I suspect you haven't had actual
experience with SourceSafe.  We use SourceSafe with Access and with
VB.Net and have no problems comparing versions.  With Access, you do
need the add-in that allows you to work with Source Safe from within
Access (comes with the ODE, if I remember correctly).  This maintains
each object as a separate sourcesafe file, not the entire database.  Nor
have we had the corruption issues you describe.  ANY file can and will
corrupt.  It isn't peculiar to any particular product or program.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Saturday, January 14, 2006 2:35 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/14/06, Dan Waters <dwaters at usinternet.com> wrote:
> Has anyone used a program called Vault from Sourcegear, or Perforce, 
> while programming in Access?  If it worked, was it useful?

Dan,

For Access IIRC, source control will lose one of it's most important
featuers (diff'ing) with Access because Access is stored as a binary
file.

That said, I've used 3 different source control programs while working
on C++ coding.

Visual Source-Safe: Steer clear of this one - It's outdated and has a
high corruption rate on the source control database.

CVS: Open-source, widely used, and widely tested. Nice for single-file
verisoning. Made for Unix but NT versions are also available

Subversion: Also open source, this is what we currently use in shop. It
maintains versioning on a per-repository basis rather than a per-file
basis. Very very nice freeware client called TortioseSVN. Was fairly
easy to set up also. Also tracks file renames, directory changes, and
other meta information. Allows you to also add a meta-tag to track
changes due to bug-fixes from bug-tracking software, etc.

As a whole, it'd work great for a backup / revision system as long as
you made sure that when you checked in files you comment what changed.

If you try out Vault or Perforce, let me know what you think.

--
Josh McFarlane
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From cfoust at infostatsystems.com  Mon Jan 16 11:59:23 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 16 Jan 2006 09:59:23 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF28@INFOSERVER04.infostat.local>

I should think so.  Both XP and 2003 are based on VB6, not VS.Net, so
you should be able to use it.  Worth a try anyhow.  We're still using
Access XP to maintain our current generation apps, so I can't test it.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: Monday, January 16, 2006 9:20 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Source Code Control


Charlotte,

I've seen where I can download this add-in for Access 2003, but I was
wondering if the add-in can also be used with Access XP?

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Monday, January 16, 2006 10:41 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control

I don't know what you mean, Josh, but I suspect you haven't had actual
experience with SourceSafe.  We use SourceSafe with Access and with
VB.Net and have no problems comparing versions.  With Access, you do
need the add-in that allows you to work with Source Safe from within
Access (comes with the ODE, if I remember correctly).  This maintains
each object as a separate sourcesafe file, not the entire database.  Nor
have we had the corruption issues you describe.  ANY file can and will
corrupt.  It isn't peculiar to any particular product or program.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Saturday, January 14, 2006 2:35 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/14/06, Dan Waters <dwaters at usinternet.com> wrote:
> Has anyone used a program called Vault from Sourcegear, or Perforce,
> while programming in Access?  If it worked, was it useful?

Dan,

For Access IIRC, source control will lose one of it's most important
featuers (diff'ing) with Access because Access is stored as a binary
file.

That said, I've used 3 different source control programs while working
on C++ coding.

Visual Source-Safe: Steer clear of this one - It's outdated and has a
high corruption rate on the source control database.

CVS: Open-source, widely used, and widely tested. Nice for single-file
verisoning. Made for Unix but NT versions are also available

Subversion: Also open source, this is what we currently use in shop. It
maintains versioning on a per-repository basis rather than a per-file
basis. Very very nice freeware client called TortioseSVN. Was fairly
easy to set up also. Also tracks file renames, directory changes, and
other meta information. Allows you to also add a meta-tag to track
changes due to bug-fixes from bug-tracking software, etc.

As a whole, it'd work great for a backup / revision system as long as
you made sure that when you checked in files you comment what changed.

If you try out Vault or Perforce, let me know what you think.

--
Josh McFarlane
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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


From Gustav at cactus.dk  Mon Jan 16 12:08:21 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 16 Jan 2006 19:08:21 +0100
Subject: [AccessD] Path to Word 12
Message-ID: <s3cbef36.050@cactus.dk>

Hi all

In the registry, the path for Word 11 object library is here:

HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{00020905-0000-0000-C000-000000000046}\8.3\0\win32

Has anyone the beta 12 installed?
Would the path be here:

HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{00020905-0000-0000-C000-000000000046}\8.4\0\win32

/gustav



From mwp.reid at qub.ac.uk  Mon Jan 16 12:38:17 2006
From: mwp.reid at qub.ac.uk (Martin Reid)
Date: Mon, 16 Jan 2006 18:38:17 -0000
Subject: [AccessD] Path to Word 12
References: <s3cbef36.050@cactus.dk>
Message-ID: <000a01c61acc$04f05e30$beb8fea9@Martin>

Points at OFFICE12\MSWORD.OLB

Martin



----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Monday, January 16, 2006 6:08 PM
Subject: [AccessD] Path to Word 12


> Hi all
>
> In the registry, the path for Word 11 object library is here:
>
> HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{00020905-0000-0000-C000-000000000046}\8.3\0\win32
>
> Has anyone the beta 12 installed?
> Would the path be here:
>
> HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{00020905-0000-0000-C000-000000000046}\8.4\0\win32
>
> /gustav
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From mwp.reid at qub.ac.uk  Mon Jan 16 12:50:26 2006
From: mwp.reid at qub.ac.uk (mwp.reid at qub.ac.uk)
Date: Mon, 16 Jan 2006 18:50:26 -0000
Subject: [AccessD] Path to Word 12
Message-ID: <200601161850.k0GIoJV04582@databaseadvisors.com>

When I have dinner will check

-----Original Message-----
    From: "Gustav Brock"<Gustav at cactus.dk>
    Sent: 1/16/06 6:08:21 PM
    To: "accessd at databaseadvisors.com"<accessd at databaseadvisors.com>
    Subject: [AccessD] Path to Word 12
    
    Hi all
    
    In the registry, the path for Word 11 object library is here:
    
    HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{00020905-0000-0000-C000-000000000046}\8.3\0\win32
    
    Has anyone the beta 12 installed?
    Would the path be here:
    
    HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{00020905-0000-0000-C000-000000000046}\8.4\0\win32
    
    /gustav
    
    -- 
    AccessD mailing list
    AccessD at databaseadvisors.com
    http://databaseadvisors.com/mailman/listinfo/accessd
    Website: http://www.databaseadvisors.com



From harkinsss at bellsouth.net  Mon Jan 16 13:17:32 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Mon, 16 Jan 2006 14:17:32 -0500
Subject: [AccessD] Padding text values
Message-ID: <000201c61ad1$80b17b80$c5b3d6d1@SUSANONE>

I thought I could pad a text value with a simple expression in Format or
Default, but can't come up with it -- I know I could write a function to do
this, but seems this should be a simple property expression. I don't want to
force the user to enter 045 instead of 45 -- I want to add the leading zero.
I'm pulling a complete blank. 
 
Susan H. 


From developer at ultradnt.com  Mon Jan 16 13:25:04 2006
From: developer at ultradnt.com (Steve Conklin)
Date: Mon, 16 Jan 2006 14:25:04 -0500
Subject: [AccessD] Padding text values
In-Reply-To: <000201c61ad1$80b17b80$c5b3d6d1@SUSANONE>
Message-ID: <200601161925.k0GJP5E23011@ultradnt.com>

Format(str, 00#) 

Hth
Steve 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Monday, January 16, 2006 2:18 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Padding text values

I thought I could pad a text value with a simple expression in Format or
Default, but can't come up with it -- I know I could write a function to do
this, but seems this should be a simple property expression. I don't want to
force the user to enter 045 instead of 45 -- I want to add the leading zero.
I'm pulling a complete blank. 
 
Susan H. 
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From developer at ultradnt.com  Mon Jan 16 13:26:01 2006
From: developer at ultradnt.com (Steve Conklin)
Date: Mon, 16 Jan 2006 14:26:01 -0500
Subject: [AccessD] Padding text values
Message-ID: <200601161926.k0GJQ2E23127@ultradnt.com>

 Format(str, "00#") - that is :)


-----Original Message-----
From: Steve Conklin [mailto:developer at ultradnt.com] 
Sent: Monday, January 16, 2006 2:25 PM
To: 'Access Developers discussion and problem solving'
Subject: RE: [AccessD] Padding text values

Format(str, 00#) 

Hth
Steve 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Monday, January 16, 2006 2:18 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Padding text values

I thought I could pad a text value with a simple expression in Format or
Default, but can't come up with it -- I know I could write a function to do
this, but seems this should be a simple property expression. I don't want to
force the user to enter 045 instead of 45 -- I want to add the leading zero.
I'm pulling a complete blank. 
 
Susan H. 
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From DElam at jenkens.com  Mon Jan 16 13:27:29 2006
From: DElam at jenkens.com (Elam, Debbie)
Date: Mon, 16 Jan 2006 13:27:29 -0600
Subject: [AccessD] Padding text values
Message-ID: <7B1961ED924D1A459E378C9B1BB22B4C0492D29B@natexch.jenkens.com>

I ended up writing functions for it.  Trailing spaces and a leading zeros
one for a fixed width text file I have to send out.

Debbie

-----Original Message-----
From: Susan Harkins [mailto:harkinsss at bellsouth.net] 
Sent: Monday, January 16, 2006 1:18 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Padding text values


I thought I could pad a text value with a simple expression in Format or
Default, but can't come up with it -- I know I could write a function to do
this, but seems this should be a simple property expression. I don't want to
force the user to enter 045 instead of 45 -- I want to add the leading zero.
I'm pulling a complete blank. 
 
Susan H. 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
- JENKENS & GILCHRIST E-MAIL NOTICE - This transmission may be: (1) subject
to the Attorney-Client Privilege, (2) an attorney work product, or (3)
strictly confidential. If you are not the intended recipient of this
message, you may not disclose, print, copy or disseminate this information.
If you have received this in error, please reply and notify the sender
(only) and delete the message. Unauthorized interception of this e-mail is a
violation of federal criminal law. 
This communication does not reflect an intention by the sender or the
sender's client or principal to conduct a transaction or make any agreement
by electronic means.  Nothing contained in this message or in any attachment
shall satisfy the requirements for a writing, and nothing contained herein
shall constitute a contract or electronic signature under the Electronic
Signatures in Global and National Commerce Act, any version of the Uniform
Electronic Transactions Act or any other statute governing electronic
transactions.


From harkinsss at bellsouth.net  Mon Jan 16 13:27:47 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Mon, 16 Jan 2006 14:27:47 -0500
Subject: [AccessD] Padding text values
In-Reply-To: <200601161925.k0GJP5E23011@ultradnt.com>
Message-ID: <000701c61ad2$ef5ad6c0$c5b3d6d1@SUSANONE>

I meant as a field property. 

Susan H. 

Format(str, 00#) 




From harkinsss at bellsouth.net  Mon Jan 16 13:33:29 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Mon, 16 Jan 2006 14:33:29 -0500
Subject: [AccessD] Padding text values
In-Reply-To: <7B1961ED924D1A459E378C9B1BB22B4C0492D29B@natexch.jenkens.com>
Message-ID: <000801c61ad3$bb8c17e0$c5b3d6d1@SUSANONE>


I ended up writing functions for it.  Trailing spaces and a leading zeros
one for a fixed width text file I have to send out.

=========I'm writing about a function -- I just wanted to cover my but*. ;)
I don't know if I just can't remember or if it isn't possible to handle
leading zeros in a text field with a field property. 

Susan H. 



From kost36 at otenet.gr  Tue Jan 17 13:57:20 2006
From: kost36 at otenet.gr (Kostas Konstantinidis)
Date: Tue, 17 Jan 2006 21:57:20 +0200
Subject: [AccessD] is it possible to rename many folders via	access?
References: <s3caa7fa.022@cactus.dk>
Message-ID: <000a01c61ba0$3a5a94d0$6401a8c0@KOST36>

Jurgen and Gustav,
many thank's for your help.

/kostas

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Sunday, January 15, 2006 8:52 PM
Subject: Re: [AccessD] is it possible to rename many folders via access?


> Hi J?rgen and Kostas
>
> Right, you have to be careful - you could destroy a complete folder 
> structure with this code if you get something wrong!
>
> Now I recall I have a helper function to get around some of the 
> limitations of Dir.
>
> <code>
>
> Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias 
> "PathIsDirectoryA" ( _
>  ByVal pszPath As String) _
>  As Long
>
> Public Function IsDir( _
>  ByVal strPath As String) _
>  As Boolean
>
> ' Returns True if strPath exists.
>
>  Dim stzPath As String
>
>  stzPath = strPath & vbNullChar
>
>  IsDir = CBool(PathIsDirectory(stzPath))
>
> End Function
>
> </code>
>
> Use this and every other error check you can think of, like:
>
>  If IsDate("1/1/" & Val(Mid(strNewName, 2))) Then
>    ...
>  End if
>
> /gustav
>
>
>>>> jwelz at hotmail.com 15-01-2006 19:28:23 >>>
> Gustav is of course correct, you need to pass the  vbDirectory parameter 
> to
> Dir in order to include folder names in the search and I had neglected to
> include this detail.
>
> Including this parameter allows Dir to return folders, but it does not
> restrict return values to folders.  It still returns files.
>
> Gustav's file spec, '*.', parameter ordinarily ensures that only files 
> will
> be returned.  However, folders may be given an extension or include a '.'
> and these will be excluded by that spec.  Also, this would return file 
> names
> that lack an extension.  In Kostas' case this is probably irrelevant since
> probably no folder names contain a '.' and there are not likely to be any
> files without an extension that would be returned by Dir.
>
> You would want to be sure that your Dir function returns test with IsDate 
> on
> a portion of the folder name beyond the 5th character that match a year
> between 1900 and 2006 (or IsNumeric).  After all, you wouldn't want Dir to
> find a renamed folder and perhaps rename it again ad infinitum, perhaps
> scrambling the folder names beyond all recognition.  You need to be sure
> your string manipulation recognizes a renamed folder.  I still use instr()
> and would test for the location of the first parenthesis.
>
> Ciao
> J?rgen Welz
> Edmonton, Alberta
> jwelz at hotmail.com
>
>
>
>
>
>>From: "Gustav Brock" <Gustav at cactus.dk>
>
>>Hi Kostas
>>
>>Well, Dir will list your folders:
>>
>>   ' Find first folder.
>>   strFolder = Dir(strParent & "\*.", vbDirectory)
>>   While Len(strFolder) > 0
>>     ' Pick movie.
>>     strName = Split(strFolder, "-")(0)
>>     lngLen = Len(strName)
>>     ' Rearrange movie and concatenate with composer.
>>     strNewName = Right(strName, 6) & " " & Left(strName, lngLen - 7) & 
>> "-"
>>& Split(strFolder, "-")(1)
>>     ' Build old and new path.
>>     strPath = strParent & "\" & strFolder
>>     strNewPath = strParent & "\" & strNewName
>>     ' Rename folder.
>>     Name strPath As strNewPath
>>     ' Find next folder.
>>     strFolder = Dir
>>   Wend
>>
>>/gustav
>>
>> >>> kost36 at otenet.gr 16-01-2006 17:46:16 >>>
>>Jurgen,
>>KING KONG was just an example.
>>every folder has its unic name
>>My example was refferenced to that, trying to explain the format of the
>>folder names e.g.
>>
>>Movie Title (Year) - Composer
>>
>>thank's for your response
>>/kostas
>>
>>----- Original Message -----
>>From: "Jurgen Welz" <jwelz at hotmail.com>
>>To: <accessd at databaseadvisors.com>
>>Sent: Sunday, January 15, 2006 6:37 PM
>>Subject: Re: [AccessD] is it possible to rename many folders via access?
>>
>>
>> > Kostas:
>> >
>> > You can use the Dir function to return file/folder names that match the
>> > spec, check the return value as to whether it is a directory with
>>GetAttr
>> > (If (GetAttr(strDirReturn) And vbDirectory) = vbDirectory Then) and 
>> > then
>> > use
>> > the Name "C:\FilePath" As "C:\NewFilePath" syntax to rename folders.
>> >
>> > Obviously all your folders can't have the same name and be in the same
>> > location.  EIther they are elsewhere in the directory structure or on
>> > various drives and/or machines.  You'll either need to to a recursive
>> > search
>> > with the Dir function to return the original folder names, unless the
>> > folders have some kind of suffix like:  KING KONG (1933) - Max Steiner
>>A.
>> >
>> > Do all the folders have exactly the same name, or is that just the 
>> > start
>> > of
>> > the name and they have various suffixes and share the same root?
>> >
>> >
>> >
>> > Ciao
>> > J?rgen Welz
>> > Edmonton, Alberta
>> > jwelz at hotmail.com
>> >
>> >
>> >
>> >
>> >
>> >>From: "Kostas Konstantinidis" <kost36 at otenet.gr>
>> >>
>> >>I have about 7.000 folders saved as .
>> >>KING KONG (1933) - Max Steiner
>> >>what I want to do is to rename all the folders as
>> >>(1933) KING KONG - Max Steiner
>> >>
>> >>is that possible?
>> >>thank's a lot
>> >>/kostas
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
> 




From jwcolby at ColbyConsulting.com  Mon Jan 16 14:15:31 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 16 Jan 2006 15:15:31 -0500
Subject: [AccessD] Ensuring FTP completion
Message-ID: <009901c61ad9$9c256680$647aa8c0@ColbyM6805>

I am working on a system to FTP an MDB file to a web directory.  I need to
know that the file got there correctly.  Does anyone do this, and if so,
what tools do you use for the FTP up/down and how do you check to ensure
that the transfer completed?  I am going to need to do something like FTP up
under one name, then rename / delete the existing and rename the new to the
filename of the existing.  This has to be bulletproof though so I need to
know that it worked.

John W. Colby
www.ColbyConsulting.com 




From jwcolby at ColbyConsulting.com  Mon Jan 16 14:26:08 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 16 Jan 2006 15:26:08 -0500
Subject: [AccessD] Tying Outlook appointments into Access
Message-ID: <009a01c61adb$16a04500$647aa8c0@ColbyM6805>

I have finally broken down and decided to make a major push to use outlook
appointments for scheduling my client work.  In order to make this work
however I need to be able to create the appointment in Outlook and have it
create a dummy billing (time) record in my billing database, and if I delete
or drag the edges of the appointment around, have it modify my billing
records.  I know how to automate outlook, get it instantiated and watch
events etc, but I have never fiddled with anything but messages and
attachments.  

Does anyone have example code for doing this kind of stuff, particularly the
"dragging of appointment times".  Done correctly I could make appointments,
then as the time comes to do the work, I could go in to the appointment and
fill in the work done right in outlook and have the data transferred to my
billing program.

Anyone?

John W. Colby
www.ColbyConsulting.com 




From cfoust at infostatsystems.com  Mon Jan 16 14:30:10 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 16 Jan 2006 12:30:10 -0800
Subject: [AccessD] Ensuring FTP completion
Message-ID: <F55048AF7E974F429BB24597D7355EEABF29@INFOSERVER04.infostat.local>

The simplest way to validate the transfer is to attempt to copy the
transferred file.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Monday, January 16, 2006 12:16 PM
To: 'Access Developers discussion and problem solving'; Tech - Database
Advisors Inc.
Subject: [AccessD] Ensuring FTP completion


I am working on a system to FTP an MDB file to a web directory.  I need
to know that the file got there correctly.  Does anyone do this, and if
so, what tools do you use for the FTP up/down and how do you check to
ensure that the transfer completed?  I am going to need to do something
like FTP up under one name, then rename / delete the existing and rename
the new to the filename of the existing.  This has to be bulletproof
though so I need to know that it worked.

John W. Colby
www.ColbyConsulting.com 


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


From cfoust at infostatsystems.com  Mon Jan 16 14:31:32 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 16 Jan 2006 12:31:32 -0800
Subject: [AccessD] Padding text values
Message-ID: <F55048AF7E974F429BB24597D7355EEABF2A@INFOSERVER04.infostat.local>

What kind of field property are you thinking of, Susan?  Are you talking
about the displayformat property?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Monday, January 16, 2006 11:28 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Padding text values


I meant as a field property. 

Susan H. 

Format(str, 00#) 


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


From DWUTKA at marlow.com  Mon Jan 16 14:46:40 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Mon, 16 Jan 2006 14:46:40 -0600
Subject: [AccessD] Ensuring FTP completion
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD55E@main2.marlow.com>

I use API's in two class modules to download FTP stuff.  Let me know if you
would like them.

Drew

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Monday, January 16, 2006 2:16 PM
To: 'Access Developers discussion and problem solving'; Tech - Database
Advisors Inc.
Subject: [AccessD] Ensuring FTP completion


I am working on a system to FTP an MDB file to a web directory.  I need to
know that the file got there correctly.  Does anyone do this, and if so,
what tools do you use for the FTP up/down and how do you check to ensure
that the transfer completed?  I am going to need to do something like FTP up
under one name, then rename / delete the existing and rename the new to the
filename of the existing.  This has to be bulletproof though so I need to
know that it worked.

John W. Colby
www.ColbyConsulting.com 


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


From shamil at users.mns.ru  Mon Jan 16 15:03:29 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 17 Jan 2006 00:03:29 +0300
Subject: [AccessD] Source Code Control
References: <F55048AF7E974F429BB24597D7355EEABF28@INFOSERVER04.infostat.local>
Message-ID: <00ed01c61ae0$694cdfc0$6401a8c0@fincomplex.spb.ru>

Just checked -
http://www.microsoft.com/downloads/details.aspx?familyid=2ea45ff4-a916-48c5-8f84-44b91fa774bc&displaylang=en -
it worked here well with both MS Access 2003 and MS Access XP.

But it is still unclear will it work OK on a pure MS Office XP system
or not because they say it needs MS Office 2003 SP1 installed.

I did have MS Office 2003 SP1 installed before I installed and run this
add-in.

It may happen MS Office 2003 SP1 patches some system/shared files used by
both MS Office XP and MS Office 2003.

And I guess MS Office 2003 SP1 can't be installed for MS Office XP.
Then this add-in may not work properly.

Shamil

----- Original Message ----- 
From: "Charlotte Foust" <cfoust at infostatsystems.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Monday, January 16, 2006 8:59 PM
Subject: Re: [AccessD] Source Code Control


> I should think so.  Both XP and 2003 are based on VB6, not VS.Net, so
> you should be able to use it.  Worth a try anyhow.  We're still using
> Access XP to maintain our current generation apps, so I can't test it.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
> Sent: Monday, January 16, 2006 9:20 AM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Source Code Control
>
>
> Charlotte,
>
> I've seen where I can download this add-in for Access 2003, but I was
> wondering if the add-in can also be used with Access XP?
>
> Dan
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
> Foust
> Sent: Monday, January 16, 2006 10:41 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Source Code Control
>
> I don't know what you mean, Josh, but I suspect you haven't had actual
> experience with SourceSafe.  We use SourceSafe with Access and with
> VB.Net and have no problems comparing versions.  With Access, you do
> need the add-in that allows you to work with Source Safe from within
> Access (comes with the ODE, if I remember correctly).  This maintains
> each object as a separate sourcesafe file, not the entire database.  Nor
> have we had the corruption issues you describe.  ANY file can and will
> corrupt.  It isn't peculiar to any particular product or program.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
> McFarlane
> Sent: Saturday, January 14, 2006 2:35 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Source Code Control
>
>
> On 1/14/06, Dan Waters <dwaters at usinternet.com> wrote:
> > Has anyone used a program called Vault from Sourcegear, or Perforce,
> > while programming in Access?  If it worked, was it useful?
>
> Dan,
>
> For Access IIRC, source control will lose one of it's most important
> featuers (diff'ing) with Access because Access is stored as a binary
> file.
>
> That said, I've used 3 different source control programs while working
> on C++ coding.
>
> Visual Source-Safe: Steer clear of this one - It's outdated and has a
> high corruption rate on the source control database.
>
> CVS: Open-source, widely used, and widely tested. Nice for single-file
> verisoning. Made for Unix but NT versions are also available
>
> Subversion: Also open source, this is what we currently use in shop. It
> maintains versioning on a per-repository basis rather than a per-file
> basis. Very very nice freeware client called TortioseSVN. Was fairly
> easy to set up also. Also tracks file renames, directory changes, and
> other meta information. Allows you to also add a meta-tag to track
> changes due to bug-fixes from bug-tracking software, etc.
>
> As a whole, it'd work great for a backup / revision system as long as
> you made sure that when you checked in files you comment what changed.
>
> If you try out Vault or Perforce, let me know what you think.
>
> --
> Josh McFarlane
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From stuart at lexacorp.com.pg  Mon Jan 16 15:32:59 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 17 Jan 2006 07:32:59 +1000
Subject: [AccessD] Padding text values
In-Reply-To: <000801c61ad3$bb8c17e0$c5b3d6d1@SUSANONE>
References: <7B1961ED924D1A459E378C9B1BB22B4C0492D29B@natexch.jenkens.com>
Message-ID: <43CC9DAB.18142.3AE0A6A@stuart.lexacorp.com.pg>

On 16 Jan 2006 at 14:33, Susan Harkins wrote:

> =========I'm writing about a function -- I just wanted to cover my but*. ;)
> I don't know if I just can't remember or if it isn't possible to handle
> leading zeros in a text field with a field property. 
> 

Leading zeros formatting only works with numeric values.
One way to pad a text field that contains only numerics is 
Format$(val(strText),"0000")



-- 
Stuart




From harkinsss at bellsouth.net  Mon Jan 16 15:57:56 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Mon, 16 Jan 2006 16:57:56 -0500
Subject: [AccessD] Padding text values
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF2A@INFOSERVER04.infostat.local>
Message-ID: <000b01c61ae7$f0a4d660$ccb3d6d1@SUSANONE>

Charlotte, Numeric fields are easy to pad -- in the Format property, you use
the 0 character for each character you want to force. I know that won't work
with a text field, but it just seems like I remember some kind of
expression/trick either in the Format or the Default property -- but I'm old
and I may be remembering something else. ;) 

Susan H. 

What kind of field property are you thinking of, Susan?  Are you talking
about the displayformat property?




From harkinsss at bellsouth.net  Mon Jan 16 16:25:03 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Mon, 16 Jan 2006 17:25:03 -0500
Subject: [AccessD] Padding text values
In-Reply-To: <43CC9DAB.18142.3AE0A6A@stuart.lexacorp.com.pg>
Message-ID: <003601c61aeb$ba1394c0$ccb3d6d1@SUSANONE>

Right -- :) 

I'm just remembering something incorrectly Stuart -- I do it all the time.
:) 

Susan H. 

Leading zeros formatting only works with numeric values.
One way to pad a text field that contains only numerics is
Format$(val(strText),"0000")




From harkinsss at bellsouth.net  Mon Jan 16 16:25:03 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Mon, 16 Jan 2006 17:25:03 -0500
Subject: [AccessD] Padding text values
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF2A@INFOSERVER04.infostat.local>
Message-ID: <003701c61aeb$bed5d7c0$ccb3d6d1@SUSANONE>

Format or Default -- don't think about it anymore Charlotte. If I were
remembering it correctly, somebody besides me would remember it. And, I
don't actually need it -- I just wanted to cover it in the article if there
was something that worked at the field level. 

Susan H. 

What kind of field property are you thinking of, Susan?  Are you talking
about the displayformat property?




From jimdettman at earthlink.net  Mon Jan 16 16:40:38 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Mon, 16 Jan 2006 17:40:38 -0500
Subject: [AccessD] Ensuring FTP completion
In-Reply-To: <009901c61ad9$9c256680$647aa8c0@ColbyM6805>
Message-ID: <NDEALJOEGMMPCDKIFGNFEENBIAAA.jimdettman@earthlink.net>

John,

  Your going to quickly find that FTP is not fool proof.  Copying, renaming,
etc is not a valid way of checking if the file transmission is complete.  It
is possible to move/rename a partially copied file.  There is no locking.
Also, you going to find that files can be added/removed from the directory
while your working with it.

A couple of different techniques:

1. Zip the file before sending.  The zip/unzip builds in a check sum.  If
you unzip on the remote end and don't have the file, you'll get an error.

2. When working with a file, copy/rename to another directory that's
exclusive to you.

3. When downloading files, take a snapshot of the files that are there at
the start of processing, then work off the snapshot list.    Many FTP batch
jobs fail because they do a MGET followed by an MDEL.  In the meantime, new
files may have been uploaded.  Result, the newly uploaded file disappears.

 As an alternative, you can purchase AS2 software, which is basically
transactional messaging software for file transfers across the internet.
Most AS2 software supports both HTTP and FTP protocols.

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
Sent: Monday, January 16, 2006 3:16 PM
To: 'Access Developers discussion and problem solving'; Tech - Database
Advisors Inc.
Subject: [AccessD] Ensuring FTP completion


I am working on a system to FTP an MDB file to a web directory.  I need to
know that the file got there correctly.  Does anyone do this, and if so,
what tools do you use for the FTP up/down and how do you check to ensure
that the transfer completed?  I am going to need to do something like FTP up
under one name, then rename / delete the existing and rename the new to the
filename of the existing.  This has to be bulletproof though so I need to
know that it worked.

John W. Colby
www.ColbyConsulting.com


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




From reuben at gfconsultants.com  Mon Jan 16 17:51:44 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Mon, 16 Jan 2006 18:51:44 -0500
Subject: [AccessD] Ensuring FTP completion
In-Reply-To: <009901c61ad9$9c256680$647aa8c0@ColbyM6805>
Message-ID: <DPEKLCIHBOJKCKJECLCPCECDDBAA.reuben@gfconsultants.com>

I do it (upload) quite a bit, John.  Actually my clients do it and I have
yet to have a failure once the FTP starts.  The only problem I have had
appears to be a client issue and they are working on it.

My app zips the file (using the zip stuff I got from you) and an FTP thing I
got from Gustav.

I'll send it if you're interested.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
> Sent: Monday, January 16, 2006 3:16 PM
> To: 'Access Developers discussion and problem solving'; Tech - Database
> Advisors Inc.
> Subject: [AccessD] Ensuring FTP completion
>
>
> I am working on a system to FTP an MDB file to a web directory.  I need to
> know that the file got there correctly.  Does anyone do this, and if so,
> what tools do you use for the FTP up/down and how do you check to ensure
> that the transfer completed?  I am going to need to do something
> like FTP up
> under one name, then rename / delete the existing and rename the
> new to the
> filename of the existing.  This has to be bulletproof though so I need to
> know that it worked.
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From robert at servicexp.com  Mon Jan 16 19:02:21 2006
From: robert at servicexp.com (Robert Gracie)
Date: Mon, 16 Jan 2006 20:02:21 -0500
Subject: [AccessD] Ensuring FTP completion
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CDE@gbsserver.GBS.local>

I know this may not be popular, but if you are going to be doing mission
critical communications, you should look into utilizing something like
the IP Works V6. components. Their controls are quite robust. 


Robert Gracie
www.servicexp.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Monday, January 16, 2006 3:45 PM
To: 'Access Developers discussion and problem solving'; Tech - Database
Advisors Inc.
Subject: [AccessD] Ensuring FTP completion

I am working on a system to FTP an MDB file to a web directory.  I need
to know that the file got there correctly.  Does anyone do this, and if
so, what tools do you use for the FTP up/down and how do you check to
ensure that the transfer completed?  I am going to need to do something
like FTP up under one name, then rename / delete the existing and rename
the new to the filename of the existing.  This has to be bulletproof
though so I need to know that it worked.

John W. Colby
www.ColbyConsulting.com 


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




From jwcolby at ColbyConsulting.com  Mon Jan 16 18:57:49 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 16 Jan 2006 19:57:49 -0500
Subject: [AccessD] Slipstick code
Message-ID: <00bd01c61b01$0a2c9910$647aa8c0@ColbyM6805>

Does Slipstick still share code?  I am not finding any demo code out there.

John W. Colby
www.ColbyConsulting.com 




From robert at servicexp.com  Mon Jan 16 21:01:22 2006
From: robert at servicexp.com (Robert Gracie)
Date: Mon, 16 Jan 2006 22:01:22 -0500
Subject: [AccessD] Subform colummn adjustment?
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CDF@gbsserver.GBS.local>


Is there ANY way to allow a user to set the column width and row height
(datasheet view) to their choice and SAVE that choice in an MDE?


Robert Gracie 
www.gbsysnow.com


From martyconnelly at shaw.ca  Mon Jan 16 22:59:33 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 16 Jan 2006 20:59:33 -0800
Subject: [AccessD] Tying Outlook appointments into Access
References: <009a01c61adb$16a04500$647aa8c0@ColbyM6805>
Message-ID: <43CC79B5.9060506@shaw.ca>

Have a looksee here
http://www.outlookcode.com


John Colby wrote:

>I have finally broken down and decided to make a major push to use outlook
>appointments for scheduling my client work.  In order to make this work
>however I need to be able to create the appointment in Outlook and have it
>create a dummy billing (time) record in my billing database, and if I delete
>or drag the edges of the appointment around, have it modify my billing
>records.  I know how to automate outlook, get it instantiated and watch
>events etc, but I have never fiddled with anything but messages and
>attachments.  
>
>Does anyone have example code for doing this kind of stuff, particularly the
>"dragging of appointment times".  Done correctly I could make appointments,
>then as the time comes to do the work, I could go in to the appointment and
>fill in the work done right in outlook and have the data transferred to my
>billing program.
>
>Anyone?
>
>John W. Colby
>www.ColbyConsulting.com 
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From martyconnelly at shaw.ca  Mon Jan 16 23:01:22 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 16 Jan 2006 21:01:22 -0800
Subject: [AccessD] Slipstick code
References: <00bd01c61b01$0a2c9910$647aa8c0@ColbyM6805>
Message-ID: <43CC7A22.4070002@shaw.ca>

It has moved to its sister site outlookcode.com

John Colby wrote:

>Does Slipstick still share code?  I am not finding any demo code out there.
>
>John W. Colby
>www.ColbyConsulting.com 
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From jmhecht at earthlink.net  Mon Jan 16 23:50:47 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Mon, 16 Jan 2006 21:50:47 -0800
Subject: [AccessD] Development Cycle BE Question
Message-ID: <004501c61b29$f71fe6f0$6701a8c0@HPLaptop>

As I develop the project I am working on, I am rudely
reminded that the data I have been working with is from last
September.

 

I may need to take the old tables with the current data and
slice and dice them again to normalize.

 

How many of you while developing take clients data back end
data so you are working with the most current data while
doing pre lease builds?

 

Does this question make sense?

 

Joe Hecht

jmhecht at earthlink.net

 



From bchacc at san.rr.com  Tue Jan 17 00:01:19 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 16 Jan 2006 22:01:19 -0800
Subject: [AccessD] Development Cycle BE Question
In-Reply-To: <004501c61b29$f71fe6f0$6701a8c0@HPLaptop>
References: <004501c61b29$f71fe6f0$6701a8c0@HPLaptop>
Message-ID: <43CC882F.3010902@san.rr.com>

There's no substitute for working with the client's own data.  For 
development or enhancement of existing apps. 

But if you need to make changes to the structure of the data then you 
have a coordination problem. 

I find the best way is to write a small app that makes those 
transformations to the back end database.  Then, as the client updates 
you with their latest data you can transform the old database to the new 
one.  And at the end, when you send them the new app, you can send them 
the transformation app as well so they can run it on their data.  It 
also has the side effect of consolidating all of your back end changes 
in one place. 

Hope that makes sense.  It's late.

Rocky


Joe Hecht wrote:
> As I develop the project I am working on, I am rudely
> reminded that the data I have been working with is from last
> September.
>
>  
>
> I may need to take the old tables with the current data and
> slice and dice them again to normalize.
>
>  
>
> How many of you while developing take clients data back end
> data so you are working with the most current data while
> doing pre lease builds?
>
>  
>
> Does this question make sense?
>
>  
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>  
>
>   


From stuart at lexacorp.com.pg  Tue Jan 17 00:29:24 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 17 Jan 2006 16:29:24 +1000
Subject: [AccessD] Development Cycle BE Question
In-Reply-To: <004501c61b29$f71fe6f0$6701a8c0@HPLaptop>
Message-ID: <43CD1B64.9381.5992485@stuart.lexacorp.com.pg>

On 16 Jan 2006 at 21:50, Joe Hecht wrote:

> 
> How many of you while developing take clients data back end
> data so you are working with the most current data while
> doing pre lease builds?
> 

I've been slicing and dicing current data all day while developing a new 
app to replace a piece of cr*p that is currently in use.  The existing app 
is one of the worst I've ever come across.  It's for monitoring palm oil 
mill production. It's totally denormalised - the names and number of 
presses, sterilisers, and estates supplying the mill etc are hard coded 
throughout in tables, queries, forms and reports.

It also stores daily raw values and  percentages plus MTD and YTD values 
and percentage for every item of interest.

As I create each new normalised set of tables, I  build  functions  to do 
the slicing and dicing (build and execute  append SQL  statements against 
the various fields in the existing tables).  I will move these functions 
over to another app later.  This app will have links to the old and new 
databases and the functions will be strung together so that it will do a 
one click update of the new tables from the latest available old data.



-- 
Stuart




From Gustav at cactus.dk  Tue Jan 17 04:02:58 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 11:02:58 +0100
Subject: [AccessD] Padding text values
Message-ID: <s3cccee8.067@cactus.dk>

Hi Susan

That something could be the AfterUpdate event of the control.
Insert here:

  Dim varValue  As Variant
  
  With Me.ActiveControl
    varValue = .Value
    If Not IsNull(varValue) Then
      .Value = Format(varValue, "000")
    End If
  End With

/gustav

>>> harkinsss at bellsouth.net 16-01-2006 22:57 >>>
Charlotte, Numeric fields are easy to pad -- in the Format property, you use
the 0 character for each character you want to force. I know that won't work
with a text field, but it just seems like I remember some kind of
expression/trick either in the Format or the Default property -- but I'm old
and I may be remembering something else. ;) 

Susan H. 




From Gustav at cactus.dk  Tue Jan 17 04:11:12 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 11:11:12 +0100
Subject: [AccessD] is it possible to rename many folders	via	access?
Message-ID: <s3ccd0eb.069@cactus.dk>

Hi Kostas

Well, thanks, but did it work for you?

/gustav

>>> kost36 at otenet.gr 17-01-2006 20:57 >>>
Jurgen and Gustav,
many thank's for your help.

/kostas




From carbonnb at sympatico.ca  Tue Jan 17 04:38:15 2006
From: carbonnb at sympatico.ca (Bryan Carbonnell)
Date: Tue, 17 Jan 2006 05:38:15 -0500
Subject: [AccessD] Development Cycle BE Question
In-Reply-To: <004501c61b29$f71fe6f0$6701a8c0@HPLaptop>
Message-ID: <BAYC1-PASMTP071F7004F6DDA458D06C20AE1A0@CEZ.ICE>

On 16 Jan 2006 at 21:50, Joe Hecht wrote:

> I may need to take the old tables with the current data and
> slice and dice them again to normalize.
>  
> How many of you while developing take clients data back end
> data so you are working with the most current data while
> doing pre lease builds?

I always try and use the most recent data. If it is available, I will 
update the data daily to use the most current one.

-- 
Bryan Carbonnell - carbonnb at sympatico.ca
Eat one live toad the first thing in the morning and nothing worse 
will happen to you the rest of the day. 




From Gustav at cactus.dk  Tue Jan 17 04:42:56 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 11:42:56 +0100
Subject: [AccessD] Ensuring FTP completion
Message-ID: <s3ccd860.070@cactus.dk>

Hi John

Didn't you test out 3D-FTP? Piece of cake:

  Const cintLocalDir    As Integer = 0
  Const clngNoError     As Long = 0

  <snip>

  ' Add the database file to the queue.
  Call .AddToQueue(cintLocalDir, cstrFileName, 0, 0)

  <snip>

  intFileCount = .GetQueueItemCount()
  If intFileCount > 0 Then
    lngReturn = .TransferQueue()
    DoCmd.Beep
    If lngReturn = clngNoError Then
      strMsgPrompt = "Transfer of files were successful."
      lngMsgStyle = vbInformation + vbOKOnly
    Else
      strMsgPrompt = "An error occured during transfer of files!"
      lngMsgStyle = vbExclamation + vbOKOnly
    End If
  Else
    strMsgPrompt = "No files to transfer."
    lngMsgStyle = vbExclamation + vbOKOnly
  End If

</snip

If you have to work with the command line FTP or similar you may pipe the screen output to a log file and parse that. No fun.
Or perform the ultimate test: Upload the file and download it right after. Then compare the two files. This, of course, doubles the effective transfer time.

If you are transferring one file only, you can also as Reuben use a small external util, wcl_ftp:

' WCL_FTP is freeware and is obtainable from
'   http://www.pacific.net/~ken/software/

which can be run by an excellent code module which is for download too.

/gustav

>>> jwcolby at ColbyConsulting.com 16-01-2006 21:15 >>>
I am working on a system to FTP an MDB file to a web directory.  I need to
know that the file got there correctly.  Does anyone do this, and if so,
what tools do you use for the FTP up/down and how do you check to ensure
that the transfer completed?  I am going to need to do something like FTP up
under one name, then rename / delete the existing and rename the new to the
filename of the existing.  This has to be bulletproof though so I need to
know that it worked.

John W. Colby
www.ColbyConsulting.com 




From carbonnb at sympatico.ca  Tue Jan 17 04:44:30 2006
From: carbonnb at sympatico.ca (Bryan Carbonnell)
Date: Tue, 17 Jan 2006 05:44:30 -0500
Subject: [AccessD] Development Cycle BE Question
Message-ID: <BAYC1-PASMTP06852616533B5C48B3B0FCAE1A0@CEZ.ICE>

On 16 Jan 2006 at 22:01, Rocky Smolin - Beach Access S wrote:

> There's no substitute for working with the client's own data.  For 
> development or enhancement of existing apps. 
> 
> But if you need to make changes to the structure of the data then you 
> have a coordination problem. 
> 
> I find the best way is to write a small app that makes those 
> transformations to the back end database.  Then, as the client updates 
> you with their latest data you can transform the old database to the new 
> one.  And at the end, when you send them the new app, you can send them 
> the transformation app as well so they can run it on their data.  It 
> also has the side effect of consolidating all of your back end changes 
> in one place. 

No need to write your own app, that's what the BackEnd Upgrader is 
for.

"The Backend Upgrader (BEU) is a utility that will allow developers 
to map out changes to their mdb Back End (BE) databases and deploy 
them remotely and automatically. .... This utility will allow the 
developer to avoid making changes to the BE by hand, on-site, or by 
remote link, and then possibly forgetting some vital change."

I have used the BEU to totally rebuild a BE that was denormalized, 
poorly named and bad data. It took 70 different versions of the BE 
and 200+ changes IIRC all done through the BEU.

You can get the BEU from 
http://www.databaseadvisors.com/downloads.htm

-- 
Bryan Carbonnell - carbonnb at sympatico.ca
Never put both feet in your mouth at the same time, because you won't 
have a leg to stand on. 




From jwcolby at ColbyConsulting.com  Tue Jan 17 06:44:25 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Tue, 17 Jan 2006 07:44:25 -0500
Subject: [AccessD] Ensuring FTP completion
In-Reply-To: <s3ccd860.070@cactus.dk>
Message-ID: <00cd01c61b63$bff45190$647aa8c0@ColbyM6805>

Gustav,

No, I purchased 3d-ftp but I did so for it's user interface ftp (very nice
and reliable), I never tried automating it.  I have just downloaded the docs
and the api and will look at it.  I LOVE 3d-FTP for just using it from the
desktop.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, January 17, 2006 5:43 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Ensuring FTP completion

Hi John

Didn't you test out 3D-FTP? Piece of cake:

  Const cintLocalDir    As Integer = 0
  Const clngNoError     As Long = 0

  <snip>

  ' Add the database file to the queue.
  Call .AddToQueue(cintLocalDir, cstrFileName, 0, 0)

  <snip>

  intFileCount = .GetQueueItemCount()
  If intFileCount > 0 Then
    lngReturn = .TransferQueue()
    DoCmd.Beep
    If lngReturn = clngNoError Then
      strMsgPrompt = "Transfer of files were successful."
      lngMsgStyle = vbInformation + vbOKOnly
    Else
      strMsgPrompt = "An error occured during transfer of files!"
      lngMsgStyle = vbExclamation + vbOKOnly
    End If
  Else
    strMsgPrompt = "No files to transfer."
    lngMsgStyle = vbExclamation + vbOKOnly
  End If

</snip

If you have to work with the command line FTP or similar you may pipe the
screen output to a log file and parse that. No fun.
Or perform the ultimate test: Upload the file and download it right after.
Then compare the two files. This, of course, doubles the effective transfer
time.

If you are transferring one file only, you can also as Reuben use a small
external util, wcl_ftp:

' WCL_FTP is freeware and is obtainable from
'   http://www.pacific.net/~ken/software/

which can be run by an excellent code module which is for download too.

/gustav

>>> jwcolby at ColbyConsulting.com 16-01-2006 21:15 >>>
I am working on a system to FTP an MDB file to a web directory.  I need to
know that the file got there correctly.  Does anyone do this, and if so,
what tools do you use for the FTP up/down and how do you check to ensure
that the transfer completed?  I am going to need to do something like FTP up
under one name, then rename / delete the existing and rename the new to the
filename of the existing.  This has to be bulletproof though so I need to
know that it worked.

John W. Colby
www.ColbyConsulting.com 


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



From bheid at appdevgrp.com  Tue Jan 17 06:52:05 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Tue, 17 Jan 2006 07:52:05 -0500
Subject: [AccessD] Compact by code
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D1E4A3@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30ABF65E@ADGSERVER>

Hi Arthur,

This is what we use in Access XP:

Public Function GetFilePath(lstrFileName) As String
'Returns the directory of the passed file name.
'Expects the full path and file name as input.

   GetFilePath = Left(lstrFileName, InStrRev(lstrFileName, "\"))

End Function

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: Saturday, January 14, 2006 7:16 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Compact by code


Where is the code for GetFilePath()? I have something vaguely similar but I
figured rather than experiment with making mine and yours compatible, I
would simply ask for it.
Arthur
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Monday, November 21, 2005 12:54 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Compact by code

Sorry, GetFilePath() returns the path of a given file name string.
Bobby

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



From papparuff at comcast.net  Tue Jan 17 07:00:31 2006
From: papparuff at comcast.net (papparuff at comcast.net)
Date: Tue, 17 Jan 2006 13:00:31 +0000
Subject: [AccessD] OT - FileZilla - A free FTP program
Message-ID: <011720061300.10379.43CCEA6F00076C1C0000288B220075109000009A9D0E9F9F0E9F@comcast.net>

I have been using FileZilla for about six months and I  have found it to be excellent. Not only is it free, but it is open source. You can check it out at 

http://sourceforge.net/projects/filezilla

John

--
John V. Ruff ? The Eternal Optimist :-) 

?Commit to the Lord whatever you do, 
and your plans will succeed.? Proverbs 16:3

From carbonnb at gmail.com  Tue Jan 17 07:13:54 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Tue, 17 Jan 2006 08:13:54 -0500
Subject: [AccessD] OT - FileZilla - A free FTP program
In-Reply-To: <011720061300.10379.43CCEA6F00076C1C0000288B220075109000009A9D0E9F9F0E9F@comcast.net>
References: <011720061300.10379.43CCEA6F00076C1C0000288B220075109000009A9D0E9F9F0E9F@comcast.net>
Message-ID: <e04a6c920601170513y981de61t@mail.gmail.com>

On 17/01/06, papparuff at comcast.net <papparuff at comcast.net> wrote:
> I have been using FileZilla for about six months and I  have found it to be excellent. Not only is it free, but it is open source. You can check it out at
>
> http://sourceforge.net/projects/filezilla

I'll second that. I've been using it for about 18 months now and it's
only getting better.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From Gustav at cactus.dk  Tue Jan 17 07:13:36 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 14:13:36 +0100
Subject: [AccessD] Ensuring FTP completion
Message-ID: <s3ccfbaa.084@cactus.dk>

Hi John

Oh my ... the API is the gold nugget!

I'll send you a function offline for you to peruse. Should give you an idea ...

/gustav

>>> jwcolby at ColbyConsulting.com 17-01-2006 13:44 >>>
Gustav,

No, I purchased 3d-ftp but I did so for it's user interface ftp (very nice
and reliable), I never tried automating it.  I have just downloaded the docs
and the api and will look at it.  I LOVE 3d-FTP for just using it from the
desktop.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, January 17, 2006 5:43 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Ensuring FTP completion

Hi John

Didn't you test out 3D-FTP? Piece of cake:

  Const cintLocalDir    As Integer = 0
  Const clngNoError     As Long = 0

  <snip>

  ' Add the database file to the queue.
  Call .AddToQueue(cintLocalDir, cstrFileName, 0, 0)

  <snip>

  intFileCount = .GetQueueItemCount()
  If intFileCount > 0 Then
    lngReturn = .TransferQueue()
    DoCmd.Beep
    If lngReturn = clngNoError Then
      strMsgPrompt = "Transfer of files were successful."
      lngMsgStyle = vbInformation + vbOKOnly
    Else
      strMsgPrompt = "An error occured during transfer of files!"
      lngMsgStyle = vbExclamation + vbOKOnly
    End If
  Else
    strMsgPrompt = "No files to transfer."
    lngMsgStyle = vbExclamation + vbOKOnly
  End If

</snip

If you have to work with the command line FTP or similar you may pipe the
screen output to a log file and parse that. No fun.
Or perform the ultimate test: Upload the file and download it right after.
Then compare the two files. This, of course, doubles the effective transfer
time.

If you are transferring one file only, you can also as Reuben use a small
external util, wcl_ftp:

' WCL_FTP is freeware and is obtainable from
'   http://www.pacific.net/~ken/software/ 

which can be run by an excellent code module which is for download too.

/gustav

>>> jwcolby at ColbyConsulting.com 16-01-2006 21:15 >>>
I am working on a system to FTP an MDB file to a web directory.  I need to
know that the file got there correctly.  Does anyone do this, and if so,
what tools do you use for the FTP up/down and how do you check to ensure
that the transfer completed?  I am going to need to do something like FTP up
under one name, then rename / delete the existing and rename the new to the
filename of the existing.  This has to be bulletproof though so I need to
know that it worked.

John W. Colby
www.ColbyConsulting.com 




From wdhindman at bellsouth.net  Tue Jan 17 07:52:34 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Tue, 17 Jan 2006 08:52:34 -0500
Subject: [AccessD] Ensuring FTP completion
References: <s3ccfbaa.084@cactus.dk>
Message-ID: <001f01c61b6d$44d012b0$6101a8c0@JISREGISTRATION.local>

Gustav

...I'm curious as to what a third party ftp product allows you to do that 
you can't do from vba? ...I've been using Access to ftp files for several 
years now without a hitch ...why would I want to complicate that?

...I realize that you get bells and whistles ...but what basic functionality 
is added that vba won't give you?

...while I've never found it necessary to check file integrity after ftping 
it as JC needs to do, if the need arose I'd use vba to ftp the file back and 
check it locally ...certainly that is a longer process but compared to what? 
...and using vba I'm not subject to all the myriad of problems I've had 
using 3rd party anything.

...there are times when 3rd party tools are essential ...but ftp seems to be 
such a straight forward proposition in vba that I'm curious as to what you 
find it won't allow you to do that is really necessary?

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, January 17, 2006 8:13 AM
Subject: Re: [AccessD] Ensuring FTP completion


> Hi John
>
> Oh my ... the API is the gold nugget!
>
> I'll send you a function offline for you to peruse. Should give you an 
> idea ...
>
> /gustav
>
>>>> jwcolby at ColbyConsulting.com 17-01-2006 13:44 >>>
> Gustav,
>
> No, I purchased 3d-ftp but I did so for it's user interface ftp (very nice
> and reliable), I never tried automating it.  I have just downloaded the 
> docs
> and the api and will look at it.  I LOVE 3d-FTP for just using it from the
> desktop.
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
> Sent: Tuesday, January 17, 2006 5:43 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Ensuring FTP completion
>
> Hi John
>
> Didn't you test out 3D-FTP? Piece of cake:
>
>  Const cintLocalDir    As Integer = 0
>  Const clngNoError     As Long = 0
>
>  <snip>
>
>  ' Add the database file to the queue.
>  Call .AddToQueue(cintLocalDir, cstrFileName, 0, 0)
>
>  <snip>
>
>  intFileCount = .GetQueueItemCount()
>  If intFileCount > 0 Then
>    lngReturn = .TransferQueue()
>    DoCmd.Beep
>    If lngReturn = clngNoError Then
>      strMsgPrompt = "Transfer of files were successful."
>      lngMsgStyle = vbInformation + vbOKOnly
>    Else
>      strMsgPrompt = "An error occured during transfer of files!"
>      lngMsgStyle = vbExclamation + vbOKOnly
>    End If
>  Else
>    strMsgPrompt = "No files to transfer."
>    lngMsgStyle = vbExclamation + vbOKOnly
>  End If
>
> </snip
>
> If you have to work with the command line FTP or similar you may pipe the
> screen output to a log file and parse that. No fun.
> Or perform the ultimate test: Upload the file and download it right after.
> Then compare the two files. This, of course, doubles the effective 
> transfer
> time.
>
> If you are transferring one file only, you can also as Reuben use a small
> external util, wcl_ftp:
>
> ' WCL_FTP is freeware and is obtainable from
> '   http://www.pacific.net/~ken/software/
>
> which can be run by an excellent code module which is for download too.
>
> /gustav
>
>>>> jwcolby at ColbyConsulting.com 16-01-2006 21:15 >>>
> I am working on a system to FTP an MDB file to a web directory.  I need to
> know that the file got there correctly.  Does anyone do this, and if so,
> what tools do you use for the FTP up/down and how do you check to ensure
> that the transfer completed?  I am going to need to do something like FTP 
> up
> under one name, then rename / delete the existing and rename the new to 
> the
> filename of the existing.  This has to be bulletproof though so I need to
> know that it worked.
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From Gustav at cactus.dk  Tue Jan 17 08:55:46 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 15:55:46 +0100
Subject: [AccessD] Ensuring FTP completion
Message-ID: <s3cd1391.000@cactus.dk>

Hi William

For a single or few files transfer most solutions will work - mostly a matter of taste.

For a specific client the task was to upload up to 3000 picture files.
If this is not going to take "forever" you need a multithreaded transfer client.
As the transfer still can take some time, a high quality user interface for monitoring the process was needed as well.
Further, I prefer an API, not building command lines.
Finally, the solution had to work from day one at the client.
All this for $40 and enough trial time to test everything out ... just the fact that you do not need to create a single form - decent design takes a lot of time - justifies the amount multiple times.

We are not using 3D-FTP for everything. Quite often only a single file are to be uploaded, say for backup, and then we mostly use wcl_ftp which is free but still offers a tiny user interface (not a DOS box which users find extremely primitive) to monitor the progress and success. I donated a complete code module for the purpose, and both you can download and use for zero cost.

Sometimes the command line is fine as you can be sure FTP.EXE exists on any Windows machine. A substitute, MoveIt, with similar command syntax is available in a free extended version - as well as for secure transfers - here, a little gem:

http://www.stdnet.com/products/?category_number=7&subcategory_number=1

/gustav

>>> wdhindman at bellsouth.net 17-01-2006 14:52 >>>
Gustav

...I'm curious as to what a third party ftp product allows you to do that 
you can't do from vba? ...I've been using Access to ftp files for several 
years now without a hitch ...why would I want to complicate that?

...I realize that you get bells and whistles ...but what basic functionality 
is added that vba won't give you?

...while I've never found it necessary to check file integrity after ftping 
it as JC needs to do, if the need arose I'd use vba to ftp the file back and 
check it locally ...certainly that is a longer process but compared to what? 
...and using vba I'm not subject to all the myriad of problems I've had 
using 3rd party anything.

...there are times when 3rd party tools are essential ...but ftp seems to be 
such a straight forward proposition in vba that I'm curious as to what you 
find it won't allow you to do that is really necessary?

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, January 17, 2006 8:13 AM
Subject: Re: [AccessD] Ensuring FTP completion


> Hi John
>
> Oh my ... the API is the gold nugget!
>
> I'll send you a function offline for you to peruse. Should give you an 
> idea ...
>
> /gustav
>
>>>> jwcolby at ColbyConsulting.com 17-01-2006 13:44 >>>
> Gustav,
>
> No, I purchased 3d-ftp but I did so for it's user interface ftp (very nice
> and reliable), I never tried automating it.  I have just downloaded the 
> docs
> and the api and will look at it.  I LOVE 3d-FTP for just using it from the
> desktop.
>
> John W. Colby
> www.ColbyConsulting.com 




From jwcolby at ColbyConsulting.com  Tue Jan 17 08:57:49 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Tue, 17 Jan 2006 09:57:49 -0500
Subject: [AccessD] Ensuring FTP completion
In-Reply-To: <s3ccfbaa.084@cactus.dk>
Message-ID: <00de01c61b76$62ba8680$647aa8c0@ColbyM6805>

Gustav,

What object are you programming to when you use the API?  I like to use
intellisense and so I set a reference to FtpXObj, but a lot of the methods
then are not valid so I think that is not the right object. 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, January 17, 2006 8:14 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Ensuring FTP completion

Hi John

Oh my ... the API is the gold nugget!

I'll send you a function offline for you to peruse. Should give you an idea
...

/gustav

>>> jwcolby at ColbyConsulting.com 17-01-2006 13:44 >>>
Gustav,

No, I purchased 3d-ftp but I did so for it's user interface ftp (very nice
and reliable), I never tried automating it.  I have just downloaded the docs
and the api and will look at it.  I LOVE 3d-FTP for just using it from the
desktop.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, January 17, 2006 5:43 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Ensuring FTP completion

Hi John

Didn't you test out 3D-FTP? Piece of cake:

  Const cintLocalDir    As Integer = 0
  Const clngNoError     As Long = 0

  <snip>

  ' Add the database file to the queue.
  Call .AddToQueue(cintLocalDir, cstrFileName, 0, 0)

  <snip>

  intFileCount = .GetQueueItemCount()
  If intFileCount > 0 Then
    lngReturn = .TransferQueue()
    DoCmd.Beep
    If lngReturn = clngNoError Then
      strMsgPrompt = "Transfer of files were successful."
      lngMsgStyle = vbInformation + vbOKOnly
    Else
      strMsgPrompt = "An error occured during transfer of files!"
      lngMsgStyle = vbExclamation + vbOKOnly
    End If
  Else
    strMsgPrompt = "No files to transfer."
    lngMsgStyle = vbExclamation + vbOKOnly
  End If

</snip

If you have to work with the command line FTP or similar you may pipe the
screen output to a log file and parse that. No fun.
Or perform the ultimate test: Upload the file and download it right after.
Then compare the two files. This, of course, doubles the effective transfer
time.

If you are transferring one file only, you can also as Reuben use a small
external util, wcl_ftp:

' WCL_FTP is freeware and is obtainable from
'   http://www.pacific.net/~ken/software/ 

which can be run by an excellent code module which is for download too.

/gustav

>>> jwcolby at ColbyConsulting.com 16-01-2006 21:15 >>>
I am working on a system to FTP an MDB file to a web directory.  I need to
know that the file got there correctly.  Does anyone do this, and if so,
what tools do you use for the FTP up/down and how do you check to ensure
that the transfer completed?  I am going to need to do something like FTP up
under one name, then rename / delete the existing and rename the new to the
filename of the existing.  This has to be bulletproof though so I need to
know that it worked.

John W. Colby
www.ColbyConsulting.com 


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



From Jdemarco at hudsonhealthplan.org  Tue Jan 17 09:25:18 2006
From: Jdemarco at hudsonhealthplan.org (Jim DeMarco)
Date: Tue, 17 Jan 2006 10:25:18 -0500
Subject: [AccessD] Slipstick code
Message-ID: <08F823FD83787D4BA0B99CA580AD3C74016C43D1@TTNEXCHCL2.hshhp.com>

Try www.koders.com for code searches.  

Jim DeMarco

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
Sent: Monday, January 16, 2006 7:58 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Slipstick code


Does Slipstick still share code?  I am not finding any demo code out there.

John W. Colby
www.ColbyConsulting.com 


-- 
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".
***********************************************************************************



From harkinsss at bellsouth.net  Tue Jan 17 09:28:01 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Tue, 17 Jan 2006 10:28:01 -0500
Subject: [AccessD] Padding text values
In-Reply-To: <s3cccee8.067@cactus.dk>
Message-ID: <001901c61b7a$9aec3810$d2b3d6d1@SUSANONE>

Thanks Gustav -- I'm already using a Format() expression.  

Like I said, I guess I'm just remembering something incorrectly. 

Susan H. 

Hi Susan

That something could be the AfterUpdate event of the control.
Insert here:

  Dim varValue  As Variant
  
  With Me.ActiveControl
    varValue = .Value
    If Not IsNull(varValue) Then
      .Value = Format(varValue, "000")
    End If
  End With

/gustav




From Lambert.Heenan at AIG.com  Tue Jan 17 09:33:55 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Tue, 17 Jan 2006 10:33:55 -0500
Subject: [AccessD] Tying Outlook appointments into Access
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6DB48@xlivmbx21.aig.com>


Take a look at...

http://www.helenfeddema.com/access.htm

Item # 67 "Working with the Outlook Object Model"

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Monday, January 16, 2006 3:26 PM
To: 'Access Developers discussion and problem solving'; Tech - Database
Advisors Inc.
Subject: [AccessD] Tying Outlook appointments into Access


I have finally broken down and decided to make a major push to use outlook
appointments for scheduling my client work.  In order to make this work
however I need to be able to create the appointment in Outlook and have it
create a dummy billing (time) record in my billing database, and if I delete
or drag the edges of the appointment around, have it modify my billing
records.  I know how to automate outlook, get it instantiated and watch
events etc, but I have never fiddled with anything but messages and
attachments.  

Does anyone have example code for doing this kind of stuff, particularly the
"dragging of appointment times".  Done correctly I could make appointments,
then as the time comes to do the work, I could go in to the appointment and
fill in the work done right in outlook and have the data transferred to my
billing program.

Anyone?

John W. Colby
www.ColbyConsulting.com 


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


From jmhecht at earthlink.net  Tue Jan 17 09:35:29 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 17 Jan 2006 07:35:29 -0800
Subject: [AccessD] Development Cycle BE Question
In-Reply-To: <BAYC1-PASMTP06852616533B5C48B3B0FCAE1A0@CEZ.ICE>
Message-ID: <003001c61b7b$a5c3fc90$6701a8c0@HPLaptop>

So this will take one table and slice it to about 8, with
the correct fields and rename them each time?

What happens to queries while tables are being redone?
Normally queries die if tables involved are removed or
renamed?

Thanks

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]   Behalf Of
Bryan Carbonnell
Sent: Tuesday, January 17, 2006 2:45 AM
To: access Developers discussion and problem solving
Subject: Re: [AccessD] Development Cycle BE Question

 

No need to write your own app, that's what the BackEnd
Upgrader is for.

"The Backend Upgrader (BEU) is a utility that will allow
developers to map out changes to their mdb Back End (BE)
databases and deploy them remotely and automatically. ....
This utility will allow the developer to avoid making
changes to the BE by hand, on-site, or by 
remote link, and then possibly forgetting some vital
change."




From carbonnb at gmail.com  Tue Jan 17 09:49:18 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Tue, 17 Jan 2006 10:49:18 -0500
Subject: [AccessD] Development Cycle BE Question
In-Reply-To: <003001c61b7b$a5c3fc90$6701a8c0@HPLaptop>
References: <BAYC1-PASMTP06852616533B5C48B3B0FCAE1A0@CEZ.ICE>
	<003001c61b7b$a5c3fc90$6701a8c0@HPLaptop>
Message-ID: <e04a6c920601170749k59fdd3e7j@mail.gmail.com>

On 17/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> So this will take one table and slice it to about 8, with
> the correct fields and rename them each time?

It will do that, but you have to tell it to.

The steps you would tell the BEU to do, in a very general sense are:

Create the table(s)
Add the fields to the new table
Copy the data from the old to the new
Delete the old table when everything is done.

> What happens to queries while tables are being redone?

Nothing. The queries stay untouched. You will need to recreate the
queries in the FE once the table structure(s) have been
updated/upgraded.

> Normally queries die if tables involved are removed or
> renamed?

And they still will.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From cfoust at infostatsystems.com  Tue Jan 17 09:58:05 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 17 Jan 2006 07:58:05 -0800
Subject: [AccessD] Development Cycle BE Question
Message-ID: <F55048AF7E974F429BB24597D7355EEABF2C@INFOSERVER04.infostat.local>

Part of our applications's capabilities is import and export of data, so
we get the client to export data for us, or we get the file from him and
export it ourselves with the appropriate version of the app.  Then we
import it into the latest build for testing.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Monday, January 16, 2006 9:51 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Development Cycle BE Question


As I develop the project I am working on, I am rudely
reminded that the data I have been working with is from last September.

 

I may need to take the old tables with the current data and slice and
dice them again to normalize.

 

How many of you while developing take clients data back end data so you
are working with the most current data while doing pre lease builds?

 

Does this question make sense?

 

Joe Hecht

jmhecht at earthlink.net

 

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


From jmhecht at earthlink.net  Tue Jan 17 10:09:11 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 17 Jan 2006 08:09:11 -0800
Subject: [AccessD] Development Cycle BE Question
In-Reply-To: <e04a6c920601170749k59fdd3e7j@mail.gmail.com>
Message-ID: <003e01c61b80$5b345d00$6701a8c0@HPLaptop>

I just tested.

Make sure I have SQL stored. Drop into empty query. Query
rebuilt.

One issue handled. Just downloaded BEU. I will look at that
after work tonight.


Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bryan Carbonnell
Sent: Tuesday, January 17, 2006 7:49 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Development Cycle BE Question

On 17/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> So this will take one table and slice it to about 8, with
> the correct fields and rename them each time?

It will do that, but you have to tell it to.

The steps you would tell the BEU to do, in a very general
sense are:

Create the table(s)
Add the fields to the new table
Copy the data from the old to the new
Delete the old table when everything is done.

> What happens to queries while tables are being redone?

Nothing. The queries stay untouched. You will need to
recreate the
queries in the FE once the table structure(s) have been
updated/upgraded.

> Normally queries die if tables involved are removed or
> renamed?

And they still will.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a
well
preserved body, but rather to skid in sideways, totally worn
out,
shouting "What a great ride!"
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Tue Jan 17 10:08:44 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 17:08:44 +0100
Subject: [AccessD] Padding text values
Message-ID: <s3cd24b7.004@cactus.dk>

Hi Susan

Yes, but you didn't use it in the AfterUpdate event, so what did it do for you?
As Stuart told, you cannot format a text that way using the Format property ...

/gustav

>>> harkinsss at bellsouth.net 17-01-2006 16:28 >>>
Thanks Gustav -- I'm already using a Format() expression.  

Like I said, I guess I'm just remembering something incorrectly. 

Susan H. 

Hi Susan

That something could be the AfterUpdate event of the control.
Insert here:

  Dim varValue  As Variant
  
  With Me.ActiveControl
    varValue = .Value
    If Not IsNull(varValue) Then
      .Value = Format(varValue, "000")
    End If
  End With

/gustav




From jmhecht at earthlink.net  Tue Jan 17 10:09:51 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 17 Jan 2006 08:09:51 -0800
Subject: [AccessD] BE Relinker
Message-ID: <003f01c61b80$72b3aee0$6701a8c0@HPLaptop>

Did some kind, generous and way smarter then me soul create
at BE relinker?

 

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Tue Jan 17 10:31:24 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 17 Jan 2006 08:31:24 -0800
Subject: [AccessD] 2000 FE xp/2k3be
Message-ID: <004a01c61b83$772d96e0$6701a8c0@HPLaptop>

Can a 2000 front end read xk/2003 be?

 

Joe Hecht

jmhecht at earthlink.net

 



From cfoust at infostatsystems.com  Tue Jan 17 10:43:33 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 17 Jan 2006 08:43:33 -0800
Subject: [AccessD] 2000 FE xp/2k3be
Message-ID: <F55048AF7E974F429BB24597D7355EEABF2D@INFOSERVER04.infostat.local>

Depends on the file format.  It should be able to read a 2000 format
file, but not XP or 2003 format.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Tuesday, January 17, 2006 8:31 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] 2000 FE xp/2k3be


Can a 2000 front end read xk/2003 be?

 

Joe Hecht

jmhecht at earthlink.net

 

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


From darsant at gmail.com  Tue Jan 17 10:49:14 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Tue, 17 Jan 2006 10:49:14 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF26@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF26@INFOSERVER04.infostat.local>
Message-ID: <53c8e05a0601170849t8017286n99dc0d65238b4910@mail.gmail.com>

On 1/16/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> I don't know what you mean, Josh, but I suspect you haven't had actual
> experience with SourceSafe.  We use SourceSafe with Access and with
> VB.Net and have no problems comparing versions.  With Access, you do
> need the add-in that allows you to work with Source Safe from within
> Access (comes with the ODE, if I remember correctly).  This maintains
> each object as a separate sourcesafe file, not the entire database.  Nor
> have we had the corruption issues you describe.  ANY file can and will
> corrupt.  It isn't peculiar to any particular product or program.

I haven't used SourceSafe in Access personally, only C++ projects. I
find it interesting that they've worked out code to diff Access DBs,
but cannot make it compatible with Word for diffing.

Granted, everything can be corrupt, but source-safe has a very very
bad track record with corruption, even on simple things. I can't find
the link now, but once I hit my work computer I'll post it.

When it's all said and done, I still prefer a stability and safety
over easy integration with Office / Visual Studio.

--
Josh McFarlane
"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From cfoust at infostatsystems.com  Tue Jan 17 11:28:35 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 17 Jan 2006 09:28:35 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF2F@INFOSERVER04.infostat.local>

The sourcesafe handling of Access is completely different from Word
because unless you try to add it from outside, as you do with other
application files.  I've heard all the horror stories about sourcesafe,
but for many, if not most, independent developers, it is the cheapest
alternative because it comes with the ODE, and I personally have not
seen the corruption problems more than once in the years I've worked
with it.  In that case, that's what backups were for. <g>

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Tuesday, January 17, 2006 8:49 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/16/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> I don't know what you mean, Josh, but I suspect you haven't had actual

> experience with SourceSafe.  We use SourceSafe with Access and with 
> VB.Net and have no problems comparing versions.  With Access, you do 
> need the add-in that allows you to work with Source Safe from within 
> Access (comes with the ODE, if I remember correctly).  This maintains 
> each object as a separate sourcesafe file, not the entire database.  
> Nor have we had the corruption issues you describe.  ANY file can and 
> will corrupt.  It isn't peculiar to any particular product or program.

I haven't used SourceSafe in Access personally, only C++ projects. I
find it interesting that they've worked out code to diff Access DBs, but
cannot make it compatible with Word for diffing.

Granted, everything can be corrupt, but source-safe has a very very bad
track record with corruption, even on simple things. I can't find the
link now, but once I hit my work computer I'll post it.

When it's all said and done, I still prefer a stability and safety over
easy integration with Office / Visual Studio.

--
Josh McFarlane
"Peace cannot be kept by force. It can only be achieved by
understanding." -Albert Einstein
-- 


From artful at rogers.com  Tue Jan 17 11:30:13 2006
From: artful at rogers.com (Arthur Fuller)
Date: Tue, 17 Jan 2006 12:30:13 -0500
Subject: [AccessD] Refreshing values on a form
Message-ID: <06e001c61b8b$ac74fcf0$8e01a8c0@rock>

I have a form in an inherited app that posits two ways to search: a) you can
select from several listboxes, each cascading to the child until finally you
end up with an invoice number; b) if you know the invoice number, you can
select this option and go directly to the invoice.
I enclosed the options in an option frame whose code disables the choice you
didn't make and enables the choice you did make. (i.e. you can then enter
the values for a) or b)). 
This all works, but what I want to happen is that if you choose search
method b) then the listboxes in choice a) all move to the corresponding
locations within the listbox. I am assigning the values correctly, according
to debug.print anyway, but the listboxes are not rotating to the
corresponding items. In my code I assign the values obtained via selection
b) and then requery the listboxes but they do not move to the selected item.
I want the current value to appear topmost on the listbox. What am I doing
wrong or not doing?
TIA,
Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks
 




From Gustav at cactus.dk  Tue Jan 17 12:18:53 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 19:18:53 +0100
Subject: [AccessD] Ensuring FTP completion
Message-ID: <s3cd4333.008@cactus.dk>

Hi John

Well, that's a good question. I've only used late binding for this as shown in the docs and the example code, and basically all I've done is to expand on the example code.
However, I believe you need the FtpXObjLib.FtpXObj and/or FtpXObjNotify.
What confuses me is RegisterEventListener and UnregisterEventListener for enabling/disabling the events which I cannot find in the Object browser.

Maybe someone else could chime in?

/gustav

>>> jwcolby at ColbyConsulting.com 17-01-2006 15:57 >>>
Gustav,

What object are you programming to when you use the API?  I like to use
intellisense and so I set a reference to FtpXObj, but a lot of the methods
then are not valid so I think that is not the right object. 


John W. Colby
www.ColbyConsulting.com 




From Gustav at cactus.dk  Tue Jan 17 12:33:15 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 19:33:15 +0100
Subject: [AccessD] Refreshing values on a form
Message-ID: <s3cd46a2.009@cactus.dk>

Hi Arthur the Mighty

That should work. If I requery a listbox and assign it a value:

  Forms(0).lstSome.Value = 2200

it rolls at once to that line. 
If I browse away without selecting another line and then requery, it rolls to the line with the assigned value.

So something else must be going on ...

/gustav

>>> artful at rogers.com 17-01-2006 18:30 >>>
I have a form in an inherited app that posits two ways to search: a) you can
select from several listboxes, each cascading to the child until finally you
end up with an invoice number; b) if you know the invoice number, you can
select this option and go directly to the invoice.
I enclosed the options in an option frame whose code disables the choice you
didn't make and enables the choice you did make. (i.e. you can then enter
the values for a) or b)). 
This all works, but what I want to happen is that if you choose search
method b) then the listboxes in choice a) all move to the corresponding
locations within the listbox. I am assigning the values correctly, according
to debug.print anyway, but the listboxes are not rotating to the
corresponding items. In my code I assign the values obtained via selection
b) and then requery the listboxes but they do not move to the selected item.
I want the current value to appear topmost on the listbox. What am I doing
wrong or not doing?
TIA,
Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks




From DWUTKA at marlow.com  Tue Jan 17 12:34:45 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Tue, 17 Jan 2006 12:34:45 -0600
Subject: [AccessD] BE Relinker
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD56A@main2.marlow.com>

I posted a while back, on something that would be a 'seamless' relinker.
You can 'search' a subnet with UDP, which is very fast (split second on a
subnet with over a thousand IPs on it), and have a 'service' that listens
for that UDP broadcast, and replies with requested information.  ie, FE on
home network, broadcasts and hits the service on your home network, which
tells the FE where the backends on your home network are.  FE relinks to
backend.  You modify the FE, send it to client.  Client opens FE, again, FE
finds the service on clients network, which tells the FE where to relink
it's tables too.  

Would be pretty easy to setup, let me know if you would be interested.

Drew

-----Original Message-----
From: Joe Hecht [mailto:jmhecht at earthlink.net]
Sent: Tuesday, January 17, 2006 10:10 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] BE Relinker


Did some kind, generous and way smarter then me soul create
at BE relinker?

 

 

Joe Hecht

jmhecht at earthlink.net

 

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


From darsant at gmail.com  Tue Jan 17 13:11:39 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Tue, 17 Jan 2006 13:11:39 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF2F@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF2F@INFOSERVER04.infostat.local>
Message-ID: <53c8e05a0601171111j32699ba2ga06459a24364682c@mail.gmail.com>

On 1/17/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> The sourcesafe handling of Access is completely different from Word
> because unless you try to add it from outside, as you do with other
> application files.  I've heard all the horror stories about sourcesafe,
> but for many, if not most, independent developers, it is the cheapest
> alternative because it comes with the ODE, and I personally have not
> seen the corruption problems more than once in the years I've worked
> with it.  In that case, that's what backups were for. <g>

I'm confused, so it only allows diff'ing if you have the plug-in to
Access, but if you add it from explorer it still acts like a binary
file?

You really should try out SubVersion. I like it ALOT and it's really
easy to create branches and other things for multiple development
stems from one base file.

--
Josh McFarlane
"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From accessd at shaw.ca  Tue Jan 17 14:06:05 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Tue, 17 Jan 2006 12:06:05 -0800
Subject: [AccessD] VB Scripts
In-Reply-To: <43CC79B5.9060506@shaw.ca>
Message-ID: <001201c61ba1$731071e0$017ba8c0@xpserver>

Hi All:

Here is a simple question. 

Does MS require MS Office products to be able to run VB Scripts or VS to be
able to compile these scripts in order to have them run on a system or is
the capability just built into any version of Windows? ...like IE.

Can the ability of running of VB scripts be easily turned off and on?

A client is requesting specific details so they can balance security against
functionality and I just do not know enough about the subject.

MTIA
Jim  



From stuart at lexacorp.com.pg  Tue Jan 17 15:43:55 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Wed, 18 Jan 2006 07:43:55 +1000
Subject: [AccessD] BE Relinker
In-Reply-To: <003f01c61b80$72b3aee0$6701a8c0@HPLaptop>
Message-ID: <43CDF1BB.18971.14D2DE2@stuart.lexacorp.com.pg>

On 17 Jan 2006 at 8:09, Joe Hecht wrote:

> Did some kind, generous and way smarter then me soul create
> at BE relinker?
> 

Here's my standard module that I use when the BE and FE are in the same 
directory.  Not that it if your BE is password protected, you will need to 
modify this slightly since "tdfloop.Connect" will contain additional info 
before the first semicolon. 


Function RelinkTables() As Long
Dim tdfloop As TableDef
With CurrentDb
        For Each tdfloop In .TableDefs
            If Left$(tdfloop.Connect, 10) = ";DATABASE=" Then
               tdfloop.Connect = ";DATABASE=" & ApplDir & 
FileBasename(Mid$(tdfloop.Connect, 11))
               tdfloop.RefreshLink
            End If
        Next tdfloop
End With
End Function

Static Function ApplDir() As String
   Dim strApplDir As String
   Dim strTemp As String
   If strApplDir = "" Then
    strTemp = DBEngine(0)(0).Name
    strApplDir = Left$(strTemp, InStrRev(strTemp, "\"))
   End If
   ApplDir = strApplDir
End Function

Function FileBasename(fullpath As String) As String
    FileBasename = Right$(fullpath, Len(fullpath) - InStrRev(fullpath, 
"\"))
End Function-- 
Stuart




From stuart at lexacorp.com.pg  Tue Jan 17 15:56:18 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Wed, 18 Jan 2006 07:56:18 +1000
Subject: [AccessD] VB Scripts
In-Reply-To: <001201c61ba1$731071e0$017ba8c0@xpserver>
References: <43CC79B5.9060506@shaw.ca>
Message-ID: <43CDF4A2.13293.158837E@stuart.lexacorp.com.pg>

On 17 Jan 2006 at 12:06, Jim Lawrence wrote:

> Hi All:
> 
> Here is a simple question. 
> 
> Does MS require MS Office products to be able to run VB Scripts or VS to be
> able to compile these scripts in order to have them run on a system or is
> the capability just built into any version of Windows? ...like IE.
> 
> Can the ability of running of VB scripts be easily turned off and on?
> 
> A client is requesting specific details so they can balance security against
> functionality and I just do not know enough about the subject.
> 
VB Scripts can be executed by the Windows Scripting Host (WSH) on any 
Windows machine (W95 and onwards) as long as WSH has not been disabled and 
it isn't blocked by an AV product.  

Take a look at 
http://www.sarc.com/avcenter/venc/data/win.script.hosting.html
for info on the security aspects.

What does your client think they need VBScript for? There are probably 
better and more secure options available.



-- 
Stuart




From martyconnelly at shaw.ca  Tue Jan 17 16:11:54 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Tue, 17 Jan 2006 14:11:54 -0800
Subject: [AccessD] VB Scripts
References: <001201c61ba1$731071e0$017ba8c0@xpserver>
Message-ID: <43CD6BAA.3040101@shaw.ca>

Well with Win 2000 + you get vbscript.dll with the OS.
You can rewrite necessary vbs script files to run from Access VBA
I do this for WMI vbs script files

Included the following code in your Login Script:
It still allows legitimate need for executing VBScript files by
right-clicking and selecting Open.


Sub DisableVBScript()
' Make Default Action of .VBS and .VBE files "Edit" instead of "Open"
' This will cause the script file to open in notepad when double-clicked
instead of running.


    On Error Resume Next


    Dim WshShell
    Set WshShell = WScript.CreateObject("WScript.Shell")


 WshShell.RegWrite "HKCR\VBSFile\Shell\", "Edit"
 WshShell.RegWrite "HKCR\VBEFile\Shell\", "Edit"

'Instead of the above .RegWrite  use the following:


'    WshShell.RegDelete "HKCR\.vbs\"
'    WshShell.RegDelete "HKCR\.vbe\"

'This will remove the extensions from the registry.  This is more
'drastic, but may be better for some organizations.
'I wont allow vbs files to be executed at all.

End Sub

The above code is similar to doing the following excerise
------------------------
WSH is installed by default.
To prevent scripts with a .VBS extension from being run:
without running code

Log on as an Administrator.
On the 'Desktop', or in 'Windows Explorer', right-click on
'My Computer'. Select 'Open' from the menu.
In the 'My Computer' window, open the 'Tools' menu
and select 'Folder Options'. Open the 'File Types'
tabbed page.


Look for 'VBScript Script File' in the list of file types
(if you can't find it, your machine is safe and you don't
need to do anything else). Click on the 'Delete' button.
If you see a dialog asking you to confirm removal, click
'Yes'.
-----------


There are ways via Tools -- Options to indivually disallow vbscript from 
running
in programs like IE and Outlook

The most drastic way to disable scripting is the following deregister 
commands
be advised, some features of the OS may depend on these DLL's being
registered.

Start, Run and enter
REGSVR32  - U  VBSCRIPT.DLL
REGSVR32  -U   JSCRIPT.DLL
 





Jim Lawrence wrote:

>Hi All:
>
>Here is a simple question. 
>
>Does MS require MS Office products to be able to run VB Scripts or VS to be
>able to compile these scripts in order to have them run on a system or is
>the capability just built into any version of Windows? ...like IE.
>
>Can the ability of running of VB scripts be easily turned off and on?
>
>A client is requesting specific details so they can balance security against
>functionality and I just do not know enough about the subject.
>
>MTIA
>Jim  
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From cfoust at infostatsystems.com  Tue Jan 17 16:13:17 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 17 Jan 2006 14:13:17 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local>

Yes, the behavior is different is you use the add-in.  The shop I work
in uses SourceSafe, so I'm not likely to switch to something else.  I'm
not sure I would like creating multiple stems from a base file.  Sounds
to me like an even better way to get versions screwed up.  At least the
way we have SourceSafe set up, only one person can have an object
checked out at a time, and all project that use that object will get the
same version when it's checked back in.  If we've branched it for a
particular project, then the changes don't get applied to that version.
Works for us, and it works nicely with VS.Net, so we're happy.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Tuesday, January 17, 2006 11:12 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/17/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> The sourcesafe handling of Access is completely different from Word 
> because unless you try to add it from outside, as you do with other 
> application files.  I've heard all the horror stories about 
> sourcesafe, but for many, if not most, independent developers, it is 
> the cheapest alternative because it comes with the ODE, and I 
> personally have not seen the corruption problems more than once in the

> years I've worked with it.  In that case, that's what backups were 
> for. <g>

I'm confused, so it only allows diff'ing if you have the plug-in to
Access, but if you add it from explorer it still acts like a binary
file?

You really should try out SubVersion. I like it ALOT and it's really
easy to create branches and other things for multiple development stems
from one base file.

--
Josh McFarlane
"Peace cannot be kept by force. It can only be achieved by
understanding." -Albert Einstein
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From robert at servicexp.com  Tue Jan 17 16:50:59 2006
From: robert at servicexp.com (Robert Gracie)
Date: Tue, 17 Jan 2006 17:50:59 -0500
Subject: [AccessD] Ok,
	Let me ask it a different way.. (was: Subform colummn adjustment?)
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CE1@gbsserver.GBS.local>

 
Is there any way to capture the user adjusting a column or row? I don't
see any events for such, but is there a different way...

The more I think about this, maybe using a right click function for a
"save dimensions" in a table type thing....????



******************************************
Is there ANY way to allow a user to set the column width and row height
(datasheet view) to their choice and SAVE that choice in an MDE?


Robert Gracie
www.gbsysnow.com
******************************************


From accessd at shaw.ca  Tue Jan 17 18:12:12 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Tue, 17 Jan 2006 16:12:12 -0800
Subject: [AccessD] VB Scripts
In-Reply-To: <43CD6BAA.3040101@shaw.ca>
Message-ID: <001101c61bc3$d4eb4940$017ba8c0@xpserver>

Thanks Stuart and Marty:

Along with my basic understanding and your extended knowledge I will be able
to assist the client in coming to an objective decision.

Jim


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: January 17, 2006 2:12 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] VB Scripts

Well with Win 2000 + you get vbscript.dll with the OS.
You can rewrite necessary vbs script files to run from Access VBA
I do this for WMI vbs script files

Included the following code in your Login Script:
It still allows legitimate need for executing VBScript files by
right-clicking and selecting Open.


Sub DisableVBScript()
' Make Default Action of .VBS and .VBE files "Edit" instead of "Open"
' This will cause the script file to open in notepad when double-clicked
instead of running.


    On Error Resume Next


    Dim WshShell
    Set WshShell = WScript.CreateObject("WScript.Shell")


 WshShell.RegWrite "HKCR\VBSFile\Shell\", "Edit"
 WshShell.RegWrite "HKCR\VBEFile\Shell\", "Edit"

'Instead of the above .RegWrite  use the following:


'    WshShell.RegDelete "HKCR\.vbs\"
'    WshShell.RegDelete "HKCR\.vbe\"

'This will remove the extensions from the registry.  This is more
'drastic, but may be better for some organizations.
'I wont allow vbs files to be executed at all.

End Sub

The above code is similar to doing the following excerise
------------------------
WSH is installed by default.
To prevent scripts with a .VBS extension from being run:
without running code

Log on as an Administrator.
On the 'Desktop', or in 'Windows Explorer', right-click on
'My Computer'. Select 'Open' from the menu.
In the 'My Computer' window, open the 'Tools' menu
and select 'Folder Options'. Open the 'File Types'
tabbed page.


Look for 'VBScript Script File' in the list of file types
(if you can't find it, your machine is safe and you don't
need to do anything else). Click on the 'Delete' button.
If you see a dialog asking you to confirm removal, click
'Yes'.
-----------


There are ways via Tools -- Options to indivually disallow vbscript from 
running
in programs like IE and Outlook

The most drastic way to disable scripting is the following deregister 
commands
be advised, some features of the OS may depend on these DLL's being
registered.

Start, Run and enter
REGSVR32  - U  VBSCRIPT.DLL
REGSVR32  -U   JSCRIPT.DLL
 





Jim Lawrence wrote:

>Hi All:
>
>Here is a simple question. 
>
>Does MS require MS Office products to be able to run VB Scripts or VS to be
>able to compile these scripts in order to have them run on a system or is
>the capability just built into any version of Windows? ...like IE.
>
>Can the ability of running of VB scripts be easily turned off and on?
>
>A client is requesting specific details so they can balance security
against
>functionality and I just do not know enough about the subject.
>
>MTIA
>Jim  
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada



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



From newsgrps at dalyn.co.nz  Tue Jan 17 20:48:57 2006
From: newsgrps at dalyn.co.nz (David Emerson)
Date: Wed, 18 Jan 2006 15:48:57 +1300
Subject: [AccessD] OT - Progs Using Internet Connection
Message-ID: <7.0.0.16.0.20060118154529.01a31530@dalyn.co.nz>

This is way off topic but does anyone know how I can find out what 
programs are sending packets over my internet connection?  Some of 
them will be valid (eg virus protection updating) but it would be 
nice to know if I have something sending info out that shouldn't be).

Regards

David Emerson
Dalyn Software Ltd
New Zealand 



From developer at ultradnt.com  Tue Jan 17 20:59:04 2006
From: developer at ultradnt.com (Steve Conklin)
Date: Tue, 17 Jan 2006 21:59:04 -0500
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <7.0.0.16.0.20060118154529.01a31530@dalyn.co.nz>
Message-ID: <200601180259.k0I2x2c19239@ultradnt.com>

Install ZoneAlarm ? 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
Sent: Tuesday, January 17, 2006 9:49 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT - Progs Using Internet Connection

This is way off topic but does anyone know how I can find out what programs
are sending packets over my internet connection?  Some of them will be valid
(eg virus protection updating) but it would be nice to know if I have
something sending info out that shouldn't be).

Regards

David Emerson
Dalyn Software Ltd
New Zealand 

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




From newsgrps at dalyn.co.nz  Tue Jan 17 21:06:37 2006
From: newsgrps at dalyn.co.nz (David Emerson)
Date: Wed, 18 Jan 2006 16:06:37 +1300
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <200601180259.k0I2x2c19239@ultradnt.com>
References: <7.0.0.16.0.20060118154529.01a31530@dalyn.co.nz>
	<200601180259.k0I2x2c19239@ultradnt.com>
Message-ID: <7.0.0.16.0.20060118160550.01a8e108@dalyn.co.nz>

Thanks Steve,  I was kind of hoping that Windows has something built 
in.  I have XP professional.

David

At 18/01/2006, you wrote:
>Install ZoneAlarm ?
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
>Sent: Tuesday, January 17, 2006 9:49 PM
>To: accessd at databaseadvisors.com
>Subject: [AccessD] OT - Progs Using Internet Connection
>
>This is way off topic but does anyone know how I can find out what programs
>are sending packets over my internet connection?  Some of them will be valid
>(eg virus protection updating) but it would be nice to know if I have
>something sending info out that shouldn't be).
>
>Regards
>
>David Emerson
>Dalyn Software Ltd
>New Zealand
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com



From developer at ultradnt.com  Tue Jan 17 21:23:49 2006
From: developer at ultradnt.com (Steve Conklin)
Date: Tue, 17 Jan 2006 22:23:49 -0500
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <7.0.0.16.0.20060118160550.01a8e108@dalyn.co.nz>
Message-ID: <200601180323.k0I3Nlc22060@ultradnt.com>

If I recall correctly, that's the major piece missing from Windows built-in
firewall - it only checks inbound.  ZA free version is very good.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
Sent: Tuesday, January 17, 2006 10:07 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT - Progs Using Internet Connection

Thanks Steve,  I was kind of hoping that Windows has something built in.  I
have XP professional.

David

At 18/01/2006, you wrote:
>Install ZoneAlarm ?
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David 
>Emerson
>Sent: Tuesday, January 17, 2006 9:49 PM
>To: accessd at databaseadvisors.com
>Subject: [AccessD] OT - Progs Using Internet Connection
>
>This is way off topic but does anyone know how I can find out what 
>programs are sending packets over my internet connection?  Some of them 
>will be valid (eg virus protection updating) but it would be nice to 
>know if I have something sending info out that shouldn't be).
>
>Regards
>
>David Emerson
>Dalyn Software Ltd
>New Zealand
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com

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




From bchacc at san.rr.com  Tue Jan 17 22:11:09 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Tue, 17 Jan 2006 20:11:09 -0800
Subject: [AccessD] BE Relinker
In-Reply-To: <43CDF1BB.18971.14D2DE2@stuart.lexacorp.com.pg>
References: <43CDF1BB.18971.14D2DE2@stuart.lexacorp.com.pg>
Message-ID: <43CDBFDD.30007@san.rr.com>

I use Tribble's relinker.  I'm not sure if it's still on the web 
somewhere.  But, if it can't find the BE tables in the FE folder it 
opens the file open dialog box and asks you to point to the back end and 
then relinks.  Very nice piece of code.

Rocky


Stuart McLachlan wrote:
> On 17 Jan 2006 at 8:09, Joe Hecht wrote:
>
>   
>> Did some kind, generous and way smarter then me soul create
>> at BE relinker?
>>
>>     
>
> Here's my standard module that I use when the BE and FE are in the same 
> directory.  Not that it if your BE is password protected, you will need to 
> modify this slightly since "tdfloop.Connect" will contain additional info 
> before the first semicolon. 
>
>
> Function RelinkTables() As Long
> Dim tdfloop As TableDef
> With CurrentDb
>         For Each tdfloop In .TableDefs
>             If Left$(tdfloop.Connect, 10) = ";DATABASE=" Then
>                tdfloop.Connect = ";DATABASE=" & ApplDir & 
> FileBasename(Mid$(tdfloop.Connect, 11))
>                tdfloop.RefreshLink
>             End If
>         Next tdfloop
> End With
> End Function
>
> Static Function ApplDir() As String
>    Dim strApplDir As String
>    Dim strTemp As String
>    If strApplDir = "" Then
>     strTemp = DBEngine(0)(0).Name
>     strApplDir = Left$(strTemp, InStrRev(strTemp, "\"))
>    End If
>    ApplDir = strApplDir
> End Function
>
> Function FileBasename(fullpath As String) As String
>     FileBasename = Right$(fullpath, Len(fullpath) - InStrRev(fullpath, 
> "\"))
> End Function-- 
> Stuart
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From jmhecht at earthlink.net  Tue Jan 17 22:11:49 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 17 Jan 2006 20:11:49 -0800
Subject: [AccessD] BE Relinker
In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD56A@main2.marlow.com>
Message-ID: <000001c61be5$50754040$6701a8c0@HPLaptop>

Drew, 

Always thanks first.

Would like to see yours if you do not mind.

This would be to two to five users with front ends hitting
BE on server.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Tuesday, January 17, 2006 10:35 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] BE Relinker

I posted a while back, on something that would be a
'seamless' relinker.
You can 'search' a subnet with UDP, which is very fast
(split second on a
subnet with over a thousand IPs on it), and have a 'service'
that listens
for that UDP broadcast, and replies with requested
information.  ie, FE on
home network, broadcasts and hits the service on your home
network, which
tells the FE where the backends on your home network are.
FE relinks to
backend.  You modify the FE, send it to client.  Client
opens FE, again, FE
finds the service on clients network, which tells the FE
where to relink
it's tables too.  

Would be pretty easy to setup, let me know if you would be
interested.

Drew

-----Original Message-----
From: Joe Hecht [mailto:jmhecht at earthlink.net]
Sent: Tuesday, January 17, 2006 10:10 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] BE Relinker


Did some kind, generous and way smarter then me soul create
at BE relinker?

 

 

Joe Hecht

jmhecht at earthlink.net

 

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



From bchacc at san.rr.com  Tue Jan 17 22:13:21 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Tue, 17 Jan 2006 20:13:21 -0800
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <200601180259.k0I2x2c19239@ultradnt.com>
References: <200601180259.k0I2x2c19239@ultradnt.com>
Message-ID: <43CDC061.3070506@san.rr.com>

I recently switched from Zone Alarm to Sygate Personal Firewall.  ZA was 
staring to cause problems.  Sygate will tell you when somethings sending 
out to the internet.

Rocky


Steve Conklin wrote:
> Install ZoneAlarm ? 
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
> Sent: Tuesday, January 17, 2006 9:49 PM
> To: accessd at databaseadvisors.com
> Subject: [AccessD] OT - Progs Using Internet Connection
>
> This is way off topic but does anyone know how I can find out what programs
> are sending packets over my internet connection?  Some of them will be valid
> (eg virus protection updating) but it would be nice to know if I have
> something sending info out that shouldn't be).
>
> Regards
>
> David Emerson
> Dalyn Software Ltd
> New Zealand 
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From stuart at lexacorp.com.pg  Tue Jan 17 22:37:31 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Wed, 18 Jan 2006 14:37:31 +1000
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <7.0.0.16.0.20060118154529.01a31530@dalyn.co.nz>
Message-ID: <43CE52AB.19185.2C7D762@stuart.lexacorp.com.pg>

On 18 Jan 2006 at 15:48, David Emerson wrote:

> This is way off topic but does anyone know how I can find out what 
> programs are sending packets over my internet connection?  Some of 
> them will be valid (eg virus protection updating) but it would be 
> nice to know if I have something sending info out that shouldn't be).
> 

I use Kerio Personal Firewall for this


-- 
Stuart




From Erwin.Craps at ithelps.be  Wed Jan 18 03:38:48 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Wed, 18 Jan 2006 10:38:48 +0100
Subject: [AccessD] OT - Progs Using Internet Connection
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62AC@stekelbes.ithelps.local>


http://www.protect-me.com/freeware.html 

Active ports, will monitor all your IP port activity, tell the from and
to IP address/port and which app is dooing it.

It is not a firewall or port blocker, just a realtime monitor, but very
efficiant.

Erwin




-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Wednesday, January 18, 2006 5:13 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT - Progs Using Internet Connection

I recently switched from Zone Alarm to Sygate Personal Firewall.  ZA was
staring to cause problems.  Sygate will tell you when somethings sending
out to the internet.

Rocky


Steve Conklin wrote:
> Install ZoneAlarm ? 
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David 
> Emerson
> Sent: Tuesday, January 17, 2006 9:49 PM
> To: accessd at databaseadvisors.com
> Subject: [AccessD] OT - Progs Using Internet Connection
>
> This is way off topic but does anyone know how I can find out what 
> programs are sending packets over my internet connection?  Some of 
> them will be valid (eg virus protection updating) but it would be nice

> to know if I have something sending info out that shouldn't be).
>
> Regards
>
> David Emerson
> Dalyn Software Ltd
> New Zealand
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>   

--
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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


From Gustav at cactus.dk  Wed Jan 18 04:27:50 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 18 Jan 2006 11:27:50 +0100
Subject: [AccessD] Ok,
	Let me ask it a different way.. (was:	Subform colummn adjustment?)
Message-ID: <s3ce264b.024@cactus.dk>

Hi Robert

I don't think there is an event for this, but even so why not just loop the fields and record the current ColumnWidth when you close the form. Then, when opening the form, read and set the ColumnWidth for each field.
ColumnWidth contains the width in twips. Value -1 is for default width while -2 is for "fit to data" as if you double-click the header.

You could do the same for the RowHeight of the form (or reset it). This is in twips as well, and -1 for default height.

/gustav

>>> robert at servicexp.com 17-01-2006 23:50 >>>
 
Is there any way to capture the user adjusting a column or row? I don't
see any events for such, but is there a different way...

The more I think about this, maybe using a right click function for a
"save dimensions" in a table type thing....????



******************************************
Is there ANY way to allow a user to set the column width and row height
(datasheet view) to their choice and SAVE that choice in an MDE?


Robert Gracie
www.gbsysnow.com 
******************************************




From wdhindman at bellsouth.net  Wed Jan 18 04:59:46 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 18 Jan 2006 05:59:46 -0500
Subject: [AccessD] BE Relinker
References: <43CDF1BB.18971.14D2DE2@stuart.lexacorp.com.pg>
	<43CDBFDD.30007@san.rr.com>
Message-ID: <000d01c61c1e$4b935060$6101a8c0@JISREGISTRATION.local>

...JC keeps a copy available here:
http://www.colbyconsulting.com/UsefulFiles/tabid/126/Default.aspx

William

----- Original Message ----- 
From: "Rocky Smolin - Beach Access Software" <bchacc at san.rr.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Tuesday, January 17, 2006 11:11 PM
Subject: Re: [AccessD] BE Relinker


>I use Tribble's relinker.  I'm not sure if it's still on the web
> somewhere.  But, if it can't find the BE tables in the FE folder it
> opens the file open dialog box and asks you to point to the back end and
> then relinks.  Very nice piece of code.
>
> Rocky
>
>
> Stuart McLachlan wrote:
>> On 17 Jan 2006 at 8:09, Joe Hecht wrote:
>>
>>
>>> Did some kind, generous and way smarter then me soul create
>>> at BE relinker?
>>>
>>>
>>
>> Here's my standard module that I use when the BE and FE are in the same
>> directory.  Not that it if your BE is password protected, you will need 
>> to
>> modify this slightly since "tdfloop.Connect" will contain additional info
>> before the first semicolon.
>>
>>
>> Function RelinkTables() As Long
>> Dim tdfloop As TableDef
>> With CurrentDb
>>         For Each tdfloop In .TableDefs
>>             If Left$(tdfloop.Connect, 10) = ";DATABASE=" Then
>>                tdfloop.Connect = ";DATABASE=" & ApplDir &
>> FileBasename(Mid$(tdfloop.Connect, 11))
>>                tdfloop.RefreshLink
>>             End If
>>         Next tdfloop
>> End With
>> End Function
>>
>> Static Function ApplDir() As String
>>    Dim strApplDir As String
>>    Dim strTemp As String
>>    If strApplDir = "" Then
>>     strTemp = DBEngine(0)(0).Name
>>     strApplDir = Left$(strTemp, InStrRev(strTemp, "\"))
>>    End If
>>    ApplDir = strApplDir
>> End Function
>>
>> Function FileBasename(fullpath As String) As String
>>     FileBasename = Right$(fullpath, Len(fullpath) - InStrRev(fullpath,
>> "\"))
>> End Function-- 
>> Stuart
>>
>>
>>
>
> -- 
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From accessd at shaw.ca  Wed Jan 18 06:29:01 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Wed, 18 Jan 2006 04:29:01 -0800
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <7.0.0.16.0.20060118154529.01a31530@dalyn.co.nz>
Message-ID: <000e01c61c2a$c36ad340$017ba8c0@xpserver>

Hi David:

You can use a network packet sniffer. On most networks this type of product
tends to be considered in poor form at the least and security threat at the
most. (Windows does not encrypt its intranet passwords.) Here is a link to a
free sniffer:
http://netsecurity.about.com/cs/hackertools/a/aafreepacsniff.htm

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
Sent: January 17, 2006 6:49 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT - Progs Using Internet Connection

This is way off topic but does anyone know how I can find out what 
programs are sending packets over my internet connection?  Some of 
them will be valid (eg virus protection updating) but it would be 
nice to know if I have something sending info out that shouldn't be).

Regards

David Emerson
Dalyn Software Ltd
New Zealand 

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



From robert at servicexp.com  Wed Jan 18 06:57:24 2006
From: robert at servicexp.com (Robert Gracie)
Date: Wed, 18 Jan 2006 07:57:24 -0500
Subject: [AccessD] Ok,
	Let me ask it a different way.. (was:	Subform colummn adjustment?)
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CE2@gbsserver.GBS.local>

Hello Gustav,

 Thank you VERY much for the directional help, It's appreciated. I wound
up doing exactly what you described. I found a small project on Access
Advisors, that used two classes and a table to do exactly what you
described.

  With a little tweaking, I now have full control (allow, disallow,
record and update changes) over column width, column order, column
visible and row height. It accomplishes this in real time with the use
of WithEvents. 

  My only concern is with bloating, on exiting of the form the
procedures deletes the records (field settings for that subform) and re
writes the existing settings to the table.


 Thanks Again Gustav!!


Robert Gracie
www.gbsysnow.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 18, 2006 6:01 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Ok,Let me ask it a different way.. (was: Subform
colummn adjustment?)

Hi Robert

I don't think there is an event for this, but even so why not just loop
the fields and record the current ColumnWidth when you close the form.
Then, when opening the form, read and set the ColumnWidth for each
field.
ColumnWidth contains the width in twips. Value -1 is for default width
while -2 is for "fit to data" as if you double-click the header.

You could do the same for the RowHeight of the form (or reset it). This
is in twips as well, and -1 for default height.

/gustav

>>> robert at servicexp.com 17-01-2006 23:50 >>>
 
Is there any way to capture the user adjusting a column or row? I don't
see any events for such, but is there a different way...

The more I think about this, maybe using a right click function for a
"save dimensions" in a table type thing....????



******************************************
Is there ANY way to allow a user to set the column width and row height
(datasheet view) to their choice and SAVE that choice in an MDE?


Robert Gracie
www.gbsysnow.com
******************************************


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




From Gustav at cactus.dk  Wed Jan 18 06:58:23 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 18 Jan 2006 13:58:23 +0100
Subject: [AccessD] Ok,
	Let me ask it a different way..	(was:	Subform colummn adjustment?)
Message-ID: <s3ce498d.032@cactus.dk>

Hi Robert

Fine!
As for the bloating, perhaps you could rewrite the code to perform an update of existing records and append if missing. Deleting all records sounds a bit primitive in this case.

/gustav

>>> robert at servicexp.com 18-01-2006 13:57 >>>
Hello Gustav,

 Thank you VERY much for the directional help, It's appreciated. I wound
up doing exactly what you described. I found a small project on Access
Advisors, that used two classes and a table to do exactly what you
described.

  With a little tweaking, I now have full control (allow, disallow,
record and update changes) over column width, column order, column
visible and row height. It accomplishes this in real time with the use
of WithEvents. 

  My only concern is with bloating, on exiting of the form the
procedures deletes the records (field settings for that subform) and re
writes the existing settings to the table.


 Thanks Again Gustav!!


Robert Gracie
www.gbsysnow.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 18, 2006 6:01 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Ok,Let me ask it a different way.. (was: Subform
colummn adjustment?)

Hi Robert

I don't think there is an event for this, but even so why not just loop
the fields and record the current ColumnWidth when you close the form.
Then, when opening the form, read and set the ColumnWidth for each
field.
ColumnWidth contains the width in twips. Value -1 is for default width
while -2 is for "fit to data" as if you double-click the header.

You could do the same for the RowHeight of the form (or reset it). This
is in twips as well, and -1 for default height.

/gustav

>>> robert at servicexp.com 17-01-2006 23:50 >>>
 
Is there any way to capture the user adjusting a column or row? I don't
see any events for such, but is there a different way...

The more I think about this, maybe using a right click function for a
"save dimensions" in a table type thing....????



******************************************
Is there ANY way to allow a user to set the column width and row height
(datasheet view) to their choice and SAVE that choice in an MDE?


Robert Gracie
www.gbsysnow.com 
******************************************




From wdhindman at bellsouth.net  Wed Jan 18 08:01:48 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 18 Jan 2006 09:01:48 -0500
Subject: [AccessD] ...close open forms
References: <43CE52AB.19185.2C7D762@stuart.lexacorp.com.pg>
Message-ID: <000a01c61c37$b9ba4850$6101a8c0@JISREGISTRATION.local>

...I need to close any open forms ...other than designated forms ...and save 
their data ...before opening a called form ...from the called form.

...ie call a form open from a switchboard ...the called form checks for any 
other forms open, other than the sb, and closes them, saving their data, 
before it opens.

William 




From Gustav at cactus.dk  Wed Jan 18 08:22:20 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 18 Jan 2006 15:22:20 +0100
Subject: [AccessD] ...close open forms
Message-ID: <s3ce5d48.039@cactus.dk>

Hi William

How about:

  ' Close all forms except this first opened form.
  For lngF = Forms.Count - 1 To 1 Step -1
    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
  Next

/gustav

>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
...I need to close any open forms ...other than designated forms ...and save 
their data ...before opening a called form ...from the called form.

...ie call a form open from a switchboard ...the called form checks for any 
other forms open, other than the sb, and closes them, saving their data, 
before it opens.

William 




From Lambert.Heenan at AIG.com  Wed Jan 18 08:42:36 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 18 Jan 2006 09:42:36 -0500
Subject: [AccessD] ...close open forms
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6DEB8@xlivmbx21.aig.com>

Could this be a problem?...

"For lngF = Forms.Count - 1 To 1 Step -1"  if form n is closed, does
Forms.Count not simultaneously decrease? In which case might the loop miss
an open form?

An alternative would be

Sub CloseEm(strKeepOpen as String)
Dim f as Form

For Each f In Forms
	If f.Name <> strKeepOpen Then  DoCmd.Close acForm. F.Name, acSaveYes
Next f
End Sub


Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 18, 2006 9:22 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] ...close open forms


Hi William

How about:

  ' Close all forms except this first opened form.
  For lngF = Forms.Count - 1 To 1 Step -1
    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
  Next

/gustav

>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
...I need to close any open forms ...other than designated forms ...and save

their data ...before opening a called form ...from the called form.

...ie call a form open from a switchboard ...the called form checks for any 
other forms open, other than the sb, and closes them, saving their data, 
before it opens.

William 


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


From shamil at users.mns.ru  Wed Jan 18 08:53:13 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 18 Jan 2006 17:53:13 +0300
Subject: [AccessD] ...close open forms
References: <43CE52AB.19185.2C7D762@stuart.lexacorp.com.pg>
	<000a01c61c37$b9ba4850$6101a8c0@JISREGISTRATION.local>
Message-ID: <001501c61c3e$e9657b90$6401a8c0@fincomplex.spb.ru>

William,

It's unclear what do you mean by saving data before closing form - do you
have unbound forms?

For bound forms this code should work well:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    lParam As Any) As Long
Private Const WM_CLOSE = &H10

Public Sub CloseForms( _
   ByRef robjApp As Access.Application, _
   Optional ByRef rcolFormNames2Skip As Collection = Nothing)
Dim lngIdx As Long
Dim efrm As Access.Form
    With robjApp.Forms
        If .Count > 0 Then
            For lngIdx = .Count - 1 To 0 Step -1
               Set efrm = .Item(lngIdx)
               If Not SkipThisForm(rcolFormNames2Skip, efrm) Then
                  ' force to save data in bound form before
                  '  closing it
                  efrm.SetFocus
                  DoEvents
                  SendKeys "+{Enter}", True
                  ' close form
                  SendMessage efrm.hWnd, WM_CLOSE, 0, 0
                  DoEvents
               End If
            Next lngIdx
        End If
    End With
End Sub

Private Function SkipThisForm( _
         ByRef rcolFormNames2Skip As Collection, _
         ByRef rfrm As Access.Form) As Boolean
Dim evar As Variant
    If Not rcolFormNames2Skip Is Nothing Then
       For Each evar In rcolFormNames2Skip
          If StrComp(CStr(evar), rfrm.Name, vbTextCompare) = 0 Then
             SkipThisForm = True
             Exit Function
          End If
       Next evar
    End If
    SkipThisForm = False
End Function

It can be called this way from Switchboard form:

Dim col As New Collection
    col.Add Me.Name
    CloseForms Access.Application, col


You can also implement a special predefined public method in all your forms,
which can be called to save data before closing the form etc....

Shamil

----- Original Message ----- 
From: "William Hindman" <wdhindman at bellsouth.net>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 5:01 PM
Subject: [AccessD] ...close open forms


> ...I need to close any open forms ...other than designated forms ...and
save
> their data ...before opening a called form ...from the called form.
>
> ...ie call a form open from a switchboard ...the called form checks for
any
> other forms open, other than the sb, and closes them, saving their data,
> before it opens.
>
> William
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From jwcolby at ColbyConsulting.com  Wed Jan 18 10:40:00 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 18 Jan 2006 11:40:00 -0500
Subject: [AccessD] First/last day of week
Message-ID: <001801c61c4d$d5139e10$647aa8c0@ColbyM6805>

Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 




From papparuff at comcast.net  Wed Jan 18 10:56:22 2006
From: papparuff at comcast.net (papparuff at comcast.net)
Date: Wed, 18 Jan 2006 16:56:22 +0000
Subject: [AccessD] First/last day of week
Message-ID: <011820061656.17492.43CE733600089C2000004454220922992700009A9D0E9F9F0E9F@comcast.net>

FirstDayOfWeek = datDateToCheck - (Weekday(datDateToCheck )-1)
LastDayOfWeek = datDateToCheck  + (7-(Weekday(datDateToCheck ))

--
John V. Ruff ? The Eternal Optimist :-) 

?Commit to the Lord whatever you do, 
and your plans will succeed.? Proverbs 16:3

-------------- Original message -------------- 
From: "John Colby" <jwcolby at ColbyConsulting.com> 

> Does anyone have these functions? 
> 
> John W. Colby 
> www.ColbyConsulting.com 
> 
> 
> -- 
> AccessD mailing list 
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 

From Gustav at cactus.dk  Wed Jan 18 10:57:15 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 18 Jan 2006 17:57:15 +0100
Subject: [AccessD] First/last day of week
Message-ID: <s3ce8198.043@cactus.dk>

Hi John

Busy multitasking week ..?
Anyway, here are the functions we use:

Public Function DateWeekFirst( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the first date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
  
  DateWeekFirst = DateAdd("d", vbSunday - WeekDay(datDate, lngFirstDayOfWeek), datDate)
    
End Function

Public Function DateWeekLast( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the last date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
      
  DateWeekLast = DateAdd("d", vbSaturday - WeekDay(datDate, lngFirstDayOfWeek), datDate)
    
End Function

/gustav

>>> jwcolby at ColbyConsulting.com 18-01-2006 17:40:00 >>>
Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 




From darsant at gmail.com  Wed Jan 18 11:31:22 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Wed, 18 Jan 2006 11:31:22 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local>
Message-ID: <53c8e05a0601180931u68d8b307s8c0c35dcff5ee91c@mail.gmail.com>

On 1/17/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> Yes, the behavior is different is you use the add-in.  The shop I work
> in uses SourceSafe, so I'm not likely to switch to something else.  I'm
> not sure I would like creating multiple stems from a base file.  Sounds
> to me like an even better way to get versions screwed up.  At least the
> way we have SourceSafe set up, only one person can have an object
> checked out at a time, and all project that use that object will get the
> same version when it's checked back in.  If we've branched it for a
> particular project, then the changes don't get applied to that version.
> Works for us, and it works nicely with VS.Net, so we're happy.

Well, branching is made to be unintusive. Most other versions of
source control use merging rather than single-user checkouts. This
way, multiple people can work on the same source, and then when they
go to check back in, if changes collide, the second person reviews the
new code and modifies the version they are checking in accordingly.
Otherwise, if it's the same file but non-related functions, the merge
is seamless.

Branching is used if you're working on a major change, say adding a
new module to the program, but don't want to disrupt other people's
work. You work on your change, and then once it's finished, you can
rejoin your branch to the main version and merge changes accordingly.

Oh, another thing I like is in Subversion you can create tags. They
basically make a little marker with a title that you have that pulls
all files down from a certain revision, so when we send software to
our customer, we tag it with the date and name, and then if they ever
have a version, we can pull the exact code they used down with a
simple click.

--
Josh McFarlane
"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From Lambert.Heenan at AIG.com  Wed Jan 18 11:36:50 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 18 Jan 2006 11:36:50 -0600
Subject: [AccessD] First/last day of week
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6DFD1@xlivmbx21.aig.com>

How about...

FirstDOW="Monday"
LastDOW="Friday"

:-)

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Wednesday, January 18, 2006 11:40 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] First/last day of week


Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 


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


From jwcolby at ColbyConsulting.com  Wed Jan 18 11:56:03 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 18 Jan 2006 12:56:03 -0500
Subject: [AccessD] First/last day of week
In-Reply-To: <s3ce8198.043@cactus.dk>
Message-ID: <002401c61c58$7433f620$647aa8c0@ColbyM6805>

>Busy multitasking week ..?

OMG, you can't believe! I am to the point where I am using Outlook to
schedule blocks of my time for specific client tasks.  0800-1700 filled with
1/2 hr lunch and then 2100-midnight as well.  And that for the next couple
of weeks, and possibly beyond.

Thanks for the functions.  I integrated them into my Date Range selector
class and now have a "This week" selection.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 18, 2006 11:57 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] First/last day of week

Hi John

Busy multitasking week ..?
Anyway, here are the functions we use:

Public Function DateWeekFirst( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the first date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
  
  DateWeekFirst = DateAdd("d", vbSunday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

Public Function DateWeekLast( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the last date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
      
  DateWeekLast = DateAdd("d", vbSaturday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

/gustav

>>> jwcolby at ColbyConsulting.com 18-01-2006 17:40:00 >>>
Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 


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



From cfoust at infostatsystems.com  Wed Jan 18 11:58:07 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 18 Jan 2006 09:58:07 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF36@INFOSERVER04.infostat.local>

All I can say, is that I would NOT want to work with merging rather than
single-user checkouts.  SourceSafe can be set up that way, but it keeps
everything a lot cleaner when two people aren't even trying to modify
the same object at the same time.  Since we don't have one huge file to
deal with, I'd rather err on the side of caution.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Wednesday, January 18, 2006 9:31 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/17/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> Yes, the behavior is different is you use the add-in.  The shop I work

> in uses SourceSafe, so I'm not likely to switch to something else.  
> I'm not sure I would like creating multiple stems from a base file.  
> Sounds to me like an even better way to get versions screwed up.  At 
> least the way we have SourceSafe set up, only one person can have an 
> object checked out at a time, and all project that use that object 
> will get the same version when it's checked back in.  If we've 
> branched it for a particular project, then the changes don't get 
> applied to that version. Works for us, and it works nicely with 
> VS.Net, so we're happy.

Well, branching is made to be unintusive. Most other versions of source
control use merging rather than single-user checkouts. This way,
multiple people can work on the same source, and then when they go to
check back in, if changes collide, the second person reviews the new
code and modifies the version they are checking in accordingly.
Otherwise, if it's the same file but non-related functions, the merge is
seamless.

Branching is used if you're working on a major change, say adding a new
module to the program, but don't want to disrupt other people's work.
You work on your change, and then once it's finished, you can rejoin
your branch to the main version and merge changes accordingly.

Oh, another thing I like is in Subversion you can create tags. They
basically make a little marker with a title that you have that pulls all
files down from a certain revision, so when we send software to our
customer, we tag it with the date and name, and then if they ever have a
version, we can pull the exact code they used down with a simple click.

--
Josh McFarlane
"Peace cannot be kept by force. It can only be achieved by
understanding." -Albert Einstein
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From cfoust at infostatsystems.com  Wed Jan 18 11:58:50 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 18 Jan 2006 09:58:50 -0800
Subject: [AccessD] First/last day of week
Message-ID: <F55048AF7E974F429BB24597D7355EEABF37@INFOSERVER04.infostat.local>

Short week, Lambert? ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan,
Lambert
Sent: Wednesday, January 18, 2006 9:37 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


How about...

FirstDOW="Monday"
LastDOW="Friday"

:-)

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Wednesday, January 18, 2006 11:40 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] First/last day of week


Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 


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


From wdhindman at bellsouth.net  Wed Jan 18 12:01:18 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 18 Jan 2006 13:01:18 -0500
Subject: [AccessD] ...close open forms
Message-ID: <001a01c61c59$2ee36780$6101a8c0@JISREGISTRATION.local>


----- Original Message ----- 
From: "William Hindman" <wdhindman at bellsouth.net>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 12:58 PM
Subject: Re: [AccessD] ...close open forms


> Shamil
>
> ...I use both now ...I generally prefer bound forms ...but in apps with 
> several users I've run into problems with record locking ...so for those 
> forms where this is happening I've gradually been converting to unbound 
> forms.
>
> ...but what I'm looking for here is a generic plug-in that will work 
> equally well with both ...I'm building a new user interface that uses a 
> treeview switchboard form that is always in view ...one of the problems 
> being of course that a user can select from the switchboard at any time 
> even when a form is already open ...there are a number of ways to cover 
> that but what I was hoping someone had was a function that I could simply 
> call on form open that would iterate through all open forms, except those 
> I want left open, saving any dirty data, and closing them before opening 
> the new form.
>
> ...I'll try the approaches you and Gustav have posted and let you know 
> ...thanks for the quick replies :)
>
> William
>
> ----- Original Message ----- 
> From: "Shamil Salakhetdinov" <shamil at users.mns.ru>
> To: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> Sent: Wednesday, January 18, 2006 9:53 AM
> Subject: Re: [AccessD] ...close open forms
>
>
>> William,
>>
>> It's unclear what do you mean by saving data before closing form - do you
>> have unbound forms?
>>
>> For bound forms this code should work well:
>>
>> Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" 
>> ( _
>>    ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
>>    lParam As Any) As Long
>> Private Const WM_CLOSE = &H10
>>
>> Public Sub CloseForms( _
>>   ByRef robjApp As Access.Application, _
>>   Optional ByRef rcolFormNames2Skip As Collection = Nothing)
>> Dim lngIdx As Long
>> Dim efrm As Access.Form
>>    With robjApp.Forms
>>        If .Count > 0 Then
>>            For lngIdx = .Count - 1 To 0 Step -1
>>               Set efrm = .Item(lngIdx)
>>               If Not SkipThisForm(rcolFormNames2Skip, efrm) Then
>>                  ' force to save data in bound form before
>>                  '  closing it
>>                  efrm.SetFocus
>>                  DoEvents
>>                  SendKeys "+{Enter}", True
>>                  ' close form
>>                  SendMessage efrm.hWnd, WM_CLOSE, 0, 0
>>                  DoEvents
>>               End If
>>            Next lngIdx
>>        End If
>>    End With
>> End Sub
>>
>> Private Function SkipThisForm( _
>>         ByRef rcolFormNames2Skip As Collection, _
>>         ByRef rfrm As Access.Form) As Boolean
>> Dim evar As Variant
>>    If Not rcolFormNames2Skip Is Nothing Then
>>       For Each evar In rcolFormNames2Skip
>>          If StrComp(CStr(evar), rfrm.Name, vbTextCompare) = 0 Then
>>             SkipThisForm = True
>>             Exit Function
>>          End If
>>       Next evar
>>    End If
>>    SkipThisForm = False
>> End Function
>>
>> It can be called this way from Switchboard form:
>>
>> Dim col As New Collection
>>    col.Add Me.Name
>>    CloseForms Access.Application, col
>>
>>
>> You can also implement a special predefined public method in all your 
>> forms,
>> which can be called to save data before closing the form etc....
>>
>> Shamil
>>
>> ----- Original Message ----- 
>> From: "William Hindman" <wdhindman at bellsouth.net>
>> To: "Access Developers discussion and problem solving"
>> <accessd at databaseadvisors.com>
>> Sent: Wednesday, January 18, 2006 5:01 PM
>> Subject: [AccessD] ...close open forms
>>
>>
>>> ...I need to close any open forms ...other than designated forms ...and
>> save
>>> their data ...before opening a called form ...from the called form.
>>>
>>> ...ie call a form open from a switchboard ...the called form checks for
>> any
>>> other forms open, other than the sb, and closes them, saving their data,
>>> before it opens.
>>>
>>> William
>>>
>>>
>>> -- 
>>> AccessD mailing list
>>> AccessD at databaseadvisors.com
>>> http://databaseadvisors.com/mailman/listinfo/accessd
>>> Website: http://www.databaseadvisors.com
>>
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
> 




From shamil at users.mns.ru  Wed Jan 18 12:11:10 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 18 Jan 2006 21:11:10 +0300
Subject: [AccessD] Source Code Control
References: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local>
	<53c8e05a0601180931u68d8b307s8c0c35dcff5ee91c@mail.gmail.com>
Message-ID: <001901c61c5a$925a8cc0$6401a8c0@fincomplex.spb.ru>

Josh,

Is there somewhere a short step-by-step tutorial/instruction how to install
Subversion with Visual Studio?

I have heard a lot of good references about it but I didn't use it yet.

Is it possible to encrypt transparently for client development tools source
files stored in Subversion database? Reason is to use commercial software
sources stored on a public Web server running Subversion.

Thank you,
Shamil

----- Original Message ----- 
From: "Josh McFarlane" <darsant at gmail.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 8:31 PM
Subject: Re: [AccessD] Source Code Control


> On 1/17/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> > Yes, the behavior is different is you use the add-in.  The shop I work
> > in uses SourceSafe, so I'm not likely to switch to something else.  I'm
> > not sure I would like creating multiple stems from a base file.  Sounds
> > to me like an even better way to get versions screwed up.  At least the
> > way we have SourceSafe set up, only one person can have an object
> > checked out at a time, and all project that use that object will get the
> > same version when it's checked back in.  If we've branched it for a
> > particular project, then the changes don't get applied to that version.
> > Works for us, and it works nicely with VS.Net, so we're happy.
>
> Well, branching is made to be unintusive. Most other versions of
> source control use merging rather than single-user checkouts. This
> way, multiple people can work on the same source, and then when they
> go to check back in, if changes collide, the second person reviews the
> new code and modifies the version they are checking in accordingly.
> Otherwise, if it's the same file but non-related functions, the merge
> is seamless.
>
> Branching is used if you're working on a major change, say adding a
> new module to the program, but don't want to disrupt other people's
> work. You work on your change, and then once it's finished, you can
> rejoin your branch to the main version and merge changes accordingly.
>
> Oh, another thing I like is in Subversion you can create tags. They
> basically make a little marker with a title that you have that pulls
> all files down from a certain revision, so when we send software to
> our customer, we tag it with the date and name, and then if they ever
> have a version, we can pull the exact code they used down with a
> simple click.
>
> --
> Josh McFarlane
> "Peace cannot be kept by force. It can only be achieved by understanding."
> -Albert Einstein
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Lambert.Heenan at AIG.com  Wed Jan 18 12:27:32 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 18 Jan 2006 13:27:32 -0500
Subject: [AccessD] First/last day of week
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6E00B@xlivmbx21.aig.com>

Not short enough!!!! :-)

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Wednesday, January 18, 2006 12:59 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] First/last day of week


Short week, Lambert? ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Wednesday, January 18, 2006 9:37 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


How about...

FirstDOW="Monday"
LastDOW="Friday"

:-)

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Wednesday, January 18, 2006 11:40 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] First/last day of week


Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 


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


From newsgrps at dalyn.co.nz  Wed Jan 18 13:14:03 2006
From: newsgrps at dalyn.co.nz (David Emerson)
Date: Thu, 19 Jan 2006 08:14:03 +1300
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <46B976F2B698FF46A4FE7636509B22DF1B62AC@stekelbes.ithelps.l ocal>
References: <46B976F2B698FF46A4FE7636509B22DF1B62AC@stekelbes.ithelps.local>
Message-ID: <7.0.0.16.0.20060119081241.01a44e18@dalyn.co.nz>

Thanks all.  I already had a firewall in my router so didn't want to 
upset that by installing another one.  I went for Erwin's suggestion.

David

At 18/01/2006, you wrote:

>http://www.protect-me.com/freeware.html
>
>Active ports, will monitor all your IP port activity, tell the from and
>to IP address/port and which app is dooing it.
>
>It is not a firewall or port blocker, just a realtime monitor, but very
>efficiant.
>
>Erwin
>
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
>- Beach Access Software
>Sent: Wednesday, January 18, 2006 5:13 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] OT - Progs Using Internet Connection
>
>I recently switched from Zone Alarm to Sygate Personal Firewall.  ZA was
>staring to cause problems.  Sygate will tell you when somethings sending
>out to the internet.
>
>Rocky
>
>
>Steve Conklin wrote:
> > Install ZoneAlarm ?
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David
> > Emerson
> > Sent: Tuesday, January 17, 2006 9:49 PM
> > To: accessd at databaseadvisors.com
> > Subject: [AccessD] OT - Progs Using Internet Connection
> >
> > This is way off topic but does anyone know how I can find out what
> > programs are sending packets over my internet connection?  Some of
> > them will be valid (eg virus protection updating) but it would be nice
>
> > to know if I have something sending info out that shouldn't be).
> >
> > Regards
> >
> > David Emerson
> > Dalyn Software Ltd
> > New Zealand



From cfoust at infostatsystems.com  Wed Jan 18 13:23:33 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 18 Jan 2006 11:23:33 -0800
Subject: [AccessD] OT - Progs Using Internet Connection
Message-ID: <F55048AF7E974F429BB24597D7355EEABF38@INFOSERVER04.infostat.local>

Hardware firewalls, as in your router, aren't enough.  You still need a
software firewall to protect you from nasties that phone home.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
Sent: Wednesday, January 18, 2006 11:14 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT - Progs Using Internet Connection


Thanks all.  I already had a firewall in my router so didn't want to 
upset that by installing another one.  I went for Erwin's suggestion.

David

At 18/01/2006, you wrote:

>http://www.protect-me.com/freeware.html
>
>Active ports, will monitor all your IP port activity, tell the from and

>to IP address/port and which app is dooing it.
>
>It is not a firewall or port blocker, just a realtime monitor, but very

>efficiant.
>
>Erwin
>
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
>- Beach Access Software
>Sent: Wednesday, January 18, 2006 5:13 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] OT - Progs Using Internet Connection
>
>I recently switched from Zone Alarm to Sygate Personal Firewall.  ZA 
>was staring to cause problems.  Sygate will tell you when somethings 
>sending out to the internet.
>
>Rocky
>
>
>Steve Conklin wrote:
> > Install ZoneAlarm ?
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David 
> > Emerson
> > Sent: Tuesday, January 17, 2006 9:49 PM
> > To: accessd at databaseadvisors.com
> > Subject: [AccessD] OT - Progs Using Internet Connection
> >
> > This is way off topic but does anyone know how I can find out what 
> > programs are sending packets over my internet connection?  Some of 
> > them will be valid (eg virus protection updating) but it would be 
> > nice
>
> > to know if I have something sending info out that shouldn't be).
> >
> > Regards
> >
> > David Emerson
> > Dalyn Software Ltd
> > New Zealand

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


From Lambert.Heenan at AIG.com  Wed Jan 18 13:26:14 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 18 Jan 2006 14:26:14 -0500
Subject: [AccessD] OT - Progs Using Internet Connection
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6E052@xlivmbx21.aig.com>

Your router's firewall will only do what the Windows XP firewall does -
prevent your system from being invaded from "outside", but it will do
nothing about programs "calling home". That's why you install a software
firewall, and it will not interfere with your router.

Active Ports will monitor the activity, but will it block unwanted access to
the outside? I don't think so, that's the Software firewall's task.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
Sent: Wednesday, January 18, 2006 2:14 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT - Progs Using Internet Connection


Thanks all.  I already had a firewall in my router so didn't want to 
upset that by installing another one.  I went for Erwin's suggestion.

David

At 18/01/2006, you wrote:

>http://www.protect-me.com/freeware.html
>
>Active ports, will monitor all your IP port activity, tell the from and 
>to IP address/port and which app is dooing it.
>
>It is not a firewall or port blocker, just a realtime monitor, but very 
>efficiant.
>
>Erwin
>
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
>- Beach Access Software
>Sent: Wednesday, January 18, 2006 5:13 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] OT - Progs Using Internet Connection
>
>I recently switched from Zone Alarm to Sygate Personal Firewall.  ZA 
>was staring to cause problems.  Sygate will tell you when somethings 
>sending out to the internet.
>
>Rocky
>
>
>Steve Conklin wrote:
> > Install ZoneAlarm ?
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David 
> > Emerson
> > Sent: Tuesday, January 17, 2006 9:49 PM
> > To: accessd at databaseadvisors.com
> > Subject: [AccessD] OT - Progs Using Internet Connection
> >
> > This is way off topic but does anyone know how I can find out what 
> > programs are sending packets over my internet connection?  Some of 
> > them will be valid (eg virus protection updating) but it would be 
> > nice
>
> > to know if I have something sending info out that shouldn't be).
> >
> > Regards
> >
> > David Emerson
> > Dalyn Software Ltd
> > New Zealand

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


From jmhecht at earthlink.net  Wed Jan 18 13:33:43 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 18 Jan 2006 11:33:43 -0800
Subject: [AccessD] OT: Software firewalls ( was RE: OT - Progs Using
	Internet Connection )
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6E052@xlivmbx21.aig.com>
Message-ID: <000f01c61c66$17ff7f60$6701a8c0@HPLaptop>

Late to the party.

I was taught software firewalls were not good because they
tied up system resources.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Heenan, Lambert
Sent: Wednesday, January 18, 2006 11:26 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT - Progs Using Internet Connection

Your router's firewall will only do what the Windows XP
firewall does -
prevent your system from being invaded from "outside", but
it will do
nothing about programs "calling home". That's why you
install a software
firewall, and it will not interfere with your router.

Active Ports will monitor the activity, but will it block
unwanted access to
the outside? I don't think so, that's the Software
firewall's task.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
David Emerson
Sent: Wednesday, January 18, 2006 2:14 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT - Progs Using Internet Connection


Thanks all.  I already had a firewall in my router so didn't
want to 
upset that by installing another one.  I went for Erwin's
suggestion.

David

At 18/01/2006, you wrote:

>http://www.protect-me.com/freeware.html
>
>Active ports, will monitor all your IP port activity, tell
the from and 
>to IP address/port and which app is dooing it.
>
>It is not a firewall or port blocker, just a realtime
monitor, but very 
>efficiant.
>
>Erwin
>
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Rocky Smolin
>- Beach Access Software
>Sent: Wednesday, January 18, 2006 5:13 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] OT - Progs Using Internet Connection
>
>I recently switched from Zone Alarm to Sygate Personal
Firewall.  ZA 
>was staring to cause problems.  Sygate will tell you when
somethings 
>sending out to the internet.
>
>Rocky
>
>
>Steve Conklin wrote:
> > Install ZoneAlarm ?
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf
Of David 
> > Emerson
> > Sent: Tuesday, January 17, 2006 9:49 PM
> > To: accessd at databaseadvisors.com
> > Subject: [AccessD] OT - Progs Using Internet Connection
> >
> > This is way off topic but does anyone know how I can
find out what 
> > programs are sending packets over my internet
connection?  Some of 
> > them will be valid (eg virus protection updating) but it
would be 
> > nice
>
> > to know if I have something sending info out that
shouldn't be).
> >
> > Regards
> >
> > David Emerson
> > Dalyn Software Ltd
> > New Zealand

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



From martyconnelly at shaw.ca  Wed Jan 18 13:51:51 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Wed, 18 Jan 2006 11:51:51 -0800
Subject: [AccessD] OT - Progs Using Internet Connection
References: <46B976F2B698FF46A4FE7636509B22DF1B62AC@stekelbes.ithelps.local>
	<7.0.0.16.0.20060119081241.01a44e18@dalyn.co.nz>
Message-ID: <43CE9C57.7050202@shaw.ca>

Your router might not protect against outgoing packets unless you 
directly set its outgoing packet rule set.
or this might not be available at all on older or less expensive routers.
To protect against invalid outgoing packets use something like ZoneAlarm.
This extra software might add a extra second or two to a one meg download
This might be considered a belt and suspenders defence.

See Gibson's site http://www.grc.com  
Faqs and tests for more info.

David Emerson wrote:

>Thanks all.  I already had a firewall in my router so didn't want to 
>upset that by installing another one.  I went for Erwin's suggestion.
>
>David
>
>At 18/01/2006, you wrote:
>
>  
>
>>http://www.protect-me.com/freeware.html
>>
>>Active ports, will monitor all your IP port activity, tell the from and
>>to IP address/port and which app is dooing it.
>>
>>It is not a firewall or port blocker, just a realtime monitor, but very
>>efficiant.
>>
>>Erwin
>>
>>
>>
>>
>>-----Original Message-----
>>From: accessd-bounces at databaseadvisors.com
>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
>>- Beach Access Software
>>Sent: Wednesday, January 18, 2006 5:13 AM
>>To: Access Developers discussion and problem solving
>>Subject: Re: [AccessD] OT - Progs Using Internet Connection
>>
>>I recently switched from Zone Alarm to Sygate Personal Firewall.  ZA was
>>staring to cause problems.  Sygate will tell you when somethings sending
>>out to the internet.
>>
>>Rocky
>>
>>
>>Steve Conklin wrote:
>>    
>>
>>>Install ZoneAlarm ?
>>>
>>>-----Original Message-----
>>>From: accessd-bounces at databaseadvisors.com
>>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David
>>>Emerson
>>>Sent: Tuesday, January 17, 2006 9:49 PM
>>>To: accessd at databaseadvisors.com
>>>Subject: [AccessD] OT - Progs Using Internet Connection
>>>
>>>This is way off topic but does anyone know how I can find out what
>>>programs are sending packets over my internet connection?  Some of
>>>them will be valid (eg virus protection updating) but it would be nice
>>>      
>>>
>>>to know if I have something sending info out that shouldn't be).
>>>
>>>Regards
>>>
>>>David Emerson
>>>Dalyn Software Ltd
>>>New Zealand
>>>      
>>>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From Jim.Hale at FleetPride.com  Wed Jan 18 13:58:54 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Wed, 18 Jan 2006 13:58:54 -0600
Subject: [AccessD] First/last day of week
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD996@corp-es01.fleetpride.com>

A date range selector class? Now that sounds cool.
Jim

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 18, 2006 11:56 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


>Busy multitasking week ..?

OMG, you can't believe! I am to the point where I am using Outlook to
schedule blocks of my time for specific client tasks.  0800-1700 filled with
1/2 hr lunch and then 2100-midnight as well.  And that for the next couple
of weeks, and possibly beyond.

Thanks for the functions.  I integrated them into my Date Range selector
class and now have a "This week" selection.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 18, 2006 11:57 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] First/last day of week

Hi John

Busy multitasking week ..?
Anyway, here are the functions we use:

Public Function DateWeekFirst( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the first date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
  
  DateWeekFirst = DateAdd("d", vbSunday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

Public Function DateWeekLast( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the last date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
      
  DateWeekLast = DateAdd("d", vbSaturday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

/gustav

>>> jwcolby at ColbyConsulting.com 18-01-2006 17:40:00 >>>
Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 


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

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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From Lambert.Heenan at AIG.com  Wed Jan 18 14:08:10 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 18 Jan 2006 14:08:10 -0600
Subject: [AccessD] OT: Software firewalls ( was RE: OT - Progs Using
	I	nternet Connection )
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6E087@xlivmbx21.aig.com>

So do anti-virus software packages. But with today's fast CPUs and well
written S/W you'd hardly notice.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 18, 2006 2:34 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] OT: Software firewalls ( was RE: OT - Progs Using
Internet Connection )


Late to the party.

I was taught software firewalls were not good because they
tied up system resources.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Wednesday, January 18, 2006 11:26 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT - Progs Using Internet Connection

Your router's firewall will only do what the Windows XP firewall does -
prevent your system from being invaded from "outside", but it will do
nothing about programs "calling home". That's why you install a software
firewall, and it will not interfere with your router.

Active Ports will monitor the activity, but will it block unwanted access to
the outside? I don't think so, that's the Software firewall's task.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
Sent: Wednesday, January 18, 2006 2:14 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT - Progs Using Internet Connection


Thanks all.  I already had a firewall in my router so didn't want to 
upset that by installing another one.  I went for Erwin's suggestion.

David

At 18/01/2006, you wrote:

>http://www.protect-me.com/freeware.html
>
>Active ports, will monitor all your IP port activity, tell
the from and 
>to IP address/port and which app is dooing it.
>
>It is not a firewall or port blocker, just a realtime
monitor, but very 
>efficiant.
>
>Erwin
>
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Rocky Smolin
>- Beach Access Software
>Sent: Wednesday, January 18, 2006 5:13 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] OT - Progs Using Internet Connection
>
>I recently switched from Zone Alarm to Sygate Personal
Firewall.  ZA 
>was staring to cause problems.  Sygate will tell you when
somethings 
>sending out to the internet.
>
>Rocky
>
>
>Steve Conklin wrote:
> > Install ZoneAlarm ?
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf
Of David 
> > Emerson
> > Sent: Tuesday, January 17, 2006 9:49 PM
> > To: accessd at databaseadvisors.com
> > Subject: [AccessD] OT - Progs Using Internet Connection
> >
> > This is way off topic but does anyone know how I can
find out what 
> > programs are sending packets over my internet
connection?  Some of 
> > them will be valid (eg virus protection updating) but it
would be 
> > nice
>
> > to know if I have something sending info out that
shouldn't be).
> >
> > Regards
> >
> > David Emerson
> > Dalyn Software Ltd
> > New Zealand

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

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


From harkinsss at bellsouth.net  Wed Jan 18 14:08:29 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Wed, 18 Jan 2006 15:08:29 -0500
Subject: [AccessD] more on that Format() to pad text values question
Message-ID: <000001c61c6a$f3f5a130$b3b3d6d1@SUSANONE>

A small problem that I've notices is that if the string being formatted is
empty or null, Format() returns empty or null, which I understand. However,
is there anyway to force Format() to return something? What if you need 000
instead of empty or null? I can come up with a function or expression
myself, I'm just wondering if I can use Format() to force the digits
instead? 
 
Susan H. 


From cfoust at infostatsystems.com  Wed Jan 18 14:23:38 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 18 Jan 2006 12:23:38 -0800
Subject: [AccessD] more on that Format() to pad text values question
Message-ID: <F55048AF7E974F429BB24597D7355EEABF39@INFOSERVER04.infostat.local>

You can concatenate an empty string to the value being formatted.  That
will always result in at least a zero length string, as long as you use
the & for concatenation.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Wednesday, January 18, 2006 12:08 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] more on that Format() to pad text values question


A small problem that I've notices is that if the string being formatted
is empty or null, Format() returns empty or null, which I understand.
However, is there anyway to force Format() to return something? What if
you need 000 instead of empty or null? I can come up with a function or
expression myself, I'm just wondering if I can use Format() to force the
digits instead? 
 
Susan H. 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From Donald.A.McGillivray at sprint.com  Wed Jan 18 14:23:45 2006
From: Donald.A.McGillivray at sprint.com (Mcgillivray, Don [IT])
Date: Wed, 18 Jan 2006 14:23:45 -0600
Subject: [AccessD] more on that Format() to pad text values question
Message-ID: <EC829B33DF5B5B48A956B7A2E894AA9A03F98C05@PLSWB06C.ad.sprint.com>

Susan,

How about something like Format(Nz(YourValue,0),"000")  Uses more than
just the Format() function, but should do the trick. 

HTH,
Don

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Wednesday, January 18, 2006 12:08 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] more on that Format() to pad text values question

A small problem that I've notices is that if the string being formatted
is
empty or null, Format() returns empty or null, which I understand.
However,
is there anyway to force Format() to return something? What if you need
000
instead of empty or null? I can come up with a function or expression
myself, I'm just wondering if I can use Format() to force the digits
instead? 
 
Susan H. 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From shamil at users.mns.ru  Wed Jan 18 14:44:44 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 18 Jan 2006 23:44:44 +0300
Subject: [AccessD] more on that Format() to pad text values question
References: <000001c61c6a$f3f5a130$b3b3d6d1@SUSANONE>
Message-ID: <002601c61c70$189b8cc0$6401a8c0@fincomplex.spb.ru>

Format function call may have four parts of its second parameter - format
expression:

Positive;Negative;Zero;Null

?format(503.21,"#0.00;(#0.00);---;(NONE)")
503.21
?format(-503.21,"#0.00;(#0.00);---;(NONE)")
(503.21)
?format(0,"#0.00;(#0.00);---;(NONE)")
---
?format(Null,"#0.00;(#0.00);---;(NONE)")
(NONE)

Shamil

----- Original Message ----- 
From: "Susan Harkins" <harkinsss at bellsouth.net>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 11:08 PM
Subject: [AccessD] more on that Format() to pad text values question


> A small problem that I've notices is that if the string being formatted is
> empty or null, Format() returns empty or null, which I understand.
However,
> is there anyway to force Format() to return something? What if you need
000
> instead of empty or null? I can come up with a function or expression
> myself, I'm just wondering if I can use Format() to force the digits
> instead?
>
> Susan H.
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Steven.Peterson at qwest.com  Wed Jan 18 14:41:02 2006
From: Steven.Peterson at qwest.com (Peterson, Steve)
Date: Wed, 18 Jan 2006 13:41:02 -0700
Subject: [AccessD] more on that Format() to pad text values question
Message-ID: <5E6C0F4B8C8601448942896366748A541AB939@ITDENE2KM03.AD.QINTRA.COM>

Susan,

I may be missing the point entirely, but I usually pad with zero like
this:

Right("000" & YourValue, 3)

YourValue sometimes needs a good trimming first.

Steve

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Wednesday, January 18, 2006 1:08 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] more on that Format() to pad text values question

A small problem that I've notices is that if the string being formatted
is empty or null, Format() returns empty or null, which I understand.
However, is there anyway to force Format() to return something? What if
you need 000 instead of empty or null? I can come up with a function or
expression myself, I'm just wondering if I can use Format() to force the
digits instead? 
 
Susan H. 
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From newsgrps at dalyn.co.nz  Wed Jan 18 15:06:50 2006
From: newsgrps at dalyn.co.nz (David Emerson)
Date: Thu, 19 Jan 2006 10:06:50 +1300
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <43CE9C57.7050202@shaw.ca>
References: <46B976F2B698FF46A4FE7636509B22DF1B62AC@stekelbes.ithelps.local>
	<7.0.0.16.0.20060119081241.01a44e18@dalyn.co.nz>
	<43CE9C57.7050202@shaw.ca>
Message-ID: <7.0.0.16.0.20060119100212.01af3e80@dalyn.co.nz>

Thanks for the heads up everyone.

The router I have is a Dynalink RTA220 ADSL Router. I have the 
firewall option set to advanced which allows me to block/allow both 
inward and outward packets.  Is this enough (assuming it is set 
correctly), or do I still need a software firewall?

David

At 19/01/2006, you wrote:
>Your router might not protect against outgoing packets unless you
>directly set its outgoing packet rule set.
>or this might not be available at all on older or less expensive routers.
>To protect against invalid outgoing packets use something like ZoneAlarm.
>This extra software might add a extra second or two to a one meg download
>This might be considered a belt and suspenders defence.
>
>See Gibson's site http://www.grc.com
>Faqs and tests for more info.
>
>David Emerson wrote:
>
> >Thanks all.  I already had a firewall in my router so didn't want to
> >upset that by installing another one.  I went for Erwin's suggestion.
> >
> >David
> >
> >At 18/01/2006, you wrote:
> >
> >
> >
> >>http://www.protect-me.com/freeware.html
> >>
> >>Active ports, will monitor all your IP port activity, tell the from and
> >>to IP address/port and which app is dooing it.
> >>
> >>It is not a firewall or port blocker, just a realtime monitor, but very
> >>efficiant.
> >>
> >>Erwin
> >>
> >>
> >>
> >>
> >>-----Original Message-----
> >>From: accessd-bounces at databaseadvisors.com
> >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> >>- Beach Access Software
> >>Sent: Wednesday, January 18, 2006 5:13 AM
> >>To: Access Developers discussion and problem solving
> >>Subject: Re: [AccessD] OT - Progs Using Internet Connection
> >>
> >>I recently switched from Zone Alarm to Sygate Personal Firewall.  ZA was
> >>staring to cause problems.  Sygate will tell you when somethings sending
> >>out to the internet.
> >>
> >>Rocky
> >>
> >>
> >>Steve Conklin wrote:
> >>
> >>
> >>>Install ZoneAlarm ?
> >>>
> >>>-----Original Message-----
> >>>From: accessd-bounces at databaseadvisors.com
> >>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David
> >>>Emerson
> >>>Sent: Tuesday, January 17, 2006 9:49 PM
> >>>To: accessd at databaseadvisors.com
> >>>Subject: [AccessD] OT - Progs Using Internet Connection
> >>>
> >>>This is way off topic but does anyone know how I can find out what
> >>>programs are sending packets over my internet connection?  Some of
> >>>them will be valid (eg virus protection updating) but it would be nice
> >>>
> >>>
> >>>to know if I have something sending info out that shouldn't be).
> >>>
> >>>Regards
> >>>
> >>>David Emerson
> >>>Dalyn Software Ltd
> >>>New Zealand
> >>>
> >>>
> >
> >
> >
>
>--
>Marty Connelly
>Victoria, B.C.
>Canada
>
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com



From stuart at lexacorp.com.pg  Wed Jan 18 15:14:46 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Thu, 19 Jan 2006 07:14:46 +1000
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <7.0.0.16.0.20060119100212.01af3e80@dalyn.co.nz>
References: <43CE9C57.7050202@shaw.ca>
Message-ID: <43CF3C66.3795.658D892@stuart.lexacorp.com.pg>

On 19 Jan 2006 at 10:06, David Emerson wrote:

> Thanks for the heads up everyone.
> 
> The router I have is a Dynalink RTA220 ADSL Router. I have the 
> firewall option set to advanced which allows me to block/allow both 
> inward and outward packets.  Is this enough (assuming it is set 
> correctly), or do I still need a software firewall?
> 

I'd definitely go with software firewall as well.

I use Kerio Personal Firewall.

It warns if any application tries to access the internet and lets you allow 
or deny on a on-off or permanent basis.

It also warns if an application tries to launch another application 
(trojans can launch IE, telnet etc and use them as a proxy to  access the 
internet)

Instal KPF (or ZoneAlarm) and you will be surprised at how many 
applications try to "phone home" -- 
Stuart




From DWUTKA at marlow.com  Wed Jan 18 15:32:40 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Wed, 18 Jan 2006 15:32:40 -0600
Subject: [AccessD] BE Relinker
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD587@main2.marlow.com>

I didn't build it.  I've had a couple of requests off list, but I posted
that I posted code to build something like that.  I honestly don't have the
time to build one.  Look through the archives for UDP.  I know I posted code
on how to use the UDP protocol to broadcast and receive information.

Drew

-----Original Message-----
From: Joe Hecht [mailto:jmhecht at earthlink.net]
Sent: Tuesday, January 17, 2006 10:12 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] BE Relinker


Drew, 

Always thanks first.

Would like to see yours if you do not mind.

This would be to two to five users with front ends hitting
BE on server.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Tuesday, January 17, 2006 10:35 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] BE Relinker

I posted a while back, on something that would be a
'seamless' relinker.
You can 'search' a subnet with UDP, which is very fast
(split second on a
subnet with over a thousand IPs on it), and have a 'service'
that listens
for that UDP broadcast, and replies with requested
information.  ie, FE on
home network, broadcasts and hits the service on your home
network, which
tells the FE where the backends on your home network are.
FE relinks to
backend.  You modify the FE, send it to client.  Client
opens FE, again, FE
finds the service on clients network, which tells the FE
where to relink
it's tables too.  

Would be pretty easy to setup, let me know if you would be
interested.

Drew

-----Original Message-----
From: Joe Hecht [mailto:jmhecht at earthlink.net]
Sent: Tuesday, January 17, 2006 10:10 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] BE Relinker


Did some kind, generous and way smarter then me soul create
at BE relinker?

 

 

Joe Hecht

jmhecht at earthlink.net

 

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

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


From jwcolby at ColbyConsulting.com  Wed Jan 18 15:52:44 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 18 Jan 2006 16:52:44 -0500
Subject: [AccessD] First/last day of week
In-Reply-To: <6A6AA9DF57E4F046BDA1E273BDDB67727DD996@corp-es01.fleetpride.com>
Message-ID: <000101c61c79$83bed4e0$647aa8c0@ColbyM6805>

It is very cool.  A combo where you select things like:

Last year
Last quarter
Last month
This year
This quarter
This month 

Etc etc.

Then when you select something in the combo, it sets a date range in a pair
of (typically unbound) text boxes, which you then use for queries.  The
class raises an after update event for the combo (and the same event for the
text boxes as well - you can do a custom date range) so that the form that
is using the class can then set filters, copy the dates somewhere etc.

This all started with the code by one Julie Schwalm, Backroads Data, circa
1999.  I of course changed it into a class and changed her list to a combo.

I have just added "This week" and "Today" to the list because I need to be
able to see those ranges as well.

If you want this thing:

1) Go to www.colbyconsulting.com
1a) Register if you haven't already
1b) Login
2) Click Example Code / Withevent Demos
3) Down about the middle you will see DateRangeWithEvents.zip.  Download
that.
4) Unzip it and open the file.  An example form should open.
5) play with the combo selecting different date ranges and watching the
To/From text boxes change
6) open the form to see how to use it in a form.

Notice that it uses events.  The class raises an event, and the form CAN (if
you need it to) sink that event and do something with the event.  The
example does sink the event and displays a message.  Simply delete the event
handler from the form to not have the event sunk in the form.

Enjoy.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 18, 2006 2:59 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week

A date range selector class? Now that sounds cool.
Jim

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 18, 2006 11:56 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


>Busy multitasking week ..?

OMG, you can't believe! I am to the point where I am using Outlook to
schedule blocks of my time for specific client tasks.  0800-1700 filled with
1/2 hr lunch and then 2100-midnight as well.  And that for the next couple
of weeks, and possibly beyond.

Thanks for the functions.  I integrated them into my Date Range selector
class and now have a "This week" selection.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 18, 2006 11:57 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] First/last day of week

Hi John

Busy multitasking week ..?
Anyway, here are the functions we use:

Public Function DateWeekFirst( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the first date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
  
  DateWeekFirst = DateAdd("d", vbSunday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

Public Function DateWeekLast( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the last date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
      
  DateWeekLast = DateAdd("d", vbSaturday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

/gustav

>>> jwcolby at ColbyConsulting.com 18-01-2006 17:40:00 >>>
Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 


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

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

***********************************************************************
The information transmitted is intended solely for the individual or entity
to which it is addressed and may contain confidential and/or privileged
material. Any review, retransmission, dissemination or other use of or
taking action in reliance upon this information by persons or entities other
than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email, you are
responsible for screening its contents and the contents of any attachments
for the presence of viruses. No liability is accepted for any damages caused
by any virus transmitted by this email.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jwcolby at ColbyConsulting.com  Wed Jan 18 16:03:09 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 18 Jan 2006 17:03:09 -0500
Subject: [AccessD] First/last day of week
In-Reply-To: <000101c61c79$83bed4e0$647aa8c0@ColbyM6805>
Message-ID: <000501c61c7a$f824d8b0$647aa8c0@ColbyM6805>

>6) open the form to see how to use it in a form.

Sorry, 

6) Open in DESIGN view and go into the code module to see how to use the
class. 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Wednesday, January 18, 2006 4:53 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week

It is very cool.  A combo where you select things like:

Last year
Last quarter
Last month
This year
This quarter
This month 

Etc etc.

Then when you select something in the combo, it sets a date range in a pair
of (typically unbound) text boxes, which you then use for queries.  The
class raises an after update event for the combo (and the same event for the
text boxes as well - you can do a custom date range) so that the form that
is using the class can then set filters, copy the dates somewhere etc.

This all started with the code by one Julie Schwalm, Backroads Data, circa
1999.  I of course changed it into a class and changed her list to a combo.

I have just added "This week" and "Today" to the list because I need to be
able to see those ranges as well.

If you want this thing:

1) Go to www.colbyconsulting.com
1a) Register if you haven't already
1b) Login
2) Click Example Code / Withevent Demos
3) Down about the middle you will see DateRangeWithEvents.zip.  Download
that.
4) Unzip it and open the file.  An example form should open.
5) play with the combo selecting different date ranges and watching the
To/From text boxes change
6) open the form to see how to use it in a form.

Notice that it uses events.  The class raises an event, and the form CAN (if
you need it to) sink that event and do something with the event.  The
example does sink the event and displays a message.  Simply delete the event
handler from the form to not have the event sunk in the form.

Enjoy.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 18, 2006 2:59 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week

A date range selector class? Now that sounds cool.
Jim

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 18, 2006 11:56 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


>Busy multitasking week ..?

OMG, you can't believe! I am to the point where I am using Outlook to
schedule blocks of my time for specific client tasks.  0800-1700 filled with
1/2 hr lunch and then 2100-midnight as well.  And that for the next couple
of weeks, and possibly beyond.

Thanks for the functions.  I integrated them into my Date Range selector
class and now have a "This week" selection.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 18, 2006 11:57 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] First/last day of week

Hi John

Busy multitasking week ..?
Anyway, here are the functions we use:

Public Function DateWeekFirst( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the first date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
  
  DateWeekFirst = DateAdd("d", vbSunday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

Public Function DateWeekLast( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the last date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
      
  DateWeekLast = DateAdd("d", vbSaturday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

/gustav

>>> jwcolby at ColbyConsulting.com 18-01-2006 17:40:00 >>>
Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 


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

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

***********************************************************************
The information transmitted is intended solely for the individual or entity
to which it is addressed and may contain confidential and/or privileged
material. Any review, retransmission, dissemination or other use of or
taking action in reliance upon this information by persons or entities other
than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email, you are
responsible for screening its contents and the contents of any attachments
for the presence of viruses. No liability is accepted for any damages caused
by any virus transmitted by this email.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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



From wdhindman at bellsouth.net  Wed Jan 18 16:15:07 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 18 Jan 2006 17:15:07 -0500
Subject: [AccessD] ...close open forms
References: <s3ce5d48.039@cactus.dk>
Message-ID: <000301c61c7c$aa254710$6101a8c0@JISREGISTRATION.local>

Gustav

...thanks ...wish it was that easy ...it does what you say but not what I 
need :(

...probably didn't explain it well enough ...it happens :)

...two or more forms open including the switchboard ...need it to close 
everything BUT the swb AND the opening form.

...your code ...in the on open event of opening form ...closes all but the 
swb ...including the opening form.

...suggestions welcome.

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 9:22 AM
Subject: Re: [AccessD] ...close open forms


> Hi William
>
> How about:
>
>  ' Close all forms except this first opened form.
>  For lngF = Forms.Count - 1 To 1 Step -1
>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>  Next
>
> /gustav
>
>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
> ...I need to close any open forms ...other than designated forms ...and 
> save
> their data ...before opening a called form ...from the called form.
>
> ...ie call a form open from a switchboard ...the called form checks for 
> any
> other forms open, other than the sb, and closes them, saving their data,
> before it opens.
>
> William
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From Jim.Hale at FleetPride.com  Wed Jan 18 16:28:49 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Wed, 18 Jan 2006 16:28:49 -0600
Subject: [AccessD] First/last day of week
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD99B@corp-es01.fleetpride.com>

Muchas Gracias! I still use Julie's code so this is going to be pretty much
plug and play.
Jim Hale

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 18, 2006 3:53 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


It is very cool.  A combo where you select things like:

Last year
Last quarter
Last month
This year
This quarter
This month 

Etc etc.

Then when you select something in the combo, it sets a date range in a pair
of (typically unbound) text boxes, which you then use for queries.  The
class raises an after update event for the combo (and the same event for the
text boxes as well - you can do a custom date range) so that the form that
is using the class can then set filters, copy the dates somewhere etc.

This all started with the code by one Julie Schwalm, Backroads Data, circa
1999.  I of course changed it into a class and changed her list to a combo.

I have just added "This week" and "Today" to the list because I need to be
able to see those ranges as well.

If you want this thing:

1) Go to www.colbyconsulting.com
1a) Register if you haven't already
1b) Login
2) Click Example Code / Withevent Demos
3) Down about the middle you will see DateRangeWithEvents.zip.  Download
that.
4) Unzip it and open the file.  An example form should open.
5) play with the combo selecting different date ranges and watching the
To/From text boxes change
6) open the form to see how to use it in a form.

Notice that it uses events.  The class raises an event, and the form CAN (if
you need it to) sink that event and do something with the event.  The
example does sink the event and displays a message.  Simply delete the event
handler from the form to not have the event sunk in the form.

Enjoy.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 18, 2006 2:59 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week

A date range selector class? Now that sounds cool.
Jim

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 18, 2006 11:56 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


>Busy multitasking week ..?

OMG, you can't believe! I am to the point where I am using Outlook to
schedule blocks of my time for specific client tasks.  0800-1700 filled with
1/2 hr lunch and then 2100-midnight as well.  And that for the next couple
of weeks, and possibly beyond.

Thanks for the functions.  I integrated them into my Date Range selector
class and now have a "This week" selection.

John W. Colby
www.ColbyConsulting.com 


***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From Donald.A.McGillivray at sprint.com  Wed Jan 18 16:47:41 2006
From: Donald.A.McGillivray at sprint.com (Mcgillivray, Don [IT])
Date: Wed, 18 Jan 2006 16:47:41 -0600
Subject: [AccessD] ...close open forms
Message-ID: <EC829B33DF5B5B48A956B7A2E894AA9A03F98EF0@PLSWB06C.ad.sprint.com>

Expanding on Lambert's suggestion:

In the OnOpen event of the called form, try

Dim f as Form

For Each f In Forms
	If f.Name <> Me.Form.Name and f.Name <> "frmSwitchBoard" Then
DoCmd.Close acForm. F.Name, acSaveYes
Next f

Don

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
Hindman
Sent: Wednesday, January 18, 2006 2:15 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] ...close open forms

Gustav

...thanks ...wish it was that easy ...it does what you say but not what
I 
need :(

...probably didn't explain it well enough ...it happens :)

...two or more forms open including the switchboard ...need it to close 
everything BUT the swb AND the opening form.

...your code ...in the on open event of opening form ...closes all but
the 
swb ...including the opening form.

...suggestions welcome.

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 9:22 AM
Subject: Re: [AccessD] ...close open forms


> Hi William
>
> How about:
>
>  ' Close all forms except this first opened form.
>  For lngF = Forms.Count - 1 To 1 Step -1
>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>  Next
>
> /gustav
>
>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
> ...I need to close any open forms ...other than designated forms
...and 
> save
> their data ...before opening a called form ...from the called form.
>
> ...ie call a form open from a switchboard ...the called form checks
for 
> any
> other forms open, other than the sb, and closes them, saving their
data,
> before it opens.
>
> William
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 


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




From Lambert.Heenan at AIG.com  Wed Jan 18 16:50:25 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 18 Jan 2006 16:50:25 -0600
Subject: [AccessD] ...close open forms
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6E14D@xlivmbx21.aig.com>

Sub CloseForms(arrKeepers as Variant)
Dim F as Form
Dim n As Long
Dim bKeep as Boolean

	For Each F in Forms
		bKeep = False
		For n = lBound(arrKeepers) to Ubound(arrKeepers)
			If F.Name =  arrKeepers(n) Then bKeep=True
		Next n
		If Not bKeep Then DoCmd.Close acForm, F.Name,acSaveYes
	Next F
End Sub

Useage

CloseForms Array("NameOfSwitchBoardForm","FormBeingOpened")

HTH

Lambert
		

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman
Sent: Wednesday, January 18, 2006 5:15 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] ...close open forms


Gustav

...thanks ...wish it was that easy ...it does what you say but not what I 
need :(

...probably didn't explain it well enough ...it happens :)

...two or more forms open including the switchboard ...need it to close 
everything BUT the swb AND the opening form.

...your code ...in the on open event of opening form ...closes all but the 
swb ...including the opening form.

...suggestions welcome.

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 9:22 AM
Subject: Re: [AccessD] ...close open forms


> Hi William
>
> How about:
>
>  ' Close all forms except this first opened form.
>  For lngF = Forms.Count - 1 To 1 Step -1
>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>  Next
>
> /gustav
>
>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
> ...I need to close any open forms ...other than designated forms 
> ...and
> save
> their data ...before opening a called form ...from the called form.
>
> ...ie call a form open from a switchboard ...the called form checks 
> for
> any
> other forms open, other than the sb, and closes them, saving their data,
> before it opens.
>
> William
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 


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


From tinanfields at torchlake.com  Wed Jan 18 17:11:05 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Wed, 18 Jan 2006 18:11:05 -0500
Subject: [AccessD] My form has a little problem
Message-ID: <43CECB09.90602@torchlake.com>

Hi all,

I have a form for either creating a new student profile, or editing an 
existing one.  To create a new profile, the user clicks a button that 
opens the student information form in add mode.  To edit an existing 
profile, the user selects the student's name from an unbound combo box, 
and then clicks the button to open the student information form for that 
student in edit mode.

When I first made this little form, it all worked well, but it no longer 
works just right.  If I select a student's name from the combo box, and 
I try to click the button to open the student information fomr, the 
button does not get the focus - it does not respond.  If I wait around 
for a while, eventually the button will let me click it.  If I tab out 
of the combo box, the focus will shift to the the buttons in their 
established tab sequence.  

I remember there have been heated discussions on this list about unbound 
controls.  I am ready to learn - do I have a problem because I'm using 
an unbound control?  

This is what my button does when I can get it clicked:
==========
Private Sub cmdEditExistingStudentProfile_Click()
On Error GoTo Err_cmdEditExistingStudentProfile_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmStudentInformation"
    stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdEditExistingStudentProfile_Click:
    Exit Sub

Err_cmdEditExistingStudentProfile_Click:
    MsgBox Err.Description
    Resume Exit_cmdEditExistingStudentProfile_Click
   
End Sub
===========

Should I be adding an After Update event procedure to my unbound combo 
box - to set the focus on the button to get the student information form?

Thanks for whatever lessons you will send my way.

Tina



From darsant at gmail.com  Wed Jan 18 17:30:10 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Wed, 18 Jan 2006 17:30:10 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <001901c61c5a$925a8cc0$6401a8c0@fincomplex.spb.ru>
References: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local>
	<53c8e05a0601180931u68d8b307s8c0c35dcff5ee91c@mail.gmail.com>
	<001901c61c5a$925a8cc0$6401a8c0@fincomplex.spb.ru>
Message-ID: <53c8e05a0601181530o39babe2cwb329c0e2ab9375d9@mail.gmail.com>

On 1/18/06, Shamil Salakhetdinov <shamil at users.mns.ru> wrote:
> Josh,
>
> Is there somewhere a short step-by-step tutorial/instruction how to install
> Subversion with Visual Studio?

Basically, the way we use it is with a freeware program called
TortoiseSVN. It integrates into Windows Explorer for the folders that
you check out and provides an easy right click interface for
everything you need to do (Explains when files are changed with icons,
etc)

Microsoft basically doesn't integrate with anything but SourceSafe.
There's a few "plugins" out there to kinda-sorta interface with other
SCS like CVS, but I haven't looked up anything about Subversion

> I have heard a lot of good references about it but I didn't use it yet.
>
> Is it possible to encrypt transparently for client development tools source
> files stored in Subversion database? Reason is to use commercial software
> sources stored on a public Web server running Subversion.

I've used two different types of subversion servers:

The first and easiest is linking it in with Apache. They have
instructions on how to do that on the website, and user security goes
through a custom passwd file so you can restrict access.

The second is through a program they have called svnserve, basically
works as a server program and runs on it's own. You can set up user
access per repository.

As far as actual encryption of the data passed, I haven't looked into
it much. I'll see what I can find out and let you know.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From darsant at gmail.com  Wed Jan 18 17:31:47 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Wed, 18 Jan 2006 17:31:47 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF36@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF36@INFOSERVER04.infostat.local>
Message-ID: <53c8e05a0601181531m25c5ce17naf1a554b76ba1a0d@mail.gmail.com>

On 1/18/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> All I can say, is that I would NOT want to work with merging rather than
> single-user checkouts.  SourceSafe can be set up that way, but it keeps
> everything a lot cleaner when two people aren't even trying to modify
> the same object at the same time.  Since we don't have one huge file to
> deal with, I'd rather err on the side of caution.

Well, you can set up Subversion to use single-locking checkouts that
way too, it just gets to be a pain when one person needs to make a
change to file X, along with 20 other files to get feature Y working,
while another person just wants to make a typo fix in file X but has
to wait 3 days to do so. Merging will generally take care of things
automatically, and when people tend to work on the same line, well, it
warns you and lets you fix.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From cfoust at infostatsystems.com  Wed Jan 18 18:06:25 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 18 Jan 2006 16:06:25 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF3A@INFOSERVER04.infostat.local>

LOL  In our shop, we just yell over the cubicles, "hey, who has objectX
checked out?  I need to modify it!"

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Wednesday, January 18, 2006 3:32 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/18/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> All I can say, is that I would NOT want to work with merging rather 
> than single-user checkouts.  SourceSafe can be set up that way, but it

> keeps everything a lot cleaner when two people aren't even trying to 
> modify the same object at the same time.  Since we don't have one huge

> file to deal with, I'd rather err on the side of caution.

Well, you can set up Subversion to use single-locking checkouts that way
too, it just gets to be a pain when one person needs to make a change to
file X, along with 20 other files to get feature Y working, while
another person just wants to make a typo fix in file X but has to wait 3
days to do so. Merging will generally take care of things automatically,
and when people tend to work on the same line, well, it warns you and
lets you fix.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by
understanding." -Albert Einstein
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From shamil at users.mns.ru  Wed Jan 18 18:13:50 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 19 Jan 2006 03:13:50 +0300
Subject: [AccessD] Source Code Control
References: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local><53c8e05a0601180931u68d8b307s8c0c35dcff5ee91c@mail.gmail.com><001901c61c5a$925a8cc0$6401a8c0@fincomplex.spb.ru>
	<53c8e05a0601181530o39babe2cwb329c0e2ab9375d9@mail.gmail.com>
Message-ID: <004f01c61c8d$3b15f8e0$6401a8c0@fincomplex.spb.ru>

> As far as actual encryption of the data passed, I haven't looked into
> it much. I'll see what I can find out and let you know.
Thank you and thank in advance, Josh!

Shamil

----- Original Message ----- 
From: "Josh McFarlane" <darsant at gmail.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 2:30 AM
Subject: Re: [AccessD] Source Code Control


> On 1/18/06, Shamil Salakhetdinov <shamil at users.mns.ru> wrote:
> > Josh,
> >
> > Is there somewhere a short step-by-step tutorial/instruction how to
install
> > Subversion with Visual Studio?
>
> Basically, the way we use it is with a freeware program called
> TortoiseSVN. It integrates into Windows Explorer for the folders that
> you check out and provides an easy right click interface for
> everything you need to do (Explains when files are changed with icons,
> etc)
>
> Microsoft basically doesn't integrate with anything but SourceSafe.
> There's a few "plugins" out there to kinda-sorta interface with other
> SCS like CVS, but I haven't looked up anything about Subversion
>
> > I have heard a lot of good references about it but I didn't use it yet.
> >
> > Is it possible to encrypt transparently for client development tools
source
> > files stored in Subversion database? Reason is to use commercial
software
> > sources stored on a public Web server running Subversion.
>
> I've used two different types of subversion servers:
>
> The first and easiest is linking it in with Apache. They have
> instructions on how to do that on the website, and user security goes
> through a custom passwd file so you can restrict access.
>
> The second is through a program they have called svnserve, basically
> works as a server program and runs on it's own. You can set up user
> access per repository.
>
> As far as actual encryption of the data passed, I haven't looked into
> it much. I'll see what I can find out and let you know.
>
> --
> Josh McFarlane
>
> "Peace cannot be kept by force. It can only be achieved by understanding."
> -Albert Einstein
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From wdhindman at bellsouth.net  Wed Jan 18 18:10:22 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 18 Jan 2006 19:10:22 -0500
Subject: [AccessD] My form has a little problem
References: <43CECB09.90602@torchlake.com>
Message-ID: <009f01c61c8c$be0b2b40$6101a8c0@JISREGISTRATION.local>

...sounds more like a problem with the table or query on which the combo is 
based.

William

----- Original Message ----- 
From: "Tina Norris Fields" <tinanfields at torchlake.com>
To: <accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 6:11 PM
Subject: [AccessD] My form has a little problem


> Hi all,
>
> I have a form for either creating a new student profile, or editing an
> existing one.  To create a new profile, the user clicks a button that
> opens the student information form in add mode.  To edit an existing
> profile, the user selects the student's name from an unbound combo box,
> and then clicks the button to open the student information form for that
> student in edit mode.
>
> When I first made this little form, it all worked well, but it no longer
> works just right.  If I select a student's name from the combo box, and
> I try to click the button to open the student information fomr, the
> button does not get the focus - it does not respond.  If I wait around
> for a while, eventually the button will let me click it.  If I tab out
> of the combo box, the focus will shift to the the buttons in their
> established tab sequence.
>
> I remember there have been heated discussions on this list about unbound
> controls.  I am ready to learn - do I have a problem because I'm using
> an unbound control?
>
> This is what my button does when I can get it clicked:
> ==========
> Private Sub cmdEditExistingStudentProfile_Click()
> On Error GoTo Err_cmdEditExistingStudentProfile_Click
>
>    Dim stDocName As String
>    Dim stLinkCriteria As String
>
>    stDocName = "frmStudentInformation"
>    stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>    DoCmd.OpenForm stDocName, , , stLinkCriteria
>
> Exit_cmdEditExistingStudentProfile_Click:
>    Exit Sub
>
> Err_cmdEditExistingStudentProfile_Click:
>    MsgBox Err.Description
>    Resume Exit_cmdEditExistingStudentProfile_Click
>
> End Sub
> ===========
>
> Should I be adding an After Update event procedure to my unbound combo
> box - to set the focus on the button to get the student information form?
>
> Thanks for whatever lessons you will send my way.
>
> Tina
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From jwcolby at ColbyConsulting.com  Wed Jan 18 18:14:46 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 18 Jan 2006 19:14:46 -0500
Subject: [AccessD] First/last day of week
In-Reply-To: <6A6AA9DF57E4F046BDA1E273BDDB67727DD99B@corp-es01.fleetpride.com>
Message-ID: <000601c61c8d$5b5d85a0$647aa8c0@ColbyM6805>

Yea, it just makes the huge selector set (a bunch of radio buttons?) into a
little combo box.  As long as your to/from text boxes are named the same as
I use you can just cut and paste the code in the form (the dim and the form
open) to get the class instantiated and running, otherwise you need to feed
in the names of your combo and to/from text boxes.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 18, 2006 5:29 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week

Muchas Gracias! I still use Julie's code so this is going to be pretty much
plug and play.
Jim Hale

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 18, 2006 3:53 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


It is very cool.  A combo where you select things like:

Last year
Last quarter
Last month
This year
This quarter
This month 

Etc etc.

Then when you select something in the combo, it sets a date range in a pair
of (typically unbound) text boxes, which you then use for queries.  The
class raises an after update event for the combo (and the same event for the
text boxes as well - you can do a custom date range) so that the form that
is using the class can then set filters, copy the dates somewhere etc.

This all started with the code by one Julie Schwalm, Backroads Data, circa
1999.  I of course changed it into a class and changed her list to a combo.

I have just added "This week" and "Today" to the list because I need to be
able to see those ranges as well.

If you want this thing:

1) Go to www.colbyconsulting.com
1a) Register if you haven't already
1b) Login
2) Click Example Code / Withevent Demos
3) Down about the middle you will see DateRangeWithEvents.zip.  Download
that.
4) Unzip it and open the file.  An example form should open.
5) play with the combo selecting different date ranges and watching the
To/From text boxes change
6) open the form to see how to use it in a form.

Notice that it uses events.  The class raises an event, and the form CAN (if
you need it to) sink that event and do something with the event.  The
example does sink the event and displays a message.  Simply delete the event
handler from the form to not have the event sunk in the form.

Enjoy.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 18, 2006 2:59 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week

A date range selector class? Now that sounds cool.
Jim

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 18, 2006 11:56 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


>Busy multitasking week ..?

OMG, you can't believe! I am to the point where I am using Outlook to
schedule blocks of my time for specific client tasks.  0800-1700 filled with
1/2 hr lunch and then 2100-midnight as well.  And that for the next couple
of weeks, and possibly beyond.

Thanks for the functions.  I integrated them into my Date Range selector
class and now have a "This week" selection.

John W. Colby
www.ColbyConsulting.com 


***********************************************************************
The information transmitted is intended solely for the individual or entity
to which it is addressed and may contain confidential and/or privileged
material. Any review, retransmission, dissemination or other use of or
taking action in reliance upon this information by persons or entities other
than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email, you are
responsible for screening its contents and the contents of any attachments
for the presence of viruses. No liability is accepted for any damages caused
by any virus transmitted by this email.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From darsant at gmail.com  Wed Jan 18 18:28:43 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Wed, 18 Jan 2006 18:28:43 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <004f01c61c8d$3b15f8e0$6401a8c0@fincomplex.spb.ru>
References: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local>
	<53c8e05a0601180931u68d8b307s8c0c35dcff5ee91c@mail.gmail.com>
	<001901c61c5a$925a8cc0$6401a8c0@fincomplex.spb.ru>
	<53c8e05a0601181530o39babe2cwb329c0e2ab9375d9@mail.gmail.com>
	<004f01c61c8d$3b15f8e0$6401a8c0@fincomplex.spb.ru>
Message-ID: <53c8e05a0601181628x7450a906l9a81b1d1476fca37@mail.gmail.com>

On 1/18/06, Shamil Salakhetdinov <shamil at users.mns.ru> wrote:
> > As far as actual encryption of the data passed, I haven't looked into
> > it much. I'll see what I can find out and let you know.
> Thank you and thank in advance, Josh!

OK, I can't find anywhere that says it has any built in encryption
support for data transport, however, you can use their server service
and SSH.

Basically it equates to tunneling through SSH and then using SSH to
perform your checkout.

See http://subversion.tigris.org/faq.html#paranoid

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From darsant at gmail.com  Wed Jan 18 18:30:04 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Wed, 18 Jan 2006 18:30:04 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF3A@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF3A@INFOSERVER04.infostat.local>
Message-ID: <53c8e05a0601181630j5d80dc60w6508c744e466de46@mail.gmail.com>

On 1/18/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> LOL  In our shop, we just yell over the cubicles, "hey, who has objectX
> checked out?  I need to modify it!"

See, in our shop I try to enforce a "no bother" policy. From previous
studies and personal experience, it seems like interrupts will knock
programmers out of efficient-coding land for 15-30 minutes before they
get back into the groove. YMMV though.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From dwaters at usinternet.com  Wed Jan 18 18:37:53 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Wed, 18 Jan 2006 18:37:53 -0600
Subject: [AccessD] Read External File for Path String
Message-ID: <001f01c61c90$96529260$0200a8c0@danwaters>

Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters





From carbonnb at gmail.com  Wed Jan 18 18:47:47 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Wed, 18 Jan 2006 19:47:47 -0500
Subject: [AccessD] Read External File for Path String
In-Reply-To: <001f01c61c90$96529260$0200a8c0@danwaters>
References: <001f01c61c90$96529260$0200a8c0@danwaters>
Message-ID: <e04a6c920601181647v9282babt@mail.gmail.com>

On 18/01/06, Dan Waters <dwaters at usinternet.com> wrote:

> I just spent half the day struggling with the movement of a system from one
> server to another.  The server path is hardcoded in one place in a startup
> form.  What would have helped me a lot is to have the path in a text file or
> ini file external to the database and stored in the same folder.
>
> Security is not an issue here, just my convenience, as my plans for the day
> were pretty much blown up!
>
> Using a file for information like this sounds like it might be a fairly
> typical solution.  Does anyone do this or something like it?

I ust a Global constant to store the path. That way, all I need to do
is change it in one place whne the server changes.

I have considered using an INI file, but decided that a constant was a
better route to go for me.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From stuart at lexacorp.com.pg  Wed Jan 18 19:59:30 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Thu, 19 Jan 2006 11:59:30 +1000
Subject: [AccessD] Read External File for Path String
In-Reply-To: <001f01c61c90$96529260$0200a8c0@danwaters>
Message-ID: <43CF7F22.15689.75D875F@stuart.lexacorp.com.pg>

On 18 Jan 2006 at 18:37, Dan Waters wrote:

> Hello Everyone,
> 
> I just spent half the day struggling with the movement of a system from one
> server to another.  The server path is hardcoded in one place in a startup
> form.  What would have helped me a lot is to have the path in a text file or
> ini file external to the database and stored in the same folder.
> 
> Security is not an issue here, just my convenience, as my plans for the day
> were pretty much blown up!
> 
> Using a file for information like this sounds like it might be a fairly
> typical solution.  Does anyone do this or something like it?
> 

Either an INI file  or store it in a System table  in the FE.

Two common approaches to a System Table are:
1.a table with only one record which stores each parameters in a separate 
field. 
2. A table with one record per parameter. Each record  consisting of PName, 
DataType and Value fields.  


If you use an INI file, you should use the standard Windows INI file format 
and  write/read  using API calls:

Option Compare Database
Option Explicit

Declare Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringA" ( _
        ByVal lpApplicationName As String, _
        ByVal lpKeyName As Any, _
        ByVal lpDefault As String, _
        ByVal lpReturnedString As String, _
        ByVal nSize As Long, _
        ByVal lpFileName As String) As Long

Declare Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringA" ( _
        ByVal lpApplicationName As String, _
        ByVal lpKeyName As Any, _
        ByVal lpString As Any, _
        ByVal lpFileName As String) As Long

Const cstrIniFilename As String = "MyApp.Ini"

''****************************
'' Write to INI file
''****************************
Public Function WriteIniFileString( _
        ByVal Sect As String, _
        ByVal Key As String, _
        ByVal Value As String) As Boolean

Dim intCharsReturned As Integer
If Sect = "" Or Key = "" Then
    MsgBox "Section Or Key To Write Not Specified !!!", _
        vbExclamation, "INI"
Else
    WriteIniFileString = WritePrivateProfileString(Sect, _
        Key, Value, ApplDir() & "\" & cstrIniFilename)
End If
End Function

'"****************************
'' Read from INI file
''****************************
Public Function ReadIniFileString( _
        ByVal Sect As String, _
        ByVal Key As String) As String

Dim strReturned As String * 128
Dim intSize As Integer
Dim intCharsReturned As Integer

If Sect = "" Or Key = "" Then
    MsgBox "Section Or Key To Read Not Specified !!!", _
        vbExclamation, "INI"
Else
    strRet = Space$(128)
    intSize = Len(strRet)
    intCharsReturned = GetPrivateProfileString(Sect, Key, "", _
        strReturned, intSize, ApplDir() & "\" & cstrIniFilename)
   If intCharsReturned Then
       ReadIniFileString = Left$(strRet, intCharsReturned)
   End If
End If
End Function

'"****************************
'' Get the application directory
''****************************
Static Function ApplDir() As String
Dim strApplDir As String
Dim strTemp As String
If strApplDir = "" Then
    strTemp = DBEngine(0)(0).Name
    strApplDir = Left$(strTemp, InStrRev(strTemp, "\"))
   End If
   ApplDir = strApplDir
End Function

-- 
Stuart




From stuart at lexacorp.com.pg  Wed Jan 18 20:00:42 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Thu, 19 Jan 2006 12:00:42 +1000
Subject: [AccessD] Read External File for Path String
In-Reply-To: <e04a6c920601181647v9282babt@mail.gmail.com>
References: <001f01c61c90$96529260$0200a8c0@danwaters>
Message-ID: <43CF7F6A.12062.75EA090@stuart.lexacorp.com.pg>

On 18 Jan 2006 at 19:47, Bryan Carbonnell wrote:

> 
> I ust a Global constant to store the path. That way, all I need to do
> is change it in one place whne the server changes.
> 

That's OK until you turn it into an MDE :-(

-- 
Stuart




From demulling at centurytel.net  Wed Jan 18 20:20:09 2006
From: demulling at centurytel.net (Demulling Family)
Date: Wed, 18 Jan 2006 20:20:09 -0600
Subject: [AccessD] Read External File for Path String
In-Reply-To: <001f01c61c90$96529260$0200a8c0@danwaters>
References: <001f01c61c90$96529260$0200a8c0@danwaters>
Message-ID: <43CEF759.5070701@centurytel.net>

Dan Waters wrote:

>Hello Everyone,
>
>I just spent half the day struggling with the movement of a system from one
>server to another.  The server path is hardcoded in one place in a startup
>form.  What would have helped me a lot is to have the path in a text file or
>ini file external to the database and stored in the same folder.
>
>Security is not an issue here, just my convenience, as my plans for the day
>were pretty much blown up!
>
>Using a file for information like this sounds like it might be a fairly
>typical solution.  Does anyone do this or something like it?
>
>Thanks!
>Dan Waters
>
>
>
>  
>
I have used ini files on occasions to store the location of a back-end 
database with the ini file stored in the same directory as FE.  I will 
look for some of the code tomorrow at work.


From bchacc at san.rr.com  Wed Jan 18 20:20:18 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Wed, 18 Jan 2006 18:20:18 -0800
Subject: [AccessD] My form has a little problem
In-Reply-To: <43CECB09.90602@torchlake.com>
References: <43CECB09.90602@torchlake.com>
Message-ID: <43CEF762.6020609@san.rr.com>

"Should I be adding an After Update event procedure to my unbound combo 
box - to set the focus on the button to get the student information form? "

That's the first thing I'd try, Tina.

Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

Tina Norris Fields wrote:
> Hi all,
>
> I have a form for either creating a new student profile, or editing an 
> existing one.  To create a new profile, the user clicks a button that 
> opens the student information form in add mode.  To edit an existing 
> profile, the user selects the student's name from an unbound combo box, 
> and then clicks the button to open the student information form for that 
> student in edit mode.
>
> When I first made this little form, it all worked well, but it no longer 
> works just right.  If I select a student's name from the combo box, and 
> I try to click the button to open the student information fomr, the 
> button does not get the focus - it does not respond.  If I wait around 
> for a while, eventually the button will let me click it.  If I tab out 
> of the combo box, the focus will shift to the the buttons in their 
> established tab sequence.  
>
> I remember there have been heated discussions on this list about unbound 
> controls.  I am ready to learn - do I have a problem because I'm using 
> an unbound control?  
>
> This is what my button does when I can get it clicked:
> ==========
> Private Sub cmdEditExistingStudentProfile_Click()
> On Error GoTo Err_cmdEditExistingStudentProfile_Click
>
>     Dim stDocName As String
>     Dim stLinkCriteria As String
>
>     stDocName = "frmStudentInformation"
>     stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>     DoCmd.OpenForm stDocName, , , stLinkCriteria
>
> Exit_cmdEditExistingStudentProfile_Click:
>     Exit Sub
>
> Err_cmdEditExistingStudentProfile_Click:
>     MsgBox Err.Description
>     Resume Exit_cmdEditExistingStudentProfile_Click
>    
> End Sub
> ===========
>
> Should I be adding an After Update event procedure to my unbound combo 
> box - to set the focus on the button to get the student information form?
>
> Thanks for whatever lessons you will send my way.
>
> Tina
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From wdhindman at bellsouth.net  Wed Jan 18 20:10:47 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 18 Jan 2006 21:10:47 -0500
Subject: [AccessD] ...close open forms
References: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6E14D@xlivmbx21.aig.com>
Message-ID: <00c201c61c9d$9028e440$6101a8c0@JISREGISTRATION.local>

...tks Lambert, that works like a charm.

William

----- Original Message ----- 
From: "Heenan, Lambert" <Lambert.Heenan at AIG.com>
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 5:50 PM
Subject: Re: [AccessD] ...close open forms


> Sub CloseForms(arrKeepers as Variant)
> Dim F as Form
> Dim n As Long
> Dim bKeep as Boolean
>
> For Each F in Forms
> bKeep = False
> For n = lBound(arrKeepers) to Ubound(arrKeepers)
> If F.Name =  arrKeepers(n) Then bKeep=True
> Next n
> If Not bKeep Then DoCmd.Close acForm, F.Name,acSaveYes
> Next F
> End Sub
>
> Useage
>
> CloseForms Array("NameOfSwitchBoardForm","FormBeingOpened")
>
> HTH
>
> Lambert
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman
> Sent: Wednesday, January 18, 2006 5:15 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] ...close open forms
>
>
> Gustav
>
> ...thanks ...wish it was that easy ...it does what you say but not what I
> need :(
>
> ...probably didn't explain it well enough ...it happens :)
>
> ...two or more forms open including the switchboard ...need it to close
> everything BUT the swb AND the opening form.
>
> ...your code ...in the on open event of opening form ...closes all but the
> swb ...including the opening form.
>
> ...suggestions welcome.
>
> William
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Wednesday, January 18, 2006 9:22 AM
> Subject: Re: [AccessD] ...close open forms
>
>
>> Hi William
>>
>> How about:
>>
>>  ' Close all forms except this first opened form.
>>  For lngF = Forms.Count - 1 To 1 Step -1
>>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>>  Next
>>
>> /gustav
>>
>>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
>> ...I need to close any open forms ...other than designated forms
>> ...and
>> save
>> their data ...before opening a called form ...from the called form.
>>
>> ...ie call a form open from a switchboard ...the called form checks
>> for
>> any
>> other forms open, other than the sb, and closes them, saving their data,
>> before it opens.
>>
>> William
>>
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From carbonnb at gmail.com  Wed Jan 18 20:44:57 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Wed, 18 Jan 2006 21:44:57 -0500
Subject: [AccessD] Read External File for Path String
In-Reply-To: <43CF7F6A.12062.75EA090@stuart.lexacorp.com.pg>
References: <001f01c61c90$96529260$0200a8c0@danwaters>
	<e04a6c920601181647v9282babt@mail.gmail.com>
	<43CF7F6A.12062.75EA090@stuart.lexacorp.com.pg>
Message-ID: <e04a6c920601181844ya44960bt@mail.gmail.com>

On 18/01/06, Stuart McLachlan <stuart at lexacorp.com.pg> wrote:
> On 18 Jan 2006 at 19:47, Bryan Carbonnell wrote:
>
> >
> > I ust a Global constant to store the path. That way, all I need to do
> > is change it in one place whne the server changes.
> >
>
> That's OK until you turn it into an MDE :-(

True, but since I don't use MDEs it's not an issue. Or at least it
hasn't been an issue.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From jwelz at hotmail.com  Wed Jan 18 21:42:38 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Wed, 18 Jan 2006 20:42:38 -0700
Subject: [AccessD] Read External File for Path String
In-Reply-To: <001f01c61c90$96529260$0200a8c0@danwaters>
Message-ID: <BAY113-F9F8A5D777CBE9B28C3273A11C0@phx.gbl>

I have used both a global constant and a property appended to the database 
properties collection to store this kind of information.  As an example of a 
property defined by a user, I create a property called 'CompactDate' and use 
it to create a back up and automatically back up a BE every fourth day 
(people are forced out after midnight after two hours of inactivity).  If 
the property doesn't exist, the error handler creates the property by 
calling the AddProperty sub routine.  The Compact routine compacts the 
linked database containing a specific named table and creates a backup 
prefixed with the backup date and the BE name.  You could easily create a 
'ServerPath' property.

Private Sub Compact()
'  Opens BE db exclusive (to preempt other users) and inspects a custom db 
property "CompactDate"
'  Compares "CompactDate" property to current date and if more than 4 day 
disparity, needs to compact
'  Closes BE so that compact may take place.
'  Backs Up database before compacting
'  Compacts BE to new file.
'  If successful, deletes old file and renames the compacted BE to the BE in 
the connect string
    On Error GoTo ErrorHandler

    Dim NewDBName As String
    Dim strDBName As String
    Dim db As DAO.Database
    Dim strProp As String
    Dim strDate As String
    Dim strPropertyName As String

    Set db = CurrentDb
    strDBName = Mid$(db.TableDefs("tblCompany").Connect, 11)
    If Dir(Left$(strDBName, Len(strDBName) - 3) & "ldb") = "" Then
        'then the ldb file isn't present so the mdb is not open and can be 
compacted
        Set db = OpenDatabase(strDBName, True) ' true places it in 
'exclusive mode
        strPropertyName = "CompactDate"
        strProp = db.Properties(strPropertyName)
        'get the compactDate property
        strDate = Format$(Date, "yymmdd")
        If Format$(Date - 4, "yymmdd") > strProp Then
            'if it's more than 4 days since last compact
            db.Close
            'it was open exclusive.  Must close to work with it
            Set db = Nothing
           If Copy(strDBName, Left$(strDBName, Len(strDBName) - 4) & "BackUp 
" & strDate & ".mdb", _
             False) Then
                'backup successful
                NewDBName = Left$(strDBName, Len(strDBName) - 4) & strDate & 
".mdb"
                If Dir(NewDBName) <> "" Then Kill NewDBName
                DBEngine.CompactDatabase strDBName, NewDBName
                Kill strDBName
                Name NewDBName As strDBName
                Set db = OpenDatabase(strDBName)
                db.Properties(strPropertyName) = strDate
            End If
        End If
    End If

ExitRoutine:
    On Error Resume Next
    db.Close
    Set db = Nothing
    Exit Sub
ErrorHandler:
    With Err
        Select Case .Number
            Case 76, 68
                Resume ExitRoutine
            Case 3270
                AddProperty strPropertyName, db
                Resume
            Case Else
                MsgBox .Number & vbCrLf & .Description, vbInformation, 
"Error - Compact"
        End Select
    End With
    'Resume 0
    Resume ExitRoutine
End Sub

Private Sub AddProperty(strPropertyName As String, db As DAO.Database)
    Dim prp As Property

    Set prp = db.CreateProperty(strPropertyName, dbText, False)
    db.Properties.Append prp
End Sub



Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Dan Waters" <dwaters at usinternet.com>
>
>Hello Everyone,
>
>I just spent half the day struggling with the movement of a system from one
>server to another.  The server path is hardcoded in one place in a startup
>form.  What would have helped me a lot is to have the path in a text file 
>or
>ini file external to the database and stored in the same folder.
>
>Security is not an issue here, just my convenience, as my plans for the day
>were pretty much blown up!
>
>Using a file for information like this sounds like it might be a fairly
>typical solution.  Does anyone do this or something like it?
>
>Thanks!
>Dan Waters




From jwelz at hotmail.com  Wed Jan 18 22:01:55 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Wed, 18 Jan 2006 21:01:55 -0700
Subject: [AccessD] Read External File for Path String
In-Reply-To: <BAY113-F9F8A5D777CBE9B28C3273A11C0@phx.gbl>
Message-ID: <BAY113-F33FFF1F00CD19E591A2C34A11C0@phx.gbl>

I forgot the 'Copy' routine referenced in the example.  It uses the API copy 
routine because I like the option of specifying whether or not to overwrite 
an existing file.  NoOverWrite is passed as false, a double negative, so it 
guarantees that any file with the exact name will be overwritten.  Compact 
is one of the procedures called in my startup.

Private Declare Function CopyFileA Lib "kernel32" (ByVal ExistingFileName As 
String, _
    ByVal NewFileName As String, ByVal FailIfExists As Long) As Long

Public Function Copy(FileSrc As String, FileDst As String, Optional 
NoOverWrite As Boolean = True) _
  As Boolean
    On Error GoTo ErrorHandler

    Copy = CopyFileA(FileSrc, FileDst, NoOverWrite) = 1

ExitRoutine:
    On Error Resume Next
    Exit Function
ErrorHandler:
    With Err
        Select Case .Number
            Case Else
                MsgBox .Number & vbCrLf & .Description, vbInformation, 
"Error - Copy"
        End Select
    End With
    'Resume 0
    Resume ExitRoutine
End Function




Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "J?rgen Welz" <jwelz at hotmail.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] Read External File for Path String
>Date: Wed, 18 Jan 2006 20:42:38 -0700
>MIME-Version: 1.0
>X-Originating-IP: [198.53.207.165]
>X-Originating-Email: [jwelz at hotmail.com]
>X-Sender: jwelz at hotmail.com
>Received: from databaseadvisors.com ([209.135.140.44]) by 
>bay0-mc1-f5.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.211); Wed, 18 
>Jan 2006 19:43:10 -0800
>Received: from databaseadvisors.com (databaseadvisors.com 
>[209.135.140.44])by databaseadvisors.com (8.11.6/8.11.6) with ESMTP id 
>k0J3gaV22247;Wed, 18 Jan 2006 21:42:36 -0600
>Received: from hotmail.com (bay113-f9.bay113.hotmail.com [65.54.168.19])by 
>databaseadvisors.com (8.11.6/8.11.6) with ESMTP id k0J3gWV22171for 
><accessd at databaseadvisors.com>; Wed, 18 Jan 2006 21:42:32 -0600
>Received: from mail pickup service by hotmail.com with Microsoft 
>SMTPSVC;Wed, 18 Jan 2006 19:42:39 -0800
>Received: from 65.54.168.200 by by113fd.bay113.hotmail.msn.com with 
>HTTP;Thu, 19 Jan 2006 03:42:38 GMT
>X-Message-Info: N4u0pqWW+O2m+Q9YFz/olxxlTiooEfJ3vTshhc4HOUo=
>X-OriginalArrivalTime: 19 Jan 2006 03:42:39.0002 
>(UTC)FILETIME=[64EEAFA0:01C61CAA]
>X-BeenThere: accessd at databaseadvisors.com
>X-Mailman-Version: 2.1.6-xhtml
>Precedence: list
>List-Id: Access Developers discussion and problem 
>solving<accessd.databaseadvisors.com>
>List-Unsubscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=unsubscribe>
>List-Archive: <http://databaseadvisors.com/pipermail/accessd>
>List-Post: <mailto:accessd at databaseadvisors.com>
>List-Help: <mailto:accessd-request at databaseadvisors.com?subject=help>
>List-Subscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=subscribe>
>Errors-To: accessd-bounces at databaseadvisors.com
>Return-Path: accessd-bounces at databaseadvisors.com
>
>I have used both a global constant and a property appended to the database 
>properties collection to store this kind of information.  As an example of 
>a property defined by a user, I create a property called 'CompactDate' and 
>use it to create a back up and automatically back up a BE every fourth day 
>(people are forced out after midnight after two hours of inactivity).  If 
>the property doesn't exist, the error handler creates the property by 
>calling the AddProperty sub routine.  The Compact routine compacts the 
>linked database containing a specific named table and creates a backup 
>prefixed with the backup date and the BE name.  You could easily create a 
>'ServerPath' property.
>
>Private Sub Compact()
>'  Opens BE db exclusive (to preempt other users) and inspects a custom db 
>property "CompactDate"
>'  Compares "CompactDate" property to current date and if more than 4 day 
>disparity, needs to compact
>'  Closes BE so that compact may take place.
>'  Backs Up database before compacting
>'  Compacts BE to new file.
>'  If successful, deletes old file and renames the compacted BE to the BE 
>in the connect string
>    On Error GoTo ErrorHandler
>
>    Dim NewDBName As String
>    Dim strDBName As String
>    Dim db As DAO.Database
>    Dim strProp As String
>    Dim strDate As String
>    Dim strPropertyName As String
>
>    Set db = CurrentDb
>    strDBName = Mid$(db.TableDefs("tblCompany").Connect, 11)
>    If Dir(Left$(strDBName, Len(strDBName) - 3) & "ldb") = "" Then
>        'then the ldb file isn't present so the mdb is not open and can be 
>compacted
>        Set db = OpenDatabase(strDBName, True) ' true places it in 
>'exclusive mode
>        strPropertyName = "CompactDate"
>        strProp = db.Properties(strPropertyName)
>        'get the compactDate property
>        strDate = Format$(Date, "yymmdd")
>        If Format$(Date - 4, "yymmdd") > strProp Then
>            'if it's more than 4 days since last compact
>            db.Close
>            'it was open exclusive.  Must close to work with it
>            Set db = Nothing
>           If Copy(strDBName, Left$(strDBName, Len(strDBName) - 4) & 
>"BackUp " & strDate & ".mdb", _
>             False) Then
>                'backup successful
>                NewDBName = Left$(strDBName, Len(strDBName) - 4) & strDate 
>& ".mdb"
>                If Dir(NewDBName) <> "" Then Kill NewDBName
>                DBEngine.CompactDatabase strDBName, NewDBName
>                Kill strDBName
>                Name NewDBName As strDBName
>                Set db = OpenDatabase(strDBName)
>                db.Properties(strPropertyName) = strDate
>            End If
>        End If
>    End If
>
>ExitRoutine:
>    On Error Resume Next
>    db.Close
>    Set db = Nothing
>    Exit Sub
>ErrorHandler:
>    With Err
>        Select Case .Number
>            Case 76, 68
>                Resume ExitRoutine
>            Case 3270
>                AddProperty strPropertyName, db
>                Resume
>            Case Else
>                MsgBox .Number & vbCrLf & .Description, vbInformation, 
>"Error - Compact"
>        End Select
>    End With
>    'Resume 0
>    Resume ExitRoutine
>End Sub
>
>Private Sub AddProperty(strPropertyName As String, db As DAO.Database)
>    Dim prp As Property
>
>    Set prp = db.CreateProperty(strPropertyName, dbText, False)
>    db.Properties.Append prp
>End Sub
>
>
>
>Ciao
>J?rgen Welz
>Edmonton, Alberta
>jwelz at hotmail.com
>
>
>
>
>
>>From: "Dan Waters" <dwaters at usinternet.com>
>>
>>Hello Everyone,
>>
>>I just spent half the day struggling with the movement of a system from 
>>one
>>server to another.  The server path is hardcoded in one place in a startup
>>form.  What would have helped me a lot is to have the path in a text file 
>>or
>>ini file external to the database and stored in the same folder.
>>
>>Security is not an issue here, just my convenience, as my plans for the 
>>day
>>were pretty much blown up!
>>
>>Using a file for information like this sounds like it might be a fairly
>>typical solution.  Does anyone do this or something like it?
>>
>>Thanks!
>>Dan Waters
>
>


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




From jwcolby at ColbyConsulting.com  Wed Jan 18 22:09:22 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 18 Jan 2006 23:09:22 -0500
Subject: [AccessD] Setting Jet record locking via code
Message-ID: <001901c61cae$2138b6d0$647aa8c0@ColbyM6805>

Someone posted a link to a kb article discussing setting record locking via
ADO code IIRC.  Could I get that again?  I went looking but am not finding
it.

John W. Colby
www.ColbyConsulting.com 




From darsant at gmail.com  Wed Jan 18 22:22:58 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Wed, 18 Jan 2006 22:22:58 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <53c8e05a0601170849t8017286n99dc0d65238b4910@mail.gmail.com>
References: <F55048AF7E974F429BB24597D7355EEABF26@INFOSERVER04.infostat.local>
	<53c8e05a0601170849t8017286n99dc0d65238b4910@mail.gmail.com>
Message-ID: <53c8e05a0601182022s256c2196yf042ab7cc7bcffb@mail.gmail.com>

On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> I haven't used SourceSafe in Access personally, only C++ projects. I
> find it interesting that they've worked out code to diff Access DBs,
> but cannot make it compatible with Word for diffing.
>
> Granted, everything can be corrupt, but source-safe has a very very
> bad track record with corruption, even on simple things. I can't find
> the link now, but once I hit my work computer I'll post it.
>
> When it's all said and done, I still prefer a stability and safety
> over easy integration with Office / Visual Studio.

OK, looked a little more into this, and supposedly if you run their
analyze.exe tool at least weekly, it will drastically reduce the
"fail" corruption rate (as it fixes the small corruptions before they
propigate).

Some other interesting things that I hadn't heard before:

Large binary files often had to have their version history cleared with 3.1

File locks were frequently left behind and had to be manually removed.

Then there's the dreaded \data\a\aaaaaaaa.a error message that
everyone seems to end up dealing with (For some reason, I swear there
was a KB article dealing with all the possible ways this could pop up,
but I can't find it)

Also, if you delete a file, and then later recreate a file with the
same name, the previous file history is gone forever (You can't check
out previous complete builds anymore)

I mean, honestly, it works for a little side project, but for anything
a business is depending on, I don't trust my weight on it when there's
free open-source products out there that do much much better in terms
of both reliability and interface.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From jwcolby at ColbyConsulting.com  Wed Jan 18 22:50:10 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 18 Jan 2006 23:50:10 -0500
Subject: [AccessD] SQL Server express
Message-ID: <001a01c61cb3$d4617bc0$647aa8c0@ColbyM6805>

I stumbled across this (via the Database Advisor's website)

http://blogs.msdn.com/sqlexpress/archive/2004/07/23/192044.aspx

It has a good discussion of how to get SQL Server express running, the
browser service running, and all set to go for running the upsize wizard in
order to use SQL Server Express from Access.

John W. Colby
www.ColbyConsulting.com 




From jmhecht at earthlink.net  Thu Jan 19 01:14:29 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 18 Jan 2006 23:14:29 -0800
Subject: [AccessD] OT IE Font Size
Message-ID: <004901c61cc7$fd6d34a0$6701a8c0@HPLaptop>

How can I change it?

 

Need display change, not the magnifying glass.

 

Thanks

 

 

Joe Hecht

jmhecht at earthlink.net

 



From andy at minstersystems.co.uk  Thu Jan 19 01:45:02 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Thu, 19 Jan 2006 07:45:02 -0000
Subject: [AccessD] OT IE Font Size
In-Reply-To: <004901c61cc7$fd6d34a0$6701a8c0@HPLaptop>
Message-ID: <003a01c61ccc$41ade7a0$851c0c54@minster33c3r25>

Hi Joe
Do you mean Tools, Internet Options, Fonts?

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
> Sent: 19 January 2006 07:14
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] OT IE Font Size
> 
> 
> How can I change it?
> 
>  
> 
> Need display change, not the magnifying glass.
> 
>  
> 
> Thanks
> 
>  
> 
>  
> 
> Joe Hecht
> 
> jmhecht at earthlink.net
> 
>  
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From stuart at lexacorp.com.pg  Thu Jan 19 01:53:59 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Thu, 19 Jan 2006 17:53:59 +1000
Subject: [AccessD] OT IE Font Size
In-Reply-To: <004901c61cc7$fd6d34a0$6701a8c0@HPLaptop>
Message-ID: <43CFD237.22564.8A21290@stuart.lexacorp.com.pg>

On 18 Jan 2006 at 23:14, Joe Hecht wrote:

> How can I change it?
> Need display change, not the magnifying glass.
> 

Ctrl + Scrollwheel generally works for me.


-- 
Stuart




From shamil at users.mns.ru  Thu Jan 19 01:57:07 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 19 Jan 2006 10:57:07 +0300
Subject: [AccessD] Source Code Control
References: <F55048AF7E974F429BB24597D7355EEABF26@INFOSERVER04.infostat.local><53c8e05a0601170849t8017286n99dc0d65238b4910@mail.gmail.com>
	<53c8e05a0601182022s256c2196yf042ab7cc7bcffb@mail.gmail.com>
Message-ID: <008a01c61ccf$19638b80$6401a8c0@fincomplex.spb.ru>

> I mean, honestly, it works for a little side project
Josh,

I guess MS uses VSS by themselves ...

I did use VSS in a huge MSVC++ project of my colleague with thouzands of
source files and a half of a hundred projects - it worked well, no problems
at all...

I think most of the "horror stories" about VSS are in the past now.

Yes, I liked SubVersion for the features you describe and because it's open
source...

If there is no need in these SubVersion features then VSS looks good enough
and stable.

Shamil

----- Original Message ----- 
From: "Josh McFarlane" <darsant at gmail.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 7:22 AM
Subject: Re: [AccessD] Source Code Control


> On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> > I haven't used SourceSafe in Access personally, only C++ projects. I
> > find it interesting that they've worked out code to diff Access DBs,
> > but cannot make it compatible with Word for diffing.
> >
> > Granted, everything can be corrupt, but source-safe has a very very
> > bad track record with corruption, even on simple things. I can't find
> > the link now, but once I hit my work computer I'll post it.
> >
> > When it's all said and done, I still prefer a stability and safety
> > over easy integration with Office / Visual Studio.
>
> OK, looked a little more into this, and supposedly if you run their
> analyze.exe tool at least weekly, it will drastically reduce the
> "fail" corruption rate (as it fixes the small corruptions before they
> propigate).
>
> Some other interesting things that I hadn't heard before:
>
> Large binary files often had to have their version history cleared with
3.1
>
> File locks were frequently left behind and had to be manually removed.
>
> Then there's the dreaded \data\a\aaaaaaaa.a error message that
> everyone seems to end up dealing with (For some reason, I swear there
> was a KB article dealing with all the possible ways this could pop up,
> but I can't find it)
>
> Also, if you delete a file, and then later recreate a file with the
> same name, the previous file history is gone forever (You can't check
> out previous complete builds anymore)
>
> I mean, honestly, it works for a little side project, but for anything
> a business is depending on, I don't trust my weight on it when there's
> free open-source products out there that do much much better in terms
> of both reliability and interface.
>
> --
> Josh McFarlane
>
> "Peace cannot be kept by force. It can only be achieved by understanding."
> -Albert Einstein
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From shamil at users.mns.ru  Thu Jan 19 02:05:18 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 19 Jan 2006 11:05:18 +0300
Subject: [AccessD] Source Code Control
References: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local><53c8e05a0601180931u68d8b307s8c0c35dcff5ee91c@mail.gmail.com><001901c61c5a$925a8cc0$6401a8c0@fincomplex.spb.ru><53c8e05a0601181530o39babe2cwb329c0e2ab9375d9@mail.gmail.com><004f01c61c8d$3b15f8e0$6401a8c0@fincomplex.spb.ru>
	<53c8e05a0601181628x7450a906l9a81b1d1476fca37@mail.gmail.com>
Message-ID: <008d01c61ccf$19828530$6401a8c0@fincomplex.spb.ru>

> Basically it equates to tunneling through SSH and then using SSH to
> perform your checkout.
Thank you, Josh!

I will check the ref - but this could be not what I wanted.
What I wanted is to keep SubVersion running on a public Web server and to
store source files in it encrypted.
And to encrypt/decrypt them on client side transparently to the development
tools during check-in/check-out.

Please dont' spend time to look for this feature - just post info about it
here if you ever see it occasionally somewhere ....

Shamil

----- Original Message ----- 
From: "Josh McFarlane" <darsant at gmail.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 3:28 AM
Subject: Re: [AccessD] Source Code Control


> On 1/18/06, Shamil Salakhetdinov <shamil at users.mns.ru> wrote:
> > > As far as actual encryption of the data passed, I haven't looked into
> > > it much. I'll see what I can find out and let you know.
> > Thank you and thank in advance, Josh!
>
> OK, I can't find anywhere that says it has any built in encryption
> support for data transport, however, you can use their server service
> and SSH.
>
> Basically it equates to tunneling through SSH and then using SSH to
> perform your checkout.
>
> See http://subversion.tigris.org/faq.html#paranoid
>
> --
> Josh McFarlane
>
> "Peace cannot be kept by force. It can only be achieved by understanding."
> -Albert Einstein
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Erwin.Craps at ithelps.be  Thu Jan 19 03:02:47 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Thu, 19 Jan 2006 10:02:47 +0100
Subject: [AccessD] OT IE Font Size
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62B9@stekelbes.ithelps.local>

In ie, goto view and  there is an option. Don't know the correct word in
the Enlgish version.
But is must be something like lettersize or fontsize.
You can choose between normal, small big etc..

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Thursday, January 19, 2006 8:54 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT IE Font Size

On 18 Jan 2006 at 23:14, Joe Hecht wrote:

> How can I change it?
> Need display change, not the magnifying glass.
> 

Ctrl + Scrollwheel generally works for me.


--
Stuart


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


From joeget at vgernet.net  Thu Jan 19 03:05:48 2006
From: joeget at vgernet.net (John Eget)
Date: Thu, 19 Jan 2006 04:05:48 -0500
Subject: [AccessD] transfer table code
Message-ID: <004c01c61cd7$8ea3be80$d3c2f63f@JOHN>

I am trying to transfer a table (with the same name) from a different access database to the access database that I have presently open.  I have stored the location of the different access database name in a table.  I display and select the table on the form I have open in a combo box titled cboImportTable.  The bound column is correctly identified and displayed as 1.  Table name to transfer is KeyProcessAreas  

I am using the following code but keep getting a popup that states  "error number 424" and further states "error desc: object required"    I am using the following code 

DoCmd.TransferDatabase acImport, "Microsoft Access", Me.cboImportTable.Column(1), acTable, Me.cboImportTable.Column(1).[KeyProcessAreas], Me.cboImportTable.Column(1).[KeyProcessAreas1]

Column 1 of the table has the full name of the table location in it.

Have an idea what I am doing wrong?

Thanks

John  

From joeget at vgernet.net  Thu Jan 19 03:07:52 2006
From: joeget at vgernet.net (John Eget)
Date: Thu, 19 Jan 2006 04:07:52 -0500
Subject: [AccessD] Table Transfer Issue
Message-ID: <006101c61cd7$d74138c0$d3c2f63f@JOHN>

 am trying to transfer a table (with the same name) from a different access database to the access database that I have presently open.  I have stored the location of the different access database name in a table.  I display and select the table on the form I have open in a combo box titled cboImportTable.  The bound column is correctly identified and displayed as 1.  Table name to transfer is KeyProcessAreas  

I am using the following code but keep getting a popup that states  "error number 424" and further states "error desc: object required"    I am using the following code 

DoCmd.TransferDatabase acImport, "Microsoft Access", Me.cboImportTable.Column(1), acTable, Me.cboImportTable.Column(1).[KeyProcessAreas], Me.cboImportTable.Column(1).[KeyProcessAreas1]

Column 1 of the table has the full name of the table location in it.

Have an idea what I am doing wrong?

Thanks

John  

From Gustav at cactus.dk  Thu Jan 19 03:20:01 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 19 Jan 2006 10:20:01 +0100
Subject: [AccessD] Table Transfer Issue
Message-ID: <s3cf67ea.059@cactus.dk>

Hi John

Try with:

DoCmd.TransferDatabase acImport, "Microsoft Access", Me.cboImportTable.Column(1), acTable, "KeyProcessAreas", "KeyProcessAreas1"

/gustav

>>> joeget at vgernet.net 19-01-2006 10:07 >>>
 am trying to transfer a table (with the same name) from a different access database to the access database that I have presently open.  I have stored the location of the different access database name in a table.  I display and select the table on the form I have open in a combo box titled cboImportTable.  The bound column is correctly identified and displayed as 1.  Table name to transfer is KeyProcessAreas  

I am using the following code but keep getting a popup that states  "error number 424" and further states "error desc: object required"    I am using the following code 

DoCmd.TransferDatabase acImport, "Microsoft Access", Me.cboImportTable.Column(1), acTable, Me.cboImportTable.Column(1).[KeyProcessAreas], Me.cboImportTable.Column(1).[KeyProcessAreas1]

Column 1 of the table has the full name of the table location in it.

Have an idea what I am doing wrong?

Thanks

John  




From Gustav at cactus.dk  Thu Jan 19 03:42:07 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 19 Jan 2006 10:42:07 +0100
Subject: [AccessD] ...close open forms
Message-ID: <s3cf6d26.061@cactus.dk>

Hi William

OK, then adjust to skip the last opened (the opening) form:

 ' Close all forms except the first and last opened form.
  For lngF = Forms.Count - 2 To 1 Step -1
    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
  Next

/gustav

>>> wdhindman at bellsouth.net 18-01-2006 23:15:07 >>>
Gustav

...thanks ...wish it was that easy ...it does what you say but not what I 
need :(

...probably didn't explain it well enough ...it happens :)

...two or more forms open including the switchboard ...need it to close 
everything BUT the swb AND the opening form.

...your code ...in the on open event of opening form ...closes all but the 
swb ...including the opening form.

...suggestions welcome.

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 9:22 AM
Subject: Re: [AccessD] ...close open forms


> Hi William
>
> How about:
>
>  ' Close all forms except this first opened form.
>  For lngF = Forms.Count - 1 To 1 Step -1
>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>  Next
>
> /gustav
>
>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
> ...I need to close any open forms ...other than designated forms ...and 
> save
> their data ...before opening a called form ...from the called form.
>
> ...ie call a form open from a switchboard ...the called form checks for 
> any
> other forms open, other than the sb, and closes them, saving their data,
> before it opens.




From andy at minstersystems.co.uk  Thu Jan 19 04:08:51 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Thu, 19 Jan 2006 10:08:51 +0000
Subject: [AccessD] OT IE Font Size
Message-ID: <20060119100849.84B84254AAD@smtp.nildram.co.uk>

It's View then Textsize.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] OT IE Font Size
Date: 19/01/06 09:04


In ie, goto view and there is an option. Don't know the correct word in
the Enlgish version.
But is must be something like lettersize or fontsize.
You can choose between normal, small big etc..

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Thursday, January 19, 2006 8:54 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT IE Font Size

On 18 Jan 2006 at 23:14, Joe Hecht wrote:

> How can I change it?
> Need display change, not the magnifying glass.
>

Ctrl + Scrollwheel generally works for me.


--
Stuart


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

________________________________________________
Message sent using UebiMiau 2.7.2



From Gustav at cactus.dk  Thu Jan 19 04:10:08 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 19 Jan 2006 11:10:08 +0100
Subject: [AccessD] Read External File for Path String
Message-ID: <s3cf73a3.063@cactus.dk>

Hi Dan

Or use the registry. This is what it is for.
Susan just wrote an article on this (hidden somewhere for the public, I guess) but it's quite easy if you use:

SaveSetting(..) and GetSetting(..)

/gustav

>>> dwaters at usinternet.com 19-01-2006 01:37:53 >>>
Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters




From accessd666 at yahoo.com  Thu Jan 19 04:42:59 2006
From: accessd666 at yahoo.com (Sad Der)
Date: Thu, 19 Jan 2006 02:42:59 -0800 (PST)
Subject: [AccessD] Access security?
Message-ID: <20060119104259.25321.qmail@web31606.mail.mud.yahoo.com>

Hi group,

Murphy came along, big time!! 

The administrator of an Access database I created back
in 2002 passed away and nobody knows anything about
the users/passwords stuff.

However in my documentation (!! I CREATED
DOCUMENTATION !! GO FIGURE) I saw that I written down
the adminuser + pincode!!!!!

Can I do anything with that?
I really need to get in.

Tia

Sander

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 


From accessd at shaw.ca  Thu Jan 19 06:11:40 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Thu, 19 Jan 2006 04:11:40 -0800
Subject: [AccessD] Source Code Control
In-Reply-To: <008a01c61ccf$19638b80$6401a8c0@fincomplex.spb.ru>
Message-ID: <000301c61cf1$821024f0$017ba8c0@xpserver>

Hi Shamil:

MS uses TeamServer for all their projects. 

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: January 18, 2006 11:57 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control

> I mean, honestly, it works for a little side project
Josh,

I guess MS uses VSS by themselves ...

I did use VSS in a huge MSVC++ project of my colleague with thouzands of
source files and a half of a hundred projects - it worked well, no problems
at all...

I think most of the "horror stories" about VSS are in the past now.

Yes, I liked SubVersion for the features you describe and because it's open
source...

If there is no need in these SubVersion features then VSS looks good enough
and stable.

Shamil

----- Original Message ----- 
From: "Josh McFarlane" <darsant at gmail.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 7:22 AM
Subject: Re: [AccessD] Source Code Control


> On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> > I haven't used SourceSafe in Access personally, only C++ projects. I
> > find it interesting that they've worked out code to diff Access DBs,
> > but cannot make it compatible with Word for diffing.
> >
> > Granted, everything can be corrupt, but source-safe has a very very
> > bad track record with corruption, even on simple things. I can't find
> > the link now, but once I hit my work computer I'll post it.
> >
> > When it's all said and done, I still prefer a stability and safety
> > over easy integration with Office / Visual Studio.
>
> OK, looked a little more into this, and supposedly if you run their
> analyze.exe tool at least weekly, it will drastically reduce the
> "fail" corruption rate (as it fixes the small corruptions before they
> propigate).
>
> Some other interesting things that I hadn't heard before:
>
> Large binary files often had to have their version history cleared with
3.1
>
> File locks were frequently left behind and had to be manually removed.
>
> Then there's the dreaded \data\a\aaaaaaaa.a error message that
> everyone seems to end up dealing with (For some reason, I swear there
> was a KB article dealing with all the possible ways this could pop up,
> but I can't find it)
>
> Also, if you delete a file, and then later recreate a file with the
> same name, the previous file history is gone forever (You can't check
> out previous complete builds anymore)
>
> I mean, honestly, it works for a little side project, but for anything
> a business is depending on, I don't trust my weight on it when there's
> free open-source products out there that do much much better in terms
> of both reliability and interface.
>
> --
> Josh McFarlane
>
> "Peace cannot be kept by force. It can only be achieved by understanding."
> -Albert Einstein
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com

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



From wdhindman at bellsouth.net  Thu Jan 19 06:31:46 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 19 Jan 2006 07:31:46 -0500
Subject: [AccessD] ...close open forms
References: <s3cf6d26.061@cactus.dk>
Message-ID: <000a01c61cf4$50028c20$6101a8c0@JISREGISTRATION.local>

Gustav, Don, Lambert, Shamil, et al

...thanks to all who responded ...four different solutions all of which 
worked in different ways.
...why do I love AccessD? ...let me count the ways! :)

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 4:42 AM
Subject: Re: [AccessD] ...close open forms


> Hi William
>
> OK, then adjust to skip the last opened (the opening) form:
>
> ' Close all forms except the first and last opened form.
>  For lngF = Forms.Count - 2 To 1 Step -1
>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>  Next
>
> /gustav
>
>>>> wdhindman at bellsouth.net 18-01-2006 23:15:07 >>>
> Gustav
>
> ...thanks ...wish it was that easy ...it does what you say but not what I
> need :(
>
> ...probably didn't explain it well enough ...it happens :)
>
> ...two or more forms open including the switchboard ...need it to close
> everything BUT the swb AND the opening form.
>
> ...your code ...in the on open event of opening form ...closes all but the
> swb ...including the opening form.
>
> ...suggestions welcome.
>
> William
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Wednesday, January 18, 2006 9:22 AM
> Subject: Re: [AccessD] ...close open forms
>
>
>> Hi William
>>
>> How about:
>>
>>  ' Close all forms except this first opened form.
>>  For lngF = Forms.Count - 1 To 1 Step -1
>>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>>  Next
>>
>> /gustav
>>
>>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
>> ...I need to close any open forms ...other than designated forms ...and
>> save
>> their data ...before opening a called form ...from the called form.
>>
>> ...ie call a form open from a switchboard ...the called form checks for
>> any
>> other forms open, other than the sb, and closes them, saving their data,
>> before it opens.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From Jdemarco at hudsonhealthplan.org  Thu Jan 19 07:03:52 2006
From: Jdemarco at hudsonhealthplan.org (Jim DeMarco)
Date: Thu, 19 Jan 2006 08:03:52 -0500
Subject: [AccessD] Read External File for Path String
Message-ID: <08F823FD83787D4BA0B99CA580AD3C74016C43FC@TTNEXCHCL2.hshhp.com>

You could use an XML file.  I posted an article on using XML to store configuration data in the list newsletter a year or so ago.

Jim DeMarco

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Dan Waters
Sent: Wednesday, January 18, 2006 7:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



-- 
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".
***********************************************************************************



From shamil at users.mns.ru  Thu Jan 19 07:18:04 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 19 Jan 2006 16:18:04 +0300
Subject: [AccessD] Source Code Control
References: <000301c61cf1$821024f0$017ba8c0@xpserver>
Message-ID: <003901c61cfa$cbae7e50$6501a8c0@fincomplex.spb.ru>

Hi Jim,

And TeamServer uses VSS Server - Yes/No?

Shamil

----- Original Message ----- 
From: "Jim Lawrence" <accessd at shaw.ca>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 3:11 PM
Subject: Re: [AccessD] Source Code Control


> Hi Shamil:
>
> MS uses TeamServer for all their projects.
>
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> Salakhetdinov
> Sent: January 18, 2006 11:57 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Source Code Control
>
> > I mean, honestly, it works for a little side project
> Josh,
>
> I guess MS uses VSS by themselves ...
>
> I did use VSS in a huge MSVC++ project of my colleague with thouzands of
> source files and a half of a hundred projects - it worked well, no
problems
> at all...
>
> I think most of the "horror stories" about VSS are in the past now.
>
> Yes, I liked SubVersion for the features you describe and because it's
open
> source...
>
> If there is no need in these SubVersion features then VSS looks good
enough
> and stable.
>
> Shamil
>
> ----- Original Message ----- 
> From: "Josh McFarlane" <darsant at gmail.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 19, 2006 7:22 AM
> Subject: Re: [AccessD] Source Code Control
>
>
> > On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> > > I haven't used SourceSafe in Access personally, only C++ projects. I
> > > find it interesting that they've worked out code to diff Access DBs,
> > > but cannot make it compatible with Word for diffing.
> > >
> > > Granted, everything can be corrupt, but source-safe has a very very
> > > bad track record with corruption, even on simple things. I can't find
> > > the link now, but once I hit my work computer I'll post it.
> > >
> > > When it's all said and done, I still prefer a stability and safety
> > > over easy integration with Office / Visual Studio.
> >
> > OK, looked a little more into this, and supposedly if you run their
> > analyze.exe tool at least weekly, it will drastically reduce the
> > "fail" corruption rate (as it fixes the small corruptions before they
> > propigate).
> >
> > Some other interesting things that I hadn't heard before:
> >
> > Large binary files often had to have their version history cleared with
> 3.1
> >
> > File locks were frequently left behind and had to be manually removed.
> >
> > Then there's the dreaded \data\a\aaaaaaaa.a error message that
> > everyone seems to end up dealing with (For some reason, I swear there
> > was a KB article dealing with all the possible ways this could pop up,
> > but I can't find it)
> >
> > Also, if you delete a file, and then later recreate a file with the
> > same name, the previous file history is gone forever (You can't check
> > out previous complete builds anymore)
> >
> > I mean, honestly, it works for a little side project, but for anything
> > a business is depending on, I don't trust my weight on it when there's
> > free open-source products out there that do much much better in terms
> > of both reliability and interface.
> >
> > --
> > Josh McFarlane
> >
> > "Peace cannot be kept by force. It can only be achieved by
understanding."
> > -Albert Einstein
> > -- 



From lmrazek at lcm-res.com  Thu Jan 19 09:50:10 2006
From: lmrazek at lcm-res.com (Lawrence Mrazek)
Date: Thu, 19 Jan 2006 10:50:10 -0500
Subject: [AccessD] Scheduling Application - Changing Sort Order of
	Individual Items
Message-ID: <24bfdd13bb5340ec967cf97a14d343f7@lcm-res.com>

Hi:

I'm in the process of adapting a scheduling program for a manufacturer to Access (they currently do this in Excel).

Basically, the application will have a list of products on a form, and the user must be able to move the individual products up and down in the sort order via drag and drop or button click. Is this possible in Access?

ProductName?????????Scheduled Order
Widget 1????????????????1st
Widget 3????????????????2nd
Widget 5????????????????3rd
Widget 8????????????????4th

For example, I need to be able to quickly move Widget 8 to 2nd, and have Widget 3 and Widget 5 automatically slide down to 3rd and 4th respectively.

Thanks in advance.

Larry Mrazek
lmrazek at lcm-res.com
http://www.lcm-res.com/

 


From cfoust at infostatsystems.com  Thu Jan 19 09:53:40 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 19 Jan 2006 07:53:40 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF3C@INFOSERVER04.infostat.local>

Glad I don't work in your shop, Josh.  I understand the problem, but it
would feel more like solitary confinement to me than a good working
environment.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Wednesday, January 18, 2006 4:30 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/18/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> LOL  In our shop, we just yell over the cubicles, "hey, who has 
> objectX checked out?  I need to modify it!"

See, in our shop I try to enforce a "no bother" policy. From previous
studies and personal experience, it seems like interrupts will knock
programmers out of efficient-coding land for 15-30 minutes before they
get back into the groove. YMMV though.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by
understanding." -Albert Einstein
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From cfoust at infostatsystems.com  Thu Jan 19 10:04:57 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 19 Jan 2006 08:04:57 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF3D@INFOSERVER04.infostat.local>

YMMV, etc.  Our shop has been trusting it for much longer than I've
worked here.  As far as your dreaded error message, never heard of it or
experienced it.  Truly, Josh, it's a good idea to thoroughly explore
something before you decide it's no good based on hearsay.  Sure, you
can keep finding other things that are "wrong" with SourceSafe, but when
it comes right down to it, whether the product is useful depends on how
you use it.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Wednesday, January 18, 2006 8:23 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> I haven't used SourceSafe in Access personally, only C++ projects. I 
> find it interesting that they've worked out code to diff Access DBs, 
> but cannot make it compatible with Word for diffing.
>
> Granted, everything can be corrupt, but source-safe has a very very 
> bad track record with corruption, even on simple things. I can't find 
> the link now, but once I hit my work computer I'll post it.
>
> When it's all said and done, I still prefer a stability and safety 
> over easy integration with Office / Visual Studio.

OK, looked a little more into this, and supposedly if you run their
analyze.exe tool at least weekly, it will drastically reduce the "fail"
corruption rate (as it fixes the small corruptions before they
propigate).

Some other interesting things that I hadn't heard before:

Large binary files often had to have their version history cleared with
3.1

File locks were frequently left behind and had to be manually removed.

Then there's the dreaded \data\a\aaaaaaaa.a error message that everyone
seems to end up dealing with (For some reason, I swear there was a KB
article dealing with all the possible ways this could pop up, but I
can't find it)

Also, if you delete a file, and then later recreate a file with the same
name, the previous file history is gone forever (You can't check out
previous complete builds anymore)

I mean, honestly, it works for a little side project, but for anything a
business is depending on, I don't trust my weight on it when there's
free open-source products out there that do much much better in terms of
both reliability and interface.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by
understanding." -Albert Einstein
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From harkinsss at bellsouth.net  Thu Jan 19 10:05:45 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Thu, 19 Jan 2006 11:05:45 -0500
Subject: [AccessD] more on that Format() to pad text values question
In-Reply-To: <002601c61c70$189b8cc0$6401a8c0@fincomplex.spb.ru>
Message-ID: <000001c61d12$39234f30$d7b3d6d1@SUSANONE>

 
?format(Null,"#0.00;(#0.00);---;(NONE)")
(NONE)

=======That's what I was looking for. Thanks Shamil. I was using the
expression, but it just wasn't working and I discovered a really stupid
mistake on part. <groan> Seeing your syntax, I knew I was using the right
syntax and that sent me looking for another problem, which I found. :) 

Susan H. 



From darsant at gmail.com  Thu Jan 19 10:07:21 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Thu, 19 Jan 2006 10:07:21 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF3C@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF3C@INFOSERVER04.infostat.local>
Message-ID: <53c8e05a0601190807v5265fe71h146205de8dd472cc@mail.gmail.com>

On 1/19/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> Glad I don't work in your shop, Josh.  I understand the problem, but it
> would feel more like solitary confinement to me than a good working
> environment.

Oh, we still talk and chit chat, but when someone's wanting to get
work done, and has their headphones on, we tend to not bother each
other. Granted, the no bother policy only applies to questions that
can be answered quickly or the information is on the web (What's the
command to do foo? Where's foo?), things that take 10 seconds to ask
the guy next to you, but take 30 seconds to look up online. For things
such as program design, we still will sit down and interrupt work to
have a 15 minute discussion.

--
Josh McFarlane
"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From tinanfields at torchlake.com  Thu Jan 19 10:07:59 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Thu, 19 Jan 2006 11:07:59 -0500
Subject: [AccessD] My form has a little problem
References: <43CECB09.90602@torchlake.com>
	<009f01c61c8c$be0b2b40$6101a8c0@JISREGISTRATION.local>
Message-ID: <43CFB95F.4080108@torchlake.com>

Hello William,

The row source for the combo box is:
SELECT qselStudentName.StuID, qselStudentName.Name
FROM qselStudentName
ORDER BY qselStudentName.StuLname;

The query qselStudentName looks like this:
SELECT tblStudent.StuID, tblStudent.StuLname, tblStudent.StuFname, 
tblStudent!StuLname & ", " & tblStudent!StuFname AS Name
FROM tblStudent;

So, from the table tblStudent, I have selected the PK, last name and 
first name, and added a field called Name which chains together the last 
and first names - creating my query qselStudentName.  For the combo box 
I have selected the PK and the Name field, from my query and ordered the 
display by last name.  Do you see something here I have screwed up?

Thanks for looking,
Tina

William Hindman wrote:

>...sounds more like a problem with the table or query on which the combo is 
>based.
>
>William
>
>----- Original Message ----- 
>From: "Tina Norris Fields" <tinanfields at torchlake.com>
>To: <accessd at databaseadvisors.com>
>Sent: Wednesday, January 18, 2006 6:11 PM
>Subject: [AccessD] My form has a little problem
>
>
>  
>
>>Hi all,
>>
>>I have a form for either creating a new student profile, or editing an
>>existing one.  To create a new profile, trhe user clicks a button that
>>opens the student information form in add mode.  To edit an existing
>>profile, the user selects the student's name from an unbound combo box,
>>and then clicks the button to open the student information form for that
>>student in edit mode.
>>
>>When I first made this little form, it all worked well, but it no longer
>>works just right.  If I select a student's name from the combo box, and
>>I try to click the button to open the student information fomr, the
>>button does not get the focus - it does not respond.  If I wait around
>>for a while, eventually the button will let me click it.  If I tab out
>>of the combo box, the focus will shift to the the buttons in their
>>established tab sequence.
>>
>>I remember there have been heated discussions on this list about unbound
>>controls.  I am ready to learn - do I have a problem because I'm using
>>an unbound control?
>>
>>This is what my button does when I can get it clicked:
>>==========
>>Private Sub cmdEditExistingStudentProfile_Click()
>>On Error GoTo Err_cmdEditExistingStudentProfile_Click
>>
>>   Dim stDocName As String
>>   Dim stLinkCriteria As String
>>
>>   stDocName = "frmStudentInformation"
>>   stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>>   DoCmd.OpenForm stDocName, , , stLinkCriteria
>>
>>Exit_cmdEditExistingStudentProfile_Click:
>>   Exit Sub
>>
>>Err_cmdEditExistingStudentProfile_Click:
>>   MsgBox Err.Description
>>   Resume Exit_cmdEditExistingStudentProfile_Click
>>
>>End Sub
>>===========
>>
>>Should I be adding an After Update event procedure to my unbound combo
>>box - to set the focus on the button to get the student information form?
>>
>>Thanks for whatever lessons you will send my way.
>>
>>Tina
>>
>>-- 
>>AccessD mailing list
>>AccessD at databaseadvisors.com
>>http://databaseadvisors.com/mailman/listinfo/accessd
>>Website: http://www.databaseadvisors.com
>>
>>    
>>
>
>
>  
>




From cfoust at infostatsystems.com  Thu Jan 19 10:08:42 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 19 Jan 2006 08:08:42 -0800
Subject: [AccessD] Read External File for Path String
Message-ID: <F55048AF7E974F429BB24597D7355EEABF3E@INFOSERVER04.infostat.local>

That works if you have permission to write to the registry, Gustav.
We're running into more and more situations where the user does  NOT
have permission to read and write the registry.  Apparently the "new"
approach is to use an xml file in documents and settings.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 19, 2006 2:10 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String


Hi Dan

Or use the registry. This is what it is for.
Susan just wrote an article on this (hidden somewhere for the public, I
guess) but it's quite easy if you use:

SaveSetting(..) and GetSetting(..)

/gustav

>>> dwaters at usinternet.com 19-01-2006 01:37:53 >>>
Hello Everyone,

I just spent half the day struggling with the movement of a system from
one server to another.  The server path is hardcoded in one place in a
startup form.  What would have helped me a lot is to have the path in a
text file or ini file external to the database and stored in the same
folder.

Security is not an issue here, just my convenience, as my plans for the
day were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters


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


From darsant at gmail.com  Thu Jan 19 10:09:18 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Thu, 19 Jan 2006 10:09:18 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <008a01c61ccf$19638b80$6401a8c0@fincomplex.spb.ru>
References: <F55048AF7E974F429BB24597D7355EEABF26@INFOSERVER04.infostat.local>
	<53c8e05a0601170849t8017286n99dc0d65238b4910@mail.gmail.com>
	<53c8e05a0601182022s256c2196yf042ab7cc7bcffb@mail.gmail.com>
	<008a01c61ccf$19638b80$6401a8c0@fincomplex.spb.ru>
Message-ID: <53c8e05a0601190809n1f829383ob509806a1f91f365@mail.gmail.com>

On 1/19/06, Shamil Salakhetdinov <shamil at users.mns.ru> wrote:
> > I mean, honestly, it works for a little side project
> Josh,
>
> I guess MS uses VSS by themselves ...

Actually, pre-2005 many departments didn't even use it. The large ones
because VSS or CVS for that matter, was not designed for that size,
and the smaller ones because... well, they just didn't like it.

> I did use VSS in a huge MSVC++ project of my colleague with thouzands of
> source files and a half of a hundred projects - it worked well, no problems
> at all...
>
> I think most of the "horror stories" about VSS are in the past now.

I hope at least with 2005 they fixed most of the issues. If so, then I
can let the horror stories start to die with the rest of them.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From cfoust at infostatsystems.com  Thu Jan 19 10:11:48 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 19 Jan 2006 08:11:48 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF3F@INFOSERVER04.infostat.local>

Good question, Shamil.  I don't think so, and of course that has fueled
the "VSS is junk" argument.  Personally, I've never had problems with
VSS aside from the kind of problems you also get occasionally with SQL
Server or any other server product.  I'm for whatever works, it isn't a
big emotional issue for me.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: Thursday, January 19, 2006 5:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


Hi Jim,

And TeamServer uses VSS Server - Yes/No?

Shamil

----- Original Message ----- 
From: "Jim Lawrence" <accessd at shaw.ca>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 3:11 PM
Subject: Re: [AccessD] Source Code Control


> Hi Shamil:
>
> MS uses TeamServer for all their projects.
>
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil 
> Salakhetdinov
> Sent: January 18, 2006 11:57 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Source Code Control
>
> > I mean, honestly, it works for a little side project
> Josh,
>
> I guess MS uses VSS by themselves ...
>
> I did use VSS in a huge MSVC++ project of my colleague with thouzands 
> of source files and a half of a hundred projects - it worked well, no
problems
> at all...
>
> I think most of the "horror stories" about VSS are in the past now.
>
> Yes, I liked SubVersion for the features you describe and because it's
open
> source...
>
> If there is no need in these SubVersion features then VSS looks good
enough
> and stable.
>
> Shamil
>
> ----- Original Message -----
> From: "Josh McFarlane" <darsant at gmail.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 19, 2006 7:22 AM
> Subject: Re: [AccessD] Source Code Control
>
>
> > On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> > > I haven't used SourceSafe in Access personally, only C++ projects.

> > > I find it interesting that they've worked out code to diff Access 
> > > DBs, but cannot make it compatible with Word for diffing.
> > >
> > > Granted, everything can be corrupt, but source-safe has a very 
> > > very bad track record with corruption, even on simple things. I 
> > > can't find the link now, but once I hit my work computer I'll post

> > > it.
> > >
> > > When it's all said and done, I still prefer a stability and safety

> > > over easy integration with Office / Visual Studio.
> >
> > OK, looked a little more into this, and supposedly if you run their 
> > analyze.exe tool at least weekly, it will drastically reduce the 
> > "fail" corruption rate (as it fixes the small corruptions before 
> > they propigate).
> >
> > Some other interesting things that I hadn't heard before:
> >
> > Large binary files often had to have their version history cleared 
> > with
> 3.1
> >
> > File locks were frequently left behind and had to be manually 
> > removed.
> >
> > Then there's the dreaded \data\a\aaaaaaaa.a error message that 
> > everyone seems to end up dealing with (For some reason, I swear 
> > there was a KB article dealing with all the possible ways this could

> > pop up, but I can't find it)
> >
> > Also, if you delete a file, and then later recreate a file with the 
> > same name, the previous file history is gone forever (You can't 
> > check out previous complete builds anymore)
> >
> > I mean, honestly, it works for a little side project, but for 
> > anything a business is depending on, I don't trust my weight on it 
> > when there's free open-source products out there that do much much 
> > better in terms of both reliability and interface.
> >
> > --
> > Josh McFarlane
> >
> > "Peace cannot be kept by force. It can only be achieved by
understanding."
> > -Albert Einstein
> > --

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


From jeffrey.demulling at usbank.com  Thu Jan 19 10:21:43 2006
From: jeffrey.demulling at usbank.com (jeffrey.demulling at usbank.com)
Date: Thu, 19 Jan 2006 10:21:43 -0600
Subject: [AccessD] Read External File for Path String
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF3E@INFOSERVER04.infostat.local>
Message-ID: <OFFE1FB8B8.01EF4ED2-ON862570FB.0059B615-862570FB.0059E129@usbank.com>

I have run into that problem here at work.  That is why I went back to ini
files and have also played with XML files.  Proved to be easier (using an
ini file) than trying to fight an uphill battle to get the workstation
image for 60 of the 350 plus users for one of my apps changed.

Jeffrey F. Demulling
Project Manager
U.S. Bank Corporate Trust Services
60 Livingston Avenue
EP-MN-WS3C
St. Paul, MN  55107-2292
Ph: 651-495-3925
Fax: 651-495-8103
email: jeffrey.demulling at usbank.com


                                                                           
             "Charlotte Foust"                                             
             <cfoust at infostats                                             
             ystems.com>                                                To 
             Sent by:                  "Access Developers discussion and   
             accessd-bounces at d         problem solving"                    
             atabaseadvisors.c         <accessd at databaseadvisors.com>      
             om                                                         cc 
                                                                           
                                                                   Subject 
             01/19/2006 10:08          Re: [AccessD] Read External File    
             AM                        for Path String                     
                                                                           
                                                                           
             Please respond to                                             
                  "Access                                                  
                Developers                                                 
              discussion and                                               
             problem solving"                                              
             <accessd at database                                             
               advisors.com>                                               
                                                                           
                                                                           




That works if you have permission to write to the registry, Gustav.
We're running into more and more situations where the user does  NOT
have permission to read and write the registry.  Apparently the "new"
approach is to use an xml file in documents and settings.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 19, 2006 2:10 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String


Hi Dan

Or use the registry. This is what it is for.
Susan just wrote an article on this (hidden somewhere for the public, I
guess) but it's quite easy if you use:

SaveSetting(..) and GetSetting(..)

/gustav

>>> dwaters at usinternet.com 19-01-2006 01:37:53 >>>
Hello Everyone,

I just spent half the day struggling with the movement of a system from
one server to another.  The server path is hardcoded in one place in a
startup form.  What would have helped me a lot is to have the path in a
text file or ini file external to the database and stored in the same
folder.

Security is not an issue here, just my convenience, as my plans for the
day were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters


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




------------------------------------------------------------------------------
Electronic Privacy Notice. This e-mail, and any attachments, contains information that is, or may be, covered by electronic communications privacy laws, and is also confidential and proprietary in nature. If you are not the intended recipient, please be advised that you are legally prohibited from retaining, using, copying, distributing, or otherwise disclosing this information in any manner. Instead, please reply to the sender that you have received this communication in error, and then immediately delete it. Thank you in advance for your cooperation.
==============================================================================



From DWUTKA at marlow.com  Thu Jan 19 10:25:04 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Thu, 19 Jan 2006 10:25:04 -0600
Subject: [AccessD] My form has a little problem
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD593@main2.marlow.com>

How are you populating the unbound combobox?

Drew

-----Original Message-----
From: Tina Norris Fields [mailto:tinanfields at torchlake.com]
Sent: Wednesday, January 18, 2006 5:11 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] My form has a little problem


Hi all,

I have a form for either creating a new student profile, or editing an 
existing one.  To create a new profile, the user clicks a button that 
opens the student information form in add mode.  To edit an existing 
profile, the user selects the student's name from an unbound combo box, 
and then clicks the button to open the student information form for that 
student in edit mode.

When I first made this little form, it all worked well, but it no longer 
works just right.  If I select a student's name from the combo box, and 
I try to click the button to open the student information fomr, the 
button does not get the focus - it does not respond.  If I wait around 
for a while, eventually the button will let me click it.  If I tab out 
of the combo box, the focus will shift to the the buttons in their 
established tab sequence.  

I remember there have been heated discussions on this list about unbound 
controls.  I am ready to learn - do I have a problem because I'm using 
an unbound control?  

This is what my button does when I can get it clicked:
==========
Private Sub cmdEditExistingStudentProfile_Click()
On Error GoTo Err_cmdEditExistingStudentProfile_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmStudentInformation"
    stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdEditExistingStudentProfile_Click:
    Exit Sub

Err_cmdEditExistingStudentProfile_Click:
    MsgBox Err.Description
    Resume Exit_cmdEditExistingStudentProfile_Click
   
End Sub
===========

Should I be adding an After Update event procedure to my unbound combo 
box - to set the focus on the button to get the student information form?

Thanks for whatever lessons you will send my way.

Tina

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


From wdhindman at bellsouth.net  Thu Jan 19 10:31:26 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 19 Jan 2006 11:31:26 -0500
Subject: [AccessD] My form has a little problem
References: <43CECB09.90602@torchlake.com><009f01c61c8c$be0b2b40$6101a8c0@JISREGISTRATION.local>
	<43CFB95F.4080108@torchlake.com>
Message-ID: <004801c61d15$cb5630e0$6101a8c0@JISREGISTRATION.local>

Tina

...I'm just working off the basis that it was working fine before and you've 
made no changes to the code ...and the symptom is that when selecting a name 
from the combo, it now takes an inordinate amount of time for the process to 
complete ...from your post the problem would appear to be the list selection 
process rather than the command button ...and that implies that a table 
record may be corrupt or possibly an index ...if you've not changed the code 
I would look at the source data for the list first rather than your code 
...delete your indexes and reindex ...if that doesn't work bu your data, 
then empty the source table and fill a few records with dummy data to see if 
that fixes the problem ...then at least you'll know where to look.

...this is working on the assumption that you've already gone the compact, 
repair, and decompile routes without fixing it.

William

----- Original Message ----- 
From: "Tina Norris Fields" <tinanfields at torchlake.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 11:07 AM
Subject: Re: [AccessD] My form has a little problem


> Hello William,
>
> The row source for the combo box is:
> SELECT qselStudentName.StuID, qselStudentName.Name
> FROM qselStudentName
> ORDER BY qselStudentName.StuLname;
>
> The query qselStudentName looks like this:
> SELECT tblStudent.StuID, tblStudent.StuLname, tblStudent.StuFname,
> tblStudent!StuLname & ", " & tblStudent!StuFname AS Name
> FROM tblStudent;
>
> So, from the table tblStudent, I have selected the PK, last name and
> first name, and added a field called Name which chains together the last
> and first names - creating my query qselStudentName.  For the combo box
> I have selected the PK and the Name field, from my query and ordered the
> display by last name.  Do you see something here I have screwed up?
>
> Thanks for looking,
> Tina
>
> William Hindman wrote:
>
>>...sounds more like a problem with the table or query on which the combo 
>>is
>>based.
>>
>>William
>>
>>----- Original Message ----- 
>>From: "Tina Norris Fields" <tinanfields at torchlake.com>
>>To: <accessd at databaseadvisors.com>
>>Sent: Wednesday, January 18, 2006 6:11 PM
>>Subject: [AccessD] My form has a little problem
>>
>>
>>
>>
>>>Hi all,
>>>
>>>I have a form for either creating a new student profile, or editing an
>>>existing one.  To create a new profile, trhe user clicks a button that
>>>opens the student information form in add mode.  To edit an existing
>>>profile, the user selects the student's name from an unbound combo box,
>>>and then clicks the button to open the student information form for that
>>>student in edit mode.
>>>
>>>When I first made this little form, it all worked well, but it no longer
>>>works just right.  If I select a student's name from the combo box, and
>>>I try to click the button to open the student information fomr, the
>>>button does not get the focus - it does not respond.  If I wait around
>>>for a while, eventually the button will let me click it.  If I tab out
>>>of the combo box, the focus will shift to the the buttons in their
>>>established tab sequence.
>>>
>>>I remember there have been heated discussions on this list about unbound
>>>controls.  I am ready to learn - do I have a problem because I'm using
>>>an unbound control?
>>>
>>>This is what my button does when I can get it clicked:
>>>==========
>>>Private Sub cmdEditExistingStudentProfile_Click()
>>>On Error GoTo Err_cmdEditExistingStudentProfile_Click
>>>
>>>   Dim stDocName As String
>>>   Dim stLinkCriteria As String
>>>
>>>   stDocName = "frmStudentInformation"
>>>   stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>>>   DoCmd.OpenForm stDocName, , , stLinkCriteria
>>>
>>>Exit_cmdEditExistingStudentProfile_Click:
>>>   Exit Sub
>>>
>>>Err_cmdEditExistingStudentProfile_Click:
>>>   MsgBox Err.Description
>>>   Resume Exit_cmdEditExistingStudentProfile_Click
>>>
>>>End Sub
>>>===========
>>>
>>>Should I be adding an After Update event procedure to my unbound combo
>>>box - to set the focus on the button to get the student information form?
>>>
>>>Thanks for whatever lessons you will send my way.
>>>
>>>Tina
>>>
>>>-- 
>>>AccessD mailing list
>>>AccessD at databaseadvisors.com
>>>http://databaseadvisors.com/mailman/listinfo/accessd
>>>Website: http://www.databaseadvisors.com
>>>
>>>
>>>
>>
>>
>>
>>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From DWUTKA at marlow.com  Thu Jan 19 10:28:29 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Thu, 19 Jan 2006 10:28:29 -0600
Subject: [AccessD] Read External File for Path String
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD594@main2.marlow.com>

I do that all the time, though it's usually for my VB projects.  I create a
dbpath.dat file, and put it in the same folder as my .exe, so when I go to
connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



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


From tinanfields at torchlake.com  Thu Jan 19 10:35:31 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Thu, 19 Jan 2006 11:35:31 -0500
Subject: [AccessD] My form has a little problem
References: <43CECB09.90602@torchlake.com> <43CEF762.6020609@san.rr.com>
Message-ID: <43CFBFD3.5050002@torchlake.com>

Hi Rocky,

Thanks - that fixed it.  The simple generosity of spirit I find in this 
list always amazes and delights me.  

This next part of my message is OT and personal - but here goes, anyway. 
 A year ago, on January 29, my mother died - she had been dying for some 
long time, slowly, from a vascular demntia that robbed her of her 
ability to think and to act for herself.  We grieve the loss - the long 
term loss and the final loss - and grief is amazing in its ability to 
disrupt.  My father is also in bad shape, because of life-long habits 
that did him great harm, but also because two years ago he fell getting 
down from a speaker's platform - he had just presented an environmental 
excellence award and was descending steps that had no hand-rail.  The 
fall broke his right leg where it goes into the hip joint.  That had to 
be surgically repaired.  As he was convalescing, he had other things go 
wrong - a virulent infection we had a really hard time stopping, for 
example.  By July 12 it was clear something awful was happening - we 
thought it might be stroke - it turned out to be a subdural hematoma 
(blood clot on the brain) - actually two, but only one looked active to 
the neurosurgeon.  Craniotomy on July 14 to save his life.  Well, the 
second one gave us the next two emergencies August 3 and October 2. 
 Since then, he has worked on recovering his strength, learning to walk, 
learning to think, and becoming active again in his passion - clean 
water.  (And, he lost his wife, you may recall).  We have seen his 
valiant effort, and also witnessed his continuing intellectual decline. 
 It is heart-breaking, but also encouraging to see a man keep on trying. 
 Recently, his only sibling, my uncle, was diagnosed with kidney cancer 
- and we are all in the throes of doing the necessary - surgery to 
remove the diseased organ, strategy to heal enough to begin a medication 
regimen to help fight the cancer, which has, of course, metastisized to 
the lungs.  Now, we're struggling with the acculmulation of fluid in the 
pleural space around his lungs - and it looks as though we are  winning 
this round.  The whole family is cheering for him to fight back - and he 
does have a strong, cheerful, optimistic will to live.  I ache for these 
loved ones.  Any of you given to prayers - know that I welcome your 
prayers for my dad Jack Norris, and my uncle Brad Norris..

Thanks for everything,
Tina

Rocky Smolin - Beach Access Software wrote:

>"Should I be adding an After Update event procedure to my unbound combo 
>box - to set the focus on the button to get the student information form? "
>
>That's the first thing I'd try, Tina.
>
>Rocky Smolin
>Beach Access Software
>858-259-4334
>www.e-z-mrp.com
>
>Tina Norris Fields wrote:
>  
>
>>Hi all,
>>
>>I have a form for either creating a new student profile, or editing an 
>>existing one.  To create a new profile, the user clicks a button that 
>>opens the student information form in add mode.  To edit an existing 
>>profile, the user selects the student's name from an unbound combo box, 
>>and then clicks the button to open the student information form for that 
>>student in edit mode.
>>
>>When I first made this little form, it all worked well, but it no longer 
>>works just right.  If I select a student's name from the combo box, and 
>>I try to click the button to open the student information fomr, the 
>>button does not get the focus - it does not respond.  If I wait around 
>>for a while, eventually the button will let me click it.  If I tab out 
>>of the combo box, the focus will shift to the the buttons in their 
>>established tab sequence.  
>>
>>I remember there have been heated discussions on this list about unbound 
>>controls.  I am ready to learn - do I have a problem because I'm using 
>>an unbound control?  
>>
>>This is what my button does when I can get it clicked:
>>==========
>>Private Sub cmdEditExistingStudentProfile_Click()
>>On Error GoTo Err_cmdEditExistingStudentProfile_Click
>>
>>    Dim stDocName As String
>>    Dim stLinkCriteria As String
>>
>>    stDocName = "frmStudentInformation"
>>    stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>>    DoCmd.OpenForm stDocName, , , stLinkCriteria
>>
>>Exit_cmdEditExistingStudentProfile_Click:
>>    Exit Sub
>>
>>Err_cmdEditExistingStudentProfile_Click:
>>    MsgBox Err.Description
>>    Resume Exit_cmdEditExistingStudentProfile_Click
>>   
>>End Sub
>>===========
>>
>>Should I be adding an After Update event procedure to my unbound combo 
>>box - to set the focus on the button to get the student information form?
>>
>>Thanks for whatever lessons you will send my way.
>>
>>Tina
>>
>>  
>>    
>>
>
>  
>




From DWUTKA at marlow.com  Thu Jan 19 10:33:02 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Thu, 19 Jan 2006 10:33:02 -0600
Subject: [AccessD] Access security?
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD595@main2.marlow.com>

Yes, create a new .mdw.  Join it.  Create the Admin user using the same PIN
code.  Open Access, put in the Admin user name (the password will start
blank, but that is okay), and then open your database.  The .mdb only stores
what the account has permission too, not what the password or user name is.
It gets a 'hash', which is generated by the User Name and the PIN you put in
when you create the account.  So recreating it in another .mdw should work
just fine.

Drew

-----Original Message-----
From: Sad Der [mailto:accessd666 at yahoo.com]
Sent: Thursday, January 19, 2006 4:43 AM
To: Acces User Group
Subject: [AccessD] Access security?


Hi group,

Murphy came along, big time!! 

The administrator of an Access database I created back
in 2002 passed away and nobody knows anything about
the users/passwords stuff.

However in my documentation (!! I CREATED
DOCUMENTATION !! GO FIGURE) I saw that I written down
the adminuser + pincode!!!!!

Can I do anything with that?
I really need to get in.

Tia

Sander

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From DWUTKA at marlow.com  Thu Jan 19 10:33:48 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Thu, 19 Jan 2006 10:33:48 -0600
Subject: [AccessD] ...close open forms
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD596@main2.marlow.com>

Just curious, is this for the project with the Hidden Access functionality?

Drew

-----Original Message-----
From: William Hindman [mailto:wdhindman at bellsouth.net]
Sent: Thursday, January 19, 2006 6:32 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] ...close open forms


Gustav, Don, Lambert, Shamil, et al

...thanks to all who responded ...four different solutions all of which 
worked in different ways.
...why do I love AccessD? ...let me count the ways! :)

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 4:42 AM
Subject: Re: [AccessD] ...close open forms


> Hi William
>
> OK, then adjust to skip the last opened (the opening) form:
>
> ' Close all forms except the first and last opened form.
>  For lngF = Forms.Count - 2 To 1 Step -1
>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>  Next
>
> /gustav
>
>>>> wdhindman at bellsouth.net 18-01-2006 23:15:07 >>>
> Gustav
>
> ...thanks ...wish it was that easy ...it does what you say but not what I
> need :(
>
> ...probably didn't explain it well enough ...it happens :)
>
> ...two or more forms open including the switchboard ...need it to close
> everything BUT the swb AND the opening form.
>
> ...your code ...in the on open event of opening form ...closes all but the
> swb ...including the opening form.
>
> ...suggestions welcome.
>
> William
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Wednesday, January 18, 2006 9:22 AM
> Subject: Re: [AccessD] ...close open forms
>
>
>> Hi William
>>
>> How about:
>>
>>  ' Close all forms except this first opened form.
>>  For lngF = Forms.Count - 1 To 1 Step -1
>>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>>  Next
>>
>> /gustav
>>
>>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
>> ...I need to close any open forms ...other than designated forms ...and
>> save
>> their data ...before opening a called form ...from the called form.
>>
>> ...ie call a form open from a switchboard ...the called form checks for
>> any
>> other forms open, other than the sb, and closes them, saving their data,
>> before it opens.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 


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


From DWUTKA at marlow.com  Thu Jan 19 10:35:31 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Thu, 19 Jan 2006 10:35:31 -0600
Subject: [AccessD] My form has a little problem
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD597@main2.marlow.com>

I'm curious, why have the combobox query a query, instead of simply
querrying the table?  That's an extra step...

Drew

-----Original Message-----
From: Tina Norris Fields [mailto:tinanfields at torchlake.com]
Sent: Thursday, January 19, 2006 10:08 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] My form has a little problem


Hello William,

The row source for the combo box is:
SELECT qselStudentName.StuID, qselStudentName.Name
FROM qselStudentName
ORDER BY qselStudentName.StuLname;

The query qselStudentName looks like this:
SELECT tblStudent.StuID, tblStudent.StuLname, tblStudent.StuFname, 
tblStudent!StuLname & ", " & tblStudent!StuFname AS Name
FROM tblStudent;

So, from the table tblStudent, I have selected the PK, last name and 
first name, and added a field called Name which chains together the last 
and first names - creating my query qselStudentName.  For the combo box 
I have selected the PK and the Name field, from my query and ordered the 
display by last name.  Do you see something here I have screwed up?

Thanks for looking,
Tina

William Hindman wrote:

>...sounds more like a problem with the table or query on which the combo is

>based.
>
>William
>
>----- Original Message ----- 
>From: "Tina Norris Fields" <tinanfields at torchlake.com>
>To: <accessd at databaseadvisors.com>
>Sent: Wednesday, January 18, 2006 6:11 PM
>Subject: [AccessD] My form has a little problem
>
>
>  
>
>>Hi all,
>>
>>I have a form for either creating a new student profile, or editing an
>>existing one.  To create a new profile, trhe user clicks a button that
>>opens the student information form in add mode.  To edit an existing
>>profile, the user selects the student's name from an unbound combo box,
>>and then clicks the button to open the student information form for that
>>student in edit mode.
>>
>>When I first made this little form, it all worked well, but it no longer
>>works just right.  If I select a student's name from the combo box, and
>>I try to click the button to open the student information fomr, the
>>button does not get the focus - it does not respond.  If I wait around
>>for a while, eventually the button will let me click it.  If I tab out
>>of the combo box, the focus will shift to the the buttons in their
>>established tab sequence.
>>
>>I remember there have been heated discussions on this list about unbound
>>controls.  I am ready to learn - do I have a problem because I'm using
>>an unbound control?
>>
>>This is what my button does when I can get it clicked:
>>==========
>>Private Sub cmdEditExistingStudentProfile_Click()
>>On Error GoTo Err_cmdEditExistingStudentProfile_Click
>>
>>   Dim stDocName As String
>>   Dim stLinkCriteria As String
>>
>>   stDocName = "frmStudentInformation"
>>   stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>>   DoCmd.OpenForm stDocName, , , stLinkCriteria
>>
>>Exit_cmdEditExistingStudentProfile_Click:
>>   Exit Sub
>>
>>Err_cmdEditExistingStudentProfile_Click:
>>   MsgBox Err.Description
>>   Resume Exit_cmdEditExistingStudentProfile_Click
>>
>>End Sub
>>===========
>>
>>Should I be adding an After Update event procedure to my unbound combo
>>box - to set the focus on the button to get the student information form?
>>
>>Thanks for whatever lessons you will send my way.
>>
>>Tina
>>
>>-- 
>>AccessD mailing list
>>AccessD at databaseadvisors.com
>>http://databaseadvisors.com/mailman/listinfo/accessd
>>Website: http://www.databaseadvisors.com
>>
>>    
>>
>
>
>  
>


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


From dwaters at usinternet.com  Thu Jan 19 10:44:52 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Thu, 19 Jan 2006 10:44:52 -0600
Subject: [AccessD] Read External File for Path String
In-Reply-To: <24486303.1137688620022.JavaMail.root@sniper22>
Message-ID: <000501c61d17$abe36e60$0200a8c0@danwaters>

Hi Drew!

I assume you can create the dbpath.dat file by starting with a text file?

What code do you use to read from the dbpath.dat file?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 10:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

I do that all the time, though it's usually for my VB projects.  I create a
dbpath.dat file, and put it in the same folder as my .exe, so when I go to
connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



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



From bchacc at san.rr.com  Thu Jan 19 10:54:41 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Thu, 19 Jan 2006 08:54:41 -0800
Subject: [AccessD] My form has a little problem
In-Reply-To: <43CFBFD3.5050002@torchlake.com>
References: <43CECB09.90602@torchlake.com> <43CEF762.6020609@san.rr.com>
	<43CFBFD3.5050002@torchlake.com>
Message-ID: <43CFC451.1010706@san.rr.com>

Tina:

I understand.  My father died two years ago.  But he was almost 88.  So 
he had a good run, but that doesn't make any difference in the 
difficulty of the process.  It wasn't quick for him, either.  couple of 
years of very bad health. 

We are contemporaries, I assume, so we see more and more of our friends 
are going through this. It's inevitable and unstoppable.  I guess we 
just have to accept it.  It's hard to see the people we love decline 
especially our parents.  We'll keep you in our thoughts and hope that 
there are some bright moments among the sadness.

Rocky


Tina Norris Fields wrote:
> Hi Rocky,
>
> Thanks - that fixed it.  The simple generosity of spirit I find in this 
> list always amazes and delights me.  
>
> This next part of my message is OT and personal - but here goes, anyway. 
>  A year ago, on January 29, my mother died - she had been dying for some 
> long time, slowly, from a vascular demntia that robbed her of her 
> ability to think and to act for herself.  We grieve the loss - the long 
> term loss and the final loss - and grief is amazing in its ability to 
> disrupt.  My father is also in bad shape, because of life-long habits 
> that did him great harm, but also because two years ago he fell getting 
> down from a speaker's platform - he had just presented an environmental 
> excellence award and was descending steps that had no hand-rail.  The 
> fall broke his right leg where it goes into the hip joint.  That had to 
> be surgically repaired.  As he was convalescing, he had other things go 
> wrong - a virulent infection we had a really hard time stopping, for 
> example.  By July 12 it was clear something awful was happening - we 
> thought it might be stroke - it turned out to be a subdural hematoma 
> (blood clot on the brain) - actually two, but only one looked active to 
> the neurosurgeon.  Craniotomy on July 14 to save his life.  Well, the 
> second one gave us the next two emergencies August 3 and October 2. 
>  Since then, he has worked on recovering his strength, learning to walk, 
> learning to think, and becoming active again in his passion - clean 
> water.  (And, he lost his wife, you may recall).  We have seen his 
> valiant effort, and also witnessed his continuing intellectual decline. 
>  It is heart-breaking, but also encouraging to see a man keep on trying. 
>  Recently, his only sibling, my uncle, was diagnosed with kidney cancer 
> - and we are all in the throes of doing the necessary - surgery to 
> remove the diseased organ, strategy to heal enough to begin a medication 
> regimen to help fight the cancer, which has, of course, metastisized to 
> the lungs.  Now, we're struggling with the acculmulation of fluid in the 
> pleural space around his lungs - and it looks as though we are  winning 
> this round.  The whole family is cheering for him to fight back - and he 
> does have a strong, cheerful, optimistic will to live.  I ache for these 
> loved ones.  Any of you given to prayers - know that I welcome your 
> prayers for my dad Jack Norris, and my uncle Brad Norris..
>
> Thanks for everything,
> Tina
>
> Rocky Smolin - Beach Access Software wrote:
>
>   
>> "Should I be adding an After Update event procedure to my unbound combo 
>> box - to set the focus on the button to get the student information form? "
>>
>> That's the first thing I'd try, Tina.
>>
>> Rocky Smolin
>> Beach Access Software
>> 858-259-4334
>> www.e-z-mrp.com
>>
>> Tina Norris Fields wrote:
>>  
>>
>>     
>>> Hi all,
>>>
>>> I have a form for either creating a new student profile, or editing an 
>>> existing one.  To create a new profile, the user clicks a button that 
>>> opens the student information form in add mode.  To edit an existing 
>>> profile, the user selects the student's name from an unbound combo box, 
>>> and then clicks the button to open the student information form for that 
>>> student in edit mode.
>>>
>>> When I first made this little form, it all worked well, but it no longer 
>>> works just right.  If I select a student's name from the combo box, and 
>>> I try to click the button to open the student information fomr, the 
>>> button does not get the focus - it does not respond.  If I wait around 
>>> for a while, eventually the button will let me click it.  If I tab out 
>>> of the combo box, the focus will shift to the the buttons in their 
>>> established tab sequence.  
>>>
>>> I remember there have been heated discussions on this list about unbound 
>>> controls.  I am ready to learn - do I have a problem because I'm using 
>>> an unbound control?  
>>>
>>> This is what my button does when I can get it clicked:
>>> ==========
>>> Private Sub cmdEditExistingStudentProfile_Click()
>>> On Error GoTo Err_cmdEditExistingStudentProfile_Click
>>>
>>>    Dim stDocName As String
>>>    Dim stLinkCriteria As String
>>>
>>>    stDocName = "frmStudentInformation"
>>>    stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>>>    DoCmd.OpenForm stDocName, , , stLinkCriteria
>>>
>>> Exit_cmdEditExistingStudentProfile_Click:
>>>    Exit Sub
>>>
>>> Err_cmdEditExistingStudentProfile_Click:
>>>    MsgBox Err.Description
>>>    Resume Exit_cmdEditExistingStudentProfile_Click
>>>   
>>> End Sub
>>> ===========
>>>
>>> Should I be adding an After Update event procedure to my unbound combo 
>>> box - to set the focus on the button to get the student information form?
>>>
>>> Thanks for whatever lessons you will send my way.
>>>
>>> Tina
>>>
>>>  
>>>    
>>>
>>>       
>>  
>>
>>     
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From jwcolby at ColbyConsulting.com  Thu Jan 19 11:14:42 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 19 Jan 2006 12:14:42 -0500
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <005101c61d1b$d7467800$647aa8c0@ColbyM6805>

Does anyone know the syntax in an SQL statement for seeing a named range in
an excel spreadsheet?

I have a spreadsheet DocumentRequestTemplate.xls, which has a sheet
xlsReqForDocuments which has a named range Sec_DocWithHdr, Sec_DocNoHdr etc.

I assume that the syntax would look something like 

SELECT * from SEC_DocWithHdr IN DocumentRequestTemplate.xls

Doing this gets me "unrecognized database format" however.

Anyone know what the real answer is?

John W. Colby
www.ColbyConsulting.com 




From artful at rogers.com  Thu Jan 19 11:20:44 2006
From: artful at rogers.com (Arthur Fuller)
Date: Thu, 19 Jan 2006 12:20:44 -0500
Subject: [AccessD] Default font for forms etc.
Message-ID: <097801c61d1c$ae5650e0$8e01a8c0@rock>

Where can I instruct Access to change the default font from Arial 8 to Arial
10 (or something else)? I have wandered through the Options dialog and
cannot find this setting. I have need to change this to Arial 10 at least
and have it affect every form I create.
TIA,
Arthur
 




From Donald.A.McGillivray at sprint.com  Thu Jan 19 11:27:57 2006
From: Donald.A.McGillivray at sprint.com (Mcgillivray, Don [IT])
Date: Thu, 19 Jan 2006 11:27:57 -0600
Subject: [AccessD] Scheduling Application - Changing Sort Order
	ofIndividual Items
Message-ID: <EC829B33DF5B5B48A956B7A2E894AA9A03F994EC@PLSWB06C.ad.sprint.com>

Larry,

I have something that may get you where you need to go.  I'm sure that by the standards of many listers it's a bit kludgey, but it works in the context where I need it.  I can send you a small sample DB off list with a couple of tables and a form that demonstrates my solution.

Don

-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lawrence Mrazek
Sent: Thursday, January 19, 2006 7:50 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Scheduling Application - Changing Sort Order ofIndividual Items

Hi:

I'm in the process of adapting a scheduling program for a manufacturer to Access (they currently do this in Excel).

Basically, the application will have a list of products on a form, and the user must be able to move the individual products up and down in the sort order via drag and drop or button click. Is this possible in Access?

ProductName?????????Scheduled Order
Widget 1????????????????1st
Widget 3????????????????2nd
Widget 5????????????????3rd
Widget 8????????????????4th

For example, I need to be able to quickly move Widget 8 to 2nd, and have Widget 3 and Widget 5 automatically slide down to 3rd and 4th respectively.

Thanks in advance.

Larry Mrazek
lmrazek at lcm-res.com
http://www.lcm-res.com/

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




From jmhecht at earthlink.net  Thu Jan 19 11:29:56 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 19 Jan 2006 09:29:56 -0800
Subject: [AccessD] Default font for forms etc.
In-Reply-To: <097801c61d1c$ae5650e0$8e01a8c0@rock>
Message-ID: <001401c61d1d$f79fcd20$6701a8c0@HPLaptop>

Arthur,

I do not recall how to get to it but you are looking for
information on "Normal Form" Edit that to your needs and
save it.

All new forms are based on this.  Same for reports.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Arthur Fuller
Sent: Thursday, January 19, 2006 9:21 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Default font for forms etc.

Where can I instruct Access to change the default font from
Arial 8 to Arial
10 (or something else)? I have wandered through the Options
dialog and
cannot find this setting. I have need to change this to
Arial 10 at least
and have it affect every form I create.
TIA,
Arthur
 


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



From Gustav at cactus.dk  Thu Jan 19 11:44:06 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 19 Jan 2006 18:44:06 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3cfde07.077@cactus.dk>

Hi John

You miss the Excel header. Two options exist:

 SELECT
    NameOfField1,
    NameOfField2
  FROM
    [Range] AS T IN '' [Excel 5.0;DATABASE=c:\windows\temp\some.xls;];

In the second syntax the trick is the brackets. They can be omitted in this example but are mandatory if you deal with filenames containing spaces.

This should be changed to:

  SELECT
    NameOfFiels1,
    NameOfField2
  FROM
    [Excel 5.0;DATABASE=c:\windows\temp\some.xls;HDR=YES].[Range] AS T;


>>> jwcolby at ColbyConsulting.com 19-01-2006 18:14:42 >>>
Does anyone know the syntax in an SQL statement for seeing a named range in
an excel spreadsheet?

I have a spreadsheet DocumentRequestTemplate.xls, which has a sheet
xlsReqForDocuments which has a named range Sec_DocWithHdr, Sec_DocNoHdr etc.

I assume that the syntax would look something like 

SELECT * from SEC_DocWithHdr IN DocumentRequestTemplate.xls

Doing this gets me "unrecognized database format" however.

Anyone know what the real answer is?

John W. Colby
www.ColbyConsulting.com 




From accessd at shaw.ca  Thu Jan 19 11:43:55 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Thu, 19 Jan 2006 09:43:55 -0800
Subject: [AccessD] Source Code Control
In-Reply-To: <003901c61cfa$cbae7e50$6501a8c0@fincomplex.spb.ru>
Message-ID: <000c01c61d1f$eb776560$017ba8c0@xpserver>

Hi Shamil:

I do not know. I went to an intro session on the product and after an hour
of listening to the apps features and capabilities I realized it was far
beyond anything I or small (medium?) company would ever need so did not
investigate it further. (I have a full unlimited legal copy of TeamServer
but would have to re-build my server to get it installed, so there it sits.)

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: January 19, 2006 5:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control

Hi Jim,

And TeamServer uses VSS Server - Yes/No?

Shamil

----- Original Message ----- 
From: "Jim Lawrence" <accessd at shaw.ca>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 3:11 PM
Subject: Re: [AccessD] Source Code Control


> Hi Shamil:
>
> MS uses TeamServer for all their projects.
>
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> Salakhetdinov
> Sent: January 18, 2006 11:57 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Source Code Control
>
> > I mean, honestly, it works for a little side project
> Josh,
>
> I guess MS uses VSS by themselves ...
>
> I did use VSS in a huge MSVC++ project of my colleague with thouzands of
> source files and a half of a hundred projects - it worked well, no
problems
> at all...
>
> I think most of the "horror stories" about VSS are in the past now.
>
> Yes, I liked SubVersion for the features you describe and because it's
open
> source...
>
> If there is no need in these SubVersion features then VSS looks good
enough
> and stable.
>
> Shamil
>
> ----- Original Message ----- 
> From: "Josh McFarlane" <darsant at gmail.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 19, 2006 7:22 AM
> Subject: Re: [AccessD] Source Code Control
>
>
> > On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> > > I haven't used SourceSafe in Access personally, only C++ projects. I
> > > find it interesting that they've worked out code to diff Access DBs,
> > > but cannot make it compatible with Word for diffing.
> > >
> > > Granted, everything can be corrupt, but source-safe has a very very
> > > bad track record with corruption, even on simple things. I can't find
> > > the link now, but once I hit my work computer I'll post it.
> > >
> > > When it's all said and done, I still prefer a stability and safety
> > > over easy integration with Office / Visual Studio.
> >
> > OK, looked a little more into this, and supposedly if you run their
> > analyze.exe tool at least weekly, it will drastically reduce the
> > "fail" corruption rate (as it fixes the small corruptions before they
> > propigate).
> >
> > Some other interesting things that I hadn't heard before:
> >
> > Large binary files often had to have their version history cleared with
> 3.1
> >
> > File locks were frequently left behind and had to be manually removed.
> >
> > Then there's the dreaded \data\a\aaaaaaaa.a error message that
> > everyone seems to end up dealing with (For some reason, I swear there
> > was a KB article dealing with all the possible ways this could pop up,
> > but I can't find it)
> >
> > Also, if you delete a file, and then later recreate a file with the
> > same name, the previous file history is gone forever (You can't check
> > out previous complete builds anymore)
> >
> > I mean, honestly, it works for a little side project, but for anything
> > a business is depending on, I don't trust my weight on it when there's
> > free open-source products out there that do much much better in terms
> > of both reliability and interface.
> >
> > --
> > Josh McFarlane
> >
> > "Peace cannot be kept by force. It can only be achieved by
understanding."
> > -Albert Einstein
> > -- 

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



From accessd at shaw.ca  Thu Jan 19 11:59:06 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Thu, 19 Jan 2006 09:59:06 -0800
Subject: [AccessD] My form has a little problem
In-Reply-To: <43CFBFD3.5050002@torchlake.com>
Message-ID: <000d01c61d22$0a619a20$017ba8c0@xpserver>

Tina:

My prayers go out to you.... I know where you are coming from having lost
two parents, a father-in-law, an aunt, an uncle and three close friends in
quick secession (a warning to you fanatic programmers out there to lay off
the all-nighters, coke, coffee, potato chips and smokes). These will be very
tough times for you and five years seems like yesterday,

Best Regards
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris
Fields
Sent: January 19, 2006 8:36 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] My form has a little problem

Hi Rocky,

Thanks - that fixed it.  The simple generosity of spirit I find in this 
list always amazes and delights me.  

This next part of my message is OT and personal - but here goes, anyway. 
 A year ago, on January 29, my mother died - she had been dying for some 
long time, slowly, from a vascular demntia that robbed her of her 
ability to think and to act for herself.  We grieve the loss - the long 
term loss and the final loss - and grief is amazing in its ability to 
disrupt.  My father is also in bad shape, because of life-long habits 
that did him great harm, but also because two years ago he fell getting 
down from a speaker's platform - he had just presented an environmental 
excellence award and was descending steps that had no hand-rail.  The 
fall broke his right leg where it goes into the hip joint.  That had to 
be surgically repaired.  As he was convalescing, he had other things go 
wrong - a virulent infection we had a really hard time stopping, for 
example.  By July 12 it was clear something awful was happening - we 
thought it might be stroke - it turned out to be a subdural hematoma 
(blood clot on the brain) - actually two, but only one looked active to 
the neurosurgeon.  Craniotomy on July 14 to save his life.  Well, the 
second one gave us the next two emergencies August 3 and October 2. 
 Since then, he has worked on recovering his strength, learning to walk, 
learning to think, and becoming active again in his passion - clean 
water.  (And, he lost his wife, you may recall).  We have seen his 
valiant effort, and also witnessed his continuing intellectual decline. 
 It is heart-breaking, but also encouraging to see a man keep on trying. 
 Recently, his only sibling, my uncle, was diagnosed with kidney cancer 
- and we are all in the throes of doing the necessary - surgery to 
remove the diseased organ, strategy to heal enough to begin a medication 
regimen to help fight the cancer, which has, of course, metastisized to 
the lungs.  Now, we're struggling with the acculmulation of fluid in the 
pleural space around his lungs - and it looks as though we are  winning 
this round.  The whole family is cheering for him to fight back - and he 
does have a strong, cheerful, optimistic will to live.  I ache for these 
loved ones.  Any of you given to prayers - know that I welcome your 
prayers for my dad Jack Norris, and my uncle Brad Norris..

Thanks for everything,
Tina

Rocky Smolin - Beach Access Software wrote:

>"Should I be adding an After Update event procedure to my unbound combo 
>box - to set the focus on the button to get the student information form? "
>
>That's the first thing I'd try, Tina.
>
>Rocky Smolin
>Beach Access Software
>858-259-4334
>www.e-z-mrp.com
>
>Tina Norris Fields wrote:
>  
>
>>Hi all,
>>
>>I have a form for either creating a new student profile, or editing an 
>>existing one.  To create a new profile, the user clicks a button that 
>>opens the student information form in add mode.  To edit an existing 
>>profile, the user selects the student's name from an unbound combo box, 
>>and then clicks the button to open the student information form for that 
>>student in edit mode.
>>
>>When I first made this little form, it all worked well, but it no longer 
>>works just right.  If I select a student's name from the combo box, and 
>>I try to click the button to open the student information fomr, the 
>>button does not get the focus - it does not respond.  If I wait around 
>>for a while, eventually the button will let me click it.  If I tab out 
>>of the combo box, the focus will shift to the the buttons in their 
>>established tab sequence.  
>>
>>I remember there have been heated discussions on this list about unbound 
>>controls.  I am ready to learn - do I have a problem because I'm using 
>>an unbound control?  
>>
>>This is what my button does when I can get it clicked:
>>==========
>>Private Sub cmdEditExistingStudentProfile_Click()
>>On Error GoTo Err_cmdEditExistingStudentProfile_Click
>>
>>    Dim stDocName As String
>>    Dim stLinkCriteria As String
>>
>>    stDocName = "frmStudentInformation"
>>    stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>>    DoCmd.OpenForm stDocName, , , stLinkCriteria
>>
>>Exit_cmdEditExistingStudentProfile_Click:
>>    Exit Sub
>>
>>Err_cmdEditExistingStudentProfile_Click:
>>    MsgBox Err.Description
>>    Resume Exit_cmdEditExistingStudentProfile_Click
>>   
>>End Sub
>>===========
>>
>>Should I be adding an After Update event procedure to my unbound combo 
>>box - to set the focus on the button to get the student information form?
>>
>>Thanks for whatever lessons you will send my way.
>>
>>Tina
>>
>>  
>>    
>>
>
>  
>


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



From jwelz at hotmail.com  Thu Jan 19 12:14:21 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Thu, 19 Jan 2006 11:14:21 -0700
Subject: [AccessD] My form has a little problem
In-Reply-To: <43CFB95F.4080108@torchlake.com>
Message-ID: <BAY113-F6AFA8EDCE0EE11716125BA11C0@phx.gbl>

Your alias 'Name' for the concatenated fields in the query is questionable 
practice that may lead to unpredictable results.



Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: Tina Norris Fields <tinanfields at torchlake.com>
>
>Hello William,
>
>The row source for the combo box is:
>SELECT qselStudentName.StuID, qselStudentName.Name
>FROM qselStudentName
>ORDER BY qselStudentName.StuLname;
>
>The query qselStudentName looks like this:
>SELECT tblStudent.StuID, tblStudent.StuLname, tblStudent.StuFname,
>tblStudent!StuLname & ", " & tblStudent!StuFname AS Name
>FROM tblStudent;
>
>So, from the table tblStudent, I have selected the PK, last name and
>first name, and added a field called Name which chains together the last
>and first names - creating my query qselStudentName.  For the combo box
>I have selected the PK and the Name field, from my query and ordered the
>display by last name.  Do you see something here I have screwed up?
>
>Thanks for looking,
>Tina
>
>William Hindman wrote:
>
> >...sounds more like a problem with the table or query on which the combo 
>is
> >based.
> >
> >William
> >
> >----- Original Message -----
> >From: "Tina Norris Fields" <tinanfields at torchlake.com>
> >To: <accessd at databaseadvisors.com>
> >Sent: Wednesday, January 18, 2006 6:11 PM
> >Subject: [AccessD] My form has a little problem
> >
> >
> >
> >
> >>Hi all,
> >>
> >>I have a form for either creating a new student profile, or editing an
> >>existing one.  To create a new profile, trhe user clicks a button that
> >>opens the student information form in add mode.  To edit an existing
> >>profile, the user selects the student's name from an unbound combo box,
> >>and then clicks the button to open the student information form for that
> >>student in edit mode.
> >>
> >>When I first made this little form, it all worked well, but it no longer
> >>works just right.  If I select a student's name from the combo box, and
> >>I try to click the button to open the student information fomr, the
> >>button does not get the focus - it does not respond.  If I wait around
> >>for a while, eventually the button will let me click it.  If I tab out
> >>of the combo box, the focus will shift to the the buttons in their
> >>established tab sequence.
> >>
> >>I remember there have been heated discussions on this list about unbound
> >>controls.  I am ready to learn - do I have a problem because I'm using
> >>an unbound control?
> >>
> >>This is what my button does when I can get it clicked:
> >>==========
> >>Private Sub cmdEditExistingStudentProfile_Click()
> >>On Error GoTo Err_cmdEditExistingStudentProfile_Click
> >>
> >>   Dim stDocName As String
> >>   Dim stLinkCriteria As String
> >>
> >>   stDocName = "frmStudentInformation"
> >>   stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
> >>   DoCmd.OpenForm stDocName, , , stLinkCriteria
> >>
> >>Exit_cmdEditExistingStudentProfile_Click:
> >>   Exit Sub
> >>
> >>Err_cmdEditExistingStudentProfile_Click:
> >>   MsgBox Err.Description
> >>   Resume Exit_cmdEditExistingStudentProfile_Click
> >>
> >>End Sub
> >>===========
> >>
> >>Should I be adding an After Update event procedure to my unbound combo
> >>box - to set the focus on the button to get the student information 
>form?
> >>
> >>Thanks for whatever lessons you will send my way.
> >>
> >>Tina




From DWUTKA at marlow.com  Thu Jan 19 12:12:58 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Thu, 19 Jan 2006 12:12:58 -0600
Subject: [AccessD] Read External File for Path String
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD59C@main2.marlow.com>

Dim f as Long
dim strTemp as string
f=freefile
Open App.Path & "\dbpath.dat" for binary access read as f
strtemp=space(lof(f))
get f,,strtemp
close f


Now strTemp is the contents of dbpath.dat

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 10:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Hi Drew!

I assume you can create the dbpath.dat file by starting with a text file?

What code do you use to read from the dbpath.dat file?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 10:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

I do that all the time, though it's usually for my VB projects.  I create a
dbpath.dat file, and put it in the same folder as my .exe, so when I go to
connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



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

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


From jwcolby at ColbyConsulting.com  Thu Jan 19 12:33:21 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 19 Jan 2006 13:33:21 -0500
Subject: [AccessD] Syntax for seeing named range in excel
In-Reply-To: <s3cfde07.077@cactus.dk>
Message-ID: <005901c61d26$d38ffeb0$647aa8c0@ColbyM6805>

Gustav,

Which is why you're one of my heroes.

Syntax 2 works, I couldn't get syntax one to work, though now I might be
able to.

The final SQL (after Access rearranged it) was:

"SELECT ['T'].Section, ['T'].DocName, ['T'].EFA, ['T'].PCDT, ['T'].DSL,
['T'].CRF, ['T'].[UseDocNo] FROM [Excel
5.0;DATABASE=X:\DocumentRequestTemplate.xls].SecDocWithHdr AS ['T'];" 

I was wondering what the heck T was for until I saw the rearranged version.

Thanks again.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 19, 2006 12:44 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

You miss the Excel header. Two options exist:

 SELECT
    NameOfField1,
    NameOfField2
  FROM
    [Range] AS T IN '' [Excel 5.0;DATABASE=c:\windows\temp\some.xls;];

In the second syntax the trick is the brackets. They can be omitted in this
example but are mandatory if you deal with filenames containing spaces.

This should be changed to:

  SELECT
    NameOfFiels1,
    NameOfField2
  FROM
    [Excel 5.0;DATABASE=c:\windows\temp\some.xls;HDR=YES].[Range] AS T;


>>> jwcolby at ColbyConsulting.com 19-01-2006 18:14:42 >>>
Does anyone know the syntax in an SQL statement for seeing a named range in
an excel spreadsheet?

I have a spreadsheet DocumentRequestTemplate.xls, which has a sheet
xlsReqForDocuments which has a named range Sec_DocWithHdr, Sec_DocNoHdr etc.

I assume that the syntax would look something like 

SELECT * from SEC_DocWithHdr IN DocumentRequestTemplate.xls

Doing this gets me "unrecognized database format" however.

Anyone know what the real answer is?

John W. Colby
www.ColbyConsulting.com 


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



From martyconnelly at shaw.ca  Thu Jan 19 12:39:34 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Thu, 19 Jan 2006 10:39:34 -0800
Subject: [AccessD] Scheduling Application - Changing Sort
	Order	ofIndividual Items
References: <EC829B33DF5B5B48A956B7A2E894AA9A03F994EC@PLSWB06C.ad.sprint.com>
Message-ID: <43CFDCE6.3010502@shaw.ca>

This Drag and Drop method should get you halfway there
http://support.microsoft.com/kb/287642/en-us

see also in frmsmp97.mdb
Simulating Drag n Drop Form --- Example 2 form

ACC97: Microsoft Access 97 Sample Forms Available in Download Center
http://support.microsoft.com/?scid=http%3a%2f%2fwww.support.microsoft.com%2fkb%2f175066%2fen-us%2f

Mcgillivray, Don [IT] wrote:

>Larry,
>
>I have something that may get you where you need to go.  I'm sure that by the standards of many listers it's a bit kludgey, but it works in the context where I need it.  I can send you a small sample DB off list with a couple of tables and a form that demonstrates my solution.
>
>Don
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lawrence Mrazek
>Sent: Thursday, January 19, 2006 7:50 AM
>To: accessd at databaseadvisors.com
>Subject: [AccessD] Scheduling Application - Changing Sort Order ofIndividual Items
>
>Hi:
>
>I'm in the process of adapting a scheduling program for a manufacturer to Access (they currently do this in Excel).
>
>Basically, the application will have a list of products on a form, and the user must be able to move the individual products up and down in the sort order via drag and drop or button click. Is this possible in Access?
>
>ProductName         Scheduled Order
>Widget 1                1st
>Widget 3                2nd
>Widget 5                3rd
>Widget 8                4th
>
>For example, I need to be able to quickly move Widget 8 to 2nd, and have Widget 3 and Widget 5 automatically slide down to 3rd and 4th respectively.
>
>Thanks in advance.
>
>Larry Mrazek
>lmrazek at lcm-res.com
>http://www.lcm-res.com/
>
> 
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From martyconnelly at shaw.ca  Thu Jan 19 12:44:36 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Thu, 19 Jan 2006 10:44:36 -0800
Subject: [AccessD] Scheduling Application - Changing Sort
	Order	ofIndividual Items
References: <EC829B33DF5B5B48A956B7A2E894AA9A03F994EC@PLSWB06C.ad.sprint.com>
Message-ID: <43CFDE14.8060406@shaw.ca>

Ahh I knew I had seen a $25 solution from Peter's Software it also 
handles sort reordering
http://www.peterssoftware.com/dd.htm


Mcgillivray, Don [IT] wrote:

>Larry,
>
>I have something that may get you where you need to go.  I'm sure that by the standards of many listers it's a bit kludgey, but it works in the context where I need it.  I can send you a small sample DB off list with a couple of tables and a form that demonstrates my solution.
>
>Don
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lawrence Mrazek
>Sent: Thursday, January 19, 2006 7:50 AM
>To: accessd at databaseadvisors.com
>Subject: [AccessD] Scheduling Application - Changing Sort Order ofIndividual Items
>
>Hi:
>
>I'm in the process of adapting a scheduling program for a manufacturer to Access (they currently do this in Excel).
>
>Basically, the application will have a list of products on a form, and the user must be able to move the individual products up and down in the sort order via drag and drop or button click. Is this possible in Access?
>
>ProductName         Scheduled Order
>Widget 1                1st
>Widget 3                2nd
>Widget 5                3rd
>Widget 8                4th
>
>For example, I need to be able to quickly move Widget 8 to 2nd, and have Widget 3 and Widget 5 automatically slide down to 3rd and 4th respectively.
>
>Thanks in advance.
>
>Larry Mrazek
>lmrazek at lcm-res.com
>http://www.lcm-res.com/
>
> 
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From shamil at users.mns.ru  Thu Jan 19 12:53:13 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 19 Jan 2006 21:53:13 +0300
Subject: [AccessD] Source Code Control
References: <000c01c61d1f$eb776560$017ba8c0@xpserver>
Message-ID: <007e01c61d29$9c193480$6501a8c0@fincomplex.spb.ru>

OK, I did check the Source Control options for VS.NET 2005 - there are at
least two proposed by MS:

1. "Good" old VSS - it's improved, has remote Web access and it's called
VSS2005 now - relatively inexpensive option.
2. TeamSystem SS based on MS SQL - usd5000 per seat license cost(!?).

http://msdn.microsoft.com/vstudio/previous/ssafe/default.aspx?pull=/library/en-us/dnvsent/html/vssmap.asp

http://dotnetjunkies.com/WebLog/kenbrubaker/archive/2004/06/18/vss2005.aspx

http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=150514&SiteID=1

Shamil

----- Original Message ----- 
From: "Jim Lawrence" <accessd at shaw.ca>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 8:43 PM
Subject: Re: [AccessD] Source Code Control


> Hi Shamil:
>
> I do not know. I went to an intro session on the product and after an hour
> of listening to the apps features and capabilities I realized it was far
> beyond anything I or small (medium?) company would ever need so did not
> investigate it further. (I have a full unlimited legal copy of TeamServer
> but would have to re-build my server to get it installed, so there it
sits.)
>
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> Salakhetdinov
> Sent: January 19, 2006 5:18 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Source Code Control
>
> Hi Jim,
>
> And TeamServer uses VSS Server - Yes/No?
>
> Shamil
>
> ----- Original Message ----- 
> From: "Jim Lawrence" <accessd at shaw.ca>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 19, 2006 3:11 PM
> Subject: Re: [AccessD] Source Code Control
>
>
> > Hi Shamil:
> >
> > MS uses TeamServer for all their projects.
> >
> > Jim
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> > Salakhetdinov
> > Sent: January 18, 2006 11:57 PM
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Source Code Control
> >
> > > I mean, honestly, it works for a little side project
> > Josh,
> >
> > I guess MS uses VSS by themselves ...
> >
> > I did use VSS in a huge MSVC++ project of my colleague with thouzands of
> > source files and a half of a hundred projects - it worked well, no
> problems
> > at all...
> >
> > I think most of the "horror stories" about VSS are in the past now.
> >
> > Yes, I liked SubVersion for the features you describe and because it's
> open
> > source...
> >
> > If there is no need in these SubVersion features then VSS looks good
> enough
> > and stable.
> >
> > Shamil
> >
> > ----- Original Message ----- 
> > From: "Josh McFarlane" <darsant at gmail.com>
> > To: "Access Developers discussion and problem solving"
> > <accessd at databaseadvisors.com>
> > Sent: Thursday, January 19, 2006 7:22 AM
> > Subject: Re: [AccessD] Source Code Control
> >
> >
> > > On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> > > > I haven't used SourceSafe in Access personally, only C++ projects. I
> > > > find it interesting that they've worked out code to diff Access DBs,
> > > > but cannot make it compatible with Word for diffing.
> > > >
> > > > Granted, everything can be corrupt, but source-safe has a very very
> > > > bad track record with corruption, even on simple things. I can't
find
> > > > the link now, but once I hit my work computer I'll post it.
> > > >
> > > > When it's all said and done, I still prefer a stability and safety
> > > > over easy integration with Office / Visual Studio.
> > >
> > > OK, looked a little more into this, and supposedly if you run their
> > > analyze.exe tool at least weekly, it will drastically reduce the
> > > "fail" corruption rate (as it fixes the small corruptions before they
> > > propigate).
> > >
> > > Some other interesting things that I hadn't heard before:
> > >
> > > Large binary files often had to have their version history cleared
with
> > 3.1
> > >
> > > File locks were frequently left behind and had to be manually removed.
> > >
> > > Then there's the dreaded \data\a\aaaaaaaa.a error message that
> > > everyone seems to end up dealing with (For some reason, I swear there
> > > was a KB article dealing with all the possible ways this could pop up,
> > > but I can't find it)
> > >
> > > Also, if you delete a file, and then later recreate a file with the
> > > same name, the previous file history is gone forever (You can't check
> > > out previous complete builds anymore)
> > >
> > > I mean, honestly, it works for a little side project, but for anything
> > > a business is depending on, I don't trust my weight on it when there's
> > > free open-source products out there that do much much better in terms
> > > of both reliability and interface.
> > >
> > > --
> > > Josh McFarlane
> > >
> > > "Peace cannot be kept by force. It can only be achieved by
> understanding."
> > > -Albert Einstein
> > > -- 
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From jwcolby at ColbyConsulting.com  Thu Jan 19 12:53:42 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 19 Jan 2006 13:53:42 -0500
Subject: [AccessD] Syntax for seeing named range in excel
In-Reply-To: <s3cfde07.077@cactus.dk>
Message-ID: <005a01c61d29$ab5cfb20$647aa8c0@ColbyM6805>

OK oh hero, now is it possible to update the named range through a query?  I
tried saving the working select query, then opening that and modifying the
data but that definitely does not work.  Is this part of the "patent
lawsuit" changes or am I just doing something wrong?  

If a "Update" syntax would work that would be fine.  I am running code
anyway, not manually updating the data as I was trying to do in the test
above.

As I mentioned, I have a template with the named ranges all set up.  I would
like to be able to update that spreadsheet (append data into it) rather than
have to build up a new spreadsheet.  I can create the spreadsheet but then I
would need the syntax to create named ranges so I can get the data later -
using the syntax I just got from you.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 19, 2006 12:44 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

You miss the Excel header. Two options exist:

 SELECT
    NameOfField1,
    NameOfField2
  FROM
    [Range] AS T IN '' [Excel 5.0;DATABASE=c:\windows\temp\some.xls;];

In the second syntax the trick is the brackets. They can be omitted in this
example but are mandatory if you deal with filenames containing spaces.

This should be changed to:

  SELECT
    NameOfFiels1,
    NameOfField2
  FROM
    [Excel 5.0;DATABASE=c:\windows\temp\some.xls;HDR=YES].[Range] AS T;


>>> jwcolby at ColbyConsulting.com 19-01-2006 18:14:42 >>>
Does anyone know the syntax in an SQL statement for seeing a named range in
an excel spreadsheet?

I have a spreadsheet DocumentRequestTemplate.xls, which has a sheet
xlsReqForDocuments which has a named range Sec_DocWithHdr, Sec_DocNoHdr etc.

I assume that the syntax would look something like 

SELECT * from SEC_DocWithHdr IN DocumentRequestTemplate.xls

Doing this gets me "unrecognized database format" however.

Anyone know what the real answer is?

John W. Colby
www.ColbyConsulting.com 


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



From dwaters at usinternet.com  Thu Jan 19 13:11:40 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Thu, 19 Jan 2006 13:11:40 -0600
Subject: [AccessD] Read External File for Path String
In-Reply-To: <31110973.1137695784521.JavaMail.root@sniper38>
Message-ID: <000b01c61d2c$2e114c90$0200a8c0@danwaters>

Thanks to everyone who responded to this post.  In less than a day, I have
multiple ways to skin this cat!

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 12:13 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

Dim f as Long
dim strTemp as string
f=freefile
Open App.Path & "\dbpath.dat" for binary access read as f
strtemp=space(lof(f))
get f,,strtemp
close f


Now strTemp is the contents of dbpath.dat

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 10:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Hi Drew!

I assume you can create the dbpath.dat file by starting with a text file?

What code do you use to read from the dbpath.dat file?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 10:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

I do that all the time, though it's usually for my VB projects.  I create a
dbpath.dat file, and put it in the same folder as my .exe, so when I go to
connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



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

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



From andy at minstersystems.co.uk  Thu Jan 19 13:25:51 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Thu, 19 Jan 2006 19:25:51 -0000
Subject: [AccessD] Default font for forms etc.
In-Reply-To: <097801c61d1c$ae5650e0$8e01a8c0@rock>
Message-ID: <007001c61d2e$28e168c0$851c0c54@minster33c3r25>

Arthur
There may be other ways but the way I know is this.

1.First create a blank form called 'normal'.
2.Open 'normal' in design view, and make sure the Toolbox is in view
3.Also make sure you have the Properties dialog set to display for whatever
you're on
4.Highlight each of the items in the toolbox. As you highlight each one the
Properties dialog will show for it, and be called something like 'Default
label', 'Default textbox' and so on. This is where you alter the defaults
for each, changing fonts etc. 
5.Save the form

Create a new form and it should work.

Note though that this will not affect any existing forms. They will have
their own 'Default text' and so on. These can be changed as above but only
affect that form.

HTH

-- Andy Lacey
http://www.minstersystems.co.uk 


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Arthur Fuller
> Sent: 19 January 2006 17:21
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Default font for forms etc.
> 
> 
> Where can I instruct Access to change the default font from 
> Arial 8 to Arial 10 (or something else)? I have wandered 
> through the Options dialog and cannot find this setting. I 
> have need to change this to Arial 10 at least and have it 
> affect every form I create. TIA, Arthur
>  
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From stuart at lexacorp.com.pg  Thu Jan 19 16:13:45 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Fri, 20 Jan 2006 08:13:45 +1000
Subject: [AccessD] Read External File for Path String
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF3E@INFOSERVER04.infostat.local>
Message-ID: <43D09BB9.7193.BB534D9@stuart.lexacorp.com.pg>

On 19 Jan 2006 at 8:08, Charlotte Foust wrote:

> That works if you have permission to write to the registry, Gustav.
> We're running into more and more situations where the user does  NOT
> have permission to read and write the registry.  Apparently the "new"
> approach is to use an xml file in documents and settings.
> 

And the advantages of using XML over the classic plain text WIndows INI and 
the standard API calls file would be?

FWIW, I've always avoided using the registry and persisted with INI files 
despite it being "old fashioned".  It makes applications portable.
-- 
Stuart




From stuart at lexacorp.com.pg  Thu Jan 19 16:20:25 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Fri, 20 Jan 2006 08:20:25 +1000
Subject: [AccessD] My form has a little problem
In-Reply-To: <43CFB95F.4080108@torchlake.com>
Message-ID: <43D09D49.24671.BBB4F59@stuart.lexacorp.com.pg>

On 19 Jan 2006 at 11:07, Tina Norris Fields wrote:

> The query qselStudentName looks like this:
> SELECT tblStudent.StuID, tblStudent.StuLname, tblStudent.StuFname, 
> tblStudent!StuLname & ", " & tblStudent!StuFname AS Name

It's a very dangerous practice to use Name as a fieldname.

Name is a reserved word and you can run into all sorts of problems using it 
for a fieldname. Use FullName or similar.



 

-- 
Stuart




From cfoust at infostatsystems.com  Thu Jan 19 17:00:20 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 19 Jan 2006 15:00:20 -0800
Subject: [AccessD] Read External File for Path String
Message-ID: <F55048AF7E974F429BB24597D7355EEABF42@INFOSERVER04.infostat.local>

Actually, the XML files wind up with a structure very similar to the ini
files but you don't need API calls to read them.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Thursday, January 19, 2006 2:14 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Read External File for Path String


On 19 Jan 2006 at 8:08, Charlotte Foust wrote:

> That works if you have permission to write to the registry, Gustav. 
> We're running into more and more situations where the user does  NOT 
> have permission to read and write the registry.  Apparently the "new" 
> approach is to use an xml file in documents and settings.
> 

And the advantages of using XML over the classic plain text WIndows INI
and 
the standard API calls file would be?

FWIW, I've always avoided using the registry and persisted with INI
files 
despite it being "old fashioned".  It makes applications portable.
-- 
Stuart


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


From dwaters at usinternet.com  Thu Jan 19 17:43:09 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Thu, 19 Jan 2006 17:43:09 -0600
Subject: [AccessD] Read External File for Path String
In-Reply-To: <31110973.1137695784521.JavaMail.root@sniper38>
Message-ID: <000001c61d52$1ae92a90$0200a8c0@danwaters>

Drew,

I tried this, but strTemp remains an empty string.

Could you review?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 12:13 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

Dim f as Long
dim strTemp as string
f=freefile
Open App.Path & "\dbpath.dat" for binary access read as f
strtemp=space(lof(f))
get f,,strtemp
close f


Now strTemp is the contents of dbpath.dat

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 10:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Hi Drew!

I assume you can create the dbpath.dat file by starting with a text file?

What code do you use to read from the dbpath.dat file?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 10:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

I do that all the time, though it's usually for my VB projects.  I create a
dbpath.dat file, and put it in the same folder as my .exe, so when I go to
connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



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

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



From stuart at lexacorp.com.pg  Thu Jan 19 17:48:00 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Fri, 20 Jan 2006 09:48:00 +1000
Subject: [AccessD] Read External File for Path String
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF42@INFOSERVER04.infostat.local>
Message-ID: <43D0B1D0.2471.C0B7E06@stuart.lexacorp.com.pg>

On 19 Jan 2006 at 15:00, Charlotte Foust wrote:

> Actually, the XML files wind up with a structure very similar to the ini
> files but you don't need API calls to read them.
> 

So how  would you create, then read an XML file to store a backend server 
path?
-- 
Stuart




From stuart at lexacorp.com.pg  Thu Jan 19 17:53:17 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Fri, 20 Jan 2006 09:53:17 +1000
Subject: [AccessD] Read External File for Path String
In-Reply-To: <000001c61d52$1ae92a90$0200a8c0@danwaters>
References: <31110973.1137695784521.JavaMail.root@sniper38>
Message-ID: <43D0B30D.4308.C105651@stuart.lexacorp.com.pg>

On 19 Jan 2006 at 17:43, Dan Waters wrote:

> I tried this, but strTemp remains an empty string.
> 
...
> Open App.Path & "\dbpath.dat" for binary access read as f

What do you get from "? App.Path" in an immediate window? 

Try replacing it with CurrentProject.path


-- 
Stuart




From cfoust at infostatsystems.com  Thu Jan 19 17:58:41 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 19 Jan 2006 15:58:41 -0800
Subject: [AccessD] Read External File for Path String
Message-ID: <F55048AF7E974F429BB24597D7355EEABF43@INFOSERVER04.infostat.local>

Stuart, I don't do it in Access, I use it in dot net.  Supposedly Access
2003 can read/write XML, but I don't have it so I can't try it out.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Thursday, January 19, 2006 3:48 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Read External File for Path String


On 19 Jan 2006 at 15:00, Charlotte Foust wrote:

> Actually, the XML files wind up with a structure very similar to the 
> ini files but you don't need API calls to read them.
> 

So how  would you create, then read an XML file to store a backend
server 
path?
-- 
Stuart


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


From dwaters at usinternet.com  Thu Jan 19 18:26:49 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Thu, 19 Jan 2006 18:26:49 -0600
Subject: [AccessD] Read External File for Path String
In-Reply-To: <9085005.1137715331294.JavaMail.root@sniper39>
Message-ID: <000001c61d58$34b4ceb0$0200a8c0@danwaters>

Stuart,

I had done that already.  The path string is correct.

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: Thursday, January 19, 2006 5:53 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Read External File for Path String

On 19 Jan 2006 at 17:43, Dan Waters wrote:

> I tried this, but strTemp remains an empty string.
> 
...
> Open App.Path & "\dbpath.dat" for binary access read as f

What do you get from "? App.Path" in an immediate window? 

Try replacing it with CurrentProject.path


-- 
Stuart


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



From wdhindman at bellsouth.net  Thu Jan 19 18:47:27 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 19 Jan 2006 19:47:27 -0500
Subject: [AccessD] ...close open forms
References: <17724746D360394AA3BFE5B8D40A9C1BD596@main2.marlow.com>
Message-ID: <004401c61d5b$43e66580$6101a8c0@JISREGISTRATION.local>

...yes, that's a base feature of the gui.

William

----- Original Message ----- 
From: <DWUTKA at marlow.com>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 11:33 AM
Subject: Re: [AccessD] ...close open forms


> Just curious, is this for the project with the Hidden Access 
> functionality?
>
> Drew
>
> -----Original Message-----
> From: William Hindman [mailto:wdhindman at bellsouth.net]
> Sent: Thursday, January 19, 2006 6:32 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] ...close open forms
>
>
> Gustav, Don, Lambert, Shamil, et al
>
> ...thanks to all who responded ...four different solutions all of which
> worked in different ways.
> ...why do I love AccessD? ...let me count the ways! :)
>
> William
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Thursday, January 19, 2006 4:42 AM
> Subject: Re: [AccessD] ...close open forms
>
>
>> Hi William
>>
>> OK, then adjust to skip the last opened (the opening) form:
>>
>> ' Close all forms except the first and last opened form.
>>  For lngF = Forms.Count - 2 To 1 Step -1
>>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>>  Next
>>
>> /gustav
>>
>>>>> wdhindman at bellsouth.net 18-01-2006 23:15:07 >>>
>> Gustav
>>
>> ...thanks ...wish it was that easy ...it does what you say but not what I
>> need :(
>>
>> ...probably didn't explain it well enough ...it happens :)
>>
>> ...two or more forms open including the switchboard ...need it to close
>> everything BUT the swb AND the opening form.
>>
>> ...your code ...in the on open event of opening form ...closes all but 
>> the
>> swb ...including the opening form.
>>
>> ...suggestions welcome.
>>
>> William
>>
>> ----- Original Message ----- 
>> From: "Gustav Brock" <Gustav at cactus.dk>
>> To: <accessd at databaseadvisors.com>
>> Sent: Wednesday, January 18, 2006 9:22 AM
>> Subject: Re: [AccessD] ...close open forms
>>
>>
>>> Hi William
>>>
>>> How about:
>>>
>>>  ' Close all forms except this first opened form.
>>>  For lngF = Forms.Count - 1 To 1 Step -1
>>>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>>>  Next
>>>
>>> /gustav
>>>
>>>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
>>> ...I need to close any open forms ...other than designated forms ...and
>>> save
>>> their data ...before opening a called form ...from the called form.
>>>
>>> ...ie call a form open from a switchboard ...the called form checks for
>>> any
>>> other forms open, other than the sb, and closes them, saving their data,
>>> before it opens.
>>
>>
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From stuart at lexacorp.com.pg  Thu Jan 19 21:13:21 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Fri, 20 Jan 2006 13:13:21 +1000
Subject: [AccessD] Read External File for Path String
In-Reply-To: <000001c61d58$34b4ceb0$0200a8c0@danwaters>
References: <9085005.1137715331294.JavaMail.root@sniper39>
Message-ID: <43D0E1F1.26549.CC781FB@stuart.lexacorp.com.pg>

On 19 Jan 2006 at 18:26, Dan Waters wrote:

>> Try replacing it with CurrentProject.path
...
> I had done that already.  The path string is correct.

Here's an alternative, how does this one work:

Dim f as Long
dim strTemp as string
f=freefile
Open CurrentProject.Path & "\dbpath.dat" for input as f
line input f,strtemp
close f
-- 
Stuart




From jwcolby at ColbyConsulting.com  Thu Jan 19 22:23:28 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 19 Jan 2006 23:23:28 -0500
Subject: [AccessD] Preparing for upsizing
Message-ID: <00aa01c61d79$440a1e80$647aa8c0@ColbyM6805>

I am preparing for upsizing a client's access database.  In order to do this
I needed to search all the objects looking for SQL statements and save them
as saved queries.  In order to do this with forms I created the following
two functions:

FindSQL opens each form in the database in design view, then passes the name
of the form and the form's RecordSource off to a function BldSavedQuery.  It
then looks for all controls in the form's control collection looking for
combos and list boxes, and does the same with them.

BldSavedQuery looks for issues like nothing in the SQL statement passed in,
the "QryName" already being the name of a query or table, and if neither of
those conditions exist, then it tries to build a named query def.  If it
succeeds (the SQL passed in is valid and the name passed in is not already a
saved query) it creates a saved query and passes the name back to FindSQL
which then stores the saved query name back in place of the SQL statement.
When all processing is finished, the form is then saved and closed.

It works reasonably well.  The only things found so far are delimited lists
instead of SQL statements and what appear to be saved query names where the
saved query was deleted.  Only about 17 of those, all but one are delimited
lists.  It took me ~ 2 hours to write / debug this code and saved me who
knows how much time manually hunting for these things.

I now have to do the same thing for reports, though there are so few I might
just do them manually.

Function BldSavedQuery(strQryName As String, strSQL As String) As String
On Error GoTo Err_BldSavedQuery
Dim tdf As DAO.TableDef
Dim qdf As DAO.QueryDef
Dim qdfs As DAO.QueryDefs
Dim db As DAO.Database
Dim lstrQryName As String
    
    '
    'This object has nothing in the rowsource/recordsource (probably an
unbound form)
    '
    If strSQL = "" Then
        BldSavedQuery = ""
        GoTo Exit_BldSavedQuery
    End If
    Set db = CurrentDb
    '
    'Check to see if the strsql is the name of a table
    '
    On Error Resume Next
    Set tdf = db.TableDefs(strSQL)
    If Err = 0 Then
        GoTo Exit_BldSavedQuery
    End If
    Err.Clear
    '
    'Check if the strSQL is a query name
    '
    Set qdf = db.QueryDefs(strSQL)
    If Err = 0 Then
        GoTo Exit_BldSavedQuery
    End If
    Err.Clear
On Error GoTo Err_BldSavedQuery
    
    lstrQryName = "q" & strQryName
    Set qdfs = db.QueryDefs
    Set qdf = New QueryDef
    With qdf
        .SQL = strSQL
        .Name = lstrQryName
    End With
    qdfs.Append qdf
    qdfs.Refresh
    BldSavedQuery = qdf.Name
Exit_BldSavedQuery:
On Error Resume Next
    If Not (qdf Is Nothing) Then qdf.Close: Set qdf = Nothing
    Set qdfs = Nothing
    If Not (db Is Nothing) Then db.Close: Set db = Nothing
Exit Function
Err_BldSavedQuery:
    Select Case Err
    Case 3012   'Query already exists
        BldSavedQuery = ""
        Debug.Print "ERROR: " & lstrQryName & " already exists, but this
control has a SQL statement in the rowsource"
        Resume Exit_BldSavedQuery
    Case 3129   'Not an SQL statement - mostly delimited lists or deleted
saved query names
        BldSavedQuery = ""
        Debug.Print "ERROR: " & lstrQryName & " not a sql statement in the
rowsource but not a saved query or table either"
        Debug.Print vbTab & "Rowsource: " & strSQL
        Resume Exit_BldSavedQuery
    Case Else
        MsgBox Err.Description, , "Error in Function
basFindSQL.BldSavedQuery"
        Resume Exit_BldSavedQuery
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function
'
'This module will find all sql statements in objects such as forms, combos
and list boxes
'and save them as saved queries in the name format:
'
'qfrmName
'qfrmname-CboName
'qfrmName-LstName
'
Function FindSQL()
On Error GoTo Err_FindSQL
Dim db As DAO.Database
Dim doc As DAO.Document
Dim frm As Form
Dim ctl As Control
Dim strQryName As String
    Set db = CurrentDb
    For Each doc In db.Containers(2).Documents
        DoCmd.OpenForm doc.Name, acDesign
        Set frm = Forms(doc.Name)
        strQryName = BldSavedQuery(frm.Name, frm.RecordSource)
        If Len(strQryName) > 0 Then
            frm.RecordSource = strQryName
        End If
        For Each ctl In frm.Controls
            Select Case ctl.ControlType
            Case acComboBox, acListBox
                strQryName = BldSavedQuery(frm.Name & "-" & ctl.Name,
ctl.RowSource)
                If Len(strQryName) > 0 Then
                    ctl.RowSource = strQryName
                End If
            Case Else
            End Select
            
        Next ctl
        DoCmd.Close acForm, doc.Name, acSaveYes
    Next doc
Exit_FindSQL:
On Error Resume Next
    If Not (frm Is Nothing) Then frm.Close: Set frm = Nothing
    If Not (db Is Nothing) Then db.Close: Set db = Nothing
Exit Function
Err_FindSQL:
        MsgBox Err.Description, , "Error in Function basFindSQL.FindSQL"
        Resume Exit_FindSQL
    Resume 0    '.FOR TROUBLESHOOTING
End Function

John W. Colby
www.ColbyConsulting.com 




From DWUTKA at marlow.com  Thu Jan 19 23:46:05 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Thu, 19 Jan 2006 23:46:05 -0600
Subject: [AccessD] Read External File for Path String
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD5A7@main2.marlow.com>

app.path may not work in Access.  

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 5:43 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Drew,

I tried this, but strTemp remains an empty string.

Could you review?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 12:13 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

Dim f as Long
dim strTemp as string
f=freefile
Open App.Path & "\dbpath.dat" for binary access read as f
strtemp=space(lof(f))
get f,,strtemp
close f


Now strTemp is the contents of dbpath.dat

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 10:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Hi Drew!

I assume you can create the dbpath.dat file by starting with a text file?

What code do you use to read from the dbpath.dat file?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 10:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

I do that all the time, though it's usually for my VB projects.  I create a
dbpath.dat file, and put it in the same folder as my .exe, so when I go to
connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



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

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

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


From Gustav at cactus.dk  Fri Jan 20 05:47:14 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 20 Jan 2006 12:47:14 +0100
Subject: [AccessD] Read External File for Path String
Message-ID: <s3d0dbec.094@cactus.dk>

Hi Stuart

Use A2002+.
Have an internal table with your path, tblPath.

To export:
Application.ExportXML acExportTable , "tblPath", "c:\mypath.xml"

To import:
CurrentDb.Execute "Delete * From tblPath"
Application.ImportXML "c:\mypath.xml", acAppendData

To read:
strPath = DLookup("Path", "tblPath")

Not quite sure how "easy" that is, though in total only four code lines net are needed.
However, if you need to store a bunch of user or app settings it might be a nice method with all the advantages of XML storage and exchange possibilities.

/gustav

>>> stuart at lexacorp.com.pg 20-01-2006 00:48 >>>
On 19 Jan 2006 at 15:00, Charlotte Foust wrote:

> Actually, the XML files wind up with a structure very similar to the ini
> files but you don't need API calls to read them.

So how  would you create, then read an XML file to store a backend server 
path?
-- 
Stuart




From bheid at appdevgrp.com  Fri Jan 20 06:25:23 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Fri, 20 Jan 2006 07:25:23 -0500
Subject: [AccessD] Default printer for a report... (cross posted to Access-L)
Message-ID: <916187228923D311A6FE00A0CC3FAA30ABF6AE@ADGSERVER>

Hey,

I have noticed that when a printer is designed and set to use the default
printer, that if it is printed to the PDF printer, it will then be set to
use the PDF printer instead of the default printer.  Even though the report
is not edited and does not ask to save any changes.

I just got an email from one of our clients this morning asking about this
happening from an MDE.  

What is the cause of this and is there anyway to prevent it from permanently
modifying the default printer?

Thanks,
Bobby



From stuart at lexacorp.com.pg  Fri Jan 20 06:30:34 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Fri, 20 Jan 2006 22:30:34 +1000
Subject: [AccessD] Read External File for Path String
In-Reply-To: <s3d0dbec.094@cactus.dk>
Message-ID: <43D1648A.9662.EC5A496@stuart.lexacorp.com.pg>

On 20 Jan 2006 at 12:47, Gustav Brock wrote:

> Hi Stuart
> 
> Use A2002+.
> Have an internal table with your path, tblPath.
> 
> To export:
> Application.ExportXML acExportTable , "tblPath", "c:\mypath.xml"
> 
> To import:
> CurrentDb.Execute "Delete * From tblPath"
> Application.ImportXML "c:\mypath.xml", acAppendData
> 
> To read:
> strPath = DLookup("Path", "tblPath")
> 
> Not quite sure how "easy" that is, though in total only four code lines net
> are needed. However, if you need to store a bunch of user or app settings it
> might be a nice method with all the advantages of XML storage and exchange
> possibilities.
> 

You generally don't need to exchange user/app settings between 
applications.

If you have to store you settings in a table in the database to use an XML 
file, why bother? You can just read/write to the table itself.


 -- 
Stuart




From Gustav at cactus.dk  Fri Jan 20 07:02:49 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 20 Jan 2006 14:02:49 +0100
Subject: [AccessD] Read External File for Path String
Message-ID: <s3d0eda6.096@cactus.dk>

Hi Stuart

Well, sometimes yes. That depends. 

We have several apps where we store user settings like window size and position and other preferences. Right now we use an INI file but it could as well be an XML file.
The data are written just before the app closes and read back when it opens.
The advantage is that we can update the app (the frontend) without losing the user's preferences. I think this is important and a quite common scenario.

We could use the registry. There really is no reason to be afraid of that as some are (just use a scanner and watch how many data are read/written to the registry while using a standard app like Word, you hardly believe it) but it has some limitations as mentioned by Charlotte.
Using an external file like an XML file allows you to easily copy standard settings or settings from a similar user to a new user's machine after installation of the app.
Further, XML files have the advantage that they are easier to maintain from external sources and very high quality tools exist for the purpose; INI files are mostly modified by a simple editor.

/gustav

>>> stuart at lexacorp.com.pg 20-01-2006 13:30 >>>
On 20 Jan 2006 at 12:47, Gustav Brock wrote:

> Hi Stuart
> 
> Use A2002+.
> Have an internal table with your path, tblPath.
> 
> To export:
> Application.ExportXML acExportTable , "tblPath", "c:\mypath.xml"
> 
> To import:
> CurrentDb.Execute "Delete * From tblPath"
> Application.ImportXML "c:\mypath.xml", acAppendData
> 
> To read:
> strPath = DLookup("Path", "tblPath")
> 
> Not quite sure how "easy" that is, though in total only four code lines net
> are needed. However, if you need to store a bunch of user or app settings it
> might be a nice method with all the advantages of XML storage and exchange
> possibilities.
> 

You generally don't need to exchange user/app settings between 
applications.

If you have to store you settings in a table in the database to use an XML 
file, why bother? You can just read/write to the table itself.


 -- 
Stuart




From dwaters at usinternet.com  Fri Jan 20 09:07:45 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Fri, 20 Jan 2006 09:07:45 -0600
Subject: [AccessD] Read External File for Path String
In-Reply-To: <2361782.1137727147672.JavaMail.root@sniper21>
Message-ID: <000601c61dd3$45107810$0200a8c0@danwaters>

Yes!  This worked.

Per Help, I placed a number sign (#) in front of 'f' after line input.  

Thanks!
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: Thursday, January 19, 2006 9:13 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Read External File for Path String

On 19 Jan 2006 at 18:26, Dan Waters wrote:

>> Try replacing it with CurrentProject.path
...
> I had done that already.  The path string is correct.

Here's an alternative, how does this one work:

Dim f as Long
dim strTemp as string
f=freefile
Open CurrentProject.Path & "\dbpath.dat" for input as f
line input f,strtemp
close f
-- 
Stuart


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



From Gustav at cactus.dk  Fri Jan 20 09:30:56 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 20 Jan 2006 16:30:56 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d11049.003@cactus.dk>

Hi John

Yes, it is possible to update a linked xls sheet/range - except if you have applied the latest servicepack. 

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

/gustav

>>> jwcolby at ColbyConsulting.com 19-01-2006 19:53 >>>
OK oh hero, now is it possible to update the named range through a query?  I
tried saving the working select query, then opening that and modifying the
data but that definitely does not work.  Is this part of the "patent
lawsuit" changes or am I just doing something wrong?  

If a "Update" syntax would work that would be fine.  I am running code
anyway, not manually updating the data as I was trying to do in the test
above.

As I mentioned, I have a template with the named ranges all set up.  I would
like to be able to update that spreadsheet (append data into it) rather than
have to build up a new spreadsheet.  I can create the spreadsheet but then I
would need the syntax to create named ranges so I can get the data later -
using the syntax I just got from you.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 19, 2006 12:44 PM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

You miss the Excel header. Two options exist:

 SELECT
    NameOfField1,
    NameOfField2
  FROM
    [Range] AS T IN '' [Excel 5.0;DATABASE=c:\windows\temp\some.xls;];

In the second syntax the trick is the brackets. They can be omitted in this
example but are mandatory if you deal with filenames containing spaces.

This should be changed to:

  SELECT
    NameOfFiels1,
    NameOfField2
  FROM
    [Excel 5.0;DATABASE=c:\windows\temp\some.xls;HDR=YES].[Range] AS T;


>>> jwcolby at ColbyConsulting.com 19-01-2006 18:14:42 >>>
Does anyone know the syntax in an SQL statement for seeing a named range in
an excel spreadsheet?

I have a spreadsheet DocumentRequestTemplate.xls, which has a sheet
xlsReqForDocuments which has a named range Sec_DocWithHdr, Sec_DocNoHdr etc.

I assume that the syntax would look something like 

SELECT * from SEC_DocWithHdr IN DocumentRequestTemplate.xls

Doing this gets me "unrecognized database format" however.

Anyone know what the real answer is?

John W. Colby
www.ColbyConsulting.com 




From artful at rogers.com  Fri Jan 20 10:02:16 2006
From: artful at rogers.com (Arthur Fuller)
Date: Fri, 20 Jan 2006 11:02:16 -0500
Subject: [AccessD] Unlock an MDE
Message-ID: <00a801c61dda$e2906df0$8e01a8c0@rock>

A client has an MDE and has lost its corresponding MDB. I vaguely recall
that there is some sort of rescue technique. It wouldn't mattered if what
came back was obfuscated code; that could be dealt with.
Any tips or pointers? A commercial package would be OK if that's the only
method. The alternative is reverse-engineering it, which in the
circumstances wouldn't be all that terrible. Like most apps, it contains a
lot of obvious code and a little rocket science.
TIA,
Arthur
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks
 



From cfoust at infostatsystems.com  Fri Jan 20 10:18:11 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 20 Jan 2006 08:18:11 -0800
Subject: [AccessD] Read External File for Path String
Message-ID: <F55048AF7E974F429BB24597D7355EEABF44@INFOSERVER04.infostat.local>

That's VB syntax.  Doesn't work in Access.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 9:46 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String


app.path may not work in Access.  

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 5:43 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Drew,

I tried this, but strTemp remains an empty string.

Could you review?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 12:13 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

Dim f as Long
dim strTemp as string
f=freefile
Open App.Path & "\dbpath.dat" for binary access read as f
strtemp=space(lof(f))
get f,,strtemp
close f


Now strTemp is the contents of dbpath.dat

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 10:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Hi Drew!

I assume you can create the dbpath.dat file by starting with a text
file?

What code do you use to read from the dbpath.dat file?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 10:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

I do that all the time, though it's usually for my VB projects.  I
create a dbpath.dat file, and put it in the same folder as my .exe, so
when I go to connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from
one server to another.  The server path is hardcoded in one place in a
startup form.  What would have helped me a lot is to have the path in a
text file or ini file external to the database and stored in the same
folder.

Security is not an issue here, just my convenience, as my plans for the
day were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



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

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

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


From cfoust at infostatsystems.com  Fri Jan 20 10:20:12 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 20 Jan 2006 08:20:12 -0800
Subject: [AccessD] Default printer for a report... (cross posted to
	Access-L)
Message-ID: <F55048AF7E974F429BB24597D7355EEABF45@INFOSERVER04.infostat.local>

PDF printers do seem to grab and hold the default like that.  Have you
tried code that sets the printer back to the original value?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Friday, January 20, 2006 4:25 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Default printer for a report... (cross posted to
Access-L)


Hey,

I have noticed that when a printer is designed and set to use the
default printer, that if it is printed to the PDF printer, it will then
be set to use the PDF printer instead of the default printer.  Even
though the report is not edited and does not ask to save any changes.

I just got an email from one of our clients this morning asking about
this happening from an MDE.  

What is the cause of this and is there anyway to prevent it from
permanently modifying the default printer?

Thanks,
Bobby

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


From cfoust at infostatsystems.com  Fri Jan 20 10:21:34 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 20 Jan 2006 08:21:34 -0800
Subject: [AccessD] Unlock an MDE
Message-ID: <F55048AF7E974F429BB24597D7355EEABF46@INFOSERVER04.infostat.local>

Check the archives.  I think Shamil came up with a method for extracting
the objects.  The code of course is unavailable.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: Friday, January 20, 2006 8:02 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Unlock an MDE


A client has an MDE and has lost its corresponding MDB. I vaguely recall
that there is some sort of rescue technique. It wouldn't mattered if
what came back was obfuscated code; that could be dealt with. Any tips
or pointers? A commercial package would be OK if that's the only method.
The alternative is reverse-engineering it, which in the circumstances
wouldn't be all that terrible. Like most apps, it contains a lot of
obvious code and a little rocket science. TIA, Arthur Son of Uther
Pendragon, Defeater of the Saxons, Lord Over Alllll England, and King of
the Dorks
 

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


From DWUTKA at marlow.com  Fri Jan 20 10:20:51 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Fri, 20 Jan 2006 10:20:51 -0600
Subject: [AccessD] Read External File for Path String
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD5B8@main2.marlow.com>

I know that, it's just habit when writing code in an email to use the format
I use more often... ;)

Drew

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Friday, January 20, 2006 10:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Read External File for Path String


That's VB syntax.  Doesn't work in Access.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 9:46 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String


app.path may not work in Access.  

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 5:43 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Drew,

I tried this, but strTemp remains an empty string.

Could you review?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 12:13 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

Dim f as Long
dim strTemp as string
f=freefile
Open App.Path & "\dbpath.dat" for binary access read as f
strtemp=space(lof(f))
get f,,strtemp
close f


Now strTemp is the contents of dbpath.dat

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 10:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Hi Drew!

I assume you can create the dbpath.dat file by starting with a text
file?

What code do you use to read from the dbpath.dat file?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 10:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

I do that all the time, though it's usually for my VB projects.  I
create a dbpath.dat file, and put it in the same folder as my .exe, so
when I go to connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from
one server to another.  The server path is hardcoded in one place in a
startup form.  What would have helped me a lot is to have the path in a
text file or ini file external to the database and stored in the same
folder.

Security is not an issue here, just my convenience, as my plans for the
day were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



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

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

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


From artful at rogers.com  Fri Jan 20 10:27:01 2006
From: artful at rogers.com (Arthur Fuller)
Date: Fri, 20 Jan 2006 11:27:01 -0500
Subject: [AccessD] Friday Humour
Message-ID: <00cd01c61dde$5804e9a0$8e01a8c0@rock>

A little girl with blonde curls and blue eyes walks into a pet shop and asks
in the sweetest little lisp, "Excuthe me, mithter, do you keep widdle
wabbits?"
 
The shopkeeper's heart melts and he gets down on his knees, so that he's on
her level, and asks, "Do you want a widdle white wabbit or a thoft and furwy
bwack wabbit or maybe one like that cute widdle bwown wabbit over there?"
 
She, blushing, rocks on her heels, puts her hands on her knees, leans
forward and says in a quiet voice, "I don't fink my pyfon weally gives a
thuck."

Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks
 




From dwaters at usinternet.com  Fri Jan 20 10:28:20 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Fri, 20 Jan 2006 10:28:20 -0600
Subject: [AccessD] Unlock an MDE
In-Reply-To: <20834365.1137773452628.JavaMail.root@sniper40>
Message-ID: <000201c61dde$86fc6170$0200a8c0@danwaters>

Dear King,

What I've read in a few places is that there is a technique where a
developer could 'add' capability to an mde, but not change what was already
there.  The capability addition must use Access macros, because the code is
unavailable.  

I was looking for a way to 'defeat' an mde to see if I could claim to a
customer that it really was permanently locked, and I from what I found an
mde will not reveal its secrets!

Best of Luck,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: Friday, January 20, 2006 10:02 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Unlock an MDE

A client has an MDE and has lost its corresponding MDB. I vaguely recall
that there is some sort of rescue technique. It wouldn't mattered if what
came back was obfuscated code; that could be dealt with.
Any tips or pointers? A commercial package would be OK if that's the only
method. The alternative is reverse-engineering it, which in the
circumstances wouldn't be all that terrible. Like most apps, it contains a
lot of obvious code and a little rocket science.
TIA,
Arthur
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks
 

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



From jmhecht at earthlink.net  Fri Jan 20 10:41:24 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 20 Jan 2006 08:41:24 -0800
Subject: [AccessD] MDE & Otter package installers
Message-ID: <003901c61de0$5a3ced60$6701a8c0@HPLaptop>

How locked is my project when I make an MDE or use VSTO or
other install packages.

 

If I make a label for a text box and caption it auto, can
they come back & change the caption to car as an example?

 

Joe Hecht

jmhecht at earthlink.net

 



From bheid at appdevgrp.com  Fri Jan 20 10:42:15 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Fri, 20 Jan 2006 11:42:15 -0500
Subject: [AccessD] [SPAM SUSPECT] Re: Default printer for a report...
	(cross posted to	Access-L)
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D29951@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30ABF6CB@ADGSERVER>

Hi Charlotte,

Thanks for looking at my post.

No, I have not tried anything in code yet.  I was fishing to see if it was a
common issue and if there were any suggested solutions.

Thanks,
Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Friday, January 20, 2006 11:20 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Default printer for a report... (cross
posted to Access-L)
Importance: Low


PDF printers do seem to grab and hold the default like that.  Have you
tried code that sets the printer back to the original value?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Friday, January 20, 2006 4:25 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Default printer for a report... (cross posted to
Access-L)


Hey,

I have noticed that when a printer is designed and set to use the
default printer, that if it is printed to the PDF printer, it will then
be set to use the PDF printer instead of the default printer.  Even
though the report is not edited and does not ask to save any changes.

I just got an email from one of our clients this morning asking about
this happening from an MDE.  

What is the cause of this and is there anyway to prevent it from
permanently modifying the default printer?

Thanks,
Bobby



From jimdettman at earthlink.net  Fri Jan 20 10:59:04 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Fri, 20 Jan 2006 11:59:04 -0500
Subject: [AccessD] Unlock an MDE
In-Reply-To: <00a801c61dda$e2906df0$8e01a8c0@rock>
Message-ID: <NDEALJOEGMMPCDKIFGNFIEIDICAA.jimdettman@earthlink.net>

Arthur,

  I've seen code floating around to extract the properties of objects via
OLE, but nothing to create those objects in a new MDB.

  As for the code, technically it's feasible to get it, but I don't know
anyone who's ever done it.  There was a company a little while back that
claimed to have a recovery tool, but if you read through their descriptions,
they were just recovering the objects and then recoding by hand.  Looked
like they could decipher enough of the p-code to take a guess at what it was
doing.

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Arthur Fuller
Sent: Friday, January 20, 2006 11:02 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Unlock an MDE


A client has an MDE and has lost its corresponding MDB. I vaguely recall
that there is some sort of rescue technique. It wouldn't mattered if what
came back was obfuscated code; that could be dealt with.
Any tips or pointers? A commercial package would be OK if that's the only
method. The alternative is reverse-engineering it, which in the
circumstances wouldn't be all that terrible. Like most apps, it contains a
lot of obvious code and a little rocket science.
TIA,
Arthur
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks


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




From bchacc at san.rr.com  Fri Jan 20 11:21:33 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Fri, 20 Jan 2006 09:21:33 -0800
Subject: [AccessD] MDE & Otter package installers
In-Reply-To: <003901c61de0$5a3ced60$6701a8c0@HPLaptop>
References: <003901c61de0$5a3ced60$6701a8c0@HPLaptop>
Message-ID: <43D11C1D.40405@san.rr.com>

Joe:

SOme of the objects, like queries, are still visible unless you do more 
locking:

You can add some locking code like :

Sub SetStartupProperties(TheOpeningForm As String)

If boolTrapErrors = True Then On Error GoTo Err_SetStartupProperties


    ChangeProperty "StartupForm", dbText, TheOpeningForm
    ChangeProperty "StartupShowDBWindow", dbBoolean, False
    ChangeProperty "StartupShowStatusBar", dbBoolean, False
    ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
    ChangeProperty "AllowFullMenus", dbBoolean, False
    ChangeProperty "AllowBreakIntoCode", dbBoolean, False
    ChangeProperty "AllowSpecialKeys", dbBoolean, False
    ChangeProperty "AllowBypassKey", dbBoolean, False
    ChangeProperty "MenuBar", dbBoolean, False
   

Exit_SetStartupProperties:
Exit Sub

Err_SetStartupProperties:

    Select Case Err
    Case 0      '.insert Errors you wish to ignore here
        Resume Next
    Case Else   '.All other errors will trap
        Beep
        DoCmd.OpenForm "frmErrorMessage ", , , , , , "Error: " & 
Err.Number & " - " & Err.Description & vbCrLf & "In: 
ezmrp-opener.SetStartupProperties"
        Resume Exit_SetStartupProperties
    End Select

    Resume 0    '.FOR TROUBLESHOOTING

End Sub

where the change property function:

Function ChangeProperty(strPropName As String, varPropType As Variant, 
varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

Not my code.  I cribbed it from somewhere - the ADH I think.  But you 
also need unlocking code and a back door to get back into your mde.


Rocky


Joe Hecht wrote:
> How locked is my project when I make an MDE or use VSTO or
> other install packages.
>
>  
>
> If I make a label for a text box and caption it auto, can
> they come back & change the caption to car as an example?
>
>  
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>  
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From jwcolby at ColbyConsulting.com  Fri Jan 20 11:25:46 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 20 Jan 2006 12:25:46 -0500
Subject: [AccessD] Syntax for seeing named range in excel
In-Reply-To: <s3d11049.003@cactus.dk>
Message-ID: <00d401c61de6$8e0ce090$647aa8c0@ColbyM6805>

LOL, all service packs applied so I guess I build a brand new workbook.

Does anyone have a library of functions for doing things out in a
spreadsheet?  I need to do things like name ranges, lock ranges, format
ranges etc.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 10:31 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

Yes, it is possible to update a linked xls sheet/range - except if you have
applied the latest servicepack. 

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

/gustav

>>> jwcolby at ColbyConsulting.com 19-01-2006 19:53 >>>
OK oh hero, now is it possible to update the named range through a query?  I
tried saving the working select query, then opening that and modifying the
data but that definitely does not work.  Is this part of the "patent
lawsuit" changes or am I just doing something wrong?  

If a "Update" syntax would work that would be fine.  I am running code
anyway, not manually updating the data as I was trying to do in the test
above.

As I mentioned, I have a template with the named ranges all set up.  I would
like to be able to update that spreadsheet (append data into it) rather than
have to build up a new spreadsheet.  I can create the spreadsheet but then I
would need the syntax to create named ranges so I can get the data later -
using the syntax I just got from you.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 19, 2006 12:44 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

You miss the Excel header. Two options exist:

 SELECT
    NameOfField1,
    NameOfField2
  FROM
    [Range] AS T IN '' [Excel 5.0;DATABASE=c:\windows\temp\some.xls;];

In the second syntax the trick is the brackets. They can be omitted in this
example but are mandatory if you deal with filenames containing spaces.

This should be changed to:

  SELECT
    NameOfFiels1,
    NameOfField2
  FROM
    [Excel 5.0;DATABASE=c:\windows\temp\some.xls;HDR=YES].[Range] AS T;


>>> jwcolby at ColbyConsulting.com 19-01-2006 18:14:42 >>>
Does anyone know the syntax in an SQL statement for seeing a named range in
an excel spreadsheet?

I have a spreadsheet DocumentRequestTemplate.xls, which has a sheet
xlsReqForDocuments which has a named range Sec_DocWithHdr, Sec_DocNoHdr etc.

I assume that the syntax would look something like 

SELECT * from SEC_DocWithHdr IN DocumentRequestTemplate.xls

Doing this gets me "unrecognized database format" however.

Anyone know what the real answer is?

John W. Colby
www.ColbyConsulting.com 


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



From martyconnelly at shaw.ca  Fri Jan 20 11:25:02 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 20 Jan 2006 09:25:02 -0800
Subject: [AccessD] Unlock an MDE
References: <00a801c61dda$e2906df0$8e01a8c0@rock>
Message-ID: <43D11CEE.3060002@shaw.ca>

 MDE forms/reports extractor v2.2 MS Access 2000 add-in 
  This free utility is designed to allow you to extract the forms, 
reports and macros from mde file to mdb (without the form/report class 
module code). 
Serge Gavrilov has a couple of other useful gems here.
http://accesstools.narod.ru/index.html

These guys convert the compiled p-code but you are probably looking at a 
couple of thousand depending on complexity.

http://www.access.qbuilt.com/html/faq.html#Cost

Arthur Fuller wrote:

>A client has an MDE and has lost its corresponding MDB. I vaguely recall
>that there is some sort of rescue technique. It wouldn't mattered if what
>came back was obfuscated code; that could be dealt with.
>Any tips or pointers? A commercial package would be OK if that's the only
>method. The alternative is reverse-engineering it, which in the
>circumstances wouldn't be all that terrible. Like most apps, it contains a
>lot of obvious code and a little rocket science.
>TIA,
>Arthur
>Son of Uther Pendragon,
>Defeater of the Saxons,
>Lord Over Alllll England, and
>King of the Dorks
> 
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From Gustav at cactus.dk  Fri Jan 20 12:26:55 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 20 Jan 2006 19:26:55 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d139a5.010@cactus.dk>

Hi John

That's an Excel book you are asking for ...
Didn't you once work with a fellow fluid in Excel? Or was that in your Mexico days?

I'm certainly no expert in Excel but I've found that if you define everything you touch as ranges and define and use Named Ranges to a degree where you may find it ridiculous (for a single row or column or even a cell) you are pretty well off, as your code becomes much easier to read and maintain. Also, if you are working on an existing file - you can easily adjust the layout of worksheet without changing any code as the Named Ranges will persist.

Further, don't take anything for granted; a worksheet used to be no. 2, one day it is no. 1, so always move it to position 2 if that is important, and so on.

And never ever use Selection unless, of course, you wish to highlight an area for the user in interactive mode.

For your entertainment, I have a single function which has proven extremely useful for me as Excel lookup in a range behaves in a way you - with a database background - would not expect. Not like DLookup. It has in-line documentation as it otherwise for non Excel gurus like me is nearly impossible to understand what it does and why:

Function RLookup( _
  ByVal rngLookup As Range, _
  ByVal strField As String, _
  Optional intSearchOrder As Integer = xlByRows, _
  Optional intOffset As Integer = 1) _
  As Variant

' Looks up a value in the named range rngLookup from the cell,
' offset intOffset rows below or columns right from the found cell.
'
' 2000-07-30.
' Cactus Data ApS, Gustav Brock

' Default intSearchOrder is xlByRows, as named ranges built this way are
' easily attached by Access.
  
  Dim rng As Range
  Dim intRow As Integer
  Dim intColumn As Integer
  
  ' No special error handling.
  On Error Resume Next

  If intSearchOrder = xlByRows Then
    ' Search by rows.
    ' Read from found row, offset intOffset rows, and found column.
  Else
    ' Search by columns.
    ' Read from found row and found column, offset intOffset columns.
    intSearchOrder = xlByColumns
  End If
  
  With rngLookup
    ' Start search from upper left cell in range by starting in lower right cell.
    ' Search case sensitive for whole words in values only.
    Set rng = .Find(strField, .Cells(.Rows.Count, .Columns.Count), xlValues, xlWhole, intSearchOrder, , True)
  End With
  If Not rng Is Nothing Then
    ' Searched value found.
    ' Lookup value to retrieve.
    With rng
      intRow = .Row - (intOffset * (intSearchOrder = xlByRows))
      intColumn = .Column - (intOffset * (intSearchOrder = xlByColumns))
      ' Return value, offset intOffset rows or columns from cell with found value.
      RLookup = .Worksheet.Cells(intRow, intColumn).Value
    End With
    Set rng = Nothing
  End If

End Function

/gustav

>>> jwcolby at ColbyConsulting.com 20-01-2006 18:25:46 >>>
LOL, all service packs applied so I guess I build a brand new workbook.

Does anyone have a library of functions for doing things out in a
spreadsheet?  I need to do things like name ranges, lock ranges, format
ranges etc.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 10:31 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

Yes, it is possible to update a linked xls sheet/range - except if you have
applied the latest servicepack. 

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

/gustav

>>> jwcolby at ColbyConsulting.com 19-01-2006 19:53 >>>
OK oh hero, now is it possible to update the named range through a query?  I
tried saving the working select query, then opening that and modifying the
data but that definitely does not work.  Is this part of the "patent
lawsuit" changes or am I just doing something wrong?  

If a "Update" syntax would work that would be fine.  I am running code
anyway, not manually updating the data as I was trying to do in the test
above.

As I mentioned, I have a template with the named ranges all set up.  I would
like to be able to update that spreadsheet (append data into it) rather than
have to build up a new spreadsheet.  I can create the spreadsheet but then I
would need the syntax to create named ranges so I can get the data later -
using the syntax I just got from you.


John W. Colby
www.ColbyConsulting.com 



From jwcolby at ColbyConsulting.com  Fri Jan 20 12:40:29 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 20 Jan 2006 13:40:29 -0500
Subject: [AccessD] Syntax for seeing named range in excel
In-Reply-To: <s3d139a5.010@cactus.dk>
Message-ID: <00f301c61df0$fe251f00$647aa8c0@ColbyM6805>

>Didn't you once work with a fellow fluid in Excel? Or was that in your
Mexico days?

That was in Mexico.

I just really discovered named ranges and boy is THAT cool, even inside the
spreadsheet.

I'm not really a spreadsheet kinda guy but I am running into a bunch of
"need to export to" and a little "need to import from".  Luckily the "import
from" is from my own exported workbooks so I know that it is good data. 

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 1:27 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

That's an Excel book you are asking for ...
Didn't you once work with a fellow fluid in Excel? Or was that in your
Mexico days?

I'm certainly no expert in Excel but I've found that if you define
everything you touch as ranges and define and use Named Ranges to a degree
where you may find it ridiculous (for a single row or column or even a cell)
you are pretty well off, as your code becomes much easier to read and
maintain. Also, if you are working on an existing file - you can easily
adjust the layout of worksheet without changing any code as the Named Ranges
will persist.

Further, don't take anything for granted; a worksheet used to be no. 2, one
day it is no. 1, so always move it to position 2 if that is important, and
so on.

And never ever use Selection unless, of course, you wish to highlight an
area for the user in interactive mode.

For your entertainment, I have a single function which has proven extremely
useful for me as Excel lookup in a range behaves in a way you - with a
database background - would not expect. Not like DLookup. It has in-line
documentation as it otherwise for non Excel gurus like me is nearly
impossible to understand what it does and why:

Function RLookup( _
  ByVal rngLookup As Range, _
  ByVal strField As String, _
  Optional intSearchOrder As Integer = xlByRows, _
  Optional intOffset As Integer = 1) _
  As Variant

' Looks up a value in the named range rngLookup from the cell, ' offset
intOffset rows below or columns right from the found cell.
'
' 2000-07-30.
' Cactus Data ApS, Gustav Brock

' Default intSearchOrder is xlByRows, as named ranges built this way are '
easily attached by Access.
  
  Dim rng As Range
  Dim intRow As Integer
  Dim intColumn As Integer
  
  ' No special error handling.
  On Error Resume Next

  If intSearchOrder = xlByRows Then
    ' Search by rows.
    ' Read from found row, offset intOffset rows, and found column.
  Else
    ' Search by columns.
    ' Read from found row and found column, offset intOffset columns.
    intSearchOrder = xlByColumns
  End If
  
  With rngLookup
    ' Start search from upper left cell in range by starting in lower right
cell.
    ' Search case sensitive for whole words in values only.
    Set rng = .Find(strField, .Cells(.Rows.Count, .Columns.Count), xlValues,
xlWhole, intSearchOrder, , True)
  End With
  If Not rng Is Nothing Then
    ' Searched value found.
    ' Lookup value to retrieve.
    With rng
      intRow = .Row - (intOffset * (intSearchOrder = xlByRows))
      intColumn = .Column - (intOffset * (intSearchOrder = xlByColumns))
      ' Return value, offset intOffset rows or columns from cell with found
value.
      RLookup = .Worksheet.Cells(intRow, intColumn).Value
    End With
    Set rng = Nothing
  End If

End Function

/gustav

>>> jwcolby at ColbyConsulting.com 20-01-2006 18:25:46 >>>
LOL, all service packs applied so I guess I build a brand new workbook.

Does anyone have a library of functions for doing things out in a
spreadsheet?  I need to do things like name ranges, lock ranges, format
ranges etc.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 10:31 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

Yes, it is possible to update a linked xls sheet/range - except if you have
applied the latest servicepack. 

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

/gustav

>>> jwcolby at ColbyConsulting.com 19-01-2006 19:53 >>>
OK oh hero, now is it possible to update the named range through a query?  I
tried saving the working select query, then opening that and modifying the
data but that definitely does not work.  Is this part of the "patent
lawsuit" changes or am I just doing something wrong?  

If a "Update" syntax would work that would be fine.  I am running code
anyway, not manually updating the data as I was trying to do in the test
above.

As I mentioned, I have a template with the named ranges all set up.  I would
like to be able to update that spreadsheet (append data into it) rather than
have to build up a new spreadsheet.  I can create the spreadsheet but then I
would need the syntax to create named ranges so I can get the data later -
using the syntax I just got from you.


John W. Colby
www.ColbyConsulting.com 

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



From Gustav at cactus.dk  Fri Jan 20 13:05:15 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 20 Jan 2006 20:05:15 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d14287.011@cactus.dk>

Hi John

Nice to hear. Please let me leave that as the quote of the week!

However, I haven't missed an opportunity to mention this through the years(!) - speaking for deaf ears?

So, everyone else, Named Ranges are so simple to apply and use, the feature has been there since "forever", but still most users and many programmers don't know about it, thus wasting time hammering primitive cell coordinates into formulas and code.

/gustav

>>> jwcolby at ColbyConsulting.com 20-01-2006 19:40:29 >>>

I just really discovered named ranges and boy is THAT cool, even inside the spreadsheet.




From cfoust at infostatsystems.com  Fri Jan 20 13:11:40 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 20 Jan 2006 11:11:40 -0800
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <F55048AF7E974F429BB24597D7355EEABF47@INFOSERVER04.infostat.local>

It's funny, but named ranges have been around since at least Excel 5
that I can remember, maybe longer, and yet they seem to be so obscure.
I don't use Excel much, but I did at one time, and I couldn't have built
the pseudo-databases I did (for Macs at the time, which didn't have much
of the real thing) without making extensive use of named ranges.
They're so EASY!!

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 11:05 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel


Hi John

Nice to hear. Please let me leave that as the quote of the week!

However, I haven't missed an opportunity to mention this through the
years(!) - speaking for deaf ears?

So, everyone else, Named Ranges are so simple to apply and use, the
feature has been there since "forever", but still most users and many
programmers don't know about it, thus wasting time hammering primitive
cell coordinates into formulas and code.

/gustav

>>> jwcolby at ColbyConsulting.com 20-01-2006 19:40:29 >>>

I just really discovered named ranges and boy is THAT cool, even inside
the spreadsheet.


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


From Gustav at cactus.dk  Fri Jan 20 13:21:25 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 20 Jan 2006 20:21:25 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d1464e.012@cactus.dk>

Hi Charlotte

Music in my ears!

/gustav

>>> cfoust at infostatsystems.com 20-01-2006 20:11:40 >>>
It's funny, but named ranges have been around since at least Excel 5
that I can remember, maybe longer, and yet they seem to be so obscure.
I don't use Excel much, but I did at one time, and I couldn't have built
the pseudo-databases I did (for Macs at the time, which didn't have much
of the real thing) without making extensive use of named ranges.
They're so EASY!!

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 11:05 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Syntax for seeing named range in excel


Hi John

Nice to hear. Please let me leave that as the quote of the week!

However, I haven't missed an opportunity to mention this through the
years(!) - speaking for deaf ears?

So, everyone else, Named Ranges are so simple to apply and use, the
feature has been there since "forever", but still most users and many
programmers don't know about it, thus wasting time hammering primitive
cell coordinates into formulas and code.

/gustav

>>> jwcolby at ColbyConsulting.com 20-01-2006 19:40:29 >>>

I just really discovered named ranges and boy is THAT cool, even inside
the spreadsheet.




From jwcolby at ColbyConsulting.com  Fri Jan 20 14:08:20 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 20 Jan 2006 15:08:20 -0500
Subject: [AccessD] Syntax for seeing named range in excel
In-Reply-To: <s3d14287.011@cactus.dk>
Message-ID: <00fa01c61dfd$4326b760$647aa8c0@ColbyM6805>

Gustav,

>Nice to hear. Please let me leave that as the quote of the week!

Well, you know how it goes with this list, there is so much traffic that you
have to ignore what you don't use.

I just don't use Excel much for my own purposes.  I am moving this summer to
North Carolina and have to get real about my money so this last week I did a
"Income/Expense" workbook with three worksheets for income, expenses and
credit.  It wasn't until I started naming ranges there and then using the
names that I discovered just how cool they are.

>So, everyone else, Named Ranges are so simple to apply and use, the feature
has been there since "forever", but still most users and many programmers
don't know about it, thus wasting time hammering primitive cell coordinates
into formulas and code.

Amen Brother!  

Now I need to figure out how to CREATE named ranges when I build a
spreadsheet in VBA.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 2:05 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

Nice to hear. Please let me leave that as the quote of the week!

However, I haven't missed an opportunity to mention this through the
years(!) - speaking for deaf ears?

So, everyone else, Named Ranges are so simple to apply and use, the feature
has been there since "forever", but still most users and many programmers
don't know about it, thus wasting time hammering primitive cell coordinates
into formulas and code.

/gustav

>>> jwcolby at ColbyConsulting.com 20-01-2006 19:40:29 >>>

I just really discovered named ranges and boy is THAT cool, even inside the
spreadsheet.


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



From martyconnelly at shaw.ca  Fri Jan 20 14:55:23 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 20 Jan 2006 12:55:23 -0800
Subject: [AccessD] Read External File for Path String
References: <s3d0dbec.094@cactus.dk>
Message-ID: <43D14E3B.30501@shaw.ca>

If you don't have that high a version of Access here is method of using 
xmldom to read xml file.
rather than ImportXML method.

'?LoadXMLFile("C:\XML\AdviserDetails.xml")
Public Function LoadXMLFile(ByRef AdviserXML As String)

    'On Error GoTo ErrorHandler
    'needs reference set to XML 4.0 and maybe ADO 2.8
    Dim oDOMDocument As MSXML2.DOMDocument40
    Dim oNodeList As IXMLDOMNodeList
    Dim oAdviserDetailsNode As IXMLDOMNode
    Dim oLowestLevelNode As IXMLDOMElement
    Dim objXMLDOMNamedNodeMap As IXMLDOMNamedNodeMap
     Dim xPError As IXMLDOMParseError
    Dim Mydb As Database
    Dim myrs As ADODB.Recordset
    Dim sTempValue As String
    Dim lrec As Long
    Dim lnorec As Long
    Set oDOMDocument = New MSXML2.DOMDocument40

    oDOMDocument.async = False
    oDOMDocument.validateOnParse = True 'you may want to parse for errors
    oDOMDocument.resolveExternals = False
    oDOMDocument.preserveWhiteSpace = True
 
    'use if xml disk file
      If Not oDOMDocument.Load(AdviserXML) Then
        MsgBox ("XML File error")
             Set xPError = oDOMDocument.parseError
        DOMParseError xPError
      
       End If
    Set oAdviserDetailsNode = oDOMDocument.documentElement
     Debug.Print oDOMDocument.xml
    
  
    'Set Mydb = CurrentDb
    'Set myrs = Mydb.OpenRecordset("NewTable")
 

   'use appropriate XPath expression to select nodes
  
   Set oNodeList = oAdviserDetailsNode.selectNodes("//BusinessDetails/*")
 
     lnorec = 0
     lrec = 0
     Debug.Print oNodeList.length
     '   myrs.AddNew
    For Each oLowestLevelNode In oNodeList
        sTempValue = oLowestLevelNode.Text
         lrec = lrec + 1
        Select Case oLowestLevelNode.nodeName
            Case "BusinessName"
                   Debug.Print "Business " & sTempValue
                'myrs!BusinessName = sTempValue
            Case "AddressLine1"
                'myrs!AddressLine1 = sTempValue
            Case "AddressLine2"
                'myrs!AddressLine2 = sTempValue
            Case "Suburb"
                'myrs!Suburb = sTempValue
            Case "State"
                'myrs!State = sTempValue
                Debug.Print sTempValue
            Case "Postcode"
                'myrs!Postcode = sTempValue
            Case "PhoneNumber"
             Debug.Print "Phone " & sTempValue
                'myrs!PhoneNumber = sTempValue
            Case "Email"
                'myrs!Email = sTempValue
            Case "FaxNumber"
                'myrs!FaxNumber = sTempValue
        End Select
        If lrec = 9 Then '9 elements in business details
       ' myrs.Update
        lnorec = lnorec + 1
        lrec = 0
       ' myrs.AddNew
        End If
      Next
     
     MsgBox "Records Added=" & lnorec
     ' Set myrs = Nothing
    'Set Mydb = Nothing
    Set oDOMDocument = Nothing
    Set oAdviserDetailsNode = Nothing
    Set objXMLDOMNamedNodeMap = Nothing
    Exit Function

ErrorHandler:

  '  Call NewError.Raise(Err.Number, Err.Source, Err.Description)

End Function
Sub DOMParseError(xPE As IXMLDOMParseError)

    ' The document failed to load.
    Dim strErrText As String
    ' Obtain the ParseError object
    With xPE
    strErrText = "Your XML Document failed to load" & _
        "due the following error." & vbCrLf & _
        "Error #: " & .errorCode & ": " & xPE.reason & _
        "Line #: " & .Line & vbCrLf & _
        "Line Position: " & .linepos & vbCrLf & _
        "Position In File: " & .filepos & vbCrLf & _
        "Source Text: " & .srcText & vbCrLf & _
        "Document URL: " & .url
    End With
    Debug.Print strErrText

  Dim s As String
  Dim r As String
  Dim i As Long
 
   s = ""
  For i = 1 To xPE.linepos - 1
    s = s & " "
  Next
  r = "XML Error loading " & xPE.url & " * " & xPE.reason
  Debug.Print r
    'show character postion of error; tired of counting chars in xml file
  If (xPE.Line > 0) Then
    r = "at line " & xPE.Line & ", character " & xPE.linepos & vbCrLf & _
         xPE.srcText & vbCrLf & s & "^"
  End If
  Debug.Print r
    MsgBox strErrText, vbExclamation
End Sub




--------  "C:\XML\AdviserDetails.xml"  save as UTF-8 not ANSI in notepad

<?xml version="1.0" encoding="UTF-8"?>
<AdviserDetails ID="AD12345">
    <BusinessDetails>
        <BusinessName>"AD Business Name" </BusinessName>
        <AddressLine1>"AD Address Line 1" </AddressLine1>
        <AddressLine2>"AD Address Line 2" </AddressLine2>
        <Suburb>"AD Suburb" </Suburb>
        <State>"AD State" </State>
        <Postcode>"AD PostCode" </Postcode>
        <PhoneNumber>"AD Phone Number" </PhoneNumber>
        <Email>"AD Email" </Email>
        <FaxNumber>"AD Fax Number" </FaxNumber>
    </BusinessDetails>
</AdviserDetails>

Gustav Brock wrote:

>Hi Stuart
>
>Use A2002+.
>Have an internal table with your path, tblPath.
>
>To export:
>Application.ExportXML acExportTable , "tblPath", "c:\mypath.xml"
>
>To import:
>CurrentDb.Execute "Delete * From tblPath"
>Application.ImportXML "c:\mypath.xml", acAppendData
>
>To read:
>strPath = DLookup("Path", "tblPath")
>
>Not quite sure how "easy" that is, though in total only four code lines net are needed.
>However, if you need to store a bunch of user or app settings it might be a nice method with all the advantages of XML storage and exchange possibilities.
>
>/gustav
>
>  
>
>>>>stuart at lexacorp.com.pg 20-01-2006 00:48 >>>
>>>>        
>>>>
>On 19 Jan 2006 at 15:00, Charlotte Foust wrote:
>
>  
>
>>Actually, the XML files wind up with a structure very similar to the ini
>>files but you don't need API calls to read them.
>>    
>>
>
>So how  would you create, then read an XML file to store a backend server 
>path?
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From Lambert.Heenan at AIG.com  Fri Jan 20 15:22:23 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Fri, 20 Jan 2006 16:22:23 -0500
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6E804@xlivmbx21.aig.com>

Here's an example of creating named ranges....

Sub Excel_CreateNamedRange(sPath As String, sRangeName As String,  _  
	sSheetName As String, Optional sRegionStart As String = "A1")
' Creates a named range (sRangeName) in the given spreadsheet (sPath)
' on the given worksheet (sSheetName).
' The region of data to include in the named range includes the cell address
in sRegionStart
    Dim xlApp As Excel.Application

    Dim rng As String
    
    'Check to see if the file name passed in to
    'the procedure is valid
    If Not FileExists(sPath) Then '
        MsgBox sPath & " isn't a valid path!"
        Exit Sub
    Else
        Set xlApp = CreateObject("Excel.Application")
        'xlApp.Visible = True
        xlApp.Workbooks.Open sPath
        xlApp.Worksheets(sSheetName).Activate
        xlApp.ActiveSheet.Range(sRegionStart).Select
        rng = xlApp.Selection.CurrentRegion.Address

        xlApp.ActiveWorkbook.Names.Add sRangeName, "=" & sSheetName & "!" &
rng
    End If
    Excel_CloseWorkBook xlApp, True
    Set xlApp = Nothing
End Sub

And the routines it uses...

Function FileExists(strFile As String) As Boolean
  ' Comments  : Determines if the file exists
  '             Works for hidden files and folders
  ' Parameters: strFile - file to check
  ' Returns   : True if the file exists, otherwise false
  Dim intAttr As Integer
  Dim errnum As Long
  On Error Resume Next
  intAttr = GetAttr(strFile)
  errnum = Err.Number
  FileExists = (Err.Number = 0)
End Function


Sub Excel_CloseWorkBook(xlApp As Excel.Application, Optional bSaveChanges As
Boolean = False)
Dim wb As Excel.Workbook
    On Error Resume Next
    If xlApp.Name > "" Then ' forces an error if the xlApp object is not set
    End If
    If Err.Number <> 0 Then Exit Sub
    On Error GoTo 0
        For Each wb In xlApp.Workbooks         'Close all open workbooks
            wb.Close bSaveChanges
        Next wb
    xlApp.UserControl = False
    Set xlApp = Nothing
End Sub



HTH

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 20, 2006 3:08 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Syntax for seeing named range in excel


Gustav,

>Nice to hear. Please let me leave that as the quote of the week!

Well, you know how it goes with this list, there is so much traffic that you
have to ignore what you don't use.

I just don't use Excel much for my own purposes.  I am moving this summer to
North Carolina and have to get real about my money so this last week I did a
"Income/Expense" workbook with three worksheets for income, expenses and
credit.  It wasn't until I started naming ranges there and then using the
names that I discovered just how cool they are.

>So, everyone else, Named Ranges are so simple to apply and use, the 
>feature
has been there since "forever", but still most users and many programmers
don't know about it, thus wasting time hammering primitive cell coordinates
into formulas and code.

Amen Brother!  

Now I need to figure out how to CREATE named ranges when I build a
spreadsheet in VBA.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 2:05 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

Nice to hear. Please let me leave that as the quote of the week!

However, I haven't missed an opportunity to mention this through the
years(!) - speaking for deaf ears?

So, everyone else, Named Ranges are so simple to apply and use, the feature
has been there since "forever", but still most users and many programmers
don't know about it, thus wasting time hammering primitive cell coordinates
into formulas and code.

/gustav

>>> jwcolby at ColbyConsulting.com 20-01-2006 19:40:29 >>>

I just really discovered named ranges and boy is THAT cool, even inside the
spreadsheet.


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

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


From robert at servicexp.com  Fri Jan 20 16:26:36 2006
From: robert at servicexp.com (Robert Gracie)
Date: Fri, 20 Jan 2006 17:26:36 -0500
Subject: [AccessD] MDE & Otter package installers
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CE4@gbsserver.GBS.local>

Hey Rocky, 
 Be careful, unless you set the DDL property to True when creating the
property, It's fairly simple to bypass the properties.  


Robert Gracie
www.gbsysnow.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Friday, January 20, 2006 12:45 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] MDE & Otter package installers

Joe:

SOme of the objects, like queries, are still visible unless you do more
locking:

You can add some locking code like :

Sub SetStartupProperties(TheOpeningForm As String)

If boolTrapErrors = True Then On Error GoTo Err_SetStartupProperties


    ChangeProperty "StartupForm", dbText, TheOpeningForm
    ChangeProperty "StartupShowDBWindow", dbBoolean, False
    ChangeProperty "StartupShowStatusBar", dbBoolean, False
    ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
    ChangeProperty "AllowFullMenus", dbBoolean, False
    ChangeProperty "AllowBreakIntoCode", dbBoolean, False
    ChangeProperty "AllowSpecialKeys", dbBoolean, False
    ChangeProperty "AllowBypassKey", dbBoolean, False
    ChangeProperty "MenuBar", dbBoolean, False
   

Exit_SetStartupProperties:
Exit Sub

Err_SetStartupProperties:

    Select Case Err
    Case 0      '.insert Errors you wish to ignore here
        Resume Next
    Case Else   '.All other errors will trap
        Beep
        DoCmd.OpenForm "frmErrorMessage ", , , , , , "Error: " &
Err.Number & " - " & Err.Description & vbCrLf & "In: 
ezmrp-opener.SetStartupProperties"
        Resume Exit_SetStartupProperties
    End Select

    Resume 0    '.FOR TROUBLESHOOTING

End Sub

where the change property function:

Function ChangeProperty(strPropName As String, varPropType As Variant,
varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

Not my code.  I cribbed it from somewhere - the ADH I think.  But you
also need unlocking code and a back door to get back into your mde.


Rocky


Joe Hecht wrote:
> How locked is my project when I make an MDE or use VSTO or
> other install packages.
>
>  
>
> If I make a label for a text box and caption it auto, can
> they come back & change the caption to car as an example?
>
>  
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>  
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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




From andy at minstersystems.co.uk  Fri Jan 20 16:06:31 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 20 Jan 2006 22:06:31 -0000
Subject: [AccessD] Syntax for seeing named range in excel
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF47@INFOSERVER04.infostat.local>
Message-ID: <004201c61e0d$c4eafb20$851c0c54@minster33c3r25>

They were even in early versions of 123 when I was doing major stuff with
that decades ago. /Range Name .... Aaaah, memories!

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Charlotte Foust
> Sent: 20 January 2006 19:12
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Syntax for seeing named range in excel
> 
> 
> It's funny, but named ranges have been around since at least 
> Excel 5 that I can remember, maybe longer, and yet they seem 
> to be so obscure. I don't use Excel much, but I did at one 
> time, and I couldn't have built the pseudo-databases I did 
> (for Macs at the time, which didn't have much of the real 
> thing) without making extensive use of named ranges. They're so EASY!!
> 
> Charlotte Foust
> 
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gustav Brock
> Sent: Friday, January 20, 2006 11:05 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Syntax for seeing named range in excel
> 
> 
> Hi John
> 
> Nice to hear. Please let me leave that as the quote of the week!
> 
> However, I haven't missed an opportunity to mention this through the
> years(!) - speaking for deaf ears?
> 
> So, everyone else, Named Ranges are so simple to apply and 
> use, the feature has been there since "forever", but still 
> most users and many programmers don't know about it, thus 
> wasting time hammering primitive cell coordinates into 
> formulas and code.
> 
> /gustav
> 
> >>> jwcolby at ColbyConsulting.com 20-01-2006 19:40:29 >>>
> 
> I just really discovered named ranges and boy is THAT cool, 
> even inside the spreadsheet.
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From bchacc at san.rr.com  Fri Jan 20 17:00:37 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Fri, 20 Jan 2006 15:00:37 -0800
Subject: [AccessD] MDE & Otter package installers
In-Reply-To: <3C6BD610FA11044CADFC8C13E6D5508F042CE4@gbsserver.GBS.local>
References: <3C6BD610FA11044CADFC8C13E6D5508F042CE4@gbsserver.GBS.local>
Message-ID: <43D16B95.4090905@san.rr.com>

What?  What?!  What's the DDL property?  I wonder if I sent you my mde 
you could see if you could crack it?  I thought I was being so careful.  
At worst it would expose the queries, yes?  The back end is an mdb and 
deliberately exposed. I'm just trying to protect the front end.

TIA

Rocky


Robert Gracie wrote:
> Hey Rocky, 
>  Be careful, unless you set the DDL property to True when creating the
> property, It's fairly simple to bypass the properties.  
>
>
> Robert Gracie
> www.gbsysnow.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Friday, January 20, 2006 12:45 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] MDE & Otter package installers
>
> Joe:
>
> SOme of the objects, like queries, are still visible unless you do more
> locking:
>
> You can add some locking code like :
>
> Sub SetStartupProperties(TheOpeningForm As String)
>
> If boolTrapErrors = True Then On Error GoTo Err_SetStartupProperties
>
>
>     ChangeProperty "StartupForm", dbText, TheOpeningForm
>     ChangeProperty "StartupShowDBWindow", dbBoolean, False
>     ChangeProperty "StartupShowStatusBar", dbBoolean, False
>     ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
>     ChangeProperty "AllowFullMenus", dbBoolean, False
>     ChangeProperty "AllowBreakIntoCode", dbBoolean, False
>     ChangeProperty "AllowSpecialKeys", dbBoolean, False
>     ChangeProperty "AllowBypassKey", dbBoolean, False
>     ChangeProperty "MenuBar", dbBoolean, False
>    
>
> Exit_SetStartupProperties:
> Exit Sub
>
> Err_SetStartupProperties:
>
>     Select Case Err
>     Case 0      '.insert Errors you wish to ignore here
>         Resume Next
>     Case Else   '.All other errors will trap
>         Beep
>         DoCmd.OpenForm "frmErrorMessage ", , , , , , "Error: " &
> Err.Number & " - " & Err.Description & vbCrLf & "In: 
> ezmrp-opener.SetStartupProperties"
>         Resume Exit_SetStartupProperties
>     End Select
>
>     Resume 0    '.FOR TROUBLESHOOTING
>
> End Sub
>
> where the change property function:
>
> Function ChangeProperty(strPropName As String, varPropType As Variant,
> varPropValue As Variant) As Integer
>     Dim dbs As Object, prp As Variant
>     Const conPropNotFoundError = 3270
>
>     Set dbs = CurrentDb
>     On Error GoTo Change_Err
>     dbs.Properties(strPropName) = varPropValue
>     ChangeProperty = True
>
> Change_Bye:
>     Exit Function
>
> Change_Err:
>     If Err = conPropNotFoundError Then    ' Property not found.
>         Set prp = dbs.CreateProperty(strPropName, _
>             varPropType, varPropValue)
>         dbs.Properties.Append prp
>         Resume Next
>     Else
>         ' Unknown error.
>         ChangeProperty = False
>         Resume Change_Bye
>     End If
> End Function
>
> Not my code.  I cribbed it from somewhere - the ADH I think.  But you
> also need unlocking code and a back door to get back into your mde.
>
>
> Rocky
>
>
> Joe Hecht wrote:
>   
>> How locked is my project when I make an MDE or use VSTO or
>> other install packages.
>>
>>  
>>
>> If I make a label for a text box and caption it auto, can
>> they come back & change the caption to car as an example?
>>
>>  
>>
>> Joe Hecht
>>
>> jmhecht at earthlink.net
>>
>>  
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From robert at servicexp.com  Fri Jan 20 17:53:03 2006
From: robert at servicexp.com (Robert Gracie)
Date: Fri, 20 Jan 2006 18:53:03 -0500
Subject: [AccessD] MDE & Otter package installers
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CE5@gbsserver.GBS.local>

Rocky
 I'm fairly certain I could open your mde and expose at the very least
the database container.

>From Help...

Optional. A Variant (Boolean subtype) that indicates whether or not the
Property is a DDL object. The default is False. If DDL is True, users
can't change or delete this Property object unless they have
dbSecWriteDef permission.

Check this out also:

http://www.mvps.org/access/general/gen0040.htm

 


Robert Gracie
www.gbsysnow.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Friday, January 20, 2006 6:46 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] MDE & Otter package installers

What?  What?!  What's the DDL property?  I wonder if I sent you my mde
you could see if you could crack it?  I thought I was being so careful.

At worst it would expose the queries, yes?  The back end is an mdb and
deliberately exposed. I'm just trying to protect the front end.

TIA

Rocky


Robert Gracie wrote:
> Hey Rocky,
>  Be careful, unless you set the DDL property to True when creating the

> property, It's fairly simple to bypass the properties.
>
>
> Robert Gracie
> www.gbsysnow.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
Smolin
> - Beach Access Software
> Sent: Friday, January 20, 2006 12:45 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] MDE & Otter package installers
>
> Joe:
>
> SOme of the objects, like queries, are still visible unless you do
more
> locking:
>
> You can add some locking code like :
>
> Sub SetStartupProperties(TheOpeningForm As String)
>
> If boolTrapErrors = True Then On Error GoTo Err_SetStartupProperties
>
>
>     ChangeProperty "StartupForm", dbText, TheOpeningForm
>     ChangeProperty "StartupShowDBWindow", dbBoolean, False
>     ChangeProperty "StartupShowStatusBar", dbBoolean, False
>     ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
>     ChangeProperty "AllowFullMenus", dbBoolean, False
>     ChangeProperty "AllowBreakIntoCode", dbBoolean, False
>     ChangeProperty "AllowSpecialKeys", dbBoolean, False
>     ChangeProperty "AllowBypassKey", dbBoolean, False
>     ChangeProperty "MenuBar", dbBoolean, False
>    
>
> Exit_SetStartupProperties:
> Exit Sub
>
> Err_SetStartupProperties:
>
>     Select Case Err
>     Case 0      '.insert Errors you wish to ignore here
>         Resume Next
>     Case Else   '.All other errors will trap
>         Beep
>         DoCmd.OpenForm "frmErrorMessage ", , , , , , "Error: " &
> Err.Number & " - " & Err.Description & vbCrLf & "In: 
> ezmrp-opener.SetStartupProperties"
>         Resume Exit_SetStartupProperties
>     End Select
>
>     Resume 0    '.FOR TROUBLESHOOTING
>
> End Sub
>
> where the change property function:
>
> Function ChangeProperty(strPropName As String, varPropType As Variant,
> varPropValue As Variant) As Integer
>     Dim dbs As Object, prp As Variant
>     Const conPropNotFoundError = 3270
>
>     Set dbs = CurrentDb
>     On Error GoTo Change_Err
>     dbs.Properties(strPropName) = varPropValue
>     ChangeProperty = True
>
> Change_Bye:
>     Exit Function
>
> Change_Err:
>     If Err = conPropNotFoundError Then    ' Property not found.
>         Set prp = dbs.CreateProperty(strPropName, _
>             varPropType, varPropValue)
>         dbs.Properties.Append prp
>         Resume Next
>     Else
>         ' Unknown error.
>         ChangeProperty = False
>         Resume Change_Bye
>     End If
> End Function
>
> Not my code.  I cribbed it from somewhere - the ADH I think.  But you
> also need unlocking code and a back door to get back into your mde.
>
>
> Rocky
>
>
> Joe Hecht wrote:
>   
>> How locked is my project when I make an MDE or use VSTO or
>> other install packages.
>>
>>  
>>
>> If I make a label for a text box and caption it auto, can
>> they come back & change the caption to car as an example?
>>
>>  
>>
>> Joe Hecht
>>
>> jmhecht at earthlink.net
>>
>>  
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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




From bchacc at san.rr.com  Fri Jan 20 17:45:19 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Fri, 20 Jan 2006 15:45:19 -0800
Subject: [AccessD] MDE & Otter package installers
In-Reply-To: <3C6BD610FA11044CADFC8C13E6D5508F042CE5@gbsserver.GBS.local>
References: <3C6BD610FA11044CADFC8C13E6D5508F042CE5@gbsserver.GBS.local>
Message-ID: <43D1760F.9050107@san.rr.com>

Robert:

So if I change

Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)

to 

Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue, True)

will that prevent users from deleting and changing the property?

However, the link says: " If /DDL/ is *True*, users can't change or delete this *Property* object unless they have *dbSecWriteDef*          permission."

Do you know what dbSecWriteDef is and how a user gets it?

TIA

Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com





Robert Gracie wrote:
> Rocky
>  I'm fairly certain I could open your mde and expose at the very least
> the database container.
>
> >From Help...
>
> Optional. A Variant (Boolean subtype) that indicates whether or not the
> Property is a DDL object. The default is False. If DDL is True, users
> can't change or delete this Property object unless they have
> dbSecWriteDef permission.
>
> Check this out also:
>
> http://www.mvps.org/access/general/gen0040.htm
>
>  
>
>
> Robert Gracie
> www.gbsysnow.com
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Friday, January 20, 2006 6:46 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] MDE & Otter package installers
>
> What?  What?!  What's the DDL property?  I wonder if I sent you my mde
> you could see if you could crack it?  I thought I was being so careful.
>
> At worst it would expose the queries, yes?  The back end is an mdb and
> deliberately exposed. I'm just trying to protect the front end.
>
> TIA
>
> Rocky
>
>
> Robert Gracie wrote:
>   
>> Hey Rocky,
>>  Be careful, unless you set the DDL property to True when creating the
>>     
>
>   
>> property, It's fairly simple to bypass the properties.
>>
>>
>> Robert Gracie
>> www.gbsysnow.com
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>     
> Smolin
>   
>> - Beach Access Software
>> Sent: Friday, January 20, 2006 12:45 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] MDE & Otter package installers
>>
>> Joe:
>>
>> SOme of the objects, like queries, are still visible unless you do
>>     
> more
>   
>> locking:
>>
>> You can add some locking code like :
>>
>> Sub SetStartupProperties(TheOpeningForm As String)
>>
>> If boolTrapErrors = True Then On Error GoTo Err_SetStartupProperties
>>
>>
>>     ChangeProperty "StartupForm", dbText, TheOpeningForm
>>     ChangeProperty "StartupShowDBWindow", dbBoolean, False
>>     ChangeProperty "StartupShowStatusBar", dbBoolean, False
>>     ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
>>     ChangeProperty "AllowFullMenus", dbBoolean, False
>>     ChangeProperty "AllowBreakIntoCode", dbBoolean, False
>>     ChangeProperty "AllowSpecialKeys", dbBoolean, False
>>     ChangeProperty "AllowBypassKey", dbBoolean, False
>>     ChangeProperty "MenuBar", dbBoolean, False
>>    
>>
>> Exit_SetStartupProperties:
>> Exit Sub
>>
>> Err_SetStartupProperties:
>>
>>     Select Case Err
>>     Case 0      '.insert Errors you wish to ignore here
>>         Resume Next
>>     Case Else   '.All other errors will trap
>>         Beep
>>         DoCmd.OpenForm "frmErrorMessage ", , , , , , "Error: " &
>> Err.Number & " - " & Err.Description & vbCrLf & "In: 
>> ezmrp-opener.SetStartupProperties"
>>         Resume Exit_SetStartupProperties
>>     End Select
>>
>>     Resume 0    '.FOR TROUBLESHOOTING
>>
>> End Sub
>>
>> where the change property function:
>>
>> Function ChangeProperty(strPropName As String, varPropType As Variant,
>> varPropValue As Variant) As Integer
>>     Dim dbs As Object, prp As Variant
>>     Const conPropNotFoundError = 3270
>>
>>     Set dbs = CurrentDb
>>     On Error GoTo Change_Err
>>     dbs.Properties(strPropName) = varPropValue
>>     ChangeProperty = True
>>
>> Change_Bye:
>>     Exit Function
>>
>> Change_Err:
>>     If Err = conPropNotFoundError Then    ' Property not found.
>>         Set prp = dbs.CreateProperty(strPropName, _
>>             varPropType, varPropValue)
>>         dbs.Properties.Append prp
>>         Resume Next
>>     Else
>>         ' Unknown error.
>>         ChangeProperty = False
>>         Resume Change_Bye
>>     End If
>> End Function
>>
>> Not my code.  I cribbed it from somewhere - the ADH I think.  But you
>> also need unlocking code and a back door to get back into your mde.
>>
>>
>> Rocky
>>
>>
>> Joe Hecht wrote:
>>   
>>     
>>> How locked is my project when I make an MDE or use VSTO or
>>> other install packages.
>>>
>>>  
>>>
>>> If I make a label for a text box and caption it auto, can
>>> they come back & change the caption to car as an example?
>>>
>>>  
>>>
>>> Joe Hecht
>>>
>>> jmhecht at earthlink.net
>>>
>>>  
>>>
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From robert at servicexp.com  Fri Jan 20 18:24:56 2006
From: robert at servicexp.com (Robert Gracie)
Date: Fri, 20 Jan 2006 19:24:56 -0500
Subject: [AccessD] MDE & Otter package installers
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CE7@gbsserver.GBS.local>

Rocky,
 You need to first delete the properties, then using an account that has
administrative privileges (Dev mdw.) recreate the properties, setting
the fourth property (DDL) to True.  This way, ONLY users with
Administrative (or dbSecWriteDef) can "set the properties". 

 If you are protecting the front end, then I would image that you are
shipping a an mdw file that has all administrative privileges removed.
You should ALWAYS build a "Dev" mdw to work with your object and ship
the FE with a user mdw.


Robert Gracie
www.gbsysnow.com



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Friday, January 20, 2006 7:16 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] MDE & Otter package installers

Robert:

So if I change

Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)

to 

Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue, True)

will that prevent users from deleting and changing the property?

However, the link says: " If /DDL/ is *True*, users can't change or
delete this *Property* object unless they have *dbSecWriteDef*
permission."

Do you know what dbSecWriteDef is and how a user gets it?

TIA

Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com





Robert Gracie wrote:
> Rocky
>  I'm fairly certain I could open your mde and expose at the very least

> the database container.
>
> >From Help...
>
> Optional. A Variant (Boolean subtype) that indicates whether or not 
> the Property is a DDL object. The default is False. If DDL is True, 
> users can't change or delete this Property object unless they have 
> dbSecWriteDef permission.
>
> Check this out also:
>
> http://www.mvps.org/access/general/gen0040.htm
>
>  
>
>
> Robert Gracie
> www.gbsysnow.com
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Friday, January 20, 2006 6:46 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] MDE & Otter package installers
>
> What?  What?!  What's the DDL property?  I wonder if I sent you my mde

> you could see if you could crack it?  I thought I was being so
careful.
>
> At worst it would expose the queries, yes?  The back end is an mdb and

> deliberately exposed. I'm just trying to protect the front end.
>
> TIA
>
> Rocky
>
>
> Robert Gracie wrote:
>   
>> Hey Rocky,
>>  Be careful, unless you set the DDL property to True when creating 
>> the
>>     
>
>   
>> property, It's fairly simple to bypass the properties.
>>
>>
>> Robert Gracie
>> www.gbsysnow.com
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>     
> Smolin
>   
>> - Beach Access Software
>> Sent: Friday, January 20, 2006 12:45 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] MDE & Otter package installers
>>
>> Joe:
>>
>> SOme of the objects, like queries, are still visible unless you do
>>     
> more
>   
>> locking:
>>
>> You can add some locking code like :
>>
>> Sub SetStartupProperties(TheOpeningForm As String)
>>
>> If boolTrapErrors = True Then On Error GoTo Err_SetStartupProperties
>>
>>
>>     ChangeProperty "StartupForm", dbText, TheOpeningForm
>>     ChangeProperty "StartupShowDBWindow", dbBoolean, False
>>     ChangeProperty "StartupShowStatusBar", dbBoolean, False
>>     ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
>>     ChangeProperty "AllowFullMenus", dbBoolean, False
>>     ChangeProperty "AllowBreakIntoCode", dbBoolean, False
>>     ChangeProperty "AllowSpecialKeys", dbBoolean, False
>>     ChangeProperty "AllowBypassKey", dbBoolean, False
>>     ChangeProperty "MenuBar", dbBoolean, False
>>    
>>
>> Exit_SetStartupProperties:
>> Exit Sub
>>
>> Err_SetStartupProperties:
>>
>>     Select Case Err
>>     Case 0      '.insert Errors you wish to ignore here
>>         Resume Next
>>     Case Else   '.All other errors will trap
>>         Beep
>>         DoCmd.OpenForm "frmErrorMessage ", , , , , , "Error: " & 
>> Err.Number & " - " & Err.Description & vbCrLf & "In:
>> ezmrp-opener.SetStartupProperties"
>>         Resume Exit_SetStartupProperties
>>     End Select
>>
>>     Resume 0    '.FOR TROUBLESHOOTING
>>
>> End Sub
>>
>> where the change property function:
>>
>> Function ChangeProperty(strPropName As String, varPropType As 
>> Variant, varPropValue As Variant) As Integer
>>     Dim dbs As Object, prp As Variant
>>     Const conPropNotFoundError = 3270
>>
>>     Set dbs = CurrentDb
>>     On Error GoTo Change_Err
>>     dbs.Properties(strPropName) = varPropValue
>>     ChangeProperty = True
>>
>> Change_Bye:
>>     Exit Function
>>
>> Change_Err:
>>     If Err = conPropNotFoundError Then    ' Property not found.
>>         Set prp = dbs.CreateProperty(strPropName, _
>>             varPropType, varPropValue)
>>         dbs.Properties.Append prp
>>         Resume Next
>>     Else
>>         ' Unknown error.
>>         ChangeProperty = False
>>         Resume Change_Bye
>>     End If
>> End Function
>>
>> Not my code.  I cribbed it from somewhere - the ADH I think.  But you

>> also need unlocking code and a back door to get back into your mde.
>>
>>
>> Rocky
>>
>>
>> Joe Hecht wrote:
>>   
>>     
>>> How locked is my project when I make an MDE or use VSTO or other 
>>> install packages.
>>>
>>>  
>>>
>>> If I make a label for a text box and caption it auto, can they come 
>>> back & change the caption to car as an example?
>>>
>>>  
>>>
>>> Joe Hecht
>>>
>>> jmhecht at earthlink.net
>>>
>>>  
>>>
>>>   
>>>     
>>>       
>>   
>>     
>
>   

--
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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




From jmhecht at earthlink.net  Fri Jan 20 18:07:23 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 20 Jan 2006 16:07:23 -0800
Subject: [AccessD] Read External File for Path String
In-Reply-To: <43D14E3B.30501@shaw.ca>
Message-ID: <000001c61e1e$a864fa80$6701a8c0@HPLaptop>

I have so much to learn I have just ruled out xml for now.
My projects are too small to take advantage of it.

Thanks for the info though.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
MartyConnelly
Sent: Friday, January 20, 2006 12:55 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Read External File for Path String

If you don't have that high a version of Access here is
method of using 
xmldom to read xml file.
rather than ImportXML method.

'?LoadXMLFile("C:\XML\AdviserDetails.xml")
Public Function LoadXMLFile(ByRef AdviserXML As String)

    'On Error GoTo ErrorHandler
    'needs reference set to XML 4.0 and maybe ADO 2.8
    Dim oDOMDocument As MSXML2.DOMDocument40
    Dim oNodeList As IXMLDOMNodeList
    Dim oAdviserDetailsNode As IXMLDOMNode
    Dim oLowestLevelNode As IXMLDOMElement
    Dim objXMLDOMNamedNodeMap As IXMLDOMNamedNodeMap
     Dim xPError As IXMLDOMParseError
    Dim Mydb As Database
    Dim myrs As ADODB.Recordset
    Dim sTempValue As String
    Dim lrec As Long
    Dim lnorec As Long
    Set oDOMDocument = New MSXML2.DOMDocument40

    oDOMDocument.async = False
    oDOMDocument.validateOnParse = True 'you may want to
parse for errors
    oDOMDocument.resolveExternals = False
    oDOMDocument.preserveWhiteSpace = True
 
    'use if xml disk file
      If Not oDOMDocument.Load(AdviserXML) Then
        MsgBox ("XML File error")
             Set xPError = oDOMDocument.parseError
        DOMParseError xPError
      
       End If
    Set oAdviserDetailsNode = oDOMDocument.documentElement
     Debug.Print oDOMDocument.xml
    
  
    'Set Mydb = CurrentDb
    'Set myrs = Mydb.OpenRecordset("NewTable")
 

   'use appropriate XPath expression to select nodes
  
   Set oNodeList =
oAdviserDetailsNode.selectNodes("//BusinessDetails/*")
 
     lnorec = 0
     lrec = 0
     Debug.Print oNodeList.length
     '   myrs.AddNew
    For Each oLowestLevelNode In oNodeList
        sTempValue = oLowestLevelNode.Text
         lrec = lrec + 1
        Select Case oLowestLevelNode.nodeName
            Case "BusinessName"
                   Debug.Print "Business " & sTempValue
                'myrs!BusinessName = sTempValue
            Case "AddressLine1"
                'myrs!AddressLine1 = sTempValue
            Case "AddressLine2"
                'myrs!AddressLine2 = sTempValue
            Case "Suburb"
                'myrs!Suburb = sTempValue
            Case "State"
                'myrs!State = sTempValue
                Debug.Print sTempValue
            Case "Postcode"
                'myrs!Postcode = sTempValue
            Case "PhoneNumber"
             Debug.Print "Phone " & sTempValue
                'myrs!PhoneNumber = sTempValue
            Case "Email"
                'myrs!Email = sTempValue
            Case "FaxNumber"
                'myrs!FaxNumber = sTempValue
        End Select
        If lrec = 9 Then '9 elements in business details
       ' myrs.Update
        lnorec = lnorec + 1
        lrec = 0
       ' myrs.AddNew
        End If
      Next
     
     MsgBox "Records Added=" & lnorec
     ' Set myrs = Nothing
    'Set Mydb = Nothing
    Set oDOMDocument = Nothing
    Set oAdviserDetailsNode = Nothing
    Set objXMLDOMNamedNodeMap = Nothing
    Exit Function

ErrorHandler:

  '  Call NewError.Raise(Err.Number, Err.Source,
Err.Description)

End Function
Sub DOMParseError(xPE As IXMLDOMParseError)

    ' The document failed to load.
    Dim strErrText As String
    ' Obtain the ParseError object
    With xPE
    strErrText = "Your XML Document failed to load" & _
        "due the following error." & vbCrLf & _
        "Error #: " & .errorCode & ": " & xPE.reason & _
        "Line #: " & .Line & vbCrLf & _
        "Line Position: " & .linepos & vbCrLf & _
        "Position In File: " & .filepos & vbCrLf & _
        "Source Text: " & .srcText & vbCrLf & _
        "Document URL: " & .url
    End With
    Debug.Print strErrText

  Dim s As String
  Dim r As String
  Dim i As Long
 
   s = ""
  For i = 1 To xPE.linepos - 1
    s = s & " "
  Next
  r = "XML Error loading " & xPE.url & " * " & xPE.reason
  Debug.Print r
    'show character postion of error; tired of counting
chars in xml file
  If (xPE.Line > 0) Then
    r = "at line " & xPE.Line & ", character " & xPE.linepos
& vbCrLf & _
         xPE.srcText & vbCrLf & s & "^"
  End If
  Debug.Print r
    MsgBox strErrText, vbExclamation
End Sub




--------  "C:\XML\AdviserDetails.xml"  save as UTF-8 not
ANSI in notepad

<?xml version="1.0" encoding="UTF-8"?>
<AdviserDetails ID="AD12345">
    <BusinessDetails>
        <BusinessName>"AD Business Name" </BusinessName>
        <AddressLine1>"AD Address Line 1" </AddressLine1>
        <AddressLine2>"AD Address Line 2" </AddressLine2>
        <Suburb>"AD Suburb" </Suburb>
        <State>"AD State" </State>
        <Postcode>"AD PostCode" </Postcode>
        <PhoneNumber>"AD Phone Number" </PhoneNumber>
        <Email>"AD Email" </Email>
        <FaxNumber>"AD Fax Number" </FaxNumber>
    </BusinessDetails>
</AdviserDetails>

Gustav Brock wrote:

>Hi Stuart
>
>Use A2002+.
>Have an internal table with your path, tblPath.
>
>To export:
>Application.ExportXML acExportTable , "tblPath",
"c:\mypath.xml"
>
>To import:
>CurrentDb.Execute "Delete * From tblPath"
>Application.ImportXML "c:\mypath.xml", acAppendData
>
>To read:
>strPath = DLookup("Path", "tblPath")
>
>Not quite sure how "easy" that is, though in total only
four code lines net are needed.
>However, if you need to store a bunch of user or app
settings it might be a nice method with all the advantages
of XML storage and exchange possibilities.
>
>/gustav
>
>  
>
>>>>stuart at lexacorp.com.pg 20-01-2006 00:48 >>>
>>>>        
>>>>
>On 19 Jan 2006 at 15:00, Charlotte Foust wrote:
>
>  
>
>>Actually, the XML files wind up with a structure very
similar to the ini
>>files but you don't need API calls to read them.
>>    
>>
>
>So how  would you create, then read an XML file to store a
backend server 
>path?
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada



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



From jwcolby at ColbyConsulting.com  Fri Jan 20 18:08:02 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 20 Jan 2006 19:08:02 -0500
Subject: [AccessD] Upsize wizard and named queries
Message-ID: <00fc01c61e1e$bf4bb5e0$647aa8c0@ColbyM6805>

I thought that someone said I needed to pull all SQL out of properties and
create named queries so that the upsize wizard could upsize them.  I did so
but I am not seeing any indication that the saved queries are being upsized?
Are they supposed to?  If so, what will happen?  Will the queries be deleted
from the query tab?  What happens to the object properties
(form/combo/list)?  Or is this only for ADPs?  If it is only for ADPs how do
I manually upsize the queries and then how do I replace the queries in the
object properties with the SPs or whatever the equivalent is in SQL Server.

Confused in CT

John W. Colby
www.ColbyConsulting.com 




From vchas at comcast.net  Fri Jan 20 20:24:07 2006
From: vchas at comcast.net (Vinnie Chas)
Date: Fri, 20 Jan 2006 18:24:07 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
Message-ID: <003f01c61e31$c1e26bb0$014bbd43@flagg>

Hi Group,
Access XP mde on windows XP machine
Is there a way to change a reports print margin at runtime? I have a custom
print job to print W2's, W3's 1099's. On the development machine all text
aligns correctly on preprinted forms. When I roll out the mde to clients I'm
finding that depending on their printer, it doesn't line up correctly. I
then have to a just the reports margins for each individual customer. I know
I can do this in a mdb but a mde? Is this possible?

TIA

Vinnie

Vinnie Chas
www.vinniechas.com




From bill_Patten at earthlink.net  Fri Jan 20 20:40:56 2006
From: bill_Patten at earthlink.net (Bill Patten)
Date: Fri, 20 Jan 2006 18:40:56 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
References: <003f01c61e31$c1e26bb0$014bbd43@flagg>
Message-ID: <00da01c61e34$1ba94a90$6501a8c0@BPCS>

I can set the margins on my MDE's but the setting doesn't remain after I 
close the program. It does remain as long as the application is open 
however.

Bill
----- Original Message ----- 
From: "Vinnie Chas" <vchas at comcast.net>
To: <accessd at databaseadvisors.com>
Sent: Friday, January 20, 2006 6:24 PM
Subject: [AccessD] Change report marprint margins at runtime (Access XP )


Hi Group,
Access XP mde on windows XP machine
Is there a way to change a reports print margin at runtime? I have a custom
print job to print W2's, W3's 1099's. On the development machine all text
aligns correctly on preprinted forms. When I roll out the mde to clients I'm
finding that depending on their printer, it doesn't line up correctly. I
then have to a just the reports margins for each individual customer. I know
I can do this in a mdb but a mde? Is this possible?

TIA

Vinnie

Vinnie Chas
www.vinniechas.com


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



From bill_Patten at earthlink.net  Fri Jan 20 20:43:27 2006
From: bill_Patten at earthlink.net (Bill Patten)
Date: Fri, 20 Jan 2006 18:43:27 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
References: <003f01c61e31$c1e26bb0$014bbd43@flagg>
Message-ID: <00de01c61e34$75329620$6501a8c0@BPCS>

Oh yes the particular report needs to be in preview mode, then set and it 
will remain as long as the app is open.

Bill
----- Original Message ----- 
From: "Vinnie Chas" <vchas at comcast.net>
To: <accessd at databaseadvisors.com>
Sent: Friday, January 20, 2006 6:24 PM
Subject: [AccessD] Change report marprint margins at runtime (Access XP )


Hi Group,
Access XP mde on windows XP machine
Is there a way to change a reports print margin at runtime? I have a custom
print job to print W2's, W3's 1099's. On the development machine all text
aligns correctly on preprinted forms. When I roll out the mde to clients I'm
finding that depending on their printer, it doesn't line up correctly. I
then have to a just the reports margins for each individual customer. I know
I can do this in a mdb but a mde? Is this possible?

TIA

Vinnie

Vinnie Chas
www.vinniechas.com


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



From vchas at comcast.net  Fri Jan 20 21:08:39 2006
From: vchas at comcast.net (Vinnie Chas)
Date: Fri, 20 Jan 2006 19:08:39 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <00de01c61e34$75329620$6501a8c0@BPCS>
Message-ID: <004801c61e37$fabc3230$014bbd43@flagg>

 Currently I have the report to print straight to the printer. I can change
it to preview to accomplish this. But is it possible to save the margin
settings to a table and then have the report use those so?



>>Oh yes the particular report needs to be in preview mode, then set and it
will remain as 
>>long as the app is open.

>>Bill



>Hi Group,
>Access XP mde on windows XP machine
>Is there a way to change a reports print margin at runtime? I have a custom
>print job to print W2's, W3's 1099's. On the development machine all text
>aligns correctly on preprinted forms. When I roll out the mde to clients
I'm
>finding that depending on their printer, it doesn't line up correctly. I
>then have to a just the reports margins for each individual customer. I
know
>I can do this in a mdb but a mde? Is this possible?

>TIA






From jwcolby at ColbyConsulting.com  Fri Jan 20 21:42:33 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 20 Jan 2006 22:42:33 -0500
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <003f01c61e31$c1e26bb0$014bbd43@flagg>
Message-ID: <00ff01c61e3c$b8f4cd80$647aa8c0@ColbyM6805>

Vinnie, a name from the past.  Haven't seen you around in awhile!

Welcome back.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Vinnie Chas
Sent: Friday, January 20, 2006 9:24 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] Change report marprint margins at runtime (Access XP )

Hi Group,
Access XP mde on windows XP machine
Is there a way to change a reports print margin at runtime? I have a custom
print job to print W2's, W3's 1099's. On the development machine all text
aligns correctly on preprinted forms. When I roll out the mde to clients I'm
finding that depending on their printer, it doesn't line up correctly. I
then have to a just the reports margins for each individual customer. I know
I can do this in a mdb but a mde? Is this possible?

TIA

Vinnie

Vinnie Chas
www.vinniechas.com


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



From artful at rogers.com  Fri Jan 20 22:51:04 2006
From: artful at rogers.com (Arthur Fuller)
Date: Fri, 20 Jan 2006 23:51:04 -0500
Subject: [AccessD] Upsize wizard and named queries
In-Reply-To: <00fc01c61e1e$bf4bb5e0$647aa8c0@ColbyM6805>
Message-ID: <01bd01c61e46$48f07520$8e01a8c0@rock>

It may have been me that suggested this move prior to upsizing. What happens
is a little bit complex:
1. Queries named jc_query1 will arrive in the upsized database as is,
unless:
2. Queries containing an ORDER BY clause will arrive as two queries (since a
view cannot contain an ORDER BY clause).
An ADP is already upsized, since it is already talking to the SQL Server
installation. For better or worse, you got what you get, already.
HTH,
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: January 20, 2006 7:08 PM
To: 'Access Developers discussion and problem solving';
dba-sqlserver at databaseadvisors.com
Subject: [AccessD] Upsize wizard and named queries

I thought that someone said I needed to pull all SQL out of properties and
create named queries so that the upsize wizard could upsize them.  I did so
but I am not seeing any indication that the saved queries are being upsized?
Are they supposed to?  If so, what will happen?  Will the queries be deleted
from the query tab?  What happens to the object properties
(form/combo/list)?  Or is this only for ADPs?  If it is only for ADPs how do
I manually upsize the queries and then how do I replace the queries in the
object properties with the SPs or whatever the equivalent is in SQL Server.

Confused in CT

John W. Colby
www.ColbyConsulting.com 


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



From robert at servicexp.com  Fri Jan 20 23:33:41 2006
From: robert at servicexp.com (Robert Gracie)
Date: Sat, 21 Jan 2006 00:33:41 -0500
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CE8@gbsserver.GBS.local>

The best approach is to allow the users to set up the print formatting
requirements, and store those settings in a table... Something like this

Pulled from my Reports class, so hopefully you will get the idea.... Oh
and there is a BUNCH more you can do, this is just a very small example

Public Function BuildAccessReport() As Boolean
Dim RecordSuccBol           As Boolean
Dim ePrintTo                As acView

On Error GoTo HandleErr
If AccessReport = True Then
 If m_ePrintTo <> cOutputToPrinter Then
   ePrintTo = acViewPreview
 End If

   DoCmd.OpenReport m_sReportName, acViewPreview, "", SQL, acHidden
   Set A2KReport = Access.Reports(m_sReportName)
   With Access.Reports(m_sReportName)
    'If printing to the default printer, there is no need to set the
property
      If m_sPrinterName <> "{System Default}" Then
       Set A2KReport.Printer = Application.Printers(m_sPrinterName)
      End If
      
    .Printer.LeftMargin = m_dLeftMargin * TwipsPerInch
    .Printer.RightMargin = m_dRightMargin * TwipsPerInch
    .Printer.TopMargin = m_dTopMargin * TwipsPerInch
    .Printer.BottomMargin = m_dBottomMargin * TwipsPerInch
    
      If m_eOrientation = cLandscape Then
       .Printer.Orientation = acPRORLandscape
      Else
       .Printer.Orientation = acPRORPortrait
      End If
      
    .Printer.Copies = m_lCopies
    
   End With
   DoCmd.OpenReport m_sReportName, ePrintTo
   
   If ePrintTo <> acViewPreview Then
    DoCmd.Close acReport, m_sReportName
   End If

If m_bPrintSuc = True Then
  If PrintRecords(Now, 0, "Printed From: " & m_sCallingForm, m_lRN,
m_lCID) = False Then
    Call ErrorRecordSystem(0, "Print Error", Now, "Failed Record Print
Un-Expected Error In Proc; " & m_sCallingForm, CurrentUser)
  End If
End If
 
End If
ExitHere:
    Exit Function
HandleErr:
  Select Case Err.Number
   Case Else
      'MsgBox Err.BuildError("clsrptReport","BuildAccessReport"),
vbCritical, "Un-Expected Error"
       MsgBox "There has been an error in Procedure:
clsrptReport:BuildAccessReport " & vbCrLf & _
          "Error Number: " & Err.Number & vbCrLf & "Error Description: "
& Err.Description & vbCrLf & _
          "Please Contact " & "The SoftwareVendor" & " for more help
regarding this error. ", vbCritical, "Un-Expected Error"
       Call ErrorRecordSystem(Err.Number, Err.Description, Now,
"Un-Expected Error In Proc; " & "clsrptReport:BuildAccessReport ",
CurrentUser)
  End Select
End Function 


Robert Gracie
www.servicexp.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Vinnie Chas
Sent: Friday, January 20, 2006 10:45 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Change report marprint margins at runtime (Access
XP )

 Currently I have the report to print straight to the printer. I can
change it to preview to accomplish this. But is it possible to save the
margin settings to a table and then have the report use those so?



>>Oh yes the particular report needs to be in preview mode, then set and

>>it
will remain as 
>>long as the app is open.

>>Bill



>Hi Group,
>Access XP mde on windows XP machine
>Is there a way to change a reports print margin at runtime? I have a 
>custom print job to print W2's, W3's 1099's. On the development machine

>all text aligns correctly on preprinted forms. When I roll out the mde 
>to clients
I'm
>finding that depending on their printer, it doesn't line up correctly. 
>I then have to a just the reports margins for each individual customer.

>I
know
>I can do this in a mdb but a mde? Is this possible?

>TIA




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




From max at sherman.org.uk  Sat Jan 21 02:23:08 2006
From: max at sherman.org.uk (Max Sherman)
Date: Sat, 21 Jan 2006 08:23:08 -0000
Subject: [AccessD] Default font for forms etc.
In-Reply-To: <097801c61d1c$ae5650e0$8e01a8c0@rock>
Message-ID: <!&!AAAAAAAAAAAYAAAAAAAAAFuw6yFL/EpPgQyLGek9BtaiSQYAEAAAADxB90RohM5Bs6D7hTduo6YBAAAAAA==@sherman.org.uk>

Arthur,
In Ken Getz, et al (Vol 1), it says that you can set the default global
options.  The one you want is "Default Font Size" (any value between 1 and
127).
There are many other properties you can set, incl "Default Font Color",
"Default Font Name", etc.

It is called with Application.SetOption optionName, Setting
And
Setting = Application.GetOption(optionName).

If you have this publication (mine is for A2000) then it is on p1356 et seq
(Controlling Global Options).  They are all there - billions of them!


Regards
Max
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: 19 January 2006 17:21
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Default font for forms etc.

Where can I instruct Access to change the default font from Arial 8 to Arial
10 (or something else)? I have wandered through the Options dialog and
cannot find this setting. I have need to change this to Arial 10 at least
and have it affect every form I create.
TIA,
Arthur
 


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




From Gustav at cactus.dk  Sat Jan 21 06:03:44 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 21 Jan 2006 13:03:44 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d23148.016@cactus.dk>

Hi John

>>> jwcolby at ColbyConsulting.com 20-01-2006 21:08:20 >>>
> Now I need to figure out how to CREATE named ranges when I build a spreadsheet in VBA.

Eh? Isn't this VBA:

-----Original Message-----
Sent: Friday, January 20, 2006 10:31 AM
Subject: Re: [AccessD] Syntax for seeing named range in excel

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

---

Or have you something else in mind?

/gustav



From jwcolby at ColbyConsulting.com  Sat Jan 21 06:48:20 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sat, 21 Jan 2006 07:48:20 -0500
Subject: [AccessD] Syntax for seeing named range in excel
In-Reply-To: <s3d23148.016@cactus.dk>
Message-ID: <010e01c61e88$f605ab30$647aa8c0@ColbyM6805>

I guess my confusion now is how does this whole process work in practice.  

I thought that the "patent" issue was one of "linking to spreadsheets was
illegal", but manipulating them programmatically was OK.  Thus I could not
create a link, it just wouldn't even let me do it, but I could write a
program to open a spreadsheet and do whatever I wanted to it in code.  If
that is true then I can open / update / close / open / update / close a
spreadsheet all I wanted to IN CODE.  If that is NOT true then the first
time I close it I am screwed and have to start all over.

What is the truth here?

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 7:04 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

>>> jwcolby at ColbyConsulting.com 20-01-2006 21:08:20 >>>
> Now I need to figure out how to CREATE named ranges when I build a
spreadsheet in VBA.

Eh? Isn't this VBA:

-----Original Message-----
Sent: Friday, January 20, 2006 10:31 AM
Subject: Re: [AccessD] Syntax for seeing named range in excel

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

---

Or have you something else in mind?

/gustav

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



From Gustav at cactus.dk  Sat Jan 21 07:26:02 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 21 Jan 2006 14:26:02 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d24491.017@cactus.dk>

Hi Lambert

I've found that you don't need Select for anything else than if the worksheet operates in interactive mode and you wish to display a range for the user. 
Select exists in much code as it is what you get when you use the macro recorder for creating what you may call rough code.

Thus, you can reduce your central code lines like this:

        xlApp.Worksheets(sSheetName).Activate
        rng = Range(sRegionStart).Address
        xlApp.ActiveWorkbook.Names.Add sRangeName, "=" & sSheetName & "!" & rng

Can you specify the range including the $ signs, like:

  $F$5:$J$7

you don't even need Range:

        xlApp.Worksheets(sSheetName).Activate
        xlApp.ActiveWorkbook.Names.Add sRangeName, "=" & sSheetName & "!" & sRegionStart

/gustav

>>> Lambert.Heenan at AIG.com 20-01-2006 22:22:23 >>>
Here's an example of creating named ranges....

Sub Excel_CreateNamedRange(sPath As String, sRangeName As String,  _  
	sSheetName As String, Optional sRegionStart As String = "A1")
' Creates a named range (sRangeName) in the given spreadsheet (sPath)
' on the given worksheet (sSheetName).
' The region of data to include in the named range includes the cell address
in sRegionStart
    Dim xlApp As Excel.Application

    Dim rng As String
    
    'Check to see if the file name passed in to
    'the procedure is valid
    If Not FileExists(sPath) Then '
        MsgBox sPath & " isn't a valid path!"
        Exit Sub
    Else
        Set xlApp = CreateObject("Excel.Application")
        'xlApp.Visible = True
        xlApp.Workbooks.Open sPath
        xlApp.Worksheets(sSheetName).Activate
        xlApp.ActiveSheet.Range(sRegionStart).Select
        rng = xlApp.Selection.CurrentRegion.Address

        xlApp.ActiveWorkbook.Names.Add sRangeName, "=" & sSheetName & "!" &
rng
    End If
    Excel_CloseWorkBook xlApp, True
    Set xlApp = Nothing
End Sub




From Gustav at cactus.dk  Sat Jan 21 07:42:02 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 21 Jan 2006 14:42:02 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d24858.018@cactus.dk>

Hi John

I think it is only the update/append feature the patent covers. 
Though I'm not sure ... I've managed not to install the latest servicepacks and have no intention to do so.

But did you check this class module out:

Can't write to an Excel spreadsheet
http://databaseadvisors.com/mailman/htdig/accessd/2006-January/040857.html 

I haven't tested it as I have no current Excel projects.

/gustav

>>> jwcolby at ColbyConsulting.com 21-01-2006 13:48:20 >>>
I guess my confusion now is how does this whole process work in practice.  

I thought that the "patent" issue was one of "linking to spreadsheets was
illegal", but manipulating them programmatically was OK.  Thus I could not
create a link, it just wouldn't even let me do it, but I could write a
program to open a spreadsheet and do whatever I wanted to it in code.  If
that is true then I can open / update / close / open / update / close a
spreadsheet all I wanted to IN CODE.  If that is NOT true then the first
time I close it I am screwed and have to start all over.

What is the truth here?

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 7:04 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

>>> jwcolby at ColbyConsulting.com 20-01-2006 21:08:20 >>>
> Now I need to figure out how to CREATE named ranges when I build a
spreadsheet in VBA.

Eh? Isn't this VBA:

-----Original Message-----
Sent: Friday, January 20, 2006 10:31 AM
Subject: Re: [AccessD] Syntax for seeing named range in excel

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

---

Or have you something else in mind?

/gustav



From jimdettman at earthlink.net  Sat Jan 21 08:40:43 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Sat, 21 Jan 2006 09:40:43 -0500
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <004801c61e37$fabc3230$014bbd43@flagg>
Message-ID: <NDEALJOEGMMPCDKIFGNFAEMNICAA.jimdettman@earthlink.net>

<<But is it possible to save the margin
settings to a table and then have the report use those so?>>

  Yes.  On The Fly Printing from ATTAC consulting works exactly that way for
MDE's.  They provide their own print dialog and capture all the settings to
a usys<> table to hold all the settings.

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Vinnie Chas
Sent: Friday, January 20, 2006 10:09 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Change report marprint margins at runtime (Access
XP )


 Currently I have the report to print straight to the printer. I can change
it to preview to accomplish this. But is it possible to save the margin
settings to a table and then have the report use those so?



>>Oh yes the particular report needs to be in preview mode, then set and it
will remain as
>>long as the app is open.

>>Bill



>Hi Group,
>Access XP mde on windows XP machine
>Is there a way to change a reports print margin at runtime? I have a custom
>print job to print W2's, W3's 1099's. On the development machine all text
>aligns correctly on preprinted forms. When I roll out the mde to clients
I'm
>finding that depending on their printer, it doesn't line up correctly. I
>then have to a just the reports margins for each individual customer. I
know
>I can do this in a mdb but a mde? Is this possible?

>TIA




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




From Gustav at cactus.dk  Sat Jan 21 09:20:46 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 21 Jan 2006 16:20:46 +0100
Subject: [AccessD] Web designers. Why don't they stick with design?
Message-ID: <s3d25f80.020@cactus.dk>

Hi all, late Friday humour, sort of ...

Look what I've found.
This guy (I'll state his name just as a warning: Bill Gearhart) seems to be one in an endless row of web designers with no knowledge about how Access works, thus he doesn't know what he is talking about:

http://www.aspemporium.com/aspEmporium/tutorials/dontUseMSAccess.asp 

No doubt, Access is not intended for use as backend database for high-volume web sites but this blurb is so full of factual errors and bad coding examples that it should be abandoned.

/gustav



From harkinsss at bellsouth.net  Sat Jan 21 09:45:40 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Sat, 21 Jan 2006 10:45:40 -0500
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <3C6BD610FA11044CADFC8C13E6D5508F042CE8@gbsserver.GBS.local>
Message-ID: <001401c61ea1$c308a750$dfb3d6d1@SUSANONE>

Did you guys know you could store custom settings in the Registry? Easy as
pie -- just wrote about it. I can't believe I didn't know about it years
ago. 

Susan H. 

The best approach is to allow the users to set up the print formatting
requirements, and store those settings in a table... Something like this

Pulled from my Reports class, so hopefully you will get the idea.... Oh and
there is a BUNCH more you can do, this is just a very small example



From tinanfields at torchlake.com  Sat Jan 21 10:02:03 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Sat, 21 Jan 2006 11:02:03 -0500
Subject: [AccessD] Syntax for seeing named range in excel
References: <s3d139a5.010@cactus.dk>
Message-ID: <43D25AFB.4030900@torchlake.com>

John,

Also be sure to name the individual sheets - so much better than getting 
blown away by the change of position of a sheet.  

Named ranges have been around since Lotus 123 - way back.  They really 
make things easier.  A long time ago, I needed to create a tax 
computation for payroll for my church, using whatever software was 
already on the church computer - used a spreadsheet with named ranges 
for all the tax rates and all the minimums, so I could write an IF 
formula, seven layers deep, to compute the deductions for social 
security, fica, medicare.  Each year, all I had to change for the new 
computations were the contents of the named ranges.  It took a while to 
create - and of course, these days, the church has switched to 
QuickBooks for accounting - but, at the time. . . . .

Tina

Gustav Brock wrote:

>Hi John
>
>That's an Excel book you are asking for ...
>Didn't you once work with a fellow fluid in Excel? Or was that in your Mexico days?
>
>I'm certainly no expert in Excel but I've found that if you define everything you touch as ranges and define and use Named Ranges to a degree where you may find it ridiculous (for a single row or column or even a cell) you are pretty well off, as your code becomes much easier to read and maintain. Also, if you are working on an existing file - you can easily adjust the layout of worksheet without changing any code as the Named Ranges will persist.
>
>Further, don't take anything for granted; a worksheet used to be no. 2, one day it is no. 1, so always move it to position 2 if that is important, and so on.
>
>And never ever use Selection unless, of course, you wish to highlight an area for the user in interactive mode.
>
>For your entertainment, I have a single function which has proven extremely useful for me as Excel lookup in a range behaves in a way you - with a database background - would not expect. Not like DLookup. It has in-line documentation as it otherwise for non Excel gurus like me is nearly impossible to understand what it does and why:
>
>Function RLookup( _
>  ByVal rngLookup As Range, _
>  ByVal strField As String, _
>  Optional intSearchOrder As Integer = xlByRows, _
>  Optional intOffset As Integer = 1) _
>  As Variant
>
>' Looks up a value in the named range rngLookup from the cell,
>' offset intOffset rows below or columns right from the found cell.
>'
>' 2000-07-30.
>' Cactus Data ApS, Gustav Brock
>
>' Default intSearchOrder is xlByRows, as named ranges built this way are
>' easily attached by Access.
>  
>  Dim rng As Range
>  Dim intRow As Integer
>  Dim intColumn As Integer
>  
>  ' No special error handling.
>  On Error Resume Next
>
>  If intSearchOrder = xlByRows Then
>    ' Search by rows.
>    ' Read from found row, offset intOffset rows, and found column.
>  Else
>    ' Search by columns.
>    ' Read from found row and found column, offset intOffset columns.
>    intSearchOrder = xlByColumns
>  End If
>  
>  With rngLookup
>    ' Start search from upper left cell in range by starting in lower right cell.
>    ' Search case sensitive for whole words in values only.
>    Set rng = .Find(strField, .Cells(.Rows.Count, .Columns.Count), xlValues, xlWhole, intSearchOrder, , True)
>  End With
>  If Not rng Is Nothing Then
>    ' Searched value found.
>    ' Lookup value to retrieve.
>    With rng
>      intRow = .Row - (intOffset * (intSearchOrder = xlByRows))
>      intColumn = .Column - (intOffset * (intSearchOrder = xlByColumns))
>      ' Return value, offset intOffset rows or columns from cell with found value.
>      RLookup = .Worksheet.Cells(intRow, intColumn).Value
>    End With
>    Set rng = Nothing
>  End If
>
>End Function
>
>/gustav
>
>  
>
>>>>jwcolby at ColbyConsulting.com 20-01-2006 18:25:46 >>>
>>>>        
>>>>
>LOL, all service packs applied so I guess I build a brand new workbook.
>
>Does anyone have a library of functions for doing things out in a
>spreadsheet?  I need to do things like name ranges, lock ranges, format
>ranges etc.
>
>John W. Colby
>www.ColbyConsulting.com 
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com 
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
>Sent: Friday, January 20, 2006 10:31 AM
>To: accessd at databaseadvisors.com 
>Subject: Re: [AccessD] Syntax for seeing named range in excel
>
>Hi John
>
>Yes, it is possible to update a linked xls sheet/range - except if you have
>applied the latest servicepack. 
>
>A Named Range can be created like this:
>
>  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 
>
>or more specific:
>
>  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 
>
>If that Named Range exists, it will be adjusted to the new range settings.
>
>/gustav
>
>  
>
>>>>jwcolby at ColbyConsulting.com 19-01-2006 19:53 >>>
>>>>        
>>>>
>OK oh hero, now is it possible to update the named range through a query?  I
>tried saving the working select query, then opening that and modifying the
>data but that definitely does not work.  Is this part of the "patent
>lawsuit" changes or am I just doing something wrong?  
>
>If a "Update" syntax would work that would be fine.  I am running code
>anyway, not manually updating the data as I was trying to do in the test
>above.
>
>As I mentioned, I have a template with the named ranges all set up.  I would
>like to be able to update that spreadsheet (append data into it) rather than
>have to build up a new spreadsheet.  I can create the spreadsheet but then I
>would need the syntax to create named ranges so I can get the data later -
>using the syntax I just got from you.
>
>
>John W. Colby
>www.ColbyConsulting.com 
>
>  
>




From jwcolby at ColbyConsulting.com  Sat Jan 21 10:44:14 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sat, 21 Jan 2006 11:44:14 -0500
Subject: [AccessD] New excel workbooks
Message-ID: <011201c61ea9$ea5c6d70$647aa8c0@ColbyM6805>

Are workbooks "named" when they are saved in the Workbooks() collection, and
if so does it use the filespec as the name?  If not, how do you specify
switching to a specific new workbook if there are several workbooks in the
workbook collection?

John W. Colby
www.ColbyConsulting.com 




From Gustav at cactus.dk  Sat Jan 21 11:10:27 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 21 Jan 2006 18:10:27 +0100
Subject: [AccessD] New excel workbooks
Message-ID: <s3d27921.022@cactus.dk>

Hi John

  Workbooks.Add 

A new workbook gets the id equal to the count of workbooks.

  lngWorkbooks = Workbooks.Count
  strWorkbookNewName = Workbooks.Item(lngWorkbooks).Name

That's a default localized name like "Book2" etc. until you save it.

/gustav

>>> jwcolby at ColbyConsulting.com 21-01-2006 17:44:14 >>>
Are workbooks "named" when they are saved in the Workbooks() collection, and
if so does it use the filespec as the name?  If not, how do you specify
switching to a specific new workbook if there are several workbooks in the
workbook collection?

John W. Colby
www.ColbyConsulting.com 




From tinanfields at torchlake.com  Sat Jan 21 11:10:49 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Sat, 21 Jan 2006 12:10:49 -0500
Subject: [AccessD] My form has a little problem
References: <17724746D360394AA3BFE5B8D40A9C1BD597@main2.marlow.com>
Message-ID: <43D26B19.2020206@torchlake.com>

First of all, thanks to everyone who responded.  Of course it is 
dangerous to use Name - duh!  I just overlooked that - thanks for 
pointing it out, I have fixed it.  And, yes, I do feel pretty stupid for 
that one.

Second, why did I use a query instead of just querying the table for the 
combo box - it has been my habit to write query of the underlying table 
or tables and use that specific query for such controls.  Sometimes that 
feels like extra work, and I am willing to reconsider my habit - but the 
query gives me just the fields I want for the combo box, and is easy for 
me to understand six months from now when I am trying to figure out how 
I did something and why.  

Drew, perhaps you can teach me something good, here.  The combo box is 
an unbound control,  I can set the Row Source property to:

 SELECT tblStudent!StuLname & ", " & tblStudent!StuFname AS FullName
FROM tblStudent ORDER BY tblStudent.StuLname;

But, I get nothing in the combo box when I do that.

Using the query, my Row Source property is:

SELECT qselStudentName.StuID, qselStudentName.FullName
FROM qselStudentName ORDER BY qselStudentName.StuLname;

My combo box is correctly populated.

So, what is it I need to learn to do in order to directly query the 
underlying table and populate my combobox?  Thanks for taking the time 
to teach me.

Tina

DWUTKA at marlow.com wrote:

>I'm curious, why have the combobox query a query, instead of simply
>querrying the table?  That's an extra step...
>
>Drew
>  
>




From robert at servicexp.com  Sat Jan 21 11:38:02 2006
From: robert at servicexp.com (Robert Gracie)
Date: Sat, 21 Jan 2006 12:38:02 -0500
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CE9@gbsserver.GBS.local>

Susan, 
  Can you share??? I know how to write reg keys, but the way I know how
I would not call it "Easy as pie".... :-)


Robert Gracie
www.gbsysnow.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Saturday, January 21, 2006 11:15 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Change report marprint margins at runtime (Access
XP )

Did you guys know you could store custom settings in the Registry? Easy
as pie -- just wrote about it. I can't believe I didn't know about it
years ago. 

Susan H. 

The best approach is to allow the users to set up the print formatting
requirements, and store those settings in a table... Something like this

Pulled from my Reports class, so hopefully you will get the idea.... Oh
and there is a BUNCH more you can do, this is just a very small example

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




From carbonnb at sympatico.ca  Sat Jan 21 11:23:50 2006
From: carbonnb at sympatico.ca (Bryan Carbonnell)
Date: Sat, 21 Jan 2006 12:23:50 -0500
Subject: [AccessD] New excel workbooks
Message-ID: <BAYC1-PASMTP06E349E6656ACD0598DEE3AE1E0@CEZ.ICE>

On 21 Jan 2006 at 18:10, Gustav Brock wrote:

> Hi John
> 
>   Workbooks.Add 
> 
> A new workbook gets the id equal to the count of workbooks.
> 
>   lngWorkbooks = Workbooks.Count
>   strWorkbookNewName = Workbooks.Item(lngWorkbooks).Name
> 
> That's a default localized name like "Book2" etc. until you save it.

You could set a workbook variable to the new workbook when you create 
it.

dim wbkNew as Excel.Workbook

wbkNew = Workbooks.Add

-- 
Bryan Carbonnell - carbonnb at sympatico.ca
Never test for a bug you don't know how to fix.




From Gustav at cactus.dk  Sat Jan 21 11:30:50 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 21 Jan 2006 18:30:50 +0100
Subject: [AccessD] New excel workbooks
Message-ID: <s3d27df4.023@cactus.dk>

Hi Bryan

Oh, of course, much easier.

/gustav

>>> carbonnb at sympatico.ca 21-01-2006 18:23:50 >>>
You could set a workbook variable to the new workbook when you create it.

dim wbkNew as Excel.Workbook

wbkNew = Workbooks.Add

-- 
Bryan Carbonnell - carbonnb at sympatico.ca 
Never test for a bug you don't know how to fix.




From bchacc at san.rr.com  Sat Jan 21 11:32:21 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 21 Jan 2006 09:32:21 -0800
Subject: [AccessD] Sequence number in query
Message-ID: <43D27025.8090308@san.rr.com>

Dear List:

There is a trick to creating a column in a query with a sequence number 
1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?

MTIA

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Sat Jan 21 11:37:53 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 21 Jan 2006 09:37:53 -0800
Subject: [AccessD] A simple graph
Message-ID: <43D27171.9000300@san.rr.com>

My client wants a simple graph displayed on a form.  I don't really want 
to use Excel automation.  Does anyone know if  there something already 
out there which can do this?  A control?  Or a chunk of code on an 
Access library site?

MTIA

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From lmrazek at lcm-res.com  Sat Jan 21 11:53:35 2006
From: lmrazek at lcm-res.com (Lawrence Mrazek)
Date: Sat, 21 Jan 2006 11:53:35 -0600
Subject: [AccessD] A simple graph
In-Reply-To: <43D27171.9000300@san.rr.com>
Message-ID: <013601c61eb3$9a044c30$036fa8c0@hplaptop>

Hi Rocky:

Have you looked into the built-in charting capabilities of Access? I believe
it is Insert | Chart from the form design menu. 

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com
lmrazek at lcm-res.com
ph. 314-432-5886
fx. 314-432-3304

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
Beach Access Software
Sent: Saturday, January 21, 2006 11:38 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] A simple graph

My client wants a simple graph displayed on a form.  I don't really want to
use Excel automation.  Does anyone know if  there something already out
there which can do this?  A control?  Or a chunk of code on an Access
library site?

MTIA

--
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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





From bchacc at san.rr.com  Sat Jan 21 11:57:35 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 21 Jan 2006 09:57:35 -0800
Subject: [AccessD] A simple graph
In-Reply-To: <013601c61eb3$9a044c30$036fa8c0@hplaptop>
References: <013601c61eb3$9a044c30$036fa8c0@hplaptop>
Message-ID: <43D2760F.5020409@san.rr.com>

No.  Thanks.  I'll check that now.

Rocky


Lawrence Mrazek wrote:
> Hi Rocky:
>
> Have you looked into the built-in charting capabilities of Access? I believe
> it is Insert | Chart from the form design menu. 
>
> Larry Mrazek
> LCM Research, Inc.
> www.lcm-res.com
> lmrazek at lcm-res.com
> ph. 314-432-5886
> fx. 314-432-3304
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
> Beach Access Software
> Sent: Saturday, January 21, 2006 11:38 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] A simple graph
>
> My client wants a simple graph displayed on a form.  I don't really want to
> use Excel automation.  Does anyone know if  there something already out
> there which can do this?  A control?  Or a chunk of code on an Access
> library site?
>
> MTIA
>
> --
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From Gustav at cactus.dk  Sat Jan 21 12:26:31 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 21 Jan 2006 19:26:31 +0100
Subject: [AccessD] Sequence number in query
Message-ID: <s3d28b07.024@cactus.dk>

Hi Rocky

If you don't have that many records this simple method may do if you have some unique key:

  SELECT 
    *,
      (SELECT 
        COUNT(*) 
      FROM 
        tblTable AS T 
      WHERE 
        T.[key] <= tblTable.[key];) AS 
    SeqID
  FROM 
    tblTable
  GROUP BY 
    tblTable.[key]
  ORDER BY 
    tblTable.[key];

/gustav

>>> bchacc at san.rr.com 21-01-2006 18:32:21 >>>
Dear List:

There is a trick to creating a column in a query with a sequence number 
1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?

MTIA

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com 




From jwcolby at ColbyConsulting.com  Sat Jan 21 12:40:02 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sat, 21 Jan 2006 13:40:02 -0500
Subject: [AccessD] New excel workbooks
In-Reply-To: <BAYC1-PASMTP06E349E6656ACD0598DEE3AE1E0@CEZ.ICE>
Message-ID: <011901c61eba$17e594f0$647aa8c0@ColbyM6805>

This does assume a reference to Excel however.  I am attempting to make my
code run with the reference (use early binding if available) or not (use
late binding).  I am very meticulously using

#Const EarlyBind = True
#If EarlyBind Then
Private mxlApp As excel.Application
Private mxlBook As Workbook
Private mxlSheet As Worksheet
#Else
Private mxlApp As Object
Private mxlBook As Object
Private mxlSheet As Object
#End If

Etc.

dim wbkNew as Excel.Workbook

Will fail when EarlyBind is false (no reference to the excel lib is
available)

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell
Sent: Saturday, January 21, 2006 12:24 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] New excel workbooks

On 21 Jan 2006 at 18:10, Gustav Brock wrote:

> Hi John
> 
>   Workbooks.Add
> 
> A new workbook gets the id equal to the count of workbooks.
> 
>   lngWorkbooks = Workbooks.Count
>   strWorkbookNewName = Workbooks.Item(lngWorkbooks).Name
> 
> That's a default localized name like "Book2" etc. until you save it.

You could set a workbook variable to the new workbook when you create it.

dim wbkNew as Excel.Workbook

wbkNew = Workbooks.Add

--
Bryan Carbonnell - carbonnb at sympatico.ca Never test for a bug you don't know
how to fix.


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



From carbonnb at sympatico.ca  Sat Jan 21 12:46:27 2006
From: carbonnb at sympatico.ca (Bryan Carbonnell)
Date: Sat, 21 Jan 2006 13:46:27 -0500
Subject: [AccessD] New excel workbooks
In-Reply-To: <011901c61eba$17e594f0$647aa8c0@ColbyM6805>
References: <BAYC1-PASMTP06E349E6656ACD0598DEE3AE1E0@CEZ.ICE>
Message-ID: <BAYC1-PASMTP082E7E4E04AF3E3CF52DE5AE1E0@CEZ.ICE>

On 21 Jan 2006 at 13:40, John Colby wrote:

> This does assume a reference to Excel however.  I am attempting to make my
> code run with the reference (use early binding if available) or not (use
> late binding).  I am very meticulously using
> 
> #Const EarlyBind = True
> #If EarlyBind Then
> Private mxlApp As excel.Application
> Private mxlBook As Workbook
> Private mxlSheet As Worksheet
> #Else
> Private mxlApp As Object
> Private mxlBook As Object
> Private mxlSheet As Object
> #End If
> 
> Etc.
> 
> dim wbkNew as Excel.Workbook
> 
> Will fail when EarlyBind is false (no reference to the excel lib is
> available)

True the dim will fail with late binding, but you can still do the 
variable assignment. (using your variables listed above)

dim wbkNew as Object
....
set wbkNew = mxlApp.Workbooks.Add


-- 
Bryan Carbonnell - carbonnb at sympatico.ca
Needing someone is like needing a parachute. If he isn't there the 
first time, chances are you won't be needing him again.




From martyconnelly at shaw.ca  Sat Jan 21 12:52:49 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Sat, 21 Jan 2006 10:52:49 -0800
Subject: [AccessD] A simple graph
References: <013601c61eb3$9a044c30$036fa8c0@hplaptop>
	<43D2760F.5020409@san.rr.com>
Message-ID: <43D28301.9020100@shaw.ca>

If your graph isn't that simple you might want to try this graphing OCX
TeeChart around $300 for developers license.
http://www.steema.com/products/teechart/ax/overview.html

Rocky Smolin - Beach Access Software wrote:

>No.  Thanks.  I'll check that now.
>
>Rocky
>
>
>Lawrence Mrazek wrote:
>  
>
>>Hi Rocky:
>>
>>Have you looked into the built-in charting capabilities of Access? I believe
>>it is Insert | Chart from the form design menu. 
>>
>>Larry Mrazek
>>LCM Research, Inc.
>>www.lcm-res.com
>>lmrazek at lcm-res.com
>>ph. 314-432-5886
>>fx. 314-432-3304
>>
>>-----Original Message-----
>>From: accessd-bounces at databaseadvisors.com
>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
>>Beach Access Software
>>Sent: Saturday, January 21, 2006 11:38 AM
>>To: Access Developers discussion and problem solving
>>Subject: [AccessD] A simple graph
>>
>>My client wants a simple graph displayed on a form.  I don't really want to
>>use Excel automation.  Does anyone know if  there something already out
>>there which can do this?  A control?  Or a chunk of code on an Access
>>library site?
>>
>>MTIA
>>
>>--
>>Rocky Smolin
>>Beach Access Software
>>858-259-4334
>>www.e-z-mrp.com
>>
>>--
>>AccessD mailing list
>>AccessD at databaseadvisors.com
>>http://databaseadvisors.com/mailman/listinfo/accessd
>>Website: http://www.databaseadvisors.com
>>
>>
>>
>>  
>>    
>>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From jwcolby at ColbyConsulting.com  Sat Jan 21 13:01:17 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sat, 21 Jan 2006 14:01:17 -0500
Subject: [AccessD] New excel workbooks
In-Reply-To: <s3d27921.022@cactus.dk>
Message-ID: <011a01c61ebd$0f6187a0$647aa8c0@ColbyM6805>

Gustav,

Actually, after testing I have determined that workbooks are stored using
the file name minus the path.  Thus X:\test.XLS would create a workbook that
you could access using app.workbooks("test.xls").  This is a little
inconvenient since it means that if I need to access a workbook in the
collection by name, I need to have code that strips out the filename, so I
can feed that in.  Nothing beyond my ability or anything, just extra work to
handle it.

The consumer of my class always knows the FILESPEC of the workbook (because
the filespec is passed in to open it originally), but may not know the
FILENAME of the workbook, thus it would be convenient to allow the user to
apss in the FILESPEC and get at a workbook that way.  In fact my class needs
to handle either the filename or the filespec passed in to the parameter
when requesting a workbook.

This is when the .NET ability to create signatures is handy.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 12:10 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] New excel workbooks

Hi John

  Workbooks.Add 

A new workbook gets the id equal to the count of workbooks.

  lngWorkbooks = Workbooks.Count
  strWorkbookNewName = Workbooks.Item(lngWorkbooks).Name

That's a default localized name like "Book2" etc. until you save it.

/gustav

>>> jwcolby at ColbyConsulting.com 21-01-2006 17:44:14 >>>
Are workbooks "named" when they are saved in the Workbooks() collection, and
if so does it use the filespec as the name?  If not, how do you specify
switching to a specific new workbook if there are several workbooks in the
workbook collection?

John W. Colby
www.ColbyConsulting.com 


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



From jwcolby at ColbyConsulting.com  Sat Jan 21 13:04:13 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sat, 21 Jan 2006 14:04:13 -0500
Subject: [AccessD] What are templates really?
Message-ID: <011b01c61ebd$787b0c20$647aa8c0@ColbyM6805>

I understand the concept of placing a bunch of code/formatting etc in a
file, calling it a template, and then opening that to "start" a new object
of that type.  But is the template write protected, i.e. if I open one and
attempt to save it it will prompt for a file name or something?  How are
they used by us programmers?

John W. Colby
www.ColbyConsulting.com 




From bheygood at abestsystems.com  Sat Jan 21 13:05:23 2006
From: bheygood at abestsystems.com (Bob Heygood)
Date: Sat, 21 Jan 2006 11:05:23 -0800
Subject: [AccessD] A simple graph
In-Reply-To: <43D27171.9000300@san.rr.com>
Message-ID: <AIEKKBIAKDJNAFGABNJKIEKMDOAA.bheygood@abestsystems.com>

Rocky
If you would have made the last user's group meeting you would have more
info about graphs (charts really) than you could want.
Both myself and Romney did presentations on that very subject.
See our group's site for her excellent code.

bob Heygood



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Rocky Smolin -
Beach Access Software
Sent: Saturday, January 21, 2006 9:38 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] A simple graph


My client wants a simple graph displayed on a form.  I don't really want
to use Excel automation.  Does anyone know if  there something already
out there which can do this?  A control?  Or a chunk of code on an
Access library site?

MTIA

--
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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




From accessd at shaw.ca  Sat Jan 21 13:24:10 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Sat, 21 Jan 2006 11:24:10 -0800
Subject: [AccessD] Web designers. Why don't they stick with design?
In-Reply-To: <s3d25f80.020@cactus.dk>
Message-ID: <000101c61ec0$41d1cb20$017ba8c0@xpserver>

Amazing... some graduate of the Mary Jo Foley school of computer technology.

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: January 21, 2006 7:21 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Web designers. Why don't they stick with design?

Hi all, late Friday humour, sort of ...

Look what I've found.
This guy (I'll state his name just as a warning: Bill Gearhart) seems to be
one in an endless row of web designers with no knowledge about how Access
works, thus he doesn't know what he is talking about:

http://www.aspemporium.com/aspEmporium/tutorials/dontUseMSAccess.asp 

No doubt, Access is not intended for use as backend database for high-volume
web sites but this blurb is so full of factual errors and bad coding
examples that it should be abandoned.

/gustav

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



From accessd at shaw.ca  Sat Jan 21 13:29:37 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Sat, 21 Jan 2006 11:29:37 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <001401c61ea1$c308a750$dfb3d6d1@SUSANONE>
Message-ID: <000201c61ec1$0479a440$017ba8c0@xpserver>

As a matter of fact Susan; 

...found a coding sample somewhere on the web and have been using it for
years (VB4 days/Access97). I traditionally use it to store my applications
local settings so when the user logs in again they are back where they left
off. It is like a cookie for desktops.

Jim  

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: January 21, 2006 7:46 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Change report marprint margins at runtime (Access XP
)

Did you guys know you could store custom settings in the Registry? Easy as
pie -- just wrote about it. I can't believe I didn't know about it years
ago. 

Susan H. 

The best approach is to allow the users to set up the print formatting
requirements, and store those settings in a table... Something like this

Pulled from my Reports class, so hopefully you will get the idea.... Oh and
there is a BUNCH more you can do, this is just a very small example

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



From accessd at shaw.ca  Sat Jan 21 13:41:19 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Sat, 21 Jan 2006 11:41:19 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <43D27025.8090308@san.rr.com>
Message-ID: <000301c61ec2$a71137d0$017ba8c0@xpserver>

Hi Rocky:

You mean drop a place holder like this?

SELECT "" AS AddedField1, "" AS AddedField2
FROM MyTable;

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
Beach Access Software
Sent: January 21, 2006 9:32 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Sequence number in query

Dear List:

There is a trick to creating a column in a query with a sequence number 
1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?

MTIA

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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



From jmhecht at earthlink.net  Sat Jan 21 14:38:13 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sat, 21 Jan 2006 12:38:13 -0800 (GMT-08:00)
Subject: [AccessD] What are templates really?
Message-ID: <22203156.1137875893725.JavaMail.root@elwamui-ovcar.atl.sa.earthlink.net>

John,

In Excel and Word if something is saved as a template with a .dot or .xlt extension you can not save the file as the template.

In Excel if you have a weekly sales report you might each week open sales.xlt and then save as sales week of 01212006 as an example.

-----Original Message-----
>From: John Colby <jwcolby at ColbyConsulting.com>
>Sent: Jan 21, 2006 11:04 AM
>To: 'Access Developers discussion and problem solving' <accessd at databaseadvisors.com>
>Subject: [AccessD] What are templates really?
>
>I understand the concept of placing a bunch of code/formatting etc in a
>file, calling it a template, and then opening that to "start" a new object
>of that type.  But is the template write protected, i.e. if I open one and
>attempt to save it it will prompt for a file name or something?  How are
>they used by us programmers?
>
>John W. Colby
>www.ColbyConsulting.com 
>
>
>-- 
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com



From darsant at gmail.com  Sat Jan 21 15:49:47 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Sat, 21 Jan 2006 15:49:47 -0600
Subject: [AccessD] What are templates really?
In-Reply-To: <011b01c61ebd$787b0c20$647aa8c0@ColbyM6805>
References: <011b01c61ebd$787b0c20$647aa8c0@ColbyM6805>
Message-ID: <53c8e05a0601211349w1f6aa120n820adb04b2fd193a@mail.gmail.com>

On 1/21/06, John Colby <jwcolby at colbyconsulting.com> wrote:
> I understand the concept of placing a bunch of code/formatting etc in a
> file, calling it a template, and then opening that to "start" a new object
> of that type.  But is the template write protected, i.e. if I open one and
> attempt to save it it will prompt for a file name or something?  How are
> they used by us programmers?

Templating in that fashion is more something on the word / excel side,
I'm not sure how much VBA uses templates, but let me explain to you
how the C++ side of templates work:

Say you want a simple function that compares two objects of the same type.

You could go through and define this two ways, IE you could do:

CompareInt
CompareFloat
CompareDouble
etc

Or instead, if you wanted to think about it as a template, you make
one function, and just have it compare type T (user defined when they
call the function)

This way, if you call the function on ints, it compares types of ints,
if you call it with doubles, it compares types of doubles. The
function serves as a template for any type of variable you call on it,
as long as A > B means something for that type.
--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From bchacc at san.rr.com  Sat Jan 21 16:13:33 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 21 Jan 2006 14:13:33 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <s3d28b07.024@cactus.dk>
References: <s3d28b07.024@cactus.dk>
Message-ID: <43D2B20D.4080306@san.rr.com>

Gustav:

I'm trying to recall some trick that I've used before in the QBE grid to 
creating a column which numbers the records retrieved from 1. 

Rocky


Gustav Brock wrote:
> Hi Rocky
>
> If you don't have that many records this simple method may do if you have some unique key:
>
>   SELECT 
>     *,
>       (SELECT 
>         COUNT(*) 
>       FROM 
>         tblTable AS T 
>       WHERE 
>         T.[key] <= tblTable.[key];) AS 
>     SeqID
>   FROM 
>     tblTable
>   GROUP BY 
>     tblTable.[key]
>   ORDER BY 
>     tblTable.[key];
>
> /gustav
>
>   
>>>> bchacc at san.rr.com 21-01-2006 18:32:21 >>>
>>>>         
> Dear List:
>
> There is a trick to creating a column in a query with a sequence number 
> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?
>
> MTIA
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Sat Jan 21 16:17:34 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 21 Jan 2006 14:17:34 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <000301c61ec2$a71137d0$017ba8c0@xpserver>
References: <000301c61ec2$a71137d0$017ba8c0@xpserver>
Message-ID: <43D2B2FE.10203@san.rr.com>

Jim:

No, it was some clever trick in the QBE that would neatly number the 
rows retrieved by the query.  I think using -1 for something had 
something to do with it but I'm not sure.

Rocky


Jim Lawrence wrote:
> Hi Rocky:
>
> You mean drop a place holder like this?
>
> SELECT "" AS AddedField1, "" AS AddedField2
> FROM MyTable;
>
> HTH
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
> Beach Access Software
> Sent: January 21, 2006 9:32 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Sequence number in query
>
> Dear List:
>
> There is a trick to creating a column in a query with a sequence number 
> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?
>
> MTIA
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From wdhindman at bellsouth.net  Sat Jan 21 16:36:42 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Sat, 21 Jan 2006 17:36:42 -0500
Subject: [AccessD] What are templates really?
References: <011b01c61ebd$787b0c20$647aa8c0@ColbyM6805>
Message-ID: <000f01c61edb$270c0c90$6101a8c0@JISREGISTRATION.local>

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/off2000/html/acconExamplesTemplatesFormsReportsS.asp

William

----- Original Message ----- 
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Sent: Saturday, January 21, 2006 2:04 PM
Subject: [AccessD] What are templates really?


>I understand the concept of placing a bunch of code/formatting etc in a
> file, calling it a template, and then opening that to "start" a new object
> of that type.  But is the template write protected, i.e. if I open one and
> attempt to save it it will prompt for a file name or something?  How are
> they used by us programmers?
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From wdhindman at bellsouth.net  Sat Jan 21 17:18:41 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Sat, 21 Jan 2006 18:18:41 -0500
Subject: [AccessD] Sequence number in query
References: <000301c61ec2$a71137d0$017ba8c0@xpserver>
	<43D2B2FE.10203@san.rr.com>
Message-ID: <001f01c61ee1$04ae3b40$6101a8c0@JISREGISTRATION.local>

http://ourworld.compuserve.com/homepages/attac-cg/AqryTip.htm#AUTONUM

William

----- Original Message ----- 
From: "Rocky Smolin - Beach Access Software" <bchacc at san.rr.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Saturday, January 21, 2006 5:17 PM
Subject: Re: [AccessD] Sequence number in query


> Jim:
>
> No, it was some clever trick in the QBE that would neatly number the
> rows retrieved by the query.  I think using -1 for something had
> something to do with it but I'm not sure.
>
> Rocky
>
>
> Jim Lawrence wrote:
>> Hi Rocky:
>>
>> You mean drop a place holder like this?
>>
>> SELECT "" AS AddedField1, "" AS AddedField2
>> FROM MyTable;
>>
>> HTH
>> Jim
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
>> Beach Access Software
>> Sent: January 21, 2006 9:32 AM
>> To: Access Developers discussion and problem solving
>> Subject: [AccessD] Sequence number in query
>>
>> Dear List:
>>
>> There is a trick to creating a column in a query with a sequence number
>> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?
>>
>> MTIA
>>
>>
>
> -- 
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From hkotsch at arcor.de  Sat Jan 21 17:33:57 2006
From: hkotsch at arcor.de (Helmut Kotsch)
Date: Sun, 22 Jan 2006 00:33:57 +0100
Subject: [AccessD] Sequence number in query
In-Reply-To: <43D2B2FE.10203@san.rr.com>
Message-ID: <PKEDLCDKMFCKJDAENFKBGEBDFAAA.hkotsch@arcor.de>

Rocky,
just go to this page and click on download.


http://www.microsoft.com/downloads/release.asp?releaseid=29437

Even though the sample database is in German it should be self-explanatory.

Helmut 







-----Ursprungliche Nachricht-----
Von: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]Im Auftrag von Rocky Smolin
- Beach Access Software
Gesendet: Samstag, 21. Januar 2006 23:18
An: Access Developers discussion and problem solving
Betreff: Re: [AccessD] Sequence number in query


Jim:

No, it was some clever trick in the QBE that would neatly number the 
rows retrieved by the query.  I think using -1 for something had 
something to do with it but I'm not sure.

Rocky


Jim Lawrence wrote:
> Hi Rocky:
>
> You mean drop a place holder like this?
>
> SELECT "" AS AddedField1, "" AS AddedField2
> FROM MyTable;
>
> HTH
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
> Beach Access Software
> Sent: January 21, 2006 9:32 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Sequence number in query
>
> Dear List:
>
> There is a trick to creating a column in a query with a sequence number 
> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?
>
> MTIA
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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


From stuart at lexacorp.com.pg  Sat Jan 21 18:00:34 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Sun, 22 Jan 2006 10:00:34 +1000
Subject: [AccessD] New excel workbooks
In-Reply-To: <011a01c61ebd$0f6187a0$647aa8c0@ColbyM6805>
References: <s3d27921.022@cactus.dk>
Message-ID: <43D357C2.31627.21BE6D@stuart.lexacorp.com.pg>

On 21 Jan 2006 at 14:01, John Colby wrote:

> Actually, after testing I have determined that workbooks are stored using
> the file name minus the path.  Thus X:\test.XLS would create a workbook that
> you could access using app.workbooks("test.xls").  This is a little
> inconvenient since it means that if I need to access a workbook in the
> collection by name, I need to have code that strips out the filename, so I
> can feed that in.  Nothing beyond my ability or anything, just extra work to
> handle it.
> 

To save you a bit of time, here are my standard filename functions:

Function Directory(Fullpath As String) As String
Directory = Left$(Fullpath, InStrRev(Fullpath, "\"))
End Function
Function FileName(Fullpath As String) As String
    FileName = Right$(Fullpath, Len(Fullpath) - InStrRev(Fullpath, "\"))
End Function
Function FileRoot(FileNm As String) As String
If InStr(FileName(FileNm), ".") > 0 Then
    FileRoot = Left$(FileNm, InStrRev(FileNm, ".") - 1)
Else
  FileRoot = FileName(FileNm)
End If
End Function
Function FileExt(FileNm As String) As String
If InStr(FileName(FileNm), ".") > 0 Then
    FileExt = Right$(FileNm, Len(FileNm) - InStrRev(FileNm, "."))
Else
    FileExt = ""
End If
End Function-- 
Stuart




From vchas at comcast.net  Sat Jan 21 21:53:41 2006
From: vchas at comcast.net (Vinnie Chas)
Date: Sat, 21 Jan 2006 19:53:41 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <3C6BD610FA11044CADFC8C13E6D5508F042CE8@gbsserver.GBS.local>
Message-ID: <006601c61f07$6fc6f5e0$014bbd43@flagg>

Hi Robert ,
Thanks so much for the direction. The following is what I ended up with.
Thanks so much for your help!

Public Function BuildAccessReport() As Boolean
    Dim stDocName As String
   
   'The printer is scaled in twips
   TwipsPerInch = 1440

   stDocName = "rpt1099"
   
   DoCmd.OpenReport stDocName, acViewPreview, , , acHidden

   Set XPReport = Access.Reports(stDocName)
   With Access.Reports(stDocName)
 
    .Printer.LeftMargin = DLookup("LeftMargin", "ReportList") * TwipsPerInch
    .Printer.RightMargin = DLookup("RightMargin", "ReportList") *
TwipsPerInch
    .Printer.TopMargin = DLookup("TopMargin", "ReportList") * TwipsPerInch
    .Printer.BottomMargin = DLookup("BottomMargin", "[ReportList]") *
TwipsPerInch

      
   End With
   DoCmd.OpenReport stDocName, PrintTo
   
   If PrintTo <> acViewPreview Then
    DoCmd.Close acReport, stDocName
   End If

End Function 

Vinnie Chas
www.vinniechas.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Robert Gracie
Sent: Friday, January 20, 2006 9:34 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Change report marprint margins at runtime (Access XP
)

The best approach is to allow the users to set up the print formatting
requirements, and store those settings in a table... Something like this

Pulled from my Reports class, so hopefully you will get the idea.... Oh and
there is a BUNCH more you can do, this is just a very small example

Public Function BuildAccessReport() As Boolean
Dim RecordSuccBol           As Boolean
Dim ePrintTo                As acView

On Error GoTo HandleErr
If AccessReport = True Then
 If m_ePrintTo <> cOutputToPrinter Then
   ePrintTo = acViewPreview
 End If

   DoCmd.OpenReport m_sReportName, acViewPreview, "", SQL, acHidden
   Set A2KReport = Access.Reports(m_sReportName)
   With Access.Reports(m_sReportName)
    'If printing to the default printer, there is no need to set the
property
      If m_sPrinterName <> "{System Default}" Then
       Set A2KReport.Printer = Application.Printers(m_sPrinterName)
      End If
      
    .Printer.LeftMargin = m_dLeftMargin * TwipsPerInch
    .Printer.RightMargin = m_dRightMargin * TwipsPerInch
    .Printer.TopMargin = m_dTopMargin * TwipsPerInch
    .Printer.BottomMargin = m_dBottomMargin * TwipsPerInch
    
      If m_eOrientation = cLandscape Then
       .Printer.Orientation = acPRORLandscape
      Else
       .Printer.Orientation = acPRORPortrait
      End If
      
    .Printer.Copies = m_lCopies
    
   End With
   DoCmd.OpenReport m_sReportName, ePrintTo
   
   If ePrintTo <> acViewPreview Then
    DoCmd.Close acReport, m_sReportName
   End If

If m_bPrintSuc = True Then
  If PrintRecords(Now, 0, "Printed From: " & m_sCallingForm, m_lRN,
m_lCID) = False Then
    Call ErrorRecordSystem(0, "Print Error", Now, "Failed Record Print
Un-Expected Error In Proc; " & m_sCallingForm, CurrentUser)
  End If
End If
 
End If
ExitHere:
    Exit Function
HandleErr:
  Select Case Err.Number
   Case Else
      'MsgBox Err.BuildError("clsrptReport","BuildAccessReport"),
vbCritical, "Un-Expected Error"
       MsgBox "There has been an error in Procedure:
clsrptReport:BuildAccessReport " & vbCrLf & _
          "Error Number: " & Err.Number & vbCrLf & "Error Description: "
& Err.Description & vbCrLf & _
          "Please Contact " & "The SoftwareVendor" & " for more help
regarding this error. ", vbCritical, "Un-Expected Error"
       Call ErrorRecordSystem(Err.Number, Err.Description, Now, "Un-Expected
Error In Proc; " & "clsrptReport:BuildAccessReport ",
CurrentUser)
  End Select
End Function 


Robert Gracie
www.servicexp.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Vinnie Chas
Sent: Friday, January 20, 2006 10:45 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Change report marprint margins at runtime (Access XP
)

 Currently I have the report to print straight to the printer. I can change
it to preview to accomplish this. But is it possible to save the margin
settings to a table and then have the report use those so?



>>Oh yes the particular report needs to be in preview mode, then set and

>>it
will remain as 
>>long as the app is open.

>>Bill



>Hi Group,
>Access XP mde on windows XP machine
>Is there a way to change a reports print margin at runtime? I have a 
>custom print job to print W2's, W3's 1099's. On the development machine

>all text aligns correctly on preprinted forms. When I roll out the mde 
>to clients
I'm
>finding that depending on their printer, it doesn't line up correctly. 
>I then have to a just the reports margins for each individual customer.

>I
know
>I can do this in a mdb but a mde? Is this possible?

>TIA




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


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


-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.14.21/236 - Release Date: 1/20/2006




From vchas at comcast.net  Sat Jan 21 22:02:02 2006
From: vchas at comcast.net (Vinnie Chas)
Date: Sat, 21 Jan 2006 20:02:02 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <00ff01c61e3c$b8f4cd80$647aa8c0@ColbyM6805>
Message-ID: <007401c61f08$9a03d660$014bbd43@flagg>

Thanks John.
Nice to know your still here! You'll be seeing more of me here and hopefully
I can give back more than I receive!


Vinnie Chas
www.vinniechas.com 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 20, 2006 7:43 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Change report marprint margins at runtime (Access XP
)

Vinnie, a name from the past.  Haven't seen you around in awhile!

Welcome back.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Vinnie Chas
Sent: Friday, January 20, 2006 9:24 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] Change report marprint margins at runtime (Access XP )

Hi Group,
Access XP mde on windows XP machine
Is there a way to change a reports print margin at runtime? I have a custom
print job to print W2's, W3's 1099's. On the development machine all text
aligns correctly on preprinted forms. When I roll out the mde to clients I'm
finding that depending on their printer, it doesn't line up correctly. I
then have to a just the reports margins for each individual customer. I know
I can do this in a mdb but a mde? Is this possible?

TIA

Vinnie

Vinnie Chas
www.vinniechas.com


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

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


-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.14.21/236 - Release Date: 1/20/2006




From vchas at comcast.net  Sat Jan 21 22:10:04 2006
From: vchas at comcast.net (Vinnie Chas)
Date: Sat, 21 Jan 2006 20:10:04 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <001401c61ea1$c308a750$dfb3d6d1@SUSANONE>
Message-ID: <007501c61f09$b9242bc0$014bbd43@flagg>

 Hi Susan,
I would like to learn more about storing custom settings in the Registry. Do
you have a link?

Vinnie Chas
www.vinniechas.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Saturday, January 21, 2006 7:46 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Change report marprint margins at runtime (Access XP
)

Did you guys know you could store custom settings in the Registry? Easy as
pie -- just wrote about it. I can't believe I didn't know about it years
ago. 

Susan H. 

The best approach is to allow the users to set up the print formatting
requirements, and store those settings in a table... Something like this

Pulled from my Reports class, so hopefully you will get the idea.... Oh and
there is a BUNCH more you can do, this is just a very small example

--



From adtp at hotmail.com  Sat Jan 21 22:11:25 2006
From: adtp at hotmail.com (A.D.Tejpal)
Date: Sun, 22 Jan 2006 09:41:25 +0530
Subject: [AccessD] A simple graph
References: <43D27171.9000300@san.rr.com>
Message-ID: <BAY12-DAV545BC27895606045C7518CE110@phx.gbl>

Rocky,

    My sample db named ChartsDemo might be of interest to you. It is available at Rogers Access Library (other developers library). Link - http://www.rogersaccesslibrary.com

    It demonstrates a chart displaying blood pressure, pulse and temperature for patients. 

    You could adapt the underlying approach suitably, for your specific needs.

Best wishes,
A.D.Tejpal
--------------

  ----- Original Message ----- 
  From: Rocky Smolin - Beach Access Software 
  To: Access Developers discussion and problem solving 
  Sent: Saturday, January 21, 2006 23:07
  Subject: [AccessD] A simple graph


  My client wants a simple graph displayed on a form.  I don't really want to use Excel automation.  Does anyone know if  there something already out there which can do this?  A control?  Or a chunk of code on an Access library site?

  MTIA
  -- 
  Rocky Smolin
  Beach Access Software
  858-259-4334
  www.e-z-mrp.com


From stuart at lexacorp.com.pg  Sat Jan 21 22:17:42 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Sun, 22 Jan 2006 14:17:42 +1000
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <007501c61f09$b9242bc0$014bbd43@flagg>
References: <001401c61ea1$c308a750$dfb3d6d1@SUSANONE>
Message-ID: <43D39406.16629.10D286B@stuart.lexacorp.com.pg>

On 21 Jan 2006 at 20:10, Vinnie Chas wrote:

>  Hi Susan,
> I would like to learn more about storing custom settings in the Registry. Do
> you have a link?
> 

Try looking at SaveSetting and GetSetting() in Help.

-- 
Stuart




From Gustav at cactus.dk  Sun Jan 22 05:00:33 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sun, 22 Jan 2006 12:00:33 +0100
Subject: [AccessD] Sequence number in query
Message-ID: <s3d373ef.031@cactus.dk>

Hi Rocky

Well, yes, this _is_ the "trick". No magic though, just a modification of your query. Should be piece of apple pie for you ...

There are variations, of course, one using DCount() which basically does the same.

Another one, much faster for large recordsets, is using an external function to generate the running number. Most of these, however, fail if you use the query for viewing or somehow else browse the records or move backwards. 
If this is a problem for you, I have a function (published here some years ago) using a Static which overcomes this limitation.

/gustav

>>> bchacc at san.rr.com 21-01-2006 23:13 >>>
Gustav:

I'm trying to recall some trick that I've used before in the QBE grid to 
creating a column which numbers the records retrieved from 1. 

Rocky


Gustav Brock wrote:
> Hi Rocky
>
> If you don't have that many records this simple method may do if you have some unique key:
>
>   SELECT 
>     *,
>       (SELECT 
>         COUNT(*) 
>       FROM 
>         tblTable AS T 
>       WHERE 
>         T.[key] <= tblTable.[key];) AS 
>     SeqID
>   FROM 
>     tblTable
>   GROUP BY 
>     tblTable.[key]
>   ORDER BY 
>     tblTable.[key];
>
> /gustav
>
>   
>>>> bchacc at san.rr.com 21-01-2006 18:32:21 >>>
>>>>         
> Dear List:
>
> There is a trick to creating a column in a query with a sequence number 
> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?




From Gustav at cactus.dk  Sun Jan 22 05:38:57 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sun, 22 Jan 2006 12:38:57 +0100
Subject: [AccessD] What are templates really?
Message-ID: <s3d37cff.032@cactus.dk>

Hi John

I guess you are still in Excel world ...

I do it the way you describe.

All Excel code is kept in one Excel write protected "macro" workbook which will never corrupt.
This has code to open a data template, read and manipulate data.
When done, a formatted template is opened, and data is copied from the data workbook.
Finally, some minor data dependant formatting is carried out and the finished (correctly formatted) template is saved as a clean normal xls file.
The data workbook is trashed and the macro workbook is closed.

This is controlled from Access using the RunMacro feature of Excel.

The main advantages are that no corruption of the source Excel files will happen, and that all formatting can be done and maintained outside your code in Access.

/gustav

>>> jwcolby at ColbyConsulting.com 21-01-2006 20:04 >>>
I understand the concept of placing a bunch of code/formatting etc in a
file, calling it a template, and then opening that to "start" a new object
of that type.  But is the template write protected, i.e. if I open one and
attempt to save it it will prompt for a file name or something?  How are
they used by us programmers?

John W. Colby
www.ColbyConsulting.com 




From jwcolby at ColbyConsulting.com  Sun Jan 22 16:59:27 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sun, 22 Jan 2006 17:59:27 -0500
Subject: [AccessD] New excel workbooks
In-Reply-To: <43D357C2.31627.21BE6D@stuart.lexacorp.com.pg>
Message-ID: <018901c61fa7$7f9af8e0$647aa8c0@ColbyM6805>

Thanks, I used them! 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: Saturday, January 21, 2006 7:01 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] New excel workbooks

On 21 Jan 2006 at 14:01, John Colby wrote:

> Actually, after testing I have determined that workbooks are stored 
> using the file name minus the path.  Thus X:\test.XLS would create a 
> workbook that you could access using app.workbooks("test.xls").  This 
> is a little inconvenient since it means that if I need to access a 
> workbook in the collection by name, I need to have code that strips 
> out the filename, so I can feed that in.  Nothing beyond my ability or 
> anything, just extra work to handle it.
> 

To save you a bit of time, here are my standard filename functions:

Function Directory(Fullpath As String) As String Directory = Left$(Fullpath,
InStrRev(Fullpath, "\")) End Function Function FileName(Fullpath As String)
As String
    FileName = Right$(Fullpath, Len(Fullpath) - InStrRev(Fullpath, "\")) End
Function Function FileRoot(FileNm As String) As String If
InStr(FileName(FileNm), ".") > 0 Then
    FileRoot = Left$(FileNm, InStrRev(FileNm, ".") - 1) Else
  FileRoot = FileName(FileNm)
End If
End Function
Function FileExt(FileNm As String) As String If InStr(FileName(FileNm), ".")
> 0 Then
    FileExt = Right$(FileNm, Len(FileNm) - InStrRev(FileNm, ".")) Else
    FileExt = ""
End If
End Function--
Stuart


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



From viner at EUnet.yu  Mon Jan 23 04:26:24 2006
From: viner at EUnet.yu (Ervin Brindza)
Date: Mon, 23 Jan 2006 11:26:24 +0100
Subject: [AccessD] Virtual library management database
Message-ID: <0b8101c62007$eaf0d730$0100a8c0@RazvojErvin>

<second attempt>
I was asked to do some voluntary work for some community. I need some ideas in designing a virtual library management database. The database will manage various matherial for amatheur folk dancers, mostly with their home made videos and sound matherial, books, magazines, video tapes, CDs(with many short video films), DVD discs, sound recordings(LP discs, sound casettes etc.) etc. 
So there are two types of entities: "simple"entity(e.g. books or DVD discs with one film) and "complex" (e.g. magazines with articles of various category, CD or DVD discs with more than one video film). The last entity need a main table in a 1 to many relationship with the "sub" table, but the first will have nothing on many side, if I put all of them into these two tables.
For books and DVD discs are important: Title, Author and Category
For video tapes and sound cassettes are important(for each short film): Order No., Name of the film(or song), Lenghth, Category
For magazines(for each article): Title, Author and Category
The main goal of the system is to search on category, so when the user "ask" the system for e.g. Irish step to get all the book, videos, books, articles in one report.
So, my question is: is it clever to put all those various types of entities into one table(and connected table) or to separate each type of entity into own table.
Many thanks for suggestions,
    Ervin

From jwcolby at ColbyConsulting.com  Mon Jan 23 07:12:09 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 23 Jan 2006 08:12:09 -0500
Subject: [AccessD] Setting data into and getting data from Named Ranges
Message-ID: <01ac01c6201e$9e32b9b0$647aa8c0@ColbyM6805>

I am moving right along with my Excel stuff but now I need to watch as data
is poked into named ranges.  But first I have to discover how to poke stuff
into named ranges.  I am finding a lot of code for setting up the named
ranges but not a lot about actually setting a single value into the (single
cell) range, setting a table of data (from Access) into a named range
(multiple cells), and then of course, reading a value from a single cell
named range, or getting data back out of a named range (multiple cells) into
a table.

Does anyone have example code for this?

John W. Colby
www.ColbyConsulting.com 




From Gustav at cactus.dk  Mon Jan 23 07:50:26 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 23 Jan 2006 14:50:26 +0100
Subject: [AccessD] Setting data into and getting data from Named	Ranges
Message-ID: <s3d4ed41.057@cactus.dk>

Hi John

I prefer to setup queries outside Excel to pull data from. If so it is very easy with DAO to pull data into a range:

  Set dbs = DBEngine(0).OpenDatabase(<databasefilename>, , True)
  Set qdf = dbs.QueryDefs(<queryname>)
  qdf.Parameters(0) = lngID
  Set rst = qdf.OpenRecordset
  lngRows = rng.CopyFromRecordset(rst)
  rst.Close
  qdf.Close

To copy data values from one range to another:

  rngDestination = rngSource.Values

To set value of a single cell range:

  rng.Value = varValue

To set the value of a single cell in a multicell range (row and column is relative to the range):

  rng.Cells(lngRows, lngColumns).Value = varValue

You may go beyond that. Study Range.Offset.

Reading is along the same lines:

  varValue = rng.Cells(lngRows, lngColumns).Value

/gustav

>>> jwcolby at ColbyConsulting.com 23-01-2006 14:12:09 >>>
I am moving right along with my Excel stuff but now I need to watch as data
is poked into named ranges.  But first I have to discover how to poke stuff
into named ranges.  I am finding a lot of code for setting up the named
ranges but not a lot about actually setting a single value into the (single
cell) range, setting a table of data (from Access) into a named range
(multiple cells), and then of course, reading a value from a single cell
named range, or getting data back out of a named range (multiple cells) into
a table.

Does anyone have example code for this?

John W. Colby
www.ColbyConsulting.com 




From Lambert.Heenan at AIG.com  Mon Jan 23 08:31:54 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Mon, 23 Jan 2006 08:31:54 -0600
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1C1E5DA5@xlivmbx21.aig.com>

Thanks for your feedback Gustav.

I think what you are saying is that if you know in advance what cells the
named range covers you can pass a range address in in the parameter
sRegionStart  with a value like "F5:J7" of "$G$5:$J$7" and then your
variation on the code will assign a name to that range.

However, my routine was written to handle the situation where you do not
know the extent of the range in advance. Instead you only know for sure that
some cell is within the range. Thus my code passes in an address in
sRegionStart like "A1", and then the execution of the line

xlApp.ActiveSheet.Range(sRegionStart).Select

causes Excel to highlight all the cells in the continuous (strictly -
'contiguous') region that includes the cell already selected (A1). The
subsequent line of code

 rng = xlApp.Selection.CurrentRegion.Address

Then retrieves the address of the complete region and uses this to set the
named range address.

All the highlighting and selecting usually takes place while  the workbook
is opened in hidden mode.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 8:26 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel


Hi Lambert

I've found that you don't need Select for anything else than if the
worksheet operates in interactive mode and you wish to display a range for
the user. 
Select exists in much code as it is what you get when you use the macro
recorder for creating what you may call rough code.

Thus, you can reduce your central code lines like this:

        xlApp.Worksheets(sSheetName).Activate
        rng = Range(sRegionStart).Address
        xlApp.ActiveWorkbook.Names.Add sRangeName, "=" & sSheetName & "!" &
rng

Can you specify the range including the $ signs, like:

  $F$5:$J$7

you don't even need Range:

        xlApp.Worksheets(sSheetName).Activate
        xlApp.ActiveWorkbook.Names.Add sRangeName, "=" & sSheetName & "!" &
sRegionStart

/gustav

>>> Lambert.Heenan at AIG.com 20-01-2006 22:22:23 >>>
Here's an example of creating named ranges....

Sub Excel_CreateNamedRange(sPath As String, sRangeName As String,  _  
	sSheetName As String, Optional sRegionStart As String = "A1") '
Creates a named range (sRangeName) in the given spreadsheet (sPath) ' on the
given worksheet (sSheetName). ' The region of data to include in the named
range includes the cell address in sRegionStart
    Dim xlApp As Excel.Application

    Dim rng As String
    
    'Check to see if the file name passed in to
    'the procedure is valid
    If Not FileExists(sPath) Then '
        MsgBox sPath & " isn't a valid path!"
        Exit Sub
    Else
        Set xlApp = CreateObject("Excel.Application")
        'xlApp.Visible = True
        xlApp.Workbooks.Open sPath
        xlApp.Worksheets(sSheetName).Activate
        xlApp.ActiveSheet.Range(sRegionStart).Select
        rng = xlApp.Selection.CurrentRegion.Address

        xlApp.ActiveWorkbook.Names.Add sRangeName, "=" & sSheetName & "!" &
rng
    End If
    Excel_CloseWorkBook xlApp, True
    Set xlApp = Nothing
End Sub


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


From Lambert.Heenan at AIG.com  Mon Jan 23 08:40:47 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Mon, 23 Jan 2006 09:40:47 -0500
Subject: [AccessD] Setting data into and getting data from Named Range	s
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1C1E5DAD@xlivmbx21.aig.com>

John,

Here's some more examples. Feel free to optimize any way you wish..

Setting the value of a single cell. This is pretty inefficient as the
workbook is opened, a cell set and the workbook closed. The code could
easily be modified to just set the cell in an already opened workbook, by
passing in the Workbook object...

Sub Excel_SetCellValue(sFileName As String, nWkSheetNumber As Integer,
strCellAddress As String, varData As Variant, Optional strFormat As String =
"")
Dim xlFile As Excel.Application
Dim xlwb As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim oRng As Excel.Range

        Set xlFile = Excel_OpenWorkBookHidden(sFileName)
        With xlFile
            Set xlwb = .Workbooks(GetFileName(sFileName))
            Set xlSheet = xlwb.Worksheets(nWkSheetNumber)
            .Range(strCellAddress) = varData
            Set oRng = .Range(strCellAddress)
            If strFormat & "" > "" Then oRng.NumberFormat = strFormat
            Set oRng = Nothing
            Set xlSheet = Nothing
            Set xlwb = Nothing
        End With
        Excel_CloseWorkBook xlFile, True

End Sub

Retrieving the value of a single cell. A touch more efficient the workbook
being already opened....

Function Excel_CellData(xls As Excel.Worksheet, nRow As Long, nCol As Long)
As Variant
    With xls
        Excel_CellData = Trim(Nz(.Cells(nRow, nCol), ""))
    End With
End Function


Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Monday, January 23, 2006 8:12 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Setting data into and getting data from Named Ranges


I am moving right along with my Excel stuff but now I need to watch as data
is poked into named ranges.  But first I have to discover how to poke stuff
into named ranges.  I am finding a lot of code for setting up the named
ranges but not a lot about actually setting a single value into the (single
cell) range, setting a table of data (from Access) into a named range
(multiple cells), and then of course, reading a value from a single cell
named range, or getting data back out of a named range (multiple cells) into
a table.

Does anyone have example code for this?

John W. Colby
www.ColbyConsulting.com 


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


From Gustav at cactus.dk  Mon Jan 23 08:52:08 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 23 Jan 2006 15:52:08 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d4fbbb.060@cactus.dk>

Hi Lambert

Well, that's what I thought, but I ran the code for "A1" where A1 to B4 were filled in, but only A1 itself was selected. Tried both in E97 and E2003.

/gustav

>>> Lambert.Heenan at AIG.com 23-01-2006 15:31:54 >>>
Thanks for your feedback Gustav.

I think what you are saying is that if you know in advance what cells the
named range covers you can pass a range address in in the parameter
sRegionStart  with a value like "F5:J7" of "$G$5:$J$7" and then your
variation on the code will assign a name to that range.

However, my routine was written to handle the situation where you do not
know the extent of the range in advance. Instead you only know for sure that
some cell is within the range. Thus my code passes in an address in
sRegionStart like "A1", and then the execution of the line

xlApp.ActiveSheet.Range(sRegionStart).Select

causes Excel to highlight all the cells in the continuous (strictly -
'contiguous') region that includes the cell already selected (A1). The
subsequent line of code

 rng = xlApp.Selection.CurrentRegion.Address

Then retrieves the address of the complete region and uses this to set the
named range address.

All the highlighting and selecting usually takes place while  the workbook
is opened in hidden mode.

Lambert




From jwcolby at ColbyConsulting.com  Mon Jan 23 09:34:22 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 23 Jan 2006 10:34:22 -0500
Subject: [AccessD] Setting data into and getting data from Named Range	s
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1C1E5DAD@xlivmbx21.aig.com>
Message-ID: <000001c62032$7cbbbd90$647aa8c0@ColbyM6805>

Lambert,

But I am trying to work with NAMED RANGES, not cell references.

Function Excel_NamedRangeDataGet(xlwb As Excel.WorkWorkbook, strRangeName)
As Variant
Function Excel_NamedRangeDataSet(xlwb As Excel.WorkWorkbook, strRangeName,
varData)

As opposed to

Function Excel_CellData(xls As Excel.Worksheet, nRow As Long, nCol As Long)
As Variant 

Everyone is waxing poetic over how cool Named Ranges are, and I am too - for
working IN a spreadsheet/book directly.  OTOH, no one is offering code for
using them from VBA running out in Access.  That is what I am trying to
figure out.  I have (finally) figured out how to get/set a single cell named
range.  I can even write the same (single) value to a "table" named range
(to initialize to blank for example).  Now I need to do the same with
reading / writing "tables" from/to named ranges that refer to cell ranges
(square areas of a spreadsheet).

I have a worksheet that I need to fill in with data.  The worksheet has
single cell things such as Contractor name, system name, RFD Number etc.  It
then has AREAS that represent multi-column tables in Access.  I need to
write a 7 column table, up to 200 records, into a named range for that area
in the spreadsheet.  I then need to read back that "table" from the
spreadsheet when it comes back from the contractor.  There is another little
two column / 20 record table I need to write out, then read back when the
(same) spreadsheet comes back.

It is just frustrating, the total lack of information out there for using
named ranges from VBA.  I have found code galore for CREATING the named
ranges via VBA, but a deafening silence on USING the named ranges.  Why in
the world would I want to create them if I can't read/write to them?

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Monday, January 23, 2006 9:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Setting data into and getting data from Named Range s

John,

Here's some more examples. Feel free to optimize any way you wish..

Setting the value of a single cell. This is pretty inefficient as the
workbook is opened, a cell set and the workbook closed. The code could
easily be modified to just set the cell in an already opened workbook, by
passing in the Workbook object...

Sub Excel_SetCellValue(sFileName As String, nWkSheetNumber As Integer,
strCellAddress As String, varData As Variant, Optional strFormat As String =
"")
Dim xlFile As Excel.Application
Dim xlwb As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim oRng As Excel.Range

        Set xlFile = Excel_OpenWorkBookHidden(sFileName)
        With xlFile
            Set xlwb = .Workbooks(GetFileName(sFileName))
            Set xlSheet = xlwb.Worksheets(nWkSheetNumber)
            .Range(strCellAddress) = varData
            Set oRng = .Range(strCellAddress)
            If strFormat & "" > "" Then oRng.NumberFormat = strFormat
            Set oRng = Nothing
            Set xlSheet = Nothing
            Set xlwb = Nothing
        End With
        Excel_CloseWorkBook xlFile, True

End Sub

Retrieving the value of a single cell. A touch more efficient the workbook
being already opened....

Function Excel_CellData(xls As Excel.Worksheet, nRow As Long, nCol As Long)
As Variant
    With xls
        Excel_CellData = Trim(Nz(.Cells(nRow, nCol), ""))
    End With
End Function


Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Monday, January 23, 2006 8:12 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Setting data into and getting data from Named Ranges


I am moving right along with my Excel stuff but now I need to watch as data
is poked into named ranges.  But first I have to discover how to poke stuff
into named ranges.  I am finding a lot of code for setting up the named
ranges but not a lot about actually setting a single value into the (single
cell) range, setting a table of data (from Access) into a named range
(multiple cells), and then of course, reading a value from a single cell
named range, or getting data back out of a named range (multiple cells) into
a table.

Does anyone have example code for this?

John W. Colby
www.ColbyConsulting.com 


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



From jwcolby at ColbyConsulting.com  Mon Jan 23 09:34:57 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 23 Jan 2006 10:34:57 -0500
Subject: [AccessD] Setting data into and getting data from Named Ranges
In-Reply-To: <01ac01c6201e$9e32b9b0$647aa8c0@ColbyM6805>
Message-ID: <000101c62032$91664490$647aa8c0@ColbyM6805>

OK, to SET a value:

SomeBook.Names(strRangeName).RefersToRange = val 

To read a value:

SomeBook.Names(strRangeName).RefersToRange

Only tested for single cell ranges, and setting the SAME VALUE into square
ranges ("tables").

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Monday, January 23, 2006 8:12 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Setting data into and getting data from Named Ranges

I am moving right along with my Excel stuff but now I need to watch as data
is poked into named ranges.  But first I have to discover how to poke stuff
into named ranges.  I am finding a lot of code for setting up the named
ranges but not a lot about actually setting a single value into the (single
cell) range, setting a table of data (from Access) into a named range
(multiple cells), and then of course, reading a value from a single cell
named range, or getting data back out of a named range (multiple cells) into
a table.

Does anyone have example code for this?

John W. Colby
www.ColbyConsulting.com 


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



From Gustav at cactus.dk  Mon Jan 23 10:12:29 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 23 Jan 2006 17:12:29 +0100
Subject: [AccessD] Setting data into and getting data from Named	Range	s
Message-ID: <s3d50ea3.064@cactus.dk>

Hi John

  Set rng = wks.Range(strRangeName)

/gustav

>>> jwcolby at ColbyConsulting.com 23-01-2006 16:34:22 >>>

Everyone is waxing poetic over how cool Named Ranges are, and I am too - for working IN a spreadsheet/book directly. 



From sgeller at cce.umn.edu  Mon Jan 23 10:31:17 2006
From: sgeller at cce.umn.edu (Susan Geller)
Date: Mon, 23 Jan 2006 10:31:17 -0600
Subject: [AccessD] Can't create ADE file b/c of file size -- need
	"lightweight" forms?
Message-ID: <89934FC7BFD7AC40AC64F2A29B0C2D6374CF2F@mail.cce.local>

I have an application that I create as an adp and release as an ade
(same concept as mde) about 2-3 times per year. With this latest
version, I can't create an ADE file.  In searching the MS KB, I found
this article:

http://support.microsoft.com/kb/289686/EN-US/

which suggests that the reason is b/c the file as grown too large. I'm
sure that is the reason.  One suggested workaround is to use
"lightweight" forms and reports.  What does that mean?  Any other work
arounds?

--Susan


Susan B. Geller
Office of Information Systems
College of Continuing Education
University of Minnesota
306 Wesbrook Hall
77 Pleasant Street SE
Minneapolis, MN 55455
Phone:  612-626-4785
Fax:  612-625-2568




From cfoust at infostatsystems.com  Mon Jan 23 10:41:00 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 23 Jan 2006 08:41:00 -0800
Subject: [AccessD] Web designers. Why don't they stick with design?
Message-ID: <F55048AF7E974F429BB24597D7355EEABF48@INFOSERVER04.infostat.local>

I couldn't resist sending him some feedback on the more egregious errors
(like the remark about Access 2000 only supporting simple stored
procedures ...) and I'm sure his extreme spam filter will junk it, but
it felt good to nail him on a couple of points anyhow, including the
need to use different code for Access and SQL Server in .Net. <g>

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 7:21 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Web designers. Why don't they stick with design?


Hi all, late Friday humour, sort of ...

Look what I've found.
This guy (I'll state his name just as a warning: Bill Gearhart) seems to
be one in an endless row of web designers with no knowledge about how
Access works, thus he doesn't know what he is talking about:

http://www.aspemporium.com/aspEmporium/tutorials/dontUseMSAccess.asp 

No doubt, Access is not intended for use as backend database for
high-volume web sites but this blurb is so full of factual errors and
bad coding examples that it should be abandoned.

/gustav

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


From bill_Patten at earthlink.net  Mon Jan 23 10:43:27 2006
From: bill_Patten at earthlink.net (Bill Patten)
Date: Mon, 23 Jan 2006 08:43:27 -0800
Subject: [AccessD] Can't create ADE file b/c of file size --
	need"lightweight" forms?
References: <89934FC7BFD7AC40AC64F2A29B0C2D6374CF2F@mail.cce.local>
Message-ID: <001901c6203c$23965860$6501a8c0@BPCS>

Susan,

Since and adp/ade is designed to work with a SQL Server backend, that KB 
probably doesn't apply to you, as it is talking about an MDE that is also 
storing data. I suspect a different problem.


----- Original Message ----- 
From: "Susan Geller" <sgeller at cce.umn.edu>
To: <accessD at databaseadvisors.com>
Sent: Monday, January 23, 2006 8:31 AM
Subject: [AccessD] Can't create ADE file b/c of file size --  
need"lightweight" forms?


I have an application that I create as an adp and release as an ade
(same concept as mde) about 2-3 times per year. With this latest
version, I can't create an ADE file.  In searching the MS KB, I found
this article:

http://support.microsoft.com/kb/289686/EN-US/

which suggests that the reason is b/c the file as grown too large. I'm
sure that is the reason.  One suggested workaround is to use
"lightweight" forms and reports.  What does that mean?  Any other work
arounds?

--Susan


Susan B. Geller
Office of Information Systems
College of Continuing Education
University of Minnesota
306 Wesbrook Hall
77 Pleasant Street SE
Minneapolis, MN 55455
Phone:  612-626-4785
Fax:  612-625-2568


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



From cfoust at infostatsystems.com  Mon Jan 23 10:47:43 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 23 Jan 2006 08:47:43 -0800
Subject: [AccessD] Sequence number in query
Message-ID: <F55048AF7E974F429BB24597D7355EEABF49@INFOSERVER04.infostat.local>

Jim Dettman posted a trick several years ago.  Look up Qcntr in the
archives.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Saturday, January 21, 2006 2:18 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Sequence number in query


Jim:

No, it was some clever trick in the QBE that would neatly number the 
rows retrieved by the query.  I think using -1 for something had 
something to do with it but I'm not sure.

Rocky


Jim Lawrence wrote:
> Hi Rocky:
>
> You mean drop a place holder like this?
>
> SELECT "" AS AddedField1, "" AS AddedField2
> FROM MyTable;
>
> HTH
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin - Beach Access Software
> Sent: January 21, 2006 9:32 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Sequence number in query
>
> Dear List:
>
> There is a trick to creating a column in a query with a sequence 
> number
> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall
this?
>
> MTIA
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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


From Gustav at cactus.dk  Mon Jan 23 11:10:46 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 23 Jan 2006 18:10:46 +0100
Subject: [AccessD] Web designers. Why don't they stick with design?
Message-ID: <s3d51c3e.065@cactus.dk>

Thank you Charlotte, he deserved that.

/gustav

>>> cfoust at infostatsystems.com 23-01-2006 17:41:00 >>>
I couldn't resist sending him some feedback on the more egregious errors
(like the remark about Access 2000 only supporting simple stored
procedures ...) and I'm sure his extreme spam filter will junk it, but
it felt good to nail him on a couple of points anyhow, including the
need to use different code for Access and SQL Server in .Net. <g>

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 7:21 AM
To: accessd at databaseadvisors.com 
Subject: [AccessD] Web designers. Why don't they stick with design?


Hi all, late Friday humour, sort of ...

Look what I've found.
This guy (I'll state his name just as a warning: Bill Gearhart) seems to
be one in an endless row of web designers with no knowledge about how
Access works, thus he doesn't know what he is talking about:

http://www.aspemporium.com/aspEmporium/tutorials/dontUseMSAccess.asp 

No doubt, Access is not intended for use as backend database for
high-volume web sites but this blurb is so full of factual errors and
bad coding examples that it should be abandoned.

/gustav




From jwcolby at ColbyConsulting.com  Mon Jan 23 11:24:30 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 23 Jan 2006 12:24:30 -0500
Subject: [AccessD] Can't create ADE file b/c of file size --
	need"lightweight" forms?
In-Reply-To: <89934FC7BFD7AC40AC64F2A29B0C2D6374CF2F@mail.cce.local>
Message-ID: <001901c62041$df1eab50$647aa8c0@ColbyM6805>

Lightweight means get rid of the code module if there is no code behind
forms.  Forms and reports also open faster if you do that.  

For programmers there are darned few forms where this works however. 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Geller
Sent: Monday, January 23, 2006 11:31 AM
To: accessD at databaseadvisors.com
Subject: [AccessD] Can't create ADE file b/c of file size --
need"lightweight" forms?

I have an application that I create as an adp and release as an ade (same
concept as mde) about 2-3 times per year. With this latest version, I can't
create an ADE file.  In searching the MS KB, I found this article:

http://support.microsoft.com/kb/289686/EN-US/

which suggests that the reason is b/c the file as grown too large. I'm sure
that is the reason.  One suggested workaround is to use "lightweight" forms
and reports.  What does that mean?  Any other work arounds?

--Susan


Susan B. Geller
Office of Information Systems
College of Continuing Education
University of Minnesota
306 Wesbrook Hall
77 Pleasant Street SE
Minneapolis, MN 55455
Phone:  612-626-4785
Fax:  612-625-2568


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



From Gustav at cactus.dk  Mon Jan 23 11:38:44 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 23 Jan 2006 18:38:44 +0100
Subject: [AccessD] Setting data into and getting data from Named	Ranges
Message-ID: <s3d522c4.066@cactus.dk>

Hi John

Don't do it that way. Set a range object and read/write from/to it.

  Set wkb = <yourworkbook>
  Set rng = wkb.Range(strRangeName)

Read from a range into an array:

  avarValues = rng.Value

Write from an array into a range:

  rng.Value = avarValues

/gustav

>>> jwcolby at ColbyConsulting.com 23-01-2006 16:34:57 >>>
OK, to SET a value:

SomeBook.Names(strRangeName).RefersToRange = val 

To read a value:

SomeBook.Names(strRangeName).RefersToRange

Only tested for single cell ranges, and setting the SAME VALUE into square
ranges ("tables").

John W. Colby
www.ColbyConsulting.com 




From jwelz at hotmail.com  Mon Jan 23 11:50:19 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Mon, 23 Jan 2006 10:50:19 -0700
Subject: [AccessD] Virtual library management database
In-Reply-To: <0b8101c62007$eaf0d730$0100a8c0@RazvojErvin>
Message-ID: <BAY113-F6E698077799FA18CDB2C8A1100@phx.gbl>

Ervin:

This is a subject on which opinions will vary along lines of what people 
perceive the priorities are.  A flatter file will generally provide better 
performance and a more normalized one will ordinarilly be be both slower and 
more complex to query yet provide greater flexibility.

Generally, it is easier to query if you include general items such as Title 
and Author in a single table that encompasses all categories and types of 
media.  Where a object may not have an attribute  not universal to other 
objects, it makes sense to use an unequal join to such tables to return 
those attributes.  A user search could then return all medai types and all 
relevant attributes on a generic search on a word in the title.  You can 
normalize this as much as necessary by joining tables containing attributes 
of specific media categories.

For example, if you store information about an article in a magazine, your 
base table containing an periodical article name and author could easily be 
queried and be joined to a magazine article table that stores the containing 
Magazine information and page references.  This would allow the user to be 
able to include all types of media in a single search.

If you break your tables along media type lines, it would be necessary to 
union your search results across all the tables to provide an encompassing 
search.  Union queries cannot (in versions of Access I am familiar with) 
include memo fields that may be necessary to contain descriptive informaion.

Using a report as output simplifes things in that you can use a sub report 
for each category, each with its own SQL source.  However, my preference is 
to always provide a list output where a user can click on an item and have 
it open the appropriate form that contains all relevant information with 
appropriate joins, perhaps with the foreign keyed data in subforms.  
Although the Union restriction on memo types will not apply in the case of 
search results in a list box, I find it easier to return results from a 
single table and show the media type and allow futher filtering on type of 
media in the list result.

Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com


>From: "Ervin Brindza" <viner at EUnet.yu>
>
><second attempt>
>I was asked to do some voluntary work for some community. I need some ideas 
>in designing a virtual library management database. The database will 
>manage various matherial for amatheur folk dancers, mostly with their home 
>made videos and sound matherial, books, magazines, video tapes, CDs(with 
>many short video films), DVD discs, sound recordings(LP discs, sound 
>casettes etc.) etc.
>So there are two types of entities: "simple"entity(e.g. books or DVD discs 
>with one film) and "complex" (e.g. magazines with articles of various 
>category, CD or DVD discs with more than one video film). The last entity 
>need a main table in a 1 to many relationship with the "sub" table, but the 
>first will have nothing on many side, if I put all of them into these two 
>tables.
>For books and DVD discs are important: Title, Author and Category
>For video tapes and sound cassettes are important(for each short film): 
>Order No., Name of the film(or song), Lenghth, Category
>For magazines(for each article): Title, Author and Category
>The main goal of the system is to search on category, so when the user 
>"ask" the system for e.g. Irish step to get all the book, videos, books, 
>articles in one report.
>So, my question is: is it clever to put all those various types of entities 
>into one table(and connected table) or to separate each type of entity into 
>own table.
>Many thanks for suggestions,
>     Ervin




From sgeller at cce.umn.edu  Mon Jan 23 11:57:17 2006
From: sgeller at cce.umn.edu (Susan Geller)
Date: Mon, 23 Jan 2006 11:57:17 -0600
Subject: [AccessD]  Can't create ADE file b/c of file size
Message-ID: <89934FC7BFD7AC40AC64F2A29B0C2D6374D132@mail.cce.local>

Update: Yup, size was not the problem at all.  Problem was the code
didn't compile. I fixed the errors and now I can make an ADE. Thanks!

--Susan

Susan, Since and adp/ade is designed to work with a SQL Server backend,
that KB probably doesn't apply to you, as it is talking about an MDE
that is also storing data. I suspect a different problem. 
----- Original Message ----- 
From: "Susan Geller" <sgeller at cce.umn.edu
<http://databaseadvisors.com/mailman/listinfo/accessd> > 
To: <accessD at databaseadvisors.com
<http://databaseadvisors.com/mailman/listinfo/accessd> >
 Sent: Monday, January 23, 2006 8:31 AM 
Subject: [AccessD] Can't create ADE file b/c of file size --
need"lightweight" forms? 
I have an application that I create as an adp and release as an ade
(same concept as mde) about 2-3 times per year. With this latest
version, I can't create an ADE file. In searching the MS KB, I found
this article: http://support.microsoft.com/kb/289686/EN-US/ which
suggests that the reason is b/c the file as grown too large. I'm sure
that is the reason. One suggested workaround is to use "lightweight"
forms and reports. What does that mean? Any other work arounds? --

Susan B. Geller
Office of Information Systems
College of Continuing Education
University of Minnesota
306 Wesbrook Hall
77 Pleasant Street SE
Minneapolis, MN 55455
Phone:  612-626-4785
Fax:  612-625-2568




From Gustav at cactus.dk  Mon Jan 23 11:57:58 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 23 Jan 2006 18:57:58 +0100
Subject: [AccessD] Setting data into and getting data from Named	Range	s
Message-ID: <s3d52740.067@cactus.dk>

Hi John

Note that Areas in Excel is a property of Range.

A range defaults to have one area.
However, if you use Union to set one range from several ranges, such a range will have as many Areas as it was assembled from. Each area will have its own row and column count. If you just refer to row and column of the range it will be the row and column relative to area 1!

This can turn into great fun.

/gustav

>>> jwcolby at ColbyConsulting.com 23-01-2006 16:34:22 >>>
Lambert,

But I am trying to work with NAMED RANGES, not cell references.

Function Excel_NamedRangeDataGet(xlwb As Excel.WorkWorkbook, strRangeName)
As Variant
Function Excel_NamedRangeDataSet(xlwb As Excel.WorkWorkbook, strRangeName,
varData)

As opposed to

Function Excel_CellData(xls As Excel.Worksheet, nRow As Long, nCol As Long)
As Variant 

Everyone is waxing poetic over how cool Named Ranges are, and I am too - for
working IN a spreadsheet/book directly.  OTOH, no one is offering code for
using them from VBA running out in Access.  That is what I am trying to
figure out.  I have (finally) figured out how to get/set a single cell named
range.  I can even write the same (single) value to a "table" named range
(to initialize to blank for example).  Now I need to do the same with
reading / writing "tables" from/to named ranges that refer to cell ranges
(square areas of a spreadsheet).

I have a worksheet that I need to fill in with data.  The worksheet has
single cell things such as Contractor name, system name, RFD Number etc.  It
then has AREAS that represent multi-column tables in Access.  I need to
write a 7 column table, up to 200 records, into a named range for that area
in the spreadsheet.  I then need to read back that "table" from the
spreadsheet when it comes back from the contractor.  There is another little
two column / 20 record table I need to write out, then read back when the
(same) spreadsheet comes back.

It is just frustrating, the total lack of information out there for using
named ranges from VBA.  I have found code galore for CREATING the named
ranges via VBA, but a deafening silence on USING the named ranges.  Why in
the world would I want to create them if I can't read/write to them?

John W. Colby
www.ColbyConsulting.com 




From martyconnelly at shaw.ca  Mon Jan 23 12:01:53 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 23 Jan 2006 10:01:53 -0800
Subject: [AccessD] Virtual library management database
References: <0b8101c62007$eaf0d730$0100a8c0@RazvojErvin>
Message-ID: <43D51A11.3000002@shaw.ca>

Have a look at the the data models here
http://www.databaseanswers.org/data_models/
This one seperates books by format
http://www.databaseanswers.org/data_models/bookstore_and_warehouses/index.htm
I would have each entity into its own table unless there is some 
commonality.

Ervin Brindza wrote:

><second attempt>
>I was asked to do some voluntary work for some community. I need some ideas in designing a virtual library management database. The database will manage various matherial for amatheur folk dancers, mostly with their home made videos and sound matherial, books, magazines, video tapes, CDs(with many short video films), DVD discs, sound recordings(LP discs, sound casettes etc.) etc. 
>So there are two types of entities: "simple"entity(e.g. books or DVD discs with one film) and "complex" (e.g. magazines with articles of various category, CD or DVD discs with more than one video film). The last entity need a main table in a 1 to many relationship with the "sub" table, but the first will have nothing on many side, if I put all of them into these two tables.
>For books and DVD discs are important: Title, Author and Category
>For video tapes and sound cassettes are important(for each short film): Order No., Name of the film(or song), Lenghth, Category
>For magazines(for each article): Title, Author and Category
>The main goal of the system is to search on category, so when the user "ask" the system for e.g. Irish step to get all the book, videos, books, articles in one report.
>So, my question is: is it clever to put all those various types of entities into one table(and connected table) or to separate each type of entity into own table.
>Many thanks for suggestions,
>    Ervin
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From accessd at shaw.ca  Mon Jan 23 12:24:21 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Mon, 23 Jan 2006 10:24:21 -0800
Subject: [AccessD] Web designers. Why don't they stick with design?
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF48@INFOSERVER04.infostat.local>
Message-ID: <001001c6204a$3acf9830$017ba8c0@xpserver>

Charlotte, I was very tempted to respond, but given the depth and breath of
his lack of knowledge, it seemed like such a waste of time. But I am glad
you did.

I was indirectly involved in an email fire-fight with Fabian Pascal, the
self claimed SQL guru and fundamentalist. I understand, as I bailed early,
that the fight went on for over a year and degenerated into just passing
insults. (The standard battle over absolutely adherence to the laws of
normalization versus database performance.)  

...But Good work; someone just had to say something.

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: January 23, 2006 8:41 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Web designers. Why don't they stick with design?

I couldn't resist sending him some feedback on the more egregious errors
(like the remark about Access 2000 only supporting simple stored
procedures ...) and I'm sure his extreme spam filter will junk it, but
it felt good to nail him on a couple of points anyhow, including the
need to use different code for Access and SQL Server in .Net. <g>

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 7:21 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Web designers. Why don't they stick with design?


Hi all, late Friday humour, sort of ...

Look what I've found.
This guy (I'll state his name just as a warning: Bill Gearhart) seems to
be one in an endless row of web designers with no knowledge about how
Access works, thus he doesn't know what he is talking about:

http://www.aspemporium.com/aspEmporium/tutorials/dontUseMSAccess.asp 

No doubt, Access is not intended for use as backend database for
high-volume web sites but this blurb is so full of factual errors and
bad coding examples that it should be abandoned.

/gustav

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



From Jim.Hale at FleetPride.com  Mon Jan 23 12:44:36 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Mon, 23 Jan 2006 12:44:36 -0600
Subject: [AccessD] Setting data into and getting data from Named Range	s
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD9AA@corp-es01.fleetpride.com>

John,
I sent you an email, did you get it?
Jim Hale

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Monday, January 23, 2006 7:12 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Setting data into and getting data from Named Ranges


I am moving right along with my Excel stuff but now I need to watch as data
is poked into named ranges.  But first I have to discover how to poke stuff
into named ranges.  I am finding a lot of code for setting up the named
ranges but not a lot about actually setting a single value into the (single
cell) range, setting a table of data (from Access) into a named range
(multiple cells), and then of course, reading a value from a single cell
named range, or getting data back out of a named range (multiple cells) into
a table.

Does anyone have example code for this?

John W. Colby
www.ColbyConsulting.com 


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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From Jim.Hale at FleetPride.com  Mon Jan 23 12:47:24 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Mon, 23 Jan 2006 12:47:24 -0600
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD9AB@corp-es01.fleetpride.com>

You can do pretty much anything in code that you can do manually to a
spreadsheet.
Jim Hale

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Saturday, January 21, 2006 6:48 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Syntax for seeing named range in excel


I guess my confusion now is how does this whole process work in practice.  

I thought that the "patent" issue was one of "linking to spreadsheets was
illegal", but manipulating them programmatically was OK.  Thus I could not
create a link, it just wouldn't even let me do it, but I could write a
program to open a spreadsheet and do whatever I wanted to it in code.  If
that is true then I can open / update / close / open / update / close a
spreadsheet all I wanted to IN CODE.  If that is NOT true then the first
time I close it I am screwed and have to start all over.

What is the truth here?

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 7:04 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

>>> jwcolby at ColbyConsulting.com 20-01-2006 21:08:20 >>>
> Now I need to figure out how to CREATE named ranges when I build a
spreadsheet in VBA.

Eh? Isn't this VBA:

-----Original Message-----
Sent: Friday, January 20, 2006 10:31 AM
Subject: Re: [AccessD] Syntax for seeing named range in excel

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

---

Or have you something else in mind?

/gustav

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

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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From jwcolby at ColbyConsulting.com  Mon Jan 23 12:52:24 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 23 Jan 2006 13:52:24 -0500
Subject: [AccessD] Setting data into and getting data from Named	Range	s
In-Reply-To: <s3d52740.067@cactus.dk>
Message-ID: <002301c6204e$26850eb0$647aa8c0@ColbyM6805>

I have it WORKING!!!

Yea!!!

What a learning experience this has been.

In order to understand the code snippet you have to know that I open a
workbook and set a class global Workbook and Worksheet object called
respectively mXLWB and mXLWS.  Thus this function simply passes in a name
range and a recordset typcast as an object.  It then translates that named
range into a range object, which then calls the CopyFromRecordset method
passing in the RS object.  The CopyFromRecordset is perfectly happy getting
an object, and apparently can handle either a DAO or an ADO recordset passed
in.  I am currently passing in a DAO recordset but will switch to ADO.

What I have not accomplished is CopyTORecordset (read the data back out of
the range INTO a recordset object).  I think I can accomplish that back in
Access however without calling the Excel objects.

Function mXLWBNameDataCopyFromRS(strName As String, RS As Object)
On Error GoTo Err_mXLWBNameDataCopyFromRS
Dim lRange As Range
    Set lRange = mXLWS.Range(strName)
    lRange.CopyFromRecordset RS
Exit_mXLWBNameDataCopyFromRS:
On Error Resume Next
    If Not (lRange Is Nothing) Then lRange.Close: Set lRange = Nothing
Exit Function
Err_mXLWBNameDataCopyFromRS:
        MsgBox Err.Description, , "Error in Function
clsExcel.mXLWBNameDataCopyFromRS"
        Resume Exit_mXLWBNameDataCopyFromRS
    Resume 0    '.FOR TROUBLESHOOTING
End Function 

I now have an entire (largish) Excel class which handles opening / saving /
closing the Excel Application, workbooks, setting references to worksheets,
passing back pointers to OPEN workbooks and worksheets, getting and setting
data from named ranges, and copying data from a recordset into a named
range.  Also little things like setting visibility, running macros and so
forth.

My application now opens Excel, opens a "template" workbook, immediately
saves it back to a different location, updates a handful of single cell
ranges, and two multi-cell ranges, then closes the spreadsheet, attaches it
to an email, and sends it off to a recipient.

Sometime when I get a few minutes I will create a demo to put up on my web
site.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Monday, January 23, 2006 12:58 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Setting data into and getting data from Named Range s

Hi John

Note that Areas in Excel is a property of Range.

A range defaults to have one area.
However, if you use Union to set one range from several ranges, such a range
will have as many Areas as it was assembled from. Each area will have its
own row and column count. If you just refer to row and column of the range
it will be the row and column relative to area 1!

This can turn into great fun.

/gustav



From mboyd at deloitte.com  Mon Jan 23 12:59:39 2006
From: mboyd at deloitte.com (Boyd, Mark Thomas (US - Philadelphia))
Date: Mon, 23 Jan 2006 13:59:39 -0500
Subject: [AccessD] Tree View Control
Message-ID: <EB062E528F7B964281EB0F83CFDA3B4334B308@usndc0419.us.deloitte.com>

I have the need to use a Tree View control on a form.
Basically, I have a continuous form, with a number of records containing
Account #'s.  I want the user to be able to click a tree node "+"
button, and have detail records for this Account # displayed below.
Within this detail data, the user will need to update specific fields
(combo boxes and checkboxes).
 
Is the Microsoft Tree View control capable of this?  If not, are there
other controls that have this capability?
Any sample code would be greatly appreciated.
 
Thanks.
 

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com <http://www.deloitte.com/> 


This message (including any attachments) contains confidential information intended for a specific individual and purpose, and is protected by law.  If you are not the intended recipient, you should delete this message. 


Any disclosure, copying, or distribution of this message, or the taking of any action based on it, is strictly prohibited. [v.E.1]


From martyconnelly at shaw.ca  Mon Jan 23 13:36:15 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 23 Jan 2006 11:36:15 -0800
Subject: [AccessD] Tree View Control
References: <EB062E528F7B964281EB0F83CFDA3B4334B308@usndc0419.us.deloitte.com>
Message-ID: <43D5302F.5040307@shaw.ca>

Arthur has a sample treeview mdb click on node or sub node to open a sub 
form

treeview sample zip Access 97 should be a 2000 version somewhere

Adding a TreeView Control tos in Your an Access Applications
http://www.databaseadvisors.com/newletters/newsletter092001/0109UsingTreeViews.htm
http://www.databaseadvisors.com/downloads.htm

Boyd, Mark Thomas (US - Philadelphia) wrote:

>I have the need to use a Tree View control on a form.
>Basically, I have a continuous form, with a number of records containing
>Account #'s.  I want the user to be able to click a tree node "+"
>button, and have detail records for this Account # displayed below.
>Within this detail data, the user will need to update specific fields
>(combo boxes and checkboxes).
> 
>Is the Microsoft Tree View control capable of this?  If not, are there
>other controls that have this capability?
>Any sample code would be greatly appreciated.
> 
>Thanks.
> 
>
>Mark Boyd 
>Senior Consultant 
>Enterprise Risk Services 
>Deloitte & Touche LLP 
>  
>Tel: +1 215 405 5576
>mboyd at deloitte.com 
>www.deloitte.com <http://www.deloitte.com/> 
>
>
>This message (including any attachments) contains confidential information intended for a specific individual and purpose, and is protected by law.  If you are not the intended recipient, you should delete this message. 
>
>
>Any disclosure, copying, or distribution of this message, or the taking of any action based on it, is strictly prohibited. [v.E.1]
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From Jdemarco at hudsonhealthplan.org  Mon Jan 23 13:56:41 2006
From: Jdemarco at hudsonhealthplan.org (Jim DeMarco)
Date: Mon, 23 Jan 2006 14:56:41 -0500
Subject: [AccessD] Read External File for Path String
Message-ID: <08F823FD83787D4BA0B99CA580AD3C74016C442B@TTNEXCHCL2.hshhp.com>

Joe,

This is not true.  Grab the class from my article and you're doing XML as soon as you've added it to your mdb.  Not trying to push it on you but suggesting you give it a shot.

Jim DeMarco

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Joe Hecht
Sent: Friday, January 20, 2006 7:07 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


I have so much to learn I have just ruled out xml for now.
My projects are too small to take advantage of it.

Thanks for the info though.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
MartyConnelly
Sent: Friday, January 20, 2006 12:55 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Read External File for Path String

If you don't have that high a version of Access here is
method of using 
xmldom to read xml file.
rather than ImportXML method.

'?LoadXMLFile("C:\XML\AdviserDetails.xml")
Public Function LoadXMLFile(ByRef AdviserXML As String)

    'On Error GoTo ErrorHandler
    'needs reference set to XML 4.0 and maybe ADO 2.8
    Dim oDOMDocument As MSXML2.DOMDocument40
    Dim oNodeList As IXMLDOMNodeList
    Dim oAdviserDetailsNode As IXMLDOMNode
    Dim oLowestLevelNode As IXMLDOMElement
    Dim objXMLDOMNamedNodeMap As IXMLDOMNamedNodeMap
     Dim xPError As IXMLDOMParseError
    Dim Mydb As Database
    Dim myrs As ADODB.Recordset
    Dim sTempValue As String
    Dim lrec As Long
    Dim lnorec As Long
    Set oDOMDocument = New MSXML2.DOMDocument40

    oDOMDocument.async = False
    oDOMDocument.validateOnParse = True 'you may want to
parse for errors
    oDOMDocument.resolveExternals = False
    oDOMDocument.preserveWhiteSpace = True
 
    'use if xml disk file
      If Not oDOMDocument.Load(AdviserXML) Then
        MsgBox ("XML File error")
             Set xPError = oDOMDocument.parseError
        DOMParseError xPError
      
       End If
    Set oAdviserDetailsNode = oDOMDocument.documentElement
     Debug.Print oDOMDocument.xml
    
  
    'Set Mydb = CurrentDb
    'Set myrs = Mydb.OpenRecordset("NewTable")
 

   'use appropriate XPath expression to select nodes
  
   Set oNodeList =
oAdviserDetailsNode.selectNodes("//BusinessDetails/*")
 
     lnorec = 0
     lrec = 0
     Debug.Print oNodeList.length
     '   myrs.AddNew
    For Each oLowestLevelNode In oNodeList
        sTempValue = oLowestLevelNode.Text
         lrec = lrec + 1
        Select Case oLowestLevelNode.nodeName
            Case "BusinessName"
                   Debug.Print "Business " & sTempValue
                'myrs!BusinessName = sTempValue
            Case "AddressLine1"
                'myrs!AddressLine1 = sTempValue
            Case "AddressLine2"
                'myrs!AddressLine2 = sTempValue
            Case "Suburb"
                'myrs!Suburb = sTempValue
            Case "State"
                'myrs!State = sTempValue
                Debug.Print sTempValue
            Case "Postcode"
                'myrs!Postcode = sTempValue
            Case "PhoneNumber"
             Debug.Print "Phone " & sTempValue
                'myrs!PhoneNumber = sTempValue
            Case "Email"
                'myrs!Email = sTempValue
            Case "FaxNumber"
                'myrs!FaxNumber = sTempValue
        End Select
        If lrec = 9 Then '9 elements in business details
       ' myrs.Update
        lnorec = lnorec + 1
        lrec = 0
       ' myrs.AddNew
        End If
      Next
     
     MsgBox "Records Added=" & lnorec
     ' Set myrs = Nothing
    'Set Mydb = Nothing
    Set oDOMDocument = Nothing
    Set oAdviserDetailsNode = Nothing
    Set objXMLDOMNamedNodeMap = Nothing
    Exit Function

ErrorHandler:

  '  Call NewError.Raise(Err.Number, Err.Source,
Err.Description)

End Function
Sub DOMParseError(xPE As IXMLDOMParseError)

    ' The document failed to load.
    Dim strErrText As String
    ' Obtain the ParseError object
    With xPE
    strErrText = "Your XML Document failed to load" & _
        "due the following error." & vbCrLf & _
        "Error #: " & .errorCode & ": " & xPE.reason & _
        "Line #: " & .Line & vbCrLf & _
        "Line Position: " & .linepos & vbCrLf & _
        "Position In File: " & .filepos & vbCrLf & _
        "Source Text: " & .srcText & vbCrLf & _
        "Document URL: " & .url
    End With
    Debug.Print strErrText

  Dim s As String
  Dim r As String
  Dim i As Long
 
   s = ""
  For i = 1 To xPE.linepos - 1
    s = s & " "
  Next
  r = "XML Error loading " & xPE.url & " * " & xPE.reason
  Debug.Print r
    'show character postion of error; tired of counting
chars in xml file
  If (xPE.Line > 0) Then
    r = "at line " & xPE.Line & ", character " & xPE.linepos
& vbCrLf & _
         xPE.srcText & vbCrLf & s & "^"
  End If
  Debug.Print r
    MsgBox strErrText, vbExclamation
End Sub




--------  "C:\XML\AdviserDetails.xml"  save as UTF-8 not
ANSI in notepad

<?xml version="1.0" encoding="UTF-8"?>
<AdviserDetails ID="AD12345">
    <BusinessDetails>
        <BusinessName>"AD Business Name" </BusinessName>
        <AddressLine1>"AD Address Line 1" </AddressLine1>
        <AddressLine2>"AD Address Line 2" </AddressLine2>
        <Suburb>"AD Suburb" </Suburb>
        <State>"AD State" </State>
        <Postcode>"AD PostCode" </Postcode>
        <PhoneNumber>"AD Phone Number" </PhoneNumber>
        <Email>"AD Email" </Email>
        <FaxNumber>"AD Fax Number" </FaxNumber>
    </BusinessDetails>
</AdviserDetails>

Gustav Brock wrote:

>Hi Stuart
>
>Use A2002+.
>Have an internal table with your path, tblPath.
>
>To export:
>Application.ExportXML acExportTable , "tblPath",
"c:\mypath.xml"
>
>To import:
>CurrentDb.Execute "Delete * From tblPath"
>Application.ImportXML "c:\mypath.xml", acAppendData
>
>To read:
>strPath = DLookup("Path", "tblPath")
>
>Not quite sure how "easy" that is, though in total only
four code lines net are needed.
>However, if you need to store a bunch of user or app
settings it might be a nice method with all the advantages
of XML storage and exchange possibilities.
>
>/gustav
>
>  
>
>>>>stuart at lexacorp.com.pg 20-01-2006 00:48 >>>
>>>>        
>>>>
>On 19 Jan 2006 at 15:00, Charlotte Foust wrote:
>
>  
>
>>Actually, the XML files wind up with a structure very
similar to the ini
>>files but you don't need API calls to read them.
>>    
>>
>
>So how  would you create, then read an XML file to store a
backend server 
>path?
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada



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

-- 
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".
***********************************************************************************



From jwcolby at ColbyConsulting.com  Mon Jan 23 14:40:03 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 23 Jan 2006 15:40:03 -0500
Subject: [AccessD] Setting data into and getting data from Named Range	s
In-Reply-To: <6A6AA9DF57E4F046BDA1E273BDDB67727DD9AA@corp-es01.fleetpride.com>
Message-ID: <002501c6205d$307a0bf0$647aa8c0@ColbyM6805>

Jim,

I did, and thanks for the offer.  I think that understanding that it is the
range object that actually does the work kind of removed my mental
roadblocks.  I was thinking that the name object should have abilities that
it doesn't have.  I sent an email re "success" to the group.  

Again, thanks for the offer.  If I run into any more roadblocks I will keep
you in mind.  Kind of the last piece for right now is reading data back out
of a named range.  I have code for doing that, though it is kind of rough
ATM.

This is for a client who is documenting construction of a hospital.
Apparently federal law requires that they collect documents for each and
every one of certain kinds of systems, paper and electronic, and store them.
My client did not understand the size of the job when he got involved, nor
when he got me involved.  

I am of course building a database to track all of the documents, request
them (electronically) from each contractor (via this Request For Document
spreadsheet, attached to emails) for each document, then as the electronic
documents are returned via attachments to the email I send, strip the
attachments off and file them in an intricate directory structure out on the
hard disk.  There will be literally thousands of documents, perhaps tens of
thousands.  6 contractors, 91 systems (though some are "copies", i.e. 7 "Air
handling units"), and ~150 documents, although all docs are not required for
all systems.  My db has to track what has been requested, store "proof" that
we did request them (each Excel RFD is saved in the same directory
structure), track which docs are received back, report which docs are "owed"
by which contractors for which systems, and report which system's documents
have been completely received.

We are trying to convince all the contractors to work with us in naming the
documents to a standard so that as the attachments come in I can parse the
doc name to see what system/document it is and "count it as received".
There are just so many documents that to do this stuff manually would invite
chaos.

On top of all that, the requirement is for both paper copies as well as
electronic copies, so the db has to track both.  My client has to make paper
copies from Electronics where no paper exists, and make electronic from
paper where no electronic exist, and get it all entered in the db each time.

And finally, the main company (Pfizer) in charge of construction, had the
unfortunate experience of having their paper copies burned to the ground one
time.  As a result I also have to ensure that the electronic copies get
automatically written to a local and offsite location, which I will be doing
via high speed internet.  I have to track that each electronic document gets
written to the back up location as well - a usb hard disk on a computer
somewhere out on the internet.  Since the internet can be unavailable, I
have to handle that as well, performing the write when the internet becomes
available.

The paper in this case will completely fill a single wide trailer when all
is said and done, and in fact they have a single wide trailer that they are
using to collect the paper.  When they are done they will hook up a truck
and haul the paper... Somewhere... Hopefully fireproof.  ;-)

This is where "time and expenses" really takes on meaning!  I quoted 40
hours to do what my client originally asked for - and DELIVERED that.  Of
course my client did not understand the scope and so we soldier on.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Monday, January 23, 2006 1:45 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Setting data into and getting data from Named Range s

John,
I sent you an email, did you get it?
Jim Hale



From Jim.Hale at FleetPride.com  Mon Jan 23 15:04:26 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Mon, 23 Jan 2006 15:04:26 -0600
Subject: [AccessD] Setting data into and getting data from Named Range		s
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD9AF@corp-es01.fleetpride.com>

John,
The most effective way I've found to load data from Excel spreadsheets is to
create a hidden sheet linked to the data you wish to read, in essence
creating a flatfile. Then you can "load" the flatfile into Access with
something like this:

Set rstbase = dbs.OpenRecordset("tblOutPut_Data", dbOpenTable)
On Error Resume Next
.Range("A2").Select 'select first cell of first record to read
Dim x As Integer

Do While Not IsEmpty(ActiveCell)
    rstbase.AddNew 'create records in output table
    For x = 0 To 16
    If x < 4 Then rstbase.Fields(x) = .ActiveCell.Offset(0, x)
        'change sign on Jan-Dec revenue
        If x > 3 Then
        If rstbase.Fields("rptline") = 4100 Then
            rstbase.Fields(x) = -Round(.ActiveCell.Offset(0, x), 3)
        ElseIf rstbase.Fields("rptline") = 4130 Then
            rstbase.Fields(x) = -Round(.ActiveCell.Offset(0, x), 3)
        ElseIf rstbase.Fields("rptline") = 15000 Then
           rstbase.Fields(x) = Round(.ActiveCell.Offset(0, x), 3)
        Else
             rstbase.Fields(x) = Round(.ActiveCell.Offset(0, x), 3)
        End If
    End If
        
    Next x
    If Not rstbase.Fields("rptline") = 0 Then rstbase.Update
    
'This error occurs if duplicate Business Unit are loaded into the table.
'Business Unit is a primary key so duplicates are not allowed
        If Err.Number = 3022 Then
            MsgBox "Error #: " & Err.Number & " This record is already in
the Database!", 16, "Error"
            Err.Clear   ' Clear Err object fields
        End If
            
    .ActiveCell.Offset(1, 0).Select 'find first cell of next record
Loop

If your data is a table that is already in record format (ie with the fields
you want to populate in the Access table) you can make the upper left corner
of the range the active cell then use  offset to load the data from the
proper cell  as in the ex above. HTH

Jim Hale

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Monday, January 23, 2006 2:40 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Setting data into and getting data from Named
Range s


Jim,

I did, and thanks for the offer.  I think that understanding that it is the
range object that actually does the work kind of removed my mental
roadblocks.  I was thinking that the name object should have abilities that
it doesn't have.  I sent an email re "success" to the group.  

Again, thanks for the offer.  If I run into any more roadblocks I will keep
you in mind.  Kind of the last piece for right now is reading data back out
of a named range.  I have code for doing that, though it is kind of rough
ATM.

This is for a client who is documenting construction of a hospital.
Apparently federal law requires that they collect documents for each and
every one of certain kinds of systems, paper and electronic, and store them.
My client did not understand the size of the job when he got involved, nor
when he got me involved.  

I am of course building a database to track all of the documents, request
them (electronically) from each contractor (via this Request For Document
spreadsheet, attached to emails) for each document, then as the electronic
documents are returned via attachments to the email I send, strip the
attachments off and file them in an intricate directory structure out on the
hard disk.  There will be literally thousands of documents, perhaps tens of
thousands.  6 contractors, 91 systems (though some are "copies", i.e. 7 "Air
handling units"), and ~150 documents, although all docs are not required for
all systems.  My db has to track what has been requested, store "proof" that
we did request them (each Excel RFD is saved in the same directory
structure), track which docs are received back, report which docs are "owed"
by which contractors for which systems, and report which system's documents
have been completely received.

We are trying to convince all the contractors to work with us in naming the
documents to a standard so that as the attachments come in I can parse the
doc name to see what system/document it is and "count it as received".
There are just so many documents that to do this stuff manually would invite
chaos.


***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From stuart at lexacorp.com.pg  Mon Jan 23 16:03:32 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 24 Jan 2006 08:03:32 +1000
Subject: [AccessD] Tree View Control
In-Reply-To: <EB062E528F7B964281EB0F83CFDA3B4334B308@usndc0419.us.deloitte.com>
Message-ID: <43D5DF54.8719.A034DA0@stuart.lexacorp.com.pg>

On 23 Jan 2006 at 13:59, Boyd, Mark Thomas (US - Phila wrote:

> I have the need to use a Tree View control on a form.
> Basically, I have a continuous form, with a number of records containing
> Account #'s.  I want the user to be able to click a tree node "+" button,
> and have detail records for this Account # displayed below. Within this
> detail data, the user will need to update specific fields (combo boxes and
> checkboxes).
> 
> Is the Microsoft Tree View control capable of this?  If not, are there
> other controls that have this capability?
> Any sample code would be greatly appreciated.
> 

If you need to update child records, I would not try to use a treeview, I 
would use linked forms 

Depending on the visual requirements you can do either of the following:

1.
A continuous form (frmsubDetails) in the form_footer of your Accounts form 
with its parent set to the key field in the main form.

2.
An unbound main form with two sub forms side by side.
A continous subform (frmsubAccounts) on the left which lists all of the 
accounts.
A hidden text box (txtAccountLink) with a control source of 
"=frmSubAccounts.Key"
A continuous subform (frmsubDetails) on the right containing the detail 
records.
Set the Parent Field of frmsubDetails to "txtAccountLink"

In either case, when you click on an Account record, the appropriate 
records will be displayed in frmsubDetails and can be edited.







-- 
Stuart




From bchacc at san.rr.com  Mon Jan 23 16:11:36 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 23 Jan 2006 14:11:36 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF49@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF49@INFOSERVER04.infostat.local>
Message-ID: <43D55498.7070307@san.rr.com>

Charlotte:

I came up with no matches on qcntr search.  Do you get any hits on that 
search? I think I might have been thinking of running sum on a report. 

Rocky


Charlotte Foust wrote:
> Jim Dettman posted a trick several years ago.  Look up Qcntr in the
> archives.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Saturday, January 21, 2006 2:18 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Sequence number in query
>
>
> Jim:
>
> No, it was some clever trick in the QBE that would neatly number the 
> rows retrieved by the query.  I think using -1 for something had 
> something to do with it but I'm not sure.
>
> Rocky
>
>
> Jim Lawrence wrote:
>   
>> Hi Rocky:
>>
>> You mean drop a place holder like this?
>>
>> SELECT "" AS AddedField1, "" AS AddedField2
>> FROM MyTable;
>>
>> HTH
>> Jim
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin - Beach Access Software
>> Sent: January 21, 2006 9:32 AM
>> To: Access Developers discussion and problem solving
>> Subject: [AccessD] Sequence number in query
>>
>> Dear List:
>>
>> There is a trick to creating a column in a query with a sequence 
>> number
>> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall
>>     
> this?
>   
>> MTIA
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Mon Jan 23 16:13:30 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 23 Jan 2006 14:13:30 -0800
Subject: [AccessD] A simple graph
In-Reply-To: <BAY12-DAV545BC27895606045C7518CE110@phx.gbl>
References: <43D27171.9000300@san.rr.com>
	<BAY12-DAV545BC27895606045C7518CE110@phx.gbl>
Message-ID: <43D5550A.3080905@san.rr.com>

A.D.:

Checked it out. But I don't understand the code.  I'm actually still 
stuck on making the chart with one column of a table or query as the x 
axis and one as the y axis.  The chart wizard seems intent on doing 
series. 

Rocky


A.D.Tejpal wrote:
> Rocky,
>
>     My sample db named ChartsDemo might be of interest to you. It is available at Rogers Access Library (other developers library). Link - http://www.rogersaccesslibrary.com
>
>     It demonstrates a chart displaying blood pressure, pulse and temperature for patients. 
>
>     You could adapt the underlying approach suitably, for your specific needs.
>
> Best wishes,
> A.D.Tejpal
> --------------
>
>   ----- Original Message ----- 
>   From: Rocky Smolin - Beach Access Software 
>   To: Access Developers discussion and problem solving 
>   Sent: Saturday, January 21, 2006 23:07
>   Subject: [AccessD] A simple graph
>
>
>   My client wants a simple graph displayed on a form.  I don't really want to use Excel automation.  Does anyone know if  there something already out there which can do this?  A control?  Or a chunk of code on an Access library site?
>
>   MTIA
>   -- 
>   Rocky Smolin
>   Beach Access Software
>   858-259-4334
>   www.e-z-mrp.com
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Mon Jan 23 16:16:20 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 23 Jan 2006 14:16:20 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <001f01c61ee1$04ae3b40$6101a8c0@JISREGISTRATION.local>
References: <000301c61ec2$a71137d0$017ba8c0@xpserver>
	<43D2B2FE.10203@san.rr.com>
	<001f01c61ee1$04ae3b40$6101a8c0@JISREGISTRATION.local>
Message-ID: <43D555B4.3030904@san.rr.com>

Unfortunately, it's an aggregate query with no field I can use for the < 
factor.  But thanks anyway.

Rocky


William Hindman wrote:
> http://ourworld.compuserve.com/homepages/attac-cg/AqryTip.htm#AUTONUM
>
> William
>
> ----- Original Message ----- 
> From: "Rocky Smolin - Beach Access Software" <bchacc at san.rr.com>
> To: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> Sent: Saturday, January 21, 2006 5:17 PM
> Subject: Re: [AccessD] Sequence number in query
>
>
>   
>> Jim:
>>
>> No, it was some clever trick in the QBE that would neatly number the
>> rows retrieved by the query.  I think using -1 for something had
>> something to do with it but I'm not sure.
>>
>> Rocky
>>
>>
>> Jim Lawrence wrote:
>>     
>>> Hi Rocky:
>>>
>>> You mean drop a place holder like this?
>>>
>>> SELECT "" AS AddedField1, "" AS AddedField2
>>> FROM MyTable;
>>>
>>> HTH
>>> Jim
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
>>> Beach Access Software
>>> Sent: January 21, 2006 9:32 AM
>>> To: Access Developers discussion and problem solving
>>> Subject: [AccessD] Sequence number in query
>>>
>>> Dear List:
>>>
>>> There is a trick to creating a column in a query with a sequence number
>>> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?
>>>
>>> MTIA
>>>
>>>
>>>       
>> -- 
>> Rocky Smolin
>> Beach Access Software
>> 858-259-4334
>> www.e-z-mrp.com
>>
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>>     
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From mboyd at deloitte.com  Mon Jan 23 16:24:32 2006
From: mboyd at deloitte.com (Boyd, Mark Thomas (US - Philadelphia))
Date: Mon, 23 Jan 2006 17:24:32 -0500
Subject: [AccessD] Tree View Control
Message-ID: <EB062E528F7B964281EB0F83CFDA3B4334B4EA@usndc0419.us.deloitte.com>

Thanks Stuart.  
I agree, I probably don't want to use the Tree View control.  I'm using
linked forms, but I'd like for the child data to display directly
underneath the parent record on the continuous form.  Placing the child
data in the form footer is a nice concept, but displays too far down on
the form.
Again, what I hope to do is make the data display a certain way.  If
there isn't a clean way of doing it, I have no problem using one of your
suggestions.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Monday, January 23, 2006 5:04 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

On 23 Jan 2006 at 13:59, Boyd, Mark Thomas (US - Phila wrote:

> I have the need to use a Tree View control on a form.
> Basically, I have a continuous form, with a number of records
containing
> Account #'s.  I want the user to be able to click a tree node "+"
button,
> and have detail records for this Account # displayed below. Within
this
> detail data, the user will need to update specific fields (combo boxes
and
> checkboxes).
> 
> Is the Microsoft Tree View control capable of this?  If not, are there
> other controls that have this capability?
> Any sample code would be greatly appreciated.
> 

If you need to update child records, I would not try to use a treeview,
I 
would use linked forms 

Depending on the visual requirements you can do either of the following:

1.
A continuous form (frmsubDetails) in the form_footer of your Accounts
form 
with its parent set to the key field in the main form.

2.
An unbound main form with two sub forms side by side.
A continous subform (frmsubAccounts) on the left which lists all of the 
accounts.
A hidden text box (txtAccountLink) with a control source of 
"=frmSubAccounts.Key"
A continuous subform (frmsubDetails) on the right containing the detail 
records.
Set the Parent Field of frmsubDetails to "txtAccountLink"

In either case, when you click on an Account record, the appropriate 
records will be displayed in frmsubDetails and can be edited.







-- 
Stuart


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


This message (including any attachments) contains confidential information intended for a specific individual and purpose, and is protected by law.  If you are not the intended recipient, you should delete this message. 


Any disclosure, copying, or distribution of this message, or the taking of any action based on it, is strictly prohibited. [v.E.1]


From dwaters at usinternet.com  Mon Jan 23 16:42:47 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Mon, 23 Jan 2006 16:42:47 -0600
Subject: [AccessD] Tree View Control
In-Reply-To: <26753389.1138055380670.JavaMail.root@sniper15>
Message-ID: <000001c6206e$55dbfe10$0200a8c0@danwaters>

Mark,

Could you put your continuous form into the left side of a subform control,
then include another form into another subform control on the right side of
the parent form that would show the detail for the selected record on the
left side?  Once you've selected the record in your continuous form, I think
you can pass a recordset as the source for the form on the right.

Ok - that's just a vision I had . . . !

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Boyd, Mark Thomas
(US - Philadelphia)
Sent: Monday, January 23, 2006 4:25 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

Thanks Stuart.  
I agree, I probably don't want to use the Tree View control.  I'm using
linked forms, but I'd like for the child data to display directly
underneath the parent record on the continuous form.  Placing the child
data in the form footer is a nice concept, but displays too far down on
the form.
Again, what I hope to do is make the data display a certain way.  If
there isn't a clean way of doing it, I have no problem using one of your
suggestions.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Monday, January 23, 2006 5:04 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

On 23 Jan 2006 at 13:59, Boyd, Mark Thomas (US - Phila wrote:

> I have the need to use a Tree View control on a form.
> Basically, I have a continuous form, with a number of records
containing
> Account #'s.  I want the user to be able to click a tree node "+"
button,
> and have detail records for this Account # displayed below. Within
this
> detail data, the user will need to update specific fields (combo boxes
and
> checkboxes).
> 
> Is the Microsoft Tree View control capable of this?  If not, are there
> other controls that have this capability?
> Any sample code would be greatly appreciated.
> 

If you need to update child records, I would not try to use a treeview,
I 
would use linked forms 

Depending on the visual requirements you can do either of the following:

1.
A continuous form (frmsubDetails) in the form_footer of your Accounts
form 
with its parent set to the key field in the main form.

2.
An unbound main form with two sub forms side by side.
A continous subform (frmsubAccounts) on the left which lists all of the 
accounts.
A hidden text box (txtAccountLink) with a control source of 
"=frmSubAccounts.Key"
A continuous subform (frmsubDetails) on the right containing the detail 
records.
Set the Parent Field of frmsubDetails to "txtAccountLink"

In either case, when you click on an Account record, the appropriate 
records will be displayed in frmsubDetails and can be edited.







-- 
Stuart


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


This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  If
you are not the intended recipient, you should delete this message. 


Any disclosure, copying, or distribution of this message, or the taking of
any action based on it, is strictly prohibited. [v.E.1]
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From mboyd at deloitte.com  Mon Jan 23 16:53:41 2006
From: mboyd at deloitte.com (Boyd, Mark Thomas (US - Philadelphia))
Date: Mon, 23 Jan 2006 17:53:41 -0500
Subject: [AccessD] Tree View Control
Message-ID: <EB062E528F7B964281EB0F83CFDA3B4334B512@usndc0419.us.deloitte.com>

Thanks Dan.  I'm sure that would work great, but I'm really trying to
imitate the "drill-down" and "drill-up" behavior that is similar to the
tree view control.  I want the user to click a "+" control next to the
record, and the child data appears below this record.  If the user
clicks the control again, now a "-" symbol, the child data disappears.

I appreciate the insight, as this solution would work, but the client
would like it displayed a specific way.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: Monday, January 23, 2006 5:43 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Tree View Control

Mark,

Could you put your continuous form into the left side of a subform
control,
then include another form into another subform control on the right side
of
the parent form that would show the detail for the selected record on
the
left side?  Once you've selected the record in your continuous form, I
think
you can pass a recordset as the source for the form on the right.

Ok - that's just a vision I had . . . !

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Boyd, Mark
Thomas
(US - Philadelphia)
Sent: Monday, January 23, 2006 4:25 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

Thanks Stuart.  
I agree, I probably don't want to use the Tree View control.  I'm using
linked forms, but I'd like for the child data to display directly
underneath the parent record on the continuous form.  Placing the child
data in the form footer is a nice concept, but displays too far down on
the form.
Again, what I hope to do is make the data display a certain way.  If
there isn't a clean way of doing it, I have no problem using one of your
suggestions.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Monday, January 23, 2006 5:04 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

On 23 Jan 2006 at 13:59, Boyd, Mark Thomas (US - Phila wrote:

> I have the need to use a Tree View control on a form.
> Basically, I have a continuous form, with a number of records
containing
> Account #'s.  I want the user to be able to click a tree node "+"
button,
> and have detail records for this Account # displayed below. Within
this
> detail data, the user will need to update specific fields (combo boxes
and
> checkboxes).
> 
> Is the Microsoft Tree View control capable of this?  If not, are there
> other controls that have this capability?
> Any sample code would be greatly appreciated.
> 

If you need to update child records, I would not try to use a treeview,
I 
would use linked forms 

Depending on the visual requirements you can do either of the following:

1.
A continuous form (frmsubDetails) in the form_footer of your Accounts
form 
with its parent set to the key field in the main form.

2.
An unbound main form with two sub forms side by side.
A continous subform (frmsubAccounts) on the left which lists all of the 
accounts.
A hidden text box (txtAccountLink) with a control source of 
"=frmSubAccounts.Key"
A continuous subform (frmsubDetails) on the right containing the detail 
records.
Set the Parent Field of frmsubDetails to "txtAccountLink"

In either case, when you click on an Account record, the appropriate 
records will be displayed in frmsubDetails and can be edited.







-- 
Stuart


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


This message (including any attachments) contains confidential
information
intended for a specific individual and purpose, and is protected by law.
If
you are not the intended recipient, you should delete this message. 


Any disclosure, copying, or distribution of this message, or the taking
of
any action based on it, is strictly prohibited. [v.E.1]
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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


From stuart at lexacorp.com.pg  Mon Jan 23 16:52:46 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 24 Jan 2006 08:52:46 +1000
Subject: [AccessD] Tree View Control
In-Reply-To: <000001c6206e$55dbfe10$0200a8c0@danwaters>
References: <26753389.1138055380670.JavaMail.root@sniper15>
Message-ID: <43D5EADE.5755.A306321@stuart.lexacorp.com.pg>

On 23 Jan 2006 at 16:42, Dan Waters wrote:

> Mark,
> 
> Could you put your continuous form into the left side of a subform control,
> then include another form into another subform control on the right side of
> the parent form that would show the detail for the selected record on the
> left side?  Once you've selected the record in your continuous form, I think
> you can pass a recordset as the source for the form on the right.
> 
> Ok - that's just a vision I had . . . !
> 

That's effectively what my second suggestion did (but no need to pass a 
recordset, it all happens automagically).

-- 
Stuart




From cfoust at infostatsystems.com  Mon Jan 23 17:01:33 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 23 Jan 2006 15:01:33 -0800
Subject: [AccessD] Sequence number in query
Message-ID: <F55048AF7E974F429BB24597D7355EEABF4C@INFOSERVER04.infostat.local>

Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
Counter to Query Count Records"

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Monday, January 23, 2006 2:12 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Sequence number in query


Charlotte:

I came up with no matches on qcntr search.  Do you get any hits on that 
search? I think I might have been thinking of running sum on a report. 

Rocky


Charlotte Foust wrote:
> Jim Dettman posted a trick several years ago.  Look up Qcntr in the 
> archives.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Saturday, January 21, 2006 2:18 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Sequence number in query
>
>
> Jim:
>
> No, it was some clever trick in the QBE that would neatly number the
> rows retrieved by the query.  I think using -1 for something had 
> something to do with it but I'm not sure.
>
> Rocky
>
>
> Jim Lawrence wrote:
>   
>> Hi Rocky:
>>
>> You mean drop a place holder like this?
>>
>> SELECT "" AS AddedField1, "" AS AddedField2
>> FROM MyTable;
>>
>> HTH
>> Jim
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>> Smolin - Beach Access Software
>> Sent: January 21, 2006 9:32 AM
>> To: Access Developers discussion and problem solving
>> Subject: [AccessD] Sequence number in query
>>
>> Dear List:
>>
>> There is a trick to creating a column in a query with a sequence
>> number
>> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall
>>     
> this?
>   
>> MTIA
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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


From stuart at lexacorp.com.pg  Mon Jan 23 17:18:22 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 24 Jan 2006 09:18:22 +1000
Subject: [AccessD] Tree View Control
In-Reply-To: <EB062E528F7B964281EB0F83CFDA3B4334B512@usndc0419.us.deloitte.com>
Message-ID: <43D5F0DE.22697.A47D321@stuart.lexacorp.com.pg>

On 23 Jan 2006 at 17:53, Boyd, Mark Thomas (US - Philadelphia) wrote:

> Thanks Dan.  I'm sure that would work great, but I'm really trying to
> imitate the "drill-down" and "drill-up" behavior that is similar to the tree
> view control.  I want the user to click a "+" control next to the record,
> and the child data appears below this record.  If the user clicks the
> control again, now a "-" symbol, the child data disappears.
> 

You probably need a datasheet/subdatasheet view.

I've just knocked up a quick and dirty demo (A2K) to show how it can work. 
Download it from:
http://www.lexacorp.com.pg/Demos/SubDataSheetDemo.zip


-- 
Stuart




From artful at rogers.com  Mon Jan 23 17:47:53 2006
From: artful at rogers.com (Arthur Fuller)
Date: Mon, 23 Jan 2006 18:47:53 -0500
Subject: [AccessD] Refreshing values on a form
In-Reply-To: <s3cd46a2.009@cactus.dk>
Message-ID: <026101c62077$6d83f780$8e01a8c0@rock>

I hereby reaffirm that I am King of the Dorks. I was assigning the values to
my lists in the incorrect order. DOH! I think that perhaps a name change to
"Homer" is in order... and I don't mean the Greek. 
Now that I have corrected this stupidity, the code works as originally
intended.
Thanks for the slap on the side of the head, Gustav. As always, you point
fools in the right direction.
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: January 17, 2006 1:33 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Refreshing values on a form

Hi Arthur the Mighty

That should work. If I requery a listbox and assign it a value:

  Forms(0).lstSome.Value = 2200

it rolls at once to that line. 
If I browse away without selecting another line and then requery, it rolls
to the line with the assigned value.

So something else must be going on ...

/gustav
>>> artful at rogers.com 17-01-2006 18:30 >>>
I have a form in an inherited app that posits two ways to search: a) you can
select from several listboxes, each cascading to the child until finally you
end up with an invoice number; b) if you know the invoice number, you can
select this option and go directly to the invoice.
I enclosed the options in an option frame whose code disables the choice you
didn't make and enables the choice you did make. (i.e. you can then enter
the values for a) or b)). 
This all works, but what I want to happen is that if you choose search
method b) then the listboxes in choice a) all move to the corresponding
locations within the listbox. I am assigning the values correctly, according
to debug.print anyway, but the listboxes are not rotating to the
corresponding items. In my code I assign the values obtained via selection
b) and then requery the listboxes but they do not move to the selected item.
I want the current value to appear topmost on the listbox. What am I doing
wrong or not doing?
TIA,
Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks


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



From shamil at users.mns.ru  Mon Jan 23 18:03:20 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 24 Jan 2006 03:03:20 +0300
Subject: [AccessD] Setting data into and getting data from Named Range	s
References: <002501c6205d$307a0bf0$647aa8c0@ColbyM6805>
Message-ID: <00d901c62079$bc91ef10$0201a8c0@PARIS>

John,

Have a look here is a generic code to get data to ms excel worksheet
from MS Access database and to save data to MS Access db from ms excel
worksheet using disconnected ADO recordsets. This sample uses arrays
because an MS Excel range value is in fact a variant array. It shouldn't
be used with very large source recordsets but as far as I understood you
will not have such recordsets...

Private Const mcstrMdbFullPath As String = _
    "<Your sample mdb fullpath here>"
Private Const mcstrSql As String = _
   "select [CategoryID],[CategoryName],[Description] from [Categories]"
Private Const mcstrDelSql1 As String = _
   "delete * from [Categories1]"
Private Const mcstrSql1 As String = _
   "select [CategoryID],[CategoryName],[Description] from [Categories1]"
'Note: Categories1.CategoryId is assumed to be long integer not
autonumber

Public Sub Tests()
' sample code for MS Excel
Dim xlApp As Excel.Application
Dim wks As Excel.Worksheet
Dim rng As Excel.Range
    Set xlApp = Excel.Application
    Set wks = xlApp.ActiveWorkbook.Worksheets(1)
    Set rng = wks.Cells(2, 2) ' just a top left cell of a test range
    Set rng = GetRowsSample(xlApp, wks, rng)
    SaveRowsSample rng
End Sub

Public Function GetRowsSample( _
   ByRef rxlApp As Excel.Application, _
   ByRef rwks As Excel.Worksheet, _
   ByRef rrng As Excel.Range)
Dim cnn As ADODB.Connection
Dim strCnn As String
Dim rstSrc As ADODB.Recordset
Dim avarSrcValues As Variant
Dim avarSrcValuesT As Variant
Dim rng As Excel.Range

   strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "User ID=Admin;" & _
         "Data Source=" & mcstrMdbFullPath & ";" & _
         "Mode=Share Deny None"
   Set cnn = New ADODB.Connection
   cnn.Open strCnn
   Set rstSrc = New ADODB.Recordset
   rstSrc.Open mcstrSql, cnn, adOpenStatic, adLockOptimistic, adCmdText
   avarSrcValues = rstSrc.GetRows
   rstSrc.Close

   avarSrcValuesT = TransposeMatrixArray(avarSrcValues)
   Set rng = rwks.Range(rrng, _
             rwks.Cells(rrng.Row + UBound(avarSrcValuesT, 1), _
                       rrng.Column + UBound(avarSrcValuesT, 2)))
   rng.Value = avarSrcValuesT
   cnn.Close

   Set GetRowsSample = rng
End Function

Private Function TransposeMatrixArray(ByRef ravar As Variant) As Variant
Dim avar As Variant
Dim lngRowIdx As Long
Dim lngColIdx As Long
   ReDim avar(0 To UBound(ravar, 2), 0 To UBound(ravar, 1))

   For lngColIdx = LBound(ravar, 1) To UBound(ravar, 1)
      For lngRowIdx = LBound(ravar, 2) To UBound(ravar, 2)
         avar(lngRowIdx, lngColIdx) = ravar(lngColIdx, lngRowIdx)
      Next lngRowIdx
   Next lngColIdx

   TransposeMatrixArray = avar
End Function

Public Function SaveRowsSample(ByRef rrng As Excel.Range)
Dim cnn As ADODB.Connection
Dim strCnn As String
Dim rstDst As ADODB.Recordset
Dim lngIdx As Long
Dim lngRowIdx As Long
Dim lngColIdx As Long
Dim avarSrcValues As Variant
Dim avarNames As Variant
Dim avarValues As Variant

   strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "User ID=Admin;" & _
         "Data Source=" & mcstrMdbFullPath & ";" & _
         "Mode=Share Deny None"
   Set cnn = New ADODB.Connection
   cnn.Open strCnn
   cnn.Execute mcstrDelSql1
   Set rstDst = New ADODB.Recordset
   With rstDst
      .CursorLocation = adUseClient
      .Open mcstrSql1, cnn, adOpenStatic, adLockBatchOptimistic,
adCmdText
      Set .ActiveConnection = Nothing
   End With

   avarSrcValues = rrng.Value
   ReDim avarNames(0 To rstDst.Fields.Count - 1)
   ReDim avarValues(0 To rstDst.Fields.Count - 1)

   For lngIdx = 0 To rstDst.Fields.Count - 1
      avarNames(lngIdx) = rstDst.Fields(lngIdx).Name
   Next lngIdx

   For lngRowIdx = 1 To rrng.Rows.Count
        For lngIdx = 0 To rstDst.Fields.Count - 1
           avarValues(lngIdx) = avarSrcValues(lngRowIdx, lngIdx + 1)
        Next lngIdx
        rstDst.AddNew avarNames, avarValues
   Next lngRowIdx

   Set rstDst.ActiveConnection = cnn
   rstDst.UpdateBatch

   rstDst.Close
   cnn.Close
End Function

BTW,  if you'll find your customer wants a lot but doesn't have enough
resources then you may consider to use these 4TOPS Add-ns:

- 4TOPS Excel Link(http://www.4tops.com/excel_link.htm) - to export data
into MS Excel templates and to send these data;
- 4TOPS Excel Import Assistant (http://www.4tops.com/excelimport.htm) -
to import excel worksheets' data into MS Access databases
and even maybe 4TOPS Document Mangement
(http://www.4tops.com/downloaddocumentmanagement.htm).

These are stable software products and they were used in real life large
apps (one of them replaced big Oracle based app).
They are rather generic to fit your current customer tasks but of course
they may have limitations, which will not let you to use them.
And they export data from/import data to normalized databases. Useful
feature and implemented generic way.
They can be used as Add-ins by powerusers and even "weak"users.
They have simple APIs for developers and can be used as library
databases. (One test was to import 3000 MS Excel workbooks with several
worksheets with many source rows in one run - it worked well and it
would work well more - no memory leakage etc. problems - well tested -
and that's is so time consuming activity...)

BTW, when importing data from MS Excel worksheet forms, maybe having
additionally several "subforms", you may consider to create in your
templates special additional "worksheet(s) records reference
templates" - every cell of these templates rows' will have a reference
to the actual value of worksheet form/subform - then you will not need
to use named ranges to get data imported piece by piece (cell by cell -
it's slow) - you will be able to get whole source ranges' values at
once....

etc.

Shamil

----- Original Message ----- 
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Monday, January 23, 2006 11:40 PM
Subject: Re: [AccessD] Setting data into and getting data from Named
Range s


> Jim,
>
> I did, and thanks for the offer.  I think that understanding that it
is the
> range object that actually does the work kind of removed my mental
> roadblocks.  I was thinking that the name object should have abilities
that
> it doesn't have.  I sent an email re "success" to the group.
>
> Again, thanks for the offer.  If I run into any more roadblocks I will
keep
> you in mind.  Kind of the last piece for right now is reading data
back out
> of a named range.  I have code for doing that, though it is kind of
rough
> ATM.
>
> This is for a client who is documenting construction of a hospital.
> Apparently federal law requires that they collect documents for each
and
> every one of certain kinds of systems, paper and electronic, and store
them.
> My client did not understand the size of the job when he got involved,
nor
> when he got me involved.
>
> I am of course building a database to track all of the documents,
request
> them (electronically) from each contractor (via this Request For
Document
> spreadsheet, attached to emails) for each document, then as the
electronic
> documents are returned via attachments to the email I send, strip the
> attachments off and file them in an intricate directory structure out
on the
> hard disk.  There will be literally thousands of documents, perhaps
tens of
> thousands.  6 contractors, 91 systems (though some are "copies", i.e.
7 "Air
> handling units"), and ~150 documents, although all docs are not
required for
> all systems.  My db has to track what has been requested, store
"proof" that
> we did request them (each Excel RFD is saved in the same directory
> structure), track which docs are received back, report which docs are
"owed"
> by which contractors for which systems, and report which system's
documents
> have been completely received.
>
> We are trying to convince all the contractors to work with us in
naming the
> documents to a standard so that as the attachments come in I can parse
the
> doc name to see what system/document it is and "count it as received".
> There are just so many documents that to do this stuff manually would
invite
> chaos.
>
> On top of all that, the requirement is for both paper copies as well
as
> electronic copies, so the db has to track both.  My client has to make
paper
> copies from Electronics where no paper exists, and make electronic
from
> paper where no electronic exist, and get it all entered in the db each
time.
>
> And finally, the main company (Pfizer) in charge of construction, had
the
> unfortunate experience of having their paper copies burned to the
ground one
> time.  As a result I also have to ensure that the electronic copies
get
> automatically written to a local and offsite location, which I will be
doing
> via high speed internet.  I have to track that each electronic
document gets
> written to the back up location as well - a usb hard disk on a
computer
> somewhere out on the internet.  Since the internet can be unavailable,
I
> have to handle that as well, performing the write when the internet
becomes
> available.
>
> The paper in this case will completely fill a single wide trailer when
all
> is said and done, and in fact they have a single wide trailer that
they are
> using to collect the paper.  When they are done they will hook up a
truck
> and haul the paper... Somewhere... Hopefully fireproof.  ;-)
>
> This is where "time and expenses" really takes on meaning!  I quoted
40
> hours to do what my client originally asked for - and DELIVERED that.
Of
> course my client did not understand the scope and so we soldier on.
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
> Sent: Monday, January 23, 2006 1:45 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Setting data into and getting data from Named
Range s
>
> John,
> I sent you an email, did you get it?
> Jim Hale
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From dwaters at usinternet.com  Mon Jan 23 18:16:11 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Mon, 23 Jan 2006 18:16:11 -0600
Subject: [AccessD] Tree View Control
In-Reply-To: <10781989.1138057021966.JavaMail.root@sniper40>
Message-ID: <000901c6207b$6238e580$0200a8c0@danwaters>

You're welcome!  Stuart's suggestion and mine were the same - must be an
Access thing.

If you could talk your client into a drill-right and drill-left scenario,
you'd be there!

Good luck,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Boyd, Mark Thomas
(US - Philadelphia)
Sent: Monday, January 23, 2006 4:54 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

Thanks Dan.  I'm sure that would work great, but I'm really trying to
imitate the "drill-down" and "drill-up" behavior that is similar to the
tree view control.  I want the user to click a "+" control next to the
record, and the child data appears below this record.  If the user
clicks the control again, now a "-" symbol, the child data disappears.

I appreciate the insight, as this solution would work, but the client
would like it displayed a specific way.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: Monday, January 23, 2006 5:43 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Tree View Control

Mark,

Could you put your continuous form into the left side of a subform
control,
then include another form into another subform control on the right side
of
the parent form that would show the detail for the selected record on
the
left side?  Once you've selected the record in your continuous form, I
think
you can pass a recordset as the source for the form on the right.

Ok - that's just a vision I had . . . !

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Boyd, Mark
Thomas
(US - Philadelphia)
Sent: Monday, January 23, 2006 4:25 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

Thanks Stuart.  
I agree, I probably don't want to use the Tree View control.  I'm using
linked forms, but I'd like for the child data to display directly
underneath the parent record on the continuous form.  Placing the child
data in the form footer is a nice concept, but displays too far down on
the form.
Again, what I hope to do is make the data display a certain way.  If
there isn't a clean way of doing it, I have no problem using one of your
suggestions.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Monday, January 23, 2006 5:04 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

On 23 Jan 2006 at 13:59, Boyd, Mark Thomas (US - Phila wrote:

> I have the need to use a Tree View control on a form.
> Basically, I have a continuous form, with a number of records
containing
> Account #'s.  I want the user to be able to click a tree node "+"
button,
> and have detail records for this Account # displayed below. Within
this
> detail data, the user will need to update specific fields (combo boxes
and
> checkboxes).
> 
> Is the Microsoft Tree View control capable of this?  If not, are there
> other controls that have this capability?
> Any sample code would be greatly appreciated.
> 

If you need to update child records, I would not try to use a treeview,
I 
would use linked forms 

Depending on the visual requirements you can do either of the following:

1.
A continuous form (frmsubDetails) in the form_footer of your Accounts
form 
with its parent set to the key field in the main form.

2.
An unbound main form with two sub forms side by side.
A continous subform (frmsubAccounts) on the left which lists all of the 
accounts.
A hidden text box (txtAccountLink) with a control source of 
"=frmSubAccounts.Key"
A continuous subform (frmsubDetails) on the right containing the detail 
records.
Set the Parent Field of frmsubDetails to "txtAccountLink"

In either case, when you click on an Account record, the appropriate 
records will be displayed in frmsubDetails and can be edited.







-- 
Stuart


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


This message (including any attachments) contains confidential
information
intended for a specific individual and purpose, and is protected by law.
If
you are not the intended recipient, you should delete this message. 


Any disclosure, copying, or distribution of this message, or the taking
of
any action based on it, is strictly prohibited. [v.E.1]
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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



From bchacc at san.rr.com  Mon Jan 23 19:14:33 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 23 Jan 2006 17:14:33 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF4C@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF4C@INFOSERVER04.infostat.local>
Message-ID: <43D57F79.9020107@san.rr.com>

Aha!  Thank you.  I thought there was something one could do in the 
query like the running sum trick but a function with a global should do 
nicely.

Thanks again

Rocky


Charlotte Foust wrote:
> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
> Counter to Query Count Records"
>
> Charlotte
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Monday, January 23, 2006 2:12 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Sequence number in query
>
>
> Charlotte:
>
> I came up with no matches on qcntr search.  Do you get any hits on that 
> search? I think I might have been thinking of running sum on a report. 
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> Jim Dettman posted a trick several years ago.  Look up Qcntr in the 
>> archives.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Saturday, January 21, 2006 2:18 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] Sequence number in query
>>
>>
>> Jim:
>>
>> No, it was some clever trick in the QBE that would neatly number the
>> rows retrieved by the query.  I think using -1 for something had 
>> something to do with it but I'm not sure.
>>
>> Rocky
>>
>>
>> Jim Lawrence wrote:
>>   
>>     
>>> Hi Rocky:
>>>
>>> You mean drop a place holder like this?
>>>
>>> SELECT "" AS AddedField1, "" AS AddedField2
>>> FROM MyTable;
>>>
>>> HTH
>>> Jim
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>> Smolin - Beach Access Software
>>> Sent: January 21, 2006 9:32 AM
>>> To: Access Developers discussion and problem solving
>>> Subject: [AccessD] Sequence number in query
>>>
>>> Dear List:
>>>
>>> There is a trick to creating a column in a query with a sequence
>>> number
>>> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall
>>>     
>>>       
>> this?
>>   
>>     
>>> MTIA
>>>
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Mon Jan 23 19:21:25 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 23 Jan 2006 17:21:25 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF4C@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF4C@INFOSERVER04.infostat.local>
Message-ID: <43D58115.5040504@san.rr.com>

Charlotte:

I just tried it - put the function into a module, put Expr1: qcntr(0) in 
the QBE of a query but the function only gets called once so each 
retrieved record has the same value - Cntr.  I was hoping for a sequence 
number.  Am I doing this wrong or is that the way it's supposed to work. 

Rocky


Charlotte Foust wrote:
> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
> Counter to Query Count Records"
>
> Charlotte
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Monday, January 23, 2006 2:12 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Sequence number in query
>
>
> Charlotte:
>
> I came up with no matches on qcntr search.  Do you get any hits on that 
> search? I think I might have been thinking of running sum on a report. 
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> Jim Dettman posted a trick several years ago.  Look up Qcntr in the 
>> archives.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Saturday, January 21, 2006 2:18 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] Sequence number in query
>>
>>
>> Jim:
>>
>> No, it was some clever trick in the QBE that would neatly number the
>> rows retrieved by the query.  I think using -1 for something had 
>> something to do with it but I'm not sure.
>>
>> Rocky
>>
>>
>> Jim Lawrence wrote:
>>   
>>     
>>> Hi Rocky:
>>>
>>> You mean drop a place holder like this?
>>>
>>> SELECT "" AS AddedField1, "" AS AddedField2
>>> FROM MyTable;
>>>
>>> HTH
>>> Jim
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>> Smolin - Beach Access Software
>>> Sent: January 21, 2006 9:32 AM
>>> To: Access Developers discussion and problem solving
>>> Subject: [AccessD] Sequence number in query
>>>
>>> Dear List:
>>>
>>> There is a trick to creating a column in a query with a sequence
>>> number
>>> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall
>>>     
>>>       
>> this?
>>   
>>     
>>> MTIA
>>>
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From cfoust at infostatsystems.com  Mon Jan 23 19:38:20 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 23 Jan 2006 17:38:20 -0800
Subject: [AccessD] Sequence number in query
Message-ID: <F55048AF7E974F429BB24597D7355EEABF4E@INFOSERVER04.infostat.local>

No, you put Qcnt([myField]) in the query and base it on a field that
changes between records, like the PK.  You need to call SetToZero before
you run the query or you'll get an ongoing sequence of numbers.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Monday, January 23, 2006 5:21 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Sequence number in query


Charlotte:

I just tried it - put the function into a module, put Expr1: qcntr(0) in

the QBE of a query but the function only gets called once so each 
retrieved record has the same value - Cntr.  I was hoping for a sequence

number.  Am I doing this wrong or is that the way it's supposed to work.


Rocky


Charlotte Foust wrote:
> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic

> Counter to Query Count Records"
>
> Charlotte
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Monday, January 23, 2006 2:12 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Sequence number in query
>
>
> Charlotte:
>
> I came up with no matches on qcntr search.  Do you get any hits on 
> that
> search? I think I might have been thinking of running sum on a report.

>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> Jim Dettman posted a trick several years ago.  Look up Qcntr in the
>> archives.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>> Smolin
>> - Beach Access Software
>> Sent: Saturday, January 21, 2006 2:18 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] Sequence number in query
>>
>>
>> Jim:
>>
>> No, it was some clever trick in the QBE that would neatly number the 
>> rows retrieved by the query.  I think using -1 for something had 
>> something to do with it but I'm not sure.
>>
>> Rocky
>>
>>
>> Jim Lawrence wrote:
>>   
>>     
>>> Hi Rocky:
>>>
>>> You mean drop a place holder like this?
>>>
>>> SELECT "" AS AddedField1, "" AS AddedField2
>>> FROM MyTable;
>>>
>>> HTH
>>> Jim
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>> Smolin - Beach Access Software
>>> Sent: January 21, 2006 9:32 AM
>>> To: Access Developers discussion and problem solving
>>> Subject: [AccessD] Sequence number in query
>>>
>>> Dear List:
>>>
>>> There is a trick to creating a column in a query with a sequence 
>>> number 1, 2, 3, 4... but I can't remember what it is.  Does anyone 
>>> recall
>>>     
>>>       
>> this?
>>   
>>     
>>> MTIA
>>>
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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


From dw-murphy at cox.net  Mon Jan 23 19:48:35 2006
From: dw-murphy at cox.net (Doug Murphy)
Date: Mon, 23 Jan 2006 17:48:35 -0800
Subject: [AccessD] Outlook automation - use a template for a message
In-Reply-To: <00d901c62079$bc91ef10$0201a8c0@PARIS>
Message-ID: <001f01c62088$4a5344d0$0200a8c0@murphyf3vdfepi>

Folks,

I am trying to set up Access and outlook to send an RTF formatted e-mail and
use a template for the body of the e-mail.  Ultimately there will be many
templates.  I am using automation of Outlook from Access.  The problem I am
having is that the e-mails need to be personalized with the recipients name
in the body of the e-mail.  The kicker here is that the template for the
message has an image at the top, the ultimate users logo.  I can get
everything to work but after all the manipulation is done to insert the name
the logo ends up at the bottom of the message.  I am using the body property
of the message item to find the tag I have in the template to insert the
recipients name.  Any thoughts?

Thanks in advance.

Doug



From artful at rogers.com  Mon Jan 23 20:22:19 2006
From: artful at rogers.com (Arthur Fuller)
Date: Mon, 23 Jan 2006 21:22:19 -0500
Subject: [AccessD] Dynamic Report Headers (Huh?)
In-Reply-To: <BAY113-F6E698077799FA18CDB2C8A1100@phx.gbl>
Message-ID: <029601c6208d$009f3830$8e01a8c0@rock>

Very interesting, Jurgen, as always! I am working on an inherited app in
which a table is constructed to bang out the details of interest, and there
is a bunch of code that I don't really understand that examines what the
current group header is and then makes decisions, banging this or that text
into the group header as the code sees fit. I have never in lots of years
developing in Access approached a problem in this fashion, and to be frank I
have no idea what is going on in this code. It seems to work but I cannot
fathom what is occurring. I have always chosen the path that a query does
the grouping etc., but this approach is totally new to me. I have no idea
what the code is doing, except to say that it walks a recordset (accumulated
from several tables) and then decides what the group header should be. It
makes NO sense to me. I seem to live on another planet. My choice would have
been to create one or more queries that do the groups and then proceed, but
this was not the previous developer's choice, and his code works, so what
can I say except that I have no idea what he is doing. He is walking
recordsets and examining what rs1's value is, then making decisions about
what to print as the group header, then printing the detail rows for that
header, and so on. I have read the code about 110 times and I still don't
get it. I was under the impression that this is why we created
relationships.
Stuff like this is the bane of my life as a developer. I was raised under
the wing that whenever possible, one should construct a query that does what
you intend, and that the last possible resort (necessary now and then
admittedly) is that you construct a strSQL statement on the fly and then run
it... but that is IMO the last possible resort. I HATE going in that
direction. My choice is to create a query (assuming MDB) that invokes as
many static functions (or using JC's method, class-methods) that return the
values of interest. I HATE HATE HATE dynamically constructed SQL statements.
They are hard to read, hard to debug, and take no advantage of the SQL
optimizer. Nuff said.
IMO, this is even more true if the BE is SQL rather than MDB, but in both
cases I think that my argument is correct. Building SQL statements, IMO, is
asinine. I want the statement to live on its own, wanting only a few
arguments. That way I can test the statement without relying on a form or
report to invoke it. I want to create a named query that accepts some
arguments (my choice is statics but c.f. JC for class-based alternatives),
such that any given query can be invoked from the immediate window, supplied
with some arguments, and run to see if it works.
Now, back to your immediate response. Depending on file size, I am
definitely in favour of creating a Results table: gather the data and then
create a stupid flat file report that lists said results. I have no problem
at all with approaching a problem in that fashion. In fact I have benchmarks
that demonstrate that this approach results in much quicker reporting. No
problem at all with that. My argument is against dynamic SQL. I think that
in most cases constructing the SQL statement in Access or any other front
end is foolish. (Admittedly there are a few cases in which it is almost
impossible to fire a stored query or a stored sproc/UDF, but I think that
those cases number a very, very few.)
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of J?rgen Welz
Sent: January 23, 2006 12:50 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Virtual library management database

Ervin:

This is a subject on which opinions will vary along lines of what people 
perceive the priorities are.  A flatter file will generally provide better 
performance and a more normalized one will ordinarilly be be both slower and

more complex to query yet provide greater flexibility.

Generally, it is easier to query if you include general items such as Title 
and Author in a single table that encompasses all categories and types of 
media.  Where a object may not have an attribute  not universal to other 
objects, it makes sense to use an unequal join to such tables to return 
those attributes.  A user search could then return all medai types and all 
relevant attributes on a generic search on a word in the title.  You can 
normalize this as much as necessary by joining tables containing attributes 
of specific media categories.

For example, if you store information about an article in a magazine, your 
base table containing an periodical article name and author could easily be 
queried and be joined to a magazine article table that stores the containing

Magazine information and page references.  This would allow the user to be 
able to include all types of media in a single search.

If you break your tables along media type lines, it would be necessary to 
union your search results across all the tables to provide an encompassing 
search.  Union queries cannot (in versions of Access I am familiar with) 
include memo fields that may be necessary to contain descriptive informaion.

Using a report as output simplifes things in that you can use a sub report 
for each category, each with its own SQL source.  However, my preference is 
to always provide a list output where a user can click on an item and have 
it open the appropriate form that contains all relevant information with 
appropriate joins, perhaps with the foreign keyed data in subforms.  
Although the Union restriction on memo types will not apply in the case of 
search results in a list box, I find it easier to return results from a 
single table and show the media type and allow futher filtering on type of 
media in the list result.

Ciao
J|rgen Welz
Edmonton, Alberta
jwelz at hotmail.com



From artful at rogers.com  Mon Jan 23 20:54:37 2006
From: artful at rogers.com (Arthur Fuller)
Date: Mon, 23 Jan 2006 21:54:37 -0500
Subject: [AccessD] Tree View Control
In-Reply-To: <EB062E528F7B964281EB0F83CFDA3B4334B4EA@usndc0419.us.deloitte.com>
Message-ID: <02a201c62091$83e3d0d0$8e01a8c0@rock>

Thank you to those who pointed you at my previous efforts to solve the
treeview problem, but IMO that code is obsolete and there is a much slicker
way to skin this particular cat. I have not yet written it up formally, but
here is the skinny:
Assuming that you have 3 tables or queries (GrandParent, Parent and Child),
try this:
1. Set up the relationships as above, with Referential Integrity;
2. Create an AutoForm for each table (this to be replaced/enhanced when
you're ready); do this inside out (i.e. start at Child then work your way
out).
3. The Parent form should have an embedded subform which refers to the Child
table itself. Switch this to refer to the form you created for the Child.
4. Do the same on the Grandparent level, switching its subform reference to
the Parent form.
5. Change the default display of the Parent form to Databasheet.
6. Change the default display of the Grandparent form to Datasheet.
7. Run the Grandparent form.
This should result in a treeview. Expanding its nodes should take you to
each sublevel. Each level will appear in DataSheet format, which admittedly
is a problem.
To fix this: 
1. Make each of these forms read-only.
2. Write code for each double-click event on each level that pops open a
form in dialog mode. (i.e. suppose top level is Customers; create a form
Customers_Edit_frm that opens an edit form using the selected CustomerID as
its parameter, allowing no navigation; and so on, down the tree).
You will end up with a much smarter treeview that you might have coded using
the treeview object. Trust me. Been there, done it. It works a treat.
You will end up with a very smart UI that knows which node you just selected
and opens the corresponding form, pointed at the node you just selected, no
matter how many levels deep you choose to go. With almost no code, it will
work just as you dreamed it might.
When I get around to it, I will write this up formally, but in the interim
this ought to be enough to get you there.
I have delivered this UI twice recently, to two different clients, and both
were totally wowed. Why? Not because of my slick code, of which there is
almost none, but because it works exactly like Windows Explorer, Outlook and
a dozen other apps they like. I didn't invent this, I just emulated it.
HTH,
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Boyd, Mark Thomas
(US - Philadelphia)
Sent: January 23, 2006 5:25 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

Thanks Stuart.  
I agree, I probably don't want to use the Tree View control.  I'm using
linked forms, but I'd like for the child data to display directly
underneath the parent record on the continuous form.  Placing the child
data in the form footer is a nice concept, but displays too far down on
the form.
Again, what I hope to do is make the data display a certain way.  If
there isn't a clean way of doing it, I have no problem using one of your
suggestions.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Monday, January 23, 2006 5:04 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

On 23 Jan 2006 at 13:59, Boyd, Mark Thomas (US - Phila wrote:

> I have the need to use a Tree View control on a form.
> Basically, I have a continuous form, with a number of records
containing
> Account #'s.  I want the user to be able to click a tree node "+"
button,
> and have detail records for this Account # displayed below. Within
this
> detail data, the user will need to update specific fields (combo boxes
and
> checkboxes).
> 
> Is the Microsoft Tree View control capable of this?  If not, are there
> other controls that have this capability?
> Any sample code would be greatly appreciated.
> 

If you need to update child records, I would not try to use a treeview,
I 
would use linked forms 

Depending on the visual requirements you can do either of the following:

1.
A continuous form (frmsubDetails) in the form_footer of your Accounts
form 
with its parent set to the key field in the main form.

2.
An unbound main form with two sub forms side by side.
A continous subform (frmsubAccounts) on the left which lists all of the 
accounts.
A hidden text box (txtAccountLink) with a control source of 
"=frmSubAccounts.Key"
A continuous subform (frmsubDetails) on the right containing the detail 
records.
Set the Parent Field of frmsubDetails to "txtAccountLink"

In either case, when you click on an Account record, the appropriate 
records will be displayed in frmsubDetails and can be edited.







-- 
Stuart


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


This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  If
you are not the intended recipient, you should delete this message. 


Any disclosure, copying, or distribution of this message, or the taking of
any action based on it, is strictly prohibited. [v.E.1]
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From artful at rogers.com  Mon Jan 23 20:55:30 2006
From: artful at rogers.com (Arthur Fuller)
Date: Mon, 23 Jan 2006 21:55:30 -0500
Subject: [AccessD] Tree View Control
In-Reply-To: <EB062E528F7B964281EB0F83CFDA3B4334B512@usndc0419.us.deloitte.com>
Message-ID: <02a301c62091$a329f320$8e01a8c0@rock>

See the message I just sent.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Boyd, Mark Thomas
(US - Philadelphia)
Sent: January 23, 2006 5:54 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

Thanks Dan.  I'm sure that would work great, but I'm really trying to
imitate the "drill-down" and "drill-up" behavior that is similar to the
tree view control.  I want the user to click a "+" control next to the
record, and the child data appears below this record.  If the user
clicks the control again, now a "-" symbol, the child data disappears.

I appreciate the insight, as this solution would work, but the client
would like it displayed a specific way.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 



From stuart at lexacorp.com.pg  Mon Jan 23 21:24:13 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 24 Jan 2006 13:24:13 +1000
Subject: [AccessD] Tree View Control
In-Reply-To: <02a201c62091$83e3d0d0$8e01a8c0@rock>
References: <EB062E528F7B964281EB0F83CFDA3B4334B4EA@usndc0419.us.deloitte.com>
Message-ID: <43D62A7D.25982.B28E924@stuart.lexacorp.com.pg>

On 23 Jan 2006 at 21:54, Arthur Fuller wrote:

> Thank you to those who pointed you at my previous efforts to solve the
> treeview problem, but IMO that code is obsolete and there is a much slicker
> way to skin this particular cat. I have not yet written it up formally, but
> here is the skinny:

Sounds like an extension of the subdatasheet demo I knocked up and posted a 
few hours ago :-)

-- 
Stuart




From bchacc at san.rr.com  Mon Jan 23 21:33:43 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 23 Jan 2006 19:33:43 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF4E@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF4E@INFOSERVER04.infostat.local>
Message-ID: <43D5A017.3070807@san.rr.com>

Works!  (Of course, you knew that).  Curiously, it starts numbering at 
2.  If I change

   Cntr = Cntr + 1
   QCntr = Cntr

to
   QCntr = Cntr
   Cntr = Cntr + 1

it starts numbering at 1.

But...whatever works...

Thanks again.

Rocky


Charlotte Foust wrote:
> No, you put Qcnt([myField]) in the query and base it on a field that
> changes between records, like the PK.  You need to call SetToZero before
> you run the query or you'll get an ongoing sequence of numbers.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Monday, January 23, 2006 5:21 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Sequence number in query
>
>
> Charlotte:
>
> I just tried it - put the function into a module, put Expr1: qcntr(0) in
>
> the QBE of a query but the function only gets called once so each 
> retrieved record has the same value - Cntr.  I was hoping for a sequence
>
> number.  Am I doing this wrong or is that the way it's supposed to work.
>
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
>>     
>
>   
>> Counter to Query Count Records"
>>
>> Charlotte
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Monday, January 23, 2006 2:12 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] Sequence number in query
>>
>>
>> Charlotte:
>>
>> I came up with no matches on qcntr search.  Do you get any hits on 
>> that
>> search? I think I might have been thinking of running sum on a report.
>>     
>
>   
>> Rocky
>>
>>
>> Charlotte Foust wrote:
>>   
>>     
>>> Jim Dettman posted a trick several years ago.  Look up Qcntr in the
>>> archives.
>>>
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>> Smolin
>>> - Beach Access Software
>>> Sent: Saturday, January 21, 2006 2:18 PM
>>> To: Access Developers discussion and problem solving
>>> Subject: Re: [AccessD] Sequence number in query
>>>
>>>
>>> Jim:
>>>
>>> No, it was some clever trick in the QBE that would neatly number the 
>>> rows retrieved by the query.  I think using -1 for something had 
>>> something to do with it but I'm not sure.
>>>
>>> Rocky
>>>
>>>
>>> Jim Lawrence wrote:
>>>   
>>>     
>>>       
>>>> Hi Rocky:
>>>>
>>>> You mean drop a place holder like this?
>>>>
>>>> SELECT "" AS AddedField1, "" AS AddedField2
>>>> FROM MyTable;
>>>>
>>>> HTH
>>>> Jim
>>>>
>>>> -----Original Message-----
>>>> From: accessd-bounces at databaseadvisors.com
>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>>> Smolin - Beach Access Software
>>>> Sent: January 21, 2006 9:32 AM
>>>> To: Access Developers discussion and problem solving
>>>> Subject: [AccessD] Sequence number in query
>>>>
>>>> Dear List:
>>>>
>>>> There is a trick to creating a column in a query with a sequence 
>>>> number 1, 2, 3, 4... but I can't remember what it is.  Does anyone 
>>>> recall
>>>>     
>>>>       
>>>>         
>>> this?
>>>   
>>>     
>>>       
>>>> MTIA
>>>>
>>>>   
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From jwelz at hotmail.com  Tue Jan 24 00:28:01 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Mon, 23 Jan 2006 23:28:01 -0700
Subject: [AccessD] Dynamic Report Headers (Huh?)
In-Reply-To: <029601c6208d$009f3830$8e01a8c0@rock>
Message-ID: <BAY113-F18487BDDBD728D6AAC7F11A1130@phx.gbl>

Arthur:

I wasn't suggesting that one dynamically set the SQL of each subreport.  
Each subreport, when it has data, displays the data appropriate to its 
relation to the parent record.  A parent result that cuts across all 
subcategories is what I am advocating.

I recently did a database for a law office and I wound up creating a single 
entity table that held the names of all people and corporate bodies in a 
single table.  After all, a Client could be a corporate body or an 
individual.  The corporate body may be a municpality.  A person who is a 
lawyer, who would have lawyer attributes could also be a client with the 
attributes of a client.  Similarly I had a single address table that 
represented addresses of corporate bodies, law firms, and properties in 
respect of which we were handling transactions such as sales, liens in a law 
suit and places to which mail might be sent by mail or delivered by hand.  
An address may belong to several categories at a single time, but, if I have 
a client's address as a mailing address and he sells the property, I do not 
wish to have to re-enter the address of the property, but merely add the 
related details of legal description, tax assessment and encumbrances.

If I were shooting for raw speed, I could have denormalized by keeping 
addresses with a table of properties and and with a table of entities.  
However, I wanted to be able to enter an address and find out what 
connections the data had to that address no matter what the relationship.  
If you open the address, there is a subform on a tab with which files are 
related to it and a tab with parties related to the address, as husband & 
wife, as lawyer and his lawfirm, legal assistant.

Items related to a file may be clients that include corporate bodies, other 
lawyers, legal assistants, realtors, municipalities, court file information, 
properties, each of which may require particular information in a subform 
for that kind of information.

None of this requires dynamic SQL to fill a form with data, and the same 
applies to subreports.

I am quite content to use dynamic SQL to build search criteria to populate a 
list box.  I also have no problem running 5 or 6 separate queries in 
sequence, appending the results to an array, sorting the array and throwing 
the results into a list box of hits.  If you use the latter approach, it is 
enough to use as many simple paramaterized queries as needed without any 
need for dynamic SQL.  You can select a literal as one of the fields to 
indicate in which category a particular result was returned to provide a 
means to navigate to an appropriate type of form upon click of an item in 
the list.

For example, if I enter 'Edm' as a 'starts with' name criteria, I may get a 
lawyers, municipalities and clients, both corporate and individual, and 
clicking on a particular result should navigate to a form that hold the data 
particular to the appropriate kind of parent record.  I like to allow a 
client to choose which categories are included and excluded in the search 
results list and it is easy enough, using a series of rst.getrows against 
each chosen category to populate an array for sorting and then use a 
callback to fill the list.

In my opinion, searching a library of books and media for results that cut 
across all categories seems a natural for this general kind of approach.  I 
always prefer to show results in a list box to allow quick navigation to 
more information about the data and do not like to wait for a report to open 
and use that screen or printout as the basis for examining a variety of 
potential items of interest.

Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Arthur Fuller" <artful at rogers.com>
>
>Very interesting, Jurgen, as always! I am working on an inherited app in
>which a table is constructed to bang out the details of interest, and there
>is a bunch of code that I don't really understand that examines what the
>current group header is and then makes decisions, banging this or that text
>into the group header as the code sees fit. I have never in lots of years
>developing in Access approached a problem in this fashion, and to be frank 
>I
>have no idea what is going on in this code. It seems to work but I cannot
>fathom what is occurring. I have always chosen the path that a query does
>the grouping etc., but this approach is totally new to me. I have no idea
>what the code is doing, except to say that it walks a recordset 
>(accumulated
>from several tables) and then decides what the group header should be. It
>makes NO sense to me. I seem to live on another planet. My choice would 
>have
>been to create one or more queries that do the groups and then proceed, but
>this was not the previous developer's choice, and his code works, so what
>can I say except that I have no idea what he is doing. He is walking
>recordsets and examining what rs1's value is, then making decisions about
>what to print as the group header, then printing the detail rows for that
>header, and so on. I have read the code about 110 times and I still don't
>get it. I was under the impression that this is why we created
>relationships.
>Stuff like this is the bane of my life as a developer. I was raised under
>the wing that whenever possible, one should construct a query that does 
>what
>you intend, and that the last possible resort (necessary now and then
>admittedly) is that you construct a strSQL statement on the fly and then 
>run
>it... but that is IMO the last possible resort. I HATE going in that
>direction. My choice is to create a query (assuming MDB) that invokes as
>many static functions (or using JC's method, class-methods) that return the
>values of interest. I HATE HATE HATE dynamically constructed SQL 
>statements.
>They are hard to read, hard to debug, and take no advantage of the SQL
>optimizer. Nuff said.
>IMO, this is even more true if the BE is SQL rather than MDB, but in both
>cases I think that my argument is correct. Building SQL statements, IMO, is
>asinine. I want the statement to live on its own, wanting only a few
>arguments. That way I can test the statement without relying on a form or
>report to invoke it. I want to create a named query that accepts some
>arguments (my choice is statics but c.f. JC for class-based alternatives),
>such that any given query can be invoked from the immediate window, 
>supplied
>with some arguments, and run to see if it works.
>Now, back to your immediate response. Depending on file size, I am
>definitely in favour of creating a Results table: gather the data and then
>create a stupid flat file report that lists said results. I have no problem
>at all with approaching a problem in that fashion. In fact I have 
>benchmarks
>that demonstrate that this approach results in much quicker reporting. No
>problem at all with that. My argument is against dynamic SQL. I think that
>in most cases constructing the SQL statement in Access or any other front
>end is foolish. (Admittedly there are a few cases in which it is almost
>impossible to fire a stored query or a stored sproc/UDF, but I think that
>those cases number a very, very few.)
>Arthur
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of J?rgen Welz
>Sent: January 23, 2006 12:50 PM
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] Virtual library management database
>
>Ervin:
>
>This is a subject on which opinions will vary along lines of what people
>perceive the priorities are.  A flatter file will generally provide better
>performance and a more normalized one will ordinarilly be be both slower 
>and
>
>more complex to query yet provide greater flexibility.
>
>Generally, it is easier to query if you include general items such as Title
>and Author in a single table that encompasses all categories and types of
>media.  Where a object may not have an attribute  not universal to other
>objects, it makes sense to use an unequal join to such tables to return
>those attributes.  A user search could then return all medai types and all
>relevant attributes on a generic search on a word in the title.  You can
>normalize this as much as necessary by joining tables containing attributes
>of specific media categories.
>
>For example, if you store information about an article in a magazine, your
>base table containing an periodical article name and author could easily be
>queried and be joined to a magazine article table that stores the 
>containing
>
>Magazine information and page references.  This would allow the user to be
>able to include all types of media in a single search.
>
>If you break your tables along media type lines, it would be necessary to
>union your search results across all the tables to provide an encompassing
>search.  Union queries cannot (in versions of Access I am familiar with)
>include memo fields that may be necessary to contain descriptive 
>informaion.
>
>Using a report as output simplifes things in that you can use a sub report
>for each category, each with its own SQL source.  However, my preference is
>to always provide a list output where a user can click on an item and have
>it open the appropriate form that contains all relevant information with
>appropriate joins, perhaps with the foreign keyed data in subforms.
>Although the Union restriction on memo types will not apply in the case of
>search results in a list box, I find it easier to return results from a
>single table and show the media type and allow futher filtering on type of
>media in the list result.
>
>Ciao
>J|rgen Welz
>Edmonton, Alberta
>jwelz at hotmail.com




From jwelz at hotmail.com  Tue Jan 24 00:28:32 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Mon, 23 Jan 2006 23:28:32 -0700
Subject: [AccessD] Dynamic Report Headers (Huh?)
In-Reply-To: <029601c6208d$009f3830$8e01a8c0@rock>
Message-ID: <BAY113-F7FD1C5F3979120BDF1C08A1130@phx.gbl>

Arthur:

I wasn't suggesting that one dynamically set the SQL of each subreport.  
Each subreport, when it has data, displays the data appropriate to its 
relation to the parent record.  A parent result that cuts across all 
subcategories is what I am advocating.

I recently did a database for a law office and I wound up creating a single 
entity table that held the names of all people and corporate bodies in a 
single table.  After all, a Client could be a corporate body or an 
individual.  The corporate body may be a municpality.  A person who is a 
lawyer, who would have lawyer attributes could also be a client with the 
attributes of a client.  Similarly I had a single address table that 
represented addresses of corporate bodies, law firms, and properties in 
respect of which we were handling transactions such as sales, liens in a law 
suit and places to which mail might be sent by mail or delivered by hand.  
An address may belong to several categories at a single time, but, if I have 
a client's address as a mailing address and he sells the property, I do not 
wish to have to re-enter the address of the property, but merely add the 
related details of legal description, tax assessment and encumbrances.

If I were shooting for raw speed, I could have denormalized by keeping 
addresses with a table of properties and and with a table of entities.  
However, I wanted to be able to enter an address and find out what 
connections the data had to that address no matter what the relationship.  
If you open the address, there is a subform on a tab with which files are 
related to it and a tab with parties related to the address, as husband & 
wife, as lawyer and his lawfirm, legal assistant.

Items related to a file may be clients that include corporate bodies, other 
lawyers, legal assistants, realtors, municipalities, court file information, 
properties, each of which may require particular information in a subform 
for that kind of information.

None of this requires dynamic SQL to fill a form with data, and the same 
applies to subreports.

I am quite content to use dynamic SQL to build search criteria to populate a 
list box.  I also have no problem running 5 or 6 separate queries in 
sequence, appending the results to an array, sorting the array and throwing 
the results into a list box of hits.  If you use the latter approach, it is 
enough to use as many simple paramaterized queries as needed without any 
need for dynamic SQL.  You can select a literal as one of the fields to 
indicate in which category a particular result was returned to provide a 
means to navigate to an appropriate type of form upon click of an item in 
the list.

For example, if I enter 'Edm' as a 'starts with' name criteria, I may get a 
lawyers, municipalities and clients, both corporate and individual, and 
clicking on a particular result should navigate to a form that hold the data 
particular to the appropriate kind of parent record.  I like to allow a 
client to choose which categories are included and excluded in the search 
results list and it is easy enough, using a series of rst.getrows against 
each chosen category to populate an array for sorting and then use a 
callback to fill the list.

In my opinion, searching a library of books and media for results that cut 
across all categories seems a natural for this general kind of approach.  I 
always prefer to show results in a list box to allow quick navigation to 
more information about the data and do not like to wait for a report to open 
and use that screen or printout as the basis for examining a variety of 
potential items of interest.

Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Arthur Fuller" <artful at rogers.com>
>
>Very interesting, Jurgen, as always! I am working on an inherited app in
>which a table is constructed to bang out the details of interest, and there
>is a bunch of code that I don't really understand that examines what the
>current group header is and then makes decisions, banging this or that text
>into the group header as the code sees fit. I have never in lots of years
>developing in Access approached a problem in this fashion, and to be frank 
>I
>have no idea what is going on in this code. It seems to work but I cannot
>fathom what is occurring. I have always chosen the path that a query does
>the grouping etc., but this approach is totally new to me. I have no idea
>what the code is doing, except to say that it walks a recordset 
>(accumulated
>from several tables) and then decides what the group header should be. It
>makes NO sense to me. I seem to live on another planet. My choice would 
>have
>been to create one or more queries that do the groups and then proceed, but
>this was not the previous developer's choice, and his code works, so what
>can I say except that I have no idea what he is doing. He is walking
>recordsets and examining what rs1's value is, then making decisions about
>what to print as the group header, then printing the detail rows for that
>header, and so on. I have read the code about 110 times and I still don't
>get it. I was under the impression that this is why we created
>relationships.
>Stuff like this is the bane of my life as a developer. I was raised under
>the wing that whenever possible, one should construct a query that does 
>what
>you intend, and that the last possible resort (necessary now and then
>admittedly) is that you construct a strSQL statement on the fly and then 
>run
>it... but that is IMO the last possible resort. I HATE going in that
>direction. My choice is to create a query (assuming MDB) that invokes as
>many static functions (or using JC's method, class-methods) that return the
>values of interest. I HATE HATE HATE dynamically constructed SQL 
>statements.
>They are hard to read, hard to debug, and take no advantage of the SQL
>optimizer. Nuff said.
>IMO, this is even more true if the BE is SQL rather than MDB, but in both
>cases I think that my argument is correct. Building SQL statements, IMO, is
>asinine. I want the statement to live on its own, wanting only a few
>arguments. That way I can test the statement without relying on a form or
>report to invoke it. I want to create a named query that accepts some
>arguments (my choice is statics but c.f. JC for class-based alternatives),
>such that any given query can be invoked from the immediate window, 
>supplied
>with some arguments, and run to see if it works.
>Now, back to your immediate response. Depending on file size, I am
>definitely in favour of creating a Results table: gather the data and then
>create a stupid flat file report that lists said results. I have no problem
>at all with approaching a problem in that fashion. In fact I have 
>benchmarks
>that demonstrate that this approach results in much quicker reporting. No
>problem at all with that. My argument is against dynamic SQL. I think that
>in most cases constructing the SQL statement in Access or any other front
>end is foolish. (Admittedly there are a few cases in which it is almost
>impossible to fire a stored query or a stored sproc/UDF, but I think that
>those cases number a very, very few.)
>Arthur
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of J?rgen Welz
>Sent: January 23, 2006 12:50 PM
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] Virtual library management database
>
>Ervin:
>
>This is a subject on which opinions will vary along lines of what people
>perceive the priorities are.  A flatter file will generally provide better
>performance and a more normalized one will ordinarilly be be both slower 
>and
>
>more complex to query yet provide greater flexibility.
>
>Generally, it is easier to query if you include general items such as Title
>and Author in a single table that encompasses all categories and types of
>media.  Where a object may not have an attribute  not universal to other
>objects, it makes sense to use an unequal join to such tables to return
>those attributes.  A user search could then return all medai types and all
>relevant attributes on a generic search on a word in the title.  You can
>normalize this as much as necessary by joining tables containing attributes
>of specific media categories.
>
>For example, if you store information about an article in a magazine, your
>base table containing an periodical article name and author could easily be
>queried and be joined to a magazine article table that stores the 
>containing
>
>Magazine information and page references.  This would allow the user to be
>able to include all types of media in a single search.
>
>If you break your tables along media type lines, it would be necessary to
>union your search results across all the tables to provide an encompassing
>search.  Union queries cannot (in versions of Access I am familiar with)
>include memo fields that may be necessary to contain descriptive 
>informaion.
>
>Using a report as output simplifes things in that you can use a sub report
>for each category, each with its own SQL source.  However, my preference is
>to always provide a list output where a user can click on an item and have
>it open the appropriate form that contains all relevant information with
>appropriate joins, perhaps with the foreign keyed data in subforms.
>Although the Union restriction on memo types will not apply in the case of
>search results in a list box, I find it easier to return results from a
>single table and show the media type and allow futher filtering on type of
>media in the list result.
>
>Ciao
>J|rgen Welz
>Edmonton, Alberta
>jwelz at hotmail.com




From Erwin.Craps at ithelps.be  Tue Jan 24 01:50:48 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Tue, 24 Jan 2006 08:50:48 +0100
Subject: [AccessD] Outlook automation - use a template for a message
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62D9@stekelbes.ithelps.local>

I'm not really sure about what the problem is (language prob).

Anyway I wish to warn you that RTF is no longer supported in Outlook
2003 and posibly 2002.
I know it still is in 2000. 
RTF is quiete pointless when having HTML.
Maybe you should retry your code with HTML first.

I have written some personalized promo newsletter e-mail to, so maybe I
can help you.
Maybe you should post some of the code that is giving you troubles.

Erwin

-----Oorspronkelijk bericht-----
Van: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] Namens Doug Murphy
Verzonden: dinsdag 24 januari 2006 2:49
Aan: 'Access Developers discussion and problem solving'
Onderwerp: [AccessD] Outlook automation - use a template for a message

Folks,

I am trying to set up Access and outlook to send an RTF formatted e-mail
and use a template for the body of the e-mail.  Ultimately there will be
many templates.  I am using automation of Outlook from Access.  The
problem I am having is that the e-mails need to be personalized with the
recipients name in the body of the e-mail.  The kicker here is that the
template for the message has an image at the top, the ultimate users
logo.  I can get everything to work but after all the manipulation is
done to insert the name the logo ends up at the bottom of the message.
I am using the body property of the message item to find the tag I have
in the template to insert the recipients name.  Any thoughts?

Thanks in advance.

Doug

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


From Gustav at cactus.dk  Tue Jan 24 03:59:03 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 24 Jan 2006 10:59:03 +0100
Subject: [AccessD] Refreshing values on a form
Message-ID: <s3d60889.077@cactus.dk>

Hi Arthur

Glad you found out. But I certainly didn't mean to slap you on the side of the head, and I don't think I'ver used the word stupid in relation to our fellow listmembers or their doings. We are all learning, and making a mistake or not knowing isn't the same as being stupid. 
You know that, I'm sure - it's just for the records.

/gustav

>>> artful at rogers.com 24-01-2006 00:47 >>>
I hereby reaffirm that I am King of the Dorks. I was assigning the values to
my lists in the incorrect order. DOH! I think that perhaps a name change to
"Homer" is in order... and I don't mean the Greek. 
Now that I have corrected this stupidity, the code works as originally
intended.
Thanks for the slap on the side of the head, Gustav. As always, you point
fools in the right direction.
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: January 17, 2006 1:33 PM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Refreshing values on a form

Hi Arthur the Mighty

That should work. If I requery a listbox and assign it a value:

  Forms(0).lstSome.Value = 2200

it rolls at once to that line. 
If I browse away without selecting another line and then requery, it rolls
to the line with the assigned value.

So something else must be going on ...

/gustav
>>> artful at rogers.com 17-01-2006 18:30 >>>
I have a form in an inherited app that posits two ways to search: a) you can
select from several listboxes, each cascading to the child until finally you
end up with an invoice number; b) if you know the invoice number, you can
select this option and go directly to the invoice.
I enclosed the options in an option frame whose code disables the choice you
didn't make and enables the choice you did make. (i.e. you can then enter
the values for a) or b)). 
This all works, but what I want to happen is that if you choose search
method b) then the listboxes in choice a) all move to the corresponding
locations within the listbox. I am assigning the values correctly, according
to debug.print anyway, but the listboxes are not rotating to the
corresponding items. In my code I assign the values obtained via selection
b) and then requery the listboxes but they do not move to the selected item.
I want the current value to appear topmost on the listbox. What am I doing
wrong or not doing?
TIA,
Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks




From Gustav at cactus.dk  Tue Jan 24 04:14:20 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 24 Jan 2006 11:14:20 +0100
Subject: [AccessD] Setting data into and getting data from Named	Range	s
Message-ID: <s3d60c15.078@cactus.dk>

Hi Shamil

That's a nice and clean solution with the disconnected dataset. Thanks.

But what is a "large recordset"? Isn't Excel limited to 65536 rows?
Would it be faster to link such a large range as a table in Access? That's what I use but I've never handled recordsets this way with more 100 rows.

/gustav

>>> shamil at users.mns.ru 24-01-2006 01:03 >>>
John,

Have a look here is a generic code to get data to ms excel worksheet
from MS Access database and to save data to MS Access db from ms excel
worksheet using disconnected ADO recordsets. This sample uses arrays
because an MS Excel range value is in fact a variant array. It shouldn't
be used with very large source recordsets but as far as I understood you
will not have such recordsets...




From stuart at lexacorp.com.pg  Tue Jan 24 04:25:07 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 24 Jan 2006 20:25:07 +1000
Subject: [AccessD] Tree View Control
In-Reply-To: <43D5F0DE.22697.A47D321@stuart.lexacorp.com.pg>
References: <EB062E528F7B964281EB0F83CFDA3B4334B512@usndc0419.us.deloitte.com>
Message-ID: <43D68D23.21096.1771770@stuart.lexacorp.com.pg>

On 24 Jan 2006 at 9:18, Stuart McLachlan wrote:

> 
> You probably need a datasheet/subdatasheet view.
> 
> I've just knocked up a quick and dirty demo (A2K) to show how it can work.
> Download it from: http://www.lexacorp.com.pg/Demos/SubDataSheetDemo.zip
> 

Correction:
http://www.lexacorp.com.pg/Demo/SubDataSheetDemo.zip
( no "s" in "Demo")

-- 
Stuart




From Gustav at cactus.dk  Tue Jan 24 04:26:29 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 24 Jan 2006 11:26:29 +0100
Subject: [AccessD] Sequence number in query
Message-ID: <s3d60f0a.079@cactus.dk>

Hi Rocky

It won't work for a select query you display and browse.
Don't know it that is your case.

How many records do you have?
Did you try out "my" SQL only trick? Not invented by me and not very fast but fast enough for small recordset and very reliable. And no reset code needed.

/gustav


>>> bchacc at san.rr.com 24-01-2006 02:14 >>>
Aha!  Thank you.  I thought there was something one could do in the 
query like the running sum trick but a function with a global should do 
nicely.

Thanks again

Rocky


Charlotte Foust wrote:
> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
> Counter to Query Count Records"
>
> Charlotte




From viner at EUnet.yu  Tue Jan 24 07:44:33 2006
From: viner at EUnet.yu (Ervin Brindza)
Date: Tue, 24 Jan 2006 14:44:33 +0100
Subject: [AccessD] Virtual library management database
References: <BAY113-F6E698077799FA18CDB2C8A1100@phx.gbl>
Message-ID: <004e01c620ec$b0cc2f60$0100a8c0@RazvojErvin>

J?rgen,
many thanks for your kind reply. I'll consider your words of wisdom ;-)
Ervin
----- Original Message ----- 
From: "J?rgen Welz" <jwelz at hotmail.com>
To: <accessd at databaseadvisors.com>
Sent: Monday, January 23, 2006 6:50 PM
Subject: Re: [AccessD] Virtual library management database


> Ervin:
>
> This is a subject on which opinions will vary along lines of what people
> perceive the priorities are.  A flatter file will generally provide better
> performance and a more normalized one will ordinarilly be be both slower 
> and
> more complex to query yet provide greater flexibility.
>
> Generally, it is easier to query if you include general items such as 
> Title
> and Author in a single table that encompasses all categories and types of
> media.  Where a object may not have an attribute  not universal to other
> objects, it makes sense to use an unequal join to such tables to return
> those attributes.  A user search could then return all medai types and all
> relevant attributes on a generic search on a word in the title.  You can
> normalize this as much as necessary by joining tables containing 
> attributes
> of specific media categories.
>
> For example, if you store information about an article in a magazine, your
> base table containing an periodical article name and author could easily 
> be
> queried and be joined to a magazine article table that stores the 
> containing
> Magazine information and page references.  This would allow the user to be
> able to include all types of media in a single search.
>
> If you break your tables along media type lines, it would be necessary to
> union your search results across all the tables to provide an encompassing
> search.  Union queries cannot (in versions of Access I am familiar with)
> include memo fields that may be necessary to contain descriptive 
> informaion.
>
> Using a report as output simplifes things in that you can use a sub report
> for each category, each with its own SQL source.  However, my preference 
> is
> to always provide a list output where a user can click on an item and have
> it open the appropriate form that contains all relevant information with
> appropriate joins, perhaps with the foreign keyed data in subforms.
> Although the Union restriction on memo types will not apply in the case of
> search results in a list box, I find it easier to return results from a
> single table and show the media type and allow futher filtering on type of
> media in the list result.
>
> Ciao
> J?rgen Welz
> Edmonton, Alberta
> jwelz at hotmail.com
>
>
>>From: "Ervin Brindza" <viner at EUnet.yu>
>>
>><second attempt>
>>I was asked to do some voluntary work for some community. I need some 
>>ideas
>>in designing a virtual library management database. The database will
>>manage various matherial for amatheur folk dancers, mostly with their home
>>made videos and sound matherial, books, magazines, video tapes, CDs(with
>>many short video films), DVD discs, sound recordings(LP discs, sound
>>casettes etc.) etc.
>>So there are two types of entities: "simple"entity(e.g. books or DVD discs
>>with one film) and "complex" (e.g. magazines with articles of various
>>category, CD or DVD discs with more than one video film). The last entity
>>need a main table in a 1 to many relationship with the "sub" table, but 
>>the
>>first will have nothing on many side, if I put all of them into these two
>>tables.
>>For books and DVD discs are important: Title, Author and Category
>>For video tapes and sound cassettes are important(for each short film):
>>Order No., Name of the film(or song), Lenghth, Category
>>For magazines(for each article): Title, Author and Category
>>The main goal of the system is to search on category, so when the user
>>"ask" the system for e.g. Irish step to get all the book, videos, books,
>>articles in one report.
>>So, my question is: is it clever to put all those various types of 
>>entities
>>into one table(and connected table) or to separate each type of entity 
>>into
>>own table.
>>Many thanks for suggestions,
>>     Ervin
>
>
>


--------------------------------------------------------------------------------


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



From viner at EUnet.yu  Tue Jan 24 07:45:02 2006
From: viner at EUnet.yu (Ervin Brindza)
Date: Tue, 24 Jan 2006 14:45:02 +0100
Subject: [AccessD] Virtual library management database
References: <0b8101c62007$eaf0d730$0100a8c0@RazvojErvin>
	<43D51A11.3000002@shaw.ca>
Message-ID: <004f01c620ec$b31de790$0100a8c0@RazvojErvin>

Marty,
many thanks for sharing that resource!
Ervin
----- Original Message ----- 
From: "MartyConnelly" <martyconnelly at shaw.ca>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Monday, January 23, 2006 7:01 PM
Subject: Re: [AccessD] Virtual library management database


> Have a look at the the data models here
> http://www.databaseanswers.org/data_models/
> This one seperates books by format
> http://www.databaseanswers.org/data_models/bookstore_and_warehouses/index.htm
> I would have each entity into its own table unless there is some
> commonality.
>
> Ervin Brindza wrote:
>
>><second attempt>
>>I was asked to do some voluntary work for some community. I need some 
>>ideas in designing a virtual library management database. The database 
>>will manage various matherial for amatheur folk dancers, mostly with their 
>>home made videos and sound matherial, books, magazines, video tapes, 
>>CDs(with many short video films), DVD discs, sound recordings(LP discs, 
>>sound casettes etc.) etc.
>>So there are two types of entities: "simple"entity(e.g. books or DVD discs 
>>with one film) and "complex" (e.g. magazines with articles of various 
>>category, CD or DVD discs with more than one video film). The last entity 
>>need a main table in a 1 to many relationship with the "sub" table, but 
>>the first will have nothing on many side, if I put all of them into these 
>>two tables.
>>For books and DVD discs are important: Title, Author and Category
>>For video tapes and sound cassettes are important(for each short film): 
>>Order No., Name of the film(or song), Lenghth, Category
>>For magazines(for each article): Title, Author and Category
>>The main goal of the system is to search on category, so when the user 
>>"ask" the system for e.g. Irish step to get all the book, videos, books, 
>>articles in one report.
>>So, my question is: is it clever to put all those various types of 
>>entities into one table(and connected table) or to separate each type of 
>>entity into own table.
>>Many thanks for suggestions,
>>    Ervin
>>
>>
>
> -- 
> Marty Connelly
> Victoria, B.C.
> Canada
>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com 



From bchacc at san.rr.com  Tue Jan 24 08:07:16 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Tue, 24 Jan 2006 06:07:16 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <s3d60f0a.079@cactus.dk>
References: <s3d60f0a.079@cactus.dk>
Message-ID: <43D63494.6090601@san.rr.com>

Gustav:

I'm trying to create a column for the x axis of a graph, so it's for a 
report.  I think I may do what I usually do which is to whip up some 
code to create a temp table rather than trying to make a query do tricks. 

I did use the Qcntr thing and it worked.   Now I've got to start 
fiddling with the chart thingy to see if I can get it to behave. 

This is for a Preventive Maintenance application that I am developing in 
partnership with a guy in Bangalore.  There's not a very big market for 
the application but it's fun trying to do a joint venture at that 
distance with someone you've never met.  I actually don't think that the 
graph will be all that useful but it's part of his design so I'm going 
to do it.  He knows the user's needs. 


Rocky


Gustav Brock wrote:
> Hi Rocky
>
> It won't work for a select query you display and browse.
> Don't know it that is your case.
>
> How many records do you have?
> Did you try out "my" SQL only trick? Not invented by me and not very fast but fast enough for small recordset and very reliable. And no reset code needed.
>
> /gustav
>
>
>   
>>>> bchacc at san.rr.com 24-01-2006 02:14 >>>
>>>>         
> Aha!  Thank you.  I thought there was something one could do in the 
> query like the running sum trick but a function with a global should do 
> nicely.
>
> Thanks again
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
>> Counter to Query Count Records"
>>
>> Charlotte
>>     
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From tinanfields at torchlake.com  Tue Jan 24 10:16:30 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Tue, 24 Jan 2006 11:16:30 -0500
Subject: [AccessD] Refreshing values on a form
References: <s3d60889.077@cactus.dk>
Message-ID: <43D652DE.2030401@torchlake.com>

Gustav - I honor you for that statement!  It is very easy for us to 
confuse our mistakes and our "Swiss cheese" holes in our knowledge with 
stupidity.  Thanks for making the difference crystal clear.
Tina

Gustav Brock wrote:

>Hi Arthur
>
>Glad you found out. But I certainly didn't mean to slap you on the side of the head, and I don't think I'ver used the word stupid in relation to our fellow listmembers or their doings. We are all learning, and making a mistake or not knowing isn't the same as being stupid. 
>You know that, I'm sure - it's just for the records.
>
>/gustav
>
>  
>




From wdhindman at bellsouth.net  Tue Jan 24 10:28:47 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Tue, 24 Jan 2006 11:28:47 -0500
Subject: [AccessD] Image List views
References: <s3d60889.077@cactus.dk> <43D652DE.2030401@torchlake.com>
Message-ID: <000401c62103$41b3d1c0$6101a8c0@JISREGISTRATION.local>

...given an image list on a form, I need to pull the image index and the 
images into a separate user viewable form ...in this particular instance I'm 
looking to populate a treeview switchboard table with the index value from 
the treeview's imagelist of the image I want to associate with a particular 
node.

...any ideas, code, samples, etc.?

William 




From markamatte at hotmail.com  Tue Jan 24 11:28:20 2006
From: markamatte at hotmail.com (Mark A Matte)
Date: Tue, 24 Jan 2006 17:28:20 +0000
Subject: [AccessD] Sequence number in query
In-Reply-To: <43D63494.6090601@san.rr.com>
Message-ID: <BAY114-F25A1AE9CF8FF5368D4F091D2130@phx.gbl>

Rocky,

I can't remember where I got this...but I used it to generate a number 
sequence in a query...the problem was displaying and scrolling through the 
records...but it did work using an append query and saving the results.  I 
did have to reset the counter after each time, but no big deal.  I just 
called the foolowing function from my query:

Option Compare Database
Option Explicit
Global lngTableCounter As Long

Function MyAutoCtr(prmAny)
'Trick is to pass a field from the input table(s) so that function called 
for each record
'otherwise Access thinks that the function will always return the same value 
and
'only calls it once, and every output record gets the same value
MyAutoCtr = lngTableCounter
lngTableCounter = lngTableCounter + 1
End Function

Hope it helps...

Mark A. Matte

>From: Rocky Smolin - Beach Access Software <bchacc at san.rr.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>Subject: Re: [AccessD] Sequence number in query
>Date: Tue, 24 Jan 2006 06:07:16 -0800
>
>Gustav:
>
>I'm trying to create a column for the x axis of a graph, so it's for a
>report.  I think I may do what I usually do which is to whip up some
>code to create a temp table rather than trying to make a query do tricks.
>
>I did use the Qcntr thing and it worked.   Now I've got to start
>fiddling with the chart thingy to see if I can get it to behave.
>
>This is for a Preventive Maintenance application that I am developing in
>partnership with a guy in Bangalore.  There's not a very big market for
>the application but it's fun trying to do a joint venture at that
>distance with someone you've never met.  I actually don't think that the
>graph will be all that useful but it's part of his design so I'm going
>to do it.  He knows the user's needs.
>
>
>Rocky
>
>
>Gustav Brock wrote:
> > Hi Rocky
> >
> > It won't work for a select query you display and browse.
> > Don't know it that is your case.
> >
> > How many records do you have?
> > Did you try out "my" SQL only trick? Not invented by me and not very 
>fast but fast enough for small recordset and very reliable. And no reset 
>code needed.
> >
> > /gustav
> >
> >
> >
> >>>> bchacc at san.rr.com 24-01-2006 02:14 >>>
> >>>>
> > Aha!  Thank you.  I thought there was something one could do in the
> > query like the running sum trick but a function with a global should do
> > nicely.
> >
> > Thanks again
> >
> > Rocky
> >
> >
> > Charlotte Foust wrote:
> >
> >> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
> >> Counter to Query Count Records"
> >>
> >> Charlotte
> >>
> >
> >
> >
>
>--
>Rocky Smolin
>Beach Access Software
>858-259-4334
>www.e-z-mrp.com
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From bchacc at san.rr.com  Tue Jan 24 11:31:07 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Tue, 24 Jan 2006 09:31:07 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <43D6645B.9070104@san.rr.com>



Dear List:

A guy in India with whom I'm developing a preventive maintenance app is 
using A4 paper.  The report I sent him apparently doesn't print the 
whole footer unless he changes the printer.  He writes:

"The problem still persisted of the report saying only "page no 1 of " 
and not showing the total no of pages and of the second page being a 
blank, but third page showing the second page (all this only in the mtce 
sch. report). I have found the cause. I found that the page set up was 
landscape and letter size. I changed the letter size to A4 and 
everything became ok! But I am not able to make it permanent - when I 
ask for the report the next time, the same problem. I had to again reset 
the page size. How do I make it stick?"

But the other reports in the system apparently work OK.  The File-->Page 
Setup parameters are the as the other reports - default printer is 
checked - except this one is landscape.  Any ideas?

MTIA

Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com


----- Original Message -----

    *From:* Rocky Smolin - Beach Access Software <mailto:bchacc at san.rr.com>
    *To:* R Ramamurthy <mailto:rram22 at dataone.in>
    *Sent:* Saturday, January 21, 2006 8:57 PM
    *Subject:* Re: PM?

    Ram:

    The graph can be done but it's not real easy in Access.  On the X
    axis you would also lose visibility of what machines were creating
    the scores on the Y axis.  The X axis would just be a sequence
    number.  Wouldn't seeing the list of machines with description be
    more helpful.  >From an information standpoint the graph will only
    show the user that the scores of the machines run from m to n.  So
    they will be picking an arbitrary point between the lowest and
    highest value without much visibility over the nature of the
    equipment that's being included and excluded.

    I will do a bit of research to see if there's a graphing control I
    can find so I don't have to reinvent the wheel.  Then maybe put an
    button on the form to let the user choose tabular of graphic format.

    Requiring administrator access to change the cutoff point is easy. 
    I'll attend to that.  What's the next step?

    Best,

    Rocky

     


-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com


-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Tue Jan 24 11:33:18 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Tue, 24 Jan 2006 09:33:18 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <BAY114-F25A1AE9CF8FF5368D4F091D2130@phx.gbl>
References: <BAY114-F25A1AE9CF8FF5368D4F091D2130@phx.gbl>
Message-ID: <43D664DE.2030308@san.rr.com>

Mark:

Thanks.  Similar to the routine in the link Charlotte posted.  Guess 
that's the best way to do it.

Best,

Rocky


Mark A Matte wrote:
> Rocky,
>
> I can't remember where I got this...but I used it to generate a number 
> sequence in a query...the problem was displaying and scrolling through the 
> records...but it did work using an append query and saving the results.  I 
> did have to reset the counter after each time, but no big deal.  I just 
> called the foolowing function from my query:
>
> Option Compare Database
> Option Explicit
> Global lngTableCounter As Long
>
> Function MyAutoCtr(prmAny)
> 'Trick is to pass a field from the input table(s) so that function called 
> for each record
> 'otherwise Access thinks that the function will always return the same value 
> and
> 'only calls it once, and every output record gets the same value
> MyAutoCtr = lngTableCounter
> lngTableCounter = lngTableCounter + 1
> End Function
>
> Hope it helps...
>
> Mark A. Matte
>
>   
>> From: Rocky Smolin - Beach Access Software <bchacc at san.rr.com>
>> Reply-To: Access Developers discussion and problem 
>> solving<accessd at databaseadvisors.com>
>> To: Access Developers discussion and problem 
>> solving<accessd at databaseadvisors.com>
>> Subject: Re: [AccessD] Sequence number in query
>> Date: Tue, 24 Jan 2006 06:07:16 -0800
>>
>> Gustav:
>>
>> I'm trying to create a column for the x axis of a graph, so it's for a
>> report.  I think I may do what I usually do which is to whip up some
>> code to create a temp table rather than trying to make a query do tricks.
>>
>> I did use the Qcntr thing and it worked.   Now I've got to start
>> fiddling with the chart thingy to see if I can get it to behave.
>>
>> This is for a Preventive Maintenance application that I am developing in
>> partnership with a guy in Bangalore.  There's not a very big market for
>> the application but it's fun trying to do a joint venture at that
>> distance with someone you've never met.  I actually don't think that the
>> graph will be all that useful but it's part of his design so I'm going
>> to do it.  He knows the user's needs.
>>
>>
>> Rocky
>>
>>
>> Gustav Brock wrote:
>>     
>>> Hi Rocky
>>>
>>> It won't work for a select query you display and browse.
>>> Don't know it that is your case.
>>>
>>> How many records do you have?
>>> Did you try out "my" SQL only trick? Not invented by me and not very 
>>>       
>> fast but fast enough for small recordset and very reliable. And no reset 
>> code needed.
>>     
>>> /gustav
>>>
>>>
>>>
>>>       
>>>>>> bchacc at san.rr.com 24-01-2006 02:14 >>>
>>>>>>
>>>>>>             
>>> Aha!  Thank you.  I thought there was something one could do in the
>>> query like the running sum trick but a function with a global should do
>>> nicely.
>>>
>>> Thanks again
>>>
>>> Rocky
>>>
>>>
>>> Charlotte Foust wrote:
>>>
>>>       
>>>> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
>>>> Counter to Query Count Records"
>>>>
>>>> Charlotte
>>>>
>>>>         
>>>
>>>       
>> --
>> Rocky Smolin
>> Beach Access Software
>> 858-259-4334
>> www.e-z-mrp.com
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>     
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From shamil at users.mns.ru  Tue Jan 24 11:36:28 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 24 Jan 2006 20:36:28 +0300
Subject: [AccessD] Setting data into and getting data from Named	Range	s
References: <s3d60c15.078@cactus.dk>
Message-ID: <001d01c6210c$b76e6f70$0201a8c0@PARIS>

Hi Gustav,

Yes, MS Excel worksheet is limited to have 65536 rows and 256 columns
AFAIK...

"large recordset" is a relative term - it all depends of course - it
should be small enough to fit a certain application reqirements for
processing speed - for one application it can be 10 rows, for another -
10000 rows....

As for linking MS Excel worksheet range as an MS Access table - as far
as I understood the main question/task to solve of this thread was to
NOT use linked MS Excel worksheets because of licensing troubles...

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, January 24, 2006 1:14 PM
Subject: Re: [AccessD] Setting data into and getting data from Named
Range s


> Hi Shamil
>
> That's a nice and clean solution with the disconnected dataset.
Thanks.
>
> But what is a "large recordset"? Isn't Excel limited to 65536 rows?
> Would it be faster to link such a large range as a table in Access?
That's what I use but I've never handled recordsets this way with more
100 rows.
>
> /gustav
>
> >>> shamil at users.mns.ru 24-01-2006 01:03 >>>
> John,
>
> Have a look here is a generic code to get data to ms excel worksheet
> from MS Access database and to save data to MS Access db from ms excel
> worksheet using disconnected ADO recordsets. This sample uses arrays
> because an MS Excel range value is in fact a variant array. It
shouldn't
> be used with very large source recordsets but as far as I understood
you
> will not have such recordsets...
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From cfoust at infostatsystems.com  Tue Jan 24 12:13:20 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 24 Jan 2006 10:13:20 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <F55048AF7E974F429BB24597D7355EEABF4F@INFOSERVER04.infostat.local>

Rocky,

What kind of code are you using to set the paper size?  There are
actually papersize constants you can use to make it easier.  We use
these in our Access apps to make the code easier to read:  

Public Const PAPER_LETTER As Integer = 1
Public Const PAPER_A4 As Integer = 9
Public Const PAPER_LEGAL As Integer = 5

If you check the Access.Printer class, you'll get a list of the built in
constants for AcPrintPaperSize, including acPRPSA4, acPRPSLetter, and
acPRPSLegal, which have the same values as we use (our code was built
before the Printer object became part of Access).  Whichever you use,
it's what you have to pass to the printer to get the setting right.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Tuesday, January 24, 2006 9:31 AM
To: access Developers discussion and problem solving
Subject: [AccessD] [Fwd: Default Page Size]




Dear List:

A guy in India with whom I'm developing a preventive maintenance app is 
using A4 paper.  The report I sent him apparently doesn't print the 
whole footer unless he changes the printer.  He writes:

"The problem still persisted of the report saying only "page no 1 of " 
and not showing the total no of pages and of the second page being a 
blank, but third page showing the second page (all this only in the mtce

sch. report). I have found the cause. I found that the page set up was 
landscape and letter size. I changed the letter size to A4 and 
everything became ok! But I am not able to make it permanent - when I 
ask for the report the next time, the same problem. I had to again reset

the page size. How do I make it stick?"

But the other reports in the system apparently work OK.  The File-->Page

Setup parameters are the as the other reports - default printer is 
checked - except this one is landscape.  Any ideas?

MTIA

Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com


----- Original Message -----

    *From:* Rocky Smolin - Beach Access Software
<mailto:bchacc at san.rr.com>
    *To:* R Ramamurthy <mailto:rram22 at dataone.in>
    *Sent:* Saturday, January 21, 2006 8:57 PM
    *Subject:* Re: PM?

    Ram:

    The graph can be done but it's not real easy in Access.  On the X
    axis you would also lose visibility of what machines were creating
    the scores on the Y axis.  The X axis would just be a sequence
    number.  Wouldn't seeing the list of machines with description be
    more helpful.  >From an information standpoint the graph will only
    show the user that the scores of the machines run from m to n.  So
    they will be picking an arbitrary point between the lowest and
    highest value without much visibility over the nature of the
    equipment that's being included and excluded.

    I will do a bit of research to see if there's a graphing control I
    can find so I don't have to reinvent the wheel.  Then maybe put an
    button on the form to let the user choose tabular of graphic format.

    Requiring administrator access to change the cutoff point is easy. 
    I'll attend to that.  What's the next step?

    Best,

    Rocky

     


-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com


-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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


From lembit.dbamail at t-online.de  Tue Jan 24 12:16:14 2006
From: lembit.dbamail at t-online.de (Lembit Soobik)
Date: Tue, 24 Jan 2006 19:16:14 +0100
Subject: [AccessD] [Fwd: Default Page Size]
References: <43D6645B.9070104@san.rr.com>
Message-ID: <000601c62112$438b2c00$1400a8c0@v1000>

Rocky,
dont use default printer.

Lembit

----- Original Message ----- 
From: "Rocky Smolin - Beach Access Software" <bchacc at san.rr.com>
To: "access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Tuesday, January 24, 2006 6:31 PM
Subject: [AccessD] [Fwd: Default Page Size]


>
>
> Dear List:
>
> A guy in India with whom I'm developing a preventive maintenance app is
> using A4 paper.  The report I sent him apparently doesn't print the
> whole footer unless he changes the printer.  He writes:
>
> "The problem still persisted of the report saying only "page no 1 of "
> and not showing the total no of pages and of the second page being a
> blank, but third page showing the second page (all this only in the mtce
> sch. report). I have found the cause. I found that the page set up was
> landscape and letter size. I changed the letter size to A4 and
> everything became ok! But I am not able to make it permanent - when I
> ask for the report the next time, the same problem. I had to again reset
> the page size. How do I make it stick?"
>
> But the other reports in the system apparently work OK.  The File-->Page
> Setup parameters are the as the other reports - default printer is
> checked - except this one is landscape.  Any ideas?
>
> MTIA
>
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
>
> ----- Original Message -----
>
>    *From:* Rocky Smolin - Beach Access Software <mailto:bchacc at san.rr.com>
>    *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>    *Sent:* Saturday, January 21, 2006 8:57 PM
>    *Subject:* Re: PM?
>
>    Ram:
>
>    The graph can be done but it's not real easy in Access.  On the X
>    axis you would also lose visibility of what machines were creating
>    the scores on the Y axis.  The X axis would just be a sequence
>    number.  Wouldn't seeing the list of machines with description be
>    more helpful.  >From an information standpoint the graph will only
>    show the user that the scores of the machines run from m to n.  So
>    they will be picking an arbitrary point between the lowest and
>    highest value without much visibility over the nature of the
>    equipment that's being included and excluded.
>
>    I will do a bit of research to see if there's a graphing control I
>    can find so I don't have to reinvent the wheel.  Then maybe put an
>    button on the form to let the user choose tabular of graphic format.
>
>    Requiring administrator access to change the cutoff point is easy.
>    I'll attend to that.  What's the next step?
>
>    Best,
>
>    Rocky
>
>
>
>
> -- 
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
>
> -- 
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
> -- 
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.375 / Virus Database: 267.14.22/238 - Release Date: 
> 23.01.2006
>
> 



From dw-murphy at cox.net  Tue Jan 24 12:23:26 2006
From: dw-murphy at cox.net (Doug Murphy)
Date: Tue, 24 Jan 2006 10:23:26 -0800
Subject: [AccessD] Outlook automation - use a template for a message
In-Reply-To: <46B976F2B698FF46A4FE7636509B22DF1B62D9@stekelbes.ithelps.local>
Message-ID: <001601c62113$44c675b0$0200a8c0@murphyf3vdfepi>

Hello Erwin,

I was not aware of RTF being dropped.  I thought there was some pretty stiff
resistance to using html formated e-mail.  I tried a quick test using a
simple html document and sendobject but the page just came through as text
with the html tags in it.  How do you automate sending of html formated
e-mail?  I'd like for the client to be able to see the message in Outlook
before it is sent so they can personalize it.

The test I did with using automation used the following code.  As I said the
formating of the text stayed as it should but the logo image that started
out at the top of the template ended up at the bottom of the e-mail.  Any
suggestions?

Private Sub cmdSend_Click()
Dim oOut As Outlook.Application
Dim Item As MailItem

   On Error GoTo cmdSend_Click_Error
    
    Set oOut = New Outlook.Application
    Set Item = oOut.CreateItemFromTemplate("C:\Documents and
Settings\Doug\Application Data\Microsoft\Templates\SampleVideo2.oft")
    With Item
        .To = "dw-murphy at cox.net"
        .Subject = "New Video"

        .Body = Replace(.Body, "<NAME>", Nz(Me.txtName, ""))
        .Body = Replace(.Body, "<DATE>", Date)
        .Body = Replace(.Body, "<ADDRESS>", Nz(Me.txtStreet, ""))
        .Body = Replace(.Body, "<CITY_STATE_ZIP>", Nz(Me.txtCSZ, ""))
        .Body = Replace(.Body, "<FIRSTNAME>", Nz(Me.txtFirst, ""))
        .Send
    End With

cmdSend_Click_Exit:
   On Error GoTo 0
    Set Item = Nothing
    Set oOut = Nothing
   Exit Sub

Doug



From Gustav at cactus.dk  Tue Jan 24 12:32:49 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 24 Jan 2006 19:32:49 +0100
Subject: [AccessD] Setting data into and getting data from	Named	Range	s
Message-ID: <s3d68102.003@cactus.dk>

Hi Shamil

Well, I just wondered .. 65K records isn't much for ADO and Access.

Yes, to avoid linking is the goal as the servicepacks blocks update and append.
However, reading is still possible and if that is, say, 10 fold faster than reading a range from Excel with your class it could be considered an option to mix the two techniques. I have no idea .. perhaps it is the other way around: For reading, your class is faster than linking??

/gustav

>>> shamil at users.mns.ru 24-01-2006 18:36:28 >>>
Hi Gustav,

Yes, MS Excel worksheet is limited to have 65536 rows and 256 columns
AFAIK...

"large recordset" is a relative term - it all depends of course - it
should be small enough to fit a certain application reqirements for
processing speed - for one application it can be 10 rows, for another -
10000 rows....

As for linking MS Excel worksheet range as an MS Access table - as far
as I understood the main question/task to solve of this thread was to
NOT use linked MS Excel worksheets because of licensing troubles...

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, January 24, 2006 1:14 PM
Subject: Re: [AccessD] Setting data into and getting data from Named
Range s


> Hi Shamil
>
> That's a nice and clean solution with the disconnected dataset.
Thanks.
>
> But what is a "large recordset"? Isn't Excel limited to 65536 rows?
> Would it be faster to link such a large range as a table in Access?
That's what I use but I've never handled recordsets this way with more
100 rows.
>
> /gustav
>
> >>> shamil at users.mns.ru 24-01-2006 01:03 >>>
> John,
>
> Have a look here is a generic code to get data to ms excel worksheet
> from MS Access database and to save data to MS Access db from ms excel
> worksheet using disconnected ADO recordsets. This sample uses arrays
> because an MS Excel range value is in fact a variant array. It
shouldn't
> be used with very large source recordsets but as far as I understood
you
> will not have such recordsets...




From bchacc at san.rr.com  Tue Jan 24 12:43:37 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Tue, 24 Jan 2006 10:43:37 -0800
Subject: [AccessD] [Fwd: Default Page Size]
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF4F@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF4F@INFOSERVER04.infostat.local>
Message-ID: <43D67559.1000207@san.rr.com>

Charlotte:

I'm not using any code.  I just use default printer.  This app could be 
running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to tie the 
app to one size or another.  Apparently I'm going to have to put in some 
kind of preference for the user to select their paper size then?

Rocky


Charlotte Foust wrote:
> Rocky,
>
> What kind of code are you using to set the paper size?  There are
> actually papersize constants you can use to make it easier.  We use
> these in our Access apps to make the code easier to read:  
>
> Public Const PAPER_LETTER As Integer = 1
> Public Const PAPER_A4 As Integer = 9
> Public Const PAPER_LEGAL As Integer = 5
>
> If you check the Access.Printer class, you'll get a list of the built in
> constants for AcPrintPaperSize, including acPRPSA4, acPRPSLetter, and
> acPRPSLegal, which have the same values as we use (our code was built
> before the Printer object became part of Access).  Whichever you use,
> it's what you have to pass to the printer to get the setting right.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Tuesday, January 24, 2006 9:31 AM
> To: access Developers discussion and problem solving
> Subject: [AccessD] [Fwd: Default Page Size]
>
>
>
>
> Dear List:
>
> A guy in India with whom I'm developing a preventive maintenance app is 
> using A4 paper.  The report I sent him apparently doesn't print the 
> whole footer unless he changes the printer.  He writes:
>
> "The problem still persisted of the report saying only "page no 1 of " 
> and not showing the total no of pages and of the second page being a 
> blank, but third page showing the second page (all this only in the mtce
>
> sch. report). I have found the cause. I found that the page set up was 
> landscape and letter size. I changed the letter size to A4 and 
> everything became ok! But I am not able to make it permanent - when I 
> ask for the report the next time, the same problem. I had to again reset
>
> the page size. How do I make it stick?"
>
> But the other reports in the system apparently work OK.  The File-->Page
>
> Setup parameters are the as the other reports - default printer is 
> checked - except this one is landscape.  Any ideas?
>
> MTIA
>
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
>
> ----- Original Message -----
>
>     *From:* Rocky Smolin - Beach Access Software
> <mailto:bchacc at san.rr.com>
>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>     *Sent:* Saturday, January 21, 2006 8:57 PM
>     *Subject:* Re: PM?
>
>     Ram:
>
>     The graph can be done but it's not real easy in Access.  On the X
>     axis you would also lose visibility of what machines were creating
>     the scores on the Y axis.  The X axis would just be a sequence
>     number.  Wouldn't seeing the list of machines with description be
>     more helpful.  >From an information standpoint the graph will only
>     show the user that the scores of the machines run from m to n.  So
>     they will be picking an arbitrary point between the lowest and
>     highest value without much visibility over the nature of the
>     equipment that's being included and excluded.
>
>     I will do a bit of research to see if there's a graphing control I
>     can find so I don't have to reinvent the wheel.  Then maybe put an
>     button on the form to let the user choose tabular of graphic format.
>
>     Requiring administrator access to change the cutoff point is easy. 
>     I'll attend to that.  What's the next step?
>
>     Best,
>
>     Rocky
>
>      
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From cfoust at infostatsystems.com  Tue Jan 24 12:54:01 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 24 Jan 2006 10:54:01 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <F55048AF7E974F429BB24597D7355EEABF50@INFOSERVER04.infostat.local>

We format most of our reports to fit either now, which means we use
paper length and A4 width when designing the report.  If you use default
printer, that's your only choice.  Otherwise, yes, you'd have to allow
them to specify the paper size and you'd have to create some specially
formatted A4 reports if they needed the longer paper length.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Tuesday, January 24, 2006 10:44 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] [Fwd: Default Page Size]


Charlotte:

I'm not using any code.  I just use default printer.  This app could be 
running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to tie the

app to one size or another.  Apparently I'm going to have to put in some

kind of preference for the user to select their paper size then?

Rocky


Charlotte Foust wrote:
> Rocky,
>
> What kind of code are you using to set the paper size?  There are 
> actually papersize constants you can use to make it easier.  We use 
> these in our Access apps to make the code easier to read:
>
> Public Const PAPER_LETTER As Integer = 1
> Public Const PAPER_A4 As Integer = 9
> Public Const PAPER_LEGAL As Integer = 5
>
> If you check the Access.Printer class, you'll get a list of the built 
> in constants for AcPrintPaperSize, including acPRPSA4, acPRPSLetter, 
> and acPRPSLegal, which have the same values as we use (our code was 
> built before the Printer object became part of Access).  Whichever you

> use, it's what you have to pass to the printer to get the setting 
> right.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Tuesday, January 24, 2006 9:31 AM
> To: access Developers discussion and problem solving
> Subject: [AccessD] [Fwd: Default Page Size]
>
>
>
>
> Dear List:
>
> A guy in India with whom I'm developing a preventive maintenance app 
> is
> using A4 paper.  The report I sent him apparently doesn't print the 
> whole footer unless he changes the printer.  He writes:
>
> "The problem still persisted of the report saying only "page no 1 of "
> and not showing the total no of pages and of the second page being a 
> blank, but third page showing the second page (all this only in the
mtce
>
> sch. report). I have found the cause. I found that the page set up was
> landscape and letter size. I changed the letter size to A4 and 
> everything became ok! But I am not able to make it permanent - when I 
> ask for the report the next time, the same problem. I had to again
reset
>
> the page size. How do I make it stick?"
>
> But the other reports in the system apparently work OK.  The 
> File-->Page
>
> Setup parameters are the as the other reports - default printer is
> checked - except this one is landscape.  Any ideas?
>
> MTIA
>
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
>
> ----- Original Message -----
>
>     *From:* Rocky Smolin - Beach Access Software 
> <mailto:bchacc at san.rr.com>
>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>     *Sent:* Saturday, January 21, 2006 8:57 PM
>     *Subject:* Re: PM?
>
>     Ram:
>
>     The graph can be done but it's not real easy in Access.  On the X
>     axis you would also lose visibility of what machines were creating
>     the scores on the Y axis.  The X axis would just be a sequence
>     number.  Wouldn't seeing the list of machines with description be
>     more helpful.  >From an information standpoint the graph will only
>     show the user that the scores of the machines run from m to n.  So
>     they will be picking an arbitrary point between the lowest and
>     highest value without much visibility over the nature of the
>     equipment that's being included and excluded.
>
>     I will do a bit of research to see if there's a graphing control I
>     can find so I don't have to reinvent the wheel.  Then maybe put an
>     button on the form to let the user choose tabular of graphic 
> format.
>
>     Requiring administrator access to change the cutoff point is easy.

>     I'll attend to that.  What's the next step?
>
>     Best,
>
>     Rocky
>
>      
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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


From shamil at users.mns.ru  Tue Jan 24 13:12:17 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 24 Jan 2006 22:12:17 +0300
Subject: [AccessD] Setting data into and getting data from	Named	Range	s
References: <s3d68102.003@cactus.dk>
Message-ID: <000801c6211a$198a05e0$0201a8c0@PARIS>

Gustav,

My guess is that linking an MS Excel range and then reading it row by
row will be slower than getting whole range into array at once.

Another question is what is more suitable for a certain task:

- flexibility of reading MS Excel worksheet's range data using DAO/ADO
recordsets or
- speed of getting all the data of an MS Excel range into an in memory
array?

Of course for small data sets MS Excel instance start-up and workbook
opening will "eat" all the gains of getting MS Excel range into in
memory array...

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, January 24, 2006 9:32 PM
Subject: Re: [AccessD] Setting data into and getting data from Named
Range s


> Hi Shamil
>
> Well, I just wondered .. 65K records isn't much for ADO and Access.
>
> Yes, to avoid linking is the goal as the servicepacks blocks update
and append.
> However, reading is still possible and if that is, say, 10 fold faster
than reading a range from Excel with your class it could be considered
an option to mix the two techniques. I have no idea .. perhaps it is the
other way around: For reading, your class is faster than linking??
>
> /gustav
>
> >>> shamil at users.mns.ru 24-01-2006 18:36:28 >>>
> Hi Gustav,
>
> Yes, MS Excel worksheet is limited to have 65536 rows and 256 columns
> AFAIK...
>
> "large recordset" is a relative term - it all depends of course - it
> should be small enough to fit a certain application reqirements for
> processing speed - for one application it can be 10 rows, for
another -
> 10000 rows....
>
> As for linking MS Excel worksheet range as an MS Access table - as far
> as I understood the main question/task to solve of this thread was to
> NOT use linked MS Excel worksheets because of licensing troubles...
>
> Shamil
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Tuesday, January 24, 2006 1:14 PM
> Subject: Re: [AccessD] Setting data into and getting data from Named
> Range s
>
>
> > Hi Shamil
> >
> > That's a nice and clean solution with the disconnected dataset.
> Thanks.
> >
> > But what is a "large recordset"? Isn't Excel limited to 65536 rows?
> > Would it be faster to link such a large range as a table in Access?
> That's what I use but I've never handled recordsets this way with more
> 100 rows.
> >
> > /gustav
> >
> > >>> shamil at users.mns.ru 24-01-2006 01:03 >>>
> > John,
> >
> > Have a look here is a generic code to get data to ms excel worksheet
> > from MS Access database and to save data to MS Access db from ms
excel
> > worksheet using disconnected ADO recordsets. This sample uses arrays
> > because an MS Excel range value is in fact a variant array. It
> shouldn't
> > be used with very large source recordsets but as far as I understood
> you
> > will not have such recordsets...
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Tue Jan 24 13:47:21 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 24 Jan 2006 20:47:21 +0100
Subject: [AccessD] Setting data into and getting data	from	Named	Range	s
Message-ID: <s3d69266.006@cactus.dk>

Hi Shamil

If I should guess your class is more suitable.
As I see it, it also overcomes the trouble when linking an Excel range containing varying or unknown data where the isam driver tries to guess for each column if it will contain text or numeric data. When you read the range directly to an array, you can do all sorts of validation before writing the array or use Variant datatype and validate after.

/gustav

>>> shamil at users.mns.ru 24-01-2006 20:12:17 >>>
Gustav,

My guess is that linking an MS Excel range and then reading it row by
row will be slower than getting whole range into array at once.

Another question is what is more suitable for a certain task:

- flexibility of reading MS Excel worksheet's range data using DAO/ADO
recordsets or
- speed of getting all the data of an MS Excel range into an in memory
array?

Of course for small data sets MS Excel instance start-up and workbook
opening will "eat" all the gains of getting MS Excel range into in
memory array...

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, January 24, 2006 9:32 PM
Subject: Re: [AccessD] Setting data into and getting data from Named
Range s


> Hi Shamil
>
> Well, I just wondered .. 65K records isn't much for ADO and Access.
>
> Yes, to avoid linking is the goal as the servicepacks blocks update
and append.
> However, reading is still possible and if that is, say, 10 fold faster
than reading a range from Excel with your class it could be considered
an option to mix the two techniques. I have no idea .. perhaps it is the
other way around: For reading, your class is faster than linking??
>
> /gustav
>
> >>> shamil at users.mns.ru 24-01-2006 18:36:28 >>>
> Hi Gustav,
>
> Yes, MS Excel worksheet is limited to have 65536 rows and 256 columns
> AFAIK...
>
> "large recordset" is a relative term - it all depends of course - it
> should be small enough to fit a certain application reqirements for
> processing speed - for one application it can be 10 rows, for
another -
> 10000 rows....
>
> As for linking MS Excel worksheet range as an MS Access table - as far
> as I understood the main question/task to solve of this thread was to
> NOT use linked MS Excel worksheets because of licensing troubles...
>
> Shamil
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Tuesday, January 24, 2006 1:14 PM
> Subject: Re: [AccessD] Setting data into and getting data from Named
> Range s
>
>
> > Hi Shamil
> >
> > That's a nice and clean solution with the disconnected dataset.
> Thanks.
> >
> > But what is a "large recordset"? Isn't Excel limited to 65536 rows?
> > Would it be faster to link such a large range as a table in Access?
> That's what I use but I've never handled recordsets this way with more
> 100 rows.
> >
> > /gustav
> >
> > >>> shamil at users.mns.ru 24-01-2006 01:03 >>>
> > John,
> >
> > Have a look here is a generic code to get data to ms excel worksheet
> > from MS Access database and to save data to MS Access db from ms
excel
> > worksheet using disconnected ADO recordsets. This sample uses arrays
> > because an MS Excel range value is in fact a variant array. It
> shouldn't
> > be used with very large source recordsets but as far as I understood
> you
> > will not have such recordsets...




From martyconnelly at shaw.ca  Tue Jan 24 16:42:51 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Tue, 24 Jan 2006 14:42:51 -0800
Subject: [AccessD] Read External File for Path String
References: <08F823FD83787D4BA0B99CA580AD3C74016C442B@TTNEXCHCL2.hshhp.com>
Message-ID: <43D6AD6B.5040103@shaw.ca>

Just in case anyone is wondering how it is done in VB.Net
using xml and an App.config file

My Feature in VS 2005: Storing Application and User Settings

http://www.developer.com/net/vb/article.php/3578726

Jim DeMarco wrote:

>Joe,
>
>This is not true.  Grab the class from my article and you're doing XML as soon as you've added it to your mdb.  Not trying to push it on you but suggesting you give it a shot.
>
>Jim DeMarco
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Joe Hecht
>Sent: Friday, January 20, 2006 7:07 PM
>To: 'Access Developers discussion and problem solving'
>Subject: Re: [AccessD] Read External File for Path String
>
>
>I have so much to learn I have just ruled out xml for now.
>My projects are too small to take advantage of it.
>
>Thanks for the info though.
>
>Joe Hecht
>jmhecht at earthlink.net
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>MartyConnelly
>Sent: Friday, January 20, 2006 12:55 PM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] Read External File for Path String
>
>If you don't have that high a version of Access here is
>method of using 
>xmldom to read xml file.
>rather than ImportXML method.
>
>'?LoadXMLFile("C:\XML\AdviserDetails.xml")
>Public Function LoadXMLFile(ByRef AdviserXML As String)
>
>    'On Error GoTo ErrorHandler
>    'needs reference set to XML 4.0 and maybe ADO 2.8
>    Dim oDOMDocument As MSXML2.DOMDocument40
>    Dim oNodeList As IXMLDOMNodeList
>    Dim oAdviserDetailsNode As IXMLDOMNode
>    Dim oLowestLevelNode As IXMLDOMElement
>    Dim objXMLDOMNamedNodeMap As IXMLDOMNamedNodeMap
>     Dim xPError As IXMLDOMParseError
>    Dim Mydb As Database
>    Dim myrs As ADODB.Recordset
>    Dim sTempValue As String
>    Dim lrec As Long
>    Dim lnorec As Long
>    Set oDOMDocument = New MSXML2.DOMDocument40
>
>    oDOMDocument.async = False
>    oDOMDocument.validateOnParse = True 'you may want to
>parse for errors
>    oDOMDocument.resolveExternals = False
>    oDOMDocument.preserveWhiteSpace = True
> 
>    'use if xml disk file
>      If Not oDOMDocument.Load(AdviserXML) Then
>        MsgBox ("XML File error")
>             Set xPError = oDOMDocument.parseError
>        DOMParseError xPError
>      
>       End If
>    Set oAdviserDetailsNode = oDOMDocument.documentElement
>     Debug.Print oDOMDocument.xml
>    
>  
>    'Set Mydb = CurrentDb
>    'Set myrs = Mydb.OpenRecordset("NewTable")
> 
>
>   'use appropriate XPath expression to select nodes
>  
>   Set oNodeList =
>oAdviserDetailsNode.selectNodes("//BusinessDetails/*")
> 
>     lnorec = 0
>     lrec = 0
>     Debug.Print oNodeList.length
>     '   myrs.AddNew
>    For Each oLowestLevelNode In oNodeList
>        sTempValue = oLowestLevelNode.Text
>         lrec = lrec + 1
>        Select Case oLowestLevelNode.nodeName
>            Case "BusinessName"
>                   Debug.Print "Business " & sTempValue
>                'myrs!BusinessName = sTempValue
>            Case "AddressLine1"
>                'myrs!AddressLine1 = sTempValue
>            Case "AddressLine2"
>                'myrs!AddressLine2 = sTempValue
>            Case "Suburb"
>                'myrs!Suburb = sTempValue
>            Case "State"
>                'myrs!State = sTempValue
>                Debug.Print sTempValue
>            Case "Postcode"
>                'myrs!Postcode = sTempValue
>            Case "PhoneNumber"
>             Debug.Print "Phone " & sTempValue
>                'myrs!PhoneNumber = sTempValue
>            Case "Email"
>                'myrs!Email = sTempValue
>            Case "FaxNumber"
>                'myrs!FaxNumber = sTempValue
>        End Select
>        If lrec = 9 Then '9 elements in business details
>       ' myrs.Update
>        lnorec = lnorec + 1
>        lrec = 0
>       ' myrs.AddNew
>        End If
>      Next
>     
>     MsgBox "Records Added=" & lnorec
>     ' Set myrs = Nothing
>    'Set Mydb = Nothing
>    Set oDOMDocument = Nothing
>    Set oAdviserDetailsNode = Nothing
>    Set objXMLDOMNamedNodeMap = Nothing
>    Exit Function
>
>ErrorHandler:
>
>  '  Call NewError.Raise(Err.Number, Err.Source,
>Err.Description)
>
>End Function
>Sub DOMParseError(xPE As IXMLDOMParseError)
>
>    ' The document failed to load.
>    Dim strErrText As String
>    ' Obtain the ParseError object
>    With xPE
>    strErrText = "Your XML Document failed to load" & _
>        "due the following error." & vbCrLf & _
>        "Error #: " & .errorCode & ": " & xPE.reason & _
>        "Line #: " & .Line & vbCrLf & _
>        "Line Position: " & .linepos & vbCrLf & _
>        "Position In File: " & .filepos & vbCrLf & _
>        "Source Text: " & .srcText & vbCrLf & _
>        "Document URL: " & .url
>    End With
>    Debug.Print strErrText
>
>  Dim s As String
>  Dim r As String
>  Dim i As Long
> 
>   s = ""
>  For i = 1 To xPE.linepos - 1
>    s = s & " "
>  Next
>  r = "XML Error loading " & xPE.url & " * " & xPE.reason
>  Debug.Print r
>    'show character postion of error; tired of counting
>chars in xml file
>  If (xPE.Line > 0) Then
>    r = "at line " & xPE.Line & ", character " & xPE.linepos
>& vbCrLf & _
>         xPE.srcText & vbCrLf & s & "^"
>  End If
>  Debug.Print r
>    MsgBox strErrText, vbExclamation
>End Sub
>
>
>
>
>--------  "C:\XML\AdviserDetails.xml"  save as UTF-8 not
>ANSI in notepad
>
><?xml version="1.0" encoding="UTF-8"?>
><AdviserDetails ID="AD12345">
>    <BusinessDetails>
>        <BusinessName>"AD Business Name" </BusinessName>
>        <AddressLine1>"AD Address Line 1" </AddressLine1>
>        <AddressLine2>"AD Address Line 2" </AddressLine2>
>        <Suburb>"AD Suburb" </Suburb>
>        <State>"AD State" </State>
>        <Postcode>"AD PostCode" </Postcode>
>        <PhoneNumber>"AD Phone Number" </PhoneNumber>
>        <Email>"AD Email" </Email>
>        <FaxNumber>"AD Fax Number" </FaxNumber>
>    </BusinessDetails>
></AdviserDetails>
>
>Gustav Brock wrote:
>
>  
>
>>Hi Stuart
>>
>>Use A2002+.
>>Have an internal table with your path, tblPath.
>>
>>To export:
>>Application.ExportXML acExportTable , "tblPath",
>>    
>>
>"c:\mypath.xml"
>  
>
>>To import:
>>CurrentDb.Execute "Delete * From tblPath"
>>Application.ImportXML "c:\mypath.xml", acAppendData
>>
>>To read:
>>strPath = DLookup("Path", "tblPath")
>>
>>Not quite sure how "easy" that is, though in total only
>>    
>>
>four code lines net are needed.
>  
>
>>However, if you need to store a bunch of user or app
>>    
>>
>settings it might be a nice method with all the advantages
>of XML storage and exchange possibilities.
>  
>
>>/gustav
>>
>> 
>>
>>    
>>
>>>>>stuart at lexacorp.com.pg 20-01-2006 00:48 >>>
>>>>>       
>>>>>
>>>>>          
>>>>>
>>On 19 Jan 2006 at 15:00, Charlotte Foust wrote:
>>
>> 
>>
>>    
>>
>>>Actually, the XML files wind up with a structure very
>>>      
>>>
>similar to the ini
>  
>
>>>files but you don't need API calls to read them.
>>>   
>>>
>>>      
>>>
>>So how  would you create, then read an XML file to store a
>>    
>>
>backend server 
>  
>
>>path?
>> 
>>
>>    
>>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada



From fhtapia at gmail.com  Tue Jan 24 18:50:05 2006
From: fhtapia at gmail.com (Francisco Tapia)
Date: Tue, 24 Jan 2006 16:50:05 -0800
Subject: [AccessD] bust out the math books
Message-ID: <b874372a0601241650q1fc359d8n58efa86c2cecb471@mail.gmail.com>

can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to why
I can't just average column C3 to get the 90%, instead I end up with 88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...


From fhtapia at gmail.com  Tue Jan 24 19:00:47 2006
From: fhtapia at gmail.com (Francisco Tapia)
Date: Tue, 24 Jan 2006 17:00:47 -0800
Subject: [AccessD] Peregrine PND
Message-ID: <b874372a0601241700w1c3ac252w85e67413d5bba61a@mail.gmail.com>

I'm going to be in a demo this friday on this system "Peregrine PND" I
googled but did not get any resonable hits, has anybody heard of this CRM or
DB system?  I hear that it's supposed to be for a helpdesk?

Thanks,

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...


From accessd at shaw.ca  Tue Jan 24 19:01:09 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Tue, 24 Jan 2006 17:01:09 -0800
Subject: [AccessD] bust out the math books
In-Reply-To: <b874372a0601241650q1fc359d8n58efa86c2cecb471@mail.gmail.com>
Message-ID: <001801c6214a$d47742c0$017ba8c0@xpserver>

Hi Francisco:

Are all the variables you are using and saving the values in are
double/floating point variables? I have had issues when mixing various
variable types like a Long and a Double involving any calculations. It can
blow up within a conversion process.

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco Tapia
Sent: January 24, 2006 4:50 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books

can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to why
I can't just average column C3 to get the 90%, instead I end up with 88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From stuart at lexacorp.com.pg  Tue Jan 24 19:13:26 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Wed, 25 Jan 2006 11:13:26 +1000
Subject: [AccessD] bust out the math books
In-Reply-To: <b874372a0601241650q1fc359d8n58efa86c2cecb471@mail.gmail.com>
Message-ID: <43D75D56.11540.4A4601F@stuart.lexacorp.com.pg>

On 24 Jan 2006 at 16:50, Francisco Tapia wrote:

> can someone answer me this:
>   C1 C2
> C3  1566 1770
> 0.884746  5130 5340
> 0.960674  1320 1800
> 0.733333  6440 7280
> 0.884615  1770 1800
> 0.983333
> 
> 
> 
>  16226 17990
> 0.901946
> If I take C1 / C2 I get C3... there must be a mathimaticall reason as to why
> I can't just average column C3 to get the 90%, instead I end up with 88.93%
> 

The larger a number, the more weight it needs to carry in the "averaging"
A clearer example to show why you can't just average averages to get an 
overall average.

Individual Averages:
1/1000 = .001
99999/1000 = 99.999

Overall average (weighted):
100000/1000 = 100

Average(?) average:
(.001 + 99.999)/2 = 50

The second "average" gives equal weight to the 1 occurence in the first 
calculation and the 999 occurences in the second calculation.

-- 
Stuart




From djkr at msn.com  Tue Jan 24 19:20:17 2006
From: djkr at msn.com (DJK(John) Robinson)
Date: Wed, 25 Jan 2006 01:20:17 -0000
Subject: [AccessD] bust out the math books
In-Reply-To: <b874372a0601241650q1fc359d8n58efa86c2cecb471@mail.gmail.com>
Message-ID: <BAY106-DAV88B81FEBABC727DBCE974D2120@phx.gbl>

No reason why they *should* be the same mathematically.  The ratio of the
sums is just not the same thing as the average of the ratios.

Question is - what are you trying to achieve?

Consider
   1	   2	0.5
 999	1000	0.999
----	----	-----
1000	1002	???
if that helps.

John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco Tapia
Sent: 25 January 2006 00:50
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books


can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to why
I can't just average column C3 to get the 90%, instead I end up with 88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From stuart at lexacorp.com.pg  Tue Jan 24 19:23:35 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Wed, 25 Jan 2006 11:23:35 +1000
Subject: [AccessD] bust out the math books
In-Reply-To: <43D75D56.11540.4A4601F@stuart.lexacorp.com.pg>
References: <b874372a0601241650q1fc359d8n58efa86c2cecb471@mail.gmail.com>
Message-ID: <43D75FB7.7248.4ADA896@stuart.lexacorp.com.pg>

On 25 Jan 2006 at 11:13, Stuart McLachlan wrote:

> The larger a number, the more weight it needs to carry in the "averaging" A
> clearer example to show why you can't just average averages to get an
> overall average.
> 

OK, bad example. That's not exactly what you were doing.
Here's a more relevant one:

1/100 = .01
9999/10000 = .9999

Weighted average:
10000/10100 = .9909

Average(?) average:
(.01 + .9999)/2 = .50495

The 9999/10000 cases clearly needs to carry 100 time more "weight" that the 
1/100 cases.





-- 
Stuart




From john at winhaven.net  Tue Jan 24 22:23:38 2006
From: john at winhaven.net (John Bartow)
Date: Tue, 24 Jan 2006 22:23:38 -0600
Subject: [AccessD] bust out the math books
In-Reply-To: <b874372a0601241650q1fc359d8n58efa86c2cecb471@mail.gmail.com>
Message-ID: <021101c62167$1dd9f810$6f01a8c0@ScuzzPaq>

Hi Francisco,
What happened to you over on OT?

Rocky's converted to Thunderbird and we need some answers :o) 



From jwcolby at ColbyConsulting.com  Tue Jan 24 23:09:47 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 25 Jan 2006 00:09:47 -0500
Subject: [AccessD] Moving some object's recordsource to SQL Server
Message-ID: <00b201c6216d$9085fd90$647aa8c0@ColbyM6805>

I need a "step by step" if you will of moving some object to SQL Server -
combo or form - where the Access query was filtered and the filter won't
work in SQL Server.  For example a reference to a control on a form.

I know that I have to create a SP in SQL Server that accepts a parameter.
How do I "connect" to that query from Access?  Is it a n ODBC (or other?)
link, just like a table?  Then how do I feed the parameters to the SP out in
SQL server.

I am getting ready to do this and am way under prepared for this.  

Environment:

SQL Server Express 2005
Access (Office) XP or 2003
Fes now talking to the SQL Server BE using the standard (ODBC I think)
"links" that the upsize wizard created when it moved the tables.

The FE seems to work as it did before except slower.  Now if I can start
replacing the slow "Access Queries over ODBC" with "SQL Server SPs with
passed params????" I might be able to see what this is capable of.  I just
haven't a clue how to move to that "SP with Params".

John W. Colby
www.ColbyConsulting.com 




From bchacc at san.rr.com  Tue Jan 24 23:14:11 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Tue, 24 Jan 2006 21:14:11 -0800
Subject: [AccessD] [Fwd: Default Page Size]
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF50@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF50@INFOSERVER04.infostat.local>
Message-ID: <43D70923.8060805@san.rr.com>

So do you have two formats of the same report, selectable by the user? 

Rocky


Charlotte Foust wrote:
> We format most of our reports to fit either now, which means we use
> paper length and A4 width when designing the report.  If you use default
> printer, that's your only choice.  Otherwise, yes, you'd have to allow
> them to specify the paper size and you'd have to create some specially
> formatted A4 reports if they needed the longer paper length.  
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Tuesday, January 24, 2006 10:44 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> Charlotte:
>
> I'm not using any code.  I just use default printer.  This app could be 
> running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to tie the
>
> app to one size or another.  Apparently I'm going to have to put in some
>
> kind of preference for the user to select their paper size then?
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> Rocky,
>>
>> What kind of code are you using to set the paper size?  There are 
>> actually papersize constants you can use to make it easier.  We use 
>> these in our Access apps to make the code easier to read:
>>
>> Public Const PAPER_LETTER As Integer = 1
>> Public Const PAPER_A4 As Integer = 9
>> Public Const PAPER_LEGAL As Integer = 5
>>
>> If you check the Access.Printer class, you'll get a list of the built 
>> in constants for AcPrintPaperSize, including acPRPSA4, acPRPSLetter, 
>> and acPRPSLegal, which have the same values as we use (our code was 
>> built before the Printer object became part of Access).  Whichever you
>>     
>
>   
>> use, it's what you have to pass to the printer to get the setting 
>> right.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Tuesday, January 24, 2006 9:31 AM
>> To: access Developers discussion and problem solving
>> Subject: [AccessD] [Fwd: Default Page Size]
>>
>>
>>
>>
>> Dear List:
>>
>> A guy in India with whom I'm developing a preventive maintenance app 
>> is
>> using A4 paper.  The report I sent him apparently doesn't print the 
>> whole footer unless he changes the printer.  He writes:
>>
>> "The problem still persisted of the report saying only "page no 1 of "
>> and not showing the total no of pages and of the second page being a 
>> blank, but third page showing the second page (all this only in the
>>     
> mtce
>   
>> sch. report). I have found the cause. I found that the page set up was
>> landscape and letter size. I changed the letter size to A4 and 
>> everything became ok! But I am not able to make it permanent - when I 
>> ask for the report the next time, the same problem. I had to again
>>     
> reset
>   
>> the page size. How do I make it stick?"
>>
>> But the other reports in the system apparently work OK.  The 
>> File-->Page
>>
>> Setup parameters are the as the other reports - default printer is
>> checked - except this one is landscape.  Any ideas?
>>
>> MTIA
>>
>> Rocky Smolin
>> Beach Access Software
>> 858-259-4334
>> www.e-z-mrp.com
>>
>>
>> ----- Original Message -----
>>
>>     *From:* Rocky Smolin - Beach Access Software 
>> <mailto:bchacc at san.rr.com>
>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>     *Subject:* Re: PM?
>>
>>     Ram:
>>
>>     The graph can be done but it's not real easy in Access.  On the X
>>     axis you would also lose visibility of what machines were creating
>>     the scores on the Y axis.  The X axis would just be a sequence
>>     number.  Wouldn't seeing the list of machines with description be
>>     more helpful.  >From an information standpoint the graph will only
>>     show the user that the scores of the machines run from m to n.  So
>>     they will be picking an arbitrary point between the lowest and
>>     highest value without much visibility over the nature of the
>>     equipment that's being included and excluded.
>>
>>     I will do a bit of research to see if there's a graphing control I
>>     can find so I don't have to reinvent the wheel.  Then maybe put an
>>     button on the form to let the user choose tabular of graphic 
>> format.
>>
>>     Requiring administrator access to change the cutoff point is easy.
>>     
>
>   
>>     I'll attend to that.  What's the next step?
>>
>>     Best,
>>
>>     Rocky
>>
>>      
>>
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From developer at ultradnt.com  Tue Jan 24 23:45:43 2006
From: developer at ultradnt.com (Steve Conklin)
Date: Wed, 25 Jan 2006 00:45:43 -0500
Subject: [AccessD] Moving some object's recordsource to SQL Server
In-Reply-To: <00b201c6216d$9085fd90$647aa8c0@ColbyM6805>
Message-ID: <200601250545.k0P5jhL74317@ultradnt.com>

Short answer: Pass Through query.

I havent used 2005 yet, but using SQL 2000 BE's, I have had success with
using pass-thru queries as record source for Access forms.  Primary
advantage is that the returned recordset is DAO and form behaves as any
Access form.

1. Define an SP:
CREATE PROCEDURE sp_cust_order
@custid int
AS
SELECT * FROM tblOrder
WHERE customerid=@custid
GO 

2. Create an Access PT query "qry_pt_CustOrder", whose sql is
"sp_cust_order 13"
(You will be prompted for ODBC connect info) 

3. Use VBA code in calling/menu form to redefine the sql of that query, as
needed, to change the parameter, before opening form.
Currentdb.querydefs("qry_pt_CustOrder").sql="sp_cust_order 14"
Docmd.openform "frmCustOrder"

The qdef will have a connect property that should be refreshed whenver you
refresh the linked tables.

Hth
Steve


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Wednesday, January 25, 2006 12:10 AM
To: 'Access Developers discussion and problem solving';
dba-sqlserver at databaseadvisors.com
Subject: [AccessD] Moving some object's recordsource to SQL Server

I need a "step by step" if you will of moving some object to SQL Server -
combo or form - where the Access query was filtered and the filter won't
work in SQL Server.  For example a reference to a control on a form.

I know that I have to create a SP in SQL Server that accepts a parameter.
How do I "connect" to that query from Access?  Is it a n ODBC (or other?)
link, just like a table?  Then how do I feed the parameters to the SP out in
SQL server.

I am getting ready to do this and am way under prepared for this.  

Environment:

SQL Server Express 2005
Access (Office) XP or 2003
Fes now talking to the SQL Server BE using the standard (ODBC I think)
"links" that the upsize wizard created when it moved the tables.

The FE seems to work as it did before except slower.  Now if I can start
replacing the slow "Access Queries over ODBC" with "SQL Server SPs with
passed params????" I might be able to see what this is capable of.  I just
haven't a clue how to move to that "SP with Params".

John W. Colby
www.ColbyConsulting.com 


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




From paul.hartland at isharp.co.uk  Wed Jan 25 03:14:04 2006
From: paul.hartland at isharp.co.uk (Paul Hartland (ISHARP))
Date: Wed, 25 Jan 2006 09:14:04 -0000
Subject: [AccessD] OT - Acessing File DSN Coonection String Using VB6
In-Reply-To: <200512221305.jBMD50V16983@databaseadvisors.com>
Message-ID: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAADoEkuIW2rYTr/ZPwhTm25NAQAAAAA=@isharp.co.uk>

To all,

Don't know if this is possible I have a File DSN on my machine and what I
want to do is access it using VB6 and get various properties of it like the
connection string etc.  Has anyone done this before or can point me in the
right direction on how to go about this if it is possible.

Thanks in advance.

Paul Hartland
Database Developer





From Gustav at cactus.dk  Wed Jan 25 04:15:06 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 25 Jan 2006 11:15:06 +0100
Subject: [AccessD] Memory usage at import of MySQL tables (DoEvents Magic)
Message-ID: <s3d75dc4.012@cactus.dk>

Hi all

Has anyone noticed how Access consumes memory if you importing data to a local table multiple times?
If you run the function below which empties and refills a local table with just 5000 records from a linked MySQL table, each run eats about 500K of memory. This is what the Task Manager shows.
That can quickly add up to a level where the app ceases to operate (flashing screen, loose of graphics, etc.). 

Public Function TestMem(ByVal lngRounds As Long)

  Dim dbs As DAO.Database
  Dim lngRound As Long
  
  Set dbs = CurrentDb
  
  With dbs
    For lngRound = 1 To lngRounds
      Debug.Print lngRound, Time
      .Execute "DeleteMessage"  ' empty local table.
      .Execute "AppendMessage"  ' append to local table.
    Next
  End With
  
  Set dbs = Nothing
  
End Function

However, if I call the function like this:

  DoEvents
  Result = TestMem(10)

the memory usage quickly stabilizes at some level.
Why that? DoEvents should do close to nothing _before_ you run the function ...

I haven't tried with import from other sources than MySQL.

/gustav



From stuart at lexacorp.com.pg  Wed Jan 25 04:59:07 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Wed, 25 Jan 2006 20:59:07 +1000
Subject: [AccessD] OT - Acessing File DSN Coonection String Using VB6
In-Reply-To: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAADoEkuIW2rYTr/ZPwhTm25NAQAAAAA=@isharp.co.uk>
References: <200512221305.jBMD50V16983@databaseadvisors.com>
Message-ID: <43D7E69B.18792.6BC95A7@stuart.lexacorp.com.pg>

On 25 Jan 2006 at 9:14, Paul Hartland (ISHARP) wrote:

> To all,
> 
> Don't know if this is possible I have a File DSN on my machine and what I
> want to do is access it using VB6 and get various properties of it like the
> connection string etc.  Has anyone done this before or can point me in the
> right direction on how to go about this if it is possible.
> 

A file DSN is a plain text file structured in the classic Windows INI file 
format.

Take a look at the recent thread "Read External File for Path String", 
specifically my posting where I gave the code for reading and writing 
values from an INI file.

The Section is always "ODBC".  Open any DSN in a text editor to see what 
Keys you need to query.


-- 
Stuart




From Erwin.Craps at ithelps.be  Wed Jan 25 05:18:01 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Wed, 25 Jan 2006 12:18:01 +0100
Subject: [AccessD] Outlook automation - use a template for a message
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62E0@stekelbes.ithelps.local>

The problem lies in the CreateItemFromTemplate.
I see after creating the item from template it also adds my regular
footer above the template. This is probably why your replacefields get
at the bottom.
In some occasions I simulated the problem, it also messes up the format
of my template.

I use a different approach using a HTML template, may I suggest you to
use this one?
The advantage is that you can use regular HTML editors, like Frontpage,
to create your template and you have access to both the design and HTML
source.
For what concerns stiff resistance against HTML, I find that a
discussion like between using DOS and Windows.
RTF is from a security point of view not that more secure and is
outdated by HTML.
Plain text e-mails is for what concerns me should dead a long time ago
pointless these days.
If you want to present something is a decent fashion, you gonna need
formatting and hyperlinks.
I am however against adding pictures (files) in mass E-mails to minimize
size.
I always use hyperlinks to my website where the pictures reside. As in
the example I give you.
Further more its better for statistics because I see in my weblog how
many users have opened my mail or even forwarded it to someone else
(depending on the situation).


To make this code work you need to download the HTML template and save
in into your C:\temp folder.
http://www.ithelps.be/temp/SampleVideo2.htm

To view the result after running the code see
http://www.ithelps.be/temp/NewVideo.msg


Beneath is the code I trimmed from my e-mail marketing function.
You can also download it from
http://www.ithelps.be/temp/TestHTMLBodyEmail.txt

Small note:
I use [[fieldtoreplace]] brackets instead of <fieldtoreplace>.
<> get's replaced by &something in HTML code. I also find that [[]] is
more unique than <> to avoid replacement problems.


Public Function TestHTMLBody()
    Dim strPromoTemplatePathAndFile  As String
    Dim strHTMLPromoTemplate As String
    Dim strHTMLPromoTemplateTEMP As String
    Dim lngLOF As Long
    Dim strFind As String
    Dim strReplace As String
    Dim strMailSubject As String
    Dim oOut As Outlook.Application
    Dim mItem As Outlook.MailItem
    
    'Path and filename to HTML template
    'Locate at your server so you only have one master file for all
users.
    strPromoTemplatePathAndFile = "C:\temp\SampleVideo2.htm"
    strMailSubject = "Some mail subject"
    
    'Open templatefile and load HTML code in a variable
    Open strPromoTemplatePathAndFile For Binary As #1
    lngLOF = LOF(1)
    strHTMLPromoTemplate = Space(lngLOF)
    Get #1, 1, strHTMLPromoTemplate
    Close #1
    
    'Copy HTML code in temporary variable
    strHTMLPromoTemplateTEMP = strHTMLPromoTemplate
    
    'Replace fields in HTML with real data
    strFind = "[[NAME]]"
    strReplace = "Craps"
    strHTMLPromoTemplateTEMP = Replace(strHTMLPromoTemplateTEMP,
strFind, strReplace, 1, , vbDatabaseCompare)
                
    strFind = "[[DATE]]"
    strReplace = Date
    strHTMLPromoTemplateTEMP = Replace(strHTMLPromoTemplateTEMP,
strFind, strReplace, 1, , vbDatabaseCompare)
    
    strFind = "[[FIRSTNAME]]"
    strReplace = "Erwin"
    strHTMLPromoTemplateTEMP = Replace(strHTMLPromoTemplateTEMP,
strFind, strReplace, 1, , vbDatabaseCompare)
    
                
                
    'create new e-mailitem and display without sending
    Set oOut = New Outlook.Application
    Set mItem = oOut.CreateItem(olMailItem)
    With mItem
        .To = "dw-murphy at cox.net"
        .Subject = "New Video"
        .HTMLBody = strHTMLPromoTemplateTEMP
        .Display
    End With
    
    Set mItem = Nothing
    Set oOut = Nothing
    
    
End Function


From marcus at tsstech.com  Wed Jan 25 06:50:58 2006
From: marcus at tsstech.com (Scott Marcus)
Date: Wed, 25 Jan 2006 07:50:58 -0500
Subject: [AccessD] bust out the math books
Message-ID: <B7B1803D6973C84F97D412AFCDA8EA7D016F6950@2003exchg.TSS.AD>

Mathematical answer...

C1 = Total
C2 = Sample Size
C3 = Average

C1  C2  C3
===========
A   B   A/B
C   D   C/D
E   F   E/F
G   H   G/H
I   J   I/J


Real average = (A+C+E+G+I)/BDFHJ

Average of averages = (A/B + C/D + E/F + G/H + I/J)/5

Which equals...
((ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/(BDFHJ))/5
                    

Which equals...
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


(A+C+E+G+I)/BDFHJ does not equal 
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


Scott Marcus                   

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco
Tapia
Sent: Tuesday, January 24, 2006 7:50 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books

can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to
why
I can't just average column C3 to get the 90%, instead I end up with
88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
 





NOTICE:  This electronic mail transmission is for the use of the named individual or entity to which it is directed and may contain information that is privileged or confidential.  If you are not the intended recipient, any disclosure, copying, distribution or use of the contents of any information contained herein is prohibited.  If you have received this electronic mail transmission in error, delete it from your system without copying or forwarding it, and notify the sender of the error by replying via email or calling TSS Technologies at (513) 772-7000, so that our address record can be corrected.  Any information included in this email is provided on an ?as is? and ?where as? basis, and TSS Technologies makes no representations or warranties of any kind with respect to the completeness or accuracy of the information contained in this email. 


From marcus at tsstech.com  Wed Jan 25 08:15:41 2006
From: marcus at tsstech.com (Scott Marcus)
Date: Wed, 25 Jan 2006 09:15:41 -0500
Subject: [AccessD] bust out the math books
Message-ID: <B7B1803D6973C84F97D412AFCDA8EA7D016F6951@2003exchg.TSS.AD>

Sorry Real Average should be...

(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/BDFHJ

Still, the two do not equal.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Scott Marcus
Sent: Wednesday, January 25, 2006 7:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] bust out the math books

Mathematical answer...

C1 = Total
C2 = Sample Size
C3 = Average

C1  C2  C3
===========
A   B   A/B
C   D   C/D
E   F   E/F
G   H   G/H
I   J   I/J


Real average = (A+C+E+G+I)/BDFHJ

Average of averages = (A/B + C/D + E/F + G/H + I/J)/5

Which equals...
((ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/(BDFHJ))/5
                    

Which equals...
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


(A+C+E+G+I)/BDFHJ does not equal 
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


Scott Marcus                   

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco
Tapia
Sent: Tuesday, January 24, 2006 7:50 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books

can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to
why
I can't just average column C3 to get the 90%, instead I end up with
88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
 





NOTICE:  This electronic mail transmission is for the use of the named
individual or entity to which it is directed and may contain information
that is privileged or confidential.  If you are not the intended
recipient, any disclosure, copying, distribution or use of the contents
of any information contained herein is prohibited.  If you have received
this electronic mail transmission in error, delete it from your system
without copying or forwarding it, and notify the sender of the error by
replying via email or calling TSS Technologies at (513) 772-7000, so
that our address record can be corrected.  Any information included in
this email is provided on an "as is" and "where as" basis, and TSS
Technologies makes no representations or warranties of any kind with
respect to the completeness or accuracy of the information contained in
this email. 


From accessd at shaw.ca  Wed Jan 25 09:24:47 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Wed, 25 Jan 2006 07:24:47 -0800
Subject: [AccessD] bust out the math books
In-Reply-To: <B7B1803D6973C84F97D412AFCDA8EA7D016F6950@2003exchg.TSS.AD>
Message-ID: <002201c621c3$7a125940$017ba8c0@xpserver>

Hi Scott:

There must be a round off error somewhere in the process. As I am just
finishing off an accounting system this problem has always been apparent.
There are a few ways that accounting applications resolve the round off
error.

1. Store all values as integers and perform any math using those integers.
Example (assuming 6 significant places are required.) 

Value 0.884746 would become 884746 with a mantissa of 6. All subsequent
calculations are performed in integer math or logs are used. (Adding instead
of multiple and subtract instead of dividing.)

2. In the case of a multiplication or division being required the
calculation is performed once and then the values are managed again as
integers. This is particularly true when applying taxes to invoicing.
Example (given that the state or provincial tax is 6.5% and the federal tax
is 7.0%.)

The taxes are applied immediately then added from there on. In appropriate
tax is generated per item: 

Given:
Subtotal 	PST		GST		Displayed/Saved Total
123.56	8.0314	8.6492 	
		8.03		8.65		140.24	
456.23	29.65495	31.9361
  		29.66		31.94		61.60
+
579.79	+37.69	+ 40.59	=658.07	right-way

579.79	* 1.135% (total tax)	=658.06	wrong-way

When tax totals are generated then all the tax subtotals are just added
together. In theory, all the subtotals could be added and the total tax
could be calculated but the answer would be wrong. This is the same problem
experience when trying to calculate the average by item and then expecting
the average for the whole group to add up. It never will.

HTH
Jim


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Scott Marcus
Sent: January 25, 2006 4:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] bust out the math books

Mathematical answer...

C1 = Total
C2 = Sample Size
C3 = Average

C1  C2  C3
===========
A   B   A/B
C   D   C/D
E   F   E/F
G   H   G/H
I   J   I/J


Real average = (A+C+E+G+I)/BDFHJ

Average of averages = (A/B + C/D + E/F + G/H + I/J)/5

Which equals...
((ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/(BDFHJ))/5
                    

Which equals...
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


(A+C+E+G+I)/BDFHJ does not equal 
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


Scott Marcus                   

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco
Tapia
Sent: Tuesday, January 24, 2006 7:50 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books

can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to
why
I can't just average column C3 to get the 90%, instead I end up with
88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
 





NOTICE:  This electronic mail transmission is for the use of the named
individual or entity to which it is directed and may contain information
that is privileged or confidential.  If you are not the intended recipient,
any disclosure, copying, distribution or use of the contents of any
information contained herein is prohibited.  If you have received this
electronic mail transmission in error, delete it from your system without
copying or forwarding it, and notify the sender of the error by replying via
email or calling TSS Technologies at (513) 772-7000, so that our address
record can be corrected.  Any information included in this email is provided
on an as is and where as basis, and TSS Technologies makes no
representations or warranties of any kind with respect to the completeness
or accuracy of the information contained in this email. 



From Donald.A.McGillivray at sprint.com  Wed Jan 25 09:35:42 2006
From: Donald.A.McGillivray at sprint.com (Mcgillivray, Don [IT])
Date: Wed, 25 Jan 2006 09:35:42 -0600
Subject: [AccessD] bust out the math books
Message-ID: <EC829B33DF5B5B48A956B7A2E894AA9A0410D8A2@PLSWB06C.ad.sprint.com>

 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco
Tapia
Sent: Tuesday, January 24, 2006 4:50 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books

can someone answer me this:
  C1 C2 C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to
why
I can't just average column C3 to get the 90%, instead I end up with
88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From cfoust at infostatsystems.com  Wed Jan 25 10:26:52 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 25 Jan 2006 08:26:52 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <F55048AF7E974F429BB24597D7355EEABF52@INFOSERVER04.infostat.local>

No, code selects the appropriate report format based on the paper
selection.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Tuesday, January 24, 2006 9:14 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] [Fwd: Default Page Size]


So do you have two formats of the same report, selectable by the user? 

Rocky


Charlotte Foust wrote:
> We format most of our reports to fit either now, which means we use 
> paper length and A4 width when designing the report.  If you use 
> default printer, that's your only choice.  Otherwise, yes, you'd have 
> to allow them to specify the paper size and you'd have to create some 
> specially formatted A4 reports if they needed the longer paper length.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Tuesday, January 24, 2006 10:44 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> Charlotte:
>
> I'm not using any code.  I just use default printer.  This app could 
> be
> running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to tie
the
>
> app to one size or another.  Apparently I'm going to have to put in 
> some
>
> kind of preference for the user to select their paper size then?
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> Rocky,
>>
>> What kind of code are you using to set the paper size?  There are
>> actually papersize constants you can use to make it easier.  We use 
>> these in our Access apps to make the code easier to read:
>>
>> Public Const PAPER_LETTER As Integer = 1
>> Public Const PAPER_A4 As Integer = 9
>> Public Const PAPER_LEGAL As Integer = 5
>>
>> If you check the Access.Printer class, you'll get a list of the built
>> in constants for AcPrintPaperSize, including acPRPSA4, acPRPSLetter, 
>> and acPRPSLegal, which have the same values as we use (our code was 
>> built before the Printer object became part of Access).  Whichever
you
>>     
>
>   
>> use, it's what you have to pass to the printer to get the setting
>> right.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>> Smolin
>> - Beach Access Software
>> Sent: Tuesday, January 24, 2006 9:31 AM
>> To: access Developers discussion and problem solving
>> Subject: [AccessD] [Fwd: Default Page Size]
>>
>>
>>
>>
>> Dear List:
>>
>> A guy in India with whom I'm developing a preventive maintenance app
>> is
>> using A4 paper.  The report I sent him apparently doesn't print the 
>> whole footer unless he changes the printer.  He writes:
>>
>> "The problem still persisted of the report saying only "page no 1 of 
>> " and not showing the total no of pages and of the second page being 
>> a blank, but third page showing the second page (all this only in the
>>     
> mtce
>   
>> sch. report). I have found the cause. I found that the page set up 
>> was landscape and letter size. I changed the letter size to A4 and 
>> everything became ok! But I am not able to make it permanent - when I

>> ask for the report the next time, the same problem. I had to again
>>     
> reset
>   
>> the page size. How do I make it stick?"
>>
>> But the other reports in the system apparently work OK.  The
>> File-->Page
>>
>> Setup parameters are the as the other reports - default printer is 
>> checked - except this one is landscape.  Any ideas?
>>
>> MTIA
>>
>> Rocky Smolin
>> Beach Access Software
>> 858-259-4334
>> www.e-z-mrp.com
>>
>>
>> ----- Original Message -----
>>
>>     *From:* Rocky Smolin - Beach Access Software
>> <mailto:bchacc at san.rr.com>
>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>     *Subject:* Re: PM?
>>
>>     Ram:
>>
>>     The graph can be done but it's not real easy in Access.  On the X
>>     axis you would also lose visibility of what machines were
creating
>>     the scores on the Y axis.  The X axis would just be a sequence
>>     number.  Wouldn't seeing the list of machines with description be
>>     more helpful.  >From an information standpoint the graph will
only
>>     show the user that the scores of the machines run from m to n.
So
>>     they will be picking an arbitrary point between the lowest and
>>     highest value without much visibility over the nature of the
>>     equipment that's being included and excluded.
>>
>>     I will do a bit of research to see if there's a graphing control
I
>>     can find so I don't have to reinvent the wheel.  Then maybe put
an
>>     button on the form to let the user choose tabular of graphic
>> format.
>>
>>     Requiring administrator access to change the cutoff point is 
>> easy.
>>     
>
>   
>>     I'll attend to that.  What's the next step?
>>
>>     Best,
>>
>>     Rocky
>>
>>      
>>
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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


From stuart at lexacorp.com.pg  Wed Jan 25 10:52:17 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Thu, 26 Jan 2006 02:52:17 +1000
Subject: [AccessD] bust out the math books
In-Reply-To: <002201c621c3$7a125940$017ba8c0@xpserver>
References: <B7B1803D6973C84F97D412AFCDA8EA7D016F6950@2003exchg.TSS.AD>
Message-ID: <43D83961.24003.7FFEAF7@stuart.lexacorp.com.pg>

On 25 Jan 2006 at 7:24, Jim Lawrence wrote:

 
> When tax totals are generated then all the tax subtotals are just added
> together. In theory, all the subtotals could be added and the total tax
> could be calculated but the answer would be wrong. This is the same problem
> experience when trying to calculate the average by item and then expecting
> the average for the whole group to add up. It never will.
> 

No, the two are completely separate problems.

Tax totalling problems are caused by rounding errors inherent in the 
process of working with currency which has a minimum sized unit (a cent or 
whatever).  Averaging problems are caused by false assumptions about the 
underlying maths by the  person writing the code.



-- 
Stuart




From bchacc at san.rr.com  Wed Jan 25 10:54:05 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Wed, 25 Jan 2006 08:54:05 -0800
Subject: [AccessD] [Fwd: Default Page Size]
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF52@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF52@INFOSERVER04.infostat.local>
Message-ID: <43D7AD2D.7040208@san.rr.com>

So you poll the printer class to see what paper was selected? Very slick.

Rocky


Charlotte Foust wrote:
> No, code selects the appropriate report format based on the paper
> selection.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Tuesday, January 24, 2006 9:14 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> So do you have two formats of the same report, selectable by the user? 
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> We format most of our reports to fit either now, which means we use 
>> paper length and A4 width when designing the report.  If you use 
>> default printer, that's your only choice.  Otherwise, yes, you'd have 
>> to allow them to specify the paper size and you'd have to create some 
>> specially formatted A4 reports if they needed the longer paper length.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Tuesday, January 24, 2006 10:44 AM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>
>>
>> Charlotte:
>>
>> I'm not using any code.  I just use default printer.  This app could 
>> be
>> running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to tie
>>     
> the
>   
>> app to one size or another.  Apparently I'm going to have to put in 
>> some
>>
>> kind of preference for the user to select their paper size then?
>>
>> Rocky
>>
>>
>> Charlotte Foust wrote:
>>   
>>     
>>> Rocky,
>>>
>>> What kind of code are you using to set the paper size?  There are
>>> actually papersize constants you can use to make it easier.  We use 
>>> these in our Access apps to make the code easier to read:
>>>
>>> Public Const PAPER_LETTER As Integer = 1
>>> Public Const PAPER_A4 As Integer = 9
>>> Public Const PAPER_LEGAL As Integer = 5
>>>
>>> If you check the Access.Printer class, you'll get a list of the built
>>> in constants for AcPrintPaperSize, including acPRPSA4, acPRPSLetter, 
>>> and acPRPSLegal, which have the same values as we use (our code was 
>>> built before the Printer object became part of Access).  Whichever
>>>       
> you
>   
>>>     
>>>       
>>   
>>     
>>> use, it's what you have to pass to the printer to get the setting
>>> right.
>>>
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>> Smolin
>>> - Beach Access Software
>>> Sent: Tuesday, January 24, 2006 9:31 AM
>>> To: access Developers discussion and problem solving
>>> Subject: [AccessD] [Fwd: Default Page Size]
>>>
>>>
>>>
>>>
>>> Dear List:
>>>
>>> A guy in India with whom I'm developing a preventive maintenance app
>>> is
>>> using A4 paper.  The report I sent him apparently doesn't print the 
>>> whole footer unless he changes the printer.  He writes:
>>>
>>> "The problem still persisted of the report saying only "page no 1 of 
>>> " and not showing the total no of pages and of the second page being 
>>> a blank, but third page showing the second page (all this only in the
>>>     
>>>       
>> mtce
>>   
>>     
>>> sch. report). I have found the cause. I found that the page set up 
>>> was landscape and letter size. I changed the letter size to A4 and 
>>> everything became ok! But I am not able to make it permanent - when I
>>>       
>
>   
>>> ask for the report the next time, the same problem. I had to again
>>>     
>>>       
>> reset
>>   
>>     
>>> the page size. How do I make it stick?"
>>>
>>> But the other reports in the system apparently work OK.  The
>>> File-->Page
>>>
>>> Setup parameters are the as the other reports - default printer is 
>>> checked - except this one is landscape.  Any ideas?
>>>
>>> MTIA
>>>
>>> Rocky Smolin
>>> Beach Access Software
>>> 858-259-4334
>>> www.e-z-mrp.com
>>>
>>>
>>> ----- Original Message -----
>>>
>>>     *From:* Rocky Smolin - Beach Access Software
>>> <mailto:bchacc at san.rr.com>
>>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>>     *Subject:* Re: PM?
>>>
>>>     Ram:
>>>
>>>     The graph can be done but it's not real easy in Access.  On the X
>>>     axis you would also lose visibility of what machines were
>>>       
> creating
>   
>>>     the scores on the Y axis.  The X axis would just be a sequence
>>>     number.  Wouldn't seeing the list of machines with description be
>>>     more helpful.  >From an information standpoint the graph will
>>>       
> only
>   
>>>     show the user that the scores of the machines run from m to n.
>>>       
> So
>   
>>>     they will be picking an arbitrary point between the lowest and
>>>     highest value without much visibility over the nature of the
>>>     equipment that's being included and excluded.
>>>
>>>     I will do a bit of research to see if there's a graphing control
>>>       
> I
>   
>>>     can find so I don't have to reinvent the wheel.  Then maybe put
>>>       
> an
>   
>>>     button on the form to let the user choose tabular of graphic
>>> format.
>>>
>>>     Requiring administrator access to change the cutoff point is 
>>> easy.
>>>     
>>>       
>>   
>>     
>>>     I'll attend to that.  What's the next step?
>>>
>>>     Best,
>>>
>>>     Rocky
>>>
>>>      
>>>
>>>
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From cfoust at infostatsystems.com  Wed Jan 25 11:05:58 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 25 Jan 2006 09:05:58 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <F55048AF7E974F429BB24597D7355EEABF54@INFOSERVER04.infostat.local>

No, Rocky.  Remember, this is older code that predates the Access
Printer object.  The user sets a paper option in the app configuration
to tell us whether he uses letter/legal or A4 paper.  

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Wednesday, January 25, 2006 8:54 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] [Fwd: Default Page Size]


So you poll the printer class to see what paper was selected? Very
slick.

Rocky


Charlotte Foust wrote:
> No, code selects the appropriate report format based on the paper 
> selection.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Tuesday, January 24, 2006 9:14 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> So do you have two formats of the same report, selectable by the user?
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> We format most of our reports to fit either now, which means we use
>> paper length and A4 width when designing the report.  If you use 
>> default printer, that's your only choice.  Otherwise, yes, you'd have

>> to allow them to specify the paper size and you'd have to create some

>> specially formatted A4 reports if they needed the longer paper
length.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>> Smolin
>> - Beach Access Software
>> Sent: Tuesday, January 24, 2006 10:44 AM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>
>>
>> Charlotte:
>>
>> I'm not using any code.  I just use default printer.  This app could
>> be
>> running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to tie
>>     
> the
>   
>> app to one size or another.  Apparently I'm going to have to put in
>> some
>>
>> kind of preference for the user to select their paper size then?
>>
>> Rocky
>>
>>
>> Charlotte Foust wrote:
>>   
>>     
>>> Rocky,
>>>
>>> What kind of code are you using to set the paper size?  There are 
>>> actually papersize constants you can use to make it easier.  We use 
>>> these in our Access apps to make the code easier to read:
>>>
>>> Public Const PAPER_LETTER As Integer = 1
>>> Public Const PAPER_A4 As Integer = 9
>>> Public Const PAPER_LEGAL As Integer = 5
>>>
>>> If you check the Access.Printer class, you'll get a list of the 
>>> built in constants for AcPrintPaperSize, including acPRPSA4, 
>>> acPRPSLetter, and acPRPSLegal, which have the same values as we use 
>>> (our code was built before the Printer object became part of 
>>> Access).  Whichever
>>>       
> you
>   
>>>     
>>>       
>>   
>>     
>>> use, it's what you have to pass to the printer to get the setting 
>>> right.
>>>
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>> Smolin
>>> - Beach Access Software
>>> Sent: Tuesday, January 24, 2006 9:31 AM
>>> To: access Developers discussion and problem solving
>>> Subject: [AccessD] [Fwd: Default Page Size]
>>>
>>>
>>>
>>>
>>> Dear List:
>>>
>>> A guy in India with whom I'm developing a preventive maintenance app

>>> is using A4 paper.  The report I sent him apparently doesn't print 
>>> the whole footer unless he changes the printer.  He writes:
>>>
>>> "The problem still persisted of the report saying only "page no 1 of
>>> " and not showing the total no of pages and of the second page being

>>> a blank, but third page showing the second page (all this only in
the
>>>     
>>>       
>> mtce
>>   
>>     
>>> sch. report). I have found the cause. I found that the page set up
>>> was landscape and letter size. I changed the letter size to A4 and 
>>> everything became ok! But I am not able to make it permanent - when
I
>>>       
>
>   
>>> ask for the report the next time, the same problem. I had to again
>>>     
>>>       
>> reset
>>   
>>     
>>> the page size. How do I make it stick?"
>>>
>>> But the other reports in the system apparently work OK.  The
>>> File-->Page
>>>
>>> Setup parameters are the as the other reports - default printer is
>>> checked - except this one is landscape.  Any ideas?
>>>
>>> MTIA
>>>
>>> Rocky Smolin
>>> Beach Access Software
>>> 858-259-4334
>>> www.e-z-mrp.com
>>>
>>>
>>> ----- Original Message -----
>>>
>>>     *From:* Rocky Smolin - Beach Access Software 
>>> <mailto:bchacc at san.rr.com>
>>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>>     *Subject:* Re: PM?
>>>
>>>     Ram:
>>>
>>>     The graph can be done but it's not real easy in Access.  On the
X
>>>     axis you would also lose visibility of what machines were
>>>       
> creating
>   
>>>     the scores on the Y axis.  The X axis would just be a sequence
>>>     number.  Wouldn't seeing the list of machines with description
be
>>>     more helpful.  >From an information standpoint the graph will
>>>       
> only
>   
>>>     show the user that the scores of the machines run from m to n.
>>>       
> So
>   
>>>     they will be picking an arbitrary point between the lowest and
>>>     highest value without much visibility over the nature of the
>>>     equipment that's being included and excluded.
>>>
>>>     I will do a bit of research to see if there's a graphing control
>>>       
> I
>   
>>>     can find so I don't have to reinvent the wheel.  Then maybe put
>>>       
> an
>   
>>>     button on the form to let the user choose tabular of graphic 
>>> format.
>>>
>>>     Requiring administrator access to change the cutoff point is
>>> easy.
>>>     
>>>       
>>   
>>     
>>>     I'll attend to that.  What's the next step?
>>>
>>>     Best,
>>>
>>>     Rocky
>>>
>>>      
>>>
>>>
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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


From bchacc at san.rr.com  Wed Jan 25 11:26:34 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Wed, 25 Jan 2006 09:26:34 -0800
Subject: [AccessD] [Fwd: Default Page Size]
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF54@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF54@INFOSERVER04.infostat.local>
Message-ID: <43D7B4CA.1000400@san.rr.com>

O.  But A2K has this printer object?  (Suppose I could go take a look 
for myself)

Rocky


Charlotte Foust wrote:
> No, Rocky.  Remember, this is older code that predates the Access
> Printer object.  The user sets a paper option in the app configuration
> to tell us whether he uses letter/legal or A4 paper.  
>
> Charlotte
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Wednesday, January 25, 2006 8:54 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> So you poll the printer class to see what paper was selected? Very
> slick.
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> No, code selects the appropriate report format based on the paper 
>> selection.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Tuesday, January 24, 2006 9:14 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>
>>
>> So do you have two formats of the same report, selectable by the user?
>>
>> Rocky
>>
>>
>> Charlotte Foust wrote:
>>   
>>     
>>> We format most of our reports to fit either now, which means we use
>>> paper length and A4 width when designing the report.  If you use 
>>> default printer, that's your only choice.  Otherwise, yes, you'd have
>>>       
>
>   
>>> to allow them to specify the paper size and you'd have to create some
>>>       
>
>   
>>> specially formatted A4 reports if they needed the longer paper
>>>       
> length.
>   
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>> Smolin
>>> - Beach Access Software
>>> Sent: Tuesday, January 24, 2006 10:44 AM
>>> To: Access Developers discussion and problem solving
>>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>>
>>>
>>> Charlotte:
>>>
>>> I'm not using any code.  I just use default printer.  This app could
>>> be
>>> running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to tie
>>>     
>>>       
>> the
>>   
>>     
>>> app to one size or another.  Apparently I'm going to have to put in
>>> some
>>>
>>> kind of preference for the user to select their paper size then?
>>>
>>> Rocky
>>>
>>>
>>> Charlotte Foust wrote:
>>>   
>>>     
>>>       
>>>> Rocky,
>>>>
>>>> What kind of code are you using to set the paper size?  There are 
>>>> actually papersize constants you can use to make it easier.  We use 
>>>> these in our Access apps to make the code easier to read:
>>>>
>>>> Public Const PAPER_LETTER As Integer = 1
>>>> Public Const PAPER_A4 As Integer = 9
>>>> Public Const PAPER_LEGAL As Integer = 5
>>>>
>>>> If you check the Access.Printer class, you'll get a list of the 
>>>> built in constants for AcPrintPaperSize, including acPRPSA4, 
>>>> acPRPSLetter, and acPRPSLegal, which have the same values as we use 
>>>> (our code was built before the Printer object became part of 
>>>> Access).  Whichever
>>>>       
>>>>         
>> you
>>   
>>     
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>>> use, it's what you have to pass to the printer to get the setting 
>>>> right.
>>>>
>>>> Charlotte Foust
>>>>
>>>>
>>>> -----Original Message-----
>>>> From: accessd-bounces at databaseadvisors.com
>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>>> Smolin
>>>> - Beach Access Software
>>>> Sent: Tuesday, January 24, 2006 9:31 AM
>>>> To: access Developers discussion and problem solving
>>>> Subject: [AccessD] [Fwd: Default Page Size]
>>>>
>>>>
>>>>
>>>>
>>>> Dear List:
>>>>
>>>> A guy in India with whom I'm developing a preventive maintenance app
>>>>         
>
>   
>>>> is using A4 paper.  The report I sent him apparently doesn't print 
>>>> the whole footer unless he changes the printer.  He writes:
>>>>
>>>> "The problem still persisted of the report saying only "page no 1 of
>>>> " and not showing the total no of pages and of the second page being
>>>>         
>
>   
>>>> a blank, but third page showing the second page (all this only in
>>>>         
> the
>   
>>>>     
>>>>       
>>>>         
>>> mtce
>>>   
>>>     
>>>       
>>>> sch. report). I have found the cause. I found that the page set up
>>>> was landscape and letter size. I changed the letter size to A4 and 
>>>> everything became ok! But I am not able to make it permanent - when
>>>>         
> I
>   
>>>>       
>>>>         
>>   
>>     
>>>> ask for the report the next time, the same problem. I had to again
>>>>     
>>>>       
>>>>         
>>> reset
>>>   
>>>     
>>>       
>>>> the page size. How do I make it stick?"
>>>>
>>>> But the other reports in the system apparently work OK.  The
>>>> File-->Page
>>>>
>>>> Setup parameters are the as the other reports - default printer is
>>>> checked - except this one is landscape.  Any ideas?
>>>>
>>>> MTIA
>>>>
>>>> Rocky Smolin
>>>> Beach Access Software
>>>> 858-259-4334
>>>> www.e-z-mrp.com
>>>>
>>>>
>>>> ----- Original Message -----
>>>>
>>>>     *From:* Rocky Smolin - Beach Access Software 
>>>> <mailto:bchacc at san.rr.com>
>>>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>>>     *Subject:* Re: PM?
>>>>
>>>>     Ram:
>>>>
>>>>     The graph can be done but it's not real easy in Access.  On the
>>>>         
> X
>   
>>>>     axis you would also lose visibility of what machines were
>>>>       
>>>>         
>> creating
>>   
>>     
>>>>     the scores on the Y axis.  The X axis would just be a sequence
>>>>     number.  Wouldn't seeing the list of machines with description
>>>>         
> be
>   
>>>>     more helpful.  >From an information standpoint the graph will
>>>>       
>>>>         
>> only
>>   
>>     
>>>>     show the user that the scores of the machines run from m to n.
>>>>       
>>>>         
>> So
>>   
>>     
>>>>     they will be picking an arbitrary point between the lowest and
>>>>     highest value without much visibility over the nature of the
>>>>     equipment that's being included and excluded.
>>>>
>>>>     I will do a bit of research to see if there's a graphing control
>>>>       
>>>>         
>> I
>>   
>>     
>>>>     can find so I don't have to reinvent the wheel.  Then maybe put
>>>>       
>>>>         
>> an
>>   
>>     
>>>>     button on the form to let the user choose tabular of graphic 
>>>> format.
>>>>
>>>>     Requiring administrator access to change the cutoff point is
>>>> easy.
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>>>     I'll attend to that.  What's the next step?
>>>>
>>>>     Best,
>>>>
>>>>     Rocky
>>>>
>>>>      
>>>>
>>>>
>>>>   
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From cfoust at infostatsystems.com  Wed Jan 25 11:57:12 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 25 Jan 2006 09:57:12 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <F55048AF7E974F429BB24597D7355EEABF56@INFOSERVER04.infostat.local>

I don't think so.  I know AXP does, but I don't recall it in A2k.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Wednesday, January 25, 2006 9:27 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] [Fwd: Default Page Size]


O.  But A2K has this printer object?  (Suppose I could go take a look 
for myself)

Rocky


Charlotte Foust wrote:
> No, Rocky.  Remember, this is older code that predates the Access 
> Printer object.  The user sets a paper option in the app configuration

> to tell us whether he uses letter/legal or A4 paper.
>
> Charlotte
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Wednesday, January 25, 2006 8:54 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> So you poll the printer class to see what paper was selected? Very 
> slick.
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> No, code selects the appropriate report format based on the paper
>> selection.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>> Smolin
>> - Beach Access Software
>> Sent: Tuesday, January 24, 2006 9:14 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>
>>
>> So do you have two formats of the same report, selectable by the 
>> user?
>>
>> Rocky
>>
>>
>> Charlotte Foust wrote:
>>   
>>     
>>> We format most of our reports to fit either now, which means we use 
>>> paper length and A4 width when designing the report.  If you use 
>>> default printer, that's your only choice.  Otherwise, yes, you'd 
>>> have
>>>       
>
>   
>>> to allow them to specify the paper size and you'd have to create 
>>> some
>>>       
>
>   
>>> specially formatted A4 reports if they needed the longer paper
>>>       
> length.
>   
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>> Smolin
>>> - Beach Access Software
>>> Sent: Tuesday, January 24, 2006 10:44 AM
>>> To: Access Developers discussion and problem solving
>>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>>
>>>
>>> Charlotte:
>>>
>>> I'm not using any code.  I just use default printer.  This app could

>>> be running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to 
>>> tie
>>>     
>>>       
>> the
>>   
>>     
>>> app to one size or another.  Apparently I'm going to have to put in 
>>> some
>>>
>>> kind of preference for the user to select their paper size then?
>>>
>>> Rocky
>>>
>>>
>>> Charlotte Foust wrote:
>>>   
>>>     
>>>       
>>>> Rocky,
>>>>
>>>> What kind of code are you using to set the paper size?  There are
>>>> actually papersize constants you can use to make it easier.  We use

>>>> these in our Access apps to make the code easier to read:
>>>>
>>>> Public Const PAPER_LETTER As Integer = 1
>>>> Public Const PAPER_A4 As Integer = 9
>>>> Public Const PAPER_LEGAL As Integer = 5
>>>>
>>>> If you check the Access.Printer class, you'll get a list of the
>>>> built in constants for AcPrintPaperSize, including acPRPSA4, 
>>>> acPRPSLetter, and acPRPSLegal, which have the same values as we use

>>>> (our code was built before the Printer object became part of 
>>>> Access).  Whichever
>>>>       
>>>>         
>> you
>>   
>>     
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>>> use, it's what you have to pass to the printer to get the setting
>>>> right.
>>>>
>>>> Charlotte Foust
>>>>
>>>>
>>>> -----Original Message-----
>>>> From: accessd-bounces at databaseadvisors.com
>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>>> Smolin
>>>> - Beach Access Software
>>>> Sent: Tuesday, January 24, 2006 9:31 AM
>>>> To: access Developers discussion and problem solving
>>>> Subject: [AccessD] [Fwd: Default Page Size]
>>>>
>>>>
>>>>
>>>>
>>>> Dear List:
>>>>
>>>> A guy in India with whom I'm developing a preventive maintenance 
>>>> app
>>>>         
>
>   
>>>> is using A4 paper.  The report I sent him apparently doesn't print
>>>> the whole footer unless he changes the printer.  He writes:
>>>>
>>>> "The problem still persisted of the report saying only "page no 1 
>>>> of " and not showing the total no of pages and of the second page 
>>>> being
>>>>         
>
>   
>>>> a blank, but third page showing the second page (all this only in
>>>>         
> the
>   
>>>>     
>>>>       
>>>>         
>>> mtce
>>>   
>>>     
>>>       
>>>> sch. report). I have found the cause. I found that the page set up 
>>>> was landscape and letter size. I changed the letter size to A4 and 
>>>> everything became ok! But I am not able to make it permanent - when
>>>>         
> I
>   
>>>>       
>>>>         
>>   
>>     
>>>> ask for the report the next time, the same problem. I had to again
>>>>     
>>>>       
>>>>         
>>> reset
>>>   
>>>     
>>>       
>>>> the page size. How do I make it stick?"
>>>>
>>>> But the other reports in the system apparently work OK.  The
>>>> File-->Page
>>>>
>>>> Setup parameters are the as the other reports - default printer is 
>>>> checked - except this one is landscape.  Any ideas?
>>>>
>>>> MTIA
>>>>
>>>> Rocky Smolin
>>>> Beach Access Software
>>>> 858-259-4334
>>>> www.e-z-mrp.com
>>>>
>>>>
>>>> ----- Original Message -----
>>>>
>>>>     *From:* Rocky Smolin - Beach Access Software
>>>> <mailto:bchacc at san.rr.com>
>>>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>>>     *Subject:* Re: PM?
>>>>
>>>>     Ram:
>>>>
>>>>     The graph can be done but it's not real easy in Access.  On the
>>>>         
> X
>   
>>>>     axis you would also lose visibility of what machines were
>>>>       
>>>>         
>> creating
>>   
>>     
>>>>     the scores on the Y axis.  The X axis would just be a sequence
>>>>     number.  Wouldn't seeing the list of machines with description
>>>>         
> be
>   
>>>>     more helpful.  >From an information standpoint the graph will
>>>>       
>>>>         
>> only
>>   
>>     
>>>>     show the user that the scores of the machines run from m to n.
>>>>       
>>>>         
>> So
>>   
>>     
>>>>     they will be picking an arbitrary point between the lowest and
>>>>     highest value without much visibility over the nature of the
>>>>     equipment that's being included and excluded.
>>>>
>>>>     I will do a bit of research to see if there's a graphing 
>>>> control
>>>>       
>>>>         
>> I
>>   
>>     
>>>>     can find so I don't have to reinvent the wheel.  Then maybe put
>>>>       
>>>>         
>> an
>>   
>>     
>>>>     button on the form to let the user choose tabular of graphic
>>>> format.
>>>>
>>>>     Requiring administrator access to change the cutoff point is 
>>>> easy.
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>>>     I'll attend to that.  What's the next step?
>>>>
>>>>     Best,
>>>>
>>>>     Rocky
>>>>
>>>>      
>>>>
>>>>
>>>>   
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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


From djkr at msn.com  Wed Jan 25 12:25:34 2006
From: djkr at msn.com (DJK(John) Robinson)
Date: Wed, 25 Jan 2006 18:25:34 -0000
Subject: [AccessD] bust out the math books
In-Reply-To: <002201c621c3$7a125940$017ba8c0@xpserver>
Message-ID: <BAY106-DAV96ADDB477776F790474B4D2120@phx.gbl>

But this is NOT a round-off problem!  Just a reminder.  :-)

J


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
Sent: 25 January 2006 15:25
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] bust out the math books


Hi Scott:

There must be a round off error somewhere in the process. As I am just
finishing off an accounting system this problem has always been apparent.
There are a few ways that accounting applications resolve the round off
error.

1. Store all values as integers and perform any math using those integers.
Example (assuming 6 significant places are required.) 

Value 0.884746 would become 884746 with a mantissa of 6. All subsequent
calculations are performed in integer math or logs are used. (Adding instead
of multiple and subtract instead of dividing.)

2. In the case of a multiplication or division being required the
calculation is performed once and then the values are managed again as
integers. This is particularly true when applying taxes to invoicing.
Example (given that the state or provincial tax is 6.5% and the federal tax
is 7.0%.)

The taxes are applied immediately then added from there on. In appropriate
tax is generated per item: 

Given:
Subtotal 	PST		GST		Displayed/Saved Total
123.56	8.0314	8.6492 	
		8.03		8.65		140.24	
456.23	29.65495	31.9361
  		29.66		31.94		61.60
+
579.79	+37.69	+ 40.59	=658.07	right-way

579.79	* 1.135% (total tax)	=658.06	wrong-way

When tax totals are generated then all the tax subtotals are just added
together. In theory, all the subtotals could be added and the total tax
could be calculated but the answer would be wrong. This is the same problem
experience when trying to calculate the average by item and then expecting
the average for the whole group to add up. It never will.

HTH
Jim


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Scott Marcus
Sent: January 25, 2006 4:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] bust out the math books

Mathematical answer...

C1 = Total
C2 = Sample Size
C3 = Average

C1  C2  C3
===========
A   B   A/B
C   D   C/D
E   F   E/F
G   H   G/H
I   J   I/J


Real average = (A+C+E+G+I)/BDFHJ

Average of averages = (A/B + C/D + E/F + G/H + I/J)/5

Which equals...
((ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/(BDFHJ))/5
                    

Which equals...
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


(A+C+E+G+I)/BDFHJ does not equal 
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


Scott Marcus                   

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco Tapia
Sent: Tuesday, January 24, 2006 7:50 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books

can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to why
I can't just average column C3 to get the 90%, instead I end up with 88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
 





NOTICE:  This electronic mail transmission is for the use of the named
individual or entity to which it is directed and may contain information
that is privileged or confidential.  If you are not the intended recipient,
any disclosure, copying, distribution or use of the contents of any
information contained herein is prohibited.  If you have received this
electronic mail transmission in error, delete it from your system without
copying or forwarding it, and notify the sender of the error by replying via
email or calling TSS Technologies at (513) 772-7000, so that our address
record can be corrected.  Any information included in this email is provided
on an as is and where as basis, and TSS Technologies makes no
representations or warranties of any kind with respect to the completeness
or accuracy of the information contained in this email. 

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


From dw-murphy at cox.net  Wed Jan 25 12:43:40 2006
From: dw-murphy at cox.net (Doug Murphy)
Date: Wed, 25 Jan 2006 10:43:40 -0800
Subject: [AccessD] Outlook automation - use a template for a message
In-Reply-To: <46B976F2B698FF46A4FE7636509B22DF1B62E0@stekelbes.ithelps.local>
Message-ID: <000001c621df$433eca90$0200a8c0@murphyf3vdfepi>

Erwin,

That is great.  Thank you!  I'll try it out.

Doug

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps - IT
Helps
Sent: Wednesday, January 25, 2006 3:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Outlook automation - use a template for a message


The problem lies in the CreateItemFromTemplate.
I see after creating the item from template it also adds my regular footer
above the template. This is probably why your replacefields get at the
bottom. In some occasions I simulated the problem, it also messes up the
format of my template.

I use a different approach using a HTML template, may I suggest you to use
this one? The advantage is that you can use regular HTML editors, like
Frontpage, to create your template and you have access to both the design
and HTML source. For what concerns stiff resistance against HTML, I find
that a discussion like between using DOS and Windows. RTF is from a security
point of view not that more secure and is outdated by HTML. Plain text
e-mails is for what concerns me should dead a long time ago pointless these
days. If you want to present something is a decent fashion, you gonna need
formatting and hyperlinks. I am however against adding pictures (files) in
mass E-mails to minimize size. I always use hyperlinks to my website where
the pictures reside. As in the example I give you. Further more its better
for statistics because I see in my weblog how many users have opened my mail
or even forwarded it to someone else (depending on the situation).


To make this code work you need to download the HTML template and save in
into your C:\temp folder. http://www.ithelps.be/temp/SampleVideo2.htm

To view the result after running the code see
http://www.ithelps.be/temp/NewVideo.msg


Beneath is the code I trimmed from my e-mail marketing function. You can
also download it from http://www.ithelps.be/temp/TestHTMLBodyEmail.txt

Small note:
I use [[fieldtoreplace]] brackets instead of <fieldtoreplace>. <> get's
replaced by &something in HTML code. I also find that [[]] is more unique
than <> to avoid replacement problems.


Public Function TestHTMLBody()
    Dim strPromoTemplatePathAndFile  As String
    Dim strHTMLPromoTemplate As String
    Dim strHTMLPromoTemplateTEMP As String
    Dim lngLOF As Long
    Dim strFind As String
    Dim strReplace As String
    Dim strMailSubject As String
    Dim oOut As Outlook.Application
    Dim mItem As Outlook.MailItem
    
    'Path and filename to HTML template
    'Locate at your server so you only have one master file for all users.
    strPromoTemplatePathAndFile = "C:\temp\SampleVideo2.htm"
    strMailSubject = "Some mail subject"
    
    'Open templatefile and load HTML code in a variable
    Open strPromoTemplatePathAndFile For Binary As #1
    lngLOF = LOF(1)
    strHTMLPromoTemplate = Space(lngLOF)
    Get #1, 1, strHTMLPromoTemplate
    Close #1
    
    'Copy HTML code in temporary variable
    strHTMLPromoTemplateTEMP = strHTMLPromoTemplate
    
    'Replace fields in HTML with real data
    strFind = "[[NAME]]"
    strReplace = "Craps"
    strHTMLPromoTemplateTEMP = Replace(strHTMLPromoTemplateTEMP, strFind,
strReplace, 1, , vbDatabaseCompare)
                
    strFind = "[[DATE]]"
    strReplace = Date
    strHTMLPromoTemplateTEMP = Replace(strHTMLPromoTemplateTEMP, strFind,
strReplace, 1, , vbDatabaseCompare)
    
    strFind = "[[FIRSTNAME]]"
    strReplace = "Erwin"
    strHTMLPromoTemplateTEMP = Replace(strHTMLPromoTemplateTEMP, strFind,
strReplace, 1, , vbDatabaseCompare)
    
                
                
    'create new e-mailitem and display without sending
    Set oOut = New Outlook.Application
    Set mItem = oOut.CreateItem(olMailItem)
    With mItem
        .To = "dw-murphy at cox.net"
        .Subject = "New Video"
        .HTMLBody = strHTMLPromoTemplateTEMP
        .Display
    End With
    
    Set mItem = Nothing
    Set oOut = Nothing
    
    
End Function
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From accessd at shaw.ca  Wed Jan 25 13:16:53 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Wed, 25 Jan 2006 11:16:53 -0800
Subject: [AccessD] bust out the math books
In-Reply-To: <43D83961.24003.7FFEAF7@stuart.lexacorp.com.pg>
Message-ID: <000301c621e3$e7285230$017ba8c0@xpserver>

Stuart:

Fortran resolved these sort of issues by using 64/128 byte floating numbers.
The values were so large that a round-off error would disappear if a result
was displayed with a mere 10 significant digits. 

Of course these errors may simply be the result of bad coding but I took the
stance that if the programming was correct then core round-off errors were
the logical culprit and whether the issue was displayed in 20 digits or 2 is
irrelevant. 

Regards
Jim 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: January 25, 2006 8:52 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] bust out the math books

On 25 Jan 2006 at 7:24, Jim Lawrence wrote:

 
> When tax totals are generated then all the tax subtotals are just added
> together. In theory, all the subtotals could be added and the total tax
> could be calculated but the answer would be wrong. This is the same
problem
> experience when trying to calculate the average by item and then expecting
> the average for the whole group to add up. It never will.
> 

No, the two are completely separate problems.

Tax totalling problems are caused by rounding errors inherent in the 
process of working with currency which has a minimum sized unit (a cent or 
whatever).  Averaging problems are caused by false assumptions about the 
underlying maths by the  person writing the code.



-- 
Stuart


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



From martyconnelly at shaw.ca  Wed Jan 25 13:35:41 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Wed, 25 Jan 2006 11:35:41 -0800
Subject: [AccessD] OT - Acessing File DSN Coonection String Using VB6
References: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAADoEkuIW2rYTr/ZPwhTm25NAQAAAAA=@isharp.co.uk>
Message-ID: <43D7D30D.7050106@shaw.ca>

Any easy way to get the connection string if you know the DSN
Open an empty file in notepad then immediately save with a name MyDSN.udl
then double click on MyDSN.udl in explorer
This will bring up the Data Link Properties  essentialy one of the 
control applets
Select the Connections Tab
select 1. use data source names and from the combobox select the DSN
Now click OK
Now reopen MyDSN.udl in notepad and you will see the saved connection 
string.
This file is actually binary not text format

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnsqlmag2k/html/LinkAPI.asp

I believe there is some way to get at the DataLink API
via something like

Set dl = New MSDASC.DataLinks

Paul Hartland (ISHARP) wrote:

>To all,
>
>Don't know if this is possible I have a File DSN on my machine and what I
>want to do is access it using VB6 and get various properties of it like the
>connection string etc.  Has anyone done this before or can point me in the
>right direction on how to go about this if it is possible.
>
>Thanks in advance.
>
>Paul Hartland
>Database Developer
>
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From marcus at tsstech.com  Wed Jan 25 15:31:24 2006
From: marcus at tsstech.com (Scott Marcus)
Date: Wed, 25 Jan 2006 16:31:24 -0500
Subject: [AccessD] bust out the math books
Message-ID: <B7B1803D6973C84F97D412AFCDA8EA7D016F6955@2003exchg.TSS.AD>

Jim,

The problem is not a rounding error. The real average and the average of
averages are two distinct values. If they equal, it is only by
coincidence.

Scott Marcus

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
Sent: Wednesday, January 25, 2006 10:25 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] bust out the math books

Hi Scott:

There must be a round off error somewhere in the process. As I am just
finishing off an accounting system this problem has always been
apparent.
There are a few ways that accounting applications resolve the round off
error.

1. Store all values as integers and perform any math using those
integers.
Example (assuming 6 significant places are required.) 

Value 0.884746 would become 884746 with a mantissa of 6. All subsequent
calculations are performed in integer math or logs are used. (Adding
instead
of multiple and subtract instead of dividing.)

2. In the case of a multiplication or division being required the
calculation is performed once and then the values are managed again as
integers. This is particularly true when applying taxes to invoicing.
Example (given that the state or provincial tax is 6.5% and the federal
tax
is 7.0%.)

The taxes are applied immediately then added from there on. In
appropriate
tax is generated per item: 

Given:
Subtotal 	PST		GST		Displayed/Saved Total
123.56	8.0314	8.6492 	
		8.03		8.65		140.24	
456.23	29.65495	31.9361
  		29.66		31.94		61.60
+
579.79	+37.69	+ 40.59	=658.07	right-way

579.79	* 1.135% (total tax)	=658.06	wrong-way

When tax totals are generated then all the tax subtotals are just added
together. In theory, all the subtotals could be added and the total tax
could be calculated but the answer would be wrong. This is the same
problem
experience when trying to calculate the average by item and then
expecting
the average for the whole group to add up. It never will.

HTH
Jim


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Scott Marcus
Sent: January 25, 2006 4:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] bust out the math books

Mathematical answer...

C1 = Total
C2 = Sample Size
C3 = Average

C1  C2  C3
===========
A   B   A/B
C   D   C/D
E   F   E/F
G   H   G/H
I   J   I/J


Real average = (A+C+E+G+I)/BDFHJ

Average of averages = (A/B + C/D + E/F + G/H + I/J)/5

Which equals...
((ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/(BDFHJ))/5
                    

Which equals...
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


(A+C+E+G+I)/BDFHJ does not equal 
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


Scott Marcus                   

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco
Tapia
Sent: Tuesday, January 24, 2006 7:50 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books

can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to
why
I can't just average column C3 to get the 90%, instead I end up with
88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
 





NOTICE:  This electronic mail transmission is for the use of the named
individual or entity to which it is directed and may contain information
that is privileged or confidential.  If you are not the intended
recipient,
any disclosure, copying, distribution or use of the contents of any
information contained herein is prohibited.  If you have received this
electronic mail transmission in error, delete it from your system
without
copying or forwarding it, and notify the sender of the error by replying
via
email or calling TSS Technologies at (513) 772-7000, so that our address
record can be corrected.  Any information included in this email is
provided
on an as is and where as basis, and TSS Technologies makes no
representations or warranties of any kind with respect to the
completeness
or accuracy of the information contained in this email. 

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


From stuart at lexacorp.com.pg  Wed Jan 25 16:32:05 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Thu, 26 Jan 2006 08:32:05 +1000
Subject: [AccessD] OT - Acessing File DSN Coonection String Using VB6
In-Reply-To: <43D7D30D.7050106@shaw.ca>
Message-ID: <43D88905.17452.9370414@stuart.lexacorp.com.pg>

On 25 Jan 2006 at 11:35, MartyConnelly wrote:

> Any easy way to get the connection string if you know the DSN
> Open an empty file in notepad then immediately save with a name MyDSN.udl
> then double click on MyDSN.udl in explorer This will bring up the Data Link
> Properties  essentialy one of the control applets Select the Connections Tab
> select 1. use data source names and from the combobox select the DSN Now
> click OK Now reopen MyDSN.udl in notepad and you will see the saved
> connection string. This file is actually binary not text format
> 

No, it's another plain text file, just like a File DSN except that it 
stores the complete connection string in one line which is semi-colon 
delimited rather than as one value per line.  So it's harder to 
parse/manipulate that a File DSN, but easier to grab the complete 
ConnectionString.


-- 
Stuart




From martyconnelly at shaw.ca  Wed Jan 25 18:15:24 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Wed, 25 Jan 2006 16:15:24 -0800
Subject: [AccessD] OT - Acessing File DSN Coonection String Using VB6
References: <43D88905.17452.9370414@stuart.lexacorp.com.pg>
Message-ID: <43D8149C.3010007@shaw.ca>

Well the microsoft guys seem to write it as binary Unicode complete with 
a UTF-16 little-endian BOM marker.
It might look different opening it with the old Win95 notepad which 
can't handle saving in unicode.

http://msdn.microsoft.com/library/en-us/dnsqlmag2k/html/apilisting_02.txt

Look under paragraph   Saving the .udl File
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnsqlmag2k/html/LinkAPI.asp

Stuart McLachlan wrote:

>On 25 Jan 2006 at 11:35, MartyConnelly wrote:
>
>  
>
>>Any easy way to get the connection string if you know the DSN
>>Open an empty file in notepad then immediately save with a name MyDSN.udl
>>then double click on MyDSN.udl in explorer This will bring up the Data Link
>>Properties  essentialy one of the control applets Select the Connections Tab
>>select 1. use data source names and from the combobox select the DSN Now
>>click OK Now reopen MyDSN.udl in notepad and you will see the saved
>>connection string. This file is actually binary not text format
>>
>>    
>>
>
>No, it's another plain text file, just like a File DSN except that it 
>stores the complete connection string in one line which is semi-colon 
>delimited rather than as one value per line.  So it's harder to 
>parse/manipulate that a File DSN, but easier to grab the complete 
>ConnectionString.
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From stuart at lexacorp.com.pg  Wed Jan 25 19:09:50 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Thu, 26 Jan 2006 11:09:50 +1000
Subject: [AccessD] OT - Acessing File DSN Coonection String Using VB6
In-Reply-To: <43D8149C.3010007@shaw.ca>
Message-ID: <43D8ADFE.23571.9C7709D@stuart.lexacorp.com.pg>

On 25 Jan 2006 at 16:15, MartyConnelly wrote:

> Well the microsoft guys seem to write it as binary Unicode complete with a
> UTF-16 little-endian BOM marker. It might look different opening it with the
> old Win95 notepad which can't handle saving in unicode.
> 

It's still a text file, it's just that  it's UTF-16 not  ASCII encoded.   

To quote Joel Spolsky in his article "The Absolute Minimum Every Software 
Developer Absolutely, Positively Must Know About Unicode and Character Sets 
(No Excuses!)" http://www.joelonsoftware.com/articles/Unicode.html :

<quote>
It does not make sense to have a string without knowing what encoding it 
uses. You can no longer stick your head in the sand and pretend that 
"plain" text is ASCII.
</quote>

As long as you use a Unicode capable text editor, such as the freeware 
Crimson Editor which I use, you can create/edit a UDL in it.  

The INI file routines that I posted a few days ago also work to read/write 
to the file - as long as you create the UDL first as a Unicode encoded text 
file with the correct second line comment.)




-- 
Stuart




From cfoust at infostatsystems.com  Wed Jan 25 19:34:49 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 25 Jan 2006 17:34:49 -0800
Subject: [AccessD] Access 2003 SourceSafe Plugin
Message-ID: <F55048AF7E974F429BB24597D7355EEABF59@INFOSERVER04.infostat.local>

To anyone interested, here's the link where you can download the
SourceSafe plugin for Access 2003.
http://msdn.microsoft.com/vstudio/previous/ssafe/

Charlotte Foust
Infostat Systems, Inc.


From jmhecht at earthlink.net  Wed Jan 25 20:24:05 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 25 Jan 2006 18:24:05 -0800
Subject: [AccessD] Access 2003 SourceSafe Plugin
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF59@INFOSERVER04.infostat.local>
Message-ID: <001401c6221f$94b888d0$6701a8c0@HPLaptop>

Is this all you need?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 25, 2006 5:35 PM
To: AccessD at databaseadvisors.com
Subject: [AccessD] Access 2003 SourceSafe Plugin

To anyone interested, here's the link where you can download
the
SourceSafe plugin for Access 2003.
http://msdn.microsoft.com/vstudio/previous/ssafe/

Charlotte Foust
Infostat Systems, Inc.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From martyconnelly at shaw.ca  Thu Jan 26 01:41:45 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Wed, 25 Jan 2006 23:41:45 -0800
Subject: [AccessD] OT - Acessing File DSN Coonection String Using VB6
References: <43D8ADFE.23571.9C7709D@stuart.lexacorp.com.pg>
Message-ID: <43D87D39.3030208@shaw.ca>

Yup I have run into that character encoding and character set  problems 
with XML files a few years back,
 I remember discussing it with Pedro Gill a few years back
http://www.geocities.com/pmpg98_pt/CharacterEncoding.html

But I got around the problem he had with double BOM's and changing 
character encodings.
Most XML parsers check the BOM of an input file first.
I suppose you could use something like this code below
to change a text file using ADO streams from say ISO-8859-5 to Unicode 
or even Chinese Big 5
or say UTF-8 to UTF-16.
You need a hex editor to check your results fully and see the BOM's.



' ReadUTF8SaveFileInUTF16 "C:\XML\Gil 
Encodings\XM8_UTF_vb.xml","C:\XML\Gil Encodings\test16.xml"
Sub ReadUTF8SaveFileInUTF16(strFileIn As String, strFileOut As String)
'1/2 ReadToFile / SaveToFile snippet
'http://www.codeproject.com/soap/XMJFileStreaming.asp?msg=841289&mode=all&userid=903408#xx767979xx
'used ado 2.7
Dim stm As ADODB.stream
Dim strPath As String
Dim strData As String

'the character set names for the machine are in the registry
'For a list of the character set strings that is known by a system, see
'the subkeys of HKEY_CLASSES_ROOT\MIME\Database\Charset
'in the Windows Registry.

  Set stm = New ADODB.stream
  stm.Open
  stm.Charset = "UTF-8" 'input file character set
  stm.Position = 0
  stm.Type = adTypeText
  '
  stm.LoadFromFile strFileIn
   ' if you just try and dump out stream
   ' without reading and writing you get a double BOM
  
   stm.Position = 0 'reset to beginning of stream
   Dim strDataout
   strData = stm.ReadText()
  ' line below used to change encoding instruction for xml files
  '  <?xml version="1.0" encoding="UTF-16" ?>
 
     strData = Replace(strData, "utf-8", "UTF-16", 1, 1)
   Debug.Print strData
   stm.Position = 0
   ' set output file character set
   stm.Charset = "UTF-16" ' "Unicode" '"iso-8859-1" "ascii" '"Big5" 
'"hebrew"
   stm.WriteText (strData)
 stm.SaveToFile strFileOut, adSaveCreateOverWrite
 stm.Close
 Set stm = Nothing
End Sub

Stuart McLachlan wrote:

>On 25 Jan 2006 at 16:15, MartyConnelly wrote:
>
>  
>
>>Well the microsoft guys seem to write it as binary Unicode complete with a
>>UTF-16 little-endian BOM marker. It might look different opening it with the
>>old Win95 notepad which can't handle saving in unicode.
>>
>>    
>>
>
>It's still a text file, it's just that  it's UTF-16 not  ASCII encoded.   
>
>To quote Joel Spolsky in his article "The Absolute Minimum Every Software 
>Developer Absolutely, Positively Must Know About Unicode and Character Sets 
>(No Excuses!)" http://www.joelonsoftware.com/articles/Unicode.html :
>
><quote>
>It does not make sense to have a string without knowing what encoding it 
>uses. You can no longer stick your head in the sand and pretend that 
>"plain" text is ASCII.
></quote>
>
>As long as you use a Unicode capable text editor, such as the freeware 
>Crimson Editor which I use, you can create/edit a UDL in it.  
>
>The INI file routines that I posted a few days ago also work to read/write 
>to the file - as long as you create the UDL first as a Unicode encoded text 
>file with the correct second line comment.)
>
>
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From accessd at shaw.ca  Thu Jan 26 05:31:21 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Thu, 26 Jan 2006 03:31:21 -0800
Subject: [AccessD] OT The new Windows Vista
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF59@INFOSERVER04.infostat.local>
Message-ID: <000201c6226c$08406c90$017ba8c0@xpserver>

OT:

Another write up on the new vita:
http://www.cooltechzone.com/index.php?option=com_content&task=view&Itemid=0&
id=2166&limit=1&limitstart=0

Jim



From cfoust at infostatsystems.com  Thu Jan 26 10:12:28 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 26 Jan 2006 08:12:28 -0800
Subject: [AccessD] Access 2003 SourceSafe Plugin
Message-ID: <F55048AF7E974F429BB24597D7355EEABF5B@INFOSERVER04.infostat.local>

Well, you also need SourceSafe 6.x installed and Access 2003, but what
did you have in mind?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 25, 2006 6:24 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Access 2003 SourceSafe Plugin


Is this all you need?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 25, 2006 5:35 PM
To: AccessD at databaseadvisors.com
Subject: [AccessD] Access 2003 SourceSafe Plugin

To anyone interested, here's the link where you can download the
SourceSafe plugin for Access 2003.
http://msdn.microsoft.com/vstudio/previous/ssafe/

Charlotte Foust
Infostat Systems, Inc.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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


From bheid at appdevgrp.com  Thu Jan 26 10:18:41 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 26 Jan 2006 11:18:41 -0500
Subject: [AccessD] Strange flickering problem.
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E4B@ADGSERVER>

Hey,

Doing some work on-site for a client using Access 2000.  I am updating an
existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.  Their
are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes), and
go to do something else, Excel, email, etc., when I come back to the Access
IDE, it will be flickering very badly.  Through task list, I see 100% CPU,
with Access taking maybe 50% and explorer taking up most of the rest.  I
have not left it more than about 15 minutes before killing Access.  Task
list shows Access as running during this.  After killing Access the system
is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby



From cfoust at infostatsystems.com  Thu Jan 26 10:30:57 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 26 Jan 2006 08:30:57 -0800
Subject: [AccessD] Strange flickering problem.
Message-ID: <F55048AF7E974F429BB24597D7355EEABF5E@INFOSERVER04.infostat.local>

In my experience, the IDE does tend to flicker when intense execution is
going on, because focus is shifting back and forth from the IDE to the
UI.  Why have the IDE open at all if you're running macros?  All you
need for that is the interface and you can build one or more macros to
call other macros, so it's not really necessry to use the immediate
window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I am updating
an existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.
Their are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes),
and go to do something else, Excel, email, etc., when I come back to the
Access IDE, it will be flickering very badly.  Through task list, I see
100% CPU, with Access taking maybe 50% and explorer taking up most of
the rest.  I have not left it more than about 15 minutes before killing
Access.  Task list shows Access as running during this.  After killing
Access the system is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby

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


From cyx5 at cdc.gov  Thu Jan 26 10:36:03 2006
From: cyx5 at cdc.gov (Nicholson, Karen)
Date: Thu, 26 Jan 2006 11:36:03 -0500
Subject: [AccessD] Download Latest Version AND Deploy Desktop Shortcut
Message-ID: <A5B5AA20555F594BA7B6BD2048E49E4303624DE5@m-niosh-5.niosh.cdc.gov>

I have a procedure in place to download the latest version of a
front-end to each user's pc when my Access application is opened.  What
I did not count on were various shortcuts on users desktops pointing to
various locations for this database.  Why, I even have one user who is
pointing to c:\JUNK\blaah blaah blaah.  Does anyone know of a way to
download the correct shortcut to the desktops automagically?

Karen S. Nicholson
Programmer Analyst
EG&G Technical Services, Inc.
Pittsburgh, PA
Phone: 412-386-6649
Email: cyx5 at cdc.gov




From Gustav at cactus.dk  Thu Jan 26 10:53:10 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 26 Jan 2006 17:53:10 +0100
Subject: [AccessD] Strange flickering problem.
Message-ID: <s3d90ca0.054@cactus.dk>

Hi Bobby

Does Access's memory consumption rise as well?
Did you read my posting yesterday:

Memory usage at import of MySQL tables (DoEvents Magic)

/gustav

>>> bheid at appdevgrp.com 26-01-2006 17:18:41 >>>
Hey,

Doing some work on-site for a client using Access 2000.  I am updating an
existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.  Their
are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes), and
go to do something else, Excel, email, etc., when I come back to the Access
IDE, it will be flickering very badly.  Through task list, I see 100% CPU,
with Access taking maybe 50% and explorer taking up most of the rest.  I
have not left it more than about 15 minutes before killing Access.  Task
list shows Access as running during this.  After killing Access the system
is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby



From jwelz at hotmail.com  Thu Jan 26 11:15:50 2006
From: jwelz at hotmail.com (=?iso-8859-1?Q?J=FCrgen_Welz?=)
Date: Thu, 26 Jan 2006 10:15:50 -0700
Subject: [AccessD] Outlook automation - use a template for a message
Message-ID: <BAY113-W2C33CF467F065192F29C5A1150@phx.gbl>

Dealing with the nITzis for a couple days now on something that might be of interest.  I had a couple users who couldn't open a report and Access throws a '2501 The OpenReport action was canceled.'
 
I have functions that change default sql parameters based on the user and their office and IT sets up rights to folders and I've got my own security running and some data if from various sources that require drivers.
 
It turns out that these users can't even use File - Print Preview on a plain lookup table.  Opening any preview from the database window results in a silent failure.  Opening any report from the Immediate window with a docmd OpenReport produces the error message.
 
IT tells me it is my problem because Access throws an error on my button click event.
 
The problem is that, apparently unlike other MS Office applications, Access uses some kind of print driver information to generate a print preview.  The problem is the same as when no printer is installed.  In this case, it is a problem with a Canon printer driver.  It took me nearly two hours to track down this problem a year ago when IT added a paper tray to one of the other office printers.  It was a particularly complex and convoluted report that a user was trying to open so there were dozens of things to check and I finally got permission to log in the user to track down the problem.
 
Lacking the basic ability to create a table with two entries and to select Print Preview from the file menu, IT asked me to send them a new MDB that demonstrated this problem outside of my application.  Of course Outlook blocked the attachment so I was asked to rename the file extension.  Their security prevents rename of file extension from Explorer (though it's easy enough in VBA and though I can no longer get a DOS window, I can shell a 'ren' command).  We finally have zip capability and I think these email OK.  Being bloody minded, I ask them how to rename the file extension and send an html link to the file instead.
 
This is ongoing.  In the mean time, I tell the users to select any other printer in the office as their default printer.
Ciao
J?rgen Welz
Edmonton Alberta
jwelz at hotmail.com
_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/

From developer at ultradnt.com  Thu Jan 26 11:18:49 2006
From: developer at ultradnt.com (Steve Conklin)
Date: Thu, 26 Jan 2006 12:18:49 -0500
Subject: [AccessD] Download Latest Version AND Deploy Desktop Shortcut
In-Reply-To: <A5B5AA20555F594BA7B6BD2048E49E4303624DE5@m-niosh-5.niosh.cdc.gov>
Message-ID: <200601261718.k0QHIj679049@ultradnt.com>

Create the shortcut on your workstation, pointintng to the proper location.
Copy this .LNK file  to the same location on the LAN that you are getting
the FE from, and copy it to the workstation in the same batch process.

There are different locations for Desktop in different versions of Windows.
For XP, use 
C:\Documents and Settings\%username%\Desktop as the target.

You might even want to name the LAN copy of the FE to whatever.OFF so it
can't be used by anyone browsing, and rename it to whatever.MDB while
copying it to the workstation.

Hth
Steve



 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Nicholson, Karen
Sent: Thursday, January 26, 2006 11:36 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Download Latest Version AND Deploy Desktop Shortcut

I have a procedure in place to download the latest version of a front-end to
each user's pc when my Access application is opened.  What I did not count
on were various shortcuts on users desktops pointing to various locations
for this database.  Why, I even have one user who is pointing to
c:\JUNK\blaah blaah blaah.  Does anyone know of a way to download the
correct shortcut to the desktops automagically?

Karen S. Nicholson
Programmer Analyst
EG&G Technical Services, Inc.
Pittsburgh, PA
Phone: 412-386-6649
Email: cyx5 at cdc.gov


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




From jmhecht at earthlink.net  Thu Jan 26 11:28:57 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 26 Jan 2006 09:28:57 -0800
Subject: [AccessD] Access 2003 SourceSafe Plugin
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF5B@INFOSERVER04.infostat.local>
Message-ID: <000601c6229d$fdb64ab0$6701a8c0@HPLaptop>

Doing this with out source safe.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Thursday, January 26, 2006 8:12 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Access 2003 SourceSafe Plugin

Well, you also need SourceSafe 6.x installed and Access
2003, but what
did you have in mind?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 25, 2006 6:24 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Access 2003 SourceSafe Plugin


Is this all you need?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 25, 2006 5:35 PM
To: AccessD at databaseadvisors.com
Subject: [AccessD] Access 2003 SourceSafe Plugin

To anyone interested, here's the link where you can download
the
SourceSafe plugin for Access 2003.
http://msdn.microsoft.com/vstudio/previous/ssafe/

Charlotte Foust
Infostat Systems, Inc.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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



From bchacc at san.rr.com  Thu Jan 26 11:25:23 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Thu, 26 Jan 2006 09:25:23 -0800
Subject: [AccessD] [Fwd: Default Page Size]
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF56@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF56@INFOSERVER04.infostat.local>
Message-ID: <43D90603.2020906@san.rr.com>

Charlotte:

I put this code:

If Me.fraPaperSize = 1 Then
    Access.Printer.PaperSize = acPRPSLetter
Else
    Access.Printer.PaperSize = acPRPSA4
End If


into the event that calls the report in question.  On my printer it 
doesn't print any differently with either setting but I would expect 
that, I guess as I haven't got any A4 paper to test it with.  I'll send 
it to the user to see if it solves the problem.

But have I got the code right?  Should it go in the open event of the 
report itself instead of the calling procedure in the form?

MTIA,

Rocky


Charlotte Foust wrote:
> I don't think so.  I know AXP does, but I don't recall it in A2k.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Wednesday, January 25, 2006 9:27 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> O.  But A2K has this printer object?  (Suppose I could go take a look 
> for myself)
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> No, Rocky.  Remember, this is older code that predates the Access 
>> Printer object.  The user sets a paper option in the app configuration
>>     
>
>   
>> to tell us whether he uses letter/legal or A4 paper.
>>
>> Charlotte
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Wednesday, January 25, 2006 8:54 AM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>
>>
>> So you poll the printer class to see what paper was selected? Very 
>> slick.
>>
>> Rocky
>>
>>
>> Charlotte Foust wrote:
>>   
>>     
>>> No, code selects the appropriate report format based on the paper
>>> selection.
>>>
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>> Smolin
>>> - Beach Access Software
>>> Sent: Tuesday, January 24, 2006 9:14 PM
>>> To: Access Developers discussion and problem solving
>>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>>
>>>
>>> So do you have two formats of the same report, selectable by the 
>>> user?
>>>
>>> Rocky
>>>
>>>
>>> Charlotte Foust wrote:
>>>   
>>>     
>>>       
>>>> We format most of our reports to fit either now, which means we use 
>>>> paper length and A4 width when designing the report.  If you use 
>>>> default printer, that's your only choice.  Otherwise, yes, you'd 
>>>> have
>>>>       
>>>>         
>>   
>>     
>>>> to allow them to specify the paper size and you'd have to create 
>>>> some
>>>>       
>>>>         
>>   
>>     
>>>> specially formatted A4 reports if they needed the longer paper
>>>>       
>>>>         
>> length.
>>   
>>     
>>>> Charlotte Foust
>>>>
>>>>
>>>> -----Original Message-----
>>>> From: accessd-bounces at databaseadvisors.com
>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>>> Smolin
>>>> - Beach Access Software
>>>> Sent: Tuesday, January 24, 2006 10:44 AM
>>>> To: Access Developers discussion and problem solving
>>>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>>>
>>>>
>>>> Charlotte:
>>>>
>>>> I'm not using any code.  I just use default printer.  This app could
>>>>         
>
>   
>>>> be running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to 
>>>> tie
>>>>     
>>>>       
>>>>         
>>> the
>>>   
>>>     
>>>       
>>>> app to one size or another.  Apparently I'm going to have to put in 
>>>> some
>>>>
>>>> kind of preference for the user to select their paper size then?
>>>>
>>>> Rocky
>>>>
>>>>
>>>> Charlotte Foust wrote:
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> Rocky,
>>>>>
>>>>> What kind of code are you using to set the paper size?  There are
>>>>> actually papersize constants you can use to make it easier.  We use
>>>>>           
>
>   
>>>>> these in our Access apps to make the code easier to read:
>>>>>
>>>>> Public Const PAPER_LETTER As Integer = 1
>>>>> Public Const PAPER_A4 As Integer = 9
>>>>> Public Const PAPER_LEGAL As Integer = 5
>>>>>
>>>>> If you check the Access.Printer class, you'll get a list of the
>>>>> built in constants for AcPrintPaperSize, including acPRPSA4, 
>>>>> acPRPSLetter, and acPRPSLegal, which have the same values as we use
>>>>>           
>
>   
>>>>> (our code was built before the Printer object became part of 
>>>>> Access).  Whichever
>>>>>       
>>>>>         
>>>>>           
>>> you
>>>   
>>>     
>>>       
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> use, it's what you have to pass to the printer to get the setting
>>>>> right.
>>>>>
>>>>> Charlotte Foust
>>>>>
>>>>>
>>>>> -----Original Message-----
>>>>> From: accessd-bounces at databaseadvisors.com
>>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>>>> Smolin
>>>>> - Beach Access Software
>>>>> Sent: Tuesday, January 24, 2006 9:31 AM
>>>>> To: access Developers discussion and problem solving
>>>>> Subject: [AccessD] [Fwd: Default Page Size]
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> Dear List:
>>>>>
>>>>> A guy in India with whom I'm developing a preventive maintenance 
>>>>> app
>>>>>         
>>>>>           
>>   
>>     
>>>>> is using A4 paper.  The report I sent him apparently doesn't print
>>>>> the whole footer unless he changes the printer.  He writes:
>>>>>
>>>>> "The problem still persisted of the report saying only "page no 1 
>>>>> of " and not showing the total no of pages and of the second page 
>>>>> being
>>>>>         
>>>>>           
>>   
>>     
>>>>> a blank, but third page showing the second page (all this only in
>>>>>         
>>>>>           
>> the
>>   
>>     
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>> mtce
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> sch. report). I have found the cause. I found that the page set up 
>>>>> was landscape and letter size. I changed the letter size to A4 and 
>>>>> everything became ok! But I am not able to make it permanent - when
>>>>>         
>>>>>           
>> I
>>   
>>     
>>>>>       
>>>>>         
>>>>>           
>>>   
>>>     
>>>       
>>>>> ask for the report the next time, the same problem. I had to again
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>> reset
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> the page size. How do I make it stick?"
>>>>>
>>>>> But the other reports in the system apparently work OK.  The
>>>>> File-->Page
>>>>>
>>>>> Setup parameters are the as the other reports - default printer is 
>>>>> checked - except this one is landscape.  Any ideas?
>>>>>
>>>>> MTIA
>>>>>
>>>>> Rocky Smolin
>>>>> Beach Access Software
>>>>> 858-259-4334
>>>>> www.e-z-mrp.com
>>>>>
>>>>>
>>>>> ----- Original Message -----
>>>>>
>>>>>     *From:* Rocky Smolin - Beach Access Software
>>>>> <mailto:bchacc at san.rr.com>
>>>>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>>>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>>>>     *Subject:* Re: PM?
>>>>>
>>>>>     Ram:
>>>>>
>>>>>     The graph can be done but it's not real easy in Access.  On the
>>>>>         
>>>>>           
>> X
>>   
>>     
>>>>>     axis you would also lose visibility of what machines were
>>>>>       
>>>>>         
>>>>>           
>>> creating
>>>   
>>>     
>>>       
>>>>>     the scores on the Y axis.  The X axis would just be a sequence
>>>>>     number.  Wouldn't seeing the list of machines with description
>>>>>         
>>>>>           
>> be
>>   
>>     
>>>>>     more helpful.  >From an information standpoint the graph will
>>>>>       
>>>>>         
>>>>>           
>>> only
>>>   
>>>     
>>>       
>>>>>     show the user that the scores of the machines run from m to n.
>>>>>       
>>>>>         
>>>>>           
>>> So
>>>   
>>>     
>>>       
>>>>>     they will be picking an arbitrary point between the lowest and
>>>>>     highest value without much visibility over the nature of the
>>>>>     equipment that's being included and excluded.
>>>>>
>>>>>     I will do a bit of research to see if there's a graphing 
>>>>> control
>>>>>       
>>>>>         
>>>>>           
>>> I
>>>   
>>>     
>>>       
>>>>>     can find so I don't have to reinvent the wheel.  Then maybe put
>>>>>       
>>>>>         
>>>>>           
>>> an
>>>   
>>>     
>>>       
>>>>>     button on the form to let the user choose tabular of graphic
>>>>> format.
>>>>>
>>>>>     Requiring administrator access to change the cutoff point is 
>>>>> easy.
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>>   
>>>>     
>>>>       
>>>>         
>>>>>     I'll attend to that.  What's the next step?
>>>>>
>>>>>     Best,
>>>>>
>>>>>     Rocky
>>>>>
>>>>>      
>>>>>
>>>>>
>>>>>   
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>>   
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From cfoust at infostatsystems.com  Thu Jan 26 11:59:33 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 26 Jan 2006 09:59:33 -0800
Subject: [AccessD] Access 2003 SourceSafe Plugin
Message-ID: <F55048AF7E974F429BB24597D7355EEABF60@INFOSERVER04.infostat.local>

Sorry, Joe, but all the plugin does is allow you to load the individual
objects in a database into SourceSafe, create a new database from a
sourcesafe project, check objects in and out, compare differences in
versions, etc.  SourceSafe came with XP MOD, but I don't recall if it
comes with VSTO, although I know it's there in VS.Net.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Thursday, January 26, 2006 9:29 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Access 2003 SourceSafe Plugin


Doing this with out source safe.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Thursday, January 26, 2006 8:12 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Access 2003 SourceSafe Plugin

Well, you also need SourceSafe 6.x installed and Access
2003, but what
did you have in mind?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 25, 2006 6:24 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Access 2003 SourceSafe Plugin


Is this all you need?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 25, 2006 5:35 PM
To: AccessD at databaseadvisors.com
Subject: [AccessD] Access 2003 SourceSafe Plugin

To anyone interested, here's the link where you can download the
SourceSafe plugin for Access 2003.
http://msdn.microsoft.com/vstudio/previous/ssafe/

Charlotte Foust
Infostat Systems, Inc.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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

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


From cfoust at infostatsystems.com  Thu Jan 26 12:00:46 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 26 Jan 2006 10:00:46 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <F55048AF7E974F429BB24597D7355EEABF61@INFOSERVER04.infostat.local>

All you're doing there is setting the paper size of the printer object.
You need to work the the Report's printer object.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Thursday, January 26, 2006 9:25 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] [Fwd: Default Page Size]


Charlotte:

I put this code:

If Me.fraPaperSize = 1 Then
    Access.Printer.PaperSize = acPRPSLetter
Else
    Access.Printer.PaperSize = acPRPSA4
End If


into the event that calls the report in question.  On my printer it 
doesn't print any differently with either setting but I would expect 
that, I guess as I haven't got any A4 paper to test it with.  I'll send 
it to the user to see if it solves the problem.

But have I got the code right?  Should it go in the open event of the 
report itself instead of the calling procedure in the form?

MTIA,

Rocky


Charlotte Foust wrote:
> I don't think so.  I know AXP does, but I don't recall it in A2k.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Wednesday, January 25, 2006 9:27 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> O.  But A2K has this printer object?  (Suppose I could go take a look
> for myself)
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> No, Rocky.  Remember, this is older code that predates the Access
>> Printer object.  The user sets a paper option in the app
configuration
>>     
>
>   
>> to tell us whether he uses letter/legal or A4 paper.
>>
>> Charlotte
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>> Smolin
>> - Beach Access Software
>> Sent: Wednesday, January 25, 2006 8:54 AM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>
>>
>> So you poll the printer class to see what paper was selected? Very
>> slick.
>>
>> Rocky
>>
>>
>> Charlotte Foust wrote:
>>   
>>     
>>> No, code selects the appropriate report format based on the paper 
>>> selection.
>>>
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>> Smolin
>>> - Beach Access Software
>>> Sent: Tuesday, January 24, 2006 9:14 PM
>>> To: Access Developers discussion and problem solving
>>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>>
>>>
>>> So do you have two formats of the same report, selectable by the
>>> user?
>>>
>>> Rocky
>>>
>>>
>>> Charlotte Foust wrote:
>>>   
>>>     
>>>       
>>>> We format most of our reports to fit either now, which means we use
>>>> paper length and A4 width when designing the report.  If you use 
>>>> default printer, that's your only choice.  Otherwise, yes, you'd 
>>>> have
>>>>       
>>>>         
>>   
>>     
>>>> to allow them to specify the paper size and you'd have to create
>>>> some
>>>>       
>>>>         
>>   
>>     
>>>> specially formatted A4 reports if they needed the longer paper
>>>>       
>>>>         
>> length.
>>   
>>     
>>>> Charlotte Foust
>>>>
>>>>
>>>> -----Original Message-----
>>>> From: accessd-bounces at databaseadvisors.com
>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>>> Smolin
>>>> - Beach Access Software
>>>> Sent: Tuesday, January 24, 2006 10:44 AM
>>>> To: Access Developers discussion and problem solving
>>>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>>>
>>>>
>>>> Charlotte:
>>>>
>>>> I'm not using any code.  I just use default printer.  This app 
>>>> could
>>>>         
>
>   
>>>> be running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to
>>>> tie
>>>>     
>>>>       
>>>>         
>>> the
>>>   
>>>     
>>>       
>>>> app to one size or another.  Apparently I'm going to have to put in
>>>> some
>>>>
>>>> kind of preference for the user to select their paper size then?
>>>>
>>>> Rocky
>>>>
>>>>
>>>> Charlotte Foust wrote:
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> Rocky,
>>>>>
>>>>> What kind of code are you using to set the paper size?  There are 
>>>>> actually papersize constants you can use to make it easier.  We 
>>>>> use
>>>>>           
>
>   
>>>>> these in our Access apps to make the code easier to read:
>>>>>
>>>>> Public Const PAPER_LETTER As Integer = 1
>>>>> Public Const PAPER_A4 As Integer = 9
>>>>> Public Const PAPER_LEGAL As Integer = 5
>>>>>
>>>>> If you check the Access.Printer class, you'll get a list of the 
>>>>> built in constants for AcPrintPaperSize, including acPRPSA4, 
>>>>> acPRPSLetter, and acPRPSLegal, which have the same values as we 
>>>>> use
>>>>>           
>
>   
>>>>> (our code was built before the Printer object became part of
>>>>> Access).  Whichever
>>>>>       
>>>>>         
>>>>>           
>>> you
>>>   
>>>     
>>>       
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> use, it's what you have to pass to the printer to get the setting 
>>>>> right.
>>>>>
>>>>> Charlotte Foust
>>>>>
>>>>>
>>>>> -----Original Message-----
>>>>> From: accessd-bounces at databaseadvisors.com
>>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>>>> Smolin
>>>>> - Beach Access Software
>>>>> Sent: Tuesday, January 24, 2006 9:31 AM
>>>>> To: access Developers discussion and problem solving
>>>>> Subject: [AccessD] [Fwd: Default Page Size]
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> Dear List:
>>>>>
>>>>> A guy in India with whom I'm developing a preventive maintenance
>>>>> app
>>>>>         
>>>>>           
>>   
>>     
>>>>> is using A4 paper.  The report I sent him apparently doesn't print

>>>>> the whole footer unless he changes the printer.  He writes:
>>>>>
>>>>> "The problem still persisted of the report saying only "page no 1
>>>>> of " and not showing the total no of pages and of the second page 
>>>>> being
>>>>>         
>>>>>           
>>   
>>     
>>>>> a blank, but third page showing the second page (all this only in
>>>>>         
>>>>>           
>> the
>>   
>>     
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>> mtce
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> sch. report). I have found the cause. I found that the page set up
>>>>> was landscape and letter size. I changed the letter size to A4 and

>>>>> everything became ok! But I am not able to make it permanent -
when
>>>>>         
>>>>>           
>> I
>>   
>>     
>>>>>       
>>>>>         
>>>>>           
>>>   
>>>     
>>>       
>>>>> ask for the report the next time, the same problem. I had to again
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>> reset
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> the page size. How do I make it stick?"
>>>>>
>>>>> But the other reports in the system apparently work OK.  The
>>>>> File-->Page
>>>>>
>>>>> Setup parameters are the as the other reports - default printer is
>>>>> checked - except this one is landscape.  Any ideas?
>>>>>
>>>>> MTIA
>>>>>
>>>>> Rocky Smolin
>>>>> Beach Access Software
>>>>> 858-259-4334
>>>>> www.e-z-mrp.com
>>>>>
>>>>>
>>>>> ----- Original Message -----
>>>>>
>>>>>     *From:* Rocky Smolin - Beach Access Software 
>>>>> <mailto:bchacc at san.rr.com>
>>>>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>>>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>>>>     *Subject:* Re: PM?
>>>>>
>>>>>     Ram:
>>>>>
>>>>>     The graph can be done but it's not real easy in Access.  On 
>>>>> the
>>>>>         
>>>>>           
>> X
>>   
>>     
>>>>>     axis you would also lose visibility of what machines were
>>>>>       
>>>>>         
>>>>>           
>>> creating
>>>   
>>>     
>>>       
>>>>>     the scores on the Y axis.  The X axis would just be a sequence
>>>>>     number.  Wouldn't seeing the list of machines with description
>>>>>         
>>>>>           
>> be
>>   
>>     
>>>>>     more helpful.  >From an information standpoint the graph will
>>>>>       
>>>>>         
>>>>>           
>>> only
>>>   
>>>     
>>>       
>>>>>     show the user that the scores of the machines run from m to n.
>>>>>       
>>>>>         
>>>>>           
>>> So
>>>   
>>>     
>>>       
>>>>>     they will be picking an arbitrary point between the lowest and
>>>>>     highest value without much visibility over the nature of the
>>>>>     equipment that's being included and excluded.
>>>>>
>>>>>     I will do a bit of research to see if there's a graphing
>>>>> control
>>>>>       
>>>>>         
>>>>>           
>>> I
>>>   
>>>     
>>>       
>>>>>     can find so I don't have to reinvent the wheel.  Then maybe 
>>>>> put
>>>>>       
>>>>>         
>>>>>           
>>> an
>>>   
>>>     
>>>       
>>>>>     button on the form to let the user choose tabular of graphic 
>>>>> format.
>>>>>
>>>>>     Requiring administrator access to change the cutoff point is
>>>>> easy.
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>>   
>>>>     
>>>>       
>>>>         
>>>>>     I'll attend to that.  What's the next step?
>>>>>
>>>>>     Best,
>>>>>
>>>>>     Rocky
>>>>>
>>>>>      
>>>>>
>>>>>
>>>>>   
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>>   
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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


From jwelz at hotmail.com  Thu Jan 26 12:34:20 2006
From: jwelz at hotmail.com (=?iso-8859-1?Q?J=FCrgen_Welz?=)
Date: Thu, 26 Jan 2006 11:34:20 -0700
Subject: [AccessD] Printer Driver
Message-ID: <BAY113-W27D4CBE1303F592C3D28EA1150@phx.gbl>

Sorry people.  posted this under and incorrect subject (Outlook).  I've set a new topic and repeated the post.
Dealing with the nITzis for a couple days now on something that might be of interest.  I had a couple users who couldn't open a report and Access throws a '2501 The OpenReport action was canceled.' I have functions that change default sql parameters based on the user and their office and IT sets up rights to folders and I've got my own security running and some data if from various sources that require drivers. It turns out that these users can't even use File - Print Preview on a plain lookup table.  Opening any preview from the database window results in a silent failure.  Opening any report from the Immediate window with a docmd OpenReport produces the error message. IT tells me it is my problem because Access throws an error on my button click event. The problem is that, apparently unlike other MS Office applications, Access uses some kind of print driver information to generate a print preview.  The problem is the same as when no printer is installed.  In this case, it is a problem with a Canon printer driver.  It took me nearly two hours to track down this problem a year ago when IT added a paper tray to one of the other office printers.  It was a particularly complex and convoluted report that a user was trying to open so there were dozens of things to check and I finally got permission to log in the user to track down the problem. Lacking the basic ability to create a table with two entries and to select Print Preview from the file menu, IT asked me to send them a new MDB that demonstrated this problem outside of my application.  Of course Outlook blocked the attachment so I was asked to rename the file extension.  Their security prevents rename of file extension from Explorer (though it's easy enough in VBA and though I can no longer get a DOS window, I can shell a 'ren' command).  We finally have zip capability and I think these email OK.  Being bloody minded, I ask them how to rename the file extension and send an html link to the file instead. This is ongoing.  In the mean time, I tell the users to select any other printer in the office as their default printer.
CiaoJ?rgen WelzEdmonton Albertajwelz at hotmail.com
_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/

From bheid at appdevgrp.com  Thu Jan 26 12:38:58 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 26 Jan 2006 13:38:58 -0500
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A13C@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E50@ADGSERVER>

Hi Charlotte,

There is no UI, except for the one in Access.  I have the macro open and I
am running it.  This is not always happening and it does not do it if I do
not switch away from Access.  There really is no flickering normally.  By
flickering, I mean EVERYTHING showing from Access is flickering - the
database window, the properties window, the macro window, and anything else
opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense execution is
going on, because focus is shifting back and forth from the IDE to the
UI.  Why have the IDE open at all if you're running macros?  All you
need for that is the interface and you can build one or more macros to
call other macros, so it's not really necessry to use the immediate
window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I am updating
an existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.
Their are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes),
and go to do something else, Excel, email, etc., when I come back to the
Access IDE, it will be flickering very badly.  Through task list, I see
100% CPU, with Access taking maybe 50% and explorer taking up most of
the rest.  I have not left it more than about 15 minutes before killing
Access.  Task list shows Access as running during this.  After killing
Access the system is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby



From bheid at appdevgrp.com  Thu Jan 26 12:39:46 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 26 Jan 2006 13:39:46 -0500
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A154@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E51@ADGSERVER>

Hi Gustav,

I do not see a rise in memory consumption.  I have not yet read your other
posting, but I have saved it for reading.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 26, 2006 11:53 AM
To: accessd at databaseadvisors.com
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


Hi Bobby

Does Access's memory consumption rise as well?
Did you read my posting yesterday:

Memory usage at import of MySQL tables (DoEvents Magic)

/gustav

>>> bheid at appdevgrp.com 26-01-2006 17:18:41 >>>
Hey,

Doing some work on-site for a client using Access 2000.  I am updating an
existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.  Their
are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes), and
go to do something else, Excel, email, etc., when I come back to the Access
IDE, it will be flickering very badly.  Through task list, I see 100% CPU,
with Access taking maybe 50% and explorer taking up most of the rest.  I
have not left it more than about 15 minutes before killing Access.  Task
list shows Access as running during this.  After killing Access the system
is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby



From dw-murphy at cox.net  Thu Jan 26 13:03:02 2006
From: dw-murphy at cox.net (Doug Murphy)
Date: Thu, 26 Jan 2006 11:03:02 -0800
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D34E50@ADGSERVER>
Message-ID: <000c01c622ab$21d384a0$0200a8c0@murphyf3vdfepi>

Just a guess but it sounds like a timer is running on a form.  Are there any
forms open when you see this behavior?

Doug

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 10:39 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.


Hi Charlotte,

There is no UI, except for the one in Access.  I have the macro open and I
am running it.  This is not always happening and it does not do it if I do
not switch away from Access.  There really is no flickering normally.  By
flickering, I mean EVERYTHING showing from Access is flickering - the
database window, the properties window, the macro window, and anything else
opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense execution is
going on, because focus is shifting back and forth from the IDE to the UI.
Why have the IDE open at all if you're running macros?  All you need for
that is the interface and you can build one or more macros to call other
macros, so it's not really necessry to use the immediate window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I am updating an
existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro. Their
are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes), and
go to do something else, Excel, email, etc., when I come back to the Access
IDE, it will be flickering very badly.  Through task list, I see 100% CPU,
with Access taking maybe 50% and explorer taking up most of the rest.  I
have not left it more than about 15 minutes before killing Access.  Task
list shows Access as running during this.  After killing Access the system
is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby

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



From jmhecht at earthlink.net  Thu Jan 26 13:06:10 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 26 Jan 2006 11:06:10 -0800
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D34E50@ADGSERVER>
Message-ID: <000001c622ab$920aa140$6701a8c0@HPLaptop>

There is something about turning screen.update on and off.
(True/False)

Try calling some form.
Screen.update = false
Run Macro
Open proper form
Screen.update =  true

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bobby Heid
Sent: Thursday, January 26, 2006 10:39 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering
problem.

Hi Charlotte,

There is no UI, except for the one in Access.  I have the
macro open and I
am running it.  This is not always happening and it does not
do it if I do
not switch away from Access.  There really is no flickering
normally.  By
flickering, I mean EVERYTHING showing from Access is
flickering - the
database window, the properties window, the macro window,
and anything else
opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering
problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense
execution is
going on, because focus is shifting back and forth from the
IDE to the
UI.  Why have the IDE open at all if you're running macros?
All you
need for that is the interface and you can build one or more
macros to
call other macros, so it's not really necessry to use the
immediate
window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I
am updating
an existing reports database that uses mostly macros to call
queries and
what-not.  They want me to do the same (ughhh!).  The OS is
XP Pro.
Their are local tables and links to SQL tables in the
database.

Anyway, sometimes when I kick off a long running macro (5-10
minutes),
and go to do something else, Excel, email, etc., when I come
back to the
Access IDE, it will be flickering very badly.  Through task
list, I see
100% CPU, with Access taking maybe 50% and explorer taking
up most of
the rest.  I have not left it more than about 15 minutes
before killing
Access.  Task list shows Access as running during this.
After killing
Access the system is back to normal.

It looks like something is making all of the windows redraw
hundreds of
times a second.  Even the task list wind (set to on top)
flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby

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



From martyconnelly at shaw.ca  Thu Jan 26 13:29:27 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Thu, 26 Jan 2006 11:29:27 -0800
Subject: [AccessD] Download Latest Version AND Deploy Desktop Shortcut
References: <A5B5AA20555F594BA7B6BD2048E49E4303624DE5@m-niosh-5.niosh.cdc.gov>
Message-ID: <43D92317.3090403@shaw.ca>

You might have a look at Tony Toews Auto FE Updater for ideas or use his 
limited freeware utility
see the license for distribution details.
It also works with Citrix.
There are links to other similar commercial and freeware products listed
http://www.granite.ab.ca/access/autofe.htm


Nicholson, Karen wrote:

>I have a procedure in place to download the latest version of a
>front-end to each user's pc when my Access application is opened.  What
>I did not count on were various shortcuts on users desktops pointing to
>various locations for this database.  Why, I even have one user who is
>pointing to c:\JUNK\blaah blaah blaah.  Does anyone know of a way to
>download the correct shortcut to the desktops automagically?
>
>Karen S. Nicholson
>Programmer Analyst
>EG&G Technical Services, Inc.
>Pittsburgh, PA
>Phone: 412-386-6649
>Email: cyx5 at cdc.gov
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From bheid at appdevgrp.com  Thu Jan 26 13:40:47 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 26 Jan 2006 14:40:47 -0500
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A197@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E54@ADGSERVER>

Nope, no timers.  This only happens when you open something else like Excel,
etc., when a long running macro is running.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Murphy
Sent: Thursday, January 26, 2006 2:03 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.


Just a guess but it sounds like a timer is running on a form.  Are there any
forms open when you see this behavior?

Doug

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 10:39 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.


Hi Charlotte,

There is no UI, except for the one in Access.  I have the macro open and I
am running it.  This is not always happening and it does not do it if I do
not switch away from Access.  There really is no flickering normally.  By
flickering, I mean EVERYTHING showing from Access is flickering - the
database window, the properties window, the macro window, and anything else
opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense execution is
going on, because focus is shifting back and forth from the IDE to the UI.
Why have the IDE open at all if you're running macros?  All you need for
that is the interface and you can build one or more macros to call other
macros, so it's not really necessry to use the immediate window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I am updating an
existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro. Their
are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes), and
go to do something else, Excel, email, etc., when I come back to the Access
IDE, it will be flickering very badly.  Through task list, I see 100% CPU,
with Access taking maybe 50% and explorer taking up most of the rest.  I
have not left it more than about 15 minutes before killing Access.  Task
list shows Access as running during this.  After killing Access the system
is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby



From bheid at appdevgrp.com  Thu Jan 26 13:41:28 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 26 Jan 2006 14:41:28 -0500
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A19B@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E55@ADGSERVER>

But I have no form open, just running a macro from the database window.  It
is only updating tables.

Thanks,
Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Thursday, January 26, 2006 2:06 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.


There is something about turning screen.update on and off.
(True/False)

Try calling some form.
Screen.update = false
Run Macro
Open proper form
Screen.update =  true

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bobby Heid
Sent: Thursday, January 26, 2006 10:39 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering
problem.

Hi Charlotte,

There is no UI, except for the one in Access.  I have the
macro open and I
am running it.  This is not always happening and it does not
do it if I do
not switch away from Access.  There really is no flickering
normally.  By
flickering, I mean EVERYTHING showing from Access is
flickering - the
database window, the properties window, the macro window,
and anything else
opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering
problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense
execution is
going on, because focus is shifting back and forth from the
IDE to the
UI.  Why have the IDE open at all if you're running macros?
All you
need for that is the interface and you can build one or more
macros to
call other macros, so it's not really necessry to use the
immediate
window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I
am updating
an existing reports database that uses mostly macros to call
queries and
what-not.  They want me to do the same (ughhh!).  The OS is
XP Pro.
Their are local tables and links to SQL tables in the
database.

Anyway, sometimes when I kick off a long running macro (5-10
minutes),
and go to do something else, Excel, email, etc., when I come
back to the
Access IDE, it will be flickering very badly.  Through task
list, I see
100% CPU, with Access taking maybe 50% and explorer taking
up most of
the rest.  I have not left it more than about 15 minutes
before killing
Access.  Task list shows Access as running during this.
After killing
Access the system is back to normal.

It looks like something is making all of the windows redraw
hundreds of
times a second.  Even the task list wind (set to on top)
flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby



From dwaters at usinternet.com  Thu Jan 26 13:57:30 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Thu, 26 Jan 2006 13:57:30 -0600
Subject: [AccessD] Download Latest Version AND Deploy Desktop Shortcut
In-Reply-To: <23057310.1138304035651.JavaMail.root@sniper16>
Message-ID: <000501c622b2$c10c9c30$0200a8c0@danwaters>

Karen,

I've also used the Auto FE Updater for quite a while.  It's very reliable!

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: Thursday, January 26, 2006 1:29 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Download Latest Version AND Deploy Desktop Shortcut

You might have a look at Tony Toews Auto FE Updater for ideas or use his 
limited freeware utility
see the license for distribution details.
It also works with Citrix.
There are links to other similar commercial and freeware products listed
http://www.granite.ab.ca/access/autofe.htm


Nicholson, Karen wrote:

>I have a procedure in place to download the latest version of a
>front-end to each user's pc when my Access application is opened.  What
>I did not count on were various shortcuts on users desktops pointing to
>various locations for this database.  Why, I even have one user who is
>pointing to c:\JUNK\blaah blaah blaah.  Does anyone know of a way to
>download the correct shortcut to the desktops automagically?
>
>Karen S. Nicholson
>Programmer Analyst
>EG&G Technical Services, Inc.
>Pittsburgh, PA
>Phone: 412-386-6649
>Email: cyx5 at cdc.gov
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada



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



From jmhecht at earthlink.net  Thu Jan 26 14:03:00 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 26 Jan 2006 12:03:00 -0800
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D34E54@ADGSERVER>
Message-ID: <000401c622b3$828f5640$6701a8c0@HPLaptop>

Try just playing with screen.update false and true.

I just use a form that says I am busy and will be back in a
minute so user does not think the computer has hung.

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bobby Heid
Sent: Thursday, January 26, 2006 11:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering
problem.

Nope, no timers.  This only happens when you open something
else like Excel,
etc., when a long running macro is running.

Bobby




From Erwin.Craps at ithelps.be  Thu Jan 26 13:59:11 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Thu, 26 Jan 2006 20:59:11 +0100
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62F7@stekelbes.ithelps.local>

Check the screensaver you use.
Change it to a normals windows one or none.

-----Oorspronkelijk bericht-----
Van: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] Namens Bobby Heid
Verzonden: donderdag 26 januari 2006 20:41
Aan: 'Access Developers discussion and problem solving'
Onderwerp: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.

But I have no form open, just running a macro from the database window.
It is only updating tables.

Thanks,
Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Thursday, January 26, 2006 2:06 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.


There is something about turning screen.update on and off.
(True/False)

Try calling some form.
Screen.update = false
Run Macro
Open proper form
Screen.update =  true

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 10:39 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.

Hi Charlotte,

There is no UI, except for the one in Access.  I have the macro open and
I am running it.  This is not always happening and it does not do it if
I do not switch away from Access.  There really is no flickering
normally.  By flickering, I mean EVERYTHING showing from Access is
flickering - the database window, the properties window, the macro
window, and anything else opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense execution is
going on, because focus is shifting back and forth from the IDE to the
UI.  Why have the IDE open at all if you're running macros?
All you
need for that is the interface and you can build one or more macros to
call other macros, so it's not really necessry to use the immediate
window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I am updating
an existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.
Their are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes),
and go to do something else, Excel, email, etc., when I come back to the
Access IDE, it will be flickering very badly.  Through task list, I see
100% CPU, with Access taking maybe 50% and explorer taking up most of
the rest.  I have not left it more than about 15 minutes before killing
Access.  Task list shows Access as running during this.
After killing
Access the system is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby

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


From Erwin.Craps at ithelps.be  Thu Jan 26 14:00:18 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Thu, 26 Jan 2006 21:00:18 +0100
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62F8@stekelbes.ithelps.local>

Or a video driver problem. 

-----Oorspronkelijk bericht-----
Van: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] Namens Bobby Heid
Verzonden: donderdag 26 januari 2006 20:41
Aan: 'Access Developers discussion and problem solving'
Onderwerp: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.

But I have no form open, just running a macro from the database window.
It is only updating tables.

Thanks,
Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Thursday, January 26, 2006 2:06 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.


There is something about turning screen.update on and off.
(True/False)

Try calling some form.
Screen.update = false
Run Macro
Open proper form
Screen.update =  true

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 10:39 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.

Hi Charlotte,

There is no UI, except for the one in Access.  I have the macro open and
I am running it.  This is not always happening and it does not do it if
I do not switch away from Access.  There really is no flickering
normally.  By flickering, I mean EVERYTHING showing from Access is
flickering - the database window, the properties window, the macro
window, and anything else opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense execution is
going on, because focus is shifting back and forth from the IDE to the
UI.  Why have the IDE open at all if you're running macros?
All you
need for that is the interface and you can build one or more macros to
call other macros, so it's not really necessry to use the immediate
window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I am updating
an existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.
Their are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes),
and go to do something else, Excel, email, etc., when I come back to the
Access IDE, it will be flickering very badly.  Through task list, I see
100% CPU, with Access taking maybe 50% and explorer taking up most of
the rest.  I have not left it more than about 15 minutes before killing
Access.  Task list shows Access as running during this.
After killing
Access the system is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby

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


From Erwin.Craps at ithelps.be  Thu Jan 26 14:03:12 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Thu, 26 Jan 2006 21:03:12 +0100
Subject: [AccessD] Outlook automation - use a template for a message
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62F9@stekelbes.ithelps.local>

 
Euh, jurgen 

Was this text not ment for another topic???
Erwin


-----Oorspronkelijk bericht-----
Van: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] Namens J?rgen Welz
Verzonden: donderdag 26 januari 2006 18:16
Aan: Access Developers discussion and problem solving
Onderwerp: Re: [AccessD] Outlook automation - use a template for a message

Dealing with the nITzis for a couple days now on something that might be of interest.  I had a couple users who couldn't open a report and Access throws a '2501 The OpenReport action was canceled.'
 
I have functions that change default sql parameters based on the user and their office and IT sets up rights to folders and I've got my own security running and some data if from various sources that require drivers.
 
It turns out that these users can't even use File - Print Preview on a plain lookup table.  Opening any preview from the database window results in a silent failure.  Opening any report from the Immediate window with a docmd OpenReport produces the error message.
 
IT tells me it is my problem because Access throws an error on my button click event.
 
The problem is that, apparently unlike other MS Office applications, Access uses some kind of print driver information to generate a print preview.  The problem is the same as when no printer is installed.  In this case, it is a problem with a Canon printer driver.  It took me nearly two hours to track down this problem a year ago when IT added a paper tray to one of the other office printers.  It was a particularly complex and convoluted report that a user was trying to open so there were dozens of things to check and I finally got permission to log in the user to track down the problem.
 
Lacking the basic ability to create a table with two entries and to select Print Preview from the file menu, IT asked me to send them a new MDB that demonstrated this problem outside of my application.  Of course Outlook blocked the attachment so I was asked to rename the file extension.  Their security prevents rename of file extension from Explorer (though it's easy enough in VBA and though I can no longer get a DOS window, I can shell a 'ren' command).  We finally have zip capability and I think these email OK.  Being bloody minded, I ask them how to rename the file extension and send an html link to the file instead.
 
This is ongoing.  In the mean time, I tell the users to select any other printer in the office as their default printer.
Ciao
J?rgen Welz
Edmonton Alberta
jwelz at hotmail.com
_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From martyconnelly at shaw.ca  Thu Jan 26 14:07:50 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Thu, 26 Jan 2006 12:07:50 -0800
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
References: <916187228923D311A6FE00A0CC3FAA30D34E55@ADGSERVER>
Message-ID: <43D92C16.1090804@shaw.ca>

Just a SWAG, if running WinXP change your theme by right-clicking your 
Windows XP desktop,
choosing Properties, and setting the Theme to "Windows Classic".

Bobby Heid wrote:

>But I have no form open, just running a macro from the database window.  It
>is only updating tables.
>
>Thanks,
>Bobby
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
>Sent: Thursday, January 26, 2006 2:06 PM
>To: 'Access Developers discussion and problem solving'
>Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.
>
>
>There is something about turning screen.update on and off.
>(True/False)
>
>Try calling some form.
>Screen.update = false
>Run Macro
>Open proper form
>Screen.update =  true
>
>Joe Hecht
>jmhecht at earthlink.net
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>Bobby Heid
>Sent: Thursday, January 26, 2006 10:39 AM
>To: 'Access Developers discussion and problem solving'
>Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering
>problem.
>
>Hi Charlotte,
>
>There is no UI, except for the one in Access.  I have the
>macro open and I
>am running it.  This is not always happening and it does not
>do it if I do
>not switch away from Access.  There really is no flickering
>normally.  By
>flickering, I mean EVERYTHING showing from Access is
>flickering - the
>database window, the properties window, the macro window,
>and anything else
>opened in the IDE.
>
>Bobby
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>Charlotte Foust
>Sent: Thursday, January 26, 2006 11:31 AM
>To: Access Developers discussion and problem solving
>Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering
>problem.
>Importance: Low
>
>
>In my experience, the IDE does tend to flicker when intense
>execution is
>going on, because focus is shifting back and forth from the
>IDE to the
>UI.  Why have the IDE open at all if you're running macros?
>All you
>need for that is the interface and you can build one or more
>macros to
>call other macros, so it's not really necessry to use the
>immediate
>window.
>
>Charlotte Foust
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>Bobby Heid
>Sent: Thursday, January 26, 2006 8:19 AM
>To: 'Access Developers discussion and problem solving'
>Subject: [AccessD] Strange flickering problem.
>
>
>Hey,
>
>Doing some work on-site for a client using Access 2000.  I
>am updating
>an existing reports database that uses mostly macros to call
>queries and
>what-not.  They want me to do the same (ughhh!).  The OS is
>XP Pro.
>Their are local tables and links to SQL tables in the
>database.
>
>Anyway, sometimes when I kick off a long running macro (5-10
>minutes),
>and go to do something else, Excel, email, etc., when I come
>back to the
>Access IDE, it will be flickering very badly.  Through task
>list, I see
>100% CPU, with Access taking maybe 50% and explorer taking
>up most of
>the rest.  I have not left it more than about 15 minutes
>before killing
>Access.  Task list shows Access as running during this.
>After killing
>Access the system is back to normal.
>
>It looks like something is making all of the windows redraw
>hundreds of
>times a second.  Even the task list wind (set to on top)
>flickers some.
>
>Has anyone else seen this?  Have any solutions?
>
>Thanks,
>Bobby
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From markamatte at hotmail.com  Thu Jan 26 14:11:08 2006
From: markamatte at hotmail.com (Mark A Matte)
Date: Thu, 26 Jan 2006 20:11:08 +0000
Subject: [AccessD]  Select Value in ListBox
In-Reply-To: <46B976F2B698FF46A4FE7636509B22DF1B62F8@stekelbes.ithelps.local>
Message-ID: <BAY114-F3669D3ACF2366BE47526F8D2150@phx.gbl>

Hello All,

I have a form that displays data for an individual...Individual_ID.  I want 
to print a report for this Individual_ID, but allow the user to include 
other Individual_IDs in the report...from my printing form I have a 
listbox...which my report uses as criteria.  My problem is I want the 
listbox to automatically select the Individual_ID from my first form.  I 
already have the listbox and report working fine...I just can't get this 
'default' selection in my listbox.  I think I'm looking for the ItemData# of 
the Individual_ID...but not sure how to get it?

Thanks,

Mark A. Matte




From John.Clark at niagaracounty.com  Thu Jan 26 14:23:58 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Thu, 26 Jan 2006 15:23:58 -0500
Subject: [AccessD] Same form, different actions
Message-ID: <s3d8e9e7.094@nebnov3.niagaracounty.com>

First, I've started two requests for help over the past couple of days,
only to discover the problem, while actually typing the Emails...see,
y'all have learned me some things, since I've been hanging out here.

Well, it appears my luck may have run out. Actually, I can think of a
couple different ways to do what I am now trying to do, but I want to do
it correctly...something else I've learned here...so I want to run it by
the list members.

First I'll give you a little background on the program, which is being
written in A2K. It is a case tracking program for our DA's office, and I
have chosen to lump all names together (i.e. lawyers, defendants,
victims, judges, etc.) in a single table and, using checkboxes,
designate what role(s) they fulfill. The purpose of doing this was to
avoid missing people already in the system, in another designation than
they are currently being entered as. It is usefull for them to know if a
defendant has been a victim, or visa versa, and theoratically, a name
can be in the system as all of these designations. I used the scenario
of an ADA, who becomes a defense attorney, then become a judge, then
they are mugged, thus becoming a victim, which makes them lose it and
take revenge on their attacker, which makes them a defendant...they
would then be in all categories...unlikely but possible.

So, I've got a form called frm_Subjects, which allows entry of names
and their "designations." The main form of the program is the form,
"frmIndictments" and on this form, which basically a case by case entry,
there is a drop down box to choose a defendant, from a list of names.
Using a union query, I have set the top option to be, "<ENTER NAME>".
When they choose this option, I want to take them to the "frm_Subjects"
form. OK, I'm good up to this point.

The problem is however, can I use this same form, yet have it react
differently? For instance, I've already got it opening up as an "entry
form" with the way I am calling it from the parent form (i.e.
"DoCmd.OpenForm "frm_Subjects", acNormal, , , acFormAdd,
acWindowNormal"). But, when I exit that form it returns to the menu, as
I've told it to do, and as I normally would want it to do. But, when it
is accessed via the other form, I want it to return to that form, and
place the chosen name into the combo box, which is bound to the table.

The possibilites I've thought of so far are:

1) set up a parameter in the On Open event of that form...I don't even
know if this is possible, now that I'm thinking about it...and check for
this when I have it do things. Maybe it defaults to a "0" and works the
way it is now working, but if called from the other form, it gets a "1"
and does things slightly different.

or 2) Cut my losses and just make a copy of the form and have this copy
do the different actions, and call this one from the other form. I'm
guessing this will be the answer.

Thank you!

John W Clark


From bheid at appdevgrp.com  Thu Jan 26 14:27:48 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 26 Jan 2006 15:27:48 -0500
Subject: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Strange
	flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A1B4@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E56@ADGSERVER>

It is the one that displays the windows logo.  It is not kicking in.  It
happens while I am working on the PC.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps - IT
Helps
Sent: Thursday, January 26, 2006 2:59 PM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering
problem.
Importance: Low


Check the screensaver you use.
Change it to a normals windows one or none.

-----Oorspronkelijk bericht-----
Van: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] Namens Bobby Heid
Verzonden: donderdag 26 januari 2006 20:41
Aan: 'Access Developers discussion and problem solving'
Onderwerp: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.

But I have no form open, just running a macro from the database window.
It is only updating tables.

Thanks,
Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Thursday, January 26, 2006 2:06 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.


There is something about turning screen.update on and off.
(True/False)

Try calling some form.
Screen.update = false
Run Macro
Open proper form
Screen.update =  true

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 10:39 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.

Hi Charlotte,

There is no UI, except for the one in Access.  I have the macro open and
I am running it.  This is not always happening and it does not do it if
I do not switch away from Access.  There really is no flickering
normally.  By flickering, I mean EVERYTHING showing from Access is
flickering - the database window, the properties window, the macro
window, and anything else opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense execution is
going on, because focus is shifting back and forth from the IDE to the
UI.  Why have the IDE open at all if you're running macros?
All you
need for that is the interface and you can build one or more macros to
call other macros, so it's not really necessry to use the immediate
window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I am updating
an existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.
Their are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes),
and go to do something else, Excel, email, etc., when I come back to the
Access IDE, it will be flickering very badly.  Through task list, I see
100% CPU, with Access taking maybe 50% and explorer taking up most of
the rest.  I have not left it more than about 15 minutes before killing
Access.  Task list shows Access as running during this.
After killing
Access the system is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby



From jwelz at hotmail.com  Thu Jan 26 14:38:44 2006
From: jwelz at hotmail.com (=?iso-8859-1?Q?J=FCrgen_Welz?=)
Date: Thu, 26 Jan 2006 13:38:44 -0700
Subject: [AccessD] Strange flickering problem.
Message-ID: <BAY113-W36FCA618DF47A17AEF6A1A1150@phx.gbl>

I get this on our Terminal server environment when the server is slow and I close something where I have made a change and I have agreed to save changes.  The title bar toggles between two or three windows at about 30 HZ.  Sometimes it takes a couple minutes to save something like a rowsource for a combo.  It only seems to happen when the server is real busy, but we've now got 33 full time users and everyone is told to keep Outlook 2003 open at all times.  In addition, we have a number of other outside users logging in on our server.  Our Server is one of 40 but it is stretched rather thin so I'm getting this flicker with increasing frequency.
 
J?rgen Welz



> From: Erwin.Craps at ithelps.be> > Or a video driver problem. > > > But I have no form open, just running a macro from the database window.> It is only updating tables.> > Thanks,> Bobby> > -----Original Message-----> Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.> > > There is something about turning screen.update on and off.> (True/False)> > Try calling some form.> Screen.update = false> Run Macro> Open proper form> Screen.update = true> > Joe Hecht> jmhecht at earthlink.net> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid> > Hi Charlotte,> > There is no UI, except for the one in Access. I have the macro open and> I am running it. This is not always happening and it does not do it if> I do not switch away from Access. There really is no flickering> normally. By flickering, I mean EVERYTHING showing from Access is> flickering - the database window, the properties window, the macro> window, and anything else opened in the IDE.> > Bobby> > -----Original Message-----> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte> Foust> > > In my experience, the IDE does tend to flicker when intense execution is> going on, because focus is shifting back and forth from the IDE to the> UI. Why have the IDE open at all if you're running macros?> All you> need for that is the interface and you can build one or more macros to> call other macros, so it's not really necessry to use the immediate> window.> > Charlotte Foust> > > -----Original Message-----> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid> Hey, > Doing some work on-site for a client using Access 2000. I am updating> an existing reports database that uses mostly macros to call queries and> what-not. They want me to do the same (ughhh!). The OS is XP Pro.> Their are local tables and links to SQL tables in the database.> > Anyway, sometimes when I kick off a long running macro (5-10 minutes),> and go to do something else, Excel, email, etc., when I come back to the> Access IDE, it will be flickering very badly. Through task list, I see> 100% CPU, with Access taking maybe 50% and explorer taking up most of> the rest. I have not left it more than about 15 minutes before killing> Access. Task list shows Access as running during this.> After killing> Access the system is back to normal.> > It looks like something is making all of the windows redraw hundreds of> times a second. Even the task list wind (set to on top) flickers some.> > Has anyone else seen this? Have any solutions?> > Thanks,> Bobby
_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/

From markamatte at hotmail.com  Thu Jan 26 15:14:58 2006
From: markamatte at hotmail.com (Mark A Matte)
Date: Thu, 26 Jan 2006 21:14:58 +0000
Subject: [AccessD] Select Value in ListBox Part2
In-Reply-To: <BAY114-F3669D3ACF2366BE47526F8D2150@phx.gbl>
Message-ID: <BAY114-F123C58F4308A49C9F9287AD2150@phx.gbl>

Hello All,

Solved that part of the problem.  I got the listbox to select the item I 
wanted...but in a perfect world...the list box would scroll down to the 
selection...any ideas on how to make that happen?

Thanks,

Mark


>From: "Mark A Matte" <markamatte at hotmail.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: accessd at databaseadvisors.com
>Subject: [AccessD]  Select Value in ListBox
>Date: Thu, 26 Jan 2006 20:11:08 +0000
>
>Hello All,
>
>I have a form that displays data for an individual...Individual_ID.  I want
>to print a report for this Individual_ID, but allow the user to include
>other Individual_IDs in the report...from my printing form I have a
>listbox...which my report uses as criteria.  My problem is I want the
>listbox to automatically select the Individual_ID from my first form.  I
>already have the listbox and report working fine...I just can't get this
>'default' selection in my listbox.  I think I'm looking for the ItemData# 
>of
>the Individual_ID...but not sure how to get it?
>
>Thanks,
>
>Mark A. Matte
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From bchacc at san.rr.com  Thu Jan 26 15:15:37 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Thu, 26 Jan 2006 13:15:37 -0800
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <43D92C16.1090804@shaw.ca>
References: <916187228923D311A6FE00A0CC3FAA30D34E55@ADGSERVER>
	<43D92C16.1090804@shaw.ca>
Message-ID: <43D93BF9.2060007@san.rr.com>

Bobby:

Is it the app or the machine?  If you move the app to another machine do 
you get the same problem?

Rocky


MartyConnelly wrote:
> Just a SWAG, if running WinXP change your theme by right-clicking your 
> Windows XP desktop,
> choosing Properties, and setting the Theme to "Windows Classic".
>
> Bobby Heid wrote:
>
>   
>> But I have no form open, just running a macro from the database window.  It
>> is only updating tables.
>>
>> Thanks,
>> Bobby
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
>> Sent: Thursday, January 26, 2006 2:06 PM
>> To: 'Access Developers discussion and problem solving'
>> Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.
>>
>>
>> There is something about turning screen.update on and off.
>> (True/False)
>>
>> Try calling some form.
>> Screen.update = false
>> Run Macro
>> Open proper form
>> Screen.update =  true
>>
>>     



From mikedorism at verizon.net  Thu Jan 26 15:20:44 2006
From: mikedorism at verizon.net (Mike & Doris Manning)
Date: Thu, 26 Jan 2006 16:20:44 -0500
Subject: [AccessD] Same form, different actions
In-Reply-To: <s3d8e9e7.094@nebnov3.niagaracounty.com>
Message-ID: <000601c622be$5ed29ef0$2f01a8c0@dorismanning>

I've done what you are asking several times.  I just pass in an OpenArgument
at the end of my DoCmd.Open statement.  I save that to an internal form
variable in the FormOpen event and check it on FormClose.

Doris Manning
mikedorism at verizon.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Thursday, January 26, 2006 3:24 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] Same form, different actions

First, I've started two requests for help over the past couple of days,
only to discover the problem, while actually typing the Emails...see,
y'all have learned me some things, since I've been hanging out here.

Well, it appears my luck may have run out. Actually, I can think of a
couple different ways to do what I am now trying to do, but I want to do
it correctly...something else I've learned here...so I want to run it by
the list members.

First I'll give you a little background on the program, which is being
written in A2K. It is a case tracking program for our DA's office, and I
have chosen to lump all names together (i.e. lawyers, defendants,
victims, judges, etc.) in a single table and, using checkboxes,
designate what role(s) they fulfill. The purpose of doing this was to
avoid missing people already in the system, in another designation than
they are currently being entered as. It is usefull for them to know if a
defendant has been a victim, or visa versa, and theoratically, a name
can be in the system as all of these designations. I used the scenario
of an ADA, who becomes a defense attorney, then become a judge, then
they are mugged, thus becoming a victim, which makes them lose it and
take revenge on their attacker, which makes them a defendant...they
would then be in all categories...unlikely but possible.

So, I've got a form called frm_Subjects, which allows entry of names
and their "designations." The main form of the program is the form,
"frmIndictments" and on this form, which basically a case by case entry,
there is a drop down box to choose a defendant, from a list of names.
Using a union query, I have set the top option to be, "<ENTER NAME>".
When they choose this option, I want to take them to the "frm_Subjects"
form. OK, I'm good up to this point.

The problem is however, can I use this same form, yet have it react
differently? For instance, I've already got it opening up as an "entry
form" with the way I am calling it from the parent form (i.e.
"DoCmd.OpenForm "frm_Subjects", acNormal, , , acFormAdd,
acWindowNormal"). But, when I exit that form it returns to the menu, as
I've told it to do, and as I normally would want it to do. But, when it
is accessed via the other form, I want it to return to that form, and
place the chosen name into the combo box, which is bound to the table.

The possibilites I've thought of so far are:

1) set up a parameter in the On Open event of that form...I don't even
know if this is possible, now that I'm thinking about it...and check for
this when I have it do things. Maybe it defaults to a "0" and works the
way it is now working, but if called from the other form, it gets a "1"
and does things slightly different.

or 2) Cut my losses and just make a copy of the form and have this copy
do the different actions, and call this one from the other form. I'm
guessing this will be the answer.

Thank you!

John W Clark
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jwelz at hotmail.com  Thu Jan 26 15:24:04 2006
From: jwelz at hotmail.com (=?iso-8859-1?Q?J=FCrgen_Welz?=)
Date: Thu, 26 Jan 2006 14:24:04 -0700
Subject: [AccessD] Same form, different actions
Message-ID: <BAY113-W28D536295565AF89590CDA1150@phx.gbl>

This question is akin to the Library Database structure poser a couple days ago.
 
Checkboxes against roles work, but your giving up some normalization there.  A junction table between the Entity and the Role is a more normalized approach.  You'll give up a bit of speed as the number of records involved in a query and its index goes up to the number of entities times the average number of roles so the size of the data to be joined goes up in proportion to the additional number of records and of course, the processing of the join involves more processor cycles so the normalization may bite a bit.  For better speed you can go with the flatter checkbox approach, and for faster yet, that whole query by join on a bit will get you 8 categories in a single byte field.  But I digress...
 
For a law office database with similar considerations, I used a parent form with a lookup combo and some search and navigation buttons that covered all categories.  This parent form contained the basic universal information about the person/corporate body.  When the user selected a person or corporate body, various tabs became visible, each containing a subform that had records pertaining to that category.  Generally, records within a subform category were added from the subform and if no records existed, the subform was simply not visible.  The user could pick a type of record from the parent that would force the addition and display of an appropriate subform.  For example, if a name happened to be that of a person on whose behalf we had acted, a subform would open displaying the file numbers and the capacity in which the person was related to the file.  A subform with related parties showed the corporate bodies to which he was related as well as the capacity in which he is related.  If the person was also a client on a real estate transaction and his spouse was on the title, that name showed as spouse.  There is another subform that contains Addresses and a further one with Phone contact information.  In such a case, the person could be related as a client.  If that person was also a lawyer, the related files subform shows file numbers and capacity (opposing counsel, other lawyer on a real estate transaction) and the related parties subform shows his legal firm, assistant, reception...  If you happened to have spouse, child or other affiliation, one simply needs to add that person and select a capacity.
 
I did the same thing with addresses and phone numbers.  An address could be information about a property being bought or sold, but it is likely also a past or present address of a client effective as at a certain date.  The address of a corporation connected as a location address (as opposed to mailing address) would also be the business address of a person associated to the business as an employee or a lawyer.  The master address form has subforms showing related parties, the capacity of the relation (home, office..), related files where the property is related to a file (sale, lien, tax appeal) and related phone numbers (If a law firm has the address, a switchboard number is also a number for the lawyers and assistants and individuals can have direct lines as well).
 
The master phone number form has subforms that display addresses (if they exist.  For a cell, the address subform would not be visible), parties that may be reached by the number and their association to that number.
 
Using JIT subforms where you set the recordsource on the fly to an appropriately parameterized query makes this real fast.
 
It is easy to control phone number formatting and I allow users to enter phone numbers directly in a subform.  Before adding, the system looks up the number and if it exists, displays related parties and the relationship in a pop up.  This is useful in determining relationships between parties.  Addresses are more difficult in that there are many variations in abbreviations and format.  I just have users follow Canada Post guidelines and provide a merge feature to combine related addresses to keep down duplications.Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com



> Date: Thu, 26 Jan 2006 15:23:58 -0500> From: John.Clark at niagaracounty.com> > First, I've started two requests for help over the past couple of days,> only to discover the problem, while actually typing the Emails...see,> y'all have learned me some things, since I've been hanging out here.> > Well, it appears my luck may have run out. Actually, I can think of a> couple different ways to do what I am now trying to do, but I want to do> it correctly...something else I've learned here...so I want to run it by> the list members.> > First I'll give you a little background on the program, which is being> written in A2K. It is a case tracking program for our DA's office, and I> have chosen to lump all names together (i.e. lawyers, defendants,> victims, judges, etc.) in a single table and, using checkboxes,> designate what role(s) they fulfill. The purpose of doing this was to> avoid missing people already in the system, in another designation than> they are currently being entered as. It is usefull for them to know if a> defendant has been a victim, or visa versa, and theoratically, a name> can be in the system as all of these designations. I used the scenario> of an ADA, who becomes a defense attorney, then become a judge, then> they are mugged, thus becoming a victim, which makes them lose it and> take revenge on their attacker, which makes them a defendant...they> would then be in all categories...unlikely but possible.> > So, I've got a form called frm_Subjects, which allows entry of names> and their "designations." The main form of the program is the form,> "frmIndictments" and on this form, which basically a case by case entry,> there is a drop down box to choose a defendant, from a list of names.> Using a union query, I have set the top option to be, "".> When they choose this option, I want to take them to the "frm_Subjects"> form. OK, I'm good up to this point.> > The problem is however, can I use this same form, yet have it react> differently? For instance, I've already got it opening up as an "entry> form" with the way I am calling it from the parent form (i.e.> "DoCmd.OpenForm "frm_Subjects", acNormal, , , acFormAdd,> acWindowNormal"). But, when I exit that form it returns to the menu, as> I've told it to do, and as I normally would want it to do. But, when it> is accessed via the other form, I want it to return to that form, and> place the chosen name into the combo box, which is bound to the table.> > The possibilites I've thought of so far are:> > 1) set up a parameter in the On Open event of that form...I don't even> know if this is possible, now that I'm thinking about it...and check for> this when I have it do things. Maybe it defaults to a "0" and works the> way it is now working, but if called from the other form, it gets a "1"> and does things slightly different.> > or 2) Cut my losses and just make a copy of the form and have this copy> do the different actions, and call this one from the other form. I'm> guessing this will be the answer.> > Thank you!> > John W Clark
_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/

From cfoust at infostatsystems.com  Thu Jan 26 16:11:52 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 26 Jan 2006 14:11:52 -0800
Subject: [AccessD] Strangeflickering problem.
Message-ID: <F55048AF7E974F429BB24597D7355EEABF62@INFOSERVER04.infostat.local>

Bobby,
I suspect that what you describe as flickering is the result of time
slicing between the macro operation in Access and whatever you're doing
elsewhere.  With an intensive operation in Access, which is something of
a hog on resources, you may have to go have coffee and not try to do
anything else while it's running.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 12:28 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re:
Strangeflickering problem.


It is the one that displays the windows logo.  It is not kicking in.  It
happens while I am working on the PC.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps -
IT Helps
Sent: Thursday, January 26, 2006 2:59 PM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Strange
flickering problem.
Importance: Low


From jmhecht at earthlink.net  Thu Jan 26 21:04:33 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 26 Jan 2006 19:04:33 -0800
Subject: [AccessD] Field to small question
Message-ID: <000101c622ee$66771980$6701a8c0@HPLaptop>

I am getting a field too small error. I went to the proper
table and enlarged the size of the field. I closed the table
so it should have been saved. The size is well larger then
the data.

 

Why am I still getting the error?

 

 

Joe Hecht

jmhecht at earthlink.net

 



From bchacc at san.rr.com  Thu Jan 26 22:43:28 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Thu, 26 Jan 2006 20:43:28 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <43D9A4F0.7080503@san.rr.com>


So, right code, wrong place? Should be in the open event of the report?

TIA

Rocky




Charlotte Foust wrote:
> All you're doing there is setting the paper size of the printer object.
> You need to work the the Report's printer object.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Thursday, January 26, 2006 9:25 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> Charlotte:
>
> I put this code:
>
> If Me.fraPaperSize = 1 Then
>     Access.Printer.PaperSize = acPRPSLetter
> Else
>     Access.Printer.PaperSize = acPRPSA4
> End If
>
>
> into the event that calls the report in question.  On my printer it 
> doesn't print any differently with either setting but I would expect 
> that, I guess as I haven't got any A4 paper to test it with.  I'll send 
> it to the user to see if it solves the problem.
>
> But have I got the code right?  Should it go in the open event of the 
> report itself instead of the calling procedure in the form?
>
> MTIA,
>
> Rocky
>
>   



From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 08:54:22 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 07:54:22 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB48@srciml1.ds.doc.state.or.us>


I'm converting a database from 97 to 2000 and have run into a problem
with the below function.  Could someone please tell me why the
highlighted part is failing?  I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean
  
  Dim oDB As Database
  Dim oRS As Recordset
  Dim oRSBins As Recordset
  Dim sSql As String
  Dim j As Long
  Dim vRtn As Variant
  
  UpdateSID4Bin = False
  
  Set oDB = CurrentDb
  
  DoCmd.Hourglass True
  
  ' display message in status bar
  vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)
  
  For j = 0 To 9
    ' update meter
    vRtn = SysCmd(acSysCmdUpdateMeter, j + 1)
    DoEvents
    
    ' get all SIDs that are not assigned a bin number for the current
row
    sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j
& "' ORDER BY Row"
    Set oRS = oDB.OpenRecordset(sSql)
    
    Do While Not oRS.EOF
      ' grab an empty bin for the current row
      sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" &
j & "' AND SID IS NULL"
      Set oRSBins = oDB.OpenRecordset(sSql)
      
      If Not oRSBins.EOF Then
        ' update empty bin with current SID
        sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID")
& "' WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum")
& "'"
        oDB.Execute sSql
      End If
      
      ' get next SID
      oRS.MoveNext
      
    Loop
  Next
  
  UpdateSID4Bin = True
  
ExitFunction:
  On Error Resume Next
  
  oRS.Close
  oRSBins.Close
  oDB.Close
  
  Set oRS = Nothing
  Set oRSBins = Nothing
  Set oDB = Nothing
  
  DoCmd.Hourglass False
  vRtn = SysCmd(acSysCmdRemoveMeter)
  
End Function

Public Function CheckEvent(pEvent As String) As Boolean
  
  Dim oDB As DAO.Database
  Dim oRS As DAO.Recordset
  Dim sSql As String
  
  CheckEvent = False
  
  Set oDB = CurrentDb
  
  sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf
  sSql = sSql & "WHERE EventName = '" & pEvent & "'"
  Set oRS = oDB.OpenRecordset(sSql)
  
  With oRS
    If Not .EOF Then
      CheckEvent = (.Fields(0) = True)
    End If
  End With
  
ExitFunction:
  On Error Resume Next
  
  oRS.Close
  oDB.Close
  
  Set oRS = Nothing
  Set oDB = Nothing
  
End Function

Public Sub InitDownloadEvents()
  
  Dim oDB As DAO.Database
  Dim sSql As String
  
  ' init events
  Set oDB = CurrentDb
  sSql = "UPDATE DownloadEvents SET Complete = False"
  oDB.Execute sSql
  
  oDB.Close
  Set oDB = Nothing
  
End Sub

Public Function SetEvent(pEvent As String) As Boolean
  
  Dim oDB As DAO.Database
  Dim sSql As String
  
  SetEvent = False
  
  Set oDB = CurrentDb
  
  sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf
  sSql = sSql & "WHERE EventName = '" & pEvent & "'"
  oDB.Execute sSql
  
  SetEvent = True
  
ExitFunction:
  On Error Resume Next
  
  oDB.Close
  Set oDB = Nothing
  
End Function


Thanks in advance for any help provided.


Mike Gowey  MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 08:57:08 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 07:57:08 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB49@srciml1.ds.doc.state.or.us>


Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
    sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j
& "' ORDER BY Row"
    Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W 
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function.  Could someone please tell me why the
highlighted part is failing?  I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean
  
  Dim oDB As Database
  Dim oRS As Recordset
  Dim oRSBins As Recordset
  Dim sSql As String
  Dim j As Long
  Dim vRtn As Variant
  
  UpdateSID4Bin = False
  
  Set oDB = CurrentDb
  
  DoCmd.Hourglass True
  
  ' display message in status bar
  vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)
  
  For j = 0 To 9
    ' update meter
    vRtn = SysCmd(acSysCmdUpdateMeter, j + 1)
    DoEvents
    
    ' get all SIDs that are not assigned a bin number for the current
row
    sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j
& "' ORDER BY Row"
    Set oRS = oDB.OpenRecordset(sSql)
    
    Do While Not oRS.EOF
      ' grab an empty bin for the current row
      sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" &
j & "' AND SID IS NULL"
      Set oRSBins = oDB.OpenRecordset(sSql)
      
      If Not oRSBins.EOF Then
        ' update empty bin with current SID
        sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID")
& "' WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum")
& "'"
        oDB.Execute sSql
      End If
      
      ' get next SID
      oRS.MoveNext
      
    Loop
  Next
  
  UpdateSID4Bin = True
  
ExitFunction:
  On Error Resume Next
  
  oRS.Close
  oRSBins.Close
  oDB.Close
  
  Set oRS = Nothing
  Set oRSBins = Nothing
  Set oDB = Nothing
  
  DoCmd.Hourglass False
  vRtn = SysCmd(acSysCmdRemoveMeter)
  
End Function

Public Function CheckEvent(pEvent As String) As Boolean
  
  Dim oDB As DAO.Database
  Dim oRS As DAO.Recordset
  Dim sSql As String
  
  CheckEvent = False
  
  Set oDB = CurrentDb
  
  sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf
  sSql = sSql & "WHERE EventName = '" & pEvent & "'"
  Set oRS = oDB.OpenRecordset(sSql)
  
  With oRS
    If Not .EOF Then
      CheckEvent = (.Fields(0) = True)
    End If
  End With
  
ExitFunction:
  On Error Resume Next
  
  oRS.Close
  oDB.Close
  
  Set oRS = Nothing
  Set oDB = Nothing
  
End Function

Public Sub InitDownloadEvents()
  
  Dim oDB As DAO.Database
  Dim sSql As String
  
  ' init events
  Set oDB = CurrentDb
  sSql = "UPDATE DownloadEvents SET Complete = False"
  oDB.Execute sSql
  
  oDB.Close
  Set oDB = Nothing
  
End Sub

Public Function SetEvent(pEvent As String) As Boolean
  
  Dim oDB As DAO.Database
  Dim sSql As String
  
  SetEvent = False
  
  Set oDB = CurrentDb
  
  sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf
  sSql = sSql & "WHERE EventName = '" & pEvent & "'"
  oDB.Execute sSql
  
  SetEvent = True
  
ExitFunction:
  On Error Resume Next
  
  oDB.Close
  Set oDB = Nothing
  
End Function


Thanks in advance for any help provided.


Mike Gowey  MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit

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




From papparuff at comcast.net  Fri Jan 27 09:00:39 2006
From: papparuff at comcast.net (papparuff at comcast.net)
Date: Fri, 27 Jan 2006 15:00:39 +0000
Subject: [AccessD] Function Error
Message-ID: <012720061500.14312.43DA35970007F426000037E8220730079300009A9D0E9F9F0E9F@comcast.net>

You forgot to explicitly declare the database and recordsets.

Dim oDB As Database
  Dim oRS As Recordset
  Dim oRSBins As Recordset

shhould be 

Dim oDB As DAO.Database
  Dim oRS As DAO.Recordset
  Dim oRSBins As DAO.Recordset



--
John V. Ruff ? The Eternal Optimist :-) 

?Commit to the Lord whatever you do, 
and your plans will succeed.? Proverbs 16:3

-------------- Original message -------------- 
From: "Gowey Mike W" <Mike.W.Gowey at doc.state.or.us> 

> 
> Sorry the highlight didn't show, the part it starts failing at is here: 
> 
> ' get all SIDs that are not assigned a bin number for the current row 
> sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j 
> & "' ORDER BY Row" 
> Set oRS = oDB.OpenRecordset(sSql) 
> 
> -----Original Message----- 
> From: Gowey Mike W 
> Sent: Friday, January 27, 2006 7:54 AM 
> To: Access Developers discussion and problem solving 
> Subject: [AccessD] Function Error 
> 
> 
> I'm converting a database from 97 to 2000 and have run into a problem 
> with the below function. Could someone please tell me why the 
> highlighted part is failing? I get a " Runtime error '5' Invalid 
> procedure call " 
> 
> 
> Public Function UpdateSID4Bin() As Boolean 
> 
> Dim oDB As Database 
> Dim oRS As Recordset 
> Dim oRSBins As Recordset 
> Dim sSql As String 
> Dim j As Long 
> Dim vRtn As Variant 
> 
> UpdateSID4Bin = False 
> 
> Set oDB = CurrentDb 
> 
> DoCmd.Hourglass True 
> 
> ' display message in status bar 
> vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New 
> SIDs...", 10) 
> 
> For j = 0 To 9 
> ' update meter 
> vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) 
> DoEvents 
> 
> ' get all SIDs that are not assigned a bin number for the current 
> row 
> sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j 
> & "' ORDER BY Row" 
> Set oRS = oDB.OpenRecordset(sSql) 
> 
> Do While Not oRS.EOF 
> ' grab an empty bin for the current row 
> sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & 
> j & "' AND SID IS NULL" 
> Set oRSBins = oDB.OpenRecordset(sSql) 
> 
> If Not oRSBins.EOF Then 
> ' update empty bin with current SID 
> sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") 
> & "' WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") 
> & "'" 
> oDB.Execute sSql 
> End If 
> 
> ' get next SID 
> oRS.MoveNext 
> 
> Loop 
> Next 
> 
> UpdateSID4Bin = True 
> 
> ExitFunction: 
> On Error Resume Next 
> 
> oRS.Close 
> oRSBins.Close 
> oDB.Close 
> 
> Set oRS = Nothing 
> Set oRSBins = Nothing 
> Set oDB = Nothing 
> 
> DoCmd.Hourglass False 
> vRtn = SysCmd(acSysCmdRemoveMeter) 
> 
> End Function 
> 
> Public Function CheckEvent(pEvent As String) As Boolean 
> 
> Dim oDB As DAO.Database 
> Dim oRS As DAO.Recordset 
> Dim sSql As String 
> 
> CheckEvent = False 
> 
> Set oDB = CurrentDb 
> 
> sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf 
> sSql = sSql & "WHERE EventName = '" & pEvent & "'" 
> Set oRS = oDB.OpenRecordset(sSql) 
> 
> With oRS 
> If Not .EOF Then 
> CheckEvent = (.Fields(0) = True) 
> End If 
> End With 
> 
> ExitFunction: 
> On Error Resume Next 
> 
> oRS.Close 
> oDB.Close 
> 
> Set oRS = Nothing 
> Set oDB = Nothing 
> 
> End Function 
> 
> Public Sub InitDownloadEvents() 
> 
> Dim oDB As DAO.Database 
> Dim sSql As String 
> 
> ' init events 
> Set oDB = CurrentDb 
> sSql = "UPDATE DownloadEvents SET Complete = False" 
> oDB.Execute sSql 
> 
> oDB.Close 
> Set oDB = Nothing 
> 
> End Sub 
> 
> Public Function SetEvent(pEvent As String) As Boolean 
> 
> Dim oDB As DAO.Database 
> Dim sSql As String 
> 
> SetEvent = False 
> 
> Set oDB = CurrentDb 
> 
> sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf 
> sSql = sSql & "WHERE EventName = '" & pEvent & "'" 
> oDB.Execute sSql 
> 
> SetEvent = True 
> 
> ExitFunction: 
> On Error Resume Next 
> 
> oDB.Close 
> Set oDB = Nothing 
> 
> End Function 
> 
> 
> Thanks in advance for any help provided. 
> 
> 
> Mike Gowey MCP, MCDST, A+, LME, NET+ 
> Team Leader - SouthEast Region 
> Information Systems Unit 
> 
> -- 
> AccessD mailing list 
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> 
> 
> -- 
> AccessD mailing list 
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 

From EdTesiny at oasas.state.ny.us  Fri Jan 27 09:06:13 2006
From: EdTesiny at oasas.state.ny.us (Tesiny, Ed)
Date: Fri, 27 Jan 2006 10:06:13 -0500
Subject: [AccessD] Field to small question
Message-ID: <FED384E544086A47AAC07C0999BE8D1703D50AFB@albmsx2k.rt.oasas.state.ny.us>

Did you delete the original field on the form and paste the new one?

Ed Tesiny
EdTesiny at oasas.state.ny.us
 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
> Sent: Thursday, January 26, 2006 10:05 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Field to small question
> 
> I am getting a field too small error. I went to the proper
> table and enlarged the size of the field. I closed the table
> so it should have been saved. The size is well larger then
> the data.
> 
>  
> 
> Why am I still getting the error?
> 
>  
> 
>  
> 
> Joe Hecht
> 
> jmhecht at earthlink.net
> 
>  
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 


From Gustav at cactus.dk  Fri Jan 27 09:09:23 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 27 Jan 2006 16:09:23 +0100
Subject: [AccessD] Function Error
Message-ID: <s3da45c6.066@cactus.dk>

Hi Mike

Have you tried running this on its own: 

  qryInmatesBinNumberUpdate

and this in a new query:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'

or should it be:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0

/gustav




From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 09:14:46 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 08:14:46 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB4A@srciml1.ds.doc.state.or.us>


Nope that wasn't the problem, still get the same error. 

-----Original Message-----
From: papparuff at comcast.net [mailto:papparuff at comcast.net] 
Sent: Friday, January 27, 2006 8:01 AM
To: Access Developers discussion and problem solving; Access Developers
discussion and problem solving
Cc: Gowey Mike W
Subject: Re: [AccessD] Function Error

You forgot to explicitly declare the database and recordsets.

Dim oDB As Database
  Dim oRS As Recordset
  Dim oRSBins As Recordset

shhould be 

Dim oDB As DAO.Database
  Dim oRS As DAO.Recordset
  Dim oRSBins As DAO.Recordset



--
John V. Ruff - The Eternal Optimist :-) 

"Commit to the Lord whatever you do,
and your plans will succeed." Proverbs 16:3

-------------- Original message --------------
From: "Gowey Mike W" <Mike.W.Gowey at doc.state.or.us> 

> 
> Sorry the highlight didn't show, the part it starts failing at is
here: 
> 
> ' get all SIDs that are not assigned a bin number for the current row 
> sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &

> "' ORDER BY Row"
> Set oRS = oDB.OpenRecordset(sSql)
> 
> -----Original Message-----
> From: Gowey Mike W
> Sent: Friday, January 27, 2006 7:54 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Function Error
> 
> 
> I'm converting a database from 97 to 2000 and have run into a problem 
> with the below function. Could someone please tell me why the 
> highlighted part is failing? I get a " Runtime error '5' Invalid 
> procedure call "
> 
> 
> Public Function UpdateSID4Bin() As Boolean
> 
> Dim oDB As Database
> Dim oRS As Recordset
> Dim oRSBins As Recordset
> Dim sSql As String
> Dim j As Long
> Dim vRtn As Variant
> 
> UpdateSID4Bin = False
> 
> Set oDB = CurrentDb
> 
> DoCmd.Hourglass True
> 
> ' display message in status bar
> vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New 
> SIDs...", 10)
> 
> For j = 0 To 9
> ' update meter
> vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents
> 
> ' get all SIDs that are not assigned a bin number for the current row 
> sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &

> "' ORDER BY Row"
> Set oRS = oDB.OpenRecordset(sSql)
> 
> Do While Not oRS.EOF
> ' grab an empty bin for the current row sSql = "SELECT TOP 1 BinNum 
> FROM BinNumSIDAssign WHERE Row = '" & j & "' AND SID IS NULL"
> Set oRSBins = oDB.OpenRecordset(sSql)
> 
> If Not oRSBins.EOF Then
> ' update empty bin with current SID
> sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "' 
> WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & 
> "'"
> oDB.Execute sSql
> End If
> 
> ' get next SID
> oRS.MoveNext
> 
> Loop
> Next
> 
> UpdateSID4Bin = True
> 
> ExitFunction: 
> On Error Resume Next
> 
> oRS.Close
> oRSBins.Close
> oDB.Close
> 
> Set oRS = Nothing
> Set oRSBins = Nothing
> Set oDB = Nothing
> 
> DoCmd.Hourglass False
> vRtn = SysCmd(acSysCmdRemoveMeter)
> 
> End Function
> 
> Public Function CheckEvent(pEvent As String) As Boolean
> 
> Dim oDB As DAO.Database
> Dim oRS As DAO.Recordset
> Dim sSql As String
> 
> CheckEvent = False
> 
> Set oDB = CurrentDb
> 
> sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql & 
> "WHERE EventName = '" & pEvent & "'"
> Set oRS = oDB.OpenRecordset(sSql)
> 
> With oRS
> If Not .EOF Then
> CheckEvent = (.Fields(0) = True)
> End If
> End With
> 
> ExitFunction: 
> On Error Resume Next
> 
> oRS.Close
> oDB.Close
> 
> Set oRS = Nothing
> Set oDB = Nothing
> 
> End Function
> 
> Public Sub InitDownloadEvents()
> 
> Dim oDB As DAO.Database
> Dim sSql As String
> 
> ' init events
> Set oDB = CurrentDb
> sSql = "UPDATE DownloadEvents SET Complete = False" 
> oDB.Execute sSql
> 
> oDB.Close
> Set oDB = Nothing
> 
> End Sub
> 
> Public Function SetEvent(pEvent As String) As Boolean
> 
> Dim oDB As DAO.Database
> Dim sSql As String
> 
> SetEvent = False
> 
> Set oDB = CurrentDb
> 
> sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = 
> sSql & "WHERE EventName = '" & pEvent & "'"
> oDB.Execute sSql
> 
> SetEvent = True
> 
> ExitFunction: 
> On Error Resume Next
> 
> oDB.Close
> Set oDB = Nothing
> 
> End Function
> 
> 
> Thanks in advance for any help provided. 
> 
> 
> Mike Gowey MCP, MCDST, A+, LME, NET+
> Team Leader - SouthEast Region
> Information Systems Unit
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From andy at minstersystems.co.uk  Fri Jan 27 09:18:25 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 15:18:25 +0000
Subject: [AccessD] Function Error
Message-ID: <20060127151822.32780256443@smtp.nildram.co.uk>

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j
& "' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1)
DoEvents

' get all SIDs that are not assigned a bin number for the current
row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j
& "' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" &
j & "' AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID")
& "' WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum")
& "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf
sSql = sSql & "WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf
sSql = sSql & "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2



From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 09:18:51 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 08:18:51 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB4B@srciml1.ds.doc.state.or.us>


I cycle through the table and the row number could be any number of 0 -
9 to check for a bin number. 

-----Original Message-----
From: Gustav Brock [mailto:Gustav at cactus.dk] 
Sent: Friday, January 27, 2006 8:09 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Function Error

Hi Mike

Have you tried running this on its own: 

  qryInmatesBinNumberUpdate

and this in a new query:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'

or should it be:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0

/gustav


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




From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 09:21:12 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 08:21:12 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB4C@srciml1.ds.doc.state.or.us>

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk] 
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

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




From jmhecht at earthlink.net  Fri Jan 27 09:28:04 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 27 Jan 2006 07:28:04 -0800
Subject: [AccessD] Field to small question
In-Reply-To: <FED384E544086A47AAC07C0999BE8D1703D50AFB@albmsx2k.rt.oasas.state.ny.us>
Message-ID: <002401c62356$45001230$6701a8c0@HPLaptop>

All I have one is change the field size setting at the table
level.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Tesiny, Ed
Sent: Friday, January 27, 2006 7:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Field to small question

Did you delete the original field on the form and paste the
new one?

Ed Tesiny
EdTesiny at oasas.state.ny.us
 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
> Sent: Thursday, January 26, 2006 10:05 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Field to small question
> 
> I am getting a field too small error. I went to the proper
> table and enlarged the size of the field. I closed the
table
> so it should have been saved. The size is well larger then
> the data.
> 
>  
> 
> Why am I still getting the error?
> 
>  
> 
>  
> 
> Joe Hecht
> 
> jmhecht at earthlink.net
> 
>  
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 09:31:47 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 08:31:47 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB4D@srciml1.ds.doc.state.or.us>

Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error.  Dang 

-----Original Message-----
From: Gowey Mike W 
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

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


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




From paul.hartland at isharp.co.uk  Fri Jan 27 09:33:36 2006
From: paul.hartland at isharp.co.uk (Paul Hartland (ISHARP))
Date: Fri, 27 Jan 2006 15:33:36 -0000
Subject: [AccessD] Return Names Of All Available Servers
In-Reply-To: <200512221305.jBMD50V16983@databaseadvisors.com>
Message-ID: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAACbXnuX4FFNR7DCzaK4N9GIAQAAAAA=@isharp.co.uk>

To all,

Not sure if this is possible, but is there a way via code that I can return
the names of all current active servers.  Basically when I open an access DB
I want it to run through I list of our server names then tell me if a
connection can be established.  

Thanks in advance for any help/code/pointers on this

Paul Hartland
Database Developer



From andy at minstersystems.co.uk  Fri Jan 27 09:35:58 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 15:35:58 +0000
Subject: [AccessD] Function Error
Message-ID: <20060127153555.34A7F256A81@smtp.nildram.co.uk>

Don't know for sure but Row has that ring about it.

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 15:22


That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

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


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

________________________________________________
Message sent using UebiMiau 2.7.2



From Gustav at cactus.dk  Fri Jan 27 09:36:31 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 27 Jan 2006 16:36:31 +0100
Subject: [AccessD] Field to small question
Message-ID: <s3da4c2c.067@cactus.dk>

Hi Joe

Well, if you changed it from 50 to 100 and the string is 150, it will still fail.

/gustav

>>> jmhecht at earthlink.net 27-01-2006 16:28:04 >>>
All I have one is change the field size setting at the table level.

> Why am I still getting the error?




From andy at minstersystems.co.uk  Fri Jan 27 09:38:19 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 15:38:19 +0000
Subject: [AccessD] Function Error
Message-ID: <20060127153816.469D6256AF9@smtp.nildram.co.uk>

Rows could be too. Is it worth trying 'RowNo' or something really obscure?
Could someone else with A2000 try this?

The other thing - is row numeric anyway? If so you don't want the two 's in
the SQL.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 15:33


Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error. Dang

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

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


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


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

________________________________________________
Message sent using UebiMiau 2.7.2



From jmhecht at earthlink.net  Fri Jan 27 09:43:54 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 27 Jan 2006 07:43:54 -0800
Subject: [AccessD] Field to small question
In-Reply-To: <s3da4c2c.067@cactus.dk>
Message-ID: <002801c62358$7ad80730$6701a8c0@HPLaptop>

Max size 7 characters. Field length  = 15

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Gustav Brock
Sent: Friday, January 27, 2006 7:37 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Field to small question

Hi Joe

Well, if you changed it from 50 to 100 and the string is
150, it will still fail.

/gustav

>>> jmhecht at earthlink.net 27-01-2006 16:28:04 >>>
All I have one is change the field size setting at the table
level.

> Why am I still getting the error?


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



From jmhecht at earthlink.net  Fri Jan 27 09:45:01 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 27 Jan 2006 07:45:01 -0800
Subject: [AccessD] Field to small question
In-Reply-To: <FED384E544086A47AAC07C0999BE8D1703D50AFB@albmsx2k.rt.oasas.state.ny.us>
Message-ID: <002901c62358$a2bdf4d0$6701a8c0@HPLaptop>

Will the control not read the change in length with removal
and replacement?

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Tesiny, Ed
Sent: Friday, January 27, 2006 7:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Field to small question

Did you delete the original field on the form and paste the
new one?

Ed Tesiny
EdTesiny at oasas.state.ny.us
 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
> Sent: Thursday, January 26, 2006 10:05 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Field to small question
> 
> I am getting a field too small error. I went to the proper
> table and enlarged the size of the field. I closed the
table
> so it should have been saved. The size is well larger then
> the data.
> 
>  
> 
> Why am I still getting the error?
> 
>  
> 
>  
> 
> Joe Hecht
> 
> jmhecht at earthlink.net
> 
>  
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From andy at minstersystems.co.uk  Fri Jan 27 09:51:32 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 15:51:32 +0000
Subject: [AccessD] Field to small question
Message-ID: <20060127155129.6F2BF256D11@smtp.nildram.co.uk>

It certainly will. But check other things, like Input Mask or code in
BeforeUpdate. Is the form definitely bound to that table?

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Field to small question
Date: 27/01/06 15:46


Will the control not read the change in length with removal
and replacement?

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Tesiny, Ed
Sent: Friday, January 27, 2006 7:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Field to small question

Did you delete the original field on the form and paste the
new one?

Ed Tesiny
EdTesiny at oasas.state.ny.us


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
> Sent: Thursday, January 26, 2006 10:05 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Field to small question
>
> I am getting a field too small error. I went to the proper
> table and enlarged the size of the field. I closed the
table
> so it should have been saved. The size is well larger then
> the data.
>
>
>
> Why am I still getting the error?
>
>
>
>
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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

________________________________________________
Message sent using UebiMiau 2.7.2



From bchacc at san.rr.com  Fri Jan 27 09:54:39 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Fri, 27 Jan 2006 07:54:39 -0800
Subject: [AccessD] Field to small question
In-Reply-To: <002801c62358$7ad80730$6701a8c0@HPLaptop>
References: <002801c62358$7ad80730$6701a8c0@HPLaptop>
Message-ID: <43DA423F.3050408@san.rr.com>

Just to be sure I'd put a debug statement right before where it fails:

Msgbox  len(strMyString) & " *" & strMyString & "*"

I've been fooled before.

Rocky


Joe Hecht wrote:
> Max size 7 characters. Field length  = 15
>
> Joe Hecht
> jmhecht at earthlink.net
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Gustav Brock
> Sent: Friday, January 27, 2006 7:37 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Field to small question
>
> Hi Joe
>
> Well, if you changed it from 50 to 100 and the string is
> 150, it will still fail.
>
> /gustav
>
>   
>>>> jmhecht at earthlink.net 27-01-2006 16:28:04 >>>
>>>>         
> All I have one is change the field size setting at the table
> level.
>
>   
>> Why am I still getting the error?
>>     
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From cfoust at infostatsystems.com  Fri Jan 27 10:00:28 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 27 Jan 2006 08:00:28 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <F55048AF7E974F429BB24597D7355EEABF66@INFOSERVER04.infostat.local>

I don't know if it would work there, Rocky.  Reports can be very
resistant to design changes in their Open events, but you could try it
by passing the papersize in to the report in OpenArgs and letting it set
its own papersize.  Another alternative if that didn't work would be to
dim a report object in the calling code, set to the report you're
opening and set the report's printer property from there.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Thursday, January 26, 2006 8:43 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] [Fwd: Default Page Size]



So, right code, wrong place? Should be in the open event of the report?

TIA

Rocky




Charlotte Foust wrote:
> All you're doing there is setting the paper size of the printer 
> object. You need to work the the Report's printer object.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Thursday, January 26, 2006 9:25 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> Charlotte:
>
> I put this code:
>
> If Me.fraPaperSize = 1 Then
>     Access.Printer.PaperSize = acPRPSLetter
> Else
>     Access.Printer.PaperSize = acPRPSA4
> End If
>
>
> into the event that calls the report in question.  On my printer it
> doesn't print any differently with either setting but I would expect 
> that, I guess as I haven't got any A4 paper to test it with.  I'll
send 
> it to the user to see if it solves the problem.
>
> But have I got the code right?  Should it go in the open event of the
> report itself instead of the calling procedure in the form?
>
> MTIA,
>
> Rocky
>
>   

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


From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 10:04:38 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 09:04:38 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB50@srciml1.ds.doc.state.or.us>


Well I went through and changed it to BinRowNum and unfortunately I
still get the same error, this is giving me a headache and it's Friday. 

-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk] 
Sent: Friday, January 27, 2006 8:38 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Rows could be too. Is it worth trying 'RowNo' or something really
obscure?
Could someone else with A2000 try this?

The other thing - is row numeric anyway? If so you don't want the two 's
in the SQL.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 15:33


Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error. Dang

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

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


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


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

________________________________________________
Message sent using UebiMiau 2.7.2

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




From jmhecht at earthlink.net  Fri Jan 27 10:12:26 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 27 Jan 2006 08:12:26 -0800
Subject: [AccessD] Field to small question
In-Reply-To: <20060127155129.6F2BF256D11@smtp.nildram.co.uk>
Message-ID: <002f01c6235c$771228c0$6701a8c0@HPLaptop>

I thought about that. I looked at the table relinker as this
project has morphed into a couple of back ends now and it
looked ok. Is there another way to check.

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Andy Lacey
Sent: Friday, January 27, 2006 7:52 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Field to small question

It certainly will. But check other things, like Input Mask
or code in
BeforeUpdate. Is the form definitely bound to that table?

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Field to small question
Date: 27/01/06 15:46


Will the control not read the change in length with removal
and replacement?

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Tesiny, Ed
Sent: Friday, January 27, 2006 7:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Field to small question

Did you delete the original field on the form and paste the
new one?

Ed Tesiny
EdTesiny at oasas.state.ny.us


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
> Sent: Thursday, January 26, 2006 10:05 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Field to small question
>
> I am getting a field too small error. I went to the proper
> table and enlarged the size of the field. I closed the
table
> so it should have been saved. The size is well larger then
> the data.
>
>
>
> Why am I still getting the error?
>
>
>
>
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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

________________________________________________
Message sent using UebiMiau 2.7.2

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



From bchacc at san.rr.com  Fri Jan 27 10:12:55 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Fri, 27 Jan 2006 08:12:55 -0800
Subject: [AccessD] [Fwd: Default Page Size]
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF66@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF66@INFOSERVER04.infostat.local>
Message-ID: <43DA4687.6050003@san.rr.com>

Charlotte:

Thanks.  I'll try both.  But I'll have to test it long distance.  No A4 
paper here, and I don't know if I'd see any difference on my printer.  
As soon as this guy's back in Bangalore, we'll give it a go.

Best,

Rocky


Charlotte Foust wrote:
> I don't know if it would work there, Rocky.  Reports can be very
> resistant to design changes in their Open events, but you could try it
> by passing the papersize in to the report in OpenArgs and letting it set
> its own papersize.  Another alternative if that didn't work would be to
> dim a report object in the calling code, set to the report you're
> opening and set the report's printer property from there.  
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Thursday, January 26, 2006 8:43 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
>
> So, right code, wrong place? Should be in the open event of the report?
>
> TIA
>
> Rocky
>
>
>
>
> Charlotte Foust wrote:
>   
>> All you're doing there is setting the paper size of the printer 
>> object. You need to work the the Report's printer object.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Thursday, January 26, 2006 9:25 AM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>
>>
>> Charlotte:
>>
>> I put this code:
>>
>> If Me.fraPaperSize = 1 Then
>>     Access.Printer.PaperSize = acPRPSLetter
>> Else
>>     Access.Printer.PaperSize = acPRPSA4
>> End If
>>
>>
>> into the event that calls the report in question.  On my printer it
>> doesn't print any differently with either setting but I would expect 
>> that, I guess as I haven't got any A4 paper to test it with.  I'll
>>     
> send 
>   
>> it to the user to see if it solves the problem.
>>
>> But have I got the code right?  Should it go in the open event of the
>> report itself instead of the calling procedure in the form?
>>
>> MTIA,
>>
>> Rocky
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From andy at minstersystems.co.uk  Fri Jan 27 10:15:48 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 16:15:48 +0000
Subject: [AccessD] Function Error
Message-ID: <20060127161544.D70E2256C2A@smtp.nildram.co.uk>

Sorry about that Mike. Did you see my second suggestion? "The other thing -
is row numeric anyway? If so you don't want the two 's in the SQL."
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 16:06



Well I went through and changed it to BinRowNum and unfortunately I
still get the same error, this is giving me a headache and it's Friday.

-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:38 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Rows could be too. Is it worth trying 'RowNo' or something really
obscure?
Could someone else with A2000 try this?

The other thing - is row numeric anyway? If so you don't want the two 's
in the SQL.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 15:33


Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error. Dang

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

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


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


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

________________________________________________
Message sent using UebiMiau 2.7.2

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


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

________________________________________________
Message sent using UebiMiau 2.7.2



From andy at minstersystems.co.uk  Fri Jan 27 10:20:12 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 16:20:12 +0000
Subject: [AccessD] Field to small question
Message-ID: <20060127162009.55A25256FD0@smtp.nildram.co.uk>

Open the tabel in design mode (in BE). Ignore warning about it being a
linked table. Once in design right-click and select Properties and you'll
get Table Properties which will show where it's linked to.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Field to small question
Date: 27/01/06 16:14


I thought about that. I looked at the table relinker as this
project has morphed into a couple of back ends now and it
looked ok. Is there another way to check.

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Andy Lacey
Sent: Friday, January 27, 2006 7:52 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Field to small question

It certainly will. But check other things, like Input Mask
or code in
BeforeUpdate. Is the form definitely bound to that table?

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Field to small question
Date: 27/01/06 15:46


Will the control not read the change in length with removal
and replacement?

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Tesiny, Ed
Sent: Friday, January 27, 2006 7:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Field to small question

Did you delete the original field on the form and paste the
new one?

Ed Tesiny
EdTesiny at oasas.state.ny.us


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
> Sent: Thursday, January 26, 2006 10:05 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Field to small question
>
> I am getting a field too small error. I went to the proper
> table and enlarged the size of the field. I closed the
table
> so it should have been saved. The size is well larger then
> the data.
>
>
>
> Why am I still getting the error?
>
>
>
>
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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

________________________________________________
Message sent using UebiMiau 2.7.2

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

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

________________________________________________
Message sent using UebiMiau 2.7.2



From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 10:20:09 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 09:20:09 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB51@srciml1.ds.doc.state.or.us>

Nope the row field is text  :-( 

-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk] 
Sent: Friday, January 27, 2006 9:16 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Sorry about that Mike. Did you see my second suggestion? "The other
thing - is row numeric anyway? If so you don't want the two 's in the
SQL."
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 16:06



Well I went through and changed it to BinRowNum and unfortunately I
still get the same error, this is giving me a headache and it's Friday.

-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:38 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Rows could be too. Is it worth trying 'RowNo' or something really
obscure?
Could someone else with A2000 try this?

The other thing - is row numeric anyway? If so you don't want the two 's
in the SQL.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 15:33


Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error. Dang

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

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


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


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

________________________________________________
Message sent using UebiMiau 2.7.2

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


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

________________________________________________
Message sent using UebiMiau 2.7.2

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




From Lambert.Heenan at AIG.com  Fri Jan 27 10:24:40 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Fri, 27 Jan 2006 10:24:40 -0600
Subject: [AccessD] Function Error
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1C1E6BF2@xlivmbx21.aig.com>

The SQL is treating Row as if it was a string value. 

WHERE Row = '" & j & "' ORDER BY

It's not actually numeric by any chance?


Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gowey Mike W
Sent: Friday, January 27, 2006 10:32 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error


Just for the heck of it I went through and changed Row to Rows and it didn't
solve the error.  Dang 

-----Original Message-----
From: Gowey Mike W 
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row sSql =
"SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' ORDER BY
Row" Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem with
the below function. Could someone please tell me why the highlighted part is
failing? I get a " Runtime error '5' Invalid procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row sSql =
"SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' ORDER BY
Row" Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "' AND
SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "' WHERE
Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql & "WHERE
EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'" oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

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


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


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


From bchacc at san.rr.com  Fri Jan 27 10:40:06 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Fri, 27 Jan 2006 08:40:06 -0800
Subject: [AccessD] Field to small question
In-Reply-To: <002f01c6235c$771228c0$6701a8c0@HPLaptop>
References: <002f01c6235c$771228c0$6701a8c0@HPLaptop>
Message-ID: <43DA4CE6.8090601@san.rr.com>

Open the tabledef for the table and display the length of that field to 
see what the program is 'seeing'?

Rocky


Joe Hecht wrote:
> I thought about that. I looked at the table relinker as this
> project has morphed into a couple of back ends now and it
> looked ok. Is there another way to check.
>
> Joe Hecht
> jmhecht at earthlink.net
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Andy Lacey
> Sent: Friday, January 27, 2006 7:52 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Field to small question
>
> It certainly will. But check other things, like Input Mask
> or code in
> BeforeUpdate. Is the form definitely bound to that table?
>
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
>
>
>
> --------- Original Message --------
> From: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Field to small question
> Date: 27/01/06 15:46
>
>
> Will the control not read the change in length with removal
> and replacement?
>
> Joe Hecht
> jmhecht at earthlink.net
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Tesiny, Ed
> Sent: Friday, January 27, 2006 7:06 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Field to small question
>
> Did you delete the original field on the form and paste the
> new one?
>
> Ed Tesiny
> EdTesiny at oasas.state.ny.us
>
>
>   
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>>     
> Joe Hecht
>   
>> Sent: Thursday, January 26, 2006 10:05 PM
>> To: 'Access Developers discussion and problem solving'
>> Subject: [AccessD] Field to small question
>>
>> I am getting a field too small error. I went to the proper
>> table and enlarged the size of the field. I closed the
>>     
> table
>   
>> so it should have been saved. The size is well larger then
>> the data.
>>
>>
>>
>> Why am I still getting the error?
>>
>>
>>
>>
>>
>> Joe Hecht
>>
>> jmhecht at earthlink.net
>>
>>
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>>     
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> ________________________________________________
> Message sent using UebiMiau 2.7.2
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Fri Jan 27 10:41:04 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Fri, 27 Jan 2006 08:41:04 -0800
Subject: [AccessD] Field to small question
In-Reply-To: <20060127162009.55A25256FD0@smtp.nildram.co.uk>
References: <20060127162009.55A25256FD0@smtp.nildram.co.uk>
Message-ID: <43DA4D20.3080001@san.rr.com>

He'll also be able to see the field length as well, yes?

Rocky


Andy Lacey wrote:
> Open the tabel in design mode (in BE). Ignore warning about it being a
> linked table. Once in design right-click and select Properties and you'll
> get Table Properties which will show where it's linked to.
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
>
>
>
> --------- Original Message --------
> From: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Field to small question
> Date: 27/01/06 16:14
>
>
> I thought about that. I looked at the table relinker as this
> project has morphed into a couple of back ends now and it
> looked ok. Is there another way to check.
>
> Joe Hecht
> jmhecht at earthlink.net
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Andy Lacey
> Sent: Friday, January 27, 2006 7:52 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Field to small question
>
> It certainly will. But check other things, like Input Mask
> or code in
> BeforeUpdate. Is the form definitely bound to that table?
>
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
>
>
>
> --------- Original Message --------
> From: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Field to small question
> Date: 27/01/06 15:46
>
>
> Will the control not read the change in length with removal
> and replacement?
>
> Joe Hecht
> jmhecht at earthlink.net
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Tesiny, Ed
> Sent: Friday, January 27, 2006 7:06 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Field to small question
>
> Did you delete the original field on the form and paste the
> new one?
>
> Ed Tesiny
> EdTesiny at oasas.state.ny.us
>
>
>   
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>>     
> Joe Hecht
>   
>> Sent: Thursday, January 26, 2006 10:05 PM
>> To: 'Access Developers discussion and problem solving'
>> Subject: [AccessD] Field to small question
>>
>> I am getting a field too small error. I went to the proper
>> table and enlarged the size of the field. I closed the
>>     
> table
>   
>> so it should have been saved. The size is well larger then
>> the data.
>>
>>
>>
>> Why am I still getting the error?
>>
>>
>>
>>
>>
>> Joe Hecht
>>
>> jmhecht at earthlink.net
>>
>>
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>>     
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> ________________________________________________
> Message sent using UebiMiau 2.7.2
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> ________________________________________________
> Message sent using UebiMiau 2.7.2
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 10:45:14 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 09:45:14 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB52@srciml1.ds.doc.state.or.us>

Nope it's not numeric.  I went through and changed the Row field to
numeric and adjusted the statement to take out the single quotes but I
still get the same error. 

-----Original Message-----
From: Heenan, Lambert [mailto:Lambert.Heenan at AIG.com] 
Sent: Friday, January 27, 2006 9:25 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Function Error

The SQL is treating Row as if it was a string value. 

WHERE Row = '" & j & "' ORDER BY

It's not actually numeric by any chance?


Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gowey Mike W
Sent: Friday, January 27, 2006 10:32 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error


Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error.  Dang 

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

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


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


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




From andy at minstersystems.co.uk  Fri Jan 27 10:57:23 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 16:57:23 +0000
Subject: [AccessD] Function Error
Message-ID: <20060127165720.34F4325685C@smtp.nildram.co.uk>

Clutching at straws. Tried putting [] around SID, Row (twice) and the query
name?

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 16:47


Nope it's not numeric. I went through and changed the Row field to
numeric and adjusted the statement to take out the single quotes but I
still get the same error.

-----Original Message-----
From: Heenan, Lambert [mailto:Lambert.Heenan at AIG.com]
Sent: Friday, January 27, 2006 9:25 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Function Error

The SQL is treating Row as if it was a string value.

WHERE Row = '" & j & "' ORDER BY

It's not actually numeric by any chance?


Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gowey Mike W
Sent: Friday, January 27, 2006 10:32 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error


Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error. Dang

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

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


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


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


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

________________________________________________
Message sent using UebiMiau 2.7.2



From jwelz at hotmail.com  Fri Jan 27 11:00:53 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Fri, 27 Jan 2006 10:00:53 -0700
Subject: [AccessD] Friday:  Access 2003 Help
In-Reply-To: <BAY113-W28D536295565AF89590CDA1150@phx.gbl>
Message-ID: <BAY113-F1670E78A2DF12CBB00EA4DA1140@phx.gbl>

>From the Access 2003 help topic:  Tips for improving the performance of 
Microsoft Access and your system.

'Increase RAM on your computer. 40 MB of memory is recommended? 32 MB of 
memory plus an additional 8 MB of memory for Microsoft Access.'

I'll get right on that one...


Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: J?rgen Welz <jwelz at hotmail.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem 
>solving"<accessd at databaseadvisors.com>
>Subject: Re: [AccessD] Same form, different actions
>Date: Thu, 26 Jan 2006 14:24:04 -0700
>MIME-Version: 1.0
>X-Originating-IP: [65.54.168.200]
>X-Originating-Email: [jwelz at hotmail.com]
>Received: from databaseadvisors.com ([209.135.140.44]) by 
>bay0-mc2-f7.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.211); Thu, 26 
>Jan 2006 13:25:16 -0800
>Received: from databaseadvisors.com (databaseadvisors.com 
>[209.135.140.44])by databaseadvisors.com (8.11.6/8.11.6) with ESMTP id 
>k0QLO5128567;Thu, 26 Jan 2006 15:24:05 -0600
>Received: from omc2-s28.bay6.hotmail.com 
>(omc2-s28.bay6.hotmail.com[65.54.249.38])by databaseadvisors.com 
>(8.11.6/8.11.6) with ESMTP id k0QLO3128556for 
><accessd at databaseadvisors.com>; Thu, 26 Jan 2006 15:24:03 -0600
>Received: from BAY113-W2 ([65.54.168.102]) by omc2-s28.bay6.hotmail.com 
>withMicrosoft SMTPSVC(6.0.3790.211); Thu, 26 Jan 2006 13:24:04 -0800
>X-Message-Info: LGjzam7y+LtmkF+qp9XD5nYIrt8y5mxH9Xzqiqe+GtI=
>X-OriginalArrivalTime: 26 Jan 2006 21:24:04.0719 
>(UTC)FILETIME=[D57827F0:01C622BE]
>X-Content-Filtered-By: Mailman/MimeDel 2.1.7-SiteWide-HeaderFooter
>X-BeenThere: accessd at databaseadvisors.com
>X-Mailman-Version: 2.1.7-SiteWide-HeaderFooter
>Precedence: list
>List-Id: Access Developers discussion and problem 
>solving<accessd.databaseadvisors.com>
>List-Unsubscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=unsubscribe>
>List-Archive: <http://databaseadvisors.com/pipermail/accessd>
>List-Post: <mailto:accessd at databaseadvisors.com>
>List-Help: <mailto:accessd-request at databaseadvisors.com?subject=help>
>List-Subscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=subscribe>
>Errors-To: accessd-bounces at databaseadvisors.com
>Return-Path: accessd-bounces at databaseadvisors.com
>
>This question is akin to the Library Database structure poser a couple days 
>ago.
>
>Checkboxes against roles work, but your giving up some normalization there. 
>  A junction table between the Entity and the Role is a more normalized 
>approach.  You'll give up a bit of speed as the number of records involved 
>in a query and its index goes up to the number of entities times the 
>average number of roles so the size of the data to be joined goes up in 
>proportion to the additional number of records and of course, the 
>processing of the join involves more processor cycles so the normalization 
>may bite a bit.  For better speed you can go with the flatter checkbox 
>approach, and for faster yet, that whole query by join on a bit will get 
>you 8 categories in a single byte field.  But I digress...
>
>For a law office database with similar considerations, I used a parent form 
>with a lookup combo and some search and navigation buttons that covered all 
>categories.  This parent form contained the basic universal information 
>about the person/corporate body.  When the user selected a person or 
>corporate body, various tabs became visible, each containing a subform that 
>had records pertaining to that category.  Generally, records within a 
>subform category were added from the subform and if no records existed, the 
>subform was simply not visible.  The user could pick a type of record from 
>the parent that would force the addition and display of an appropriate 
>subform.  For example, if a name happened to be that of a person on whose 
>behalf we had acted, a subform would open displaying the file numbers and 
>the capacity in which the person was related to the file.  A subform with 
>related parties showed the corporate bodies to which he was related as well 
>as the capacity in which he is related.  If the person was also a client on 
>a real estate transaction and his spouse was on the title, that name showed 
>as spouse.  There is another subform that contains Addresses and a further 
>one with Phone contact information.  In such a case, the person could be 
>related as a client.  If that person was also a lawyer, the related files 
>subform shows file numbers and capacity (opposing counsel, other lawyer on 
>a real estate transaction) and the related parties subform shows his legal 
>firm, assistant, reception...  If you happened to have spouse, child or 
>other affiliation, one simply needs to add that person and select a 
>capacity.
>
>I did the same thing with addresses and phone numbers.  An address could be 
>information about a property being bought or sold, but it is likely also a 
>past or present address of a client effective as at a certain date.  The 
>address of a corporation connected as a location address (as opposed to 
>mailing address) would also be the business address of a person associated 
>to the business as an employee or a lawyer.  The master address form has 
>subforms showing related parties, the capacity of the relation (home, 
>office..), related files where the property is related to a file (sale, 
>lien, tax appeal) and related phone numbers (If a law firm has the address, 
>a switchboard number is also a number for the lawyers and assistants and 
>individuals can have direct lines as well).
>
>The master phone number form has subforms that display addresses (if they 
>exist.  For a cell, the address subform would not be visible), parties that 
>may be reached by the number and their association to that number.
>
>Using JIT subforms where you set the recordsource on the fly to an 
>appropriately parameterized query makes this real fast.
>
>It is easy to control phone number formatting and I allow users to enter 
>phone numbers directly in a subform.  Before adding, the system looks up 
>the number and if it exists, displays related parties and the relationship 
>in a pop up.  This is useful in determining relationships between parties.  
>Addresses are more difficult in that there are many variations in 
>abbreviations and format.  I just have users follow Canada Post guidelines 
>and provide a merge feature to combine related addresses to keep down 
>duplications.Ciao
>J?rgen Welz
>Edmonton, Alberta
>jwelz at hotmail.com
>
>
>
> > Date: Thu, 26 Jan 2006 15:23:58 -0500> From: 
>John.Clark at niagaracounty.com> > First, I've started two requests for help 
>over the past couple of days,> only to discover the problem, while actually 
>typing the Emails...see,> y'all have learned me some things, since I've 
>been hanging out here.> > Well, it appears my luck may have run out. 
>Actually, I can think of a> couple different ways to do what I am now 
>trying to do, but I want to do> it correctly...something else I've learned 
>here...so I want to run it by> the list members.> > First I'll give you a 
>little background on the program, which is being> written in A2K. It is a 
>case tracking program for our DA's office, and I> have chosen to lump all 
>names together (i.e. lawyers, defendants,> victims, judges, etc.) in a 
>single table and, using checkboxes,> designate what role(s) they fulfill. 
>The purpose of doing this was to> avoid missing people already in the 
>system, in another designation than> they are currently being entered as. 
>It is usefull for them to know if a> defendant has been a victim, or visa 
>versa, and theoratically, a name> can be in the system as all of these 
>designations. I used the scenario> of an ADA, who becomes a defense 
>attorney, then become a judge, then> they are mugged, thus becoming a 
>victim, which makes them lose it and> take revenge on their attacker, which 
>makes them a defendant...they> would then be in all categories...unlikely 
>but possible.> > So, I've got a form called frm_Subjects, which allows 
>entry of names> and their "designations." The main form of the program is 
>the form,> "frmIndictments" and on this form, which basically a case by 
>case entry,> there is a drop down box to choose a defendant, from a list of 
>names.> Using a union query, I have set the top option to be, "".> When 
>they choose this option, I want to take them to the "frm_Subjects"> form. 
>OK, I'm good up to this point.> > The problem is however, can I use this 
>same form, yet have it react> differently? For instance, I've already got 
>it opening up as an "entry> form" with the way I am calling it from the 
>parent form (i.e.> "DoCmd.OpenForm "frm_Subjects", acNormal, , , 
>acFormAdd,> acWindowNormal"). But, when I exit that form it returns to the 
>menu, as> I've told it to do, and as I normally would want it to do. But, 
>when it> is accessed via the other form, I want it to return to that form, 
>and> place the chosen name into the combo box, which is bound to the 
>table.> > The possibilites I've thought of so far are:> > 1) set up a 
>parameter in the On Open event of that form...I don't even> know if this is 
>possible, now that I'm thinking about it...and check for> this when I have 
>it do things. Maybe it defaults to a "0" and works the> way it is now 
>working, but if called from the other form, it gets a "1"> and does things 
>slightly different.> > or 2) Cut my losses and just make a copy of the form 
>and have this copy> do the different actions, and call this one from the 
>other form. I'm> guessing this will be the answer.> > Thank you!> > John W 
>Clark
>_________________________________________________________________
>Express yourself instantly with MSN Messenger! Download today it's FREE!
>http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 11:01:27 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 10:01:27 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB54@srciml1.ds.doc.state.or.us>


You mean something like this?

sSql = "SELECT [SID], [Row] FROM qryInmatesBinNumberUpdate WHERE [Row] =
'" & j & "' ORDER BY Row" 

-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk] 
Sent: Friday, January 27, 2006 9:57 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Clutching at straws. Tried putting [] around SID, Row (twice) and the
query name?

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 16:47


Nope it's not numeric. I went through and changed the Row field to
numeric and adjusted the statement to take out the single quotes but I
still get the same error.

-----Original Message-----
From: Heenan, Lambert [mailto:Lambert.Heenan at AIG.com]
Sent: Friday, January 27, 2006 9:25 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Function Error

The SQL is treating Row as if it was a string value.

WHERE Row = '" & j & "' ORDER BY

It's not actually numeric by any chance?


Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gowey Mike W
Sent: Friday, January 27, 2006 10:32 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error


Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error. Dang

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

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


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


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


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

________________________________________________
Message sent using UebiMiau 2.7.2

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




From Patricia.O'Connor at otda.state.ny.us  Fri Jan 27 11:04:09 2006
From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA))
Date: Fri, 27 Jan 2006 12:04:09 -0500
Subject: [AccessD] Report formatting - figured out sum
Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B23A9@EXCNYSM0A1AI.nysemail.nyenet>

Ok I figured out my SUM portion of the problem - still need help with
printing problem
Thanks
Patti
**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
**************************************************


> 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system. 


_____________________________________________ 

> From: 	O'Connor, Patricia (OTDA)  
> Sent:	Friday, January 27, 2006 11:56 AM
> To:	'Access Developers discussion and problem solving'
> Subject:	Report formatting
> 
> Hi all
> 
> I have a report with two groupings 
>    Main grouping is RPT_GRP_TYPE which has 4 types.  Type 1-3 will
> contain records that have a Case information and currency amount.  The
> last group is just going to contain the Case information since these
> cases did not get payments. 
> 
>    The second grouping is by CASE and I want to sum the currency
> amount for each case.  It works fine. How do I get the Case footer to
> not try and print the sum for the Last MAIN group since there is no
> payments?
> 
> Another question - how do I get the total amount paid to only sum the
> amount for each case
> I am having a bit of a brain cramp - been working on Sql portion for a
> day.
> 
> Thanks!!!
> 
>  << OLE Object: Picture (Metafile) >> 
>


From jwelz at hotmail.com  Fri Jan 27 11:05:52 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Fri, 27 Jan 2006 10:05:52 -0700
Subject: [AccessD] Function Error
In-Reply-To: <20060127165720.34F4325685C@smtp.nildram.co.uk>
Message-ID: <BAY113-F32BD99D806504BA42F79CFA1140@phx.gbl>

Put in a colon at the end of 'Order by Row"

original

sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

revised

sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row": Set oRS = oDB.OpenRecordset(sSql)



Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>--------- Original Message --------
>
>Sorry the highlight didn't show, the part it starts failing at is here:
>
>' get all SIDs that are not assigned a bin number for the current row
>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
>"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>
>-----Original Message-----
>From: Gowey Mike W
>Sent: Friday, January 27, 2006 7:54 AM
>To: Access Developers discussion and problem solving
>Subject: [AccessD] Function Error
>
>
>I'm converting a database from 97 to 2000 and have run into a problem
>with the below function. Could someone please tell me why the
>highlighted part is failing? I get a " Runtime error '5' Invalid
>procedure call "
>
>
>Public Function UpdateSID4Bin() As Boolean
>
>Dim oDB As Database
>Dim oRS As Recordset
>Dim oRSBins As Recordset
>Dim sSql As String
>Dim j As Long
>Dim vRtn As Variant
>
>UpdateSID4Bin = False
>
>Set oDB = CurrentDb
>
>DoCmd.Hourglass True
>
>' display message in status bar
>vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
>SIDs...", 10)
>
>For j = 0 To 9
>' update meter
>vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents
>
>' get all SIDs that are not assigned a bin number for the current row
>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
>"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>
>Do While Not oRS.EOF
>' grab an empty bin for the current row
>sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
>AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)
>
>If Not oRSBins.EOF Then
>' update empty bin with current SID
>sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
>WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
>oDB.Execute sSql End If
>
>' get next SID
>oRS.MoveNext
>
>Loop
>Next
>
>UpdateSID4Bin = True
>
>ExitFunction:
>On Error Resume Next
>
>oRS.Close
>oRSBins.Close
>oDB.Close
>
>Set oRS = Nothing
>Set oRSBins = Nothing
>Set oDB = Nothing
>
>DoCmd.Hourglass False
>vRtn = SysCmd(acSysCmdRemoveMeter)
>
>End Function
>
>Public Function CheckEvent(pEvent As String) As Boolean
>
>Dim oDB As DAO.Database
>Dim oRS As DAO.Recordset
>Dim sSql As String
>
>CheckEvent = False
>
>Set oDB = CurrentDb
>
>sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
>"WHERE EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)
>
>With oRS
>If Not .EOF Then
>CheckEvent = (.Fields(0) = True)
>End If
>End With
>
>ExitFunction:
>On Error Resume Next
>
>oRS.Close
>oDB.Close
>
>Set oRS = Nothing
>Set oDB = Nothing
>
>End Function
>
>Public Sub InitDownloadEvents()
>
>Dim oDB As DAO.Database
>Dim sSql As String
>
>' init events
>Set oDB = CurrentDb
>sSql = "UPDATE DownloadEvents SET Complete = False"
>oDB.Execute sSql
>
>oDB.Close
>Set oDB = Nothing
>
>End Sub
>
>Public Function SetEvent(pEvent As String) As Boolean
>
>Dim oDB As DAO.Database
>Dim sSql As String
>
>SetEvent = False
>
>Set oDB = CurrentDb
>
>sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
>& "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql
>
>SetEvent = True
>
>ExitFunction:
>On Error Resume Next
>
>oDB.Close
>Set oDB = Nothing
>
>End Function
>
>
>Thanks in advance for any help provided.
>
>
>Mike Gowey MCP, MCDST, A+, LME, NET+
>Team Leader - SouthEast Region
>Information Systems Unit
>
>
>
>________________________________________________
>Message sent using UebiMiau 2.7.2
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>________________________________________________
>Message sent using UebiMiau 2.7.2
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From Patricia.O'Connor at otda.state.ny.us  Fri Jan 27 11:06:55 2006
From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA))
Date: Fri, 27 Jan 2006 12:06:55 -0500
Subject: [AccessD] Report formatting
Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B23AA@EXCNYSM0A1AI.nysemail.nyenet>

Hi all

I have a report with two groupings 
   Main grouping is RPT_GRP_TYPE which has 4 types.  Type 1-3 will
contain records that have a Case information and currency amount.  The
last group is just going to contain the Case information since these
cases did not get payments. 

   The second grouping is by CASE and I want to sum the currency amount
for each case.  It works fine. How do I get the Case footer to not try
and print the sum for the Last MAIN group since there is no payments?

Another question - how do I get the total amount paid to only sum the
amount for each case
I am having a bit of a brain cramp - been working on Sql portion for a
day.

Thanks!!!
**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
************************************************** 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system.


From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 11:12:43 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 10:12:43 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB56@srciml1.ds.doc.state.or.us>


The original actually looks like this

sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' ORDER BY Row" 
Set oRS = oDB.OpenRecordset(sSql)
 
So a colon won't help, thanks for the thought

-----Original Message-----
From: J??rgen Welz [mailto:jwelz at hotmail.com] 
Sent: Friday, January 27, 2006 10:06 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Function Error

Put in a colon at the end of 'Order by Row"

original

sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

revised

sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' ORDER BY Row": Set oRS = oDB.OpenRecordset(sSql)



Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>--------- Original Message --------
>
>Sorry the highlight didn't show, the part it starts failing at is here:
>
>' get all SIDs that are not assigned a bin number for the current row 
>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & 
>"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>
>-----Original Message-----
>From: Gowey Mike W
>Sent: Friday, January 27, 2006 7:54 AM
>To: Access Developers discussion and problem solving
>Subject: [AccessD] Function Error
>
>
>I'm converting a database from 97 to 2000 and have run into a problem 
>with the below function. Could someone please tell me why the 
>highlighted part is failing? I get a " Runtime error '5' Invalid 
>procedure call "
>
>
>Public Function UpdateSID4Bin() As Boolean
>
>Dim oDB As Database
>Dim oRS As Recordset
>Dim oRSBins As Recordset
>Dim sSql As String
>Dim j As Long
>Dim vRtn As Variant
>
>UpdateSID4Bin = False
>
>Set oDB = CurrentDb
>
>DoCmd.Hourglass True
>
>' display message in status bar
>vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New 
>SIDs...", 10)
>
>For j = 0 To 9
>' update meter
>vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents
>
>' get all SIDs that are not assigned a bin number for the current row 
>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & 
>"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>
>Do While Not oRS.EOF
>' grab an empty bin for the current row sSql = "SELECT TOP 1 BinNum 
>FROM BinNumSIDAssign WHERE Row = '" & j & "'
>AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)
>
>If Not oRSBins.EOF Then
>' update empty bin with current SID
>sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
>WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
>oDB.Execute sSql End If
>
>' get next SID
>oRS.MoveNext
>
>Loop
>Next
>
>UpdateSID4Bin = True
>
>ExitFunction:
>On Error Resume Next
>
>oRS.Close
>oRSBins.Close
>oDB.Close
>
>Set oRS = Nothing
>Set oRSBins = Nothing
>Set oDB = Nothing
>
>DoCmd.Hourglass False
>vRtn = SysCmd(acSysCmdRemoveMeter)
>
>End Function
>
>Public Function CheckEvent(pEvent As String) As Boolean
>
>Dim oDB As DAO.Database
>Dim oRS As DAO.Recordset
>Dim sSql As String
>
>CheckEvent = False
>
>Set oDB = CurrentDb
>
>sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql & 
>"WHERE EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)
>
>With oRS
>If Not .EOF Then
>CheckEvent = (.Fields(0) = True)
>End If
>End With
>
>ExitFunction:
>On Error Resume Next
>
>oRS.Close
>oDB.Close
>
>Set oRS = Nothing
>Set oDB = Nothing
>
>End Function
>
>Public Sub InitDownloadEvents()
>
>Dim oDB As DAO.Database
>Dim sSql As String
>
>' init events
>Set oDB = CurrentDb
>sSql = "UPDATE DownloadEvents SET Complete = False"
>oDB.Execute sSql
>
>oDB.Close
>Set oDB = Nothing
>
>End Sub
>
>Public Function SetEvent(pEvent As String) As Boolean
>
>Dim oDB As DAO.Database
>Dim sSql As String
>
>SetEvent = False
>
>Set oDB = CurrentDb
>
>sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = 
>sSql & "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql
>
>SetEvent = True
>
>ExitFunction:
>On Error Resume Next
>
>oDB.Close
>Set oDB = Nothing
>
>End Function
>
>
>Thanks in advance for any help provided.
>
>
>Mike Gowey MCP, MCDST, A+, LME, NET+
>Team Leader - SouthEast Region
>Information Systems Unit
>
>
>
>________________________________________________
>Message sent using UebiMiau 2.7.2
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>________________________________________________
>Message sent using UebiMiau 2.7.2
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com






From Jim.Hale at FleetPride.com  Fri Jan 27 11:13:40 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Fri, 27 Jan 2006 11:13:40 -0600
Subject: [AccessD] Function Error
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD9BF@corp-es01.fleetpride.com>

Did you check references to make sure DAO was properly checked?
Jim Hale

-----Original Message-----
From: Gowey Mike W [mailto:Mike.W.Gowey at doc.state.or.us]
Sent: Friday, January 27, 2006 11:01 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error



You mean something like this?

sSql = "SELECT [SID], [Row] FROM qryInmatesBinNumberUpdate WHERE [Row] =
'" & j & "' ORDER BY Row" 

-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk] 
Sent: Friday, January 27, 2006 9:57 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Clutching at straws. Tried putting [] around SID, Row (twice) and the
query name?

--
Andy Lacey
http://www.minstersystems.co.uk

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 11:22:19 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 10:22:19 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780108E7@srciml1.ds.doc.state.or.us>

Yes, I go through this same type of sql statements a couple times before
I even get to this one and they work fine, it is something to do with
this statement that it does not like.  I am stumped. 

-----Original Message-----
From: Hale, Jim [mailto:Jim.Hale at FleetPride.com] 
Sent: Friday, January 27, 2006 10:14 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Function Error

Did you check references to make sure DAO was properly checked?
Jim Hale

-----Original Message-----
From: Gowey Mike W [mailto:Mike.W.Gowey at doc.state.or.us]
Sent: Friday, January 27, 2006 11:01 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error



You mean something like this?

sSql = "SELECT [SID], [Row] FROM qryInmatesBinNumberUpdate WHERE [Row] =
'" & j & "' ORDER BY Row" 

-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 9:57 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Clutching at straws. Tried putting [] around SID, Row (twice) and the
query name?

--
Andy Lacey
http://www.minstersystems.co.uk

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or other
use of or taking action in reliance upon this information by persons or
entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email, you
are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jwelz at hotmail.com  Fri Jan 27 11:26:22 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Fri, 27 Jan 2006 10:26:22 -0700
Subject: [AccessD] Function Error
In-Reply-To: <05EBB8A3BEB95B4F8216BE4EF48607780579BB56@srciml1.ds.doc.state.or.us>
Message-ID: <BAY113-F279BE95E954B5674265F34A1140@phx.gbl>

Try commenting out the sysCmd.  It frequently fails on the systems I work 
on.

So does it fail when you set the string value or when you OpenRecordset?

If OpenRecordset:

Try replacing oDB with CurrentDb.

Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Gowey Mike W" <Mike.W.Gowey at doc.state.or.us>

>The original actually looks like this
>
>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' 
>ORDER BY Row"
>Set oRS = oDB.OpenRecordset(sSql)
>
>So a colon won't help, thanks for the thought
>
>-----Original Message-----
>From: J??rgen Welz [mailto:jwelz at hotmail.com]
>
>Put in a colon at the end of 'Order by Row"
>
>original
>
>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' 
>ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>
>revised
>
>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' 
>ORDER BY Row": Set oRS = oDB.OpenRecordset(sSql)
>
>
>
>Ciao
>J?rgen Welz
>Edmonton, Alberta
>jwelz at hotmail.com
>
>
>
>
>
> >--------- Original Message --------
> >
> >Sorry the highlight didn't show, the part it starts failing at is here:
> >
> >' get all SIDs that are not assigned a bin number for the current row
> >sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
> >"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
> >
> >-----Original Message-----
> >From: Gowey Mike W
> >Sent: Friday, January 27, 2006 7:54 AM
> >To: Access Developers discussion and problem solving
> >Subject: [AccessD] Function Error
> >
> >
> >I'm converting a database from 97 to 2000 and have run into a problem
> >with the below function. Could someone please tell me why the
> >highlighted part is failing? I get a " Runtime error '5' Invalid
> >procedure call "
> >
> >
> >Public Function UpdateSID4Bin() As Boolean
> >
> >Dim oDB As Database
> >Dim oRS As Recordset
> >Dim oRSBins As Recordset
> >Dim sSql As String
> >Dim j As Long
> >Dim vRtn As Variant
> >
> >UpdateSID4Bin = False
> >
> >Set oDB = CurrentDb
> >
> >DoCmd.Hourglass True
> >
> >' display message in status bar
> >vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
> >SIDs...", 10)
> >
> >For j = 0 To 9
> >' update meter
> >vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents
> >
> >' get all SIDs that are not assigned a bin number for the current row
> >sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
> >"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
> >
> >Do While Not oRS.EOF
> >' grab an empty bin for the current row sSql = "SELECT TOP 1 BinNum
> >FROM BinNumSIDAssign WHERE Row = '" & j & "'
> >AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)
> >
> >If Not oRSBins.EOF Then
> >' update empty bin with current SID
> >sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
> >WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
> >oDB.Execute sSql End If
> >
> >' get next SID
> >oRS.MoveNext
> >
> >Loop
> >Next
> >
> >UpdateSID4Bin = True
> >
> >ExitFunction:
> >On Error Resume Next
> >
> >oRS.Close
> >oRSBins.Close
> >oDB.Close
> >
> >Set oRS = Nothing
> >Set oRSBins = Nothing
> >Set oDB = Nothing
> >
> >DoCmd.Hourglass False
> >vRtn = SysCmd(acSysCmdRemoveMeter)
> >
> >End Function
> >
> >Public Function CheckEvent(pEvent As String) As Boolean
> >
> >Dim oDB As DAO.Database
> >Dim oRS As DAO.Recordset
> >Dim sSql As String
> >
> >CheckEvent = False
> >
> >Set oDB = CurrentDb
> >
> >sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
> >"WHERE EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)
> >
> >With oRS
> >If Not .EOF Then
> >CheckEvent = (.Fields(0) = True)
> >End If
> >End With
> >
> >ExitFunction:
> >On Error Resume Next
> >
> >oRS.Close
> >oDB.Close
> >
> >Set oRS = Nothing
> >Set oDB = Nothing
> >
> >End Function
> >
> >Public Sub InitDownloadEvents()
> >
> >Dim oDB As DAO.Database
> >Dim sSql As String
> >
> >' init events
> >Set oDB = CurrentDb
> >sSql = "UPDATE DownloadEvents SET Complete = False"
> >oDB.Execute sSql
> >
> >oDB.Close
> >Set oDB = Nothing
> >
> >End Sub
> >
> >Public Function SetEvent(pEvent As String) As Boolean
> >
> >Dim oDB As DAO.Database
> >Dim sSql As String
> >
> >SetEvent = False
> >
> >Set oDB = CurrentDb
> >
> >sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql =
> >sSql & "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql
> >
> >SetEvent = True
> >
> >ExitFunction:
> >On Error Resume Next
> >
> >oDB.Close
> >Set oDB = Nothing
> >
> >End Function
> >
> >
> >Thanks in advance for any help provided.
> >
> >
> >Mike Gowey MCP, MCDST, A+, LME, NET+
> >Team Leader - SouthEast Region
> >Information Systems Unit




From Gustav at cactus.dk  Fri Jan 27 11:34:38 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 27 Jan 2006 18:34:38 +0100
Subject: [AccessD] Function Error
Message-ID: <s3da67cd.073@cactus.dk>

Hi Mike, you didn't reveal the result of this:

>2005-01-27 16:09:23

Have you tried running this on its own: 

  qryInmatesBinNumberUpdate

and this in a new query:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'

or should it be:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0

/gustav




From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 11:41:20 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 10:41:20 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB58@srciml1.ds.doc.state.or.us>


Sorry about that,

If I run qryInmatesBinNumberUpdate it runs fine.

If I run
 
SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'

OR

SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0 

They both give me invalid procedure call

Interesting......

-----Original Message-----
From: Gustav Brock [mailto:Gustav at cactus.dk] 
Sent: Friday, January 27, 2006 10:35 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Function Error

Hi Mike, you didn't reveal the result of this:

>2005-01-27 16:09:23

Have you tried running this on its own: 

  qryInmatesBinNumberUpdate

and this in a new query:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'

or should it be:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0

/gustav


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




From andy at minstersystems.co.uk  Fri Jan 27 11:41:55 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 17:41:55 -0000
Subject: [AccessD] Function Error
In-Reply-To: <05EBB8A3BEB95B4F8216BE4EF48607780579BB54@srciml1.ds.doc.state.or.us>
Message-ID: <002a01c62368$f77b9440$7a970c54@minster33c3r25>

Yea but "ORDER BY [Row]" too.

And put a Debug.Print sSql in to check that it contains what you expect it
to. If it looks ok copy what you see, create a new Query in Access, go to
SQL view and paste it in. then run it there and see if the SQL itself is ok.


-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gowey Mike W
> Sent: 27 January 2006 17:01
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Function Error
> 
> 
> 
> You mean something like this?
> 
> sSql = "SELECT [SID], [Row] FROM qryInmatesBinNumberUpdate 
> WHERE [Row] = '" & j & "' ORDER BY Row" 
> 
> -----Original Message-----
> From: Andy Lacey [mailto:andy at minstersystems.co.uk] 
> Sent: Friday, January 27, 2006 9:57 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Function Error
> 
> Clutching at straws. Tried putting [] around SID, Row (twice) 
> and the query name?
> 
> --
> Andy Lacey
> http://www.minstersystems.co.uk
> 
> 
> 
> 
> --------- Original Message --------
> From: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> To: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Function Error
> Date: 27/01/06 16:47
> 
> 
> Nope it's not numeric. I went through and changed the Row 
> field to numeric and adjusted the statement to take out the 
> single quotes but I still get the same error.
> 
> -----Original Message-----
> From: Heenan, Lambert [mailto:Lambert.Heenan at AIG.com]
> Sent: Friday, January 27, 2006 9:25 AM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Function Error
> 
> The SQL is treating Row as if it was a string value.
> 
> WHERE Row = '" & j & "' ORDER BY
> 
> It's not actually numeric by any chance?
> 
> 
> Lambert
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gowey Mike W
> Sent: Friday, January 27, 2006 10:32 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Function Error
> 
> 
> Just for the heck of it I went through and changed Row to 
> Rows and it didn't solve the error. Dang
> 
> -----Original Message-----
> From: Gowey Mike W
> Sent: Friday, January 27, 2006 8:21 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Function Error
> 
> That's a good question, it works fine in 97, did they change 
> it in 2000?
> 
> 
> -----Original Message-----
> From: Andy Lacey [mailto:andy at minstersystems.co.uk]
> Sent: Friday, January 27, 2006 8:18 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Function Error
> 
> Is Row perchance a reserved word?
> --
> Andy Lacey
> http://www.minstersystems.co.uk
> 
> 
> 
> 
> --------- Original Message --------
> From: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> To: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Function Error
> Date: 27/01/06 14:58
> 
> 
> 
> Sorry the highlight didn't show, the part it starts failing 
> at is here:
> 
> ' get all SIDs that are not assigned a bin number for the 
> current row sSql = "SELECT SID FROM qryInmatesBinNumberUpdate 
> WHERE Row = '" & j & "' ORDER BY Row" Set oRS = 
> oDB.OpenRecordset(sSql)
> 
> -----Original Message-----
> From: Gowey Mike W
> Sent: Friday, January 27, 2006 7:54 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Function Error
> 
> 
> I'm converting a database from 97 to 2000 and have run into a 
> problem with the below function. Could someone please tell me 
> why the highlighted part is failing? I get a " Runtime error 
> '5' Invalid procedure call "
> 
> 
> Public Function UpdateSID4Bin() As Boolean
> 
> Dim oDB As Database
> Dim oRS As Recordset
> Dim oRSBins As Recordset
> Dim sSql As String
> Dim j As Long
> Dim vRtn As Variant
> 
> UpdateSID4Bin = False
> 
> Set oDB = CurrentDb
> 
> DoCmd.Hourglass True
> 
> ' display message in status bar
> vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System 
> With New SIDs...", 10)
> 
> For j = 0 To 9
> ' update meter
> vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents
> 
> ' get all SIDs that are not assigned a bin number for the 
> current row sSql = "SELECT SID FROM qryInmatesBinNumberUpdate 
> WHERE Row = '" & j & "' ORDER BY Row" Set oRS = 
> oDB.OpenRecordset(sSql)
> 
> Do While Not oRS.EOF
> ' grab an empty bin for the current row
> sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = 
> '" & j & "' AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)
> 
> If Not oRSBins.EOF Then
> ' update empty bin with current SID
> sSql = "UPDATE BinNumSIDAssign SET SID = '" & 
> oRS.Fields("SID") & "' WHERE Row = '" & j & "' AND BinNum = 
> '" & oRSBins.Fields("BinNum") & "'" oDB.Execute sSql End If
> 
> ' get next SID
> oRS.MoveNext
> 
> Loop
> Next
> 
> UpdateSID4Bin = True
> 
> ExitFunction:
> On Error Resume Next
> 
> oRS.Close
> oRSBins.Close
> oDB.Close
> 
> Set oRS = Nothing
> Set oRSBins = Nothing
> Set oDB = Nothing
> 
> DoCmd.Hourglass False
> vRtn = SysCmd(acSysCmdRemoveMeter)
> 
> End Function
> 
> Public Function CheckEvent(pEvent As String) As Boolean
> 
> Dim oDB As DAO.Database
> Dim oRS As DAO.Recordset
> Dim sSql As String
> 
> CheckEvent = False
> 
> Set oDB = CurrentDb
> 
> sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = 
> sSql & "WHERE EventName = '" & pEvent & "'" Set oRS = 
> oDB.OpenRecordset(sSql)
> 
> With oRS
> If Not .EOF Then
> CheckEvent = (.Fields(0) = True)
> End If
> End With
> 
> ExitFunction:
> On Error Resume Next
> 
> oRS.Close
> oDB.Close
> 
> Set oRS = Nothing
> Set oDB = Nothing
> 
> End Function
> 
> Public Sub InitDownloadEvents()
> 
> Dim oDB As DAO.Database
> Dim sSql As String
> 
> ' init events
> Set oDB = CurrentDb
> sSql = "UPDATE DownloadEvents SET Complete = False"
> oDB.Execute sSql
> 
> oDB.Close
> Set oDB = Nothing
> 
> End Sub
> 
> Public Function SetEvent(pEvent As String) As Boolean
> 
> Dim oDB As DAO.Database
> Dim sSql As String
> 
> SetEvent = False
> 
> Set oDB = CurrentDb
> 
> sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf 
> sSql = sSql & "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql
> 
> SetEvent = True
> 
> ExitFunction:
> On Error Resume Next
> 
> oDB.Close
> Set oDB = Nothing
> 
> End Function
> 
> 
> Thanks in advance for any help provided.
> 
> 
> Mike Gowey MCP, MCDST, A+, LME, NET+
> Team Leader - SouthEast Region
> Information Systems Unit
> 
> 
> 
> ________________________________________________
> Message sent using UebiMiau 2.7.2
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> ________________________________________________
> Message sent using UebiMiau 2.7.2
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From markamatte at hotmail.com  Fri Jan 27 11:45:56 2006
From: markamatte at hotmail.com (Mark A Matte)
Date: Fri, 27 Jan 2006 17:45:56 +0000
Subject: [AccessD] Function Error
In-Reply-To: <BAY113-F279BE95E954B5674265F34A1140@phx.gbl>
Message-ID: <BAY114-F1637D9F454877D21B95D7BD2140@phx.gbl>

Mike,

After reading the past few messages...I noticed you said it ran similar 
statements without an issue...so I pasted all SQL related statements and 
compared.  The only difference I could see was the statement in question had 
an orderBy clause.  The I remembered an app I had that crashed because of a 
corrupt field...you can't sort if a field is corrupt...or DivBy0.

Just a wild guess to look at...assuming the code compiles ok...just crashes 
on execution.

Good Luck,

Mark A. Matte


>From: "J??rgen Welz" <jwelz at hotmail.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] Function Error
>Date: Fri, 27 Jan 2006 10:26:22 -0700
>
>Try commenting out the sysCmd.  It frequently fails on the systems I work 
>on.
>
>So does it fail when you set the string value or when you OpenRecordset?
>
>If OpenRecordset:
>
>Try replacing oDB with CurrentDb.
>
>Ciao
>J?rgen Welz
>Edmonton, Alberta
>jwelz at hotmail.com
>
>
>
>
>
>>From: "Gowey Mike W" <Mike.W.Gowey at doc.state.or.us>
>
>>The original actually looks like this
>>
>>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' 
>>ORDER BY Row"
>>Set oRS = oDB.OpenRecordset(sSql)
>>
>>So a colon won't help, thanks for the thought
>>
>>-----Original Message-----
>>From: J??rgen Welz [mailto:jwelz at hotmail.com]
>>
>>Put in a colon at the end of 'Order by Row"
>>
>>original
>>
>>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' 
>>ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>>
>>revised
>>
>>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' 
>>ORDER BY Row": Set oRS = oDB.OpenRecordset(sSql)
>>
>>
>>
>>Ciao
>>J?rgen Welz
>>Edmonton, Alberta
>>jwelz at hotmail.com
>>
>>
>>
>>
>>
>> >--------- Original Message --------
>> >
>> >Sorry the highlight didn't show, the part it starts failing at is here:
>> >
>> >' get all SIDs that are not assigned a bin number for the current row
>> >sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
>> >"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>> >
>> >-----Original Message-----
>> >From: Gowey Mike W
>> >Sent: Friday, January 27, 2006 7:54 AM
>> >To: Access Developers discussion and problem solving
>> >Subject: [AccessD] Function Error
>> >
>> >
>> >I'm converting a database from 97 to 2000 and have run into a problem
>> >with the below function. Could someone please tell me why the
>> >highlighted part is failing? I get a " Runtime error '5' Invalid
>> >procedure call "
>> >
>> >
>> >Public Function UpdateSID4Bin() As Boolean
>> >
>> >Dim oDB As Database
>> >Dim oRS As Recordset
>> >Dim oRSBins As Recordset
>> >Dim sSql As String
>> >Dim j As Long
>> >Dim vRtn As Variant
>> >
>> >UpdateSID4Bin = False
>> >
>> >Set oDB = CurrentDb
>> >
>> >DoCmd.Hourglass True
>> >
>> >' display message in status bar
>> >vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
>> >SIDs...", 10)
>> >
>> >For j = 0 To 9
>> >' update meter
>> >vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents
>> >
>> >' get all SIDs that are not assigned a bin number for the current row
>> >sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
>> >"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>> >
>> >Do While Not oRS.EOF
>> >' grab an empty bin for the current row sSql = "SELECT TOP 1 BinNum
>> >FROM BinNumSIDAssign WHERE Row = '" & j & "'
>> >AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)
>> >
>> >If Not oRSBins.EOF Then
>> >' update empty bin with current SID
>> >sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
>> >WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
>> >oDB.Execute sSql End If
>> >
>> >' get next SID
>> >oRS.MoveNext
>> >
>> >Loop
>> >Next
>> >
>> >UpdateSID4Bin = True
>> >
>> >ExitFunction:
>> >On Error Resume Next
>> >
>> >oRS.Close
>> >oRSBins.Close
>> >oDB.Close
>> >
>> >Set oRS = Nothing
>> >Set oRSBins = Nothing
>> >Set oDB = Nothing
>> >
>> >DoCmd.Hourglass False
>> >vRtn = SysCmd(acSysCmdRemoveMeter)
>> >
>> >End Function
>> >
>> >Public Function CheckEvent(pEvent As String) As Boolean
>> >
>> >Dim oDB As DAO.Database
>> >Dim oRS As DAO.Recordset
>> >Dim sSql As String
>> >
>> >CheckEvent = False
>> >
>> >Set oDB = CurrentDb
>> >
>> >sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
>> >"WHERE EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)
>> >
>> >With oRS
>> >If Not .EOF Then
>> >CheckEvent = (.Fields(0) = True)
>> >End If
>> >End With
>> >
>> >ExitFunction:
>> >On Error Resume Next
>> >
>> >oRS.Close
>> >oDB.Close
>> >
>> >Set oRS = Nothing
>> >Set oDB = Nothing
>> >
>> >End Function
>> >
>> >Public Sub InitDownloadEvents()
>> >
>> >Dim oDB As DAO.Database
>> >Dim sSql As String
>> >
>> >' init events
>> >Set oDB = CurrentDb
>> >sSql = "UPDATE DownloadEvents SET Complete = False"
>> >oDB.Execute sSql
>> >
>> >oDB.Close
>> >Set oDB = Nothing
>> >
>> >End Sub
>> >
>> >Public Function SetEvent(pEvent As String) As Boolean
>> >
>> >Dim oDB As DAO.Database
>> >Dim sSql As String
>> >
>> >SetEvent = False
>> >
>> >Set oDB = CurrentDb
>> >
>> >sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql =
>> >sSql & "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql
>> >
>> >SetEvent = True
>> >
>> >ExitFunction:
>> >On Error Resume Next
>> >
>> >oDB.Close
>> >Set oDB = Nothing
>> >
>> >End Function
>> >
>> >
>> >Thanks in advance for any help provided.
>> >
>> >
>> >Mike Gowey MCP, MCDST, A+, LME, NET+
>> >Team Leader - SouthEast Region
>> >Information Systems Unit
>
>


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




From Gustav at cactus.dk  Fri Jan 27 11:54:08 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 27 Jan 2006 18:54:08 +0100
Subject: [AccessD] Function Error
Message-ID: <s3da6c6b.074@cactus.dk>

Hi Mike

So what is the SQL of qryInmatesBinNumberUpdate?

/gustav




From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 11:56:21 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 10:56:21 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB59@srciml1.ds.doc.state.or.us>

This is the SQL of qryInmatesBinNumberUpdate:

SELECT Mid([inmates].[sid],(Len([inmates].[sid])-1),1) AS BinRowNum,
Inmates.SID, Inmates.Namef, Inmates.Namel, Inmates.Namem, Inmates.DOB,
Inmates.Cell, Inmates.Race, Inmates.Custody, Inmates.Age,
Inmates.HasBlues
FROM Inmates
WHERE (((Inmates.Cell) Not Like "DS*" And (Inmates.Cell) Not Like "IM*"
And (Inmates.Cell) Not Like "IN*" And (Inmates.Cell) Not Like "M-*" And
(Inmates.Cell) Not Like "S-*" And (Inmates.Cell)<>"") AND ((Exists
(SELECT SID FROM FTLaun WHERE FTLaun.SID = Inmates.SID))=False) AND
((Exists (SELECT SID FROM BinNumSIDAssign WHERE BinNumSIDAssign.SID =
Inmates.SID))=False))
ORDER BY Mid([inmates].[sid],(Len([inmates].[sid])-1),1), Inmates.SID; 

-----Original Message-----
From: Gustav Brock [mailto:Gustav at cactus.dk] 
Sent: Friday, January 27, 2006 10:54 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Function Error

Hi Mike

So what is the SQL of qryInmatesBinNumberUpdate?

/gustav


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




From artful at rogers.com  Fri Jan 27 12:00:38 2006
From: artful at rogers.com (Arthur Fuller)
Date: Fri, 27 Jan 2006 13:00:38 -0500
Subject: [AccessD] Rescue a corrupted database
Message-ID: <005b01c6236b$94cf1530$8e01a8c0@rock>

Can anyone provide some tips on things to try to rescue a database, or tools
or services that purport to do this?
It's the client of a friend and colleague of mine. The last known good
backup of the database is two months old (don't go there! I gasped too!
Hell, I do more than one backup a day!), and allegedly very few rows have
been added, but many rows have changed. Allegedly they have the information
available in some form (paper maybe, I don't know) that would enable them to
re-key the changes. So this breaks down to the cost of repairing the
database versus the cost of re-keying the changes.
TIA,
Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks



From cfoust at infostatsystems.com  Fri Jan 27 12:04:33 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 27 Jan 2006 10:04:33 -0800
Subject: [AccessD] Friday:  Access 2003 Help
Message-ID: <F55048AF7E974F429BB24597D7355EEABF6B@INFOSERVER04.infostat.local>

ROTFLMAO!
Did they dig that out of the archives, or what??  Isn't that what Access 1 required? LOL

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of J??rgen Welz
Sent: Friday, January 27, 2006 9:01 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Friday: Access 2003 Help


>From the Access 2003 help topic:  Tips for improving the performance of
Microsoft Access and your system.

'Increase RAM on your computer. 40 MB of memory is recommended- 32 MB of 
memory plus an additional 8 MB of memory for Microsoft Access.'

I'll get right on that one...


Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: J?rgen Welz <jwelz at hotmail.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem 
>solving"<accessd at databaseadvisors.com>
>Subject: Re: [AccessD] Same form, different actions
>Date: Thu, 26 Jan 2006 14:24:04 -0700
>MIME-Version: 1.0
>X-Originating-IP: [65.54.168.200]
>X-Originating-Email: [jwelz at hotmail.com]
>Received: from databaseadvisors.com ([209.135.140.44]) by 
>bay0-mc2-f7.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.211); Thu, 26 
>Jan 2006 13:25:16 -0800
>Received: from databaseadvisors.com (databaseadvisors.com 
>[209.135.140.44])by databaseadvisors.com (8.11.6/8.11.6) with ESMTP id 
>k0QLO5128567;Thu, 26 Jan 2006 15:24:05 -0600
>Received: from omc2-s28.bay6.hotmail.com 
>(omc2-s28.bay6.hotmail.com[65.54.249.38])by databaseadvisors.com 
>(8.11.6/8.11.6) with ESMTP id k0QLO3128556for 
><accessd at databaseadvisors.com>; Thu, 26 Jan 2006 15:24:03 -0600
>Received: from BAY113-W2 ([65.54.168.102]) by omc2-s28.bay6.hotmail.com 
>withMicrosoft SMTPSVC(6.0.3790.211); Thu, 26 Jan 2006 13:24:04 -0800
>X-Message-Info: LGjzam7y+LtmkF+qp9XD5nYIrt8y5mxH9Xzqiqe+GtI=
>X-OriginalArrivalTime: 26 Jan 2006 21:24:04.0719 
>(UTC)FILETIME=[D57827F0:01C622BE]
>X-Content-Filtered-By: Mailman/MimeDel 2.1.7-SiteWide-HeaderFooter
>X-BeenThere: accessd at databaseadvisors.com
>X-Mailman-Version: 2.1.7-SiteWide-HeaderFooter
>Precedence: list
>List-Id: Access Developers discussion and problem 
>solving<accessd.databaseadvisors.com>
>List-Unsubscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=unsubscribe>
>List-Archive: <http://databaseadvisors.com/pipermail/accessd>
>List-Post: <mailto:accessd at databaseadvisors.com>
>List-Help: <mailto:accessd-request at databaseadvisors.com?subject=help>
>List-Subscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=subscribe>
>Errors-To: accessd-bounces at databaseadvisors.com
>Return-Path: accessd-bounces at databaseadvisors.com
>
>This question is akin to the Library Database structure poser a couple days 
>ago.
>
>Checkboxes against roles work, but your giving up some normalization there. 
>  A junction table between the Entity and the Role is a more normalized 
>approach.  You'll give up a bit of speed as the number of records involved 
>in a query and its index goes up to the number of entities times the 
>average number of roles so the size of the data to be joined goes up in 
>proportion to the additional number of records and of course, the 
>processing of the join involves more processor cycles so the normalization 
>may bite a bit.  For better speed you can go with the flatter checkbox 
>approach, and for faster yet, that whole query by join on a bit will get 
>you 8 categories in a single byte field.  But I digress...
>
>For a law office database with similar considerations, I used a parent form 
>with a lookup combo and some search and navigation buttons that covered all 
>categories.  This parent form contained the basic universal information 
>about the person/corporate body.  When the user selected a person or 
>corporate body, various tabs became visible, each containing a subform that 
>had records pertaining to that category.  Generally, records within a 
>subform category were added from the subform and if no records existed, the 
>subform was simply not visible.  The user could pick a type of record from 
>the parent that would force the addition and display of an appropriate 
>subform.  For example, if a name happened to be that of a person on whose 
>behalf we had acted, a subform would open displaying the file numbers and 
>the capacity in which the person was related to the file.  A subform with 
>related parties showed the corporate bodies to which he was related as well 
>as the capacity in which he is related.  If the person was also a client on 
>a real estate transaction and his spouse was on the title, that name showed 
>as spouse.  There is another subform that contains Addresses and a further 
>one with Phone contact information.  In such a case, the person could be 
>related as a client.  If that person was also a lawyer, the related files 
>subform shows file numbers and capacity (opposing counsel, other lawyer on 
>a real estate transaction) and the related parties subform shows his legal 
>firm, assistant, reception...  If you happened to have spouse, child or 
>other affiliation, one simply needs to add that person and select a 
>capacity.
>
>I did the same thing with addresses and phone numbers.  An address could be 
>information about a property being bought or sold, but it is likely also a 
>past or present address of a client effective as at a certain date.  The 
>address of a corporation connected as a location address (as opposed to 
>mailing address) would also be the business address of a person associated 
>to the business as an employee or a lawyer.  The master address form has 
>subforms showing related parties, the capacity of the relation (home, 
>office..), related files where the property is related to a file (sale, 
>lien, tax appeal) and related phone numbers (If a law firm has the address, 
>a switchboard number is also a number for the lawyers and assistants and 
>individuals can have direct lines as well).
>
>The master phone number form has subforms that display addresses (if they 
>exist.  For a cell, the address subform would not be visible), parties that 
>may be reached by the number and their association to that number.
>
>Using JIT subforms where you set the recordsource on the fly to an 
>appropriately parameterized query makes this real fast.
>
>It is easy to control phone number formatting and I allow users to enter 
>phone numbers directly in a subform.  Before adding, the system looks up 
>the number and if it exists, displays related parties and the relationship 
>in a pop up.  This is useful in determining relationships between parties.  
>Addresses are more difficult in that there are many variations in 
>abbreviations and format.  I just have users follow Canada Post guidelines 
>and provide a merge feature to combine related addresses to keep down 
>duplications.Ciao
>J?rgen Welz
>Edmonton, Alberta
>jwelz at hotmail.com
>
>
>
> > Date: Thu, 26 Jan 2006 15:23:58 -0500> From: 
>John.Clark at niagaracounty.com> > First, I've started two requests for help 
>over the past couple of days,> only to discover the problem, while actually 
>typing the Emails...see,> y'all have learned me some things, since I've 
>been hanging out here.> > Well, it appears my luck may have run out. 
>Actually, I can think of a> couple different ways to do what I am now 
>trying to do, but I want to do> it correctly...something else I've learned 
>here...so I want to run it by> the list members.> > First I'll give you a 
>little background on the program, which is being> written in A2K. It is a 
>case tracking program for our DA's office, and I> have chosen to lump all 
>names together (i.e. lawyers, defendants,> victims, judges, etc.) in a 
>single table and, using checkboxes,> designate what role(s) they fulfill. 
>The purpose of doing this was to> avoid missing people already in the 
>system, in another designation than> they are currently being entered as. 
>It is usefull for them to know if a> defendant has been a victim, or visa 
>versa, and theoratically, a name> can be in the system as all of these 
>designations. I used the scenario> of an ADA, who becomes a defense 
>attorney, then become a judge, then> they are mugged, thus becoming a 
>victim, which makes them lose it and> take revenge on their attacker, which 
>makes them a defendant...they> would then be in all categories...unlikely 
>but possible.> > So, I've got a form called frm_Subjects, which allows 
>entry of names> and their "designations." The main form of the program is 
>the form,> "frmIndictments" and on this form, which basically a case by 
>case entry,> there is a drop down box to choose a defendant, from a list of 
>names.> Using a union query, I have set the top option to be, "".> When 
>they choose this option, I want to take them to the "frm_Subjects"> form. 
>OK, I'm good up to this point.> > The problem is however, can I use this 
>same form, yet have it react> differently? For instance, I've already got 
>it opening up as an "entry> form" with the way I am calling it from the 
>parent form (i.e.> "DoCmd.OpenForm "frm_Subjects", acNormal, , , 
>acFormAdd,> acWindowNormal"). But, when I exit that form it returns to the 
>menu, as> I've told it to do, and as I normally would want it to do. But, 
>when it> is accessed via the other form, I want it to return to that form, 
>and> place the chosen name into the combo box, which is bound to the 
>table.> > The possibilites I've thought of so far are:> > 1) set up a 
>parameter in the On Open event of that form...I don't even> know if this is 
>possible, now that I'm thinking about it...and check for> this when I have 
>it do things. Maybe it defaults to a "0" and works the> way it is now 
>working, but if called from the other form, it gets a "1"> and does things 
>slightly different.> > or 2) Cut my losses and just make a copy of the form 
>and have this copy> do the different actions, and call this one from the 
>other form. I'm> guessing this will be the answer.> > Thank you!> > John W 
>Clark
>_________________________________________________________________
>Express yourself instantly with MSN Messenger! Download today it's FREE!
>http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From DWUTKA at marlow.com  Fri Jan 27 12:05:53 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Fri, 27 Jan 2006 12:05:53 -0600
Subject: [AccessD] Return Names Of All Available Servers
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD659@main2.marlow.com>

Is the system running on an Active Directory network?

Drew

-----Original Message-----
From: Paul Hartland (ISHARP) [mailto:paul.hartland at isharp.co.uk]
Sent: Friday, January 27, 2006 9:34 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Return Names Of All Available Servers
Importance: High


To all,

Not sure if this is possible, but is there a way via code that I can return
the names of all current active servers.  Basically when I open an access DB
I want it to run through I list of our server names then tell me if a
connection can be established.  

Thanks in advance for any help/code/pointers on this

Paul Hartland
Database Developer

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


From EdTesiny at oasas.state.ny.us  Fri Jan 27 12:13:58 2006
From: EdTesiny at oasas.state.ny.us (Tesiny, Ed)
Date: Fri, 27 Jan 2006 13:13:58 -0500
Subject: [AccessD] Rescue a corrupted database
Message-ID: <FED384E544086A47AAC07C0999BE8D1703D50AFE@albmsx2k.rt.oasas.state.ny.us>

Arthur,
Here's a link for you
http://rogersaccesslibrary.com/Otherdownload.asp?SampleName='Fix%20Corru
pt%20Access%20Database%20v4.4'

Watch for wrapping

Ed Tesiny
EdTesiny at oasas.state.ny.us
 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Arthur Fuller
> Sent: Friday, January 27, 2006 1:01 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Rescue a corrupted database
> 
> Can anyone provide some tips on things to try to rescue a 
> database, or tools
> or services that purport to do this?
> It's the client of a friend and colleague of mine. The last known good
> backup of the database is two months old (don't go there! I 
> gasped too!
> Hell, I do more than one backup a day!), and allegedly very 
> few rows have
> been added, but many rows have changed. Allegedly they have 
> the information
> available in some form (paper maybe, I don't know) that would 
> enable them to
> re-key the changes. So this breaks down to the cost of repairing the
> database versus the cost of re-keying the changes.
> TIA,
> Arthur,
> Son of Uther Pendragon,
> Defeater of the Saxons,
> Lord Over Alllll England, and
> King of the Dorks
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 


From martyconnelly at shaw.ca  Fri Jan 27 12:36:45 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 27 Jan 2006 10:36:45 -0800
Subject: [AccessD] Rescue a corrupted database
References: <005b01c6236b$94cf1530$8e01a8c0@rock>
Message-ID: <43DA683D.6010403@shaw.ca>

Tony Toews Corrupt Microsoft Access MDBs FAQ
http://www.granite.ab.ca/access/corruptmdbs.htm
Generally the cost from places like PKSolutions is $200-$400

Arthur Fuller wrote:

>Can anyone provide some tips on things to try to rescue a database, or tools
>or services that purport to do this?
>It's the client of a friend and colleague of mine. The last known good
>backup of the database is two months old (don't go there! I gasped too!
>Hell, I do more than one backup a day!), and allegedly very few rows have
>been added, but many rows have changed. Allegedly they have the information
>available in some form (paper maybe, I don't know) that would enable them to
>re-key the changes. So this breaks down to the cost of repairing the
>database versus the cost of re-keying the changes.
>TIA,
>Arthur,
>Son of Uther Pendragon,
>Defeater of the Saxons,
>Lord Over Alllll England, and
>King of the Dorks
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From Gustav at cactus.dk  Fri Jan 27 12:39:36 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 27 Jan 2006 19:39:36 +0100
Subject: [AccessD] Function Error
Message-ID: <s3da770d.075@cactus.dk>

Hi Mike

I suspect this to be the bad guy:

  Mid([inmates].[sid],(Len([inmates].[sid])-1),1) AS BinRowNum

Try to replace it for a test with:

  '0' AS BinRowNum

and run:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE BinRowNum = '0'

I guess that could be replaced with:

  Val(Right([inmates].[sid],1)) AS BinRowNum

and then it will be numeric, thus you could try:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE BinRowNum = 0

/gustav

>>> Mike.W.Gowey at doc.state.or.us 27-01-2006 18:56:21 >>>
This is the SQL of qryInmatesBinNumberUpdate:

SELECT Mid([inmates].[sid],(Len([inmates].[sid])-1),1) AS BinRowNum,
Inmates.SID, Inmates.Namef, Inmates.Namel, Inmates.Namem, Inmates.DOB,
Inmates.Cell, Inmates.Race, Inmates.Custody, Inmates.Age,
Inmates.HasBlues
FROM Inmates
WHERE (((Inmates.Cell) Not Like "DS*" And (Inmates.Cell) Not Like "IM*"
And (Inmates.Cell) Not Like "IN*" And (Inmates.Cell) Not Like "M-*" And
(Inmates.Cell) Not Like "S-*" And (Inmates.Cell)<>"") AND ((Exists
(SELECT SID FROM FTLaun WHERE FTLaun.SID = Inmates.SID))=False) AND
((Exists (SELECT SID FROM BinNumSIDAssign WHERE BinNumSIDAssign.SID =
Inmates.SID))=False))
ORDER BY Mid([inmates].[sid],(Len([inmates].[sid])-1),1), Inmates.SID; 

-----Original Message-----
From: Gustav Brock [mailto:Gustav at cactus.dk] 
Sent: Friday, January 27, 2006 10:54 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Function Error

Hi Mike

So what is the SQL of qryInmatesBinNumberUpdate?

/gustav




From martyconnelly at shaw.ca  Fri Jan 27 12:44:23 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 27 Jan 2006 10:44:23 -0800
Subject: [AccessD] Return Names Of All Available Servers
References: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAACbXnuX4FFNR7DCzaK4N9GIAQAAAAA=@isharp.co.uk>
Message-ID: <43DA6A07.4000208@shaw.ca>

If you mean SQL Servers see below; if you mean all types of servers 
that's a bit trickier

Sub listsql()
' For a single workstation list sql servers with  no network available
'otherwise you need to get all computer names from WMI and iterate
Dim strServer As String
Dim objWMIService As Object
Dim colInstances As Object
Dim objServices As Object
Dim objInstance As Object
Dim objLocator As Object
Dim i As Long
strComputer = "." 'local default computer name
 Set objLocator = CreateObject("WbemScripting.SWbemLocator")
 Set objServices = objLocator.ConnectServer(strServer, 
"root\MicrosoftSQLServer")
 objServices.Security_.ImpersonationLevel = 3
 Set colInstances = objServices.InstancesOf("MSSQL_SQLServer")
 i = 0
 For Each objInstance In colInstances
  i = i + 1
  MsgBox objInstance.Truename & " as instance Truename from WMI"
 Next
End Sub

or


'
'  Over a network domain
'
' http://www.codeguru.com/vb/gen/vb_system/network/article.php/c1641
'
Private Declare Function lstrlenW Lib "kernel32" (ByVal _
        lpString As Long) As Long
'
Private Declare Function NetServerEnum Lib "netapi32" ( _
    strServername As Any, _
    ByVal level As Long, _
    bufptr As Long, _
    ByVal prefmaxlen As Long, _
    entriesread As Long, _
    totalentries As Long, _
    ByVal servertype As Long, _
    strDomain As Any, _
    resumehandle As Long) As Long
'
Private Declare Function NetApiBufferFree Lib "Netapi32.dll" _
        (ByVal lpBuffer As Long) As Long
'
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
        (Destination As Any, Source As Any, ByVal Length As Long)
'
Private Const SV_TYPE_SERVER As Long = &H2
Private Const SV_TYPE_SQLSERVER As Long = &H4
'
Private Type SV_100
    platform As Long
    name As Long
End Type
'
'
Public Sub GetSQLServers()
'
' You could change this to be a function returning
' a list of the SQL servers in a ADOR Recordset or an array etc.
'
' At present, it just does a debug.print of all the
' SQL servers on the network.
'
' http://www.codeguru.com/vb/gen/vb_system/network/article.php/c1641

    Dim l As Long
    Dim entriesread As Long
    Dim totalentries As Long
    Dim hREsume As Long
    Dim bufptr As Long
    Dim level As Long
    Dim prefmaxlen As Long
    Dim lType As Long
    Dim domain() As Byte
    Dim i As Long
    Dim sv100 As SV_100
'
    level = 100
    prefmaxlen = -1
'
    lType = SV_TYPE_SQLSERVER
    'domain = "placeYourDomainNameHere" & vbNullChar
    domain = "Marty" & vbNullChar
    l = NetServerEnum(ByVal 0&, _
            level, _
            bufptr, _
            prefmaxlen, _
            entriesread, _
            totalentries, _
            lType, _
            domain(0), _
            hREsume)

    If l = 0 Or l = 234& Then
        For i = 0 To entriesread - 1
            CopyMemory sv100, ByVal bufptr, Len(sv100)
            Debug.Print Pointer2stringw(sv100.name)
            bufptr = bufptr + Len(sv100)
        Next i
    End If
    NetApiBufferFree bufptr
'
End Sub


Paul Hartland (ISHARP) wrote:

>To all,
>
>Not sure if this is possible, but is there a way via code that I can return
>the names of all current active servers.  Basically when I open an access DB
>I want it to run through I list of our server names then tell me if a
>connection can be established.  
>
>Thanks in advance for any help/code/pointers on this
>
>Paul Hartland
>Database Developer
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From accessd at shaw.ca  Fri Jan 27 13:09:52 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Fri, 27 Jan 2006 11:09:52 -0800
Subject: [AccessD] Function Error
In-Reply-To: <05EBB8A3BEB95B4F8216BE4EF48607780579BB58@srciml1.ds.doc.state.or.us>
Message-ID: <004b01c62375$40c73260$017ba8c0@xpserver>

Mike:

Will the SQL statements work in the query builder? 

Jim 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gowey Mike W
Sent: January 27, 2006 9:41 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error


Sorry about that,

If I run qryInmatesBinNumberUpdate it runs fine.

If I run
 
SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'

OR

SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0 

They both give me invalid procedure call

Interesting......

-----Original Message-----
From: Gustav Brock [mailto:Gustav at cactus.dk] 
Sent: Friday, January 27, 2006 10:35 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Function Error

Hi Mike, you didn't reveal the result of this:

>2005-01-27 16:09:23

Have you tried running this on its own: 

  qryInmatesBinNumberUpdate

and this in a new query:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'

or should it be:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0

/gustav


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


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



From DElam at jenkens.com  Fri Jan 27 13:13:16 2006
From: DElam at jenkens.com (Elam, Debbie)
Date: Fri, 27 Jan 2006 13:13:16 -0600
Subject: [AccessD] ADP Connection Problems
Message-ID: <7B1961ED924D1A459E378C9B1BB22B4C0492D360@natexch.jenkens.com>

I have a legacy database Discipline.adp in Access XP connection to a SQL
2000 database.  On one particular computer, the database will not connect.
It gives me a runtime error 76 then tells me to go to File> Connect and
change the connection parameters.  If I try to open that, it just gives me
the same error and message. 

I can make an ODBC connection to that same database on that machine.  

I also tried making a new .adp database and making the connection there.  It
immediately gives me the same error and message and no way to get to that
menu.

I have already un-installed and re-installed Access, and still get the same
problem.

Does anyone have any ideas about how to fix this?  I am going for a re-image
on Monday if nothing else works.

Debbie

- JENKENS & GILCHRIST E-MAIL NOTICE - This transmission may be: (1) subject
to the Attorney-Client Privilege, (2) an attorney work product, or (3)
strictly confidential. If you are not the intended recipient of this
message, you may not disclose, print, copy or disseminate this information.
If you have received this in error, please reply and notify the sender
(only) and delete the message. Unauthorized interception of this e-mail is a
violation of federal criminal law. 
This communication does not reflect an intention by the sender or the
sender's client or principal to conduct a transaction or make any agreement
by electronic means.  Nothing contained in this message or in any attachment
shall satisfy the requirements for a writing, and nothing contained herein
shall constitute a contract or electronic signature under the Electronic
Signatures in Global and National Commerce Act, any version of the Uniform
Electronic Transactions Act or any other statute governing electronic
transactions.


From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 13:17:20 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 12:17:20 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB5B@srciml1.ds.doc.state.or.us>


Gustav,

You are brilliant and a godsend, thank you so much for all your help,
The last part works like a charm, NO MORE ERRORS.  It always seems to
just take another person looking over it to find a better way.

Thanks again you are wonderful, now I can continue on a happier note for
a Friday....   :-) 

-----Original Message-----
From: Gustav Brock [mailto:Gustav at cactus.dk] 
Sent: Friday, January 27, 2006 11:40 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Function Error

Hi Mike

I suspect this to be the bad guy:

  Mid([inmates].[sid],(Len([inmates].[sid])-1),1) AS BinRowNum

Try to replace it for a test with:

  '0' AS BinRowNum

and run:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE BinRowNum = '0'

I guess that could be replaced with:

  Val(Right([inmates].[sid],1)) AS BinRowNum

and then it will be numeric, thus you could try:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE BinRowNum = 0

/gustav

>>> Mike.W.Gowey at doc.state.or.us 27-01-2006 18:56:21 >>>
This is the SQL of qryInmatesBinNumberUpdate:

SELECT Mid([inmates].[sid],(Len([inmates].[sid])-1),1) AS BinRowNum,
Inmates.SID, Inmates.Namef, Inmates.Namel, Inmates.Namem, Inmates.DOB,
Inmates.Cell, Inmates.Race, Inmates.Custody, Inmates.Age,
Inmates.HasBlues FROM Inmates WHERE (((Inmates.Cell) Not Like "DS*" And
(Inmates.Cell) Not Like "IM*"
And (Inmates.Cell) Not Like "IN*" And (Inmates.Cell) Not Like "M-*" And
(Inmates.Cell) Not Like "S-*" And (Inmates.Cell)<>"") AND ((Exists
(SELECT SID FROM FTLaun WHERE FTLaun.SID = Inmates.SID))=False) AND
((Exists (SELECT SID FROM BinNumSIDAssign WHERE BinNumSIDAssign.SID =
Inmates.SID))=False))
ORDER BY Mid([inmates].[sid],(Len([inmates].[sid])-1),1), Inmates.SID; 

-----Original Message-----
From: Gustav Brock [mailto:Gustav at cactus.dk]
Sent: Friday, January 27, 2006 10:54 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Function Error

Hi Mike

So what is the SQL of qryInmatesBinNumberUpdate?

/gustav


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




From Gustav at cactus.dk  Fri Jan 27 13:30:27 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 27 Jan 2006 20:30:27 +0100
Subject: [AccessD] Function Error
Message-ID: <s3da82f6.076@cactus.dk>

Hi Mike

Great!

/gustav

>>> Mike.W.Gowey at doc.state.or.us 27-01-2006 20:17:20 >>>

Gustav,

You are brilliant and a godsend, thank you so much for all your help,
The last part works like a charm, NO MORE ERRORS.  It always seems to
just take another person looking over it to find a better way.

Thanks again you are wonderful, now I can continue on a happier note for
a Friday....   :-) 




From jeffrey.demulling at usbank.com  Fri Jan 27 13:31:56 2006
From: jeffrey.demulling at usbank.com (jeffrey.demulling at usbank.com)
Date: Fri, 27 Jan 2006 13:31:56 -0600
Subject: [AccessD] Using Access FE to Upload Files to SQL Server BE
In-Reply-To: <05EBB8A3BEB95B4F8216BE4EF48607780579BB5B@srciml1.ds.doc.state.or.us>
Message-ID: <OF172D2761.45EBDD44-ON86257103.006A5E9C-86257103.006B4B3A@usbank.com>

Basics:

FE = A2K3
BE = SQL Server 2000

Problem: Using the code below want to upload into the SQL Server the file
passed into the field specified. The field being passed is an image field.
It works fine for a text or xml file but will not work if I try using an
mdb or ico file.  I get the error:

Run-time error '3002': File could not be opened

and this happens on the following line:

stFile.LoadFromFile strSaveFileName

When I do this I get the error:
Call UpLoadModuleFile(1, "ModuleFile", "D:\Files - Projects\TFM
Tools\Modules\SEI Reporting\SEI Reporting.mdb",
setSQLServerConnectionApplication(2, 2))

When I do this it does not error:

Call UpLoadModuleFile(1, "ModuleFile", "D:\Files - Projects\TFM
Tools\Modules\SEI Reporting\SEI Reporting.xml",
setSQLServerConnectionApplication(2, 2))

Code trying to use:

Sub UpLoadModuleFile(intModuleNumber As Integer, strFileFieldName As
String, _
    strSaveFileName As String, strConnection As String)

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim stFile As ADODB.Stream

strSQL = "SELECT"
strSQL = strSQL & " tblModuleFile." & strFileFieldName
strSQL = strSQL & " FROM"
strSQL = strSQL & " tblModuleFile"
strSQL = strSQL & " WHERE"
strSQL = strSQL & " tblModuleFile.InternalModuleID=" & intModuleNumber

con = strConnection
con.Open

rs.Open strSQL, con, adOpenKeyset, adLockOptimistic

Set stFile = New ADODB.Stream
stFile.Type = adTypeBinary
stFile.Open
stFile.LoadFromFile strSaveFileName

rs.Fields(strFileFieldName).Value = stFile.Read

rs.Update

stFile.Close

rs.Close
con.Close

Set stFile = Nothing
Set rs = Nothing
Set con = Nothing
End Sub

Jeffrey F. Demulling
Project Manager
U.S. Bank Corporate Trust Services
60 Livingston Avenue
EP-MN-WS3C
St. Paul, MN  55107-2292
Ph: 651-495-3925
Fax: 651-495-8103
email: jeffrey.demulling at usbank.com


------------------------------------------------------------------------------
Electronic Privacy Notice. This e-mail, and any attachments, contains information that is, or may be, covered by electronic communications privacy laws, and is also confidential and proprietary in nature. If you are not the intended recipient, please be advised that you are legally prohibited from retaining, using, copying, distributing, or otherwise disclosing this information in any manner. Instead, please reply to the sender that you have received this communication in error, and then immediately delete it. Thank you in advance for your cooperation.
==============================================================================



From John.Clark at niagaracounty.com  Fri Jan 27 14:05:39 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Fri, 27 Jan 2006 15:05:39 -0500
Subject: [AccessD] Same form, different actions
Message-ID: <s3da3729.073@nebnov3.niagaracounty.com>

This sounds like might do the trick. I've never done it before and the
help explanation is a little weak. Is it an actual "variable" attached
to the Open statement? I've got some lookin' up to do.



>>> mikedorism at verizon.net 1/26/2006 4:20 PM >>>
I've done what you are asking several times.  I just pass in an
OpenArgument
at the end of my DoCmd.Open statement.  I save that to an internal
form
variable in the FormOpen event and check it on FormClose.

Doris Manning
mikedorism at verizon.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Thursday, January 26, 2006 3:24 PM
To: accessd at databaseadvisors.com 
Subject: [AccessD] Same form, different actions

First, I've started two requests for help over the past couple of
days,
only to discover the problem, while actually typing the Emails...see,
y'all have learned me some things, since I've been hanging out here.

Well, it appears my luck may have run out. Actually, I can think of a
couple different ways to do what I am now trying to do, but I want to
do
it correctly...something else I've learned here...so I want to run it
by
the list members.

First I'll give you a little background on the program, which is being
written in A2K. It is a case tracking program for our DA's office, and
I
have chosen to lump all names together (i.e. lawyers, defendants,
victims, judges, etc.) in a single table and, using checkboxes,
designate what role(s) they fulfill. The purpose of doing this was to
avoid missing people already in the system, in another designation
than
they are currently being entered as. It is usefull for them to know if
a
defendant has been a victim, or visa versa, and theoratically, a name
can be in the system as all of these designations. I used the scenario
of an ADA, who becomes a defense attorney, then become a judge, then
they are mugged, thus becoming a victim, which makes them lose it and
take revenge on their attacker, which makes them a defendant...they
would then be in all categories...unlikely but possible.

So, I've got a form called frm_Subjects, which allows entry of names
and their "designations." The main form of the program is the form,
"frmIndictments" and on this form, which basically a case by case
entry,
there is a drop down box to choose a defendant, from a list of names.
Using a union query, I have set the top option to be, "<ENTER NAME>".
When they choose this option, I want to take them to the
"frm_Subjects"
form. OK, I'm good up to this point.

The problem is however, can I use this same form, yet have it react
differently? For instance, I've already got it opening up as an "entry
form" with the way I am calling it from the parent form (i.e.
"DoCmd.OpenForm "frm_Subjects", acNormal, , , acFormAdd,
acWindowNormal"). But, when I exit that form it returns to the menu,
as
I've told it to do, and as I normally would want it to do. But, when
it
is accessed via the other form, I want it to return to that form, and
place the chosen name into the combo box, which is bound to the table.

The possibilites I've thought of so far are:

1) set up a parameter in the On Open event of that form...I don't even
know if this is possible, now that I'm thinking about it...and check
for
this when I have it do things. Maybe it defaults to a "0" and works
the
way it is now working, but if called from the other form, it gets a
"1"
and does things slightly different.

or 2) Cut my losses and just make a copy of the form and have this
copy
do the different actions, and call this one from the other form. I'm
guessing this will be the answer.

Thank you!

John W Clark
-- 
AccessD mailing list
AccessD at databaseadvisors.com 
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com 


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


From bheid at appdevgrp.com  Fri Jan 27 14:28:14 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Fri, 27 Jan 2006 15:28:14 -0500
Subject: [AccessD] [SPAM SUSPECT] Re:  Strangeflickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A1DE@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E6B@ADGSERVER>

That is possible.  But it still does that when the other thing is closed.
It continues to do it until you kill it.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Thursday, January 26, 2006 5:12 PM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strangeflickering problem.
Importance: Low


Bobby,
I suspect that what you describe as flickering is the result of time
slicing between the macro operation in Access and whatever you're doing
elsewhere.  With an intensive operation in Access, which is something of
a hog on resources, you may have to go have coffee and not try to do
anything else while it's running.

Charlotte Foust



From bheid at appdevgrp.com  Fri Jan 27 14:28:49 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Fri, 27 Jan 2006 15:28:49 -0500
Subject: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Strange
	flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A1D2@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E6C@ADGSERVER>

I have had this happen (very rarely) here on my machine at work too.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
Beach Access Software
Sent: Thursday, January 26, 2006 4:16 PM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering
problem.
Importance: Low


Bobby:

Is it the app or the machine?  If you move the app to another machine do 
you get the same problem?

Rocky



From Patricia.O'Connor at otda.state.ny.us  Fri Jan 27 14:40:10 2006
From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA))
Date: Fri, 27 Jan 2006 15:40:10 -0500
Subject: [AccessD] Report formatting - SOLVED
Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B23AD@EXCNYSM0A1AI.nysemail.nyenet>

Finally solved it - had to put code into RETREAT portion of VB to make
groupfooter invisible for only the last group.    I originally had it in
the format portion but it would eliminate it from all groupings - didn't
make sense -- BUT it is done.  

Have a good weekend

**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
**************************************************
 

> 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system. 


-----Original Message-----

> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> O'Connor, Patricia (OTDA)
> Sent: Friday, January 27, 2006 12:07 PM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Report formatting
> 
> Hi all
> 
> I have a report with two groupings 
>    Main grouping is RPT_GRP_TYPE which has 4 types.  Type 1-3 
> will contain records that have a Case information and 
> currency amount.  The last group is just going to contain the 
> Case information since these cases did not get payments. 
> 
>    The second grouping is by CASE and I want to sum the 
> currency amount for each case.  It works fine. How do I get 
> the Case footer to not try and print the sum for the Last 
> MAIN group since there is no payments?
>


From bheid at appdevgrp.com  Fri Jan 27 14:53:40 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Fri, 27 Jan 2006 15:53:40 -0500
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A1C5@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E72@ADGSERVER>

Good to know that I am not going crazy!

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of J?rgen Welz
Sent: Thursday, January 26, 2006 3:39 PM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


I get this on our Terminal server environment when the server is slow and I
close something where I have made a change and I have agreed to save
changes.  The title bar toggles between two or three windows at about 30 HZ.
Sometimes it takes a couple minutes to save something like a rowsource for a
combo.  It only seems to happen when the server is real busy, but we've now
got 33 full time users and everyone is told to keep Outlook 2003 open at all
times.  In addition, we have a number of other outside users logging in on
our server.  Our Server is one of 40 but it is stretched rather thin so I'm
getting this flicker with increasing frequency.
 
J?rgen Welz



From KIsmert at texassystems.com  Fri Jan 27 15:16:18 2006
From: KIsmert at texassystems.com (Ken Ismert)
Date: Fri, 27 Jan 2006 15:16:18 -0600
Subject: [AccessD] Function Error
Message-ID: <B7C87D3ABC87FC4E8CFE054CE2E8868A36CD50@aries.TexasSystems.local>


Two suggestions: 

1. If code can't find the query, do a decompile/compact and repair. In
A2K, I often get a situation where a new query is visible to the user,
but not to code. The decompile/compact fixes that.

2. By rights, this should be a parameter query. 
   * Copy qryInmatesBinNumberUpdate to a new query:
qryInmatesBinNumberForRow
   * Add a RowNo string parameter, and put your external Where clause in
the query
   * Test it
   * Run it with code similar to: 

    Dim oQdf As DAO.QueryDef
    Set oQdf = oDB.QueryDefs("qryInmatesBinNumberForRow")
    With oQdf
        .Parameters("RowNo") = CStr(j)
        Set oRS = .OpenRecordset(dbOpenDynaset)
    End With

Sometimes, restating the problem makes the error jump out. 

-Ken


From dwaters at usinternet.com  Fri Jan 27 15:29:40 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Fri, 27 Jan 2006 15:29:40 -0600
Subject: [AccessD] Friday??
Message-ID: <000001c62388$c8379c90$0200a8c0@danwaters>

Holy Cripes, Batman!

Everyone's writing emails and I can't keep up!


;-)
Dan



From artful at rogers.com  Fri Jan 27 16:54:43 2006
From: artful at rogers.com (Arthur Fuller)
Date: Fri, 27 Jan 2006 17:54:43 -0500
Subject: [AccessD] Rescue a corrupted database
In-Reply-To: <43DA683D.6010403@shaw.ca>
Message-ID: <009901c62394$a9c74a60$8e01a8c0@rock>

No help there.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: January 27, 2006 1:37 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Rescue a corrupted database

Tony Toews Corrupt Microsoft Access MDBs FAQ
http://www.granite.ab.ca/access/corruptmdbs.htm
Generally the cost from places like PKSolutions is $200-$400




From stuart at lexacorp.com.pg  Fri Jan 27 18:02:54 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Sat, 28 Jan 2006 10:02:54 +1000
Subject: [AccessD] Friday:  Access 2003 Help
In-Reply-To: <BAY113-F1670E78A2DF12CBB00EA4DA1140@phx.gbl>
References: <BAY113-W28D536295565AF89590CDA1150@phx.gbl>
Message-ID: <43DB414E.28476.7B82511@stuart.lexacorp.com.pg>

On 27 Jan 2006 at 10:00, J??rgen Welz wrote:

> >From the Access 2003 help topic:  Tips for improving the performance of 
> Microsoft Access and your system.
> 
> 'Increase RAM on your computer. 40 MB of memory is recommended- 32 MB of
> memory plus an additional 8 MB of memory for Microsoft Access.'
> 
> I'll get right on that one...
> 

That's only if you started out on NT4. If  started out on W9X, you only 
need 24MB :-)

"If you are running Microsoft Windows 95 or later, 24 MB of memory is 
recommended - 16 MB plus an additional 8 MB of memory for Microsoft Access. 
If you are running Windows NT 4.0 or later, 40 MB of memory is recommended 
"


-- 
Stuart




From martyconnelly at shaw.ca  Fri Jan 27 18:37:39 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 27 Jan 2006 16:37:39 -0800
Subject: [AccessD] ADP Connection Problems
References: <7B1961ED924D1A459E378C9B1BB22B4C0492D360@natexch.jenkens.com>
Message-ID: <43DABCD3.4080601@shaw.ca>

runtime error 76 is generally path not found.

So Microsoft OLE DB Provider for SQL Server files
C:\Program Files\Common Files\System\Ole DB\sqloledb.dll
C:\Program Files\Common Files\System\Ole DB\sqloledb.rll
'this one updated by winxp sp2
C:\Program Files\Common Files\System\Ole DB\msdasql.dll

You can run MDAC Component Checker according to this kb article 
run on working and non working machines for differences

http://support.microsoft.com/kb/301202/en-us 

You might be using a File DSN that points locally rather than System DSN



Elam, Debbie wrote:

>I have a legacy database Discipline.adp in Access XP connection to a SQL
>2000 database.  On one particular computer, the database will not connect.
>It gives me a runtime error 76 then tells me to go to File> Connect and
>change the connection parameters.  If I try to open that, it just gives me
>the same error and message. 
>
>I can make an ODBC connection to that same database on that machine.  
>
>I also tried making a new .adp database and making the connection there.  It
>immediately gives me the same error and message and no way to get to that
>menu.
>
>I have already un-installed and re-installed Access, and still get the same
>problem.
>
>Does anyone have any ideas about how to fix this?  I am going for a re-image
>on Monday if nothing else works.
>
>Debbie
>
>-
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From martyconnelly at shaw.ca  Fri Jan 27 18:44:13 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 27 Jan 2006 16:44:13 -0800
Subject: [AccessD] Rescue a corrupted database
References: <005b01c6236b$94cf1530$8e01a8c0@rock> <43DA683D.6010403@shaw.ca>
Message-ID: <43DABE5D.1000904@shaw.ca>

Well Peter Miller PKSolutions will give you a quote on repair cost.
He has been doing this since Access 1.0

http://www.pksolutions.com/services.htm

MartyConnelly wrote:

>Tony Toews Corrupt Microsoft Access MDBs FAQ
>http://www.granite.ab.ca/access/corruptmdbs.htm
>Generally the cost from places like PKSolutions is $200-$400
>
>Arthur Fuller wrote:
>
>  
>
>>Can anyone provide some tips on things to try to rescue a database, or tools
>>or services that purport to do this?
>>It's the client of a friend and colleague of mine. The last known good
>>backup of the database is two months old (don't go there! I gasped too!
>>Hell, I do more than one backup a day!), and allegedly very few rows have
>>been added, but many rows have changed. Allegedly they have the information
>>available in some form (paper maybe, I don't know) that would enable them to
>>re-key the changes. So this breaks down to the cost of repairing the
>>database versus the cost of re-keying the changes.
>>TIA,
>>Arthur,
>>Son of Uther Pendragon,
>>Defeater of the Saxons,
>>Lord Over Alllll England, and
>>King of the Dorks
>>
>> 
>>
>>    
>>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From jmhecht at earthlink.net  Fri Jan 27 20:57:23 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 27 Jan 2006 18:57:23 -0800
Subject: [AccessD] Rescue a corrupted database
In-Reply-To: <005b01c6236b$94cf1530$8e01a8c0@rock>
Message-ID: <003301c623b6$90cd46f0$4c00a8c0@HPLaptop>

Arthur,

Can you import all objects into a new database?

Joe Hecht
jmhecht at earthlink.net



From max at sherman.org.uk  Sat Jan 28 01:30:20 2006
From: max at sherman.org.uk (Max Sherman)
Date: Sat, 28 Jan 2006 07:30:20 -0000
Subject: [AccessD] OpenReport Action Was Cancelled
In-Reply-To: <BAY113-W2C33CF467F065192F29C5A1150@phx.gbl>
Message-ID: <!&!AAAAAAAAAAAYAAAAAAAAAFuw6yFL/EpPgQyLGek9BtaiSQYAEAAAAO0rtT5/3nFPnEEPWfqNvVMBAAAAAA==@sherman.org.uk>

Ps. I have changed the subject.

I had a similar problem yesterday.  It was because the default network
printer had been unplugged and the Access Report just bombed out after a few
seconds.  Fortunately, it was easy to spot as the user had been using the
same report only a few minutes earlier with no problems and the only other
change to the system was me unplugging the printer to move it to a new
location.  

To avoid this, I now have a pop-up form which asks users to select a printer
from those available.

Regards
Max
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of J?rgen Welz
Sent: 26 January 2006 17:16
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Outlook automation - use a template for a message

Dealing with the nITzis for a couple days now on something that might be of
interest.  I had a couple users who couldn't open a report and Access throws
a '2501 The OpenReport action was canceled.'
 
I have functions that change default sql parameters based on the user and
their office and IT sets up rights to folders and I've got my own security
running and some data if from various sources that require drivers.
 
It turns out that these users can't even use File - Print Preview on a plain
lookup table.  Opening any preview from the database window results in a
silent failure.  Opening any report from the Immediate window with a docmd
OpenReport produces the error message.
 
IT tells me it is my problem because Access throws an error on my button
click event.
 
The problem is that, apparently unlike other MS Office applications, Access
uses some kind of print driver information to generate a print preview.  The
problem is the same as when no printer is installed.  In this case, it is a
problem with a Canon printer driver.  It took me nearly two hours to track
down this problem a year ago when IT added a paper tray to one of the other
office printers.  It was a particularly complex and convoluted report that a
user was trying to open so there were dozens of things to check and I
finally got permission to log in the user to track down the problem.
 
Lacking the basic ability to create a table with two entries and to select
Print Preview from the file menu, IT asked me to send them a new MDB that
demonstrated this problem outside of my application.  Of course Outlook
blocked the attachment so I was asked to rename the file extension.  Their
security prevents rename of file extension from Explorer (though it's easy
enough in VBA and though I can no longer get a DOS window, I can shell a
'ren' command).  We finally have zip capability and I think these email OK.
Being bloody minded, I ask them how to rename the file extension and send an
html link to the file instead.
 
This is ongoing.  In the mean time, I tell the users to select any other
printer in the office as their default printer.
Ciao
J?rgen Welz
Edmonton Alberta
jwelz at hotmail.com
_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From bchacc at san.rr.com  Sat Jan 28 12:05:05 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 28 Jan 2006 10:05:05 -0800
Subject: [AccessD] Function Error
In-Reply-To: <05EBB8A3BEB95B4F8216BE4EF48607780579BB58@srciml1.ds.doc.state.or.us>
References: <05EBB8A3BEB95B4F8216BE4EF48607780579BB58@srciml1.ds.doc.state.or.us>
Message-ID: <43DBB251.7020703@san.rr.com>

How is Row defined as a field in the table that the query uses?

Rocky


Gowey Mike W wrote:
> Sorry about that,
>
> If I run qryInmatesBinNumberUpdate it runs fine.
>
> If I run
>  
> SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'
>
> OR
>
> SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0 
>
> They both give me invalid procedure call
>
> Interesting......
>
> -----Original Message-----
> From: Gustav Brock [mailto:Gustav at cactus.dk] 
> Sent: Friday, January 27, 2006 10:35 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Function Error
>
> Hi Mike, you didn't reveal the result of this:
>
>   
>> 2005-01-27 16:09:23
>>     
>
> Have you tried running this on its own: 
>
>   qryInmatesBinNumberUpdate
>
> and this in a new query:
>
>   SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'
>
> or should it be:
>
>   SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0
>
> /gustav
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Sat Jan 28 12:07:25 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 28 Jan 2006 10:07:25 -0800
Subject: [AccessD] Function Error
In-Reply-To: <05EBB8A3BEB95B4F8216BE4EF48607780579BB59@srciml1.ds.doc.state.or.us>
References: <05EBB8A3BEB95B4F8216BE4EF48607780579BB59@srciml1.ds.doc.state.or.us>
Message-ID: <43DBB2DD.3060803@san.rr.com>

Mike:

IN your OpenRecordset you refer to 'Row' but that's not in your query, 
is it?

Rocky


Gowey Mike W wrote:
> This is the SQL of qryInmatesBinNumberUpdate:
>
> SELECT Mid([inmates].[sid],(Len([inmates].[sid])-1),1) AS BinRowNum,
> Inmates.SID, Inmates.Namef, Inmates.Namel, Inmates.Namem, Inmates.DOB,
> Inmates.Cell, Inmates.Race, Inmates.Custody, Inmates.Age,
> Inmates.HasBlues
> FROM Inmates
> WHERE (((Inmates.Cell) Not Like "DS*" And (Inmates.Cell) Not Like "IM*"
> And (Inmates.Cell) Not Like "IN*" And (Inmates.Cell) Not Like "M-*" And
> (Inmates.Cell) Not Like "S-*" And (Inmates.Cell)<>"") AND ((Exists
> (SELECT SID FROM FTLaun WHERE FTLaun.SID = Inmates.SID))=False) AND
> ((Exists (SELECT SID FROM BinNumSIDAssign WHERE BinNumSIDAssign.SID =
> Inmates.SID))=False))
> ORDER BY Mid([inmates].[sid],(Len([inmates].[sid])-1),1), Inmates.SID; 
>
> -----Original Message-----
> From: Gustav Brock [mailto:Gustav at cactus.dk] 
> Sent: Friday, January 27, 2006 10:54 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Function Error
>
> Hi Mike
>
> So what is the SQL of qryInmatesBinNumberUpdate?
>
> /gustav
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From accessd at shaw.ca  Sat Jan 28 14:26:34 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Sat, 28 Jan 2006 12:26:34 -0800
Subject: [AccessD] Function Error
In-Reply-To: <43DBB251.7020703@san.rr.com>
Message-ID: <001101c62449$24166da0$017ba8c0@xpserver>

Hi Rocky:

Isn't the record defined as a row and a field as a column?

Here is a piece of code that works with a recordset, a standard data set
should not work much differently.

Dim RowPosition as long
Dim ColumnPosition as integer

RowPosition = 1200
ColumnPosition = 12

With rsMyRecordset
	.Move First
	.Move (RowPosition)
   	MyFieldValue = .Fields(ColumnPosition)	
End With

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
Beach Access Software
Sent: January 28, 2006 10:05 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

How is Row defined as a field in the table that the query uses?

Rocky


Gowey Mike W wrote:
> Sorry about that,
>
> If I run qryInmatesBinNumberUpdate it runs fine.
>
> If I run
>  
> SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'
>
> OR
>
> SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0 
>
> They both give me invalid procedure call
>
> Interesting......
>
> -----Original Message-----
> From: Gustav Brock [mailto:Gustav at cactus.dk] 
> Sent: Friday, January 27, 2006 10:35 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Function Error
>
> Hi Mike, you didn't reveal the result of this:
>
>   
>> 2005-01-27 16:09:23
>>     
>
> Have you tried running this on its own: 
>
>   qryInmatesBinNumberUpdate
>
> and this in a new query:
>
>   SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'
>
> or should it be:
>
>   SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0
>
> /gustav
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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



From bchacc at san.rr.com  Sat Jan 28 15:31:18 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 28 Jan 2006 13:31:18 -0800
Subject: [AccessD] Function Error
In-Reply-To: <001101c62449$24166da0$017ba8c0@xpserver>
References: <001101c62449$24166da0$017ba8c0@xpserver>
Message-ID: <43DBE2A6.6060303@san.rr.com>

O.  I meant the use of the variable or field name Row in his SQL.  I was 
wondering what it referred to exactly and maybe there was a conflict 
with the reserved word.

Rocky


Jim Lawrence wrote:
> Hi Rocky:
>
> Isn't the record defined as a row and a field as a column?
>
> Here is a piece of code that works with a recordset, a standard data set
> should not work much differently.
>
> Dim RowPosition as long
> Dim ColumnPosition as integer
>
> RowPosition = 1200
> ColumnPosition = 12
>
> With rsMyRecordset
> 	.Move First
> 	.Move (RowPosition)
>    	MyFieldValue = .Fields(ColumnPosition)	
> End With
>
> HTH
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
> Beach Access Software
> Sent: January 28, 2006 10:05 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Function Error
>
> How is Row defined as a field in the table that the query uses?
>
> Rocky
>
>
> Gowey Mike W wrote:
>   
>> Sorry about that,
>>
>> If I run qryInmatesBinNumberUpdate it runs fine.
>>
>> If I run
>>  
>> SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'
>>
>> OR
>>
>> SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0 
>>
>> They both give me invalid procedure call
>>
>> Interesting......
>>
>> -----Original Message-----
>> From: Gustav Brock [mailto:Gustav at cactus.dk] 
>> Sent: Friday, January 27, 2006 10:35 AM
>> To: accessd at databaseadvisors.com
>> Subject: Re: [AccessD] Function Error
>>
>> Hi Mike, you didn't reveal the result of this:
>>
>>   
>>     
>>> 2005-01-27 16:09:23
>>>     
>>>       
>> Have you tried running this on its own: 
>>
>>   qryInmatesBinNumberUpdate
>>
>> and this in a new query:
>>
>>   SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'
>>
>> or should it be:
>>
>>   SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0
>>
>> /gustav
>>
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From DElam at jenkens.com  Sat Jan 28 19:36:49 2006
From: DElam at jenkens.com (Elam, Debbie)
Date: Sat, 28 Jan 2006 19:36:49 -0600
Subject: [AccessD] ADP Connection Problems
Message-ID: <7B1961ED924D1A459E378C9B1BB22B4C0492D36C@natexch.jenkens.com>

If I could get in to change the connection, that would be the end of it.
The problem appears that the connection of an ADP is messed up altogether.
I cannot change any parameters to try it.  I really don't think the SQL
files are the problem.

Debbie



-----Original Message-----
From: MartyConnelly [mailto:martyconnelly at shaw.ca] 
Sent: Friday, January 27, 2006 6:38 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] ADP Connection Problems


runtime error 76 is generally path not found.

So Microsoft OLE DB Provider for SQL Server files
C:\Program Files\Common Files\System\Ole DB\sqloledb.dll
C:\Program Files\Common Files\System\Ole DB\sqloledb.rll
'this one updated by winxp sp2
C:\Program Files\Common Files\System\Ole DB\msdasql.dll

You can run MDAC Component Checker according to this kb article 
run on working and non working machines for differences

http://support.microsoft.com/kb/301202/en-us 

You might be using a File DSN that points locally rather than System DSN



Elam, Debbie wrote:

>I have a legacy database Discipline.adp in Access XP connection to a SQL
>2000 database.  On one particular computer, the database will not connect.
>It gives me a runtime error 76 then tells me to go to File> Connect and
>change the connection parameters.  If I try to open that, it just gives me
>the same error and message. 
>
>I can make an ODBC connection to that same database on that machine.  
>
>I also tried making a new .adp database and making the connection there.
It
>immediately gives me the same error and message and no way to get to that
>menu.
>
>I have already un-installed and re-installed Access, and still get the same
>problem.
>
>Does anyone have any ideas about how to fix this?  I am going for a
re-image
>on Monday if nothing else works.
>
>Debbie
>
>-
>

-- 
Marty Connelly
Victoria, B.C.
Canada



-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
- JENKENS & GILCHRIST E-MAIL NOTICE - This transmission may be: (1) subject
to the Attorney-Client Privilege, (2) an attorney work product, or (3)
strictly confidential. If you are not the intended recipient of this
message, you may not disclose, print, copy or disseminate this information.
If you have received this in error, please reply and notify the sender
(only) and delete the message. Unauthorized interception of this e-mail is a
violation of federal criminal law. 
This communication does not reflect an intention by the sender or the
sender's client or principal to conduct a transaction or make any agreement
by electronic means.  Nothing contained in this message or in any attachment
shall satisfy the requirements for a writing, and nothing contained herein
shall constitute a contract or electronic signature under the Electronic
Signatures in Global and National Commerce Act, any version of the Uniform
Electronic Transactions Act or any other statute governing electronic
transactions.


From Robert at servicexp.com  Sun Jan 29 08:50:59 2006
From: Robert at servicexp.com (Robert Gracie)
Date: Sun, 29 Jan 2006 09:50:59 -0500
Subject: [AccessD] Secured vs. Unsecured FEs
In-Reply-To: <008e01c3081a$a2341500$6101a8c0@amd2k512>
Message-ID: <000001c624e3$6b795e10$657ba8c0@Roberts>

 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman
Sent: Monday, April 21, 2003 11:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Secured vs. Unsecured FEs

...securing your code is fairly simple and effective with XP encryption,
mdes, and ms security ...plenty of examples in the archives on this topic
...but definitely insist upon installing your own key logging detection
software (I prefer Pest Patrol) so that they can't grab your passwords
...and use REAL passwords and encrypt everything! ...langa's list just
pointed out how simple it is to bypass unencrypted security using linux boot
CDs on Win systems ...incredible :)

...the lock-in shouldn't be a major problem ...you'd still have access to
your code libraries but using your templates and tools would be problematic
...you'd have to rekey a module rather than just import it ...less
productive than you otherwise are but not a death blow ...point that out to
them and factor it into your price :)

William Hindman
"All it takes for evil to prevail is for good men to do nothing." Edmund
Burke

----- Original Message -----
From: "Michael R Mattys" <michael.mattys at adelphia.net>
To: <accessd at databaseadvisors.com>
Sent: Monday, April 21, 2003 10:38 AM
Subject: Re: [AccessD] Secured vs. Unsecured FEs


> The problems are:
>
> I am locked in and cannot transfer anything in or out.
> How to secure the code?
>
> Mike Mattys
>
> ----- Original Message -----
> From: "William Hindman" <wdhindman at bellsouth.net>
> To: <accessd at databaseadvisors.com>
> Sent: Monday, April 21, 2003 10:30 AM
> Subject: Re: [AccessD] Secured vs. Unsecured FEs
>
>
> > ...send him to me! :)))
> >
> > ...my goal at this stage of my retirement is to convince every 
> > client
that
> I
> > can support them over a high-speed VPN ...from Costa Rica
> :))))))))))))))))
> >
> > ...the only objection I'd have is that you definitely want to work 
> > on
one
> of
> > their workstations rather than on their server ...otherwise, as long 
> > as
> you
> > secure your code, I don't see the problem ...unless you mean he's
actually
> > expecting you to accomplish ALL development across the VPN rather 
> > than
> just
> > interfacing with his systems for installation and maintenance ...now
that
> > could be a real drag since the term "high speed VPN" is essentially 
> > meaningless in a development mode ...he'd have to give you a 
> > dedicated
T1
> to
> > keep you as productive as you are on a local workstation ...and even
then
> > there would be problems such as access to all your own code 
> > libraries, development tools, and template mdbs :(
> >
> > William Hindman
> > "All it takes for evil to prevail is for good men to do nothing." 
> > Edmund Burke
> >
> >
> > ----- Original Message -----
> > From: "Michael R Mattys" <michael.mattys at adelphia.net>
> > To: <accessd at databaseadvisors.com>
> > Sent: Monday, April 21, 2003 10:05 AM
> > Subject: Re: [AccessD] Secured vs. Unsecured FEs
> >
> >
> > > I have a client who wants me to do all development over a 
> > > high-speed VPN on their server.
> > >
> > > In what manner should I agree to this? Or not?
> > >
> > > Mike Mattys
> > >
> > > ----- Original Message -----
> > > From: "William Hindman" <wdhindman at bellsouth.net>
> > > > ...yes, always unless the client stipulates otherwise ...and 
> > > > then I
> > > include
> > > > a clause about individual copyrights where such code is used AND
> charge
> > > him
> > > > a stiff differential for it ...client response varies ...most 
> > > > really
> > don't
> > > > care about the code, they get it confused with the ownership of
their
> > data
> > > > ...but for those that do, its available.
> > > >
> > > > William Hindman
> > > > "All it takes for evil to prevail is for good men to do nothing."
> Edmund
> > > > Burke
> > > >
> > > > ----- Original Message -----
> > > > From: "Stephen Bond" <stephen at bondsoftware.co.nz>
> > > > > William, do you ever assert ownership of the code at the 
> > > > > beginning
> of
> > a
> > > > contract? Down here, the law says it is the client's unless 
> > > > asserted
> at
> > > the
> > > > start of the contract, so I do.
> > >
> > >
> > > _______________________________________________
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> >
> >
> > _______________________________________________
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


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





From robert at servicexp.com  Sun Jan 29 10:42:44 2006
From: robert at servicexp.com (Robert Gracie)
Date: Sun, 29 Jan 2006 11:42:44 -0500
Subject: [AccessD] What is up with AccessXP User Level Security??
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CEE@gbsserver.GBS.local>

 To start off, I'm am fairly familiar with user level security, or at
least I thought I was...

I'm upgrading a secured Access 2000 DB to Access 2002. I had some
initial trouble using the old mdw with the newly converted db. So I
de-secured the db, imported all the objects into a new 2002 db container
and ran the security wizard (I created a new mdw (duplicate, from
original mdw info), all went well.

I created 2 groups Manually, and assigned all necessary perms both in FE
and BE. So in testing I discovered that the only user, object owner,
used to create the new FE db can successfully relink tables and other
functions. So I gave FULL permissions for my 2 manually created groups
on all objects in the FE, & BE and then assign a user to one of the
groups, still no go. So I assign the user to the "Admins" group (still
assigned to the full permissions group I created) as a test (the Admins
group has completely revoked permissions to EVERYTHING) and whola links
perfectly.

The user has NO implicit permissions, they are all inherited.  I have
worked with jet security for quite some time, but this has be baffled...

Does anyone have any ideas on this...?


Robert Gracie
www.gbsysnow.com


From darrend at nimble.com.au  Sun Jan 29 16:29:25 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Mon, 30 Jan 2006 09:29:25 +1100
Subject: [AccessD] Same form, different actions
In-Reply-To: <s3da3729.073@nebnov3.niagaracounty.com>
Message-ID: <20060129222930.SHDV17345.omta04ps.mx.bigpond.com@DENZILLAP>

Hi John
Anyone feel free to jump in if I have this wrong 

The open Args are quite useful, but tacked on the end of a Do.cmd statement they
don't do much
Just text or numbers (usually) tacked on the end of an OpenForm Do.Cmd statment

The real 'power' is in the interpretation at the other end

Eg at the 'originating or calling' end
Docmd.openform "frmSomeName",,,,,, "OpenAsDA"
Or
Docmd.openform "frmSomeName",,,,,, "OpenAsADA"
Or
Docmd.openform "frmSomeName",,,,,, "OpenAsJUD"
Or
Docmd.openform "frmSomeName",,,,,, "OpenAsVIC"

Etc - you get the idea


So....
AT the other end
IE in the OnOpen, OnCurrent etc of "frmSomeForm"
You could do lots off things because your Destination form will 'hear' and 'see'
the "OpenAsDA" etc opening Argument passed to it
But like I said earlier, how you handle it at the Destination end is crucuial

So you could have a big (or small) select case or if statement
Determining the OpenArgs passed

Eg

Select case me.openArgs

Case  "OpenAsDA"
	'Open as Ass DA form
	me.cboSubjects.rowsourse = "Select *from Subjects where UsreType = 1"

Case "OpenAsDA"
	'Open as DA form
	me.cboSubjects.rowsourse = "Select *from Subjects where UsreType = 2"
"OpenAsJUD"
	'Open as Judge form
	me.cboSubjects.rowsourse = "Select *from Subjects where UsreType = 3"
"OpenAsVIC"
	'Open as Victim form
	me.cboSubjects.rowsourse = "Select *from Subjects where UsreType = 4"
Case else

End select


Or you could replace the Case statements from "OpenAsDA"
To the actual values from the OptionGroup in the calling form
EG
Select Case Forms!callingForm!SomeOptionGroup

Case 1
	'Open as Ass DA form
	me.cboSubjects.rowsourse = "Select *from Subjects where UsreType = 1"
Case 2
	'Open as DA form
	me.cboSubjects.rowsourse = "Select *from Subjects where UsreType = 2"
And so on

So...
Hope this makes sense

See ya

Darren



From artful at rogers.com  Sun Jan 29 17:34:04 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sun, 29 Jan 2006 18:34:04 -0500
Subject: [AccessD] Switch tab pages based on an AfterUpdate event
Message-ID: <015601c6252c$7de5f8d0$8e01a8c0@rock>

Assume N pages on tab control. Page 3 depends upon a value entered in Page
2. 
Two questions:
1. How would I refer to the control on page 2 from page 3 (assume that page
3 contains a subform. I don't want to mention the parent specifically but
rather refer to it via the Parent property. This syntax always confuses me.
2. Imagine that I have a value on the main form which enables to you to
specify the number of objects X (which are embedded in this table -- NOT my
choice but I am dealing with an inherited design!)... the original developer
created a bunch of columns named X1a, X1b..., X2a, X2b and so on, up to X4.
There are so many of these that I had to create a subform and plonk all the
X2s... X4s on the subform and use a separate query for the subform. Version
2 of this software is already on the drawing board but while it's in
development I have to deal with the bugs in V. 1.0 and fix them. So...
suppose two tab pages, the first for the most common case, which assumes the
existence of 1 instance of object X, and another tab page which assumes the
existence of more than 1 object X. (Let's not address the intelligence of
this design; I already agree with your objections.) On the first page of the
tabbed form the user tells me how many instances of object X there are. The
answer could be 0...4. 
In the event of zero, I would like to hide two tab pages, the one that
obtains the info for X1 and the other that obtains the info for objects
X2...X4. 
In the event of 1 instance, I want to hide the second tab page and make
visible the first. 
In the event of 2 intances, I want to expose the second tab page and disable
the controls corresponding to X3 and X4.
Ditto 3 instances.
On 4 instances, then everything is enabled. 
So... my alleged scenario is this:
1. Open the form in Add mode and neither tab page is exposed until I obtain
a value for the number of instances. The moment I obtain the number of
instances, I reveal the page(s) described above.
2. Open an existing row and the FormOpen code looks at this value and
decides whether to expose either or both of these tab pages.
I hope that I have described the problem adequately.
The code that I inherited works, sort of, but it is not bulletproof. It lets
you enter nonsensical data (i.e. you can specify there are 2 instances of
object X and then add details about instance 3, which makes no sense; yes, I
could code it ass-backwards and determine how many instances you filled in,
then go back and adjust the "number of instances" control, but IMO this
approach is asinine.
My design principle, wherever possible, is to preclude errors rather than
respond to them. So if the number of instances is 2, you should not be
allowed to enter info about instance 3 or 4. 
You might disagree with this design principle; that is your prerogative; but
it is the one that I try hard to adhere to.
Bit of a sidetrack there, so I will reiterate briefly:
Number of instances declared (either in data-entry or in retrieve is 1: hide
the tab page that exposes instances 2...4.
Number of instances declared is zero (new record or existing record where
instances = zero), hide both pages.
Number of instances > 1, expose both tab pages.
Number of instances = 2, disable the X3 and X4 controls on the second tab
page.
Number of instances = 3, disable the X4 controls.
Number of instances = 4, enable all the controls.

Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks
 




From darrend at nimble.com.au  Sun Jan 29 18:36:38 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Mon, 30 Jan 2006 11:36:38 +1100
Subject: [AccessD] Bit OT: What is Access Written in?
Message-ID: <20060130003650.XFGA16720.omta01sl.mx.bigpond.com@DENZILLAP>

Is it C#?
 
Thanks
 
DD


From dwaters at usinternet.com  Sun Jan 29 19:23:43 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Sun, 29 Jan 2006 19:23:43 -0600
Subject: [AccessD] Switch tab pages based on an AfterUpdate event
In-Reply-To: <25805753.1138577919189.JavaMail.root@sniper17>
Message-ID: <000001c6253b$cf6a0d90$0200a8c0@danwaters>

Hi Arthur,

Arthur,

I do something like this in one of my applications.  There are 4 pages on a
6 page tab control where each of the 4 has a subform control.  Within each
subform control I can place a specific subform, depending on which Machine
number was selected on the Main form.

Below is the code to manage this for the first page where different forms
can be placed.  This code is called by the Form_Current event for the main
form, but could be called by other events as well.  Perhaps this will give
you some ideas.

objDCSPageA is the name of the subform control.  Note that if
cboMachineNumber is null, then the subform becomes not visible, and the page
caption becomes and empty string.

Hope this helps!
Dan

---------------------------------------------------------------------------
Private Sub FormatMachineSettingsA()
If ErrorTrapping = True Then On Error GoTo EH

    MblnRunCurrentSub = False

    If Not IsNull(cboMachineNumber) Then
        objDCSPageA.Visible = True
        Select Case cboMachineNumber
            Case 1
                objDCSPageA.SourceObject = "frmDCS1EjectorsSettings"
                pgeMachineSettingsA.Caption = "1 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine1"
            Case 2
                objDCSPageA.SourceObject = "frmDCS2-3EjectorsSettings"
                pgeMachineSettingsA.Caption = "2 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine2"
            Case 3
                objDCSPageA.SourceObject = "frmDCS2-3EjectorsSettings"
                pgeMachineSettingsA.Caption = "3 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine3"
            Case 4
                objDCSPageA.SourceObject = "frmDCS4-5-20EjectorsSettingsA"  
                pgeMachineSettingsA.Caption = "4 - Ejectors 1"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine4"
            Case 5
                objDCSPageA.SourceObject = "frmDCS4-5-20EjectorsSettingsA"  
                pgeMachineSettingsA.Caption = "5 - Ejectors 1"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine5"
            Case 6
                objDCSPageA.SourceObject = "frmDCS6Ejectors"
                pgeMachineSettingsA.Caption = "6 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine6"
            Case 8
                objDCSPageA.SourceObject = "frmDCS8-9EjectorsSettings"
                pgeMachineSettingsA.Caption = "8 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine8"
            Case 9
                objDCSPageA.SourceObject = "frmDCS8-9EjectorsSettings"
                pgeMachineSettingsA.Caption = "9 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine9"
            Case 10
                objDCSPageA.SourceObject = "frmDCS10-14EjectorsSettings"
                pgeMachineSettingsA.Caption = "10 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine10"
            Case 11
                objDCSPageA.SourceObject = "frmDCS11EjectorsSettings"
                pgeMachineSettingsA.Caption = "11 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine11"
            Case 12
                objDCSPageA.SourceObject = "frmDCS12EjectorsSettings"
                pgeMachineSettingsA.Caption = "12 - Ejectors"
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine12"
            Case 13
                objDCSPageA.SourceObject = "frmDCS13EjectorsSettings"
                pgeMachineSettingsA.Caption = "13 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine13"
            Case 14
                objDCSPageA.SourceObject = "frmDCS10-14EjectorsSettings"
                pgeMachineSettingsA.Caption = "14 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine14"
            Case 15
                objDCSPageA.SourceObject = "frmDCS15EjectorsSettings"
                pgeMachineSettingsA.Caption = "15 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine15"
            Case 16
                objDCSPageA.SourceObject = "frmDCS16EjectorsSettings"
                pgeMachineSettingsA.Caption = "16 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine16"
            Case 17
                objDCSPageA.SourceObject = "frmDCS17EjectorsSettings"
                pgeMachineSettingsA.Caption = "17 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine17"
            Case 18
                objDCSPageA.SourceObject = "frmDCS18EjectorsSettings"
                pgeMachineSettingsA.Caption = "18 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine18"
            Case 19
                objDCSPageA.SourceObject = "frmDCS19EjectorsSettings"
                pgeMachineSettingsA.Caption = "19 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine19"
            Case 20
                objDCSPageA.SourceObject = "frmDCS4-5-20EjectorsSettingsA"  
                pgeMachineSettingsA.Caption = "20 - Ejectors 1"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine20"
        End Select
    Else
        objDCSPageA.SourceObject = ""
        objDCSPageA.Visible = False
        pgeMachineSettingsA.Caption = " "
    End If
    
    Exit Sub

EH:
    Application.Echo True
    Call GlobalErrors(txtDCSID, Err.Number, Err.Description, Me.Name,
"FormatMachineSettingsA")

End Sub
----------------------------------------------------------------------------

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: Sunday, January 29, 2006 5:34 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Switch tab pages based on an AfterUpdate event

Assume N pages on tab control. Page 3 depends upon a value entered in Page
2. 
Two questions:
1. How would I refer to the control on page 2 from page 3 (assume that page
3 contains a subform. I don't want to mention the parent specifically but
rather refer to it via the Parent property. This syntax always confuses me.
2. Imagine that I have a value on the main form which enables to you to
specify the number of objects X (which are embedded in this table -- NOT my
choice but I am dealing with an inherited design!)... the original developer
created a bunch of columns named X1a, X1b..., X2a, X2b and so on, up to X4.
There are so many of these that I had to create a subform and plonk all the
X2s... X4s on the subform and use a separate query for the subform. Version
2 of this software is already on the drawing board but while it's in
development I have to deal with the bugs in V. 1.0 and fix them. So...
suppose two tab pages, the first for the most common case, which assumes the
existence of 1 instance of object X, and another tab page which assumes the
existence of more than 1 object X. (Let's not address the intelligence of
this design; I already agree with your objections.) On the first page of the
tabbed form the user tells me how many instances of object X there are. The
answer could be 0...4. 
In the event of zero, I would like to hide two tab pages, the one that
obtains the info for X1 and the other that obtains the info for objects
X2...X4. 
In the event of 1 instance, I want to hide the second tab page and make
visible the first. 
In the event of 2 intances, I want to expose the second tab page and disable
the controls corresponding to X3 and X4.
Ditto 3 instances.
On 4 instances, then everything is enabled. 
So... my alleged scenario is this:
1. Open the form in Add mode and neither tab page is exposed until I obtain
a value for the number of instances. The moment I obtain the number of
instances, I reveal the page(s) described above.
2. Open an existing row and the FormOpen code looks at this value and
decides whether to expose either or both of these tab pages.
I hope that I have described the problem adequately.
The code that I inherited works, sort of, but it is not bulletproof. It lets
you enter nonsensical data (i.e. you can specify there are 2 instances of
object X and then add details about instance 3, which makes no sense; yes, I
could code it ass-backwards and determine how many instances you filled in,
then go back and adjust the "number of instances" control, but IMO this
approach is asinine.
My design principle, wherever possible, is to preclude errors rather than
respond to them. So if the number of instances is 2, you should not be
allowed to enter info about instance 3 or 4. 
You might disagree with this design principle; that is your prerogative; but
it is the one that I try hard to adhere to.
Bit of a sidetrack there, so I will reiterate briefly:
Number of instances declared (either in data-entry or in retrieve is 1: hide
the tab page that exposes instances 2...4.
Number of instances declared is zero (new record or existing record where
instances = zero), hide both pages.
Number of instances > 1, expose both tab pages.
Number of instances = 2, disable the X3 and X4 controls on the second tab
page.
Number of instances = 3, disable the X4 controls.
Number of instances = 4, enable all the controls.

Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks
 


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



From jwcolby at ColbyConsulting.com  Sun Jan 29 20:19:27 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sun, 29 Jan 2006 21:19:27 -0500
Subject: [AccessD] Bit OT: What is Access Written in?
In-Reply-To: <20060130003650.XFGA16720.omta01sl.mx.bigpond.com@DENZILLAP>
Message-ID: <000101c62543$99d6de30$657aa8c0@ColbyM6805>

C++ is more likely, with pieces optimized in assembler.  Not certain though.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 7:37 PM
To: AccessD
Subject: [AccessD] Bit OT: What is Access Written in?

Is it C#?
 
Thanks
 
DD
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From dwaters at usinternet.com  Sun Jan 29 20:31:25 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Sun, 29 Jan 2006 20:31:25 -0600
Subject: [AccessD] Bit OT: What is Access Written in?
In-Reply-To: <8627761.1138588008635.JavaMail.root@sniper22>
Message-ID: <000101c62545$449f0080$0200a8c0@danwaters>

I took a class once for Access.  There was an Access error and somehow
another program opened which I recognized as C++.  At that time I assumed
that Access was written in C++.

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Sunday, January 29, 2006 8:19 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Bit OT: What is Access Written in?

C++ is more likely, with pieces optimized in assembler.  Not certain though.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 7:37 PM
To: AccessD
Subject: [AccessD] Bit OT: What is Access Written in?

Is it C#?
 
Thanks
 
DD
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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



From darrend at nimble.com.au  Sun Jan 29 20:54:58 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Mon, 30 Jan 2006 13:54:58 +1100
Subject: [AccessD] Bit OT: What is Access Written in?
In-Reply-To: <000101c62545$449f0080$0200a8c0@danwaters>
Message-ID: <20060130025513.JBKD1358.omta03sl.mx.bigpond.com@DENZILLAP>

Thanks y'all 


Darren
------------------------------
T: 0424 696 433
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: Monday, 30 January 2006 1:31 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Bit OT: What is Access Written in?

I took a class once for Access.  There was an Access error and somehow another
program opened which I recognized as C++.  At that time I assumed that Access
was written in C++.

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Sunday, January 29, 2006 8:19 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Bit OT: What is Access Written in?

C++ is more likely, with pieces optimized in assembler.  Not certain though.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 7:37 PM
To: AccessD
Subject: [AccessD] Bit OT: What is Access Written in?

Is it C#?
 
Thanks
 
DD
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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

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



From jwcolby at ColbyConsulting.com  Sun Jan 29 22:20:21 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sun, 29 Jan 2006 23:20:21 -0500
Subject: [AccessD] Same form, different actions
In-Reply-To: <20060129222930.SHDV17345.omta04ps.mx.bigpond.com@DENZILLAP>
Message-ID: <000501c62554$7c7857e0$657aa8c0@ColbyM6805>

>>The open Args are quite useful, but tacked on the end of a Do.cmd
statement they don't do much Just text or numbers (usually) tacked on the
end of an OpenForm Do.Cmd statement.  The real 'power' is in the
interpretation at the other end

Darren,

First let me say that I have put up a demo on my site which shows how to use
the two classes in the following discussion.  Go to my website -
www.colbyconsulting.com.  If you haven't already, Register.  Log in.  Click
Example Code / Utilities.  Select C2DbOpenArgs to download the demo.


I pass openargs in the form Varname1=VarVal1;VarName2=VarVal2;etc=etc1; This
is a syntax that has been around since early Access days and was used
extensively by, and perhaps even "invented by" Ken Getz.  The = is used as
the separator, the semicolon as the delimiter.

I wrote a pair of classes which handle my openargs.  A "control class" which
I name OpenArgs (plural) grabs the openargs string and parses the varname
and value for each openarg.  It then instantiates a OpenArg (singular) class
to store this VarName and VarVal in.  VarName is a string type, VarVal is a
variant type.  Making it Variant causes an automatic coercion in a lot of
cases - currency values get turned into Currency variants, dates get turned
into dates etc.  At any rate, each OpenArg instance is stored in a
collection in the OpenArgs (plural) class.

The OpenArgs class is dimensioned in the form header, and instantiated in
the OnOpen of the form.  By the time it finishes loading, all of the
OpenArgs are parsed and sitting in OpenArg class instances in the collection
in OpenArgs.  OpenArgs has a method for reading OpenArg instances from the
collection.  OpenArg instances are stored in the collection keyed on the
VarName.  

Thus you have a pair of classes which automatically handles getting openargs
for you, one or a hundred, it doesn't matter, and it doesn't have to be
"re-invented" every time you want to get your openargs.  Syntax is now
standardized everywhere in your app.

The form of course must know what openargs it is expecting, so it can now
simply call OpenArgs.Arg("VarName") and get back VarVal (a variant).  What
the form does with the OpenArg is up to you, but getting the OpenArgs
available to the form is trivial.

All of the code follows.  My clsOpenArgs (plural, the controller) also has
the ability to automatically interpret openargs as properties of the form.
In other words, if a param is passed in to clsOpenArgs that says to do so,
then if an OpenArg VarName is the same as a property of the form, the form
property is set to VarVal.  I have actually demoed this in the state form,
where the form that opens frmState passes in the values for properties 

strOpenArgs = "DataEntry=True;AllowEdits=True;AllowDeletions=False;"

The state form opens, the OpenArgs class parses the OpenArgs string passed
in, discovers that I want it to use the openargs to set form properties, and
does so.

Any OpenArgs which do not match the name of a form property are left
uninterpreted and the form can use them for whatever purpose you choose.
You can also not tell clsOpenArgs to interpret the openargs as form
properties, in which case all OpenArgs are left uninterpreted and you can do
with them all as you will.

The code:

'===========================================================
'Class OpenArg
'===========================================================
Option Compare Database
Option Explicit

'
'This class stores one OpenArg
'
Private mstrArgName As String
Private mvarArgVal As Variant
Private mblnIsProperty As Boolean

Function mInit(lstrArgName As String, lvarArgVal As Variant)
    mstrArgName = lstrArgName
    mvarArgVal = lvarArgVal
End Function
Function pName() As String
    pName = mstrArgName
End Function
Function pVal() As Variant
    pVal = mvarArgVal
End Function
Property Let pIsPrp(lmblnIsProperty As Boolean)
    mblnIsProperty = lmblnIsProperty
End Property
Property Get pIsPrp() As Boolean
    pIsPrp = mblnIsProperty
End Property


'===========================================================
'Class OpenArgs (Plural) - the controller class
'===========================================================
Option Compare Database
Option Explicit
'.
'.Written By   : John W. Colby
'.Date Created : 04/10/2004
' Rev. History :
'
' BEHAVIORS:
'
'
'When a form opens, it can accept open args, a text string argument.
'The framework will check for openargs, and if they exist will check
'inside the Openagrs for arguments named the same thing as form properties.
'If such arguments are found, the framework will set the form's property
'equal to the argument value.
'
'I use this specifically to set up normal forms to be DataEntry forms
'(only allow new records to be added, not existing records edited)
'
'I decided to encapsulate this functionality in a class to make the OpenArgs
'processing cleanly defined.
'
'--------------------------------------------------------------------------
'THESE CONSTANTS AND VARIABLES ARE USED INTERNALLY TO THE CLASS
'*+ Class constant declaration
Private Const mcstrModuleName As String = "clsOpenArgs"
'*- Class constants declaration
'*+ Class variables declarations
'*- Class variables declarations
'.-------------------------------------------------------------------------
'THESE CONSTANTS AND VARIABLES ARE USED BY THE CLASS TO IMPLEMENT CLASS
FUNCTIONALITY
'*+ custom constants declaration
'
'*- Custom constants declaration
'*+ custom variables declarations
'
Private mfrm As Form     'A form reference passed in
Private mstrOpenArgs As String
Private mcolOpenArg As Collection
'*- custom variables declarations
'
'Define any events this class will raise here
'*+ custom events Declarations
'Public Event MyEvent(Status As Integer)
'*- custom events declarations
'.-------------------------------------------------------------------------
'THESE FUNCTIONS / SUBS ARE USED INTERNALLY TO THE CLASS
'*+ Private Init/Terminate Interface
Private Sub Class_Initialize()
On Error GoTo Err_Class_Initialize
    Set mcolOpenArg = New Collection
Exit_Class_Initialize:
Exit Sub
Err_Class_Initialize:
        MsgBox Err.Description, , "Error in Sub
clsTemplate.Class_Initialize"
        Resume Exit_Class_Initialize
    Resume 0    '.FOR TROUBLESHOOTING
End Sub
Private Sub Class_Terminate()
On Error Resume Next
    mTerm
End Sub
'INITIALIZE THE CLASS
Public Sub mInit(lfrm As Form, _
                Optional blnApplyProperties As Boolean = False)
    Set mfrm = lfrm
    'The openargs string might be null
    On Error Resume Next
    mstrOpenArgs = mfrm.OpenArgs
    
    ParseOpenArgs
    '
    'The default is false, do not try and apply OpenArgs as form properties
    'If the deveopler wants to
    '
    If blnApplyProperties Then
        ApplyFrmProperties
    End If
End Sub
'CLEAN UP ALL OF THE CLASS POINTERS
Public Sub mTerm()
Static blnRan As Boolean    'The term may run more than once so
    If blnRan Then Exit Sub 'just exit if it already ran
    blnRan = True
    On Error Resume Next
    mColEmpty mcolOpenArg
    Set mcolOpenArg = Nothing
End Sub
'*- Public Init/Terminate interface
'.-------------------------------------------------------------------------
'THESE FUNCTIONS SINK EVENTS DECLARED WITHEVENTS IN THIS CLASS
'*+ Form WithEvent interface
'*- Form WithEvent interface
'THESE FUNCTIONS / SUBS ARE USED TO IMPLEMENT CLASS FUNCTIONALITY
'*+PRIVATE Class function / sub declaration
Private Function cOpenArg(strOpenArg As String) As clsOpenArg
Dim intPosEqual As Integer
Dim strArgName As String
Dim varArgVal As Variant
Dim lclsOpenArg As clsOpenArg
    intPosEqual = InStr(strOpenArg, "=")
    If intPosEqual > 0 Then
        strArgName = Left$(strOpenArg, intPosEqual - 1)
        varArgVal = Right$(strOpenArg, Len(strOpenArg) - intPosEqual)
        Set lclsOpenArg = New clsOpenArg
        lclsOpenArg.mInit strArgName, varArgVal
        Set cOpenArg = lclsOpenArg
    End If
End Function
'
Private Sub ParseOpenArgs()
Dim lstrOpenArgs As String
Dim strOpenArg As String
Dim intPos As Integer
Dim lclsOpenArg As clsOpenArg
    lstrOpenArgs = mstrOpenArgs
    intPos = InStr(lstrOpenArgs, ";")
    
    While intPos > 0
        strOpenArg = Left$(lstrOpenArgs, intPos - 1)
        Set lclsOpenArg = OpenArg(strOpenArg)
        mcolOpenArg.Add lclsOpenArg, lclsOpenArg.pName
        lstrOpenArgs = Right$(lstrOpenArgs, Len(lstrOpenArgs) - intPos)
        intPos = InStr(lstrOpenArgs, ";")
    Wend

End Sub
'
'This function cycles through all the openargs applying them to form
properties
'if an argument is named the same as a form property, and the property is
writeable
'(doesn't require being in design view to set it) then the application of
the value
'to the property will be performed and Err will not be set.  For these
OpenArgs we
'set the IsPrp to true
'
'All of this provides a way for the developer to ppass in openargs to an
opening form
'which are then used to set form properties.  It is up to the developer to
ensure that
'the property is settable, that the value they pass in is valid (correct
data type,
'correct value range etc.)
'
'In the end, the only way to know whether a passed in OpenArg is a property
is to try
'it and see.  If there is no error then the name is a property name, it is
settable in
'form view mode, and the value is acceptable.
'
Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub
'
'Empties out a collection containing class instances
'
Public Function mColEmpty(col As Collection)
On Error GoTo Err_mColEmpty

Dim obj As Object
On Error Resume Next
    
    For Each obj In col
        obj.mTerm
    Next obj

On Error GoTo Err_mColEmpty
    While col.Count > 0
        col.Remove 1
    Wend
exit_mColEmpty:
Exit Function
Err_mColEmpty:
    Select Case Err
    Case 91 'Collection empty
        Resume exit_mColEmpty
    Case Else
        MsgBox Err.Description, , "Error in Function clsSysVars.mColEmpty"
        Resume exit_mColEmpty
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function

'*-PRIVATE Class function / sub declaration
'*+PUBLIC Class function / sub declaration
Function OpenArg(strArgName As String) As Variant
On Error GoTo Err_OpenArg
    OpenArg = mcolOpenArg(strArgName).pVal
Exit_OpenArg:
Exit Function
Err_OpenArg:
    Select Case Err
    Case 91
        MsgBox "OpenArg " & strArgName & " does not exist"
        Resume Exit_OpenArg
    Case Else
        MsgBox Err.Description, , "Error in Function clsOpenArgs.OpenArg"
        Resume Exit_OpenArg
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function'*-PUBLIC Class function / sub declaration

'===========================================================
'Form frmStates - a demo form that displays a state lookup table
'===========================================================
Option Compare Database
Option Explicit

Private lclsOpenArgs As clsOpenArgs

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True
End Sub
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click

    DoCmd.Close

Exit_cmdClose_Click:
    Exit Sub
Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click
End Sub

'===========================================================
'Form frmOpenArgsDemo - a demo form that opens the state form, 
'passing in openargs
'===========================================================
Option Compare Database
Option Explicit

Private Sub cmdStatesDataEntry_Click()
On Error GoTo Err_cmdStatesDataEntry_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim strOpenArgs As String
    
    strOpenArgs = "DataEntry=True;AllowEdits=True;AllowDeletions=False;"
    stDocName = "frmStates"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , strOpenArgs

Exit_cmdStatesDataEntry_Click:
    Exit Sub

Err_cmdStatesDataEntry_Click:
    MsgBox Err.Description
    Resume Exit_cmdStatesDataEntry_Click
    Resume 0
End Sub

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 5:29 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions

Hi John
Anyone feel free to jump in if I have this wrong 

The open Args are quite useful, but tacked on the end of a Do.cmd statement
they don't do much Just text or numbers (usually) tacked on the end of an
OpenForm Do.Cmd statment

The real 'power' is in the interpretation at the other end

.....



From darrend at nimble.com.au  Sun Jan 29 22:51:19 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Mon, 30 Jan 2006 15:51:19 +1100
Subject: [AccessD] Same form, different actions
In-Reply-To: <000501c62554$7c7857e0$657aa8c0@ColbyM6805>
Message-ID: <20060130045124.JBHL24868.omta05sl.mx.bigpond.com@DENZILLAP>

Brilliant
Many thanks for that John
I am grateful
 
I never quite 'got into' classes
It was always on my to-do list
Now I virtually do nothing with Access <sigh>
I only lurk the list because of sentimental attachment :-)))

See ya

Darren
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Monday, 30 January 2006 3:20 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions

>>The open Args are quite useful, but tacked on the end of a Do.cmd
statement they don't do much Just text or numbers (usually) tacked on the end of
an OpenForm Do.Cmd statement.  The real 'power' is in the interpretation at the
other end

Darren,

First let me say that I have put up a demo on my site which shows how to use the
two classes in the following discussion.  Go to my website -
www.colbyconsulting.com.  If you haven't already, Register.  Log in.  Click
Example Code / Utilities.  Select C2DbOpenArgs to download the demo.


I pass openargs in the form Varname1=VarVal1;VarName2=VarVal2;etc=etc1; This is
a syntax that has been around since early Access days and was used extensively
by, and perhaps even "invented by" Ken Getz.  The = is used as the separator,
the semicolon as the delimiter.

I wrote a pair of classes which handle my openargs.  A "control class" which I
name OpenArgs (plural) grabs the openargs string and parses the varname and
value for each openarg.  It then instantiates a OpenArg (singular) class to
store this VarName and VarVal in.  VarName is a string type, VarVal is a variant
type.  Making it Variant causes an automatic coercion in a lot of cases -
currency values get turned into Currency variants, dates get turned into dates
etc.  At any rate, each OpenArg instance is stored in a collection in the
OpenArgs (plural) class.

The OpenArgs class is dimensioned in the form header, and instantiated in the
OnOpen of the form.  By the time it finishes loading, all of the OpenArgs are
parsed and sitting in OpenArg class instances in the collection in OpenArgs.
OpenArgs has a method for reading OpenArg instances from the collection.
OpenArg instances are stored in the collection keyed on the VarName.  

Thus you have a pair of classes which automatically handles getting openargs for
you, one or a hundred, it doesn't matter, and it doesn't have to be
"re-invented" every time you want to get your openargs.  Syntax is now
standardized everywhere in your app.

The form of course must know what openargs it is expecting, so it can now simply
call OpenArgs.Arg("VarName") and get back VarVal (a variant).  What the form
does with the OpenArg is up to you, but getting the OpenArgs available to the
form is trivial.

All of the code follows.  My clsOpenArgs (plural, the controller) also has the
ability to automatically interpret openargs as properties of the form.
In other words, if a param is passed in to clsOpenArgs that says to do so, then
if an OpenArg VarName is the same as a property of the form, the form property
is set to VarVal.  I have actually demoed this in the state form, where the form
that opens frmState passes in the values for properties 

strOpenArgs = "DataEntry=True;AllowEdits=True;AllowDeletions=False;"

The state form opens, the OpenArgs class parses the OpenArgs string passed in,
discovers that I want it to use the openargs to set form properties, and does
so.

Any OpenArgs which do not match the name of a form property are left
uninterpreted and the form can use them for whatever purpose you choose.
You can also not tell clsOpenArgs to interpret the openargs as form properties,
in which case all OpenArgs are left uninterpreted and you can do with them all
as you will.

The code:

'===========================================================
'Class OpenArg
'===========================================================
Option Compare Database
Option Explicit

'
'This class stores one OpenArg
'
Private mstrArgName As String
Private mvarArgVal As Variant
Private mblnIsProperty As Boolean

Function mInit(lstrArgName As String, lvarArgVal As Variant)
    mstrArgName = lstrArgName
    mvarArgVal = lvarArgVal
End Function
Function pName() As String
    pName = mstrArgName
End Function
Function pVal() As Variant
    pVal = mvarArgVal
End Function
Property Let pIsPrp(lmblnIsProperty As Boolean)
    mblnIsProperty = lmblnIsProperty
End Property
Property Get pIsPrp() As Boolean
    pIsPrp = mblnIsProperty
End Property


'===========================================================
'Class OpenArgs (Plural) - the controller class
'===========================================================
Option Compare Database
Option Explicit
'.
'.Written By   : John W. Colby
'.Date Created : 04/10/2004
' Rev. History :
'
' BEHAVIORS:
'
'
'When a form opens, it can accept open args, a text string argument.
'The framework will check for openargs, and if they exist will check 'inside the
Openagrs for arguments named the same thing as form properties.
'If such arguments are found, the framework will set the form's property 'equal
to the argument value.
'
'I use this specifically to set up normal forms to be DataEntry forms '(only
allow new records to be added, not existing records edited) '
'I decided to encapsulate this functionality in a class to make the OpenArgs
'processing cleanly defined.
'
'--------------------------------------------------------------------------
'THESE CONSTANTS AND VARIABLES ARE USED INTERNALLY TO THE CLASS '*+ Class
constant declaration Private Const mcstrModuleName As String = "clsOpenArgs"
'*- Class constants declaration
'*+ Class variables declarations
'*- Class variables declarations
'.-------------------------------------------------------------------------
'THESE CONSTANTS AND VARIABLES ARE USED BY THE CLASS TO IMPLEMENT CLASS
FUNCTIONALITY '*+ custom constants declaration '
'*- Custom constants declaration
'*+ custom variables declarations
'
Private mfrm As Form     'A form reference passed in
Private mstrOpenArgs As String
Private mcolOpenArg As Collection
'*- custom variables declarations
'
'Define any events this class will raise here '*+ custom events Declarations
'Public Event MyEvent(Status As Integer)
'*- custom events declarations
'.-------------------------------------------------------------------------
'THESE FUNCTIONS / SUBS ARE USED INTERNALLY TO THE CLASS '*+ Private
Init/Terminate Interface Private Sub Class_Initialize() On Error GoTo
Err_Class_Initialize
    Set mcolOpenArg = New Collection
Exit_Class_Initialize:
Exit Sub
Err_Class_Initialize:
        MsgBox Err.Description, , "Error in Sub clsTemplate.Class_Initialize"
        Resume Exit_Class_Initialize
    Resume 0    '.FOR TROUBLESHOOTING
End Sub
Private Sub Class_Terminate()
On Error Resume Next
    mTerm
End Sub
'INITIALIZE THE CLASS
Public Sub mInit(lfrm As Form, _
                Optional blnApplyProperties As Boolean = False)
    Set mfrm = lfrm
    'The openargs string might be null
    On Error Resume Next
    mstrOpenArgs = mfrm.OpenArgs
    
    ParseOpenArgs
    '
    'The default is false, do not try and apply OpenArgs as form properties
    'If the deveopler wants to
    '
    If blnApplyProperties Then
        ApplyFrmProperties
    End If
End Sub
'CLEAN UP ALL OF THE CLASS POINTERS
Public Sub mTerm()
Static blnRan As Boolean    'The term may run more than once so
    If blnRan Then Exit Sub 'just exit if it already ran
    blnRan = True
    On Error Resume Next
    mColEmpty mcolOpenArg
    Set mcolOpenArg = Nothing
End Sub
'*- Public Init/Terminate interface
'.-------------------------------------------------------------------------
'THESE FUNCTIONS SINK EVENTS DECLARED WITHEVENTS IN THIS CLASS '*+ Form
WithEvent interface
'*- Form WithEvent interface
'THESE FUNCTIONS / SUBS ARE USED TO IMPLEMENT CLASS FUNCTIONALITY '*+PRIVATE
Class function / sub declaration Private Function cOpenArg(strOpenArg As String)
As clsOpenArg Dim intPosEqual As Integer Dim strArgName As String Dim varArgVal
As Variant Dim lclsOpenArg As clsOpenArg
    intPosEqual = InStr(strOpenArg, "=")
    If intPosEqual > 0 Then
        strArgName = Left$(strOpenArg, intPosEqual - 1)
        varArgVal = Right$(strOpenArg, Len(strOpenArg) - intPosEqual)
        Set lclsOpenArg = New clsOpenArg
        lclsOpenArg.mInit strArgName, varArgVal
        Set cOpenArg = lclsOpenArg
    End If
End Function
'
Private Sub ParseOpenArgs()
Dim lstrOpenArgs As String
Dim strOpenArg As String
Dim intPos As Integer
Dim lclsOpenArg As clsOpenArg
    lstrOpenArgs = mstrOpenArgs
    intPos = InStr(lstrOpenArgs, ";")
    
    While intPos > 0
        strOpenArg = Left$(lstrOpenArgs, intPos - 1)
        Set lclsOpenArg = OpenArg(strOpenArg)
        mcolOpenArg.Add lclsOpenArg, lclsOpenArg.pName
        lstrOpenArgs = Right$(lstrOpenArgs, Len(lstrOpenArgs) - intPos)
        intPos = InStr(lstrOpenArgs, ";")
    Wend

End Sub
'
'This function cycles through all the openargs applying them to form properties
'if an argument is named the same as a form property, and the property is
writeable '(doesn't require being in design view to set it) then the application
of the value 'to the property will be performed and Err will not be set.  For
these OpenArgs we 'set the IsPrp to true '
'All of this provides a way for the developer to ppass in openargs to an opening
form 'which are then used to set form properties.  It is up to the developer to
ensure that 'the property is settable, that the value they pass in is valid
(correct data type, 'correct value range etc.) '
'In the end, the only way to know whether a passed in OpenArg is a property is
to try 'it and see.  If there is no error then the name is a property name, it
is settable in 'form view mode, and the value is acceptable.
'
Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub
'
'Empties out a collection containing class instances '
Public Function mColEmpty(col As Collection) On Error GoTo Err_mColEmpty

Dim obj As Object
On Error Resume Next
    
    For Each obj In col
        obj.mTerm
    Next obj

On Error GoTo Err_mColEmpty
    While col.Count > 0
        col.Remove 1
    Wend
exit_mColEmpty:
Exit Function
Err_mColEmpty:
    Select Case Err
    Case 91 'Collection empty
        Resume exit_mColEmpty
    Case Else
        MsgBox Err.Description, , "Error in Function clsSysVars.mColEmpty"
        Resume exit_mColEmpty
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function

'*-PRIVATE Class function / sub declaration '*+PUBLIC Class function / sub
declaration Function OpenArg(strArgName As String) As Variant On Error GoTo
Err_OpenArg
    OpenArg = mcolOpenArg(strArgName).pVal
Exit_OpenArg:
Exit Function
Err_OpenArg:
    Select Case Err
    Case 91
        MsgBox "OpenArg " & strArgName & " does not exist"
        Resume Exit_OpenArg
    Case Else
        MsgBox Err.Description, , "Error in Function clsOpenArgs.OpenArg"
        Resume Exit_OpenArg
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function'*-PUBLIC Class function / sub declaration

'===========================================================
'Form frmStates - a demo form that displays a state lookup table
'===========================================================
Option Compare Database
Option Explicit

Private lclsOpenArgs As clsOpenArgs

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True
End Sub
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click

    DoCmd.Close

Exit_cmdClose_Click:
    Exit Sub
Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click
End Sub

'===========================================================
'Form frmOpenArgsDemo - a demo form that opens the state form, 'passing in
openargs '===========================================================
Option Compare Database
Option Explicit

Private Sub cmdStatesDataEntry_Click()
On Error GoTo Err_cmdStatesDataEntry_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim strOpenArgs As String
    
    strOpenArgs = "DataEntry=True;AllowEdits=True;AllowDeletions=False;"
    stDocName = "frmStates"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , strOpenArgs

Exit_cmdStatesDataEntry_Click:
    Exit Sub

Err_cmdStatesDataEntry_Click:
    MsgBox Err.Description
    Resume Exit_cmdStatesDataEntry_Click
    Resume 0
End Sub

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 5:29 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions

Hi John
Anyone feel free to jump in if I have this wrong 

The open Args are quite useful, but tacked on the end of a Do.cmd statement they
don't do much Just text or numbers (usually) tacked on the end of an OpenForm
Do.Cmd statment

The real 'power' is in the interpretation at the other end

.....

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



From chizotz at mchsi.com  Sun Jan 29 23:36:11 2006
From: chizotz at mchsi.com (Ron Allen)
Date: Sun, 29 Jan 2006 23:36:11 -0600
Subject: [AccessD] Bit OT: What is Access Written in?
In-Reply-To: <20060130003650.XFGA16720.omta01sl.mx.bigpond.com@DENZILLAP>
References: <20060130003650.XFGA16720.omta01sl.mx.bigpond.com@DENZILLAP>
Message-ID: <5110516587.20060129233611@mchsi.com>

Hello Darren,

At least most versions of it are written in C++, but one of the
reasons that the C# language was developed was to provide a C-based
language specifically to port the Office and other Microsoft apps to
that had built-in memory management etc. At one point I read an
article that said that the first release of C# didn't quite have
everything they wanted in it for this purpose, so I think that the
current version is also in C++, but could be wrong. However, with each
release it could be in C#, unless they've changed directions on that
in the meantime.

Ron


Sunday, January 29, 2006, 6:36:38 PM, you wrote:

> Is it C#?
 
> Thanks




From erbachs at gmail.com  Mon Jan 30 06:53:16 2006
From: erbachs at gmail.com (Steve Erbach)
Date: Mon, 30 Jan 2006 06:53:16 -0600
Subject: [AccessD] Could somebody expand on this a little?
Message-ID: <39cb22f30601300453t477e263ax6770abebed27d07d@mail.gmail.com>

Dear Group,

I read a recent SQL Server Central article by a fellow named Andy
Warren that dealt with connecting to a SQL Server database using an
Access MDB/ODBC connection.  The article very nicely laid out the
step-by-step process -- with screen shots -- to accomplish this.  What
made me curious about the article was that the author never mentioned
ADP's.

So I joined the discussion forum for this topic and read a number of
interesting replies pro and con for MDBs vs. ADPs, some that I'm
unable, from only my own experience, to evaluate.

Here's one of them.  The forum member started his message by saying
that the article was good.  He went on to say:

~~~~~~~~~~~~~~~~~~~~~~~~
"Two problems I've come across:

"1) Nice three table view with calculated fields fully updatable in
SQL server - lots of lovely triggers. Put it in an adp - not a chance.
Put it in an mdb with the primary key set, fully updatable. Hmm!

"2) Same view, all the base tables have audit triggers to check who
changes important fields. T SQL is based on

"IF UPDATE(fieldname)
write to audit table

"This works fine with T SQL, but use Access and every field is marked
as dirty and you get all the relevant fields written to the audit
table. I've had to resort to

"IF (SELECT fieldname from inserted) != (SELECT fieldname from deleted)

"I'd love to use a project if only it worked"
~~~~~~~~~~~~~~~~~~~~~~~~

Can anyone comment on this?

Also, the author chimed in saying that he would do a followup article
in the same vein using ADP's.  He also said:

"I tend to use the mdb over the adp format, just from habit as much as
anything. I could entirely be wrong, but doesnt using the ADP format
remove the use of module code? It does expose procs and triggers,
which the mdb's do not."

I honestly have only used ADP's to allow easier access to table
contents and for making simple data entry forms...no heavy-lifting
code at all.  He can't be correctly, surely, in saying that ADP's
"remove the use of module code," can he?

Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security
http://TheTownCrank.blogspot.com


From jimdettman at earthlink.net  Mon Jan 30 07:11:45 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Mon, 30 Jan 2006 08:11:45 -0500
Subject: [AccessD] Bit OT: What is Access Written in?
In-Reply-To: <20060130003650.XFGA16720.omta01sl.mx.bigpond.com@DENZILLAP>
Message-ID: <NDEALJOEGMMPCDKIFGNFAEINIFAA.jimdettman@earthlink.net>


  C++

  Parts of JET were written in assembler, but everything was converted to
C++ a long time ago (A95).

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 7:37 PM
To: AccessD
Subject: [Norton AntiSpam] [AccessD] Bit OT: What is Access Written in?


Is it C#?

Thanks

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




From jwcolby at ColbyConsulting.com  Mon Jan 30 07:23:14 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 30 Jan 2006 08:23:14 -0500
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <39cb22f30601300453t477e263ax6770abebed27d07d@mail.gmail.com>
Message-ID: <001101c625a0$5356f280$657aa8c0@ColbyM6805>

I am no expert there but I am certain that it is NOT modules that get
removed.  IIRC it is stored queries (they are now stored out in SQL Server)
as well as local tables or tables linked to other than SQL.  All tables are
now stored out in SQL as well.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Erbach
Sent: Monday, January 30, 2006 7:53 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Could somebody expand on this a little?

Dear Group,

I read a recent SQL Server Central article by a fellow named Andy Warren
that dealt with connecting to a SQL Server database using an Access MDB/ODBC
connection.  The article very nicely laid out the step-by-step process --
with screen shots -- to accomplish this.  What made me curious about the
article was that the author never mentioned ADP's.

So I joined the discussion forum for this topic and read a number of
interesting replies pro and con for MDBs vs. ADPs, some that I'm unable,
from only my own experience, to evaluate.

Here's one of them.  The forum member started his message by saying that the
article was good.  He went on to say:

~~~~~~~~~~~~~~~~~~~~~~~~
"Two problems I've come across:

"1) Nice three table view with calculated fields fully updatable in SQL
server - lots of lovely triggers. Put it in an adp - not a chance.
Put it in an mdb with the primary key set, fully updatable. Hmm!

"2) Same view, all the base tables have audit triggers to check who changes
important fields. T SQL is based on

"IF UPDATE(fieldname)
write to audit table

"This works fine with T SQL, but use Access and every field is marked as
dirty and you get all the relevant fields written to the audit table. I've
had to resort to

"IF (SELECT fieldname from inserted) != (SELECT fieldname from deleted)

"I'd love to use a project if only it worked"
~~~~~~~~~~~~~~~~~~~~~~~~

Can anyone comment on this?

Also, the author chimed in saying that he would do a followup article in the
same vein using ADP's.  He also said:

"I tend to use the mdb over the adp format, just from habit as much as
anything. I could entirely be wrong, but doesnt using the ADP format remove
the use of module code? It does expose procs and triggers, which the mdb's
do not."

I honestly have only used ADP's to allow easier access to table contents and
for making simple data entry forms...no heavy-lifting code at all.  He can't
be correctly, surely, in saying that ADP's "remove the use of module code,"
can he?

Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security http://TheTownCrank.blogspot.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jimdettman at earthlink.net  Mon Jan 30 07:27:11 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Mon, 30 Jan 2006 08:27:11 -0500
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <39cb22f30601300453t477e263ax6770abebed27d07d@mail.gmail.com>
Message-ID: <NDEALJOEGMMPCDKIFGNFCEIOIFAA.jimdettman@earthlink.net>

Steve,

  Andy doesn't seem to know much about Access.  You should have read his
last Access article, which I and a few others commented on.  Here's the
link:

http://www.sqlservercentral.com/columnists/awarren/diggingintoaccessperforma
nce.asp

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
Sent: Monday, January 30, 2006 7:53 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Could somebody expand on this a little?


Dear Group,

I read a recent SQL Server Central article by a fellow named Andy
Warren that dealt with connecting to a SQL Server database using an
Access MDB/ODBC connection.  The article very nicely laid out the
step-by-step process -- with screen shots -- to accomplish this.  What
made me curious about the article was that the author never mentioned
ADP's.

So I joined the discussion forum for this topic and read a number of
interesting replies pro and con for MDBs vs. ADPs, some that I'm
unable, from only my own experience, to evaluate.

Here's one of them.  The forum member started his message by saying
that the article was good.  He went on to say:

~~~~~~~~~~~~~~~~~~~~~~~~
"Two problems I've come across:

"1) Nice three table view with calculated fields fully updatable in
SQL server - lots of lovely triggers. Put it in an adp - not a chance.
Put it in an mdb with the primary key set, fully updatable. Hmm!

"2) Same view, all the base tables have audit triggers to check who
changes important fields. T SQL is based on

"IF UPDATE(fieldname)
write to audit table

"This works fine with T SQL, but use Access and every field is marked
as dirty and you get all the relevant fields written to the audit
table. I've had to resort to

"IF (SELECT fieldname from inserted) != (SELECT fieldname from deleted)

"I'd love to use a project if only it worked"
~~~~~~~~~~~~~~~~~~~~~~~~

Can anyone comment on this?

Also, the author chimed in saying that he would do a followup article
in the same vein using ADP's.  He also said:

"I tend to use the mdb over the adp format, just from habit as much as
anything. I could entirely be wrong, but doesnt using the ADP format
remove the use of module code? It does expose procs and triggers,
which the mdb's do not."

I honestly have only used ADP's to allow easier access to table
contents and for making simple data entry forms...no heavy-lifting
code at all.  He can't be correctly, surely, in saying that ADP's
"remove the use of module code," can he?

Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security
http://TheTownCrank.blogspot.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jwcolby at ColbyConsulting.com  Mon Jan 30 08:23:51 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 30 Jan 2006 09:23:51 -0500
Subject: [AccessD] Calendar demo
Message-ID: <001201c625a8$cb9dfce0$657aa8c0@ColbyM6805>

Access comes with a built-in calendar control.  Kinda lame but it works.  

I needed a quick and dirty calendar the other day and decided to marry this
calendar control with my filter function to get this thing working in a
hurry.  I have discussed my "filter" function many times in this group.
Basically it is a function with a collection which holds values, keyed on
the name passed in to the function.  What isn't apparent is that with a
little work you can also pass in pointers to controls themselves.  

What this allows is for a calling form to place a reference to a control on
the calling form into the Fltr collection, then open the calendar form.  The
calendar form then does it's thing, and when it is time to return a value,
it goes and gets the pointer to the control on the calling form, places the
value in that control, and closes.

Works a treat.

The demo is up on my site, complete with the calendar form, the FltrCtl
function, and a calling form which demos getting a data.

Go to www.ColbyConsulting.com
Register if you haven't already
Log in.
Click Example Code / Utilities / C2DbCalendarDemo

The code:

'===========================================================================
=========
'The code for the filter function, modified to handle pointers to objects
'===========================================================================
=========
'
'The following code expands upon the basic filter function above to allow
storing and
'returning objects of any kind - controls, forms, classes etc.
'
'The code takes advantage of the fact that a variant can store a pointer to
an object.
'In order to determine if the thing stored is an object or a normal
variable, a SET statement
'is performed first and the err object is checked.  If the thing stored is
not an error then the
'Err object will not be zero, in which case we treat the thing stored as a
simple variable.
'
Public Function FltrCtl(lstrName As String, Optional lvarValue As Variant)
As Variant
On Error GoTo Err_fltrCtl
Static mcolFilter As Collection
Static blnInitialized As Boolean

    If Not blnInitialized Then
        'if the collection not initialized yet, do so now
        Set mcolFilter = New Collection
        blnInitialized = True
    End If
    '
    'We have a valid collection, next check for a value passed in
    '
    If IsMissing(lvarValue) Then
        '
        'No value was passed in so check in the collection
        'using the variable name (key)
        '
        'We are going to pass back the value.  Determine if it is an object
        'by using the set statement and checking for an error
        '
        On Error Resume Next
        Set FltrCtl = mcolFilter(lstrName)
        If Err <> 0 Then 'if the Err obj is <> zero then it was not an
object
            Err.Clear
            FltrCtl = mcolFilter(lstrName)
            If Err <> 0 Then                  '
                'There was no value in the collection under that name (key)
                'so just return a null
                '
                FltrCtl = Null
            End If
        End If
    Else
        '
        'A value was passed in so
        '
        On Error Resume Next
        '
        'Remove any value already in the collection under that name (key)
        '(if any)
        '
        mcolFilter.Remove lstrName
        Err.Clear
        '
        'And then add it back in to the collection
        '
        mcolFilter.Add lvarValue, lstrName
        '
        'We are going to pass back the value.  Determine if it is an object
        'by using the set statement and checking for an error
        '
        Set FltrCtl = lvarValue
        If Err <> 0 Then        'if the Err obj is <> zero then it was not
an object
            FltrCtl = lvarValue    'so just return the value as a variable
        End If
    End If
Exit_fltrCtl:
Exit Function
Err_fltrCtl:
        MsgBox Err.Description, , "Error in Function
basfltrCtlFunctions.fltrCtl"
        Resume Exit_fltrCtl
    Resume 0    '.FOR TROUBLESHOOTING
End Function

'===========================================================================
=========
'The code for the form needing to use the calendar
'===========================================================================
=========
Private Sub cmdCalDteFrom_Click()
    'Set a pointer to the text box which needs a date
    FltrCtl "CalDte", txtDateFrom
    OpenCal
End Sub
'
'The standard "open a form" code which opens the calendar form
'
Private Sub OpenCal()

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmCalendar"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog
    
End Sub



John W. Colby
www.ColbyConsulting.com 




From erbachs at gmail.com  Mon Jan 30 08:30:53 2006
From: erbachs at gmail.com (Steve Erbach)
Date: Mon, 30 Jan 2006 08:30:53 -0600
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <NDEALJOEGMMPCDKIFGNFCEIOIFAA.jimdettman@earthlink.net>
References: <39cb22f30601300453t477e263ax6770abebed27d07d@mail.gmail.com>
	<NDEALJOEGMMPCDKIFGNFCEIOIFAA.jimdettman@earthlink.net>
Message-ID: <39cb22f30601300630s2136bd50qbcf0dfae0c954b14@mail.gmail.com>

Jim,

Very interesting.  I noted that you and at least one other respondent
mentioned pass-through queries as good performance options.

What's puzzling to me, also, is a comment made to the article by
Warren ( here's the link: 
http://www.sqlservercentral.com/columnists/awarren/linkingaccesstosqlserver.asp
):

"Performance can really suck, depending on the application and the
bandwidth. It has to do with the way data is cached in Access and
becomes very apparent if you have large tables (>100,000 rows).
However, it doesn't justify pass-through queries (obsolutely NOTHING
justifies pass-through queries). Views (in SQL server) are your
friend."

"NOTHING justifies pass-through queries."  I didn't challenge him on
that.  I should have, I suppose, but I know zip about pass-through
queries.  What's your view?
--
Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security
http://TheTownCrank.blogspot.com



On 1/30/06, Jim Dettman <jimdettman at earthlink.net> wrote:
> Steve,
>
>   Andy doesn't seem to know much about Access.  You should have read his
> last Access article, which I and a few others commented on.  Here's the
> link:
>
> http://www.sqlservercentral.com/columnists/awarren/diggingintoaccessperforma
> nce.asp
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
> Sent: Monday, January 30, 2006 7:53 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Could somebody expand on this a little?
>
>
> Dear Group,
>
> I read a recent SQL Server Central article by a fellow named Andy
> Warren that dealt with connecting to a SQL Server database using an
> Access MDB/ODBC connection.  The article very nicely laid out the
> step-by-step process -- with screen shots -- to accomplish this.  What
> made me curious about the article was that the author never mentioned
> ADP's.
>
> So I joined the discussion forum for this topic and read a number of
> interesting replies pro and con for MDBs vs. ADPs, some that I'm
> unable, from only my own experience, to evaluate.
>
> Here's one of them.  The forum member started his message by saying
> that the article was good.  He went on to say:
>
> ~~~~~~~~~~~~~~~~~~~~~~~~
> "Two problems I've come across:


From Lambert.Heenan at AIG.com  Mon Jan 30 08:44:26 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Mon, 30 Jan 2006 09:44:26 -0500
Subject: [AccessD] Bit OT: What is Access Written in?
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1C7860B0@xlivmbx21.aig.com>

Definitely not C#, otherwise the box would tell you that you must have the
.NET framework installed. As others have said, probably C++ and assembler.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 7:37 PM
To: AccessD
Subject: [AccessD] Bit OT: What is Access Written in?


Is it C#?
 
Thanks
 
DD
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From JHewson at karta.com  Mon Jan 30 08:57:59 2006
From: JHewson at karta.com (Jim Hewson)
Date: Mon, 30 Jan 2006 08:57:59 -0600
Subject: [AccessD] MDB won't compile
Message-ID: <9C382E065F54AE48BC3AA7925DCBB01C03BAF38E@karta-exc-int.Karta.com>

A2K, inherited.

I changed the margins to a report in an MDB.  That's the only change I
made.

Now the MDB won't compile.  I've made minor changes before and created
MDE files without any problems.

When I try to compile, it stops at "Me.Refresh"  with an error that
states the "Method or Data member is not found."

I've checked the references, decompiled, used JetComp, moved all objects
to a new container.

It still will not compile.

If I comment out the offending line, it gets stuck on "Recordset" then
"bookmark".

 

What else I can try?

Many thanks in advance.

 

Jim

 

 



From rusty.hammond at cpiqpc.com  Mon Jan 30 09:07:40 2006
From: rusty.hammond at cpiqpc.com (rusty.hammond at cpiqpc.com)
Date: Mon, 30 Jan 2006 09:07:40 -0600
Subject: [AccessD] MDB won't compile
Message-ID: <8301C8A868251E4C8ECD3D4FFEA40F8A154F8481@cpixchng-1.cpiqpc.net>

Jim,

Usually you'll have a reference that is missing but I've also been able to
fix this by changing the order of the items in references.

HTH

Rusty


-----Original Message-----
From: Jim Hewson [mailto:JHewson at karta.com]
Sent: Monday, January 30, 2006 8:58 AM
To: AccessD
Subject: [AccessD] MDB won't compile


A2K, inherited.

I changed the margins to a report in an MDB.  That's the only change I
made.

Now the MDB won't compile.  I've made minor changes before and created
MDE files without any problems.

When I try to compile, it stops at "Me.Refresh"  with an error that
states the "Method or Data member is not found."

I've checked the references, decompiled, used JetComp, moved all objects
to a new container.

It still will not compile.

If I comment out the offending line, it gets stuck on "Recordset" then
"bookmark".

 

What else I can try?

Many thanks in advance.

 

Jim

 

 

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

**********************************************************************
WARNING: All e-mail sent to and from this address will be received,
scanned or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
corporate e-mail system and is subject to archival, monitoring or review 
by, and/or disclosure to, someone other than the recipient.
**********************************************************************


From bchacc at san.rr.com  Mon Jan 30 09:35:52 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 30 Jan 2006 07:35:52 -0800
Subject: [AccessD] MDB won't compile
In-Reply-To: <9C382E065F54AE48BC3AA7925DCBB01C03BAF38E@karta-exc-int.Karta.com>
References: <9C382E065F54AE48BC3AA7925DCBB01C03BAF38E@karta-exc-int.Karta.com>
Message-ID: <43DE3258.4010709@san.rr.com>

Import all the objects into a new mdb?

Rocky


Jim Hewson wrote:
> A2K, inherited.
>
> I changed the margins to a report in an MDB.  That's the only change I
> made.
>
> Now the MDB won't compile.  I've made minor changes before and created
> MDE files without any problems.
>
> When I try to compile, it stops at "Me.Refresh"  with an error that
> states the "Method or Data member is not found."
>
> I've checked the references, decompiled, used JetComp, moved all objects
> to a new container.
>
> It still will not compile.
>
> If I comment out the offending line, it gets stuck on "Recordset" then
> "bookmark".
>
>  
>
> What else I can try?
>
> Many thanks in advance.
>
>  
>
> Jim
>
>  
>
>  
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From RRANTHON at sentara.com  Mon Jan 30 09:38:15 2006
From: RRANTHON at sentara.com (Randall R Anthony)
Date: Mon, 30 Jan 2006 10:38:15 -0500
Subject: [AccessD] MDB won't compile
In-Reply-To: <43DE3258.4010709@san.rr.com>
References: <9C382E065F54AE48BC3AA7925DCBB01C03BAF38E@karta-exc-int.Karta.com>
	<43DE3258.4010709@san.rr.com>
Message-ID: <200601301538.k0UFcaC09244@databaseadvisors.com>

Change Me.Refresh to FormName.Refresh.  I had something similar once...

>>> bchacc at san.rr.com 01/30/06 10:35 AM >>>
Import all the objects into a new mdb?

Rocky


Jim Hewson wrote:
> A2K, inherited.
>
> I changed the margins to a report in an MDB.  That's the only change
I
> made.
>
> Now the MDB won't compile.  I've made minor changes before and
created
> MDE files without any problems.
>
> When I try to compile, it stops at "Me.Refresh"  with an error that
> states the "Method or Data member is not found."
>
> I've checked the references, decompiled, used JetComp, moved all
objects
> to a new container.
>
> It still will not compile.
>
> If I comment out the offending line, it gets stuck on "Recordset"
then
> "bookmark".
>
>  
>
> What else I can try?
>
> Many thanks in advance.
>
>  
>
> Jim
>
>  
>
>  
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com 

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


From andy at minstersystems.co.uk  Mon Jan 30 09:52:16 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Mon, 30 Jan 2006 15:52:16 +0000
Subject: [AccessD] MDB won't compile
Message-ID: <20060130155212.C2B55255E5F@smtp.nildram.co.uk>

Have a look, Jim, to see if in that module there are any Me. references to
controls which should really be Me! . I find Access sometimes objects like
this.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "AccessD" <AccessD at databaseadvisors.com>
Subject: [AccessD] MDB won't compile
Date: 30/01/06 14:59


A2K, inherited.

I changed the margins to a report in an MDB. That's the only change I
made.

Now the MDB won't compile. I've made minor changes before and created
MDE files without any problems.

When I try to compile, it stops at "Me.Refresh" with an error that
states the "Method or Data member is not found."

I've checked the references, decompiled, used JetComp, moved all objects
to a new container.

It still will not compile.

If I comment out the offending line, it gets stuck on "Recordset" then
"bookmark".



What else I can try?

Many thanks in advance.



Jim





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

________________________________________________
Message sent using UebiMiau 2.7.2



From jwcolby at ColbyConsulting.com  Mon Jan 30 09:54:53 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 30 Jan 2006 10:54:53 -0500
Subject: [AccessD] Combo and list recordset property
Message-ID: <003501c625b5$83048e60$657aa8c0@ColbyM6805>

Do the combo and list objects support the recordset property in AccessXP and
2003?

John W. Colby
www.ColbyConsulting.com 




From jimdettman at earthlink.net  Mon Jan 30 09:54:39 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Mon, 30 Jan 2006 10:54:39 -0500
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <39cb22f30601300630s2136bd50qbcf0dfae0c954b14@mail.gmail.com>
Message-ID: <NDEALJOEGMMPCDKIFGNFEEKEIFAA.jimdettman@earthlink.net>

Steve,

<<What's your view?>>

  Andy's is writing to a wide audience; everything from a beginning Access
user to a seasoned developer and yet he seems to always take the simplistic
view when it comes to Access.  On the article I mentioned, his stance was
that it worked that way "out of the box" and "how am I supposed to know all
that"?

  Well that's what separates the men from the boys so to speak; you either
know a product and how to work with it or you don't.  But you shouldn't ding
the product because *you* don't understand how to use it properly.  You do
your homework up front like Susan does or don't bother writing the article.

  Views are a tool like any other.  There are times when you want to use
them and times you don't.  Many Access users gravitate towards using them
because they are almost like an Access Query and it means you don't need to
learn T-SQL.  Access simply sees a view as a table, so you can easily hide
complex joins on the SQL side.

  However views will lead to performance problems in SQL as the database
scales up and can cause update problems.  Since your probably using SQL
server in the first place because the app is larger then what you can do
with JET, then it seems somewhat silly to use them for everything.

  They do however provide a nice way to make aggregate queries simpler,
demoralize data, rename columns, etc so they do have their uses.  But you
certainly don't want to be the farm on them.

  Personally my tendency is to not use them unless I have a good reason for
doing so.

Jim.




-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
Sent: Monday, January 30, 2006 9:31 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?


Jim,

Very interesting.  I noted that you and at least one other respondent
mentioned pass-through queries as good performance options.

What's puzzling to me, also, is a comment made to the article by
Warren ( here's the link:
http://www.sqlservercentral.com/columnists/awarren/linkingaccesstosqlserver.
asp
):

"Performance can really suck, depending on the application and the
bandwidth. It has to do with the way data is cached in Access and
becomes very apparent if you have large tables (>100,000 rows).
However, it doesn't justify pass-through queries (obsolutely NOTHING
justifies pass-through queries). Views (in SQL server) are your
friend."

"NOTHING justifies pass-through queries."  I didn't challenge him on
that.  I should have, I suppose, but I know zip about pass-through
queries.  What's your view?
--
Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security
http://TheTownCrank.blogspot.com



On 1/30/06, Jim Dettman <jimdettman at earthlink.net> wrote:
> Steve,
>
>   Andy doesn't seem to know much about Access.  You should have read his
> last Access article, which I and a few others commented on.  Here's the
> link:
>
>
http://www.sqlservercentral.com/columnists/awarren/diggingintoaccessperforma
> nce.asp
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
> Sent: Monday, January 30, 2006 7:53 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Could somebody expand on this a little?
>
>
> Dear Group,
>
> I read a recent SQL Server Central article by a fellow named Andy
> Warren that dealt with connecting to a SQL Server database using an
> Access MDB/ODBC connection.  The article very nicely laid out the
> step-by-step process -- with screen shots -- to accomplish this.  What
> made me curious about the article was that the author never mentioned
> ADP's.
>
> So I joined the discussion forum for this topic and read a number of
> interesting replies pro and con for MDBs vs. ADPs, some that I'm
> unable, from only my own experience, to evaluate.
>
> Here's one of them.  The forum member started his message by saying
> that the article was good.  He went on to say:
>
> ~~~~~~~~~~~~~~~~~~~~~~~~
> "Two problems I've come across:
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From John.Clark at niagaracounty.com  Mon Jan 30 10:10:53 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Mon, 30 Jan 2006 11:10:53 -0500
Subject: [AccessD] Same form, different actions
Message-ID: <s3ddf471.047@nebnov3.niagaracounty.com>

OK John, as usual, you are making my brain hurt ;) Seriously, I have
downloaded your demo, and I am looking through your code, in the
clsOpenArgs module. I think I actually understand some of it too. 

I guess the first thing that comes to mind is, does it work with
non-properties of forms? One of the things I want to do is tell the form
where to go on close...actually, when the exit button is clicked. If the
user goes there from the menu, it should return to the menu. However, if
the user goes there, from anther form, it should return to that form,
and pass the name with it.

I am going to try something, with your demo, to test this. Nope...just
did this real quick, and it didn't work. Actually the whole thing pretty
much quit working...what the heck did I do ;)

>>> jwcolby at colbyconsulting.com 1/29/2006 11:20:21 PM >>>
>>The open Args are quite useful, but tacked on the end of a Do.cmd
statement they don't do much Just text or numbers (usually) tacked on
the
end of an OpenForm Do.Cmd statement.  The real 'power' is in the
interpretation at the other end

Darren,

First let me say that I have put up a demo on my site which shows how
to use
the two classes in the following discussion.  Go to my website -
www.colbyconsulting.com.  If you haven't already, Register.  Log in. 
Click
Example Code / Utilities.  Select C2DbOpenArgs to download the demo.


I pass openargs in the form Varname1=VarVal1;VarName2=VarVal2;etc=etc1;
This
is a syntax that has been around since early Access days and was used
extensively by, and perhaps even "invented by" Ken Getz.  The = is used
as
the separator, the semicolon as the delimiter.

I wrote a pair of classes which handle my openargs.  A "control class"
which
I name OpenArgs (plural) grabs the openargs string and parses the
varname
and value for each openarg.  It then instantiates a OpenArg (singular)
class
to store this VarName and VarVal in.  VarName is a string type, VarVal
is a
variant type.  Making it Variant causes an automatic coercion in a lot
of
cases - currency values get turned into Currency variants, dates get
turned
into dates etc.  At any rate, each OpenArg instance is stored in a
collection in the OpenArgs (plural) class.

The OpenArgs class is dimensioned in the form header, and instantiated
in
the OnOpen of the form.  By the time it finishes loading, all of the
OpenArgs are parsed and sitting in OpenArg class instances in the
collection
in OpenArgs.  OpenArgs has a method for reading OpenArg instances from
the
collection.  OpenArg instances are stored in the collection keyed on
the
VarName.  

Thus you have a pair of classes which automatically handles getting
openargs
for you, one or a hundred, it doesn't matter, and it doesn't have to
be
"re-invented" every time you want to get your openargs.  Syntax is now
standardized everywhere in your app.

The form of course must know what openargs it is expecting, so it can
now
simply call OpenArgs.Arg("VarName") and get back VarVal (a variant). 
What
the form does with the OpenArg is up to you, but getting the OpenArgs
available to the form is trivial.

All of the code follows.  My clsOpenArgs (plural, the controller) also
has
the ability to automatically interpret openargs as properties of the
form.
In other words, if a param is passed in to clsOpenArgs that says to do
so,
then if an OpenArg VarName is the same as a property of the form, the
form
property is set to VarVal.  I have actually demoed this in the state
form,
where the form that opens frmState passes in the values for properties


strOpenArgs = "DataEntry=True;AllowEdits=True;AllowDeletions=False;"

The state form opens, the OpenArgs class parses the OpenArgs string
passed
in, discovers that I want it to use the openargs to set form
properties, and
does so.

Any OpenArgs which do not match the name of a form property are left
uninterpreted and the form can use them for whatever purpose you
choose.
You can also not tell clsOpenArgs to interpret the openargs as form
properties, in which case all OpenArgs are left uninterpreted and you
can do
with them all as you will.

The code:

'===========================================================
'Class OpenArg
'===========================================================
Option Compare Database
Option Explicit

'
'This class stores one OpenArg
'
Private mstrArgName As String
Private mvarArgVal As Variant
Private mblnIsProperty As Boolean

Function mInit(lstrArgName As String, lvarArgVal As Variant)
    mstrArgName = lstrArgName
    mvarArgVal = lvarArgVal
End Function
Function pName() As String
    pName = mstrArgName
End Function
Function pVal() As Variant
    pVal = mvarArgVal
End Function
Property Let pIsPrp(lmblnIsProperty As Boolean)
    mblnIsProperty = lmblnIsProperty
End Property
Property Get pIsPrp() As Boolean
    pIsPrp = mblnIsProperty
End Property


'===========================================================
'Class OpenArgs (Plural) - the controller class
'===========================================================
Option Compare Database
Option Explicit
'.
'.Written By   : John W. Colby
'.Date Created : 04/10/2004
' Rev. History :
'
' BEHAVIORS:
'
'
'When a form opens, it can accept open args, a text string argument.
'The framework will check for openargs, and if they exist will check
'inside the Openagrs for arguments named the same thing as form
properties.
'If such arguments are found, the framework will set the form's
property
'equal to the argument value.
'
'I use this specifically to set up normal forms to be DataEntry forms
'(only allow new records to be added, not existing records edited)
'
'I decided to encapsulate this functionality in a class to make the
OpenArgs
'processing cleanly defined.
'
'--------------------------------------------------------------------------
'THESE CONSTANTS AND VARIABLES ARE USED INTERNALLY TO THE CLASS
'*+ Class constant declaration
Private Const mcstrModuleName As String = "clsOpenArgs"
'*- Class constants declaration
'*+ Class variables declarations
'*- Class variables declarations
'.-------------------------------------------------------------------------
'THESE CONSTANTS AND VARIABLES ARE USED BY THE CLASS TO IMPLEMENT
CLASS
FUNCTIONALITY
'*+ custom constants declaration
'
'*- Custom constants declaration
'*+ custom variables declarations
'
Private mfrm As Form     'A form reference passed in
Private mstrOpenArgs As String
Private mcolOpenArg As Collection
'*- custom variables declarations
'
'Define any events this class will raise here
'*+ custom events Declarations
'Public Event MyEvent(Status As Integer)
'*- custom events declarations
'.-------------------------------------------------------------------------
'THESE FUNCTIONS / SUBS ARE USED INTERNALLY TO THE CLASS
'*+ Private Init/Terminate Interface
Private Sub Class_Initialize()
On Error GoTo Err_Class_Initialize
    Set mcolOpenArg = New Collection
Exit_Class_Initialize:
Exit Sub
Err_Class_Initialize:
        MsgBox Err.Description, , "Error in Sub
clsTemplate.Class_Initialize"
        Resume Exit_Class_Initialize
    Resume 0    '.FOR TROUBLESHOOTING
End Sub
Private Sub Class_Terminate()
On Error Resume Next
    mTerm
End Sub
'INITIALIZE THE CLASS
Public Sub mInit(lfrm As Form, _
                Optional blnApplyProperties As Boolean = False)
    Set mfrm = lfrm
    'The openargs string might be null
    On Error Resume Next
    mstrOpenArgs = mfrm.OpenArgs
    
    ParseOpenArgs
    '
    'The default is false, do not try and apply OpenArgs as form
properties
    'If the deveopler wants to
    '
    If blnApplyProperties Then
        ApplyFrmProperties
    End If
End Sub
'CLEAN UP ALL OF THE CLASS POINTERS
Public Sub mTerm()
Static blnRan As Boolean    'The term may run more than once so
    If blnRan Then Exit Sub 'just exit if it already ran
    blnRan = True
    On Error Resume Next
    mColEmpty mcolOpenArg
    Set mcolOpenArg = Nothing
End Sub
'*- Public Init/Terminate interface
'.-------------------------------------------------------------------------
'THESE FUNCTIONS SINK EVENTS DECLARED WITHEVENTS IN THIS CLASS
'*+ Form WithEvent interface
'*- Form WithEvent interface
'THESE FUNCTIONS / SUBS ARE USED TO IMPLEMENT CLASS FUNCTIONALITY
'*+PRIVATE Class function / sub declaration
Private Function cOpenArg(strOpenArg As String) As clsOpenArg
Dim intPosEqual As Integer
Dim strArgName As String
Dim varArgVal As Variant
Dim lclsOpenArg As clsOpenArg
    intPosEqual = InStr(strOpenArg, "=")
    If intPosEqual > 0 Then
        strArgName = Left$(strOpenArg, intPosEqual - 1)
        varArgVal = Right$(strOpenArg, Len(strOpenArg) - intPosEqual)
        Set lclsOpenArg = New clsOpenArg
        lclsOpenArg.mInit strArgName, varArgVal
        Set cOpenArg = lclsOpenArg
    End If
End Function
'
Private Sub ParseOpenArgs()
Dim lstrOpenArgs As String
Dim strOpenArg As String
Dim intPos As Integer
Dim lclsOpenArg As clsOpenArg
    lstrOpenArgs = mstrOpenArgs
    intPos = InStr(lstrOpenArgs, ";")
    
    While intPos > 0
        strOpenArg = Left$(lstrOpenArgs, intPos - 1)
        Set lclsOpenArg = OpenArg(strOpenArg)
        mcolOpenArg.Add lclsOpenArg, lclsOpenArg.pName
        lstrOpenArgs = Right$(lstrOpenArgs, Len(lstrOpenArgs) -
intPos)
        intPos = InStr(lstrOpenArgs, ";")
    Wend

End Sub
'
'This function cycles through all the openargs applying them to form
properties
'if an argument is named the same as a form property, and the property
is
writeable
'(doesn't require being in design view to set it) then the application
of
the value
'to the property will be performed and Err will not be set.  For these
OpenArgs we
'set the IsPrp to true
'
'All of this provides a way for the developer to ppass in openargs to
an
opening form
'which are then used to set form properties.  It is up to the developer
to
ensure that
'the property is settable, that the value they pass in is valid
(correct
data type,
'correct value range etc.)
'
'In the end, the only way to know whether a passed in OpenArg is a
property
is to try
'it and see.  If there is no error then the name is a property name, it
is
settable in
'form view mode, and the value is acceptable.
'
Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub
'
'Empties out a collection containing class instances
'
Public Function mColEmpty(col As Collection)
On Error GoTo Err_mColEmpty

Dim obj As Object
On Error Resume Next
    
    For Each obj In col
        obj.mTerm
    Next obj

On Error GoTo Err_mColEmpty
    While col.Count > 0
        col.Remove 1
    Wend
exit_mColEmpty:
Exit Function
Err_mColEmpty:
    Select Case Err
    Case 91 'Collection empty
        Resume exit_mColEmpty
    Case Else
        MsgBox Err.Description, , "Error in Function
clsSysVars.mColEmpty"
        Resume exit_mColEmpty
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function

'*-PRIVATE Class function / sub declaration
'*+PUBLIC Class function / sub declaration
Function OpenArg(strArgName As String) As Variant
On Error GoTo Err_OpenArg
    OpenArg = mcolOpenArg(strArgName).pVal
Exit_OpenArg:
Exit Function
Err_OpenArg:
    Select Case Err
    Case 91
        MsgBox "OpenArg " & strArgName & " does not exist"
        Resume Exit_OpenArg
    Case Else
        MsgBox Err.Description, , "Error in Function
clsOpenArgs.OpenArg"
        Resume Exit_OpenArg
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function'*-PUBLIC Class function / sub declaration

'===========================================================
'Form frmStates - a demo form that displays a state lookup table
'===========================================================
Option Compare Database
Option Explicit

Private lclsOpenArgs As clsOpenArgs

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True
End Sub
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click

    DoCmd.Close

Exit_cmdClose_Click:
    Exit Sub
Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click
End Sub

'===========================================================
'Form frmOpenArgsDemo - a demo form that opens the state form, 
'passing in openargs
'===========================================================
Option Compare Database
Option Explicit

Private Sub cmdStatesDataEntry_Click()
On Error GoTo Err_cmdStatesDataEntry_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim strOpenArgs As String
    
    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;"
    stDocName = "frmStates"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , strOpenArgs

Exit_cmdStatesDataEntry_Click:
    Exit Sub

Err_cmdStatesDataEntry_Click:
    MsgBox Err.Description
    Resume Exit_cmdStatesDataEntry_Click
    Resume 0
End Sub

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 5:29 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions

Hi John
Anyone feel free to jump in if I have this wrong 

The open Args are quite useful, but tacked on the end of a Do.cmd
statement
they don't do much Just text or numbers (usually) tacked on the end of
an
OpenForm Do.Cmd statment

The real 'power' is in the interpretation at the other end

.....

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


From cfoust at infostatsystems.com  Mon Jan 30 10:38:14 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 30 Jan 2006 08:38:14 -0800
Subject: [AccessD] Could somebody expand on this a little?
Message-ID: <F55048AF7E974F429BB24597D7355EEABF6D@INFOSERVER04.infostat.local>

>> demoralize data
LOL!  Is THAT what causes corruption??

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Monday, January 30, 2006 7:55 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?


Steve,

<<What's your view?>>

  Andy's is writing to a wide audience; everything from a beginning
Access user to a seasoned developer and yet he seems to always take the
simplistic view when it comes to Access.  On the article I mentioned,
his stance was that it worked that way "out of the box" and "how am I
supposed to know all that"?

  Well that's what separates the men from the boys so to speak; you
either know a product and how to work with it or you don't.  But you
shouldn't ding the product because *you* don't understand how to use it
properly.  You do your homework up front like Susan does or don't bother
writing the article.

  Views are a tool like any other.  There are times when you want to use
them and times you don't.  Many Access users gravitate towards using
them because they are almost like an Access Query and it means you don't
need to learn T-SQL.  Access simply sees a view as a table, so you can
easily hide complex joins on the SQL side.

  However views will lead to performance problems in SQL as the database
scales up and can cause update problems.  Since your probably using SQL
server in the first place because the app is larger then what you can do
with JET, then it seems somewhat silly to use them for everything.

  They do however provide a nice way to make aggregate queries simpler,
demoralize data, rename columns, etc so they do have their uses.  But
you certainly don't want to be the farm on them.

  Personally my tendency is to not use them unless I have a good reason
for doing so.

Jim.




-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
Sent: Monday, January 30, 2006 9:31 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?


Jim,

Very interesting.  I noted that you and at least one other respondent
mentioned pass-through queries as good performance options.

What's puzzling to me, also, is a comment made to the article by Warren
( here's the link:
http://www.sqlservercentral.com/columnists/awarren/linkingaccesstosqlser
ver.
asp
):

"Performance can really suck, depending on the application and the
bandwidth. It has to do with the way data is cached in Access and
becomes very apparent if you have large tables (>100,000 rows). However,
it doesn't justify pass-through queries (obsolutely NOTHING justifies
pass-through queries). Views (in SQL server) are your friend."

"NOTHING justifies pass-through queries."  I didn't challenge him on
that.  I should have, I suppose, but I know zip about pass-through
queries.  What's your view?
--
Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security
http://TheTownCrank.blogspot.com



On 1/30/06, Jim Dettman <jimdettman at earthlink.net> wrote:
> Steve,
>
>   Andy doesn't seem to know much about Access.  You should have read 
> his last Access article, which I and a few others commented on.  
> Here's the
> link:
>
>
http://www.sqlservercentral.com/columnists/awarren/diggingintoaccessperf
orma
> nce.asp
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
> Sent: Monday, January 30, 2006 7:53 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Could somebody expand on this a little?
>
>
> Dear Group,
>
> I read a recent SQL Server Central article by a fellow named Andy 
> Warren that dealt with connecting to a SQL Server database using an 
> Access MDB/ODBC connection.  The article very nicely laid out the 
> step-by-step process -- with screen shots -- to accomplish this.  What

> made me curious about the article was that the author never mentioned 
> ADP's.
>
> So I joined the discussion forum for this topic and read a number of 
> interesting replies pro and con for MDBs vs. ADPs, some that I'm 
> unable, from only my own experience, to evaluate.
>
> Here's one of them.  The forum member started his message by saying 
> that the article was good.  He went on to say:
>
> ~~~~~~~~~~~~~~~~~~~~~~~~
> "Two problems I've come across:
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


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


From cfoust at infostatsystems.com  Mon Jan 30 10:41:07 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 30 Jan 2006 08:41:07 -0800
Subject: [AccessD] Same form, different actions
Message-ID: <F55048AF7E974F429BB24597D7355EEABF6E@INFOSERVER04.infostat.local>

I usually pass in the name of the calling form in OpenArgs (along with
anything else, semicolon delimited) and set a property of the called
form to point to the previous form.  You can go futher and use a stack
to keep track of the parent and child objects, but it depends on what
you really need to accomplish.

Charlotte foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Monday, January 30, 2006 8:11 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Same form, different actions


OK John, as usual, you are making my brain hurt ;) Seriously, I have
downloaded your demo, and I am looking through your code, in the
clsOpenArgs module. I think I actually understand some of it too. 

I guess the first thing that comes to mind is, does it work with
non-properties of forms? One of the things I want to do is tell the form
where to go on close...actually, when the exit button is clicked. If the
user goes there from the menu, it should return to the menu. However, if
the user goes there, from anther form, it should return to that form,
and pass the name with it.

I am going to try something, with your demo, to test this. Nope...just
did this real quick, and it didn't work. Actually the whole thing pretty
much quit working...what the heck did I do ;)

>>> jwcolby at colbyconsulting.com 1/29/2006 11:20:21 PM >>>
>>The open Args are quite useful, but tacked on the end of a Do.cmd
statement they don't do much Just text or numbers (usually) tacked on
the end of an OpenForm Do.Cmd statement.  The real 'power' is in the
interpretation at the other end

Darren,

First let me say that I have put up a demo on my site which shows how to
use the two classes in the following discussion.  Go to my website -
www.colbyconsulting.com.  If you haven't already, Register.  Log in. 
Click
Example Code / Utilities.  Select C2DbOpenArgs to download the demo.


I pass openargs in the form Varname1=VarVal1;VarName2=VarVal2;etc=etc1;
This
is a syntax that has been around since early Access days and was used
extensively by, and perhaps even "invented by" Ken Getz.  The = is used
as the separator, the semicolon as the delimiter.

I wrote a pair of classes which handle my openargs.  A "control class"
which I name OpenArgs (plural) grabs the openargs string and parses the
varname and value for each openarg.  It then instantiates a OpenArg
(singular) class to store this VarName and VarVal in.  VarName is a
string type, VarVal is a variant type.  Making it Variant causes an
automatic coercion in a lot of cases - currency values get turned into
Currency variants, dates get turned into dates etc.  At any rate, each
OpenArg instance is stored in a collection in the OpenArgs (plural)
class.

The OpenArgs class is dimensioned in the form header, and instantiated
in the OnOpen of the form.  By the time it finishes loading, all of the
OpenArgs are parsed and sitting in OpenArg class instances in the
collection in OpenArgs.  OpenArgs has a method for reading OpenArg
instances from the collection.  OpenArg instances are stored in the
collection keyed on the VarName.  

Thus you have a pair of classes which automatically handles getting
openargs for you, one or a hundred, it doesn't matter, and it doesn't
have to be "re-invented" every time you want to get your openargs.
Syntax is now standardized everywhere in your app.

The form of course must know what openargs it is expecting, so it can
now simply call OpenArgs.Arg("VarName") and get back VarVal (a variant).

What
the form does with the OpenArg is up to you, but getting the OpenArgs
available to the form is trivial.

All of the code follows.  My clsOpenArgs (plural, the controller) also
has the ability to automatically interpret openargs as properties of the
form. In other words, if a param is passed in to clsOpenArgs that says
to do so, then if an OpenArg VarName is the same as a property of the
form, the form property is set to VarVal.  I have actually demoed this
in the state form, where the form that opens frmState passes in the
values for properties


strOpenArgs = "DataEntry=True;AllowEdits=True;AllowDeletions=False;"

The state form opens, the OpenArgs class parses the OpenArgs string
passed in, discovers that I want it to use the openargs to set form
properties, and does so.

Any OpenArgs which do not match the name of a form property are left
uninterpreted and the form can use them for whatever purpose you choose.
You can also not tell clsOpenArgs to interpret the openargs as form
properties, in which case all OpenArgs are left uninterpreted and you
can do with them all as you will.

The code:

'===========================================================
'Class OpenArg
'===========================================================
Option Compare Database
Option Explicit

'
'This class stores one OpenArg
'
Private mstrArgName As String
Private mvarArgVal As Variant
Private mblnIsProperty As Boolean

Function mInit(lstrArgName As String, lvarArgVal As Variant)
    mstrArgName = lstrArgName
    mvarArgVal = lvarArgVal
End Function
Function pName() As String
    pName = mstrArgName
End Function
Function pVal() As Variant
    pVal = mvarArgVal
End Function
Property Let pIsPrp(lmblnIsProperty As Boolean)
    mblnIsProperty = lmblnIsProperty
End Property
Property Get pIsPrp() As Boolean
    pIsPrp = mblnIsProperty
End Property


'===========================================================
'Class OpenArgs (Plural) - the controller class
'===========================================================
Option Compare Database
Option Explicit
'.
'.Written By   : John W. Colby
'.Date Created : 04/10/2004
' Rev. History :
'
' BEHAVIORS:
'
'
'When a form opens, it can accept open args, a text string argument.
'The framework will check for openargs, and if they exist will check
'inside the Openagrs for arguments named the same thing as form
properties. 'If such arguments are found, the framework will set the
form's property 'equal to the argument value. ' 'I use this specifically
to set up normal forms to be DataEntry forms '(only allow new records to
be added, not existing records edited) ' 'I decided to encapsulate this
functionality in a class to make the OpenArgs 'processing cleanly
defined. '
'-----------------------------------------------------------------------
---
'THESE CONSTANTS AND VARIABLES ARE USED INTERNALLY TO THE CLASS '*+
Class constant declaration Private Const mcstrModuleName As String =
"clsOpenArgs"
'*- Class constants declaration
'*+ Class variables declarations
'*- Class variables declarations
'.----------------------------------------------------------------------
---
'THESE CONSTANTS AND VARIABLES ARE USED BY THE CLASS TO IMPLEMENT CLASS
FUNCTIONALITY '*+ custom constants declaration '
'*- Custom constants declaration
'*+ custom variables declarations
'
Private mfrm As Form     'A form reference passed in
Private mstrOpenArgs As String
Private mcolOpenArg As Collection
'*- custom variables declarations
'
'Define any events this class will raise here
'*+ custom events Declarations
'Public Event MyEvent(Status As Integer)
'*- custom events declarations
'.----------------------------------------------------------------------
---
'THESE FUNCTIONS / SUBS ARE USED INTERNALLY TO THE CLASS
'*+ Private Init/Terminate Interface
Private Sub Class_Initialize()
On Error GoTo Err_Class_Initialize
    Set mcolOpenArg = New Collection
Exit_Class_Initialize:
Exit Sub
Err_Class_Initialize:
        MsgBox Err.Description, , "Error in Sub
clsTemplate.Class_Initialize"
        Resume Exit_Class_Initialize
    Resume 0    '.FOR TROUBLESHOOTING
End Sub
Private Sub Class_Terminate()
On Error Resume Next
    mTerm
End Sub
'INITIALIZE THE CLASS
Public Sub mInit(lfrm As Form, _
                Optional blnApplyProperties As Boolean = False)
    Set mfrm = lfrm
    'The openargs string might be null
    On Error Resume Next
    mstrOpenArgs = mfrm.OpenArgs
    
    ParseOpenArgs
    '
    'The default is false, do not try and apply OpenArgs as form
properties
    'If the deveopler wants to
    '
    If blnApplyProperties Then
        ApplyFrmProperties
    End If
End Sub
'CLEAN UP ALL OF THE CLASS POINTERS
Public Sub mTerm()
Static blnRan As Boolean    'The term may run more than once so
    If blnRan Then Exit Sub 'just exit if it already ran
    blnRan = True
    On Error Resume Next
    mColEmpty mcolOpenArg
    Set mcolOpenArg = Nothing
End Sub
'*- Public Init/Terminate interface
'.----------------------------------------------------------------------
---
'THESE FUNCTIONS SINK EVENTS DECLARED WITHEVENTS IN THIS CLASS '*+ Form
WithEvent interface
'*- Form WithEvent interface
'THESE FUNCTIONS / SUBS ARE USED TO IMPLEMENT CLASS FUNCTIONALITY
'*+PRIVATE Class function / sub declaration Private Function
cOpenArg(strOpenArg As String) As clsOpenArg Dim intPosEqual As Integer
Dim strArgName As String Dim varArgVal As Variant Dim lclsOpenArg As
clsOpenArg
    intPosEqual = InStr(strOpenArg, "=")
    If intPosEqual > 0 Then
        strArgName = Left$(strOpenArg, intPosEqual - 1)
        varArgVal = Right$(strOpenArg, Len(strOpenArg) - intPosEqual)
        Set lclsOpenArg = New clsOpenArg
        lclsOpenArg.mInit strArgName, varArgVal
        Set cOpenArg = lclsOpenArg
    End If
End Function
'
Private Sub ParseOpenArgs()
Dim lstrOpenArgs As String
Dim strOpenArg As String
Dim intPos As Integer
Dim lclsOpenArg As clsOpenArg
    lstrOpenArgs = mstrOpenArgs
    intPos = InStr(lstrOpenArgs, ";")
    
    While intPos > 0
        strOpenArg = Left$(lstrOpenArgs, intPos - 1)
        Set lclsOpenArg = OpenArg(strOpenArg)
        mcolOpenArg.Add lclsOpenArg, lclsOpenArg.pName
        lstrOpenArgs = Right$(lstrOpenArgs, Len(lstrOpenArgs) -
intPos)
        intPos = InStr(lstrOpenArgs, ";")
    Wend

End Sub
'
'This function cycles through all the openargs applying them to form
properties 'if an argument is named the same as a form property, and the
property is writeable '(doesn't require being in design view to set it)
then the application of the value 'to the property will be performed and
Err will not be set.  For these OpenArgs we 'set the IsPrp to true '
'All of this provides a way for the developer to ppass in openargs to an
opening form 'which are then used to set form properties.  It is up to
the developer to ensure that 'the property is settable, that the value
they pass in is valid (correct data type, 'correct value range etc.) '
'In the end, the only way to know whether a passed in OpenArg is a
property is to try 'it and see.  If there is no error then the name is a
property name, it is settable in 'form view mode, and the value is
acceptable. ' Public Sub ApplyFrmProperties() Dim lclsOpenArg As
clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub
'
'Empties out a collection containing class instances
'
Public Function mColEmpty(col As Collection)
On Error GoTo Err_mColEmpty

Dim obj As Object
On Error Resume Next
    
    For Each obj In col
        obj.mTerm
    Next obj

On Error GoTo Err_mColEmpty
    While col.Count > 0
        col.Remove 1
    Wend
exit_mColEmpty:
Exit Function
Err_mColEmpty:
    Select Case Err
    Case 91 'Collection empty
        Resume exit_mColEmpty
    Case Else
        MsgBox Err.Description, , "Error in Function
clsSysVars.mColEmpty"
        Resume exit_mColEmpty
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function

'*-PRIVATE Class function / sub declaration
'*+PUBLIC Class function / sub declaration
Function OpenArg(strArgName As String) As Variant
On Error GoTo Err_OpenArg
    OpenArg = mcolOpenArg(strArgName).pVal
Exit_OpenArg:
Exit Function
Err_OpenArg:
    Select Case Err
    Case 91
        MsgBox "OpenArg " & strArgName & " does not exist"
        Resume Exit_OpenArg
    Case Else
        MsgBox Err.Description, , "Error in Function
clsOpenArgs.OpenArg"
        Resume Exit_OpenArg
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function'*-PUBLIC Class function / sub declaration

'===========================================================
'Form frmStates - a demo form that displays a state lookup table
'===========================================================
Option Compare Database
Option Explicit

Private lclsOpenArgs As clsOpenArgs

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True
End Sub
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click

    DoCmd.Close

Exit_cmdClose_Click:
    Exit Sub
Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click
End Sub

'===========================================================
'Form frmOpenArgsDemo - a demo form that opens the state form, 
'passing in openargs
'===========================================================
Option Compare Database
Option Explicit

Private Sub cmdStatesDataEntry_Click()
On Error GoTo Err_cmdStatesDataEntry_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim strOpenArgs As String
    
    strOpenArgs = "DataEntry=True;AllowEdits=True;AllowDeletions=False;"
    stDocName = "frmStates"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , strOpenArgs

Exit_cmdStatesDataEntry_Click:
    Exit Sub

Err_cmdStatesDataEntry_Click:
    MsgBox Err.Description
    Resume Exit_cmdStatesDataEntry_Click
    Resume 0
End Sub

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 5:29 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions

Hi John
Anyone feel free to jump in if I have this wrong 

The open Args are quite useful, but tacked on the end of a Do.cmd
statement they don't do much Just text or numbers (usually) tacked on
the end of an OpenForm Do.Cmd statment

The real 'power' is in the interpretation at the other end

.....

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


From jimdettman at earthlink.net  Mon Jan 30 11:14:16 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Mon, 30 Jan 2006 12:14:16 -0500
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF6D@INFOSERVER04.infostat.local>
Message-ID: <NDEALJOEGMMPCDKIFGNFAELBIFAA.jimdettman@earthlink.net>

Good catch!  That's what happens when your in a hurry and hit the spell
check to quick.....

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Charlotte
Foust
Sent: Monday, January 30, 2006 11:38 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?


>> demoralize data
LOL!  Is THAT what causes corruption??

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Monday, January 30, 2006 7:55 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?


Steve,

<<What's your view?>>

  Andy's is writing to a wide audience; everything from a beginning
Access user to a seasoned developer and yet he seems to always take the
simplistic view when it comes to Access.  On the article I mentioned,
his stance was that it worked that way "out of the box" and "how am I
supposed to know all that"?

  Well that's what separates the men from the boys so to speak; you
either know a product and how to work with it or you don't.  But you
shouldn't ding the product because *you* don't understand how to use it
properly.  You do your homework up front like Susan does or don't bother
writing the article.

  Views are a tool like any other.  There are times when you want to use
them and times you don't.  Many Access users gravitate towards using
them because they are almost like an Access Query and it means you don't
need to learn T-SQL.  Access simply sees a view as a table, so you can
easily hide complex joins on the SQL side.

  However views will lead to performance problems in SQL as the database
scales up and can cause update problems.  Since your probably using SQL
server in the first place because the app is larger then what you can do
with JET, then it seems somewhat silly to use them for everything.

  They do however provide a nice way to make aggregate queries simpler,
demoralize data, rename columns, etc so they do have their uses.  But
you certainly don't want to be the farm on them.

  Personally my tendency is to not use them unless I have a good reason
for doing so.

Jim.




-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
Sent: Monday, January 30, 2006 9:31 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?


Jim,

Very interesting.  I noted that you and at least one other respondent
mentioned pass-through queries as good performance options.

What's puzzling to me, also, is a comment made to the article by Warren
( here's the link:
http://www.sqlservercentral.com/columnists/awarren/linkingaccesstosqlser
ver.
asp
):

"Performance can really suck, depending on the application and the
bandwidth. It has to do with the way data is cached in Access and
becomes very apparent if you have large tables (>100,000 rows). However,
it doesn't justify pass-through queries (obsolutely NOTHING justifies
pass-through queries). Views (in SQL server) are your friend."

"NOTHING justifies pass-through queries."  I didn't challenge him on
that.  I should have, I suppose, but I know zip about pass-through
queries.  What's your view?
--
Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security
http://TheTownCrank.blogspot.com



On 1/30/06, Jim Dettman <jimdettman at earthlink.net> wrote:
> Steve,
>
>   Andy doesn't seem to know much about Access.  You should have read
> his last Access article, which I and a few others commented on.
> Here's the
> link:
>
>
http://www.sqlservercentral.com/columnists/awarren/diggingintoaccessperf
orma
> nce.asp
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
> Sent: Monday, January 30, 2006 7:53 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Could somebody expand on this a little?
>
>
> Dear Group,
>
> I read a recent SQL Server Central article by a fellow named Andy
> Warren that dealt with connecting to a SQL Server database using an
> Access MDB/ODBC connection.  The article very nicely laid out the
> step-by-step process -- with screen shots -- to accomplish this.  What

> made me curious about the article was that the author never mentioned
> ADP's.
>
> So I joined the discussion forum for this topic and read a number of
> interesting replies pro and con for MDBs vs. ADPs, some that I'm
> unable, from only my own experience, to evaluate.
>
> Here's one of them.  The forum member started his message by saying
> that the article was good.  He went on to say:
>
> ~~~~~~~~~~~~~~~~~~~~~~~~
> "Two problems I've come across:
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


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




From jwcolby at ColbyConsulting.com  Mon Jan 30 11:29:53 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 30 Jan 2006 12:29:53 -0500
Subject: [AccessD] Same form, different actions
In-Reply-To: <s3ddf471.047@nebnov3.niagaracounty.com>
Message-ID: <003f01c625c2$c86fa180$657aa8c0@ColbyM6805>

John,

When you say "go there" what do you mean.  If you open a form modal, then
when you close the form you are right back in the calling form.  If you are
not opening it modal, you should STILL "go there" when you close the form
unless the user has clicked on or opened some other form in the meantime.
IOW, if the switchboard opens the form, then when the form closes, the
switchboard should still be there.  

If you want the form to do something and then OPEN another form, then pass
in the form name in the OpenArgs something like:

strOpenArgs="FrmToOpen=frmThatIWantOpened;"

Now somewhere in the form that you are opening with these openargs (perhaps
in the close event?) do:

Docmd.open acForm, lclsOpenArgs.OpenArg("FrmToOpen")

You do have to make sure that the instance of lclsOpenArgs hasn't been
destroyed already.  I am not sure at what instance in the closing process
that occurs so that part is up to you to figure out.

So.....

The demo has two levels of complexity.  The first (and most complex) is that
as you pass in openargs, it is possible to have the OpenArgs class set
properties of the form that is using this instance of the OpenArgs class.
That is handled automatically by clsOpenArgs.  Pass in OpenArgs with names
that match form properties and Voila, (assuming the properties are not
read-only) the properties are set.  That was demonstrated by the code in the
buttons on the demo form opening the SAME state form in two different modes,
plus setting the caption property of the state form.

The second level of complexity is just using an OpenArg somehow, using code
in the form to retrieve an OpenArg and use it.  That was demonstrated by
setting the label caption in code in the OnOpen event.

In either case, the first thing to get comfortable with is having a form
instantiate and initialize a class.  In the code behind form of the
frmState, we dimensioned a class variable in the header, then SET and
initialized that variable in OnOpen.

Private lclsOpenArgs As clsOpenArgs


Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True

So the form now has a lclsOpenArgs instance that has parsed the OpenArgs
string passed in and is waiting for your command.

The next thing to become comfortable with is that you can now use the
Openargs:

	lblDemoArg.Caption = lclsOpenArgs.OpenArg("LblText")

In the OnOpen of the frmState, we initialized the class, and then used the
class to pull out an openarg called "LblText" and used the value returned by
the class to set the caption of a label - lblDemoArg.Caption.

Go back to the button code that OPENED frmState and notice that the string
with all the openargs contained an openarg with this "lblText" name (at the
very end):

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State Data
Entry Form;LblText=My Data Entry Label;"

ALL of the OpenArgs at the front of the string are for setting form
properties.  Their location in the string is irrelevant, it just happens
that is where I placed them.

IF you told frmStates to interpret the openargs as properties BY PASSING IN
True as the second argument of the init:

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True  <<<<HERE


Then any openargs with a name matching a form property will be used to set
that property.  That occurs in the private method of clsOpenArgs called
ApplyFrmProperties, which is called from the Init() method.  We passed in a
bunch of OpenArgs with names matching form properties:

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State Data
Entry Form;LblText=My Data Entry Label;"

DataEntry
AllowEdits
AllowDeletions
Caption

The reason that they are used for setting properties is that we passed in
the TRUE as the second param of the Init method, AND in that Init method we
called the following function:

Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub

Remember that we passed in a pointer to the form itself to the Init method,
so the class can manipulate the form if it wants to.

To really understand all this stuff, the best thing to do is simply set
break points in the command buttons that open the form.  Then step through
the code and watch it all unfold.  

I understand that the "set the form properties" thing gets in the way of
understanding the OpenArgs class but it is a great example of actually
automatically using openargs, with NO further code on your part (the user of
the class).  I wrote the class to do this "set the forms property" and all
you have to do is use it.  In the frmState, as you initialize clsOpenArgs,
say you are expecting some parameters to be sent in that will set form
properties.  The class takes care of the rest.  Back in your button that
opens the form, set openarg names that match the form properties that you
want to set, set the values that you want the properties set to, and hang on
to your hat.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Monday, January 30, 2006 11:11 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Same form, different actions

OK John, as usual, you are making my brain hurt ;) Seriously, I have
downloaded your demo, and I am looking through your code, in the clsOpenArgs
module. I think I actually understand some of it too. 

I guess the first thing that comes to mind is, does it work with
non-properties of forms? One of the things I want to do is tell the form
where to go on close...actually, when the exit button is clicked. If the
user goes there from the menu, it should return to the menu. However, if the
user goes there, from anther form, it should return to that form, and pass
the name with it.

I am going to try something, with your demo, to test this. Nope...just did
this real quick, and it didn't work. Actually the whole thing pretty much
quit working...what the heck did I do ;)



From BarbaraRyan at cox.net  Mon Jan 30 11:55:52 2006
From: BarbaraRyan at cox.net (Barbara Ryan)
Date: Mon, 30 Jan 2006 12:55:52 -0500
Subject: [AccessD] Email using SMTP
Message-ID: <010d01c625c6$69664460$0d00a8c0@desktop>

I've found some SMTP components on the web that allow you to email directly from Access using SMTP.

Does anyone know of any VBA code (e.g., using SMTP "commands") that I could use WITHOUT using a component (as well as NOT using any electronic mail application)

Thanks,
Barb Ryan

From Jdemarco at hudsonhealthplan.org  Mon Jan 30 12:13:57 2006
From: Jdemarco at hudsonhealthplan.org (Jim DeMarco)
Date: Mon, 30 Jan 2006 13:13:57 -0500
Subject: [AccessD] Email using SMTP
Message-ID: <08F823FD83787D4BA0B99CA580AD3C74016C4493@TTNEXCHCL2.hshhp.com>

Barb,

Are you trying to avoid installing a component like vbSendMail?  It's a freebie that does the trick but requires a component.

Jim DeMarco

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Barbara Ryan
Sent: Monday, January 30, 2006 12:56 PM
To: Access List
Subject: [AccessD] Email using SMTP


I've found some SMTP components on the web that allow you to email directly from Access using SMTP.

Does anyone know of any VBA code (e.g., using SMTP "commands") that I could use WITHOUT using a component (as well as NOT using any electronic mail application)

Thanks,
Barb Ryan
-- 
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".
***********************************************************************************



From BarbaraRyan at cox.net  Mon Jan 30 12:20:04 2006
From: BarbaraRyan at cox.net (Barbara Ryan)
Date: Mon, 30 Jan 2006 13:20:04 -0500
Subject: [AccessD] Email using SMTP
References: <08F823FD83787D4BA0B99CA580AD3C74016C4493@TTNEXCHCL2.hshhp.com>
Message-ID: <012b01c625c9$cb282da0$0d00a8c0@desktop>

Actually, Jim....That sounds great --- Thanks!......Barb


----- Original Message ----- 
From: "Jim DeMarco" <Jdemarco at hudsonhealthplan.org>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Monday, January 30, 2006 1:13 PM
Subject: Re: [AccessD] Email using SMTP


> Barb,
>
> Are you trying to avoid installing a component like vbSendMail?  It's a
freebie that does the trick but requires a component.
>
> Jim DeMarco
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Barbara Ryan
> Sent: Monday, January 30, 2006 12:56 PM
> To: Access List
> Subject: [AccessD] Email using SMTP
>
>
> I've found some SMTP components on the web that allow you to email
directly from Access using SMTP.
>
> Does anyone know of any VBA code (e.g., using SMTP "commands") that I
could use WITHOUT using a component (as well as NOT using any electronic
mail application)
>
> Thanks,
> Barb Ryan
> -- 
> 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".
>
****************************************************************************
*******
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>



From John.Clark at niagaracounty.com  Mon Jan 30 12:23:51 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Mon, 30 Jan 2006 13:23:51 -0500
Subject: [AccessD] Same form, different actions
Message-ID: <s3de13cd.030@nebnov3.niagaracounty.com>

Man, I wish I got this just half as much as you do! This is going to
take me some time to digest, but I think it is exactly what I need.
Thanks for the help!

John W. Clark


>>> jwcolby at colbyconsulting.com 1/30/2006 12:29:53 PM >>>
John,

When you say "go there" what do you mean.  If you open a form modal,
then
when you close the form you are right back in the calling form.  If you
are
not opening it modal, you should STILL "go there" when you close the
form
unless the user has clicked on or opened some other form in the
meantime.
IOW, if the switchboard opens the form, then when the form closes, the
switchboard should still be there.  

If you want the form to do something and then OPEN another form, then
pass
in the form name in the OpenArgs something like:

strOpenArgs="FrmToOpen=frmThatIWantOpened;"

Now somewhere in the form that you are opening with these openargs
(perhaps
in the close event?) do:

Docmd.open acForm, lclsOpenArgs.OpenArg("FrmToOpen")

You do have to make sure that the instance of lclsOpenArgs hasn't been
destroyed already.  I am not sure at what instance in the closing
process
that occurs so that part is up to you to figure out.

So.....

The demo has two levels of complexity.  The first (and most complex) is
that
as you pass in openargs, it is possible to have the OpenArgs class set
properties of the form that is using this instance of the OpenArgs
class.
That is handled automatically by clsOpenArgs.  Pass in OpenArgs with
names
that match form properties and Voila, (assuming the properties are not
read-only) the properties are set.  That was demonstrated by the code
in the
buttons on the demo form opening the SAME state form in two different
modes,
plus setting the caption property of the state form.

The second level of complexity is just using an OpenArg somehow, using
code
in the form to retrieve an OpenArg and use it.  That was demonstrated
by
setting the label caption in code in the OnOpen event.

In either case, the first thing to get comfortable with is having a
form
instantiate and initialize a class.  In the code behind form of the
frmState, we dimensioned a class variable in the header, then SET and
initialized that variable in OnOpen.

Private lclsOpenArgs As clsOpenArgs


Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True

So the form now has a lclsOpenArgs instance that has parsed the
OpenArgs
string passed in and is waiting for your command.

The next thing to become comfortable with is that you can now use the
Openargs:

	lblDemoArg.Caption = lclsOpenArgs.OpenArg("LblText")

In the OnOpen of the frmState, we initialized the class, and then used
the
class to pull out an openarg called "LblText" and used the value
returned by
the class to set the caption of a label - lblDemoArg.Caption.

Go back to the button code that OPENED frmState and notice that the
string
with all the openargs contained an openarg with this "lblText" name (at
the
very end):

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State
Data
Entry Form;LblText=My Data Entry Label;"

ALL of the OpenArgs at the front of the string are for setting form
properties.  Their location in the string is irrelevant, it just
happens
that is where I placed them.

IF you told frmStates to interpret the openargs as properties BY
PASSING IN
True as the second argument of the init:

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True  <<<<HERE


Then any openargs with a name matching a form property will be used to
set
that property.  That occurs in the private method of clsOpenArgs
called
ApplyFrmProperties, which is called from the Init() method.  We passed
in a
bunch of OpenArgs with names matching form properties:

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State
Data
Entry Form;LblText=My Data Entry Label;"

DataEntry
AllowEdits
AllowDeletions
Caption

The reason that they are used for setting properties is that we passed
in
the TRUE as the second param of the Init method, AND in that Init
method we
called the following function:

Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub

Remember that we passed in a pointer to the form itself to the Init
method,
so the class can manipulate the form if it wants to.

To really understand all this stuff, the best thing to do is simply
set
break points in the command buttons that open the form.  Then step
through
the code and watch it all unfold.  

I understand that the "set the form properties" thing gets in the way
of
understanding the OpenArgs class but it is a great example of actually
automatically using openargs, with NO further code on your part (the
user of
the class).  I wrote the class to do this "set the forms property" and
all
you have to do is use it.  In the frmState, as you initialize
clsOpenArgs,
say you are expecting some parameters to be sent in that will set form
properties.  The class takes care of the rest.  Back in your button
that
opens the form, set openarg names that match the form properties that
you
want to set, set the values that you want the properties set to, and
hang on
to your hat.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Monday, January 30, 2006 11:11 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Same form, different actions

OK John, as usual, you are making my brain hurt ;) Seriously, I have
downloaded your demo, and I am looking through your code, in the
clsOpenArgs
module. I think I actually understand some of it too. 

I guess the first thing that comes to mind is, does it work with
non-properties of forms? One of the things I want to do is tell the
form
where to go on close...actually, when the exit button is clicked. If
the
user goes there from the menu, it should return to the menu. However,
if the
user goes there, from anther form, it should return to that form, and
pass
the name with it.

I am going to try something, with your demo, to test this. Nope...just
did
this real quick, and it didn't work. Actually the whole thing pretty
much
quit working...what the heck did I do ;)

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


From DWUTKA at marlow.com  Mon Jan 30 12:39:24 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Mon, 30 Jan 2006 12:39:24 -0600
Subject: [AccessD] Email using SMTP
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD662@main2.marlow.com>

You can do it with just TCP/IP.  To do it without any 'components', you
would need to use API calls to do the TCP/IP stuff.  I've personally never
done that.  It doesn't look too difficult, but I've always just used the
Winsock control.  

Drew

-----Original Message-----
From: Barbara Ryan [mailto:BarbaraRyan at cox.net]
Sent: Monday, January 30, 2006 11:56 AM
To: Access List
Subject: [AccessD] Email using SMTP


I've found some SMTP components on the web that allow you to email directly
from Access using SMTP.

Does anyone know of any VBA code (e.g., using SMTP "commands") that I could
use WITHOUT using a component (as well as NOT using any electronic mail
application)

Thanks,
Barb Ryan
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From JHewson at karta.com  Mon Jan 30 13:01:00 2006
From: JHewson at karta.com (Jim Hewson)
Date: Mon, 30 Jan 2006 13:01:00 -0600
Subject: [AccessD] MDB won't compile
Message-ID: <9C382E065F54AE48BC3AA7925DCBB01C03BAF443@karta-exc-int.Karta.com>


Thanks all for replying.
Andy, I tried changing the dot to a bang - no success.
Rocky, I created a new MDB and imported all objects into it... still didn't  work.
Rusty, I rearranged the references but it didn't seem to matter, still wouldn't compile.
Randall, I changed "Me" to the form name as you suggested.  After a few replacements, it worked!
The odd thing is that the Me's that had the bang continues to work.
I was able to compile and make an MDE.
We are in the process of replacing this database so I'm not going to worry about it too much.

Thanks, again.

Jim 
jhewson at karta.com
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
Sent: Monday, January 30, 2006 9:52 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] MDB won't compile

Have a look, Jim, to see if in that module there are any Me. references to
controls which should really be Me! . I find Access sometimes objects like
this.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "AccessD" <AccessD at databaseadvisors.com>
Subject: [AccessD] MDB won't compile
Date: 30/01/06 14:59


A2K, inherited.

I changed the margins to a report in an MDB. That's the only change I
made.

Now the MDB won't compile. I've made minor changes before and created
MDE files without any problems.

When I try to compile, it stops at "Me.Refresh" with an error that
states the "Method or Data member is not found."

I've checked the references, decompiled, used JetComp, moved all objects
to a new container.

It still will not compile.

If I comment out the offending line, it gets stuck on "Recordset" then
"bookmark".



What else I can try?

Many thanks in advance.



Jim





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

________________________________________________
Message sent using UebiMiau 2.7.2

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


From developer at ultradnt.com  Mon Jan 30 13:24:03 2006
From: developer at ultradnt.com (Steve Conklin)
Date: Mon, 30 Jan 2006 14:24:03 -0500
Subject: [AccessD] Email using SMTP
In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD662@main2.marlow.com>
Message-ID: <200601301924.k0UJO6t09062@ultradnt.com>

Barbara: 
You can use CDO objects, with late-binding, to do email "component-free":
Hth,
Steve

'=================== Code:
Private Sub Command14_Click()
Dim objmessage
Set objmessage = CreateObject("CDO.Message")
objmessage.Subject = Me.txbSubj ' "Example CDO Message"
objmessage.From = "user at server.net"

objmessage.TextBody = Me.txbMsg ' "This is some sample message text."
'==This section provides the configuration information for the remote SMTP
server.
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"mail.server.net"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '
cdoBasic

'Your UserID on the SMTP server
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user"

'Your password on the SMTP server
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"

'Server port (typically 25)
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Use SSL for the connection (False or True)
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a
connection to the SMTP server)
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") =
60

objmessage.To = "someone at somewhere.com"
objmessage.Configuration.Fields.Update
objmessage.Send

End Sub



-----Original Message-----
From: Barbara Ryan [mailto:BarbaraRyan at cox.net]
Sent: Monday, January 30, 2006 11:56 AM
To: Access List
Subject: [AccessD] Email using SMTP


I've found some SMTP components on the web that allow you to email directly
from Access using SMTP.

Does anyone know of any VBA code (e.g., using SMTP "commands") that I could
use WITHOUT using a component (as well as NOT using any electronic mail
application)

Thanks,
Barb Ryan
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From Jdemarco at hudsonhealthplan.org  Mon Jan 30 13:25:37 2006
From: Jdemarco at hudsonhealthplan.org (Jim DeMarco)
Date: Mon, 30 Jan 2006 14:25:37 -0500
Subject: [AccessD] Requirement to install certain updates...
Message-ID: <08F823FD83787D4BA0B99CA580AD3C74016C449B@TTNEXCHCL2.hshhp.com>

... for future deployments of select Microsoft Office products

List,

We just got this from M$ Licensing.  Has anyone seen this yet?

=================================================
Background: It was recently decided in a court of law that certain portions of code found in Microsoft Office Professional Edition 2003, Microsoft Office Access 2003, Microsoft Office XP Professional and Microsoft Access 2002 infringe a third-party patent. As a result, Microsoft must make available a revised version of these products with the allegedly infringing code replaced.

Action required: As a result of the above ruling, you are required to: 
*	Install Microsoft Office 2003 Service Pack 2 (Office 2003 SP2) for all your future deployments of Office Professional Edition 2003 and Office Access 2003, 
*	Install the Microsoft Office XP Service Pack 3 Patch (Office XP SP3 Patch) for all your future deployments of Office XP Professional and Access 2002
Action requested: To keep your current systems in alignment with your future deployments of these products, Microsoft is requesting that you also update all your current Office Professional Edition 2003 and Office Access 2003 installations with Office 2003 SP2, and Office XP Professional and Access 2002 installations with the Office XP SP3 Patch.

How do I do this?: You can obtain both Office 2003 SP2 and the Office XP SP3 Patch by going to the website listed below and downloading it directly, or by contacting your reseller. 
===================================================

Jim DeMarco



***********************************************************************************
"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".
***********************************************************************************



From clh at christopherhawkins.com  Mon Jan 30 13:51:09 2006
From: clh at christopherhawkins.com (Christopher Hawkins)
Date: Mon, 30 Jan 2006 12:51:09 -0700
Subject: [AccessD] Bit OT: What is Access Written in?
Message-ID: <185f7497a2df40c3bcb0946674459549@christopherhawkins.com>

IIRC, Microsoft Office was done in MFC or ATL.  

-Christopher-

----------------------------------------
 From: "Heenan, Lambert" <Lambert.Heenan at aig.com>
Sent: Monday, January 30, 2006 7:44 AM
To: "'Access Developers discussion and problem solving'" <accessd at databaseadvisors.com>
Subject: Re: [AccessD] Bit OT: What is Access Written in? 

Definitely not C#, otherwise the box would tell you that you must have the
.NET framework installed. As others have said, probably C++ and assembler.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 7:37 PM
To: AccessD
Subject: [AccessD] Bit OT: What is Access Written in?

Is it C#?

Thanks

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




From clh at christopherhawkins.com  Mon Jan 30 13:56:53 2006
From: clh at christopherhawkins.com (Christopher Hawkins)
Date: Mon, 30 Jan 2006 12:56:53 -0700
Subject: [AccessD] Coming up for air...
Message-ID: <5b57b6a4ace1411ab11e2f128e75599a@christopherhawkins.com>

Hello, all!

It's been a while since I was very active on this list.  I check in from time to time, but the amount of Access work I do is so small now I rarely need to ask for answers, and rarely have time to give them.  I'm mostly doing ASP Classic/ASP.NET and SQL Server work these days.

I just wanted to pop up and say hello to all of you!  I've been subscribed for something like 5 years now, and it's always nice to skim the list and see the same names still asking questions, because that means you are all still gainfully employed!  ;)

As for me, my little consultancy has been humming right along.  I've got a team of 4 now and we're chasing after ever-bigger projects!  It was a rough start, especially for the first two years, but it looks like things are on the right track.

I'd love to hear how you've all been doing.  Feel free to sound off either on or offline!

 Respectfully,

Christopher Hawkins
Chief Developer
Cogeian Systems
(559) 687-7591
www.cogeian.com

 


From accessd at shaw.ca  Mon Jan 30 14:01:21 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Mon, 30 Jan 2006 12:01:21 -0800
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <39cb22f30601300630s2136bd50qbcf0dfae0c954b14@mail.gmail.com>
Message-ID: <001e01c625d7$f20fb5b0$017ba8c0@xpserver>

Pass-through queries have terrible performance especially if you are trying
to access dataset (recordsets).

Jim
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Erbach
Sent: January 30, 2006 6:31 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?

Jim,

Very interesting.  I noted that you and at least one other respondent
mentioned pass-through queries as good performance options.

What's puzzling to me, also, is a comment made to the article by
Warren ( here's the link: 
http://www.sqlservercentral.com/columnists/awarren/linkingaccesstosqlserver.
asp
):

"Performance can really suck, depending on the application and the
bandwidth. It has to do with the way data is cached in Access and
becomes very apparent if you have large tables (>100,000 rows).
However, it doesn't justify pass-through queries (obsolutely NOTHING
justifies pass-through queries). Views (in SQL server) are your
friend."

"NOTHING justifies pass-through queries."  I didn't challenge him on
that.  I should have, I suppose, but I know zip about pass-through
queries.  What's your view?
--
Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security
http://TheTownCrank.blogspot.com



On 1/30/06, Jim Dettman <jimdettman at earthlink.net> wrote:
> Steve,
>
>   Andy doesn't seem to know much about Access.  You should have read his
> last Access article, which I and a few others commented on.  Here's the
> link:
>
>
http://www.sqlservercentral.com/columnists/awarren/diggingintoaccessperforma
> nce.asp
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
> Sent: Monday, January 30, 2006 7:53 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Could somebody expand on this a little?
>
>
> Dear Group,
>
> I read a recent SQL Server Central article by a fellow named Andy
> Warren that dealt with connecting to a SQL Server database using an
> Access MDB/ODBC connection.  The article very nicely laid out the
> step-by-step process -- with screen shots -- to accomplish this.  What
> made me curious about the article was that the author never mentioned
> ADP's.
>
> So I joined the discussion forum for this topic and read a number of
> interesting replies pro and con for MDBs vs. ADPs, some that I'm
> unable, from only my own experience, to evaluate.
>
> Here's one of them.  The forum member started his message by saying
> that the article was good.  He went on to say:
>
> ~~~~~~~~~~~~~~~~~~~~~~~~
> "Two problems I've come across:
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From accessd at shaw.ca  Mon Jan 30 14:02:40 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Mon, 30 Jan 2006 12:02:40 -0800
Subject: [AccessD] Bit OT: What is Access Written in?
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1C7860B0@xlivmbx21.aig.com>
Message-ID: <001f01c625d8$1fdae280$017ba8c0@xpserver>

I concur; C# is too slow in comparison with C++.

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: January 30, 2006 6:44 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Bit OT: What is Access Written in?

Definitely not C#, otherwise the box would tell you that you must have the
.NET framework installed. As others have said, probably C++ and assembler.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 7:37 PM
To: AccessD
Subject: [AccessD] Bit OT: What is Access Written in?


Is it C#?
 
Thanks
 
DD
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From accessd at shaw.ca  Mon Jan 30 14:53:14 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Mon, 30 Jan 2006 12:53:14 -0800
Subject: [AccessD] Requirement to install certain updates...
In-Reply-To: <08F823FD83787D4BA0B99CA580AD3C74016C449B@TTNEXCHCL2.hshhp.com>
Message-ID: <002001c625df$30a6a480$017ba8c0@xpserver>

Jim:

Wouldn't it be as simple as going to MS update site:
http://www.microsoft.com/downloads/details.aspx?FamilyId=57E27A97-2DB6-4654-
9DB6-EC7D5B4DD867&displaylang=en

The problem relates around MS losing the court battle around Access being
able to access and post data to Excel. If you have code that interfaces with
Excel from Access the standard method it may be disable after installing SP2
or it may just replace the existing code with something else. I have not
heard one way or the other though comments from MS suggest that the current
methods will simply be disabled.

http://news.com.com/Patent+spat+forces+businesses+to+upgrade+Office/2100-101
4_3-6032870.html

There may be work-arounds but they will not be officially released until
Office12. 

I for one will have a number of systems that will be affected but am not
sure how or/and when. If anyone out there has ran across those issues, I
would love to hear about them.
 
Jim


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim DeMarco
Sent: January 30, 2006 11:26 AM
To: AccessD (E-mail)
Subject: [AccessD] Requirement to install certain updates...

... for future deployments of select Microsoft Office products

List,

We just got this from M$ Licensing.  Has anyone seen this yet?

=================================================
Background: It was recently decided in a court of law that certain portions
of code found in Microsoft Office Professional Edition 2003, Microsoft
Office Access 2003, Microsoft Office XP Professional and Microsoft Access
2002 infringe a third-party patent. As a result, Microsoft must make
available a revised version of these products with the allegedly infringing
code replaced.

Action required: As a result of the above ruling, you are required to: 
*	Install Microsoft Office 2003 Service Pack 2 (Office 2003 SP2) for
all your future deployments of Office Professional Edition 2003 and Office
Access 2003, 
*	Install the Microsoft Office XP Service Pack 3 Patch (Office XP SP3
Patch) for all your future deployments of Office XP Professional and Access
2002
Action requested: To keep your current systems in alignment with your future
deployments of these products, Microsoft is requesting that you also update
all your current Office Professional Edition 2003 and Office Access 2003
installations with Office 2003 SP2, and Office XP Professional and Access
2002 installations with the Office XP SP3 Patch.

How do I do this?: You can obtain both Office 2003 SP2 and the Office XP SP3
Patch by going to the website listed below and downloading it directly, or
by contacting your reseller. 
===================================================

Jim DeMarco



****************************************************************************
*******
"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".
****************************************************************************
*******

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



From martyconnelly at shaw.ca  Mon Jan 30 14:57:14 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 30 Jan 2006 12:57:14 -0800
Subject: [AccessD] Requirement to install certain updates...
References: <08F823FD83787D4BA0B99CA580AD3C74016C449B@TTNEXCHCL2.hshhp.com>
Message-ID: <43DE7DAA.8070908@shaw.ca>

I know this refers to the removal of the abilty to update linked excel 
files via automation.
I don't think MS supplies workaround code in the patches.
I am sort of amazed MS couldn't find any Prior Art on the patent.


Jim DeMarco wrote:

>... for future deployments of select Microsoft Office products
>
>List,
>
>We just got this from M$ Licensing.  Has anyone seen this yet?
>
>=================================================
>Background: It was recently decided in a court of law that certain portions of code found in Microsoft Office Professional Edition 2003, Microsoft Office Access 2003, Microsoft Office XP Professional and Microsoft Access 2002 infringe a third-party patent. As a result, Microsoft must make available a revised version of these products with the allegedly infringing code replaced.
>
>Action required: As a result of the above ruling, you are required to: 
>*	Install Microsoft Office 2003 Service Pack 2 (Office 2003 SP2) for all your future deployments of Office Professional Edition 2003 and Office Access 2003, 
>*	Install the Microsoft Office XP Service Pack 3 Patch (Office XP SP3 Patch) for all your future deployments of Office XP Professional and Access 2002
>Action requested: To keep your current systems in alignment with your future deployments of these products, Microsoft is requesting that you also update all your current Office Professional Edition 2003 and Office Access 2003 installations with Office 2003 SP2, and Office XP Professional and Access 2002 installations with the Office XP SP3 Patch.
>
>How do I do this?: You can obtain both Office 2003 SP2 and the Office XP SP3 Patch by going to the website listed below and downloading it directly, or by contacting your reseller. 
>===================================================
>
>Jim DeMarco
>
>
>
>***********************************************************************************
>"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".
>***********************************************************************************
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From martyconnelly at shaw.ca  Mon Jan 30 15:10:52 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 30 Jan 2006 13:10:52 -0800
Subject: [AccessD] Email using SMTP
References: <010d01c625c6$69664460$0d00a8c0@desktop>
Message-ID: <43DE80DC.10408@shaw.ca>

Here is another method of using CDO similar to Steves but doesn't 
require a userid password.
Requires WinXP or Win2000
This method may only work inside a domain ie you have a online node via 
a cable modem
but not on a dial up.


'The example code is using CDOSYS (CDO for Windows 2000 or XP).
'I dont think I would want to go back to CDONTS for earlier systems
'It does not depend on MAPI or CDO or Outlook
'It does not use your mailbox to send email.
' So you can send mail without a mail program or mail account
' This code builds the message and drops it into a pickup directory,
' and the SMTP service running on the machine
' picks it up and send it out to the internet.

'So why use CDO code instead of Outlook automation or 
Application.SendMail in VBA.
' It doesn't matter what Mail program you are using (It uses the SMTP 
server).
' It doesn't matter what Office version you are using.
' supposedly you can send an object or file in the body of the mail 
(some mail programs cant do this)
' haven't verified this
' You can send any file attachment you like.
' No Outlook Security warning so no need for Redemption

' You probably wont have your mail server full expanded smtp address
'If you go into netscape mail or outlook and look for the smtp name
'It will look like mine, "shawmail" or "shawnews" this dns resolves
'to "shawmail.cg.shawcable.net" CDO doesn't resolve this short name so
'The quickest way to get this actual address without using registry et al.
'is run cmd and ping "shawmail" to return full qualified smtp address.
'This code wont run exactly unless you are on cable and signed on in the 
Shaw domain

Sub SendCDO()
' This example use late binding of CDOSys, you don't have to set a reference
' You must be online to net when you run the sub
' You must be running WinXP or Win2000
Dim cdoMessage As Object
Dim objCDOMail As Object
Dim strschema As String
On Error GoTo ErrorHandler ' Enable error-handling routine.
'
Set cdoMessage = CreateObject("CDO.Message")
Set objCDOMail = CreateObject("CDO.Configuration")
strschema = "http://schemas.microsoft.com/cdo/configuration/"
objCDOMail.Load -1 ' CDO Source Default
'If you have illegal or wrong smtp address here it will run for 30-60 
seconds and finally give transport error
With objCDOMail.Fields
.Item(strschema & "sendusing") = 2 ' cdoSendUsingPort
.Item(strschema & "smtpserver") = "shawmail.cg.shawcable.net" ' "Your 
SMTP server address here"
.Item(strschema & "smtpserverport") = 25 'specify port number
.Update
End With

With cdoMessage
Set .Configuration = objCDOMail
.to = "martyconnelly at gmail.com"
.From = "Winnie The Pooh <martyconnelly at shaw.ca>"
.CC = ""
.BCC = ""
.Subject = "This is another test from marty"
.TextBody = "This is the text in the body just cdo defaults"
.AddAttachment "C:\temp2\rptSampleCount.rtf"
.AddAttachment "C:\temp2\frontimage.jpeg"
.send
End With

Set cdoMessage = Nothing
Set objCDOMail = Nothing
Exit Sub ' Exit to avoid handler.
ErrorHandler: ' Error-handling routine.
Debug.Print Err.Number & "-" & Err.Description
Set cdoMessage = Nothing
Set objCDOMail = Nothing
Exit Sub
End Sub



Barbara Ryan wrote:

>I've found some SMTP components on the web that allow you to email directly from Access using SMTP.
>
>Does anyone know of any VBA code (e.g., using SMTP "commands") that I could use WITHOUT using a component (as well as NOT using any electronic mail application)
>
>Thanks,
>Barb Ryan
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From BarbaraRyan at cox.net  Mon Jan 30 15:20:30 2006
From: BarbaraRyan at cox.net (Barbara Ryan)
Date: Mon, 30 Jan 2006 16:20:30 -0500
Subject: [AccessD] Email using SMTP
References: <010d01c625c6$69664460$0d00a8c0@desktop> <43DE80DC.10408@shaw.ca>
Message-ID: <017701c625e2$ff8cec20$0d00a8c0@desktop>

Thanks, Steve and Marty....  It's nice to know that I have several options.
I learn something new every day......Barb


----- Original Message ----- 
From: "MartyConnelly" <martyconnelly at shaw.ca>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Monday, January 30, 2006 4:10 PM
Subject: Re: [AccessD] Email using SMTP


> Here is another method of using CDO similar to Steves but doesn't
> require a userid password.
> Requires WinXP or Win2000
> This method may only work inside a domain ie you have a online node via
> a cable modem
> but not on a dial up.
>
>
> 'The example code is using CDOSYS (CDO for Windows 2000 or XP).
> 'I dont think I would want to go back to CDONTS for earlier systems
> 'It does not depend on MAPI or CDO or Outlook
> 'It does not use your mailbox to send email.
> ' So you can send mail without a mail program or mail account
> ' This code builds the message and drops it into a pickup directory,
> ' and the SMTP service running on the machine
> ' picks it up and send it out to the internet.
>
> 'So why use CDO code instead of Outlook automation or
> Application.SendMail in VBA.
> ' It doesn't matter what Mail program you are using (It uses the SMTP
> server).
> ' It doesn't matter what Office version you are using.
> ' supposedly you can send an object or file in the body of the mail
> (some mail programs cant do this)
> ' haven't verified this
> ' You can send any file attachment you like.
> ' No Outlook Security warning so no need for Redemption
>
> ' You probably wont have your mail server full expanded smtp address
> 'If you go into netscape mail or outlook and look for the smtp name
> 'It will look like mine, "shawmail" or "shawnews" this dns resolves
> 'to "shawmail.cg.shawcable.net" CDO doesn't resolve this short name so
> 'The quickest way to get this actual address without using registry et al.
> 'is run cmd and ping "shawmail" to return full qualified smtp address.
> 'This code wont run exactly unless you are on cable and signed on in the
> Shaw domain
>
> Sub SendCDO()
> ' This example use late binding of CDOSys, you don't have to set a
reference
> ' You must be online to net when you run the sub
> ' You must be running WinXP or Win2000
> Dim cdoMessage As Object
> Dim objCDOMail As Object
> Dim strschema As String
> On Error GoTo ErrorHandler ' Enable error-handling routine.
> '
> Set cdoMessage = CreateObject("CDO.Message")
> Set objCDOMail = CreateObject("CDO.Configuration")
> strschema = "http://schemas.microsoft.com/cdo/configuration/"
> objCDOMail.Load -1 ' CDO Source Default
> 'If you have illegal or wrong smtp address here it will run for 30-60
> seconds and finally give transport error
> With objCDOMail.Fields
> .Item(strschema & "sendusing") = 2 ' cdoSendUsingPort
> .Item(strschema & "smtpserver") = "shawmail.cg.shawcable.net" ' "Your
> SMTP server address here"
> .Item(strschema & "smtpserverport") = 25 'specify port number
> .Update
> End With
>
> With cdoMessage
> Set .Configuration = objCDOMail
> .to = "martyconnelly at gmail.com"
> .From = "Winnie The Pooh <martyconnelly at shaw.ca>"
> .CC = ""
> .BCC = ""
> .Subject = "This is another test from marty"
> .TextBody = "This is the text in the body just cdo defaults"
> .AddAttachment "C:\temp2\rptSampleCount.rtf"
> .AddAttachment "C:\temp2\frontimage.jpeg"
> .send
> End With
>
> Set cdoMessage = Nothing
> Set objCDOMail = Nothing
> Exit Sub ' Exit to avoid handler.
> ErrorHandler: ' Error-handling routine.
> Debug.Print Err.Number & "-" & Err.Description
> Set cdoMessage = Nothing
> Set objCDOMail = Nothing
> Exit Sub
> End Sub
>
>
>
> Barbara Ryan wrote:
>
> >I've found some SMTP components on the web that allow you to email
directly from Access using SMTP.
> >
> >Does anyone know of any VBA code (e.g., using SMTP "commands") that I
could use WITHOUT using a component (as well as NOT using any electronic
mail application)
> >
> >Thanks,
> >Barb Ryan
> >
> >
>
> -- 
> Marty Connelly
> Victoria, B.C.
> Canada
>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>



From andy at minstersystems.co.uk  Mon Jan 30 16:36:25 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Mon, 30 Jan 2006 22:36:25 -0000
Subject: [AccessD] Coming up for air...
In-Reply-To: <5b57b6a4ace1411ab11e2f128e75599a@christopherhawkins.com>
Message-ID: <000601c625ed$9bd2acf0$32980c54@minster33c3r25>

Congratulations and glad to hear things are going well Christopher.

-- Andy Lacey
http://www.minstersystems.co.uk


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Christopher Hawkins
> Sent: 30 January 2006 19:57
> To: accessd at databaseadvisors.com
> Subject: [AccessD] Coming up for air...
> 
> 
> Hello, all!
> 
> It's been a while since I was very active on this list.  I 
> check in from time to time, but the amount of Access work I 
> do is so small now I rarely need to ask for answers, and 
> rarely have time to give them.  I'm mostly doing ASP 
> Classic/ASP.NET and SQL Server work these days.
> 
> I just wanted to pop up and say hello to all of you!  I've 
> been subscribed for something like 5 years now, and it's 
> always nice to skim the list and see the same names still 
> asking questions, because that means you are all still 
> gainfully employed!  ;)
> 
> As for me, my little consultancy has been humming right 
> along.  I've got a team of 4 now and we're chasing after 
> ever-bigger projects!  It was a rough start, especially for 
> the first two years, but it looks like things are on the right track.
> 
> I'd love to hear how you've all been doing.  Feel free to 
> sound off either on or offline!
> 
>  Respectfully,
> 
> Christopher Hawkins
> Chief Developer
> Cogeian Systems
> (559) 687-7591
> www.cogeian.com
> 
>  
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From martyconnelly at shaw.ca  Mon Jan 30 17:23:03 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 30 Jan 2006 15:23:03 -0800
Subject: [AccessD] Requirement to install certain updates...
References: <002001c625df$30a6a480$017ba8c0@xpserver>
Message-ID: <43DE9FD7.2020009@shaw.ca>

You could try here.
Also shows how certain remote queries become read only;
affected after latest Access XP and 2003 SP's applied
like
SELECT [Companies$].*, * FROM [Companies$] IN 'c:\tmp\excel_be.xls 
'[Excel 8.0;];

http://www.vb123.com/toolshed/news/issue61.htm


Jim Lawrence wrote:

>Jim:
>
>Wouldn't it be as simple as going to MS update site:
>http://www.microsoft.com/downloads/details.aspx?FamilyId=57E27A97-2DB6-4654-
>9DB6-EC7D5B4DD867&displaylang=en
>
>The problem relates around MS losing the court battle around Access being
>able to access and post data to Excel. If you have code that interfaces with
>Excel from Access the standard method it may be disable after installing SP2
>or it may just replace the existing code with something else. I have not
>heard one way or the other though comments from MS suggest that the current
>methods will simply be disabled.
>
>http://news.com.com/Patent+spat+forces+businesses+to+upgrade+Office/2100-101
>4_3-6032870.html
>
>There may be work-arounds but they will not be officially released until
>Office12. 
>
>I for one will have a number of systems that will be affected but am not
>sure how or/and when. If anyone out there has ran across those issues, I
>would love to hear about them.
> 
>Jim
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim DeMarco
>Sent: January 30, 2006 11:26 AM
>To: AccessD (E-mail)
>Subject: [AccessD] Requirement to install certain updates...
>
>... for future deployments of select Microsoft Office products
>
>List,
>
>We just got this from M$ Licensing.  Has anyone seen this yet?
>
>=================================================
>Background: It was recently decided in a court of law that certain portions
>of code found in Microsoft Office Professional Edition 2003, Microsoft
>Office Access 2003, Microsoft Office XP Professional and Microsoft Access
>2002 infringe a third-party patent. As a result, Microsoft must make
>available a revised version of these products with the allegedly infringing
>code replaced.
>
>Action required: As a result of the above ruling, you are required to: 
>*	Install Microsoft Office 2003 Service Pack 2 (Office 2003 SP2) for
>all your future deployments of Office Professional Edition 2003 and Office
>Access 2003, 
>*	Install the Microsoft Office XP Service Pack 3 Patch (Office XP SP3
>Patch) for all your future deployments of Office XP Professional and Access
>2002
>Action requested: To keep your current systems in alignment with your future
>deployments of these products, Microsoft is requesting that you also update
>all your current Office Professional Edition 2003 and Office Access 2003
>installations with Office 2003 SP2, and Office XP Professional and Access
>2002 installations with the Office XP SP3 Patch.
>
>How do I do this?: You can obtain both Office 2003 SP2 and the Office XP SP3
>Patch by going to the website listed below and downloading it directly, or
>by contacting your reseller. 
>===================================================
>
>Jim DeMarco
>
>
>
>****************************************************************************
>*******
>"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".
>****************************************************************************
>*******
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From fhtapia at gmail.com  Mon Jan 30 17:44:02 2006
From: fhtapia at gmail.com (Francisco Tapia)
Date: Mon, 30 Jan 2006 15:44:02 -0800
Subject: [AccessD] vb script
Message-ID: <b874372a0601301544p751b55deud3256943ff02891@mail.gmail.com>

I have a text file with unicode characters... when I open it up in notepad i
can read these characters just fine, I am running a vbscript script over it
and I noticed that when It feeds the string into a variable it just uses
some other wierd characters instead example:


         Set docString = file.OpenAsTextStream(ForReading,
TristateUseDefault)
         txtString = docString.ReadAll


the result string is:
Spindeloption liefert ein h??heres Drehmoment im h??heren

but the source text document shows the following string

Spindeloption liefert ein h?heres Drehmoment im h?heren

This is being ran from a vbscript... anybody have any idea as to why?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...


From darrend at nimble.com.au  Mon Jan 30 18:03:37 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Tue, 31 Jan 2006 11:03:37 +1100
Subject: [AccessD] BIT OT:Report Services User Group
Message-ID: <20060131000344.KNCC17345.omta04ps.mx.bigpond.com@DENZILLAP>

Hi All - Cross Posted to dba-SQL
Bit OT
Anyone know a good Reporting Services user group?
 
Many thanks
 
Darren

-----------------------------

 


From accessd at shaw.ca  Mon Jan 30 18:24:16 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Mon, 30 Jan 2006 16:24:16 -0800
Subject: [AccessD] Requirement to install certain updates...
In-Reply-To: <43DE9FD7.2020009@shaw.ca>
Message-ID: <000f01c625fc$ab7bc740$017ba8c0@xpserver>

Marty:

Upon further research it seems that most of the clients should be unaffected
as I use a different technique to access spreadsheets from Access... still
have not confirmed this yet but will take a wait and see attitude.

I did find a potential issue that may have caused a problem for a specific
client but found the following code, uncovered by Gary Robinson, resolving a
Word Mail Merge problem and I hope this may help someone else:
(http://www.vb123.com/toolshed/news/issue61.htm)

<quote>
... Copious searching and debugging revealed the problem to be here:

With  .ActiveDocument.MailMerge
  	.Destination = wdSendToNewDocument
  	.SuppressBlankLines = True
  	With 	.DataSource
    		.FirstRecord = wdDefaultFirstRecord
    		.LastRecord = wdDefaultLastRecord
  	End With
  	.Execute Pause:=False
End With

and the fix to be this:

With 	.ActiveDocument.MailMerge
  	.OpenDataSource Name:="c:\path to mdb", _
  		LinkToSource:=True, AddToRecentFiles:=False, _
  		Connection:="table certaward", _
  		SQLStatement:="SELECT * FROM `table or query`"
  	.Destination = wdSendToNewDocument
  	.SuppressBlankLines = True
  	With 	.DataSource
    		.FirstRecord = wdDefaultFirstRecord
    		.LastRecord = wdDefaultLastRecord
  	End With
  	.Execute Pause:=False
End With

I have experts exchange to thank for the solution....from this thread:

http://www.experts-exchange.com/Applications/MS_Office/Q_20629652.html
</quote>

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: January 30, 2006 3:23 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Requirement to install certain updates...

You could try here.
Also shows how certain remote queries become read only;
affected after latest Access XP and 2003 SP's applied
like
SELECT [Companies$].*, * FROM [Companies$] IN 'c:\tmp\excel_be.xls 
'[Excel 8.0;];

http://www.vb123.com/toolshed/news/issue61.htm


Jim Lawrence wrote:

>Jim:
>
>Wouldn't it be as simple as going to MS update site:
>http://www.microsoft.com/downloads/details.aspx?FamilyId=57E27A97-2DB6-4654
-
>9DB6-EC7D5B4DD867&displaylang=en
>
>The problem relates around MS losing the court battle around Access being
>able to access and post data to Excel. If you have code that interfaces
with
>Excel from Access the standard method it may be disable after installing
SP2
>or it may just replace the existing code with something else. I have not
>heard one way or the other though comments from MS suggest that the current
>methods will simply be disabled.
>
>http://news.com.com/Patent+spat+forces+businesses+to+upgrade+Office/2100-10
1
>4_3-6032870.html
>
>There may be work-arounds but they will not be officially released until
>Office12. 
>
>I for one will have a number of systems that will be affected but am not
>sure how or/and when. If anyone out there has ran across those issues, I
>would love to hear about them.
> 
>Jim
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim DeMarco
>Sent: January 30, 2006 11:26 AM
>To: AccessD (E-mail)
>Subject: [AccessD] Requirement to install certain updates...
>
>... for future deployments of select Microsoft Office products
>
>List,
>
>We just got this from M$ Licensing.  Has anyone seen this yet?
>
>=================================================
>Background: It was recently decided in a court of law that certain portions
>of code found in Microsoft Office Professional Edition 2003, Microsoft
>Office Access 2003, Microsoft Office XP Professional and Microsoft Access
>2002 infringe a third-party patent. As a result, Microsoft must make
>available a revised version of these products with the allegedly infringing
>code replaced.
>
>Action required: As a result of the above ruling, you are required to: 
>*	Install Microsoft Office 2003 Service Pack 2 (Office 2003 SP2) for
>all your future deployments of Office Professional Edition 2003 and Office
>Access 2003, 
>*	Install the Microsoft Office XP Service Pack 3 Patch (Office XP SP3
>Patch) for all your future deployments of Office XP Professional and Access
>2002
>Action requested: To keep your current systems in alignment with your
future
>deployments of these products, Microsoft is requesting that you also update
>all your current Office Professional Edition 2003 and Office Access 2003
>installations with Office 2003 SP2, and Office XP Professional and Access
>2002 installations with the Office XP SP3 Patch.
>
>How do I do this?: You can obtain both Office 2003 SP2 and the Office XP
SP3
>Patch by going to the website listed below and downloading it directly, or
>by contacting your reseller. 
>===================================================
>
>Jim DeMarco
>
>
>
>***************************************************************************
*
>*******
>"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".
>***************************************************************************
*
>*******
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada



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



From martyconnelly at shaw.ca  Mon Jan 30 23:19:48 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 30 Jan 2006 21:19:48 -0800
Subject: [AccessD] Email using SMTP
References: <010d01c625c6$69664460$0d00a8c0@desktop> <43DE80DC.10408@shaw.ca>
	<017701c625e2$ff8cec20$0d00a8c0@desktop>
Message-ID: <43DEF374.7010807@shaw.ca>

Now if you wanted to get really fancy;)
Here is how to execute a vbs script with CDO that sends an email but it 
is executed from within an SQL Stored Procedure
that you could call from Access

http://www.sqlservercentral.com/columnists/aloera/sqlserverscriptingandwmi.asp

Barbara Ryan wrote:

>Thanks, Steve and Marty....  It's nice to know that I have several options.
>I learn something new every day......Barb
>
>
>----- Original Message ----- 
>From: "MartyConnelly" <martyconnelly at shaw.ca>
>To: "Access Developers discussion and problem solving"
><accessd at databaseadvisors.com>
>Sent: Monday, January 30, 2006 4:10 PM
>Subject: Re: [AccessD] Email using SMTP
>
>
>  
>
>>Here is another method of using CDO similar to Steves but doesn't
>>require a userid password.
>>Requires WinXP or Win2000
>>This method may only work inside a domain ie you have a online node via
>>a cable modem
>>but not on a dial up.
>>
>>
>>'The example code is using CDOSYS (CDO for Windows 2000 or XP).
>>'I dont think I would want to go back to CDONTS for earlier systems
>>'It does not depend on MAPI or CDO or Outlook
>>'It does not use your mailbox to send email.
>>' So you can send mail without a mail program or mail account
>>' This code builds the message and drops it into a pickup directory,
>>' and the SMTP service running on the machine
>>' picks it up and send it out to the internet.
>>
>>'So why use CDO code instead of Outlook automation or
>>Application.SendMail in VBA.
>>' It doesn't matter what Mail program you are using (It uses the SMTP
>>server).
>>' It doesn't matter what Office version you are using.
>>' supposedly you can send an object or file in the body of the mail
>>(some mail programs cant do this)
>>' haven't verified this
>>' You can send any file attachment you like.
>>' No Outlook Security warning so no need for Redemption
>>
>>' You probably wont have your mail server full expanded smtp address
>>'If you go into netscape mail or outlook and look for the smtp name
>>'It will look like mine, "shawmail" or "shawnews" this dns resolves
>>'to "shawmail.cg.shawcable.net" CDO doesn't resolve this short name so
>>'The quickest way to get this actual address without using registry et al.
>>'is run cmd and ping "shawmail" to return full qualified smtp address.
>>'This code wont run exactly unless you are on cable and signed on in the
>>Shaw domain
>>
>>Sub SendCDO()
>>' This example use late binding of CDOSys, you don't have to set a
>>    
>>
>reference
>  
>
>>' You must be online to net when you run the sub
>>' You must be running WinXP or Win2000
>>Dim cdoMessage As Object
>>Dim objCDOMail As Object
>>Dim strschema As String
>>On Error GoTo ErrorHandler ' Enable error-handling routine.
>>'
>>Set cdoMessage = CreateObject("CDO.Message")
>>Set objCDOMail = CreateObject("CDO.Configuration")
>>strschema = "http://schemas.microsoft.com/cdo/configuration/"
>>objCDOMail.Load -1 ' CDO Source Default
>>'If you have illegal or wrong smtp address here it will run for 30-60
>>seconds and finally give transport error
>>With objCDOMail.Fields
>>.Item(strschema & "sendusing") = 2 ' cdoSendUsingPort
>>.Item(strschema & "smtpserver") = "shawmail.cg.shawcable.net" ' "Your
>>SMTP server address here"
>>.Item(strschema & "smtpserverport") = 25 'specify port number
>>.Update
>>End With
>>
>>With cdoMessage
>>Set .Configuration = objCDOMail
>>.to = "martyconnelly at gmail.com"
>>.From = "Winnie The Pooh <martyconnelly at shaw.ca>"
>>.CC = ""
>>.BCC = ""
>>.Subject = "This is another test from marty"
>>.TextBody = "This is the text in the body just cdo defaults"
>>.AddAttachment "C:\temp2\rptSampleCount.rtf"
>>.AddAttachment "C:\temp2\frontimage.jpeg"
>>.send
>>End With
>>
>>Set cdoMessage = Nothing
>>Set objCDOMail = Nothing
>>Exit Sub ' Exit to avoid handler.
>>ErrorHandler: ' Error-handling routine.
>>Debug.Print Err.Number & "-" & Err.Description
>>Set cdoMessage = Nothing
>>Set objCDOMail = Nothing
>>Exit Sub
>>End Sub
>>
>>
>>
>>Barbara Ryan wrote:
>>
>>    
>>
>>>I've found some SMTP components on the web that allow you to email
>>>      
>>>
>directly from Access using SMTP.
>  
>
>>>Does anyone know of any VBA code (e.g., using SMTP "commands") that I
>>>      
>>>
>could use WITHOUT using a component (as well as NOT using any electronic
>mail application)
>  
>
>>>Thanks,
>>>Barb Ryan
>>>
>>>
>>>      
>>>
>>-- 
>>Marty Connelly
>>Victoria, B.C.
>>Canada
>>
>>
>>    
>>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From accessd at shaw.ca  Tue Jan 31 00:17:50 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Mon, 30 Jan 2006 22:17:50 -0800
Subject: [AccessD] Email using SMTP
In-Reply-To: <43DEF374.7010807@shaw.ca>
Message-ID: <000501c6262e$104f9580$017ba8c0@xpserver>

Marty:

Now that is very interesting... :-)

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: January 30, 2006 9:20 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Email using SMTP

Now if you wanted to get really fancy;)
Here is how to execute a vbs script with CDO that sends an email but it 
is executed from within an SQL Stored Procedure
that you could call from Access

http://www.sqlservercentral.com/columnists/aloera/sqlserverscriptingandwmi.a
sp

Barbara Ryan wrote:

>Thanks, Steve and Marty....  It's nice to know that I have several options.
>I learn something new every day......Barb
>
>
>----- Original Message ----- 
>From: "MartyConnelly" <martyconnelly at shaw.ca>
>To: "Access Developers discussion and problem solving"
><accessd at databaseadvisors.com>
>Sent: Monday, January 30, 2006 4:10 PM
>Subject: Re: [AccessD] Email using SMTP
>
>
>  
>
>>Here is another method of using CDO similar to Steves but doesn't
>>require a userid password.
>>Requires WinXP or Win2000
>>This method may only work inside a domain ie you have a online node via
>>a cable modem
>>but not on a dial up.
>>
>>
>>'The example code is using CDOSYS (CDO for Windows 2000 or XP).
>>'I dont think I would want to go back to CDONTS for earlier systems
>>'It does not depend on MAPI or CDO or Outlook
>>'It does not use your mailbox to send email.
>>' So you can send mail without a mail program or mail account
>>' This code builds the message and drops it into a pickup directory,
>>' and the SMTP service running on the machine
>>' picks it up and send it out to the internet.
>>
>>'So why use CDO code instead of Outlook automation or
>>Application.SendMail in VBA.
>>' It doesn't matter what Mail program you are using (It uses the SMTP
>>server).
>>' It doesn't matter what Office version you are using.
>>' supposedly you can send an object or file in the body of the mail
>>(some mail programs cant do this)
>>' haven't verified this
>>' You can send any file attachment you like.
>>' No Outlook Security warning so no need for Redemption
>>
>>' You probably wont have your mail server full expanded smtp address
>>'If you go into netscape mail or outlook and look for the smtp name
>>'It will look like mine, "shawmail" or "shawnews" this dns resolves
>>'to "shawmail.cg.shawcable.net" CDO doesn't resolve this short name so
>>'The quickest way to get this actual address without using registry et al.
>>'is run cmd and ping "shawmail" to return full qualified smtp address.
>>'This code wont run exactly unless you are on cable and signed on in the
>>Shaw domain
>>
>>Sub SendCDO()
>>' This example use late binding of CDOSys, you don't have to set a
>>    
>>
>reference
>  
>
>>' You must be online to net when you run the sub
>>' You must be running WinXP or Win2000
>>Dim cdoMessage As Object
>>Dim objCDOMail As Object
>>Dim strschema As String
>>On Error GoTo ErrorHandler ' Enable error-handling routine.
>>'
>>Set cdoMessage = CreateObject("CDO.Message")
>>Set objCDOMail = CreateObject("CDO.Configuration")
>>strschema = "http://schemas.microsoft.com/cdo/configuration/"
>>objCDOMail.Load -1 ' CDO Source Default
>>'If you have illegal or wrong smtp address here it will run for 30-60
>>seconds and finally give transport error
>>With objCDOMail.Fields
>>.Item(strschema & "sendusing") = 2 ' cdoSendUsingPort
>>.Item(strschema & "smtpserver") = "shawmail.cg.shawcable.net" ' "Your
>>SMTP server address here"
>>.Item(strschema & "smtpserverport") = 25 'specify port number
>>.Update
>>End With
>>
>>With cdoMessage
>>Set .Configuration = objCDOMail
>>.to = "martyconnelly at gmail.com"
>>.From = "Winnie The Pooh <martyconnelly at shaw.ca>"
>>.CC = ""
>>.BCC = ""
>>.Subject = "This is another test from marty"
>>.TextBody = "This is the text in the body just cdo defaults"
>>.AddAttachment "C:\temp2\rptSampleCount.rtf"
>>.AddAttachment "C:\temp2\frontimage.jpeg"
>>.send
>>End With
>>
>>Set cdoMessage = Nothing
>>Set objCDOMail = Nothing
>>Exit Sub ' Exit to avoid handler.
>>ErrorHandler: ' Error-handling routine.
>>Debug.Print Err.Number & "-" & Err.Description
>>Set cdoMessage = Nothing
>>Set objCDOMail = Nothing
>>Exit Sub
>>End Sub
>>
>>
>>
>>Barbara Ryan wrote:
>>
>>    
>>
>>>I've found some SMTP components on the web that allow you to email
>>>      
>>>
>directly from Access using SMTP.
>  
>
>>>Does anyone know of any VBA code (e.g., using SMTP "commands") that I
>>>      
>>>
>could use WITHOUT using a component (as well as NOT using any electronic
>mail application)
>  
>
>>>Thanks,
>>>Barb Ryan
>>>
>>>
>>>      
>>>
>>-- 
>>Marty Connelly
>>Victoria, B.C.
>>Canada
>>
>>
>>    
>>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada



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



From Gustav at cactus.dk  Tue Jan 31 06:36:57 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 31 Jan 2006 13:36:57 +0100
Subject: [AccessD] IBM DB2 Express-C free to use
Message-ID: <s3df6803.052@cactus.dk>

Hi all

Did you notice that IBM finally has an Express offering completely free:

  http://www.ibm.com/db2/express/

It's a 373MB zip download.
Note the FAQ link.

It features unlimited database size and is only limited to 4GB ram and dual processor.
Runs on 32/64 bit, Linux or Windows.

By the way, do we have any DB2 gurus among us?

/gustav



From erbachs at gmail.com  Tue Jan 31 06:38:17 2006
From: erbachs at gmail.com (Steve Erbach)
Date: Tue, 31 Jan 2006 06:38:17 -0600
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <001e01c625d7$f20fb5b0$017ba8c0@xpserver>
References: <39cb22f30601300630s2136bd50qbcf0dfae0c954b14@mail.gmail.com>
	<001e01c625d7$f20fb5b0$017ba8c0@xpserver>
Message-ID: <39cb22f30601310438i696d6853od34b69ebc23dfc44@mail.gmail.com>

Jim,

Thank you.  I've never used them.

Steve Erbach

On 1/30/06, Jim Lawrence <accessd at shaw.ca> wrote:
> Pass-through queries have terrible performance especially if you are trying
> to access dataset (recordsets).
>
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Erbach
> Sent: January 30, 2006 6:31 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Could somebody expand on this a little?
>
> Jim,
>
> Very interesting.  I noted that you and at least one other respondent
> mentioned pass-through queries as good performance options.
>
> What's puzzling to me, also, is a comment made to the article by
> Warren ( here's the link:
> http://www.sqlservercentral.com/columnists/awarren/linkingaccesstosqlserver.
> asp
> ):
>
> "Performance can really suck, depending on the application and the
> bandwidth. It has to do with the way data is cached in Access and
> becomes very apparent if you have large tables (>100,000 rows).
> However, it doesn't justify pass-through queries (obsolutely NOTHING
> justifies pass-through queries). Views (in SQL server) are your
> friend."
>
> "NOTHING justifies pass-through queries."  I didn't challenge him on
> that.  I should have, I suppose, but I know zip about pass-through
> queries.  What's your view?
> --
> Regards,
>
> Steve Erbach


From John.Clark at niagaracounty.com  Tue Jan 31 07:04:40 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Tue, 31 Jan 2006 08:04:40 -0500
Subject: [AccessD] Coming up for air...
Message-ID: <s3df1a1d.044@nebnov3.niagaracounty.com>

Hey, I just checked out your website...how did you get Bill Cosby and
Annie Lennox to pose for your site?! ;)

>>> clh at christopherhawkins.com 1/30/2006 2:56 PM >>>
Hello, all!

It's been a while since I was very active on this list.  I check in
from time to time, but the amount of Access work I do is so small now I
rarely need to ask for answers, and rarely have time to give them.  I'm
mostly doing ASP Classic/ASP.NET and SQL Server work these days.

I just wanted to pop up and say hello to all of you!  I've been
subscribed for something like 5 years now, and it's always nice to skim
the list and see the same names still asking questions, because that
means you are all still gainfully employed!  ;)

As for me, my little consultancy has been humming right along.  I've
got a team of 4 now and we're chasing after ever-bigger projects!  It
was a rough start, especially for the first two years, but it looks like
things are on the right track.

I'd love to hear how you've all been doing.  Feel free to sound off
either on or offline!

 Respectfully,

Christopher Hawkins
Chief Developer
Cogeian Systems
(559) 687-7591
www.cogeian.com 

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


From accessd at shaw.ca  Tue Jan 31 07:31:23 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Tue, 31 Jan 2006 05:31:23 -0800
Subject: [AccessD] IBM DB2 Express-C free to use
In-Reply-To: <s3df6803.052@cactus.dk>
Message-ID: <000401c6266a$a1931e40$017ba8c0@xpserver>

Gustav:

I have been looking at it and it is the only free offered DB that is not
timed, stripped or reduced dramatically.

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: January 31, 2006 4:37 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] IBM DB2 Express-C free to use

Hi all

Did you notice that IBM finally has an Express offering completely free:

  http://www.ibm.com/db2/express/

It's a 373MB zip download.
Note the FAQ link.

It features unlimited database size and is only limited to 4GB ram and dual
processor.
Runs on 32/64 bit, Linux or Windows.

By the way, do we have any DB2 gurus among us?

/gustav

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



From Erwin.Craps at ithelps.be  Tue Jan 31 07:35:09 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Tue, 31 Jan 2006 14:35:09 +0100
Subject: [AccessD] Coming up for air...
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B630B@stekelbes.ithelps.local>

They look like the real stuff to me :-) 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Tuesday, January 31, 2006 2:05 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Coming up for air...

Hey, I just checked out your website...how did you get Bill Cosby and
Annie Lennox to pose for your site?! ;)

>>> clh at christopherhawkins.com 1/30/2006 2:56 PM >>>
Hello, all!

It's been a while since I was very active on this list.  I check in from
time to time, but the amount of Access work I do is so small now I
rarely need to ask for answers, and rarely have time to give them.  I'm
mostly doing ASP Classic/ASP.NET and SQL Server work these days.

I just wanted to pop up and say hello to all of you!  I've been
subscribed for something like 5 years now, and it's always nice to skim
the list and see the same names still asking questions, because that
means you are all still gainfully employed!  ;)

As for me, my little consultancy has been humming right along.  I've got
a team of 4 now and we're chasing after ever-bigger projects!  It was a
rough start, especially for the first two years, but it looks like
things are on the right track.

I'd love to hear how you've all been doing.  Feel free to sound off
either on or offline!

 Respectfully,

Christopher Hawkins
Chief Developer
Cogeian Systems
(559) 687-7591
www.cogeian.com 

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


From jimdettman at earthlink.net  Tue Jan 31 07:51:16 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Tue, 31 Jan 2006 08:51:16 -0500
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <39cb22f30601310438i696d6853od34b69ebc23dfc44@mail.gmail.com>
Message-ID: <NDEALJOEGMMPCDKIFGNFKEABIGAA.jimdettman@earthlink.net>



  I don't totally agree with Jim's statement.  Again, you need to be
specific with what your trying to do and understand what's going on.

  A pass-through query executes entirely on the BE server.  If I'm simply
trying to fetch records for browsing (ie. open a table or do a simple join
with no filtering), then a pass-through query makes little sense.  But if
I'm doing a complex join, filtering, sorting, etc, then it is a performance
boost to do everything on the server side.

  And if I'm not fetching, but updating or deleting, then they make a lot of
sense.  Using anything else would be silly.

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
Sent: Tuesday, January 31, 2006 7:38 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?


Jim,

Thank you.  I've never used them.

Steve Erbach

On 1/30/06, Jim Lawrence <accessd at shaw.ca> wrote:
> Pass-through queries have terrible performance especially if you are
trying
> to access dataset (recordsets).
>
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Erbach
> Sent: January 30, 2006 6:31 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Could somebody expand on this a little?
>
> Jim,
>
> Very interesting.  I noted that you and at least one other respondent
> mentioned pass-through queries as good performance options.
>
> What's puzzling to me, also, is a comment made to the article by
> Warren ( here's the link:
>
http://www.sqlservercentral.com/columnists/awarren/linkingaccesstosqlserver.
> asp
> ):
>
> "Performance can really suck, depending on the application and the
> bandwidth. It has to do with the way data is cached in Access and
> becomes very apparent if you have large tables (>100,000 rows).
> However, it doesn't justify pass-through queries (obsolutely NOTHING
> justifies pass-through queries). Views (in SQL server) are your
> friend."
>
> "NOTHING justifies pass-through queries."  I didn't challenge him on
> that.  I should have, I suppose, but I know zip about pass-through
> queries.  What's your view?
> --
> Regards,
>
> Steve Erbach
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jwcolby at ColbyConsulting.com  Tue Jan 31 08:08:00 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Tue, 31 Jan 2006 09:08:00 -0500
Subject: [AccessD] Same form, different actions
In-Reply-To: <s3de13cd.030@nebnov3.niagaracounty.com>
Message-ID: <009701c6266f$c823c2d0$657aa8c0@ColbyM6805>

Everyone,

I want to point out that the entire point of classes (objects) is that you
can just use them, you don't have to understand them.  I know that some
people want to learn how it works as well, but in the end, just start using
it, THEN worry about digging in and seeing how it is programmed.

Everything you use in Access as an object, and we don't have a clue how it
works inside.  Combos, text boxes, forms etc, all are objects that have
methods and properties.  You just use them, but don't know, nor care how it
all happens inside the object.  

These classes I put out there, the SysVars classes, the openargs classes,
the date picker class etc. all are things that you can just use yourself,
even if you NEVER figure out how it works inside.

And I might add <shameless plug>, I am a consultant.  If you have a project
that needs this level of expertise, you can hire me to do it.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Monday, January 30, 2006 1:24 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Same form, different actions

Man, I wish I got this just half as much as you do! This is going to take me
some time to digest, but I think it is exactly what I need.
Thanks for the help!

John W. Clark


>>> jwcolby at colbyconsulting.com 1/30/2006 12:29:53 PM >>>
John,

When you say "go there" what do you mean.  If you open a form modal, then
when you close the form you are right back in the calling form.  If you are
not opening it modal, you should STILL "go there" when you close the form
unless the user has clicked on or opened some other form in the meantime.
IOW, if the switchboard opens the form, then when the form closes, the
switchboard should still be there.  

If you want the form to do something and then OPEN another form, then pass
in the form name in the OpenArgs something like:

strOpenArgs="FrmToOpen=frmThatIWantOpened;"

Now somewhere in the form that you are opening with these openargs (perhaps
in the close event?) do:

Docmd.open acForm, lclsOpenArgs.OpenArg("FrmToOpen")

You do have to make sure that the instance of lclsOpenArgs hasn't been
destroyed already.  I am not sure at what instance in the closing process
that occurs so that part is up to you to figure out.

So.....

The demo has two levels of complexity.  The first (and most complex) is that
as you pass in openargs, it is possible to have the OpenArgs class set
properties of the form that is using this instance of the OpenArgs class.
That is handled automatically by clsOpenArgs.  Pass in OpenArgs with names
that match form properties and Voila, (assuming the properties are not
read-only) the properties are set.  That was demonstrated by the code in the
buttons on the demo form opening the SAME state form in two different modes,
plus setting the caption property of the state form.

The second level of complexity is just using an OpenArg somehow, using code
in the form to retrieve an OpenArg and use it.  That was demonstrated by
setting the label caption in code in the OnOpen event.

In either case, the first thing to get comfortable with is having a form
instantiate and initialize a class.  In the code behind form of the
frmState, we dimensioned a class variable in the header, then SET and
initialized that variable in OnOpen.

Private lclsOpenArgs As clsOpenArgs


Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True

So the form now has a lclsOpenArgs instance that has parsed the OpenArgs
string passed in and is waiting for your command.

The next thing to become comfortable with is that you can now use the
Openargs:

	lblDemoArg.Caption = lclsOpenArgs.OpenArg("LblText")

In the OnOpen of the frmState, we initialized the class, and then used the
class to pull out an openarg called "LblText" and used the value returned by
the class to set the caption of a label - lblDemoArg.Caption.

Go back to the button code that OPENED frmState and notice that the string
with all the openargs contained an openarg with this "lblText" name (at the
very end):

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State Data
Entry Form;LblText=My Data Entry Label;"

ALL of the OpenArgs at the front of the string are for setting form
properties.  Their location in the string is irrelevant, it just happens
that is where I placed them.

IF you told frmStates to interpret the openargs as properties BY PASSING IN
True as the second argument of the init:

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True  <<<<HERE


Then any openargs with a name matching a form property will be used to set
that property.  That occurs in the private method of clsOpenArgs called
ApplyFrmProperties, which is called from the Init() method.  We passed in a
bunch of OpenArgs with names matching form properties:

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State Data
Entry Form;LblText=My Data Entry Label;"

DataEntry
AllowEdits
AllowDeletions
Caption

The reason that they are used for setting properties is that we passed in
the TRUE as the second param of the Init method, AND in that Init method we
called the following function:

Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub

Remember that we passed in a pointer to the form itself to the Init method,
so the class can manipulate the form if it wants to.

To really understand all this stuff, the best thing to do is simply set
break points in the command buttons that open the form.  Then step through
the code and watch it all unfold.  

I understand that the "set the form properties" thing gets in the way of
understanding the OpenArgs class but it is a great example of actually
automatically using openargs, with NO further code on your part (the user of
the class).  I wrote the class to do this "set the forms property" and all
you have to do is use it.  In the frmState, as you initialize clsOpenArgs,
say you are expecting some parameters to be sent in that will set form
properties.  The class takes care of the rest.  Back in your button that
opens the form, set openarg names that match the form properties that you
want to set, set the values that you want the properties set to, and hang on
to your hat.

John W. Colby
www.ColbyConsulting.com 



From jeff.embury at mac.com  Tue Jan 31 10:12:20 2006
From: jeff.embury at mac.com (jeff.embury at mac.com)
Date: Tue, 31 Jan 2006 11:12:20 -0500
Subject: [AccessD] Eval Function... (or a better way)
Message-ID: <13271769.1138723940330.JavaMail.jeff.embury@mac.com>

I have a form I'm constructing that has twenty one check boxes on it... twenty one labels, twenty one of a lot of things... and I'm trying to alter there values in a simplified way by hopefully using the Eval function - but it's not working as advertised.

The Scene: Microsoft Access 2003 in vba code...

Check box names: Check1, Check2, Check-etc.

Function to turn all check's 'on' or 'off':

Function TurnMeOn(bWhichWay as boolean)
   Dim n as integer
   Dim s as string

   n = 1
   Do While n < 21
      s = "form!formname.check" & trim(str(n)) & " = bWhichWay"
      Eval (s)
      n = n + 1
   loop
End Function

================This doesn't' work=============== (sigh!)

...if fact hardly nothing works with the Eval function as I see it...

Microsoft plainly states that the Eval function can call a user defined function - but if I create a function called... let's say "TESTIT()" and then use Eval("TESTIT()") it pukes...


Any help or is there a much more brilliant solution I'm unaware of?



From cfoust at infostatsystems.com  Tue Jan 31 10:17:24 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 31 Jan 2006 08:17:24 -0800
Subject: [AccessD] Same form, different actions
Message-ID: <F55048AF7E974F429BB24597D7355EEA0A1A39@INFOSERVER04.infostat.local>

>>And I might add <shameless plug>, I am a consultant.  If you have a
project that needs this level of expertise, you can hire me to do it.

Egads!  Where are the moderators?  This crass commercialism lowers the
tone of these exalted discussions!  Now, we were talking about natural
keys versus surrogates ....  ;o}

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Tuesday, January 31, 2006 6:08 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions


Everyone,

I want to point out that the entire point of classes (objects) is that
you can just use them, you don't have to understand them.  I know that
some people want to learn how it works as well, but in the end, just
start using it, THEN worry about digging in and seeing how it is
programmed.

Everything you use in Access as an object, and we don't have a clue how
it works inside.  Combos, text boxes, forms etc, all are objects that
have methods and properties.  You just use them, but don't know, nor
care how it all happens inside the object.  

These classes I put out there, the SysVars classes, the openargs
classes, the date picker class etc. all are things that you can just use
yourself, even if you NEVER figure out how it works inside.

And I might add <shameless plug>, I am a consultant.  If you have a
project that needs this level of expertise, you can hire me to do it.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Monday, January 30, 2006 1:24 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Same form, different actions

Man, I wish I got this just half as much as you do! This is going to
take me some time to digest, but I think it is exactly what I need.
Thanks for the help!

John W. Clark


>>> jwcolby at colbyconsulting.com 1/30/2006 12:29:53 PM >>>
John,

When you say "go there" what do you mean.  If you open a form modal,
then when you close the form you are right back in the calling form.  If
you are not opening it modal, you should STILL "go there" when you close
the form unless the user has clicked on or opened some other form in the
meantime. IOW, if the switchboard opens the form, then when the form
closes, the switchboard should still be there.  

If you want the form to do something and then OPEN another form, then
pass in the form name in the OpenArgs something like:

strOpenArgs="FrmToOpen=frmThatIWantOpened;"

Now somewhere in the form that you are opening with these openargs
(perhaps in the close event?) do:

Docmd.open acForm, lclsOpenArgs.OpenArg("FrmToOpen")

You do have to make sure that the instance of lclsOpenArgs hasn't been
destroyed already.  I am not sure at what instance in the closing
process that occurs so that part is up to you to figure out.

So.....

The demo has two levels of complexity.  The first (and most complex) is
that as you pass in openargs, it is possible to have the OpenArgs class
set properties of the form that is using this instance of the OpenArgs
class. That is handled automatically by clsOpenArgs.  Pass in OpenArgs
with names that match form properties and Voila, (assuming the
properties are not
read-only) the properties are set.  That was demonstrated by the code in
the buttons on the demo form opening the SAME state form in two
different modes, plus setting the caption property of the state form.

The second level of complexity is just using an OpenArg somehow, using
code in the form to retrieve an OpenArg and use it.  That was
demonstrated by setting the label caption in code in the OnOpen event.

In either case, the first thing to get comfortable with is having a form
instantiate and initialize a class.  In the code behind form of the
frmState, we dimensioned a class variable in the header, then SET and
initialized that variable in OnOpen.

Private lclsOpenArgs As clsOpenArgs


Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True

So the form now has a lclsOpenArgs instance that has parsed the OpenArgs
string passed in and is waiting for your command.

The next thing to become comfortable with is that you can now use the
Openargs:

	lblDemoArg.Caption = lclsOpenArgs.OpenArg("LblText")

In the OnOpen of the frmState, we initialized the class, and then used
the class to pull out an openarg called "LblText" and used the value
returned by the class to set the caption of a label -
lblDemoArg.Caption.

Go back to the button code that OPENED frmState and notice that the
string with all the openargs contained an openarg with this "lblText"
name (at the very end):

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State
Data Entry Form;LblText=My Data Entry Label;"

ALL of the OpenArgs at the front of the string are for setting form
properties.  Their location in the string is irrelevant, it just happens
that is where I placed them.

IF you told frmStates to interpret the openargs as properties BY PASSING
IN True as the second argument of the init:

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True  <<<<HERE


Then any openargs with a name matching a form property will be used to
set that property.  That occurs in the private method of clsOpenArgs
called ApplyFrmProperties, which is called from the Init() method.  We
passed in a bunch of OpenArgs with names matching form properties:

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State
Data Entry Form;LblText=My Data Entry Label;"

DataEntry
AllowEdits
AllowDeletions
Caption

The reason that they are used for setting properties is that we passed
in the TRUE as the second param of the Init method, AND in that Init
method we called the following function:

Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub

Remember that we passed in a pointer to the form itself to the Init
method, so the class can manipulate the form if it wants to.

To really understand all this stuff, the best thing to do is simply set
break points in the command buttons that open the form.  Then step
through the code and watch it all unfold.  

I understand that the "set the form properties" thing gets in the way of
understanding the OpenArgs class but it is a great example of actually
automatically using openargs, with NO further code on your part (the
user of the class).  I wrote the class to do this "set the forms
property" and all you have to do is use it.  In the frmState, as you
initialize clsOpenArgs, say you are expecting some parameters to be sent
in that will set form properties.  The class takes care of the rest.
Back in your button that opens the form, set openarg names that match
the form properties that you want to set, set the values that you want
the properties set to, and hang on to your hat.

John W. Colby
www.ColbyConsulting.com 

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


From darsant at gmail.com  Tue Jan 31 10:34:26 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Tue, 31 Jan 2006 10:34:26 -0600
Subject: [AccessD] Eval Function... (or a better way)
In-Reply-To: <13271769.1138723940330.JavaMail.jeff.embury@mac.com>
References: <13271769.1138723940330.JavaMail.jeff.embury@mac.com>
Message-ID: <53c8e05a0601310834k48fd9b0mb090b2fdeed6e5d5@mail.gmail.com>

On 1/31/06, jeff.embury at mac.com <jeff.embury at mac.com> wrote:
> I have a form I'm constructing that has twenty one check boxes on it... twenty one labels, twenty one of a lot of things... and I'm trying to alter there values in a simplified way by hopefully using the Eval function - but it's not working as advertised.

For things such as this, you may want to consider using tags. Then you
can iterate through each control in the tag group and modify the
function however you want. Doesn't require any string assembly of the
control name, just that the specified control has the tag attribute
you're searching for.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From jwcolby at ColbyConsulting.com  Tue Jan 31 10:55:50 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Tue, 31 Jan 2006 11:55:50 -0500
Subject: [AccessD] Same form, different actions
In-Reply-To: <F55048AF7E974F429BB24597D7355EEA0A1A39@INFOSERVER04.infostat.local>
Message-ID: <00a401c62687$32ff7240$657aa8c0@ColbyM6805>

The moderators are on my payroll.  ;-)  Unfortunately they just notified me
that their rate is going up.  8~(

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Tuesday, January 31, 2006 11:17 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Same form, different actions

>>And I might add <shameless plug>, I am a consultant.  If you have a
project that needs this level of expertise, you can hire me to do it.

Egads!  Where are the moderators?  This crass commercialism lowers the tone
of these exalted discussions!  Now, we were talking about natural keys
versus surrogates ....  ;o}

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Tuesday, January 31, 2006 6:08 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions


Everyone,

I want to point out that the entire point of classes (objects) is that you
can just use them, you don't have to understand them.  I know that some
people want to learn how it works as well, but in the end, just start using
it, THEN worry about digging in and seeing how it is programmed.

Everything you use in Access as an object, and we don't have a clue how it
works inside.  Combos, text boxes, forms etc, all are objects that have
methods and properties.  You just use them, but don't know, nor care how it
all happens inside the object.  

These classes I put out there, the SysVars classes, the openargs classes,
the date picker class etc. all are things that you can just use yourself,
even if you NEVER figure out how it works inside.

And I might add <shameless plug>, I am a consultant.  If you have a project
that needs this level of expertise, you can hire me to do it.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Monday, January 30, 2006 1:24 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Same form, different actions

Man, I wish I got this just half as much as you do! This is going to take me
some time to digest, but I think it is exactly what I need.
Thanks for the help!

John W. Clark


>>> jwcolby at colbyconsulting.com 1/30/2006 12:29:53 PM >>>
John,

When you say "go there" what do you mean.  If you open a form modal, then
when you close the form you are right back in the calling form.  If you are
not opening it modal, you should STILL "go there" when you close the form
unless the user has clicked on or opened some other form in the meantime.
IOW, if the switchboard opens the form, then when the form closes, the
switchboard should still be there.  

If you want the form to do something and then OPEN another form, then pass
in the form name in the OpenArgs something like:

strOpenArgs="FrmToOpen=frmThatIWantOpened;"

Now somewhere in the form that you are opening with these openargs (perhaps
in the close event?) do:

Docmd.open acForm, lclsOpenArgs.OpenArg("FrmToOpen")

You do have to make sure that the instance of lclsOpenArgs hasn't been
destroyed already.  I am not sure at what instance in the closing process
that occurs so that part is up to you to figure out.

So.....

The demo has two levels of complexity.  The first (and most complex) is that
as you pass in openargs, it is possible to have the OpenArgs class set
properties of the form that is using this instance of the OpenArgs class.
That is handled automatically by clsOpenArgs.  Pass in OpenArgs with names
that match form properties and Voila, (assuming the properties are not
read-only) the properties are set.  That was demonstrated by the code in the
buttons on the demo form opening the SAME state form in two different modes,
plus setting the caption property of the state form.

The second level of complexity is just using an OpenArg somehow, using code
in the form to retrieve an OpenArg and use it.  That was demonstrated by
setting the label caption in code in the OnOpen event.

In either case, the first thing to get comfortable with is having a form
instantiate and initialize a class.  In the code behind form of the
frmState, we dimensioned a class variable in the header, then SET and
initialized that variable in OnOpen.

Private lclsOpenArgs As clsOpenArgs


Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True

So the form now has a lclsOpenArgs instance that has parsed the OpenArgs
string passed in and is waiting for your command.

The next thing to become comfortable with is that you can now use the
Openargs:

	lblDemoArg.Caption = lclsOpenArgs.OpenArg("LblText")

In the OnOpen of the frmState, we initialized the class, and then used the
class to pull out an openarg called "LblText" and used the value returned by
the class to set the caption of a label - lblDemoArg.Caption.

Go back to the button code that OPENED frmState and notice that the string
with all the openargs contained an openarg with this "lblText"
name (at the very end):

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State Data
Entry Form;LblText=My Data Entry Label;"

ALL of the OpenArgs at the front of the string are for setting form
properties.  Their location in the string is irrelevant, it just happens
that is where I placed them.

IF you told frmStates to interpret the openargs as properties BY PASSING IN
True as the second argument of the init:

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True  <<<<HERE


Then any openargs with a name matching a form property will be used to set
that property.  That occurs in the private method of clsOpenArgs called
ApplyFrmProperties, which is called from the Init() method.  We passed in a
bunch of OpenArgs with names matching form properties:

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State Data
Entry Form;LblText=My Data Entry Label;"

DataEntry
AllowEdits
AllowDeletions
Caption

The reason that they are used for setting properties is that we passed in
the TRUE as the second param of the Init method, AND in that Init method we
called the following function:

Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub

Remember that we passed in a pointer to the form itself to the Init method,
so the class can manipulate the form if it wants to.

To really understand all this stuff, the best thing to do is simply set
break points in the command buttons that open the form.  Then step through
the code and watch it all unfold.  

I understand that the "set the form properties" thing gets in the way of
understanding the OpenArgs class but it is a great example of actually
automatically using openargs, with NO further code on your part (the user of
the class).  I wrote the class to do this "set the forms property" and all
you have to do is use it.  In the frmState, as you initialize clsOpenArgs,
say you are expecting some parameters to be sent in that will set form
properties.  The class takes care of the rest.
Back in your button that opens the form, set openarg names that match the
form properties that you want to set, set the values that you want the
properties set to, and hang on to your hat.

John W. Colby
www.ColbyConsulting.com 

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



From jwelz at hotmail.com  Tue Jan 31 10:58:14 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Tue, 31 Jan 2006 09:58:14 -0700
Subject: [AccessD] Eval Function... (or a better way)
In-Reply-To: <13271769.1138723940330.JavaMail.jeff.embury@mac.com>
Message-ID: <BAY113-F1649C4F237211FB3E59C16A1080@phx.gbl>

Reference the controls:

Me("Chk" & n)

or create a form reference:

Set frm = Forms("frmAnyName")
For n = 1 to 21
    frm("Chk" & n) =  bWhichWay
Next

Or create an array of controls in the form open or load

Dim chkCtl(21) As CheckBox 'at form module level scope

For n = 1 to 21
    Set chkCtl(n) = Me.("Chk" & n)
Next

Thereafter, you can reference the controls as members of the array of 
controls

For n = 1 to 21
    chkCtl(n) = bWhichWay
Next


Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: jeff.embury at mac.com
>
>I have a form I'm constructing that has twenty one check boxes on it... 
>twenty one labels, twenty one of a lot of things... and I'm trying to alter 
>there values in a simplified way by hopefully using the Eval function - but 
>it's not working as advertised.
>
>The Scene: Microsoft Access 2003 in vba code...
>
>Check box names: Check1, Check2, Check-etc.
>
>Function to turn all check's 'on' or 'off':
>
>Function TurnMeOn(bWhichWay as boolean)
>    Dim n as integer
>    Dim s as string
>
>    n = 1
>    Do While n < 21
>       s = "form!formname.check" & trim(str(n)) & " = bWhichWay"
>       Eval (s)
>       n = n + 1
>    loop
>End Function
>
>================This doesn't' work=============== (sigh!)
>
>...if fact hardly nothing works with the Eval function as I see it...
>
>Microsoft plainly states that the Eval function can call a user defined 
>function - but if I create a function called... let's say "TESTIT()" and 
>then use Eval("TESTIT()") it pukes...
>
>
>Any help or is there a much more brilliant solution I'm unaware of?




From jwelz at hotmail.com  Tue Jan 31 11:00:56 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Tue, 31 Jan 2006 10:00:56 -0700
Subject: [AccessD] Same form, different actions
In-Reply-To: <F55048AF7E974F429BB24597D7355EEA0A1A39@INFOSERVER04.infostat.local>
Message-ID: <BAY113-F981BCD4EAF85930809A27A1080@phx.gbl>

I think the question is whether we can qualify such plugs as 'classy' or 
'classless'.


Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Charlotte Foust" <cfoust at infostatsystems.com>
>
> >>And I might add <shameless plug>, I am a consultant.  If you have a
>project that needs this level of expertise, you can hire me to do it.
>
>Egads!  Where are the moderators?  This crass commercialism lowers the
>tone of these exalted discussions!  Now, we were talking about natural
>keys versus surrogates ....  ;o}
>
>Charlotte Foust




From reuben at gfconsultants.com  Tue Jan 31 11:05:44 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Tue, 31 Jan 2006 12:05:44 -0500
Subject: [AccessD] A2K - Duplex Printing
Message-ID: <DPEKLCIHBOJKCKJECLCPIEHBDCAA.reuben@gfconsultants.com>

I need to print a report on both sides of the paper.

One record will be one page - both sides.  Each new record will have it's
own piece of paper.

So 10 records will be 10 papers printed on both sides (20 pages total).

Any suggestions?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017






From Lambert.Heenan at AIG.com  Tue Jan 31 11:02:53 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Tue, 31 Jan 2006 11:02:53 -0600
Subject: [AccessD] Eval Function... (or a better way)
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1C7864D3@xlivmbx21.aig.com>

No need for Eval. 

If you control are *consistently* named you can try...

Function TurnMeOn(bWhichWay as boolean)
   Dim n as integer
   Dim s as string

   n = 1
   With Me
   Do While n < 21
     .Controls("Check" & n) = bWhichWay
      n = n + 1
   loop
   End With
End Function

Which eliminates he need to use the Tag property. 

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
jeff.embury at mac.com
Sent: Tuesday, January 31, 2006 11:12 AM
To: accessD at databaseadvisors.com
Subject: [AccessD] Eval Function... (or a better way)


I have a form I'm constructing that has twenty one check boxes on it...
twenty one labels, twenty one of a lot of things... and I'm trying to alter
there values in a simplified way by hopefully using the Eval function - but
it's not working as advertised.

The Scene: Microsoft Access 2003 in vba code...

Check box names: Check1, Check2, Check-etc.

Function to turn all check's 'on' or 'off':

Function TurnMeOn(bWhichWay as boolean)
   Dim n as integer
   Dim s as string

   n = 1
   Do While n < 21
      s = "form!formname.check" & trim(str(n)) & " = bWhichWay"
      Eval (s)
      n = n + 1
   loop
End Function

================This doesn't' work=============== (sigh!)

...if fact hardly nothing works with the Eval function as I see it...

Microsoft plainly states that the Eval function can call a user defined
function - but if I create a function called... let's say "TESTIT()" and
then use Eval("TESTIT()") it pukes...


Any help or is there a much more brilliant solution I'm unaware of?

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


From erbachs at gmail.com  Tue Jan 31 11:08:07 2006
From: erbachs at gmail.com (Steve Erbach)
Date: Tue, 31 Jan 2006 11:08:07 -0600
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <NDEALJOEGMMPCDKIFGNFKEABIGAA.jimdettman@earthlink.net>
References: <39cb22f30601310438i696d6853od34b69ebc23dfc44@mail.gmail.com>
	<NDEALJOEGMMPCDKIFGNFKEABIGAA.jimdettman@earthlink.net>
Message-ID: <39cb22f30601310908q7e682101q1952336aa7cae37c@mail.gmail.com>

Jim,

The picture becomes clearer.  Thank you.

Steve Erbach

On 1/31/06, Jim Dettman <jimdettman at earthlink.net> wrote:
>
>
>   I don't totally agree with Jim's statement.  Again, you need to be
> specific with what your trying to do and understand what's going on.
>
>   A pass-through query executes entirely on the BE server.  If I'm simply
> trying to fetch records for browsing (ie. open a table or do a simple join
> with no filtering), then a pass-through query makes little sense.  But if
> I'm doing a complex join, filtering, sorting, etc, then it is a performance
> boost to do everything on the server side.
>
>   And if I'm not fetching, but updating or deleting, then they make a lot of
> sense.  Using anything else would be silly.
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
> Sent: Tuesday, January 31, 2006 7:38 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Could somebody expand on this a little?
>
>
> Jim,
>
> Thank you.  I've never used them.
>
> Steve Erbach


From carbonnb at gmail.com  Tue Jan 31 11:09:04 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Tue, 31 Jan 2006 12:09:04 -0500
Subject: [AccessD] Same form, different actions
In-Reply-To: <BAY113-F981BCD4EAF85930809A27A1080@phx.gbl>
References: <F55048AF7E974F429BB24597D7355EEA0A1A39@INFOSERVER04.infostat.local>
	<BAY113-F981BCD4EAF85930809A27A1080@phx.gbl>
Message-ID: <e04a6c920601310909l60b39c42u@mail.gmail.com>

On 31/01/06, J?rgen Welz <jwelz at hotmail.com> wrote:
> I think the question is whether we can qualify such plugs as 'classy' or
> 'classless'.

I'd say they are a class unto themselves

BTW John, You've got the wrong folks on your payroll. I can mess with
your subscriptions :-)) You owe me some back pay ;-)) Small bills
please.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From jwcolby at ColbyConsulting.com  Tue Jan 31 11:37:35 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Tue, 31 Jan 2006 12:37:35 -0500
Subject: [AccessD] Same form, different actions
In-Reply-To: <e04a6c920601310909l60b39c42u@mail.gmail.com>
Message-ID: <00b201c6268d$0657f630$657aa8c0@ColbyM6805>

>BTW John, You've got the wrong folks on your payroll. I can mess with your
subscriptions :-)) You owe me some back pay ;-)) Small bills please.

ROTFL.  Everyone has their hand out.  Go to 4th and main, look for a brown
paper bag under the park bench.  There's more where that came from if you
un-enroll J?rgen.

;-0

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell
Sent: Tuesday, January 31, 2006 12:09 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Same form, different actions

On 31/01/06, J?rgen Welz <jwelz at hotmail.com> wrote:
> I think the question is whether we can qualify such plugs as 'classy' 
> or 'classless'.

I'd say they are a class unto themselves

BTW John, You've got the wrong folks on your payroll. I can mess with your
subscriptions :-)) You owe me some back pay ;-)) Small bills please.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well preserved
body, but rather to skid in sideways, totally worn out, shouting "What a
great ride!"
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From Rick.Ehlers at cinergy.com  Tue Jan 31 11:57:53 2006
From: Rick.Ehlers at cinergy.com (Ehlers, Rick)
Date: Tue, 31 Jan 2006 12:57:53 -0500
Subject: [AccessD] Same form, different actions
Message-ID: <A49154D170A54C42BCA71C9770A931E701F8D079@excincymb02.cinergy.com>

Hey, I work at 4th and Main!! Gotta run ;-) 

Rick Ehlers
  Power Services
  Performance And Valuation
  Annex - EX510
  Phone: (513) 287-2047
  Fax: (513) 287-3698
  EMail: Rick.Ehlers at cinergy.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Tuesday, January 31, 2006 12:38 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions

>BTW John, You've got the wrong folks on your payroll. I can mess with 
>your
subscriptions :-)) You owe me some back pay ;-)) Small bills please.

ROTFL.  Everyone has their hand out.  Go to 4th and main, look for a brown paper bag under the park bench.  There's more where that came from if you un-enroll J?rgen.

;-0

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell
Sent: Tuesday, January 31, 2006 12:09 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Same form, different actions

On 31/01/06, J?rgen Welz <jwelz at hotmail.com> wrote:
> I think the question is whether we can qualify such plugs as 'classy' 
> or 'classless'.

I'd say they are a class unto themselves

BTW John, You've got the wrong folks on your payroll. I can mess with your subscriptions :-)) You owe me some back pay ;-)) Small bills please.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well preserved body, but rather to skid in sideways, totally worn out, shouting "What a great ride!"
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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


From rl_stewart at highstream.net  Tue Jan 31 12:38:00 2006
From: rl_stewart at highstream.net (Robert L. Stewart)
Date: Tue, 31 Jan 2006 12:38:00 -0600
Subject: [AccessD] IBM DB2 Express-C free to use
In-Reply-To: <mailman.1.1138730403.17837.accessd@databaseadvisors.com>
References: <mailman.1.1138730403.17837.accessd@databaseadvisors.com>
Message-ID: <6.2.3.4.2.20060131123736.030cbc58@pop3.highstream.net>

Not a guru, but I have used it. :-)

At 12:00 PM 1/31/2006, you wrote:
>Date: Tue, 31 Jan 2006 13:36:57 +0100
>From: "Gustav Brock" <Gustav at cactus.dk>
>Subject: [AccessD] IBM DB2 Express-C free to use
>To: <accessd at databaseadvisors.com>
>Message-ID: <s3df6803.052 at cactus.dk>
>Content-Type: text/plain; charset=US-ASCII
>
>Hi all
>
>Did you notice that IBM finally has an Express offering completely free:
>
>   http://www.ibm.com/db2/express/
>
>It's a 373MB zip download.
>Note the FAQ link.
>
>It features unlimited database size and is only limited to 4GB ram 
>and dual processor.
>Runs on 32/64 bit, Linux or Windows.
>
>By the way, do we have any DB2 gurus among us?




From rl_stewart at highstream.net  Tue Jan 31 12:42:02 2006
From: rl_stewart at highstream.net (Robert L. Stewart)
Date: Tue, 31 Jan 2006 12:42:02 -0600
Subject: [AccessD] IBM DB2 Express-C free to use
In-Reply-To: <mailman.1.1138730403.17837.accessd@databaseadvisors.com>
References: <mailman.1.1138730403.17837.accessd@databaseadvisors.com>
Message-ID: <6.2.3.4.2.20060131124112.030dacd8@pop3.highstream.net>

And, you cannot really download it.  You get the following error:


HTTP 500 - Internal server error
Internet Explorer

If you try to do the Windows 32-bit download.

At 12:00 PM 1/31/2006, you wrote:
>Date: Tue, 31 Jan 2006 13:36:57 +0100
>From: "Gustav Brock" <Gustav at cactus.dk>
>Subject: [AccessD] IBM DB2 Express-C free to use
>To: <accessd at databaseadvisors.com>
>Message-ID: <s3df6803.052 at cactus.dk>
>Content-Type: text/plain; charset=US-ASCII
>
>Hi all
>
>Did you notice that IBM finally has an Express offering completely free:
>
>   http://www.ibm.com/db2/express/
>
>It's a 373MB zip download.
>Note the FAQ link.
>
>It features unlimited database size and is only limited to 4GB ram 
>and dual processor.
>Runs on 32/64 bit, Linux or Windows.
>
>By the way, do we have any DB2 gurus among us?
>
>/gustav


From Gustav at cactus.dk  Tue Jan 31 12:55:50 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 31 Jan 2006 19:55:50 +0100
Subject: [AccessD] IBM DB2 Express-C free to use
Message-ID: <s3dfc0e4.063@cactus.dk>

Hi Robert

Any comments on it? Or was that prior to version 8.2?

/gustav

>>> rl_stewart at highstream.net 31-01-2006 19:38:00 >>>
Not a guru, but I have used it. :-)

At 12:00 PM 1/31/2006, you wrote:
>Date: Tue, 31 Jan 2006 13:36:57 +0100
>From: "Gustav Brock" <Gustav at cactus.dk>
>Subject: [AccessD] IBM DB2 Express-C free to use
>To: <accessd at databaseadvisors.com>
>Message-ID: <s3df6803.052 at cactus.dk>
>Content-Type: text/plain; charset=US-ASCII
>
>Hi all
>
>Did you notice that IBM finally has an Express offering completely free:
>
>   http://www.ibm.com/db2/express/ 
>
>It's a 373MB zip download.
>Note the FAQ link.
>
>It features unlimited database size and is only limited to 4GB ram 
>and dual processor.
>Runs on 32/64 bit, Linux or Windows.
>
>By the way, do we have any DB2 gurus among us?




From Gustav at cactus.dk  Tue Jan 31 12:58:10 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 31 Jan 2006 19:58:10 +0100
Subject: [AccessD] IBM DB2 Express-C free to use
Message-ID: <s3dfc15f.064@cactus.dk>

Hi Robert

I succeeded in the fourth attempt. 
Be patient - it looks like the news are traveling across the world ...

/gustav

>>> rl_stewart at highstream.net 31-01-2006 19:42:02 >>>
And, you cannot really download it.  You get the following error:


HTTP 500 - Internal server error
Internet Explorer

If you try to do the Windows 32-bit download.




From darsant at gmail.com  Tue Jan 31 13:18:19 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Tue, 31 Jan 2006 13:18:19 -0600
Subject: [AccessD] Eval Function... (or a better way)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1C7864D3@xlivmbx21.aig.com>
References: <1D7828CDB8350747AFE9D69E0E90DA1F1C7864D3@xlivmbx21.aig.com>
Message-ID: <53c8e05a0601311118v758b8730nb495f554fe48102b@mail.gmail.com>

On 1/31/06, Heenan, Lambert <Lambert.Heenan at aig.com> wrote:
> No need for Eval.
>
> If you control are *consistently* named you can try...
>
> Function TurnMeOn(bWhichWay as boolean)
>    Dim n as integer
>    Dim s as string
>
>    n = 1
>    With Me
>    Do While n < 21
>      .Controls("Check" & n) = bWhichWay
>       n = n + 1
>    loop
>    End With
> End Function
>
> Which eliminates he need to use the Tag property.

I don't know, I may just be prejudiced against string manupulating
control names. Tags allow me to seperate things into nice
organizational chunks, and I can add a new control without needing to
touch the underlying code. OTOH, if I change the name of a control
while using strings, it won't give me a problem until I execute the
code, which can be nasty sometimes if you miss testing it.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From Lambert.Heenan at AIG.com  Tue Jan 31 13:35:19 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Tue, 31 Jan 2006 13:35:19 -0600
Subject: [AccessD] Eval Function... (or a better way)
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1C786598@xlivmbx21.aig.com>

I agree. And that's why I emphasized *consistently*. I use the Tag property
myself for this reason, but I just posted this to show Jeff another way to
solve his problem. 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh McFarlane
Sent: Tuesday, January 31, 2006 2:18 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Eval Function... (or a better way)


On 1/31/06, Heenan, Lambert <Lambert.Heenan at aig.com> wrote:
> No need for Eval.
>
> If you control are *consistently* named you can try...
>
> Function TurnMeOn(bWhichWay as boolean)
>    Dim n as integer
>    Dim s as string
>
>    n = 1
>    With Me
>    Do While n < 21
>      .Controls("Check" & n) = bWhichWay
>       n = n + 1
>    loop
>    End With
> End Function
>
> Which eliminates he need to use the Tag property.

I don't know, I may just be prejudiced against string manupulating control
names. Tags allow me to seperate things into nice organizational chunks, and
I can add a new control without needing to touch the underlying code. OTOH,
if I change the name of a control while using strings, it won't give me a
problem until I execute the code, which can be nasty sometimes if you miss
testing it.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From jeff.embury at mac.com  Tue Jan 31 13:47:20 2006
From: jeff.embury at mac.com (jeff.embury at mac.com)
Date: Tue, 31 Jan 2006 14:47:20 -0500
Subject: [AccessD] Eval Function... (or a better way)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1C786598@xlivmbx21.aig.com>
References: <1D7828CDB8350747AFE9D69E0E90DA1F1C786598@xlivmbx21.aig.com>
Message-ID: <16044943.1138736840614.JavaMail.jeff.embury@mac.com>

I thank you both.... I'm not using the tag solution because I'm somewhat unfamiliar with it... the proposed control object was the key - I'm off and running!


From dwaters at usinternet.com  Tue Jan 31 15:24:13 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Tue, 31 Jan 2006 15:24:13 -0600
Subject: [AccessD] A2K - Duplex Printing
In-Reply-To: <24322010.1138727367819.JavaMail.root@sniper17>
Message-ID: <000201c626ac$af4a9990$0200a8c0@danwaters>

Hi Reuben,

Duplex printing is typically a function of the printer, not your software.

For example, I have an HP Photosmart 1215.  I've had it for 3 years, but
just recently bought the mechanical attachment which allows duplex printing.
The toggle switch to turn the duplex printing on and off is in the
properties window for the printer.  So if I print anything that is two pages
long, and the printer is set for double-sided printing, it will
automatically print two sides, no matter what the source of the document
was.

Hope this helps!
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings
Sent: Tuesday, January 31, 2006 11:06 AM
To: AccessD
Subject: [AccessD] A2K - Duplex Printing

I need to print a report on both sides of the paper.

One record will be one page - both sides.  Each new record will have it's
own piece of paper.

So 10 records will be 10 papers printed on both sides (20 pages total).

Any suggestions?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017




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



From Lambert.Heenan at AIG.com  Tue Jan 31 16:34:25 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Tue, 31 Jan 2006 16:34:25 -0600
Subject: [AccessD] A2K - Duplex Printing
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1C786691@xlivmbx21.aig.com>

If you want to do this yourself then this is one approach.

Generate a sorted recordset
Loop though the recordset and add every odd numbered record to a temporary
table (which the report will be bound to)
Print the report, which will show every other record.
Tell the user to reload the paper upside down in the printer.
Empty the temporary table
Loop though the records and add every even record to the temporary table
Print the report again (on the back of the paper).

HTH

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: Tuesday, January 31, 2006 4:24 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] A2K - Duplex Printing


Hi Reuben,

Duplex printing is typically a function of the printer, not your software.

For example, I have an HP Photosmart 1215.  I've had it for 3 years, but
just recently bought the mechanical attachment which allows duplex printing.
The toggle switch to turn the duplex printing on and off is in the
properties window for the printer.  So if I print anything that is two pages
long, and the printer is set for double-sided printing, it will
automatically print two sides, no matter what the source of the document
was.

Hope this helps!
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings
Sent: Tuesday, January 31, 2006 11:06 AM
To: AccessD
Subject: [AccessD] A2K - Duplex Printing

I need to print a report on both sides of the paper.

One record will be one page - both sides.  Each new record will have it's
own piece of paper.

So 10 records will be 10 papers printed on both sides (20 pages total).

Any suggestions?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017




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

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


From reuben at gfconsultants.com  Tue Jan 31 18:03:46 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Tue, 31 Jan 2006 19:03:46 -0500
Subject: [AccessD] A2K - Duplex Printing
In-Reply-To: <000201c626ac$af4a9990$0200a8c0@danwaters>
Message-ID: <DPEKLCIHBOJKCKJECLCPOEHKDCAA.reuben@gfconsultants.com>

I had wondered about that, Dan.  Maybe I need to dig deeper (or have them
dig deeper) into their alleged duplex printer.  I'll be there tomorrow to
play with it again.

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Dan Waters
> Sent: Tuesday, January 31, 2006 4:24 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] A2K - Duplex Printing
>
>
> Hi Reuben,
>
> Duplex printing is typically a function of the printer, not your software.
>
> For example, I have an HP Photosmart 1215.  I've had it for 3 years, but
> just recently bought the mechanical attachment which allows
> duplex printing.
> The toggle switch to turn the duplex printing on and off is in the
> properties window for the printer.  So if I print anything that
> is two pages
> long, and the printer is set for double-sided printing, it will
> automatically print two sides, no matter what the source of the document
> was.
>
> Hope this helps!
> Dan
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings
> Sent: Tuesday, January 31, 2006 11:06 AM
> To: AccessD
> Subject: [AccessD] A2K - Duplex Printing
>
> I need to print a report on both sides of the paper.
>
> One record will be one page - both sides.  Each new record will have it's
> own piece of paper.
>
> So 10 records will be 10 papers printed on both sides (20 pages total).
>
> Any suggestions?
>
> Thanks.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From reuben at gfconsultants.com  Tue Jan 31 18:03:48 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Tue, 31 Jan 2006 19:03:48 -0500
Subject: [AccessD] A2K - Duplex Printing
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1C786691@xlivmbx21.aig.com>
Message-ID: <DPEKLCIHBOJKCKJECLCPAEHLDCAA.reuben@gfconsultants.com>

Lambert, thanks for the input.  I have read that method before and hope to
avoid it, but...you never know.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Heenan,
> Lambert
> Sent: Tuesday, January 31, 2006 5:34 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] A2K - Duplex Printing
>
>
> If you want to do this yourself then this is one approach.
>
> Generate a sorted recordset
> Loop though the recordset and add every odd numbered record to a temporary
> table (which the report will be bound to)
> Print the report, which will show every other record.
> Tell the user to reload the paper upside down in the printer.
> Empty the temporary table
> Loop though the records and add every even record to the temporary table
> Print the report again (on the back of the paper).
>
> HTH
>
> Lambert
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
> Sent: Tuesday, January 31, 2006 4:24 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] A2K - Duplex Printing
>
>
> Hi Reuben,
>
> Duplex printing is typically a function of the printer, not your software.
>
> For example, I have an HP Photosmart 1215.  I've had it for 3 years, but
> just recently bought the mechanical attachment which allows
> duplex printing.
> The toggle switch to turn the duplex printing on and off is in the
> properties window for the printer.  So if I print anything that
> is two pages
> long, and the printer is set for double-sided printing, it will
> automatically print two sides, no matter what the source of the document
> was.
>
> Hope this helps!
> Dan
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings
> Sent: Tuesday, January 31, 2006 11:06 AM
> To: AccessD
> Subject: [AccessD] A2K - Duplex Printing
>
> I need to print a report on both sides of the paper.
>
> One record will be one page - both sides.  Each new record will have it's
> own piece of paper.
>
> So 10 records will be 10 papers printed on both sides (20 pages total).
>
> Any suggestions?
>
> Thanks.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From clh at christopherhawkins.com  Tue Jan 31 22:51:41 2006
From: clh at christopherhawkins.com (Christopher Hawkins)
Date: Tue, 31 Jan 2006 21:51:41 -0700
Subject: [AccessD] Coming up for air...
Message-ID: <4a265b9d383844e4b243a581181f6085@christopherhawkins.com>

I am a man with a contact list that is both deep and wide!  ;)

-C-

----------------------------------------
 From: "John Clark" <John.Clark at niagaracounty.com>
Sent: Tuesday, January 31, 2006 6:05 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Coming up for air... 

Hey, I just checked out your website...how did you get Bill Cosby and
Annie Lennox to pose for your site?! ;)

>>> clh at christopherhawkins.com 1/30/2006 2:56 PM >>>
Hello, all!

It's been a while since I was very active on this list. I check in
from time to time, but the amount of Access work I do is so small now I
rarely need to ask for answers, and rarely have time to give them. I'm
mostly doing ASP Classic/ASP.NET and SQL Server work these days.

I just wanted to pop up and say hello to all of you! I've been
subscribed for something like 5 years now, and it's always nice to skim
the list and see the same names still asking questions, because that
means you are all still gainfully employed! ;)

As for me, my little consultancy has been humming right along. I've
got a team of 4 now and we're chasing after ever-bigger projects! It
was a rough start, especially for the first two years, but it looks like
things are on the right track.

I'd love to hear how you've all been doing. Feel free to sound off
either on or offline!

Respectfully,

Christopher Hawkins
Chief Developer
Cogeian Systems
(559) 687-7591
www.cogeian.com 

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




From jmhecht at earthlink.net  Tue Jan 31 23:42:56 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 31 Jan 2006 21:42:56 -0800
Subject: [AccessD] A2K - Duplex Printing
In-Reply-To: <DPEKLCIHBOJKCKJECLCPIEHBDCAA.reuben@gfconsultants.com>
Message-ID: <000101c626f2$5b26ac00$7400a8c0@HPLaptop>

Is your printer duplex?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Reuben Cummings
Sent: Tuesday, January 31, 2006 9:06 AM
To: AccessD
Subject: [AccessD] A2K - Duplex Printing

I need to print a report on both sides of the paper.

One record will be one page - both sides.  Each new record
will have it's
own piece of paper.

So 10 records will be 10 papers printed on both sides (20
pages total).

Any suggestions?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017




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



From joeget at vgernet.net  Mon Jan  2 08:29:26 2006
From: joeget at vgernet.net (John Eget)
Date: Mon, 2 Jan 2006 09:29:26 -0500
Subject: [AccessD] Append/Update tables
Message-ID: <004701c60fa8$f613e860$d2c2f63f@JOHN>

I have a table "tblPA" in a database and have successfully imported the same file from another database.  So now I have "tblPA" and "tblPA1".  The tables have 4 identical fields called "Added Date", "Added Time", "Date Modified", and "Time Modified" plus several others.

I would like to append/update the "tblPA" by adding the new records from the "tblPA1" and append/update the records of "tblPA" if the table "tblPA1" has a later modified date and time.

First, I think I need to delete the records that need to be appended/updated from "tblPA" and then just add the records from "tblPA1" that are new.  That may all be possible by the Date and Time Modified fields and then just using the Added date and time to add the records to "tblPA"

I do believe that that will satisfy the process.  Do you agree? Have an example? Know where there is an example?

Thanks again

John  

From joeget at vgernet.net  Mon Jan  2 08:29:49 2006
From: joeget at vgernet.net (John Eget)
Date: Mon, 2 Jan 2006 09:29:49 -0500
Subject: [AccessD] Append/Update tables
Message-ID: <004e01c60fa9$037d22a0$d2c2f63f@JOHN>

I have a table "tblPA" in a database and have successfully imported the same file from another database.  So now I have "tblPA" and "tblPA1".  The tables have 4 identical fields called "Added Date", "Added Time", "Date Modified", and "Time Modified" plus several others.

I would like to append/update the "tblPA" by adding the new records from the "tblPA1" and append/update the records of "tblPA" if the table "tblPA1" has a later modified date and time.

First, I think I need to delete the records that need to be appended/updated from "tblPA" and then just add the records from "tblPA1" that are new.  That may all be possible by the Date and Time Modified fields and then just using the Added date and time to add the records to "tblPA"

I do believe that that will satisfy the process.  Do you agree? Have an example? Know where there is an example?

Thanks again

John  

From Gustav at cactus.dk  Mon Jan  2 08:49:06 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 02 Jan 2006 15:49:06 +0100
Subject: [AccessD] Append/Update tables
Message-ID: <s3b94b8f.097@cactus.dk>

Hi John (I mailed this the other day but perhaps it missed the list)

This tip from Smart Access is one of my favourites:

<quote>

Update and Append Records with One Query

By Alan Biggs

Did you know that you can use an update query in Access to both update
and add records at the same time? This is useful if you have two
versions of a table, tblOld and tblNew, and you want to integrate the
changes from tblNew into tblOld. 

Follow these steps:

1. Create an update query and add the two tables. Join the two tables
by dragging the key field of tblNew onto the matching field of tblOld.

2. Double-click on the relationship and choose the join option that
includes all records from tblNew and only those that match from
tblOld. 

3. Select all the fields from tblOld and drag them onto the QBE grid.

4. For each field, in the Update To cell type in tblNew.FieldName,
where FieldName matches the field name of tblOld.

5. Select Query Properties from the View menu and change Unique
Records to False. (This switches off the DISTINCTROW option in the SQL
view. If you leave this on you'll get only one blank record in your
results, but you want one blank record for each new record to be added
to tblOld.) 

6. Run the query and you'll see the changes to tblNew are now in
tblOld. 

This will only add records to tblOld that have been added to tblNew.
Records in tblOld that aren't present in tblNew will still remain in
tblOld. 

</quote>

Happy New Year to all!

/gustav


>>> joeget at vgernet.net 02-01-2006 15:29:49 >>>
I have a table "tblPA" in a database and have successfully imported the same file from another database.  So now I have "tblPA" and "tblPA1".  The tables have 4 identical fields called "Added Date", "Added Time", "Date Modified", and "Time Modified" plus several others.

I would like to append/update the "tblPA" by adding the new records from the "tblPA1" and append/update the records of "tblPA" if the table "tblPA1" has a later modified date and time.

First, I think I need to delete the records that need to be appended/updated from "tblPA" and then just add the records from "tblPA1" that are new.  That may all be possible by the Date and Time Modified fields and then just using the Added date and time to add the records to "tblPA"

I do believe that that will satisfy the process.  Do you agree? Have an example? Know where there is an example?

Thanks again

John  




From jwcolby at ColbyConsulting.com  Mon Jan  2 10:48:40 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 2 Jan 2006 11:48:40 -0500
Subject: [AccessD] Free Visual Studio e-learning from Microsoft
Message-ID: <000401c60fbc$63510440$647aa8c0@ColbyM6805>

I just ran across this.

http://msdn.microsoft.com/vstudio/learning/elearning_promo/default.aspx

It is a limited time offer which expires very soon.  One free course.  I am
examining it further now.

John W. Colby
www.ColbyConsulting.com 

Contribute your unused CPU cycles to a good cause:
http://folding.stanford.edu/



From wdhindman at bellsouth.net  Mon Jan  2 12:01:51 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Mon, 2 Jan 2006 13:01:51 -0500
Subject: [AccessD] Append/Update tables
References: <004701c60fa8$f613e860$d2c2f63f@JOHN>
Message-ID: <007201c60fc6$9bf2a6f0$6101a8c0@JISREGISTRATION.local>

http://www.peterssoftware.com/trm.htm

...hth :)

William

----- Original Message ----- 
From: "John Eget" <joeget at vgernet.net>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Monday, January 02, 2006 9:29 AM
Subject: [AccessD] Append/Update tables


>I have a table "tblPA" in a database and have successfully imported the 
>same file from another database.  So now I have "tblPA" and "tblPA1".  The 
>tables have 4 identical fields called "Added Date", "Added Time", "Date 
>Modified", and "Time Modified" plus several others.
>
> I would like to append/update the "tblPA" by adding the new records from 
> the "tblPA1" and append/update the records of "tblPA" if the table 
> "tblPA1" has a later modified date and time.
>
> First, I think I need to delete the records that need to be 
> appended/updated from "tblPA" and then just add the records from "tblPA1" 
> that are new.  That may all be possible by the Date and Time Modified 
> fields and then just using the Added date and time to add the records to 
> "tblPA"
>
> I do believe that that will satisfy the process.  Do you agree? Have an 
> example? Know where there is an example?
>
> Thanks again
>
> John
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From harkinsss at bellsouth.net  Mon Jan  2 13:25:33 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Mon, 2 Jan 2006 14:25:33 -0500
Subject: [AccessD] Free Visual Studio e-learning from Microsoft
In-Reply-To: <000401c60fbc$63510440$647aa8c0@ColbyM6805>
Message-ID: <20060102192535.DJWF12654.ibm67aec.bellsouth.net@SUSANONE>

I'm looking for good intro into Visual Basic Express materials -- if anyone
runs across something good, would you send me a link at
harkinsss at bellsouth.net? Thanks!

Susan H. 

I just ran across this.

http://msdn.microsoft.com/vstudio/learning/elearning_promo/default.aspx

It is a limited time offer which expires very soon.  One free course.  I am
examining it further now.




From dwaters at usinternet.com  Mon Jan  2 15:55:47 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Mon, 2 Jan 2006 15:55:47 -0600
Subject: [AccessD] Free Visual Studio e-learning from Microsoft
In-Reply-To: <6182816.1136230180574.JavaMail.root@sniper15>
Message-ID: <000001c60fe7$4a514560$0200a8c0@danwaters>

Susan,

This link goes to a book at Amazon which covers, SQL Server Express, Visual
Basic Express, and Visual Web Developer Express.  I got it a couple of weeks
ago just for the SQL Express part.  Rick Dobson is the author.

http://www.amazon.com/gp/product/1590595238/qid=1136238721/sr=8-1/ref=sr_8_x
s_ap_i1_xgl14/103-9977055-8866223?n=507846&s=books&v=glance

Dan Waters

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Monday, January 02, 2006 1:26 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Free Visual Studio e-learning from Microsoft

I'm looking for good intro into Visual Basic Express materials -- if anyone
runs across something good, would you send me a link at
harkinsss at bellsouth.net? Thanks!

Susan H. 

I just ran across this.

http://msdn.microsoft.com/vstudio/learning/elearning_promo/default.aspx

It is a limited time offer which expires very soon.  One free course.  I am
examining it further now.


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



From mboyd at deloitte.com  Mon Jan  2 19:41:09 2006
From: mboyd at deloitte.com (Boyd, Mark Thomas (US - Philadelphia))
Date: Mon, 2 Jan 2006 20:41:09 -0500
Subject: [AccessD] Write Conflict
Message-ID: <EB062E528F7B964281EB0F83CFDA3B43251810@usndc0419.us.deloitte.com>

David -
Are you using SQL Server as the backend to your form's data?  I've seen
this in the past when SQL tables are being updated.
If so, adding a timestamp datatype column to the table seemed to fix it
for me.


Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David &
Joanne Gould
Sent: Saturday, December 31, 2005 8:02 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Write Conflict

It is set to update the table. However, it doesn't matter what I set to 
happen in the subform because the error message happens when the other
form 
is closed and before the subform is accessed.

At 11:28 PM 31/12/2005, you wrote:
>Hi David, and Happy New Year to you too.
>
>It sounds as if the "new form" on which they change rental type is
updating
>the same table that your subform is based on. If so I'd try 2 things.
>Firstly do a Save of the subform before opening the new form, and then
>Requery the subform when the other form closes.
>
>-- Andy Lacey
>http://www.minstersystems.co.uk
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > David & Joanne Gould
> > Sent: 31 December 2005 12:09
> > To: accessd at databaseadvisors.com
> > Subject: [AccessD] Write Conflict
> >
> >
> > Firstly, I would like to wish everyone on the a Happy and
> > Prosperous 2006.
> > May the best of 2005 be the worst of 2006.
> >
> > My problem is I am working on a video library database. My
> > hire form has a
> > main form (hirer's details) and a subform (hiring details).
> > There is a
> > combo box that the user uses to select the movie. If they
> > double-click on
> > the combo box they are taken to a new form where they can
> > change the rental
> > type for the movie (eg is it an overnight, 3 nights, weekly
> > etc rental)
> > When they have selected the new rental type the program
> > checks for every
> > instance of that movie name and changes it to the new rental
> > type. It also
> > updates the Hiring record to record the new date due into the
> > table. This
> > all works perfectly. However, when they close the form to go
> > back to the
> > Hiring form, I get Write Conflict. If I click on the Save
> > option it works
> > perfectly and updates the row in the Hire form details to reflect
the
> > changes and I can continue to work.
> >
> > I can't seem to figure out where the error is being triggered
> > so I can tell
> > it to save programatically and leave the user none the wiser.
> >
> > Any help in this will be greatly appreciated.
> >
> > TIA
> >
> > David
> >
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> >
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com


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


This message (including any attachments) contains confidential information intended for a specific individual and purpose, and is protected by law.  If you are not the intended recipient, you should delete this message. 


Any disclosure, copying, or distribution of this message, or the taking of any action based on it, is strictly prohibited. [v.E.1]


From dajomigo at tpg.com.au  Mon Jan  2 20:55:34 2006
From: dajomigo at tpg.com.au (David & Joanne Gould)
Date: Tue, 03 Jan 2006 13:55:34 +1100
Subject: [AccessD] Write Conflict
In-Reply-To: <EB062E528F7B964281EB0F83CFDA3B43251810@usndc0419.us.deloit
	te.com>
References: <EB062E528F7B964281EB0F83CFDA3B43251810@usndc0419.us.deloitte.com>
Message-ID: <6.2.1.2.2.20060103135101.033b66f0@mail.tpg.com.au>

Mark

No, I'm just using Access XP keeping the database in Access 2000 format.  I 
think the problem is that the data in the table is updated in the other 
form and therefore doesn't match the subform. I originally wasn't saving 
the changes in the update form but was getting the same problem except that 
the Save button didn't fix things then. So I think I'm closer to the right 
solution except I can't figure out how to do the Save at the right time. It 
seems to be somewhere between when the Close command is activated and 
anything else happening.

Hope this helps.

TIA

David

At 12:41 PM 3/01/2006, you wrote:
>David -
>Are you using SQL Server as the backend to your form's data?  I've seen
>this in the past when SQL tables are being updated.
>If so, adding a timestamp datatype column to the table seemed to fix it
>for me.
>
>
>Mark Boyd
>Senior Consultant
>Enterprise Risk Services
>Deloitte & Touche LLP
>
>Tel: +1 215 405 5576
>mboyd at deloitte.com
>www.deloitte.com
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David &
>Joanne Gould
>Sent: Saturday, December 31, 2005 8:02 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] Write Conflict
>
>It is set to update the table. However, it doesn't matter what I set to
>happen in the subform because the error message happens when the other
>form
>is closed and before the subform is accessed.
>
>At 11:28 PM 31/12/2005, you wrote:
> >Hi David, and Happy New Year to you too.
> >
> >It sounds as if the "new form" on which they change rental type is
>updating
> >the same table that your subform is based on. If so I'd try 2 things.
> >Firstly do a Save of the subform before opening the new form, and then
> >Requery the subform when the other form closes.
> >
> >-- Andy Lacey
> >http://www.minstersystems.co.uk
> >
> > > -----Original Message-----
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > > David & Joanne Gould
> > > Sent: 31 December 2005 12:09
> > > To: accessd at databaseadvisors.com
> > > Subject: [AccessD] Write Conflict
> > >
> > >
> > > Firstly, I would like to wish everyone on the a Happy and
> > > Prosperous 2006.
> > > May the best of 2005 be the worst of 2006.
> > >
> > > My problem is I am working on a video library database. My
> > > hire form has a
> > > main form (hirer's details) and a subform (hiring details).
> > > There is a
> > > combo box that the user uses to select the movie. If they
> > > double-click on
> > > the combo box they are taken to a new form where they can
> > > change the rental
> > > type for the movie (eg is it an overnight, 3 nights, weekly
> > > etc rental)
> > > When they have selected the new rental type the program
> > > checks for every
> > > instance of that movie name and changes it to the new rental
> > > type. It also
> > > updates the Hiring record to record the new date due into the
> > > table. This
> > > all works perfectly. However, when they close the form to go
> > > back to the
> > > Hiring form, I get Write Conflict. If I click on the Save
> > > option it works
> > > perfectly and updates the row in the Hire form details to reflect
>the
> > > changes and I can continue to work.
> > >
> > > I can't seem to figure out where the error is being triggered
> > > so I can tell
> > > it to save programatically and leave the user none the wiser.
> > >
> > > Any help in this will be greatly appreciated.
> > >
> > > TIA
> > >
> > > David
> > >
> > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> > >
> >
> >--
> >AccessD mailing list
> >AccessD at databaseadvisors.com
> >http://databaseadvisors.com/mailman/listinfo/accessd
> >Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>This message (including any attachments) contains confidential information 
>intended for a specific individual and purpose, and is protected by 
>law.  If you are not the intended recipient, you should delete this message.
>
>
>Any disclosure, copying, or distribution of this message, or the taking of 
>any action based on it, is strictly prohibited. [v.E.1]
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From Erwin.Craps at ithelps.be  Tue Jan  3 03:40:14 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Tue, 3 Jan 2006 10:40:14 +0100
Subject: [AccessD] Saving Phonenumber format in Outlook
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B625F@stekelbes.ithelps.local>

 
Hapyy New Year to you all.
May your wishes (and mine) come true :-)
 
Here's my question.
 
I'm using in VBA the ContactItem object to save or edit a phonenumber
from a contact.
 
I set my phonenumber in international format so when I synchronyse my
Outlook contacts with my GSM/Mobile phone I can dial from any country.
 
As you now the international format is
+ sign (international dialing) - country code - zone (without leading
zero) - phonenumber.
Example: +3216296404
 
When setting a contact phonenumber to "+3216296404" outlook changes it
to "+32 16296404" with a space between the country code and
zone+phonenumber.
 
Whats the big deal you would say, well the problem is that it also
synchonyses that way to my mobile phone.
This is not a problem for dialing out, but when when someone calls me,
the incoming phonenumber is not recognised in the mobiles database due
to that added space.
 
Is there a way I can make Outlook save the phonenumber without that
space.
I can remove the space when having a linked table in Access to Outlook,
So why can I not remove thet space from within VBA?
 
 

 

Erwin Craps

Zaakvoerder 

www.ithelps.be/onsgezin

 

This E-mail is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and E-mail confirmation to
the sender.

IT Helps - I.T. Help Center  ***  Box Office Belgium & Luxembourg

www.ithelps.be <http://www.ithelps.be/>   *  www.boxoffice.be
<http://www.boxoffice.be/>   *  www.stadleuven.be
<http://www.stadleuven.be/> 

IT Helps bvba* ** Mercatorpad 3 **  3000 Leuven

IT Helps  *  Phone: +32 16 296 404  *  Fax: +32 16 296 405 E-mail:
Info at ithelps.be 

Box Office **  Fax: +32 16 296 406 **  Box Office E-mail:
Staff at boxoffice.be <mailto:figures at boxoffice.be> 

 


From DWUTKA at marlow.com  Tue Jan  3 08:28:17 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Tue, 3 Jan 2006 08:28:17 -0600 
Subject: [AccessD] Saving Phonenumber format in Outlook
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD44C@main2.marlow.com>

Is the Replace function not working?
SomeString=Replace(StringWithPhoneNumber," ","")

Drew

	-----Original Message-----
	From:	Erwin Craps - IT Helps [SMTP:Erwin.Craps at ithelps.be]
	Sent:	Tuesday, January 03, 2006 3:40 AM
	To:	accessd at databaseadvisors.com
	Subject:	[AccessD] Saving Phonenumber format in Outlook

	 
	Hapyy New Year to you all.
	May your wishes (and mine) come true :-)
	 
	Here's my question.
	 
	I'm using in VBA the ContactItem object to save or edit a
phonenumber
	from a contact.
	 
	I set my phonenumber in international format so when I synchronyse
my
	Outlook contacts with my GSM/Mobile phone I can dial from any
country.
	 
	As you now the international format is
	+ sign (international dialing) - country code - zone (without
leading
	zero) - phonenumber.
	Example: +3216296404
	 
	When setting a contact phonenumber to "+3216296404" outlook changes
it
	to "+32 16296404" with a space between the country code and
	zone+phonenumber.
	 
	Whats the big deal you would say, well the problem is that it also
	synchonyses that way to my mobile phone.
	This is not a problem for dialing out, but when when someone calls
me,
	the incoming phonenumber is not recognised in the mobiles database
due
	to that added space.
	 
	Is there a way I can make Outlook save the phonenumber without that
	space.
	I can remove the space when having a linked table in Access to
Outlook,
	So why can I not remove thet space from within VBA?
	 
	 

	 

	Erwin Craps

	Zaakvoerder 

	www.ithelps.be/onsgezin

	 

	This E-mail is confidential, may be legally privileged, and is for
the
	intended recipient only. Access, disclosure, copying, distribution,
or
	reliance on any of it by anyone else is prohibited and may be a
criminal
	offence. Please delete if obtained in error and E-mail confirmation
to
	the sender.

	IT Helps - I.T. Help Center  ***  Box Office Belgium & Luxembourg

	www.ithelps.be <http://www.ithelps.be/>   *  www.boxoffice.be
	<http://www.boxoffice.be/>   *  www.stadleuven.be
	<http://www.stadleuven.be/> 

	IT Helps bvba* ** Mercatorpad 3 **  3000 Leuven

	IT Helps  *  Phone: +32 16 296 404  *  Fax: +32 16 296 405 E-mail:
	Info at ithelps.be 

	Box Office **  Fax: +32 16 296 406 **  Box Office E-mail:
	Staff at boxoffice.be <mailto:figures at boxoffice.be> 

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


From Erwin.Craps at ithelps.be  Tue Jan  3 09:17:51 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Tue, 3 Jan 2006 16:17:51 +0100
Subject: [AccessD] Saving Phonenumber format in Outlook
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B6267@stekelbes.ithelps.local>

Euh yes, 
but thats not the issue.

If I do 
Contactitem.PhoneNumber ="+3216296404"
Debug.print Contactitem.PhoneNumber 

I get "+32 16296404" as result

Outlook autmaticaly adds a space.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Tuesday, January 03, 2006 3:28 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Saving Phonenumber format in Outlook

Is the Replace function not working?
SomeString=Replace(StringWithPhoneNumber," ","")

Drew

	-----Original Message-----
	From:	Erwin Craps - IT Helps [SMTP:Erwin.Craps at ithelps.be]
	Sent:	Tuesday, January 03, 2006 3:40 AM
	To:	accessd at databaseadvisors.com
	Subject:	[AccessD] Saving Phonenumber format in Outlook

	 
	Hapyy New Year to you all.
	May your wishes (and mine) come true :-)
	 
	Here's my question.
	 
	I'm using in VBA the ContactItem object to save or edit a
phonenumber
	from a contact.
	 
	I set my phonenumber in international format so when I
synchronyse my
	Outlook contacts with my GSM/Mobile phone I can dial from any
country.
	 
	As you now the international format is
	+ sign (international dialing) - country code - zone (without
leading
	zero) - phonenumber.
	Example: +3216296404
	 
	When setting a contact phonenumber to "+3216296404" outlook
changes it
	to "+32 16296404" with a space between the country code and
	zone+phonenumber.
	 
	Whats the big deal you would say, well the problem is that it
also
	synchonyses that way to my mobile phone.
	This is not a problem for dialing out, but when when someone
calls me,
	the incoming phonenumber is not recognised in the mobiles
database due
	to that added space.
	 
	Is there a way I can make Outlook save the phonenumber without
that
	space.
	I can remove the space when having a linked table in Access to
Outlook,
	So why can I not remove thet space from within VBA?
	 
	 

	 

	Erwin Craps

	Zaakvoerder 

	www.ithelps.be/onsgezin

	 

	This E-mail is confidential, may be legally privileged, and is
for the
	intended recipient only. Access, disclosure, copying,
distribution, or
	reliance on any of it by anyone else is prohibited and may be a
criminal
	offence. Please delete if obtained in error and E-mail
confirmation to
	the sender.

	IT Helps - I.T. Help Center  ***  Box Office Belgium &
Luxembourg

	www.ithelps.be <http://www.ithelps.be/>   *  www.boxoffice.be
	<http://www.boxoffice.be/>   *  www.stadleuven.be
	<http://www.stadleuven.be/> 

	IT Helps bvba* ** Mercatorpad 3 **  3000 Leuven

	IT Helps  *  Phone: +32 16 296 404  *  Fax: +32 16 296 405
E-mail:
	Info at ithelps.be 

	Box Office **  Fax: +32 16 296 406 **  Box Office E-mail:
	Staff at boxoffice.be <mailto:figures at boxoffice.be> 

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


From DWUTKA at marlow.com  Tue Jan  3 09:54:26 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Tue, 3 Jan 2006 09:54:26 -0600 
Subject: [AccessD] Saving Phonenumber format in Outlook
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD455@main2.marlow.com>

Hmmm, don't mess around with Outlook too much, but I would think there would
be somewhere to set the format for phone numbers.

Drew

	-----Original Message-----
	From:	Erwin Craps - IT Helps [SMTP:Erwin.Craps at ithelps.be]
	Sent:	Tuesday, January 03, 2006 9:18 AM
	To:	Access Developers discussion and problem solving
	Subject:	Re: [AccessD] Saving Phonenumber format in Outlook

	Euh yes, 
	but thats not the issue.

	If I do 
	Contactitem.PhoneNumber ="+3216296404"
	Debug.print Contactitem.PhoneNumber 

	I get "+32 16296404" as result

	Outlook autmaticaly adds a space.



	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
	DWUTKA at marlow.com
	Sent: Tuesday, January 03, 2006 3:28 PM
	To: accessd at databaseadvisors.com
	Subject: Re: [AccessD] Saving Phonenumber format in Outlook

	Is the Replace function not working?
	SomeString=Replace(StringWithPhoneNumber," ","")

	Drew

		-----Original Message-----
		From:	Erwin Craps - IT Helps [SMTP:Erwin.Craps at ithelps.be]
		Sent:	Tuesday, January 03, 2006 3:40 AM
		To:	accessd at databaseadvisors.com
		Subject:	[AccessD] Saving Phonenumber format in
Outlook

		 
		Hapyy New Year to you all.
		May your wishes (and mine) come true :-)
		 
		Here's my question.
		 
		I'm using in VBA the ContactItem object to save or edit a
	phonenumber
		from a contact.
		 
		I set my phonenumber in international format so when I
	synchronyse my
		Outlook contacts with my GSM/Mobile phone I can dial from
any
	country.
		 
		As you now the international format is
		+ sign (international dialing) - country code - zone
(without
	leading
		zero) - phonenumber.
		Example: +3216296404
		 
		When setting a contact phonenumber to "+3216296404" outlook
	changes it
		to "+32 16296404" with a space between the country code and
		zone+phonenumber.
		 
		Whats the big deal you would say, well the problem is that
it
	also
		synchonyses that way to my mobile phone.
		This is not a problem for dialing out, but when when someone
	calls me,
		the incoming phonenumber is not recognised in the mobiles
	database due
		to that added space.
		 
		Is there a way I can make Outlook save the phonenumber
without
	that
		space.
		I can remove the space when having a linked table in Access
to
	Outlook,
		So why can I not remove thet space from within VBA?
		 
		 

		 

		Erwin Craps

		Zaakvoerder 

		www.ithelps.be/onsgezin

		 

		This E-mail is confidential, may be legally privileged, and
is
	for the
		intended recipient only. Access, disclosure, copying,
	distribution, or
		reliance on any of it by anyone else is prohibited and may
be a
	criminal
		offence. Please delete if obtained in error and E-mail
	confirmation to
		the sender.

		IT Helps - I.T. Help Center  ***  Box Office Belgium &
	Luxembourg

		www.ithelps.be <http://www.ithelps.be/>   *
www.boxoffice.be
		<http://www.boxoffice.be/>   *  www.stadleuven.be
		<http://www.stadleuven.be/> 

		IT Helps bvba* ** Mercatorpad 3 **  3000 Leuven

		IT Helps  *  Phone: +32 16 296 404  *  Fax: +32 16 296 405
	E-mail:
		Info at ithelps.be 

		Box Office **  Fax: +32 16 296 406 **  Box Office E-mail:
		Staff at boxoffice.be <mailto:figures at boxoffice.be> 

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


From DWUTKA at marlow.com  Tue Jan  3 11:49:24 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Tue, 3 Jan 2006 11:49:24 -0600 
Subject: [AccessD] Just Curious William...
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD45F@main2.marlow.com>

How is it going with the latest 'sample' I sent ya?  

Did you figure out how to use the VB .exe I sent, to setup different shapes
for the forms?

Drew


From martyconnelly at shaw.ca  Tue Jan  3 13:03:46 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Tue, 03 Jan 2006 11:03:46 -0800
Subject: [AccessD] Saving Phonenumber format in Outlook
References: <46B976F2B698FF46A4FE7636509B22DF1B6267@stekelbes.ithelps.local>
Message-ID: <43BACA92.7080801@shaw.ca>

Maybe look through the links starting here

http://www.slipstick.com/config/ukbignumber.htm

Probably to do with one of these settings

in Outlook enter telephone numbers in full "international" or 
"canonical" format:  +xx (yyy) zzzz-zzzz
and
Telephony applet from Control Panel which determines your present phone 
location


Erwin Craps - IT Helps wrote:

>Euh yes, 
>but thats not the issue.
>
>If I do 
>Contactitem.PhoneNumber ="+3216296404"
>Debug.print Contactitem.PhoneNumber 
>
>I get "+32 16296404" as result
>
>Outlook autmaticaly adds a space.
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>DWUTKA at marlow.com
>Sent: Tuesday, January 03, 2006 3:28 PM
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] Saving Phonenumber format in Outlook
>
>Is the Replace function not working?
>SomeString=Replace(StringWithPhoneNumber," ","")
>
>Drew
>
>	-----Original Message-----
>	From:	Erwin Craps - IT Helps [SMTP:Erwin.Craps at ithelps.be]
>	Sent:	Tuesday, January 03, 2006 3:40 AM
>	To:	accessd at databaseadvisors.com
>	Subject:	[AccessD] Saving Phonenumber format in Outlook
>
>	 
>	Hapyy New Year to you all.
>	May your wishes (and mine) come true :-)
>	 
>	Here's my question.
>	 
>	I'm using in VBA the ContactItem object to save or edit a
>phonenumber
>	from a contact.
>	 
>	I set my phonenumber in international format so when I
>synchronyse my
>	Outlook contacts with my GSM/Mobile phone I can dial from any
>country.
>	 
>	As you now the international format is
>	+ sign (international dialing) - country code - zone (without
>leading
>	zero) - phonenumber.
>	Example: +3216296404
>	 
>	When setting a contact phonenumber to "+3216296404" outlook
>changes it
>	to "+32 16296404" with a space between the country code and
>	zone+phonenumber.
>	 
>	Whats the big deal you would say, well the problem is that it
>also
>	synchonyses that way to my mobile phone.
>	This is not a problem for dialing out, but when when someone
>calls me,
>	the incoming phonenumber is not recognised in the mobiles
>database due
>	to that added space.
>	 
>	Is there a way I can make Outlook save the phonenumber without
>that
>	space.
>	I can remove the space when having a linked table in Access to
>Outlook,
>	So why can I not remove thet space from within VBA?
>	 
>	 
>
>	 
>
>	Erwin Craps
>
>	Zaakvoerder 
>
>	www.ithelps.be/onsgezin
>
>	 
>
>	This E-mail is confidential, may be legally privileged, and is
>for the
>	intended recipient only. Access, disclosure, copying,
>distribution, or
>	reliance on any of it by anyone else is prohibited and may be a
>criminal
>	offence. Please delete if obtained in error and E-mail
>confirmation to
>	the sender.
>
>	IT Helps - I.T. Help Center  ***  Box Office Belgium &
>Luxembourg
>
>	www.ithelps.be <http://www.ithelps.be/>   *  www.boxoffice.be
>	<http://www.boxoffice.be/>   *  www.stadleuven.be
>	<http://www.stadleuven.be/> 
>
>	IT Helps bvba* ** Mercatorpad 3 **  3000 Leuven
>
>	IT Helps  *  Phone: +32 16 296 404  *  Fax: +32 16 296 405
>E-mail:
>	Info at ithelps.be 
>
>	Box Office **  Fax: +32 16 296 406 **  Box Office E-mail:
>	Staff at boxoffice.be <mailto:figures at boxoffice.be> 
>
>	 
>	-- 
>	AccessD mailing list
>	AccessD at databaseadvisors.com
>	http://databaseadvisors.com/mailman/listinfo/accessd
>	Website: http://www.databaseadvisors.com
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From jwelz at hotmail.com  Tue Jan  3 14:35:45 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Tue, 03 Jan 2006 13:35:45 -0700
Subject: [AccessD] More Word/graphics OT
In-Reply-To: <001001c60691$d1a0f8d0$6101a8c0@JISREGISTRATION.local>
Message-ID: <BAY113-F267A4EFB099EE26AC47ADEA12C0@phx.gbl>

Jan 1 and all my new WMF logos were in place.  I wound up being able to 
import a few pc EPS files converted from Mac format into Corel Draw 9 (they 
are up to 12 now), delete a few redundant nodes (3 in a single line with the 
same top cooridinate can be defined as well by 2), adjust the colors 
(Pantone, RGB, CMYK or several other options) and then save as WMF format.  
I now have logos varying in size from 6 to 12 K (6 to 26 character outlines, 
each with a 'swoop' line) that I believe are mathematically correct and 
scale flawlessly as replacement for the off color 2k files (10 character 
max) segmented outlines I had before.

I had started with the Trace application and it worked extremely well in the 
conversion.  After all, the logos are made up of a very simple block font 
with just a few curves.  The trace of the letter M TIFF came up with 13 
nodes (EPS file conversion had 14) for the 13 straight lines that made up 
the outline.  Although I did not ultimately use the Trace feature, it was 
head and shoulders easier to use than the PSP X that I tried.  I probably 
spent 3 hours with the PSP X help before quitting.  I just dove in with the 
Corel, traced two logos and cleaned them up and changed strategies to work 
with the EPS format imported and created/modified/revised 6 logos start to 
finish in less than the 3 hours I spent working with PSP.  I picked up a 
reference book from the library for CorelDraw! but did not need to look up 
anything to get this part of the project done.

Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "William Hindman" <wdhindman at bellsouth.net>
>
>...PSP X is well capable of doing everything you need Jurgen ...Corel just
>bought out Jasc and have not managed to screw it up as yet ...I use it all
>the time for just such tasks ...but not even Adobe Photo Shop or 
>Illustrator
>will do what you want when you start with a raster version of the logo
>...wmf is not a pure vector format and converted rasters rarely transform
>successfully into vectorized wmfs in my experience ...I'd redo the logo 
>from
>scratch in PSP as a vector image using PSP's native format rather than wmf
>...then export it as a wmf ...actually the emf format is a much better
>platform imnsho for native vector images and I much prefer it over wmf.
>
>...I had to do this for a client a few months ago and had both PSP and 
>Adobe
>CS2 available...we had a 3rd party graphics shop redo the logo in PSP's
>native format (.pspimage) and I retained that as the master ...PSP readily
>exported it as a vector emf and it resizes in Access and Word just as it
>should without any of the distortions native to resized raster images.
>
>...hth
>
>William




From martyconnelly at shaw.ca  Tue Jan  3 15:10:38 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Tue, 03 Jan 2006 13:10:38 -0800
Subject: [AccessD] More Word/graphics OT
References: <BAY113-F267A4EFB099EE26AC47ADEA12C0@phx.gbl>
Message-ID: <43BAE84E.6020109@shaw.ca>

If you are mailing this out, you may find sites blocking .wmf files, due 
to recent Windows Picture and Fax Viewer exploit flaw, until Microsoft 
unveils a patch. I don't know what the AV firms are doing in response or 
how it would affect embeded wmf's in a .doc file.
I just deregistered the dll until microsoft sorts it out.

Just thought I would cheer up your day. ;)

Yup, if you don't want to use the partial patch from Stuart's url.

Un-register the Windows Picture and Fax Viewer (Shimgvw.dll) on Windows 
XP Service Pack 1; Windows XP Service Pack 2; Windows Server 2003 and 
Windows Server 2003 Service Pack 1

http://www.microsoft.com/technet/security/advisory/912840.mspx

This will stop browser infections. BUT

Just remember this won't protect you, if you store and save a downloaded 
jpeg, then view it with MS window fax viewer,  these guys can disguise a 
.wmf  file extension as a .jpeg file and the exploit will work as the 
fax viewer will interpret it correctly as a virus loaded wmf file.


Stuart McLachlan wrote:


>Don't know how many of you are up on this, but be careful out there.
>This one is VERY nasty
>
>http://isc.sans.org/
>
>
>
>
>  



? Welz wrote:

> Jan 1 and all my new WMF logos were in place. I wound up being able to 
> import a few pc EPS files converted from Mac format into Corel Draw 9 
> (they are up to 12 now), delete a few redundant nodes (3 in a single 
> line with the same top cooridinate can be defined as well by 2), 
> adjust the colors (Pantone, RGB, CMYK or several other options) and 
> then save as WMF format. I now have logos varying in size from 6 to 12 
> K (6 to 26 character outlines, each with a 'swoop' line) that I 
> believe are mathematically correct and scale flawlessly as replacement 
> for the off color 2k files (10 character max) segmented outlines I had 
> before.
>
> I had started with the Trace application and it worked extremely well 
> in the conversion. After all, the logos are made up of a very simple 
> block font with just a few curves. The trace of the letter M TIFF came 
> up with 13 nodes (EPS file conversion had 14) for the 13 straight 
> lines that made up the outline. Although I did not ultimately use the 
> Trace feature, it was head and shoulders easier to use than the PSP X 
> that I tried. I probably spent 3 hours with the PSP X help before 
> quitting. I just dove in with the Corel, traced two logos and cleaned 
> them up and changed strategies to work with the EPS format imported 
> and created/modified/revised 6 logos start to finish in less than the 
> 3 hours I spent working with PSP. I picked up a reference book from 
> the library for CorelDraw! but did not need to look up anything to get 
> this part of the project done.
>
> Ciao
> J?rgen Welz
> Edmonton, Alberta
> jwelz at hotmail.com
>
>
>
>
>
>> From: "William Hindman" <wdhindman at bellsouth.net>
>>
>> ...PSP X is well capable of doing everything you need Jurgen ...Corel 
>> just
>> bought out Jasc and have not managed to screw it up as yet ...I use 
>> it all
>> the time for just such tasks ...but not even Adobe Photo Shop or 
>> Illustrator
>> will do what you want when you start with a raster version of the logo
>> ...wmf is not a pure vector format and converted rasters rarely 
>> transform
>> successfully into vectorized wmfs in my experience ...I'd redo the 
>> logo from
>> scratch in PSP as a vector image using PSP's native format rather 
>> than wmf
>> ...then export it as a wmf ...actually the emf format is a much better
>> platform imnsho for native vector images and I much prefer it over wmf.
>>
>> ...I had to do this for a client a few months ago and had both PSP 
>> and Adobe
>> CS2 available...we had a 3rd party graphics shop redo the logo in PSP's
>> native format (.pspimage) and I retained that as the master ...PSP 
>> readily
>> exported it as a vector emf and it resizes in Access and Word just as it
>> should without any of the distortions native to resized raster images.
>>
>> ...hth
>>
>> William
>
>
>
>------------------------------------------------------------------------
>
>No virus found in this incoming message.
>Checked by AVG Free Edition.
>Version: 7.1.371 / Virus Database: 267.14.12/220 - Release Date: 03/01/2006
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From martyconnelly at shaw.ca  Tue Jan  3 16:18:41 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Tue, 03 Jan 2006 14:18:41 -0800
Subject: [AccessD] More Word/graphics OT
References: <BAY113-F267A4EFB099EE26AC47ADEA12C0@phx.gbl>
	<43BAE84E.6020109@shaw.ca>
Message-ID: <43BAF841.6080109@shaw.ca>

I guess Microsoft is promising a patch for wmf exploit on Patch Tuesday 
Jan 10
http://www.publish.com/article2/0,1895,1907592,00.asp

MartyConnelly wrote:

>If you are mailing this out, you may find sites blocking .wmf files, due 
>to recent Windows Picture and Fax Viewer exploit flaw, until Microsoft 
>unveils a patch. I don't know what the AV firms are doing in response or 
>how it would affect embeded wmf's in a .doc file.
>I just deregistered the dll until microsoft sorts it out.
>
>Just thought I would cheer up your day. ;)
>
>Yup, if you don't want to use the partial patch from Stuart's url.
>
>Un-register the Windows Picture and Fax Viewer (Shimgvw.dll) on Windows 
>XP Service Pack 1; Windows XP Service Pack 2; Windows Server 2003 and 
>Windows Server 2003 Service Pack 1
>
>http://www.microsoft.com/technet/security/advisory/912840.mspx
>
>This will stop browser infections. BUT
>
>Just remember this won't protect you, if you store and save a downloaded 
>jpeg, then view it with MS window fax viewer,  these guys can disguise a 
>.wmf  file extension as a .jpeg file and the exploit will work as the 
>fax viewer will interpret it correctly as a virus loaded wmf file.
>
>
>Stuart McLachlan wrote:
>
>
>  
>
>>Don't know how many of you are up on this, but be careful out there.
>>This one is VERY nasty
>>
>>http://isc.sans.org/
>>
>>
>>
>>
>> 
>>    
>>
>
>
>
>? Welz wrote:
>
>  
>
>>Jan 1 and all my new WMF logos were in place. I wound up being able to 
>>import a few pc EPS files converted from Mac format into Corel Draw 9 
>>(they are up to 12 now), delete a few redundant nodes (3 in a single 
>>line with the same top cooridinate can be defined as well by 2), 
>>adjust the colors (Pantone, RGB, CMYK or several other options) and 
>>then save as WMF format. I now have logos varying in size from 6 to 12 
>>K (6 to 26 character outlines, each with a 'swoop' line) that I 
>>believe are mathematically correct and scale flawlessly as replacement 
>>for the off color 2k files (10 character max) segmented outlines I had 
>>before.
>>
>>I had started with the Trace application and it worked extremely well 
>>in the conversion. After all, the logos are made up of a very simple 
>>block font with just a few curves. The trace of the letter M TIFF came 
>>up with 13 nodes (EPS file conversion had 14) for the 13 straight 
>>lines that made up the outline. Although I did not ultimately use the 
>>Trace feature, it was head and shoulders easier to use than the PSP X 
>>that I tried. I probably spent 3 hours with the PSP X help before 
>>quitting. I just dove in with the Corel, traced two logos and cleaned 
>>them up and changed strategies to work with the EPS format imported 
>>and created/modified/revised 6 logos start to finish in less than the 
>>3 hours I spent working with PSP. I picked up a reference book from 
>>the library for CorelDraw! but did not need to look up anything to get 
>>this part of the project done.
>>
>>Ciao
>>J?rgen Welz
>>Edmonton, Alberta
>>jwelz at hotmail.com
>>
>>
>>
>>
>>
>>    
>>
>>>From: "William Hindman" <wdhindman at bellsouth.net>
>>>
>>>...PSP X is well capable of doing everything you need Jurgen ...Corel 
>>>just
>>>bought out Jasc and have not managed to screw it up as yet ...I use 
>>>it all
>>>the time for just such tasks ...but not even Adobe Photo Shop or 
>>>Illustrator
>>>will do what you want when you start with a raster version of the logo
>>>...wmf is not a pure vector format and converted rasters rarely 
>>>transform
>>>successfully into vectorized wmfs in my experience ...I'd redo the 
>>>logo from
>>>scratch in PSP as a vector image using PSP's native format rather 
>>>than wmf
>>>...then export it as a wmf ...actually the emf format is a much better
>>>platform imnsho for native vector images and I much prefer it over wmf.
>>>
>>>...I had to do this for a client a few months ago and had both PSP 
>>>and Adobe
>>>CS2 available...we had a 3rd party graphics shop redo the logo in PSP's
>>>native format (.pspimage) and I retained that as the master ...PSP 
>>>readily
>>>exported it as a vector emf and it resizes in Access and Word just as it
>>>should without any of the distortions native to resized raster images.
>>>
>>>...hth
>>>
>>>William
>>>      
>>>
>>
>>------------------------------------------------------------------------
>>
>>No virus found in this incoming message.
>>Checked by AVG Free Edition.
>>Version: 7.1.371 / Virus Database: 267.14.12/220 - Release Date: 03/01/2006
>>
>> 
>>
>>    
>>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From jmhecht at earthlink.net  Tue Jan  3 16:32:28 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 3 Jan 2006 14:32:28 -0800
Subject: [AccessD] Code Help please
Message-ID: <000c01c610b5$947ca700$6701a8c0@HPLaptop>

I asked this once before, but I lost it when my old drive
crashed:

 

In the footer I have a text box that I want visible only if
the page count is >1

 

The property in the sheet is visible = no

 

 

I have not been able to get to get to the visible property
in code

 

Private Sub PageFooterSection_Format(Cancel As Integer,
FormatCount As Integer)

If Me.Pages > 1 Then

    Me.txtFooterName.SetFocus

        Me.txtFooterName.v

 

End Sub

 

Please advise

 

Thanks

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Tue Jan  3 16:46:03 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 3 Jan 2006 14:46:03 -0800
Subject: [AccessD] Code help Please
In-Reply-To: <000601c60c87$2ae2c220$0200a8c0@danwaters>
Message-ID: <001101c610b7$7a30b5b0$6701a8c0@HPLaptop>

Dan,

That was a winner.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Dan Waters
Sent: Thursday, December 29, 2005 6:50 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Code help Please

Joe,

I read through your code, and you may be able to use
Conditional Formatting.

Select your textbox, then right-click and select Conditional
Formatting.
Then under condition 1 select 'Field Has Focus'.  Then
select the backcolor
you want to use.  In your case you will pick White, assuming
that you've set
the backcolor on your other textboxes to be yellow.

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, December 28, 2005 11:00 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Code help Please

I still do not understand public modules

 

I have the following code for a set of text boxes

 

Private Sub txtFirstName_GotFocus()

Dim lngwhite As Long

lngwhite = RGB(255, 255, 255)

Me.txtFirstName.BackColor = lngwhite

Me.txtFirstName.SpecialEffect = 1

End Sub

 

Private Sub txtFirstName_LostFocus()

Dim lngyellow As Long

lngyellow = RGB(255, 255, 0)

Me.txtFirstName.BackColor = RGB(255, 255, 0)

Me.txtFirstName.SpecialEffect = 2

End Sub

 

How do I make modules that will trigger as each text box
gets and loses focus?

 

Thanks

 

Joe Hecht

jmhecht at earthlink.net

 

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

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



From cfoust at infostatsystems.com  Tue Jan  3 16:48:12 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 3 Jan 2006 14:48:12 -0800
Subject: [AccessD] Code Help please
Message-ID: <F55048AF7E974F429BB24597D7355EEABEC6@INFOSERVER04.infostat.local>

Joe,

Do you mean you only want to show the text box if the report has
multiple pages, or you only want to show it on pages other than page 1?
There's no point in trying to set focus to a control on a report, so
what is it you want to accomplish with that?

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Tuesday, January 03, 2006 2:32 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Code Help please


I asked this once before, but I lost it when my old drive
crashed:

 

In the footer I have a text box that I want visible only if
the page count is >1

 

The property in the sheet is visible = no

 

 

I have not been able to get to get to the visible property
in code

 

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)

If Me.Pages > 1 Then

    Me.txtFooterName.SetFocus

        Me.txtFooterName.v

 

End Sub

 

Please advise

 

Thanks

 

Joe Hecht

jmhecht at earthlink.net

 

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


From jmhecht at earthlink.net  Tue Jan  3 16:51:26 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 3 Jan 2006 14:51:26 -0800
Subject: [AccessD] Code Help please
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABEC6@INFOSERVER04.infostat.local>
Message-ID: <001201c610b8$3abb7b30$6701a8c0@HPLaptop>

I want it to show if there is more than one page.

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Tuesday, January 03, 2006 2:48 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Code Help please

Joe,

Do you mean you only want to show the text box if the report
has
multiple pages, or you only want to show it on pages other
than page 1?
There's no point in trying to set focus to a control on a
report, so
what is it you want to accomplish with that?

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 03, 2006 2:32 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Code Help please


I asked this once before, but I lost it when my old drive
crashed:

 

In the footer I have a text box that I want visible only if
the page count is >1

 

The property in the sheet is visible = no

 

 

I have not been able to get to get to the visible property
in code

 

Private Sub PageFooterSection_Format(Cancel As Integer,
FormatCount As
Integer)

If Me.Pages > 1 Then

    Me.txtFooterName.SetFocus

        Me.txtFooterName.v

 

End Sub

 

Please advise

 

Thanks

 

Joe Hecht

jmhecht at earthlink.net

 

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



From cfoust at infostatsystems.com  Tue Jan  3 17:24:06 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 3 Jan 2006 15:24:06 -0800
Subject: [AccessD] Code Help please
Message-ID: <F55048AF7E974F429BB24597D7355EEABEC7@INFOSERVER04.infostat.local>

In that case, try checking for Pages > 1 in the ReportHeader_Format and
set the visibility of the control from there.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Tuesday, January 03, 2006 2:51 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Code Help please


I want it to show if there is more than one page.

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Tuesday, January 03, 2006 2:48 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Code Help please

Joe,

Do you mean you only want to show the text box if the report has
multiple pages, or you only want to show it on pages other than page 1?
There's no point in trying to set focus to a control on a report, so
what is it you want to accomplish with that?

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 03, 2006 2:32 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Code Help please


I asked this once before, but I lost it when my old drive
crashed:

 

In the footer I have a text box that I want visible only if
the page count is >1

 

The property in the sheet is visible = no

 

 

I have not been able to get to get to the visible property
in code

 

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As
Integer)

If Me.Pages > 1 Then

    Me.txtFooterName.SetFocus

        Me.txtFooterName.v

 

End Sub

 


From wdhindman at bellsouth.net  Tue Jan  3 17:40:30 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Tue, 3 Jan 2006 18:40:30 -0500
Subject: [AccessD] Just Curious William...
References: <17724746D360394AA3BFE5B8D40A9C1BD45F@main2.marlow.com>
Message-ID: <001101c610bf$162e5150$6101a8c0@JISREGISTRATION.local>

...sample works fine Drew ...but the saved shape form is corrupting for some 
reason ...have not had time to chase it down ...been working on real dbs and 
sorting out little things ...trying to get a dao version working ...marrying 
the minimize all with timers I use to monitor inactivity ...etc. ...its a 
new paradigm and requires rethinking of a number of old code standards 
...and working through my default code modules to find conflicts and dupes 
...declare aliases, etc.

...but the pain is worthwhile ...the effect is striking and the demo I've 
worked up looks nothing like Access.

William

----- Original Message ----- 
From: <DWUTKA at marlow.com>
To: <AccessD at databaseadvisors.com>
Sent: Tuesday, January 03, 2006 12:49 PM
Subject: [AccessD] Just Curious William...


> How is it going with the latest 'sample' I sent ya?
>
> Did you figure out how to use the VB .exe I sent, to setup different 
> shapes
> for the forms?
>
> Drew
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com 




From DWUTKA at marlow.com  Tue Jan  3 17:57:37 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Tue, 3 Jan 2006 17:57:37 -0600 
Subject: [AccessD] Just Curious William...
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD467@main2.marlow.com>

Cool.  The 'sample' is still live, you may have goofed the data in the memo
field which is used to create that form's shape.  I figured putting the Byte
Array into a table was the best option, you could just put that data into a
flat file, and have it opened, read, and closed just as fast as Access is
going to read the data from the memo field.

Drew

-----Original Message-----
From: William Hindman [mailto:wdhindman at bellsouth.net]
Sent: Tuesday, January 03, 2006 5:41 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Just Curious William...


...sample works fine Drew ...but the saved shape form is corrupting for some

reason ...have not had time to chase it down ...been working on real dbs and

sorting out little things ...trying to get a dao version working ...marrying

the minimize all with timers I use to monitor inactivity ...etc. ...its a 
new paradigm and requires rethinking of a number of old code standards 
...and working through my default code modules to find conflicts and dupes 
...declare aliases, etc.

...but the pain is worthwhile ...the effect is striking and the demo I've 
worked up looks nothing like Access.

William

----- Original Message ----- 
From: <DWUTKA at marlow.com>
To: <AccessD at databaseadvisors.com>
Sent: Tuesday, January 03, 2006 12:49 PM
Subject: [AccessD] Just Curious William...


> How is it going with the latest 'sample' I sent ya?
>
> Did you figure out how to use the VB .exe I sent, to setup different 
> shapes
> for the forms?
>
> Drew
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com 


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


From dwaters at usinternet.com  Wed Jan  4 08:26:35 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Wed, 4 Jan 2006 08:26:35 -0600
Subject: [AccessD] SendKeys Reverse Tab
Message-ID: <000001c6113a$df41bac0$0200a8c0@danwaters>

I'd like to use SendKeys to do a reverse Tab.  A forward tab is:

    SendKeys Chr(9)

How do you change this to reverse the direction?

Thanks!
Dan 



From RRANTHON at sentara.com  Wed Jan  4 09:01:10 2006
From: RRANTHON at sentara.com (Randall R Anthony)
Date: Wed, 04 Jan 2006 10:01:10 -0500
Subject: [AccessD] SendKeys Reverse Tab
In-Reply-To: <000001c6113a$df41bac0$0200a8c0@danwaters>
References: <000001c6113a$df41bac0$0200a8c0@danwaters>
Message-ID: <200601041501.k04F1TV18471@databaseadvisors.com>

According to A97 help, Sendkeys "+{TAB}" should do that (+) = shift.  I
couldn't find what Chr constant it is.

>>> dwaters at usinternet.com 01/04/06 9:26 AM >>>
I'd like to use SendKeys to do a reverse Tab.  A forward tab is:

    SendKeys Chr(9)

How do you change this to reverse the direction?

Thanks!
Dan 

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


From bchacc at san.rr.com  Wed Jan  4 09:04:01 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Wed, 4 Jan 2006 07:04:01 -0800
Subject: [AccessD] SendKeys Reverse Tab
References: <000001c6113a$df41bac0$0200a8c0@danwaters>
Message-ID: <062d01c61140$189cdbb0$6801a8c0@HAL9004>

Dan:

On the keyboard it's Shift-Tab, but I don't know the ASCII equivalent.  You 
could write a quick routing to trap the keystroke and display it if someone 
doesn't know offhand what the Shift-Tab code is.

Regards,

Rocky Smolin
Beach Access Software
http://www.e-z-mrp.com
858-259-4334
----- Original Message ----- 
From: "Dan Waters" <dwaters at usinternet.com>
To: "AccessD" <accessd at databaseadvisors.com>
Sent: Wednesday, January 04, 2006 6:26 AM
Subject: [AccessD] SendKeys Reverse Tab


> I'd like to use SendKeys to do a reverse Tab.  A forward tab is:
>
>    SendKeys Chr(9)
>
> How do you change this to reverse the direction?
>
> Thanks!
> Dan
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From rusty.hammond at cpiqpc.com  Wed Jan  4 09:09:13 2006
From: rusty.hammond at cpiqpc.com (rusty.hammond at cpiqpc.com)
Date: Wed, 4 Jan 2006 09:09:13 -0600 
Subject: [AccessD] SendKeys Reverse Tab
Message-ID: <8301C8A868251E4C8ECD3D4FFEA40F8A154F83FB@cpixchng-1.cpiqpc.net>

How about sending a shift like:

SendKeys "+{Tab}"

HTH

Rusty

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 04, 2006 8:27 AM
To: AccessD
Subject: [AccessD] SendKeys Reverse Tab


I'd like to use SendKeys to do a reverse Tab.  A forward tab is:

    SendKeys Chr(9)

How do you change this to reverse the direction?

Thanks!
Dan 

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

**********************************************************************
WARNING: All e-mail sent to and from this address will be received,
scanned or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
corporate e-mail system and is subject to archival, monitoring or review 
by, and/or disclosure to, someone other than the recipient.
**********************************************************************


From Jdemarco at hudsonhealthplan.org  Wed Jan  4 10:29:43 2006
From: Jdemarco at hudsonhealthplan.org (Jim DeMarco)
Date: Wed, 4 Jan 2006 11:29:43 -0500
Subject: [AccessD] Scanning into mdb
Message-ID: <08F823FD83787D4BA0B99CA580AD3C74016C4358@TTNEXCHCL2.hshhp.com>

Thanks Jim.  

Did you use the Kodak Imaging control to call the scanner?

Jim DeMarco

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Jim Lawrence
Sent: Thursday, December 29, 2005 5:06 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Scanning into mdb


Hi Jim:

In the application that I wrote the scanner program was called from the
Access app and therefore I could hard code the profile, naming and save-path
of the scanned images... similar to the feature of a full-licensed version
of WinZip. I did not have to encrypt the images (jpg) as the application
also moved the graphics to a secure centralized directory on the server,
after the new image was saved locally.

HTH
Jim
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim DeMarco
Sent: December 29, 2005 10:25 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Scanning into mdb

Thanks Jim and Jim who replied from Jim who posted!

So I gather I should save to files or encrypt the BLOBs.  WinZip has some
automation tools.  I wonder if I should see if I can zip the images and
password protect the zip file?  Hmm.

I asked about TWAIN support because I thought the Kodak image control was
removed from XP.  Doesn't that have something to do with imaging in Access?

One last question.  If I can scan the images can I automate the saving and
naming of the files or will the user have to do that?

Thanks again

Jim DeMarco

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Jim Dettman
Sent: Thursday, December 29, 2005 12:50 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Scanning into mdb


<<1. Did you scan into BLOB data fields or store in graphic image format?
I'd prefer to use BLOBs as we'll be scanning HIPAA protected personal health
information and I don't want files on the laptops that anyone can access.
If you used BLOBs how did you tell the scanner where to store the data?>>

  Definitely want to go with a file on disk in some type of graphic format.
If you let Access handle the insert, it places an OLE wrapper around the
object which can double the storage required.

  If you really want, you can save the image to disk first, then pull into a
BLOB on your own.  That will avoid the bloating issue.  However you'll need
to export the BLOB back out to be able to do anything with it.

  In your case, this might be a good fit, as Access on it's own is easily
crackable and I'm sure would not meet HIPPA standards. When your write/read
the BLOB, you can use some form of encryption on it.  Then distribute the
app as a MDE so your code can't be looked at.

<<2. Are BLOBs an issue in A97?  The users fear data corruption.  There will
be 1-200 medical charts scanned in per day then the data is replicated back
to our main db here.>>

  I've never found memo or OLE fields to be an issue.  Others have.  A lot I
think depends on the type of environment the app runs in and the fact that
many people try to make Access do things it was never meant to do (like run
over a WAN).

<<3. We will be moving to A2K3 within the next few months and probably Win
XP (from 2000).  Will twain support in A2K3 and WinXP be an issue?  If so
what can I do in our A97 app now that will prevent issues when we upgrade
the mdb?  Are BLOBs an issue in A2K3?>>

  I can't think of any specific issues; all the drivers will still be 32 bit
and twain support has changed little if any over the years.

HTH,
Jim.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Jim DeMarco
Sent: Thursday, December 29, 2005 10:58 AM
To: AccessD (E-mail)
Subject: [AccessD] Scanning into mdb


List,

I see in the archives that some of you have implemented scanning of images
into your Access systems.  I'm being asked to add some imaging to an
existing A97 app that runs in the field on laptops and I've got some
questions.

1. Did you scan into BLOB data fields or store in graphic image format?  I'd
prefer to use BLOBs as we'll be scanning HIPAA protected personal health
information and I don't want files on the laptops that anyone can access.
If you used BLOBs how did you tell the scanner where to store the data?

2. Are BLOBs an issue in A97?  The users fear data corruption.  There will
be 1-200 medical charts scanned in per day then the data is replicated back
to our main db here.

3. We will be moving to A2K3 within the next few months and probably Win XP
(from 2000).  Will twain support in A2K3 and WinXP be an issue?  If so what
can I do in our A97 app now that will prevent issues when we upgrade the
mdb?  Are BLOBs an issue in A2K3?

This app is for data collection only and if we do store as BLOB we will
convert to graphic image for storage and retrieval here so the images would
not sit in the mdb for long.

TIA

Jim DeMarco
Director of Application Development
Hudson Health Plan


****************************************************************************
*******
"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".
****************************************************************************
*******

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


-- 
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".
****************************************************************************
*******

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

-- 
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".
***********************************************************************************



From prodevmg at yahoo.com  Wed Jan  4 10:43:15 2006
From: prodevmg at yahoo.com (Lonnie Johnson)
Date: Wed, 4 Jan 2006 08:43:15 -0800 (PST)
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
Message-ID: <20060104164315.38543.qmail@web33104.mail.mud.yahoo.com>

Is there a process by which an Access report can be saved to a pdf file then attached to an email without any manaul intervention or use of additional dll files?



May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us





 





			
---------------------------------
Yahoo! Photos
 Ring in the New Year with Photo Calendars. Add photos, events, holidays, whatever.

From harkinsss at bellsouth.net  Wed Jan  4 10:45:23 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Wed, 4 Jan 2006 11:45:23 -0500
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
In-Reply-To: <20060104164315.38543.qmail@web33104.mail.mud.yahoo.com>
Message-ID: <20060104164522.UPSP26589.ibm70aec.bellsouth.net@SUSANONE>

What do you mean by "manual intervention or use of additional dll files?" 

You can do this with a little code, but there's no built-in feature for
doing it. 

Susan  H.  


Is there a process by which an Access report can be saved to a pdf file then
attached to an email without any manaul intervention or use of additional
dll files?




From prodevmg at yahoo.com  Wed Jan  4 10:48:48 2006
From: prodevmg at yahoo.com (Lonnie Johnson)
Date: Wed, 4 Jan 2006 08:48:48 -0800 (PST)
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
Message-ID: <20060104164848.20737.qmail@web33110.mail.mud.yahoo.com>

Is there a process by which an Access report can be saved to a pdf file then attached to an email without any manaul intervention or use of additional dll files?



May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us





 





			
---------------------------------
Yahoo! Photos
 Ring in the New Year with Photo Calendars. Add photos, events, holidays, whatever.

From cfoust at infostatsystems.com  Wed Jan  4 10:53:46 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 08:53:46 -0800
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
Message-ID: <F55048AF7E974F429BB24597D7355EEABEC9@INFOSERVER04.infostat.local>

You also need a PDF (virtual) printer.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Wednesday, January 04, 2006 8:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Access Report to PDF File to EMAIL Attachement


What do you mean by "manual intervention or use of additional dll
files?" 

You can do this with a little code, but there's no built-in feature for
doing it. 

Susan  H.  


Is there a process by which an Access report can be saved to a pdf file
then attached to an email without any manaul intervention or use of
additional dll files?


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


From prodevmg at yahoo.com  Wed Jan  4 10:54:56 2006
From: prodevmg at yahoo.com (Lonnie Johnson)
Date: Wed, 4 Jan 2006 08:54:56 -0800 (PST)
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
In-Reply-To: <20060104164522.UPSP26589.ibm70aec.bellsouth.net@SUSANONE>
Message-ID: <20060104165456.8024.qmail@web33108.mail.mud.yahoo.com>

Thanks for your response Susan.
   
  Manual Intervention:
  I have one procedure that opens the report and then the user saves the report as a PDF through the FILE==>PRINT option. Then they manually attach the file to an email. 
   
  dll Files: 
  The other procedure that was given to me requires two dll files to work in concert with some code, but we are having problems getting the dll files to work on every machine. 
   
  Thanks again for taking the time.

Susan Harkins <harkinsss at bellsouth.net> wrote:
  What do you mean by "manual intervention or use of additional dll files?" 

You can do this with a little code, but there's no built-in feature for
doing it. 

Susan H. 


Is there a process by which an Access report can be saved to a pdf file then
attached to an email without any manaul intervention or use of additional
dll files?


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




May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us





 





		
---------------------------------
 Yahoo! DSL Something to write home about. Just $16.99/mo. or less

From bchacc at san.rr.com  Wed Jan  4 11:20:45 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Wed, 4 Jan 2006 09:20:45 -0800
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
References: <20060104164315.38543.qmail@web33104.mail.mud.yahoo.com>
Message-ID: <072601c61153$32f347c0$6801a8c0@HAL9004>

Lonnie:

Get Primo PDF (you can Google it).  Free pdf printer.  I use it all the 
time.  Installs like a printer.  So you do your report in print preview, hit 
Ctrl-P and select it from the list of installed printers.  Recipient needs 
Acrobat Reader to view it but everybody's got that now, I think.

Rocky

----- Original Message ----- 
From: "Lonnie Johnson" <prodevmg at yahoo.com>
To: "'MS-ACCESS-L at lists.missouri.edu'" <ms-access-l at po.missouri.edu>; 
"AccessDevelopers" <accessdevelopers at yahoogroups.com>; "ms_access" 
<ms_access at yahoogroups.com>; "Access Professionals" 
<ms_access_professionals at yahoogroups.com>; "AccessD solving'" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 04, 2006 8:43 AM
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement


> Is there a process by which an Access report can be saved to a pdf file 
> then attached to an email without any manaul intervention or use of 
> additional dll files?
>
>
>
> May God bless you beyond your imagination!
> Lonnie Johnson
> ProDev, Professional Development of MS Access Databases
> Visit me at ==> http://www.prodev.us
>
>
>
>
>
>
>
>
>
>
>
>
> ---------------------------------
> Yahoo! Photos
> Ring in the New Year with Photo Calendars. Add photos, events, holidays, 
> whatever.
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From Gustav at cactus.dk  Wed Jan  4 11:36:21 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 04 Jan 2006 18:36:21 +0100
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
Message-ID: <s3bc15cf.065@cactus.dk>

Hi Lonnie

Not quite sure if this is what you are looking for, but we use the free FreePDF XP (which uses the Apple Postscript printer driver and Ghostscript for high quality):

  http://freepdfxp.de/fpxp.htm 

It features a large button for sending the created file by e-mail via the user's mail program:

  http://freepdfxp.de/fpxpscreenshots2.htm 

The site is in German but during install you may choose English.

/gustav


----- Original Message ----- 
From: "Lonnie Johnson" <prodevmg at yahoo.com>
To: "'MS-ACCESS-L at lists.missouri.edu'" <ms-access-l at po.missouri.edu>; 
"AccessDevelopers" <accessdevelopers at yahoogroups.com>; "ms_access" 
<ms_access at yahoogroups.com>; "Access Professionals" 
<ms_access_professionals at yahoogroups.com>; "AccessD solving'" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 04, 2006 8:43 AM
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement


> Is there a process by which an Access report can be saved to a pdf file 
> then attached to an email without any manaul intervention or use of 
> additional dll files?




From jmhecht at earthlink.net  Wed Jan  4 11:37:38 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 09:37:38 -0800
Subject: [AccessD] Text Box True False Question
Message-ID: <000301c61155$8edc6a60$6701a8c0@HPLaptop>

I have a yes no text box. Without the focus it shows
correctly yes or no. When it gets focus it shows a zero or a
non zero value. How do I force it to show yes or no when it
has focus.

 

Thanks

 

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Wed Jan  4 11:46:42 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 09:46:42 -0800
Subject: [AccessD] Check Box Back Color
Message-ID: <000801c61156$d2e301f0$6701a8c0@HPLaptop>

Thanks to those who turned me on to conditional formatting.
Excellent answer.

 

I now need to be able to manipulate the back color of check
boxes depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 



From cfoust at infostatsystems.com  Wed Jan  4 12:05:34 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 10:05:34 -0800
Subject: [AccessD] Check Box Back Color
Message-ID: <F55048AF7E974F429BB24597D7355EEABECB@INFOSERVER04.infostat.local>

If I recall correctly, checkboxes are the one control you have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting. Excellent
answer.

 

I now need to be able to manipulate the back color of check boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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


From jmhecht at earthlink.net  Wed Jan  4 12:08:49 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 10:08:49 -0800
Subject: [AccessD] Check Box Back Color
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABECB@INFOSERVER04.infostat.local>
Message-ID: <001701c61159$ea1787d0$6701a8c0@HPLaptop>

May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting.
Excellent
answer.

 

I now need to be able to manipulate the back color of check
boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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



From dmcafee at pacbell.net  Wed Jan  4 12:10:32 2006
From: dmcafee at pacbell.net (David McAfee)
Date: Wed, 4 Jan 2006 10:10:32 -0800
Subject: [AccessD] SendKeys Reverse Tab
In-Reply-To: <000001c6113a$df41bac0$0200a8c0@danwaters>
Message-ID: <MAELJIKADABIDLHFDKKNMEPICGAA.dmcafee@pacbell.net>

Rather than use SendKeys which creates all sorts of fun (numlock turns off)


Try calling MoveToPreviousControl:


Private Sub MoveToPreviousControl()
    If Me.ActiveControl.TabIndex = 0 Then
        Me.Controls(Me.Controls.Count - 1).SetFocus
    Else
        Me.Controls(Me.ActiveControl.TabIndex - 1).SetFocus
    End If
End Sub

Private Sub MoveToNextControl()
    If Me.ActiveControl.TabIndex >= Me.Controls.Count - 1 Then
        Me.Controls(0).SetFocus
    Else
        Me.Controls(Me.ActiveControl.TabIndex + 1).SetFocus
    End If
End Sub

I whipped up a small sample database if you need to see a working copy

David McAfee



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Dan Waters
Sent: Wednesday, January 04, 2006 6:27 AM
To: AccessD
Subject: [AccessD] SendKeys Reverse Tab


I'd like to use SendKeys to do a reverse Tab.  A forward tab is:

    SendKeys Chr(9)

How do you change this to reverse the direction?

Thanks!
Dan 

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


From jmhecht at earthlink.net  Wed Jan  4 12:11:21 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 10:11:21 -0800
Subject: [AccessD] Tab Control & Sub Form
Message-ID: <001801c6115a$4466e280$6701a8c0@HPLaptop>

When using a tab control, how does one make sure the sub
form is in the same place on each page so it does not seem
to jump as you change each page?

 

Thanks 

 

Joe Hecht

jmhecht at earthlink.net

 



From cfoust at infostatsystems.com  Wed Jan  4 12:13:14 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 10:13:14 -0800
Subject: [AccessD] Check Box Back Color
Message-ID: <F55048AF7E974F429BB24597D7355EEABECC@INFOSERVER04.infostat.local>

Ticking along like a Timex.  Thanks for asking. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:09 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting. Excellent
answer.

 

I now need to be able to manipulate the back color of check boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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


From Gustav at cactus.dk  Wed Jan  4 12:13:35 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 04 Jan 2006 19:13:35 +0100
Subject: [AccessD] Text Box True False Question
Message-ID: <s3bc1e6e.067@cactus.dk>

Hi Joe

One way around this is to replace the textbox with a combo- or listbox.

Use a value list and change the RowSource to:
  -1;Yes;0;No
Set ColumnCount to 2 and set ColumnWidths to 0". 

/gustav

>>> jmhecht at earthlink.net 04-01-2006 18:37:38 >>>
I have a yes no text box. Without the focus it shows
correctly yes or no. When it gets focus it shows a zero or a
non zero value. How do I force it to show yes or no when it
has focus.




From Jim.Hale at FleetPride.com  Wed Jan  4 12:13:57 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Wed, 4 Jan 2006 12:13:57 -0600 
Subject: [AccessD] Access Report to PDF File to EMAIL Attachement
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD92C@corp-es01.fleetpride.com>

Using PowerPDF I have this code behind a button to "print" the report. Maybe
someone else can share the code to save the file and attach it to an email
automatically.
Jim Hale

Private Sub CmdPrintPDF_Click()
    Dim lngRetval As Long
On Error GoTo Err_CmdPrintPDF_Click
    lngRetval = MsgBox( _
        "Do you want to print the report?", _
        vbYesNo + vbQuestion + vbSystemModal + vbDefaultButton1, _
        "Daily Sales Report")

    Select Case lngRetval
    
        Case vbYes
            Application.ActivePrinter = "PowerPDF Printer on VSP1:"
            ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:= _
            "PowerPDF Printer on VSP1:"
        Case vbNo
    End Select
The_End:
    
Exit Sub

Err_CmdPrintPDF_Click:
     MsgBox "The following error occured: " & Error$
    Resume The_End

End Sub

-----Original Message-----
From: Lonnie Johnson [mailto:prodevmg at yahoo.com]
Sent: Wednesday, January 04, 2006 10:55 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Access Report to PDF File to EMAIL Attachement


Thanks for your response Susan.
   
  Manual Intervention:
  I have one procedure that opens the report and then the user saves the
report as a PDF through the FILE==>PRINT option. Then they manually attach
the file to an email. 
   
  dll Files: 
  The other procedure that was given to me requires two dll files to work in
concert with some code, but we are having problems getting the dll files to
work on every machine. 
   
  Thanks again for taking the time.

Susan Harkins <harkinsss at bellsouth.net> wrote:
  What do you mean by "manual intervention or use of additional dll files?" 

You can do this with a little code, but there's no built-in feature for
doing it. 

Susan H. 


Is there a process by which an Access report can be saved to a pdf file then
attached to an email without any manaul intervention or use of additional
dll files?


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




May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us





 





		
---------------------------------
 Yahoo! DSL Something to write home about. Just $16.99/mo. or less
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From andy at minstersystems.co.uk  Wed Jan  4 12:16:05 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Wed, 4 Jan 2006 18:16:05 -0000
Subject: [AccessD] Tab Control & Sub Form
In-Reply-To: <001801c6115a$4466e280$6701a8c0@HPLaptop>
Message-ID: <003901c6115a$ed82d0e0$d8ac0c54@minster33c3r25>

Well you set the Left and Top (and maybe Height and Width) properties to be
the same on each subform. JC used to have some clever thingy on his site to
help you do this. Don't know if it's still there.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
> Sent: 04 January 2006 18:11
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Tab Control & Sub Form
> 
> 
> When using a tab control, how does one make sure the sub
> form is in the same place on each page so it does not seem
> to jump as you change each page?
> 
>  
> 
> Thanks 
> 
>  
> 
> Joe Hecht
> 
> jmhecht at earthlink.net
> 
>  
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From Lambert.Heenan at AIG.com  Wed Jan  4 12:18:34 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 4 Jan 2006 12:18:34 -0600 
Subject: [AccessD] Tab Control & Sub Form
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19DC46@xlivmbx21.aig.com>

Set the Top and Left properties for each subform control to the same values.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 1:11 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Tab Control & Sub Form


When using a tab control, how does one make sure the sub
form is in the same place on each page so it does not seem
to jump as you change each page?

 

Thanks 

 

Joe Hecht

jmhecht at earthlink.net



From jmhecht at earthlink.net  Wed Jan  4 12:19:38 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 10:19:38 -0800
Subject: [AccessD] Check Box Back Color
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABECC@INFOSERVER04.infostat.local>
Message-ID: <001d01c6115b$6ca7f300$6701a8c0@HPLaptop>

If you are set to Timex I hope the leap second on 1/1 did
not hurt. ;)

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 04, 2006 10:13 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

Ticking along like a Timex.  Thanks for asking. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 10:09 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting.
Excellent
answer.

 

I now need to be able to manipulate the back color of check
boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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



From papparuff at comcast.net  Wed Jan  4 12:20:46 2006
From: papparuff at comcast.net (John Ruff)
Date: Wed, 4 Jan 2006 10:20:46 -0800
Subject: [AccessD] Tab Control & Sub Form
In-Reply-To: <001801c6115a$4466e280$6701a8c0@HPLaptop>
Message-ID: <003601c6115b$95a6a3a0$6a01a8c0@DDMJWX41>

Each subform has a Left, Top, Width, and Height properties. Set the Left and
Top properties to the same value for each subform.

John V. Ruff - The Eternal Optimist :-)
 
"Commit to the Lord whatever you do,
                and your plans will succeed." Proverbs 16:3
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:11 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Tab Control & Sub Form

When using a tab control, how does one make sure the sub
form is in the same place on each page so it does not seem
to jump as you change each page?

 

Thanks 

 

Joe Hecht

jmhecht at earthlink.net

 

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



From Jim.Hale at FleetPride.com  Wed Jan  4 12:22:30 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Wed, 4 Jan 2006 12:22:30 -0600 
Subject: [AccessD] Check Box Back Color
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD92D@corp-es01.fleetpride.com>

Hmmm.... you know they added a second to clocks on 1/1. Does this mean your
heart skipped a beat? (glad you are OK BTW)
Jim Hale

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Wednesday, January 04, 2006 12:13 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color


Ticking along like a Timex.  Thanks for asking. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:09 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting. Excellent
answer.

 

I now need to be able to manipulate the back color of check boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From cfoust at infostatsystems.com  Wed Jan  4 12:27:03 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 10:27:03 -0800
Subject: [AccessD] Tab Control & Sub Form
Message-ID: <F55048AF7E974F429BB24597D7355EEABECD@INFOSERVER04.infostat.local>

Only way I've found is to copy the top and left settings for the subform
control from one to all the rest.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:11 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Tab Control & Sub Form


When using a tab control, how does one make sure the sub
form is in the same place on each page so it does not seem
to jump as you change each page?

 

Thanks 

 

Joe Hecht

jmhecht at earthlink.net

 

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


From cfoust at infostatsystems.com  Wed Jan  4 12:27:45 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 10:27:45 -0800
Subject: [AccessD] Text Box True False Question
Message-ID: <F55048AF7E974F429BB24597D7355EEABECE@INFOSERVER04.infostat.local>

Or an option group, which is even easier

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 04, 2006 10:14 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Text Box True False Question


Hi Joe

One way around this is to replace the textbox with a combo- or listbox.

Use a value list and change the RowSource to:
  -1;Yes;0;No
Set ColumnCount to 2 and set ColumnWidths to 0". 

/gustav

>>> jmhecht at earthlink.net 04-01-2006 18:37:38 >>>
I have a yes no text box. Without the focus it shows
correctly yes or no. When it gets focus it shows a zero or a non zero
value. How do I force it to show yes or no when it has focus.


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


From cfoust at infostatsystems.com  Wed Jan  4 12:28:47 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 10:28:47 -0800
Subject: [AccessD] Check Box Back Color
Message-ID: <F55048AF7E974F429BB24597D7355EEABECF@INFOSERVER04.infostat.local>

No, I just leapt lightly into the air before settling back into my
chair. <g>

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:20 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


If you are set to Timex I hope the leap second on 1/1 did
not hurt. ;)

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:13 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

Ticking along like a Timex.  Thanks for asking. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 10:09 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting. Excellent
answer.

 

I now need to be able to manipulate the back color of check boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

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


From cfoust at infostatsystems.com  Wed Jan  4 12:29:35 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 10:29:35 -0800
Subject: [AccessD] Check Box Back Color
Message-ID: <F55048AF7E974F429BB24597D7355EEABED0@INFOSERVER04.infostat.local>

My heart often skips a beat, especially when I'm arguing with Drew or
JC! LOL

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 04, 2006 10:22 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


Hmmm.... you know they added a second to clocks on 1/1. Does this mean
your heart skipped a beat? (glad you are OK BTW) Jim Hale

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Wednesday, January 04, 2006 12:13 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color


Ticking along like a Timex.  Thanks for asking. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:09 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting. Excellent
answer.

 

I now need to be able to manipulate the back color of check boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or other
use of or taking action in reliance upon this information by persons or
entities other than the intended recipient is prohibited. If you have
received this email in error please contact the sender and delete the
material from any computer. As a recipient of this email, you are
responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From accessd at shaw.ca  Wed Jan  4 12:47:27 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Wed, 04 Jan 2006 10:47:27 -0800
Subject: [AccessD] OT Super interesting options
In-Reply-To: <08F823FD83787D4BA0B99CA580AD3C74016C4358@TTNEXCHCL2.hshhp.com>
Message-ID: <000c01c6115f$4f7e9960$017ba8c0@xpserver>

OT

This is totally off topic but the potential and product is so interesting
that, with my apologies, I had to post it here.

Check this web site out: http://www.hamachi.cc/ and listen to the linked pod
cast: 
http://reference.creativesystemdesigns.com/Downloads/Hamachi.pod 
(Remember to set the downloaded pod file's extension to 'mp3' so you can
play it.) 

Jim



From martyconnelly at shaw.ca  Wed Jan  4 12:48:22 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Wed, 04 Jan 2006 10:48:22 -0800
Subject: [AccessD] SendKeys Reverse Tab
References: <MAELJIKADABIDLHFDKKNMEPICGAA.dmcafee@pacbell.net>
Message-ID: <43BC1876.4010704@shaw.ca>

Or I prefer this general method " keybd_event ". Just make sure the 
proper control has focus
,if you execute this code from a command button, it will have the focus.
This also gets around SendKeys problems
Other interesting affects you can minimize all open windows with 
"Windows + M " key depression


Private Const VK_LWIN = &H5B 'Left window button
Private Const VK_RETURN = &HD  'ENTER key
Private Const VK_SHIFT = &H10 'SHIFT key
Private Const VK_CONTROL = &H11 'CTRL key
Private Const VK_MENU = &H12 'ALT key
Private Const VK_PAUSE = &H13 'PAUSE key
Private Const VK_CAPITAL = &H14 'CAPS LOCK key
Private Const VK_SNAPSHOT = &H2C  'Print Screen
Private Const VK_APPS = &H5D
         'Applications or "Windows" key on a Microsoft Natural Keyboard
'from http://support.microsoft.com/view/dev.asp?kb=242971

Const GW_HWNDFIRST = 0
Const GW_HWNDNEXT = 2
Private Const KEYEVENTF_KEYUP = &H2
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, ByVal dwflags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As 
Long) As Integer

Sub reversetab()
' You can use the same technique to programmatically "press" any other
' key, including Shift, Ctrl, Alt and keys combinations that can't be
' simulated through SendKeys
Dim ShiftState As Integer, CtrlState As Integer, AltState As Integer
'use next four lines to check for prior ctrl shift alt depression
 '       ShiftState = GetKeyState(VK_SHIFT) And &H80
 '       CtrlState = GetKeyState(VK_CONTROL) And &H80
 '       AltState = GetKeyState(VK_MENU) And &H80
'        Debug.Print ShiftState; CtrlState; AltState

    ' programmatically press the Shift key
    keybd_event vbKeyShift, 0, 0, 0
    ' then press and then release the Tab key
    keybd_event vbKeyTab, 0, 0, 0
    keybd_event vbKeyTab, 0, KEYEVENTF_KEYUP, 0
    ' and finally release the Shift Key
    keybd_event vbKeyShift, 0, KEYEVENTF_KEYUP, 0
End Sub


David McAfee wrote:

>Rather than use SendKeys which creates all sorts of fun (numlock turns off)
>
>
>Try calling MoveToPreviousControl:
>
>
>Private Sub MoveToPreviousControl()
>    If Me.ActiveControl.TabIndex = 0 Then
>        Me.Controls(Me.Controls.Count - 1).SetFocus
>    Else
>        Me.Controls(Me.ActiveControl.TabIndex - 1).SetFocus
>    End If
>End Sub
>
>Private Sub MoveToNextControl()
>    If Me.ActiveControl.TabIndex >= Me.Controls.Count - 1 Then
>        Me.Controls(0).SetFocus
>    Else
>        Me.Controls(Me.ActiveControl.TabIndex + 1).SetFocus
>    End If
>End Sub
>
>I whipped up a small sample database if you need to see a working copy
>
>David McAfee
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Dan Waters
>Sent: Wednesday, January 04, 2006 6:27 AM
>To: AccessD
>Subject: [AccessD] SendKeys Reverse Tab
>
>
>I'd like to use SendKeys to do a reverse Tab.  A forward tab is:
>
>    SendKeys Chr(9)
>
>How do you change this to reverse the direction?
>
>Thanks!
>Dan 
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From DWUTKA at marlow.com  Wed Jan  4 13:30:18 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Wed, 4 Jan 2006 13:30:18 -0600 
Subject: [AccessD] Check Box Back Color
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD485@main2.marlow.com>

Does this mean I need to treat ya with 'kid gloves'?  So did you get blue
tooth with the new one?  Maybe MP3 capability?

Drew

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Wednesday, January 04, 2006 12:30 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color


My heart often skips a beat, especially when I'm arguing with Drew or
JC! LOL

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 04, 2006 10:22 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


Hmmm.... you know they added a second to clocks on 1/1. Does this mean
your heart skipped a beat? (glad you are OK BTW) Jim Hale

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Wednesday, January 04, 2006 12:13 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color


Ticking along like a Timex.  Thanks for asking. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:09 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting. Excellent
answer.

 

I now need to be able to manipulate the back color of check boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or other
use of or taking action in reliance upon this information by persons or
entities other than the intended recipient is prohibited. If you have
received this email in error please contact the sender and delete the
material from any computer. As a recipient of this email, you are
responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From cfoust at infostatsystems.com  Wed Jan  4 14:59:21 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 12:59:21 -0800
Subject: [AccessD] OT:  Was Check Box Back Color
Message-ID: <F55048AF7E974F429BB24597D7355EEABED2@INFOSERVER04.infostat.local>

I asked for it, but they balked at the USB port in the neck. ;o}  And
kid gloves are always socially correct! LOL

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Wednesday, January 04, 2006 11:30 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Check Box Back Color


Does this mean I need to treat ya with 'kid gloves'?  So did you get
blue tooth with the new one?  Maybe MP3 capability?

Drew

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Wednesday, January 04, 2006 12:30 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color


My heart often skips a beat, especially when I'm arguing with Drew or
JC! LOL

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 04, 2006 10:22 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


Hmmm.... you know they added a second to clocks on 1/1. Does this mean
your heart skipped a beat? (glad you are OK BTW) Jim Hale

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Wednesday, January 04, 2006 12:13 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color


Ticking along like a Timex.  Thanks for asking. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 04, 2006 10:09 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


May change them to text boxes.

How are you doing?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 04, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Check Box Back Color

If I recall correctly, checkboxes are the one control you
have little
... Er, control ... Over.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Check Box Back Color


Thanks to those who turned me on to conditional formatting. Excellent
answer.

 

I now need to be able to manipulate the back color of check boxes
depending on focus.

 

Thanks again.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or other
use of or taking action in reliance upon this information by persons or
entities other than the intended recipient is prohibited. If you have
received this email in error please contact the sender and delete the
material from any computer. As a recipient of this email, you are
responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From jmhecht at earthlink.net  Wed Jan  4 17:01:59 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 15:01:59 -0800
Subject: [AccessD] Parent Child question
Message-ID: <000001c61182$de5968e0$6701a8c0@HPLaptop>

If there is a parent record but no child data entered is it
right the count of records is different?

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Wed Jan  4 17:06:33 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 15:06:33 -0800
Subject: [AccessD] Parent Child question
In-Reply-To: <000001c61182$de5968e0$6701a8c0@HPLaptop>
Message-ID: <000f01c61183$81c99ea0$6701a8c0@HPLaptop>

Say 255 parent records but only 250 child records?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 04, 2006 3:02 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Parent Child question

If there is a parent record but no child data entered is it
right the count of records is different?

 

Joe Hecht

jmhecht at earthlink.net

 

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



From DElam at jenkens.com  Wed Jan  4 17:12:50 2006
From: DElam at jenkens.com (Elam, Debbie)
Date: Wed, 4 Jan 2006 17:12:50 -0600 
Subject: [AccessD] Parent Child question
Message-ID: <7B1961ED924D1A459E378C9B1BB22B4C0492D228@natexch.jenkens.com>

If you have X parent records and each parent has one child record, you have
X parent records and X child records.  If you add a parent to this set
without a child you have X+1 parent records and X child records.  The two
sets of records must be counted separately since the numbers of records can
vary drastically in most databases.  Does this answer the question?

Debbie

-----Original Message-----
From: Joe Hecht [mailto:jmhecht at earthlink.net] 
Sent: Wednesday, January 04, 2006 5:02 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Parent Child question


If there is a parent record but no child data entered is it
right the count of records is different?

 

Joe Hecht

jmhecht at earthlink.net

 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
- JENKENS & GILCHRIST E-MAIL NOTICE - This transmission may be: (1) subject
to the Attorney-Client Privilege, (2) an attorney work product, or (3)
strictly confidential. If you are not the intended recipient of this
message, you may not disclose, print, copy or disseminate this information.
If you have received this in error, please reply and notify the sender
(only) and delete the message. Unauthorized interception of this e-mail is a
violation of federal criminal law. 
This communication does not reflect an intention by the sender or the
sender's client or principal to conduct a transaction or make any agreement
by electronic means.  Nothing contained in this message or in any attachment
shall satisfy the requirements for a writing, and nothing contained herein
shall constitute a contract or electronic signature under the Electronic
Signatures in Global and National Commerce Act, any version of the Uniform
Electronic Transactions Act or any other statute governing electronic
transactions.


From jmhecht at earthlink.net  Wed Jan  4 17:16:48 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 4 Jan 2006 15:16:48 -0800
Subject: [AccessD] Parent Child question
In-Reply-To: <7B1961ED924D1A459E378C9B1BB22B4C0492D228@natexch.jenkens.com>
Message-ID: <001201c61184$f0bf4520$6701a8c0@HPLaptop>

I feel much better now Debbie. THANKS

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Elam, Debbie
Sent: Wednesday, January 04, 2006 3:13 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Parent Child question

If you have X parent records and each parent has one child
record, you have
X parent records and X child records.  If you add a parent
to this set
without a child you have X+1 parent records and X child
records.  The two
sets of records must be counted separately since the numbers
of records can
vary drastically in most databases.  Does this answer the
question?

Debbie

-----Original Message-----
From: Joe Hecht [mailto:jmhecht at earthlink.net] 
Sent: Wednesday, January 04, 2006 5:02 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Parent Child question


If there is a parent record but no child data entered is it
right the count of records is different?

 

Joe Hecht

jmhecht at earthlink.net

 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
- JENKENS & GILCHRIST E-MAIL NOTICE - This transmission may
be: (1) subject
to the Attorney-Client Privilege, (2) an attorney work
product, or (3)
strictly confidential. If you are not the intended recipient
of this
message, you may not disclose, print, copy or disseminate
this information.
If you have received this in error, please reply and notify
the sender
(only) and delete the message. Unauthorized interception of
this e-mail is a
violation of federal criminal law. 
This communication does not reflect an intention by the
sender or the
sender's client or principal to conduct a transaction or
make any agreement
by electronic means.  Nothing contained in this message or
in any attachment
shall satisfy the requirements for a writing, and nothing
contained herein
shall constitute a contract or electronic signature under
the Electronic
Signatures in Global and National Commerce Act, any version
of the Uniform
Electronic Transactions Act or any other statute governing
electronic
transactions.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From robert at servicexp.com  Wed Jan  4 18:05:12 2006
From: robert at servicexp.com (Robert Gracie)
Date: Wed, 4 Jan 2006 19:05:12 -0500
Subject: [AccessD] Visual Reports
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F4FC0@gbsserver.GBS.local>

 
Does anyone have any experience with this company and this product. Or
an alternatives...??

http://sparrow-technologies.com/products.html

Thanks

Robert Gracie
www.gbsysnow.com



From michael at ddisolutions.com.au  Wed Jan  4 18:08:58 2006
From: michael at ddisolutions.com.au (Michael Maddison)
Date: Thu, 5 Jan 2006 11:08:58 +1100
Subject: [AccessD] Extract data from .doc into db
Message-ID: <59A61174B1F5B54B97FD4ADDE71E7D0116A196@ddi-01.DDI.local>

Hi Listers,

I've been asked how much $$$ to extract data from a series of word docs.
Each record is made up
of 3 docs.  There are 80 records (240 docs).  The docs are quite large
20+ pages each, with questions
and either ticks or X's in a tabular format.  There are no fields.
I've never done this so my question is how easy is it to code something
like this or should I just
employ a temp to slog through it? 

BTW it's a one off import.

Maybe export the tables to Excel?

cheers

Michael Maddison

DDI Solutions Pty Ltd
michael at ddisolutions.com.au
Bus: 0260400620
Mob: 0412620497 
www.ddisolutions.com.au


From DWUTKA at marlow.com  Wed Jan  4 18:10:44 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Wed, 4 Jan 2006 18:10:44 -0600 
Subject: [AccessD] OT:  Was Check Box Back Color
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD48A@main2.marlow.com>

What kind of crackpot doctors do you have?  USB for a bluetooth device? ;)

Drew

	-----Original Message-----
	From:	Charlotte Foust [SMTP:cfoust at infostatsystems.com]
	Sent:	Wednesday, January 04, 2006 2:59 PM
	To:	Access Developers discussion and problem solving
	Subject:	Re: [AccessD] OT:  Was Check Box Back Color

	I asked for it, but they balked at the USB port in the neck. ;o}
And
	kid gloves are always socially correct! LOL

	Charlotte


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
	DWUTKA at marlow.com
	Sent: Wednesday, January 04, 2006 11:30 AM
	To: accessd at databaseadvisors.com
	Subject: Re: [AccessD] Check Box Back Color


	Does this mean I need to treat ya with 'kid gloves'?  So did you get
	blue tooth with the new one?  Maybe MP3 capability?

	Drew

	-----Original Message-----
	From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
	Sent: Wednesday, January 04, 2006 12:30 PM
	To: Access Developers discussion and problem solving
	Subject: Re: [AccessD] Check Box Back Color


	My heart often skips a beat, especially when I'm arguing with Drew
or
	JC! LOL

	Charlotte


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
	Sent: Wednesday, January 04, 2006 10:22 AM
	To: 'Access Developers discussion and problem solving'
	Subject: Re: [AccessD] Check Box Back Color


	Hmmm.... you know they added a second to clocks on 1/1. Does this
mean
	your heart skipped a beat? (glad you are OK BTW) Jim Hale

	-----Original Message-----
	From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
	Sent: Wednesday, January 04, 2006 12:13 PM
	To: Access Developers discussion and problem solving
	Subject: Re: [AccessD] Check Box Back Color


	Ticking along like a Timex.  Thanks for asking. ;o}

	Charlotte


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
	Sent: Wednesday, January 04, 2006 10:09 AM
	To: 'Access Developers discussion and problem solving'
	Subject: Re: [AccessD] Check Box Back Color


	May change them to text boxes.

	How are you doing?

	Joe Hecht
	jmhecht at earthlink.net
	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
	Foust
	Sent: Wednesday, January 04, 2006 10:06 AM
	To: Access Developers discussion and problem solving
	Subject: Re: [AccessD] Check Box Back Color

	If I recall correctly, checkboxes are the one control you
	have little
	... Er, control ... Over.  

	Charlotte Foust


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
	Joe Hecht
	Sent: Wednesday, January 04, 2006 9:47 AM
	To: 'Access Developers discussion and problem solving'
	Subject: [AccessD] Check Box Back Color


	Thanks to those who turned me on to conditional formatting.
Excellent
	answer.

	 

	I now need to be able to manipulate the back color of check boxes
	depending on focus.

	 

	Thanks again.

	 

	Joe Hecht

	jmhecht at earthlink.net

	 

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

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

	
***********************************************************************
	The information transmitted is intended solely for the individual or
	entity to which it is addressed and may contain confidential and/or
	privileged material. Any review, retransmission, dissemination or
other
	use of or taking action in reliance upon this information by persons
or
	entities other than the intended recipient is prohibited. If you
have
	received this email in error please contact the sender and delete
the
	material from any computer. As a recipient of this email, you are
	responsible for screening its contents and the contents of any
	attachments for the presence of viruses. No liability is accepted
for
	any damages caused by any virus transmitted by this email.
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com


From shamil at users.mns.ru  Wed Jan  4 18:49:40 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 5 Jan 2006 03:49:40 +0300
Subject: [AccessD] Extract data from .doc into db
References: <59A61174B1F5B54B97FD4ADDE71E7D0116A196@ddi-01.DDI.local>
Message-ID: <003701c61191$f4d074b0$6501a8c0@fincomplex.spb.ru>

Michael,

Have a look at these topics

http://smsconsulting.spb.ru/shamil_s/topics/dfromw95.htm
http://smsconsulting.spb.ru/shamil_s/topics/w95imp.htm

they may help you to solve your task directly.

> Maybe export the tables to Excel?
Yes, you can also copy your MS Word tables into MS Excel worksheets, then
attach these worksheets etc.
For 240 docs if the work is just one go then I'd recommend to copy data into
MS Excel manually - should be doable in a couple of hours - no need in
coding...

If you copy your source tables' data into MS Excel worksheets then these
topics may help for further work:

http://smsconsulting.spb.ru/shamil_s/topics/impbcdb0.htm
http://smsconsulting.spb.ru/shamil_s/topics/impbcdbb.htm
http://smsconsulting.spb.ru/shamil_s/topics/rxltbl.htm
http://smsconsulting.spb.ru/shamil_s/topics/exobjpr.htm

http://smsconsulting.spb.ru/shamil_s/topics/expexcel.htm

Depending on the quality of the source docs' data your task could be done in
1.5 - 5 days I guess...

Shamil

----- Original Message ----- 
From: "Michael Maddison" <michael at ddisolutions.com.au>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 3:08 AM
Subject: [AccessD] Extract data from .doc into db


> Hi Listers,
>
> I've been asked how much $$$ to extract data from a series of word docs.
> Each record is made up
> of 3 docs.  There are 80 records (240 docs).  The docs are quite large
> 20+ pages each, with questions
> and either ticks or X's in a tabular format.  There are no fields.
> I've never done this so my question is how easy is it to code something
> like this or should I just
> employ a temp to slog through it?
>
> BTW it's a one off import.
>
> Maybe export the tables to Excel?
>
> cheers
>
> Michael Maddison
>
> DDI Solutions Pty Ltd
> michael at ddisolutions.com.au
> Bus: 0260400620
> Mob: 0412620497
> www.ddisolutions.com.au
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From carbonnb at sympatico.ca  Wed Jan  4 18:46:29 2006
From: carbonnb at sympatico.ca (Bryan Carbonnell)
Date: Wed, 04 Jan 2006 19:46:29 -0500
Subject: [AccessD] (Fwd) Re:  Extract data from .doc into db
Message-ID: <BAYC1-PASMTP068527B5F2642CEB721F82AE2E0@CEZ.ICE>

Should have gone to the list too.

Bryan
------- Forwarded message follows -------
On 5 Jan 2006 at 11:08, Michael Maddison wrote:

> I've been asked how much $$$ to extract data from a series of word docs.
> Each record is made up
> of 3 docs.  There are 80 records (240 docs).  The docs are quite large
> 20+ pages each, with questions
> and either ticks or X's in a tabular format.  There are no fields.
> I've never done this so my question is how easy is it to code something
> like this or should I just
> employ a temp to slog through it? 

It depends. Are all the docs the same format? The same number of 
tables, columns, rows, etc? Is the marking consistant to indicate the 
choice?

If the answer is yes, then it should be fairly straight forward. Here 
is some code (written in Word, so you will have to translate into 
Access :)to give you an idea of what would be involved in reading the 
cells.

Sub test()

Dim doc As Document
Dim tbl As Table
Dim lngRow As Long
Dim lngRowCount As Long
Dim strCol2 As String
Dim strCol3 As String
Dim bolYes As Boolean
Dim bolNo As Boolean

Set doc = ActiveDocument
Set tbl = doc.Tables(1)

lngRowCount = tbl.Rows.Count
lngRow = 1


Do While lngRow <= lngRowCount
  'Get the values in the "choice" columns
  strCol2 = tbl.Cell(lngRow, 2).Range
  strCol3 = tbl.Cell(lngRow, 3).Range
  'Strip the trailing 2 characters asc(7) & asc(13)
  If Len(strCol2) > 2 Then
    strCol2 = Left$(strCol2, 1)
  Else
    strCol2 = ""
  End If
  If Len(strCol3) > 2 Then
    strCol3 = Left$(strCol3, 1)
  Else
    strCol3 = ""
  End If
    
  'Check to see if first "choice" column is "checked"
  If LCase(strCol2) = "x" Then
    bolYes = True
  End If
  'Check to see if second "choice" column is "checked"
  If LCase(strCol3) = "x" Then
    bolNo = True
  End If
  'Store the Values in your table
  
  'reset flags
  bolYes = False
  bolNo = False
  'increment row counter
  lngRow = lngRow + 1

Loop

Set tbl = Nothing
Set doc = Nothing

End Sub

A couple of assumptions here:

This is a single table with a minimum or 3 columns, where the choices 
are in columns 2 & 3 which are all marked with an x (upper or 
lowercase doesn't matter)

HTH,

-- 
Bryan Carbonnell - carbonnb at sympatico.ca
Earth is the insane asylum for the universe.


------- End of forwarded message -------
-- 
Bryan Carbonnell - carbonnb at sympatico.ca
Needing someone is like needing a parachute. If he isn't there the first time, chances are you won't be needing him again.




From cfoust at infostatsystems.com  Wed Jan  4 18:49:08 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 4 Jan 2006 16:49:08 -0800
Subject: [AccessD] OT:  Was Check Box Back Color
Message-ID: <F55048AF7E974F429BB24597D7355EEABED6@INFOSERVER04.infostat.local>

No, the usb was for the recharger.  I figured if they wouldn't let me
recharge it, then it was fairly useless for WiFi. ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Wednesday, January 04, 2006 4:11 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] OT: Was Check Box Back Color


What kind of crackpot doctors do you have?  USB for a bluetooth device?
;)

Drew

	-----Original Message-----
	From:	Charlotte Foust [SMTP:cfoust at infostatsystems.com]
	Sent:	Wednesday, January 04, 2006 2:59 PM
	To:	Access Developers discussion and problem solving
	Subject:	Re: [AccessD] OT:  Was Check Box Back Color

	I asked for it, but they balked at the USB port in the neck. ;o}
And
	kid gloves are always socially correct! LOL

	Charlotte


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
	DWUTKA at marlow.com
	Sent: Wednesday, January 04, 2006 11:30 AM
	To: accessd at databaseadvisors.com
	Subject: Re: [AccessD] Check Box Back Color


	Does this mean I need to treat ya with 'kid gloves'?  So did you
get
	blue tooth with the new one?  Maybe MP3 capability?

	Drew

	-----Original Message-----
	From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
	Sent: Wednesday, January 04, 2006 12:30 PM
	To: Access Developers discussion and problem solving
	Subject: Re: [AccessD] Check Box Back Color


	My heart often skips a beat, especially when I'm arguing with
Drew or
	JC! LOL

	Charlotte


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale,
Jim
	Sent: Wednesday, January 04, 2006 10:22 AM
	To: 'Access Developers discussion and problem solving'
	Subject: Re: [AccessD] Check Box Back Color


	Hmmm.... you know they added a second to clocks on 1/1. Does
this mean
	your heart skipped a beat? (glad you are OK BTW) Jim Hale

	-----Original Message-----
	From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
	Sent: Wednesday, January 04, 2006 12:13 PM
	To: Access Developers discussion and problem solving
	Subject: Re: [AccessD] Check Box Back Color


	Ticking along like a Timex.  Thanks for asking. ;o}

	Charlotte


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe
Hecht
	Sent: Wednesday, January 04, 2006 10:09 AM
	To: 'Access Developers discussion and problem solving'
	Subject: Re: [AccessD] Check Box Back Color


	May change them to text boxes.

	How are you doing?

	Joe Hecht
	jmhecht at earthlink.net
	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
	Foust
	Sent: Wednesday, January 04, 2006 10:06 AM
	To: Access Developers discussion and problem solving
	Subject: Re: [AccessD] Check Box Back Color

	If I recall correctly, checkboxes are the one control you
	have little
	... Er, control ... Over.  

	Charlotte Foust


	-----Original Message-----
	From: accessd-bounces at databaseadvisors.com
	[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
	Joe Hecht
	Sent: Wednesday, January 04, 2006 9:47 AM
	To: 'Access Developers discussion and problem solving'
	Subject: [AccessD] Check Box Back Color


	Thanks to those who turned me on to conditional formatting.
Excellent
	answer.

	 

	I now need to be able to manipulate the back color of check
boxes
	depending on focus.

	 

	Thanks again.

	 

	Joe Hecht

	jmhecht at earthlink.net

	 

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

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

	
***********************************************************************
	The information transmitted is intended solely for the
individual or
	entity to which it is addressed and may contain confidential
and/or
	privileged material. Any review, retransmission, dissemination
or other
	use of or taking action in reliance upon this information by
persons or
	entities other than the intended recipient is prohibited. If you
have
	received this email in error please contact the sender and
delete the
	material from any computer. As a recipient of this email, you
are
	responsible for screening its contents and the contents of any
	attachments for the presence of viruses. No liability is
accepted for
	any damages caused by any virus transmitted by this email.
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com
	-- 
	AccessD mailing list
	AccessD at databaseadvisors.com
	http://databaseadvisors.com/mailman/listinfo/accessd
	Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From jwcolby at ColbyConsulting.com  Wed Jan  4 19:51:47 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 4 Jan 2006 20:51:47 -0500
Subject: [AccessD] OT Super interesting options
In-Reply-To: <000c01c6115f$4f7e9960$017ba8c0@xpserver>
Message-ID: <000001c6119a$97241d40$647aa8c0@ColbyM6805>

I downloaded and installed on my machine, as well as a machine I could
remote into at a client.  I was able to IM over the app, but I was unable to
ping, or to browse shares.

It is a fascinating concept and might be a nice thing if I could get it
working at one specific client where remote desktop just doesn't work (for
me).  I need to be able to up/download FE and framework files to them and
can never connect.  It would be cool to be able to see shares and do my
upload/download in that manner.  I have to wonder what the processor
overhead will be though.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
Sent: Wednesday, January 04, 2006 1:47 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] OT Super interesting options

OT

This is totally off topic but the potential and product is so interesting
that, with my apologies, I had to post it here.

Check this web site out: http://www.hamachi.cc/ and listen to the linked pod
cast: 
http://reference.creativesystemdesigns.com/Downloads/Hamachi.pod
(Remember to set the downloaded pod file's extension to 'mp3' so you can
play it.) 

Jim

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



From wdhindman at bellsouth.net  Wed Jan  4 20:03:22 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 4 Jan 2006 21:03:22 -0500
Subject: [AccessD] Check Box Back Color
References: <000801c61156$d2e301f0$6701a8c0@HPLaptop>
Message-ID: <000901c6119c$356527f0$6101a8c0@JISREGISTRATION.local>

...never found a way to do that ...but dependng upon your needs, you can use 
a yes/no text box instead along with the wingdings font ...which means you 
not only can set the bg color but the fg color and size it as well ...and 
you can set the format property to change the bg color between -1 and 0 
values ...and in XP and above you also get conditional formatting ...its 
more work of course but that's the way of most good things in Access ...hth

William

----- Original Message ----- 
From: "Joe Hecht" <jmhecht at earthlink.net>
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 04, 2006 12:46 PM
Subject: [AccessD] Check Box Back Color


> Thanks to those who turned me on to conditional formatting.
> Excellent answer.
>
>
>
> I now need to be able to manipulate the back color of check
> boxes depending on focus.
>
>
>
> Thanks again.
>
>
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From bryan.fitzpatrick at cyberone.com.au  Wed Jan  4 20:18:49 2006
From: bryan.fitzpatrick at cyberone.com.au (Bryan and Jane Fitzpatrick)
Date: Thu, 05 Jan 2006 13:18:49 +1100
Subject: [AccessD] Check Box Back Color
In-Reply-To: <000901c6119c$356527f0$6101a8c0@JISREGISTRATION.local>
References: <000801c61156$d2e301f0$6701a8c0@HPLaptop>
	<000901c6119c$356527f0$6101a8c0@JISREGISTRATION.local>
Message-ID: <43BC8209.3010805@cyberone.com.au>

There is no Backcolor property for a checkbox, so it can't be done 
directly.  Two ways around it -

1.      Change the backcolor of the Checkbox's Label.

2.      Put a rectangle control behind the Checkbox and change the color 
of the rectangle.

Hope this helps.

Bryan

William Hindman wrote:

>...never found a way to do that ...but dependng upon your needs, you can use 
>a yes/no text box instead along with the wingdings font ...which means you 
>not only can set the bg color but the fg color and size it as well ...and 
>you can set the format property to change the bg color between -1 and 0 
>values ...and in XP and above you also get conditional formatting ...its 
>more work of course but that's the way of most good things in Access ...hth
>
>William
>
>----- Original Message ----- 
>From: "Joe Hecht" <jmhecht at earthlink.net>
>To: "'Access Developers discussion and problem solving'" 
><accessd at databaseadvisors.com>
>Sent: Wednesday, January 04, 2006 12:46 PM
>Subject: [AccessD] Check Box Back Color
>
>
>  
>
>>Thanks to those who turned me on to conditional formatting.
>>Excellent answer.
>>
>>
>>
>>I now need to be able to manipulate the back color of check
>>boxes depending on focus.
>>
>>
>>
>>Thanks again.
>>
>>
>>
>>Joe Hecht
>>
>>jmhecht at earthlink.net
>>
>>
>>
>>-- 
>>AccessD mailing list
>>AccessD at databaseadvisors.com
>>http://databaseadvisors.com/mailman/listinfo/accessd
>>Website: http://www.databaseadvisors.com
>>
>>    
>>
>
>
>  
>
-------------- next part --------------
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.371 / Virus Database: 267.14.12/220 - Release Date: 3/01/2006

From wdhindman at bellsouth.net  Wed Jan  4 23:11:23 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 5 Jan 2006 00:11:23 -0500
Subject: [AccessD] Text Box True False Question
References: <000301c61155$8edc6a60$6701a8c0@HPLaptop>
Message-ID: <001d01c611b6$7949d640$6101a8c0@JISREGISTRATION.local>

...use the format property of the text box and the wingding font.

William

----- Original Message ----- 
From: "Joe Hecht" <jmhecht at earthlink.net>
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 04, 2006 12:37 PM
Subject: [AccessD] Text Box True False Question


>I have a yes no text box. Without the focus it shows
> correctly yes or no. When it gets focus it shows a zero or a
> non zero value. How do I force it to show yes or no when it
> has focus.
>
>
>
> Thanks
>
>
>
>
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From chizotz at mchsi.com  Wed Jan  4 23:21:38 2006
From: chizotz at mchsi.com (Ron Allen)
Date: Wed, 4 Jan 2006 23:21:38 -0600
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <43BC8209.3010805@cyberone.com.au>
References: <000801c61156$d2e301f0$6701a8c0@HPLaptop>
	<000901c6119c$356527f0$6101a8c0@JISREGISTRATION.local>
	<43BC8209.3010805@cyberone.com.au>
Message-ID: <1395319198.20060104232138@mchsi.com>

I know I'm an infrequent contributor here that usually asks for more
help than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first
for both of us.

I'm a little old to be a first time daddy, and the prospect worries me
in all sorts of ways -- but at the same time I've never been happier
:)

Ron





From accessd at shaw.ca  Thu Jan  5 00:10:17 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Wed, 04 Jan 2006 22:10:17 -0800
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <1395319198.20060104232138@mchsi.com>
Message-ID: <003a01c611be$b3630fb0$017ba8c0@xpserver>

Well Ron, now you will have the opportunity to be a frequent contributor but
not necessarily on the list. Congratulations... It is definitely the year of
babies and weddings. (My oldest daughter got married in a small family
affair, at our house, on New Years day; to her long time boyfriend.... a big
official event will follow in a year as soon as they are settled.)  

It is never too late to get the opportunity to spoil a child. I personally
think it is the biggest event of a life-time.

We expect pictures of the result.
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
Sent: January 4, 2006 9:22 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT: We're Expecting!

I know I'm an infrequent contributor here that usually asks for more
help than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first
for both of us.

I'm a little old to be a first time daddy, and the prospect worries me
in all sorts of ways -- but at the same time I've never been happier
:)

Ron



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



From janine_docsonline at unwired.com.au  Thu Jan  5 01:22:41 2006
From: janine_docsonline at unwired.com.au (Janine_docsonline)
Date: Thu, 5 Jan 2006 18:22:41 +1100
Subject: [AccessD] (Fwd) Re:  Extract data from .doc into db
References: <BAYC1-PASMTP068527B5F2642CEB721F82AE2E0@CEZ.ICE>
Message-ID: <00a301c611c8$d9ae2d80$2a5065dc@pcuserksvpkrsc>

Love the humour.

Don't know if this is off base. There is a convert table to access merge 
thingy in Word 2003 does that help? I was going to show a client who had 
access how a table could be merged back to Access?

Are the word documents in table? Just a suggestion only.

Cant you charge him when you're done? If it takes 10 hours charge out US$55 
PER HOUR (that seems fair).
Conver the tabular text to tables and then use Word 2003 merge option to 
turn  into fields or just import into Access from the table fields.

I may be way off base but just a thought....


----- Original Message ----- 
From: "Bryan Carbonnell" <carbonnb at sympatico.ca>
To: "access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 11:46 AM
Subject: [AccessD] (Fwd) Re: Extract data from .doc into db


> Should have gone to the list too.
>
> Bryan
> ------- Forwarded message follows -------
> On 5 Jan 2006 at 11:08, Michael Maddison wrote:
>
>> I've been asked how much $$$ to extract data from a series of word docs.
>> Each record is made up
>> of 3 docs.  There are 80 records (240 docs).  The docs are quite large
>> 20+ pages each, with questions
>> and either ticks or X's in a tabular format.  There are no fields.
>> I've never done this so my question is how easy is it to code something
>> like this or should I just
>> employ a temp to slog through it?
>
> It depends. Are all the docs the same format? The same number of
> tables, columns, rows, etc? Is the marking consistant to indicate the
> choice?
>
> If the answer is yes, then it should be fairly straight forward. Here
> is some code (written in Word, so you will have to translate into
> Access :)to give you an idea of what would be involved in reading the
> cells.
>
> Sub test()
>
> Dim doc As Document
> Dim tbl As Table
> Dim lngRow As Long
> Dim lngRowCount As Long
> Dim strCol2 As String
> Dim strCol3 As String
> Dim bolYes As Boolean
> Dim bolNo As Boolean
>
> Set doc = ActiveDocument
> Set tbl = doc.Tables(1)
>
> lngRowCount = tbl.Rows.Count
> lngRow = 1
>
>
> Do While lngRow <= lngRowCount
>  'Get the values in the "choice" columns
>  strCol2 = tbl.Cell(lngRow, 2).Range
>  strCol3 = tbl.Cell(lngRow, 3).Range
>  'Strip the trailing 2 characters asc(7) & asc(13)
>  If Len(strCol2) > 2 Then
>    strCol2 = Left$(strCol2, 1)
>  Else
>    strCol2 = ""
>  End If
>  If Len(strCol3) > 2 Then
>    strCol3 = Left$(strCol3, 1)
>  Else
>    strCol3 = ""
>  End If
>
>  'Check to see if first "choice" column is "checked"
>  If LCase(strCol2) = "x" Then
>    bolYes = True
>  End If
>  'Check to see if second "choice" column is "checked"
>  If LCase(strCol3) = "x" Then
>    bolNo = True
>  End If
>  'Store the Values in your table
>
>  'reset flags
>  bolYes = False
>  bolNo = False
>  'increment row counter
>  lngRow = lngRow + 1
>
> Loop
>
> Set tbl = Nothing
> Set doc = Nothing
>
> End Sub
>
> A couple of assumptions here:
>
> This is a single table with a minimum or 3 columns, where the choices
> are in columns 2 & 3 which are all marked with an x (upper or
> lowercase doesn't matter)
>
> HTH,
>
> -- 
> Bryan Carbonnell - carbonnb at sympatico.ca
> Earth is the insane asylum for the universe.
>
>
> ------- End of forwarded message -------
> -- 
> Bryan Carbonnell - carbonnb at sympatico.ca
> Needing someone is like needing a parachute. If he isn't there the first 
> time, chances are you won't be needing him again.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From andy at minstersystems.co.uk  Thu Jan  5 02:15:34 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Thu, 5 Jan 2006 08:15:34 -0000
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <1395319198.20060104232138@mchsi.com>
Message-ID: <00c901c611d0$33de3c30$d8ac0c54@minster33c3r25>

Congratulations Ron. It'll be a wondrous day for you.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
> Sent: 05 January 2006 05:22
> To: accessd at databaseadvisors.com
> Subject: [AccessD] OT: We're Expecting!
> 
> 
> I know I'm an infrequent contributor here that usually asks 
> for more help than I end up giving, but I wanted to share 
> this with you all :)
> 
> My wife and I found out on New Year's Eve that we're going to 
> have a baby. This was confirmed by the doctor this morning. 
> It's the first for both of us.
> 
> I'm a little old to be a first time daddy, and the prospect 
> worries me in all sorts of ways -- but at the same time I've 
> never been happier
> :)
> 
> Ron
> 
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From Gustav at cactus.dk  Thu Jan  5 03:40:39 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 05 Jan 2006 10:40:39 +0100
Subject: [AccessD] OT Super interesting options
Message-ID: <s3bcf7c0.083@cactus.dk>

Hi John

Did you check out NetOp On Demand Remote Control:

  http://www.netop.com/netop-425.htm 

Not free but fair and an eval is for download.

/gustav

>>> jwcolby at ColbyConsulting.com 05-01-2006 02:51 >>>
.. I need to be able to up/download FE and framework files to them and
can never connect.  It would be cool to be able to see shares and do my
upload/download in that manner ..



From Gustav at cactus.dk  Thu Jan  5 03:47:50 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 05 Jan 2006 10:47:50 +0100
Subject: [AccessD] Check Box Back Color
Message-ID: <s3bcf967.084@cactus.dk>

Hi Joe

If you are not afraid of using a third-party control, a free one with a bunch of checkboxes is here for free:

  http://www.devexpress.com/Products/ActiveX/XFreeLib/

/gustav

>From: "Joe Hecht" <jmhecht at earthlink.net>
>To: "'Access Developers discussion and problem solving'" 
><accessd at databaseadvisors.com>
>Sent: Wednesday, January 04, 2006 12:46 PM
>Subject: [AccessD] Check Box Back Color
>>
>>I now need to be able to manipulate the back color of check
>>boxes depending on focus.




From zora_db at yahoo.com  Thu Jan  5 05:15:19 2006
From: zora_db at yahoo.com (Roz Clarke)
Date: Thu, 5 Jan 2006 11:15:19 +0000 (GMT)
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <00c901c611d0$33de3c30$d8ac0c54@minster33c3r25>
Message-ID: <20060105111519.13548.qmail@web50108.mail.yahoo.com>

Congratulations Ron, best wishes to both of you for the duration (i.e. the rest of your lives!)

--- Andy Lacey <andy at minstersystems.co.uk> wrote:

> Congratulations Ron. It'll be a wondrous day for you.
> 
> -- Andy Lacey
> http://www.minstersystems.co.uk 
> 
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com 
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
> > Sent: 05 January 2006 05:22
> > To: accessd at databaseadvisors.com
> > Subject: [AccessD] OT: We're Expecting!
> > 
> > 
> > I know I'm an infrequent contributor here that usually asks 
> > for more help than I end up giving, but I wanted to share 
> > this with you all :)
> > 
> > My wife and I found out on New Year's Eve that we're going to 
> > have a baby. This was confirmed by the doctor this morning. 
> > It's the first for both of us.
> > 
> > I'm a little old to be a first time daddy, and the prospect 
> > worries me in all sorts of ways -- but at the same time I've 
> > never been happier
> > :)
> > 
> > Ron
> > 
> > 
> > 
> > -- 
> > AccessD mailing list
> > AccessD at databaseadvisors.com 
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> > 
> > 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



		
___________________________________________________________ 
To help you stay safe and secure online, we've developed the all new Yahoo! Security Centre. http://uk.security.yahoo.com


From fahooper at trapo.com  Thu Jan  5 05:41:07 2006
From: fahooper at trapo.com (Fred Hooper)
Date: Thu, 05 Jan 2006 06:41:07 -0500
Subject: [AccessD] OT Super interesting options
In-Reply-To: <000001c6119a$97241d40$647aa8c0@ColbyM6805>
Message-ID: <000401c611ec$eb6fbb00$2e01a8c0@fredxp>

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Wednesday, January 04, 2006 8:52 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

I downloaded and installed on my machine, as well as a machine I could
remote into at a client.  I was able to IM over the app, but I was unable to
ping, or to browse shares.

It is a fascinating concept and might be a nice thing if I could get it
working at one specific client where remote desktop just doesn't work (for
me).  I need to be able to up/download FE and framework files to them and
can never connect.  It would be cool to be able to see shares and do my
upload/download in that manner.  I have to wonder what the processor
overhead will be though.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
Sent: Wednesday, January 04, 2006 1:47 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] OT Super interesting options

OT

This is totally off topic but the potential and product is so interesting
that, with my apologies, I had to post it here.

Check this web site out: http://www.hamachi.cc/ and listen to the linked pod
cast: 
http://reference.creativesystemdesigns.com/Downloads/Hamachi.pod
(Remember to set the downloaded pod file's extension to 'mp3' so you can
play it.) 

Jim

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

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




From jwcolby at ColbyConsulting.com  Thu Jan  5 05:49:24 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 06:49:24 -0500
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <1395319198.20060104232138@mchsi.com>
Message-ID: <001501c611ee$137e97f0$647aa8c0@ColbyM6805>

Congrats!  I became a foster dad at 48 and adopted my two at 51 so I know
the feeling of worry that goes along with doing it at this age, but (if I
live through it of course) it is all worthwhile.  

Again, congrats and may God be with you as you begin this long journey.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
Sent: Thursday, January 05, 2006 12:22 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT: We're Expecting!

I know I'm an infrequent contributor here that usually asks for more help
than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a baby.
This was confirmed by the doctor this morning. It's the first for both of
us.

I'm a little old to be a first time daddy, and the prospect worries me in
all sorts of ways -- but at the same time I've never been happier
:)

Ron



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



From Gustav at cactus.dk  Thu Jan  5 06:03:11 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 05 Jan 2006 13:03:11 +0100
Subject: [AccessD] Informix, Boolean
Message-ID: <s3bd1923.095@cactus.dk>

Hi all

Didn't some of you have experience with Informix?

Why should you not be able to filter on a Boolean field in a linked table in Access? Like:

  where field_boolean <> 0

which returns no records while this does:

  where CBool(Nz(field_boolean)) <> 0

Also

  where field_boolean <> "0"

gives a type mismatch error, thus field is numeric.

If no where clause is present, records with values of 0 and -1 are returned ...

/gustav



From wdhindman at bellsouth.net  Thu Jan  5 06:35:17 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 5 Jan 2006 07:35:17 -0500
Subject: [AccessD] OT: We're Expecting!
References: <000801c61156$d2e301f0$6701a8c0@HPLaptop><000901c6119c$356527f0$6101a8c0@JISREGISTRATION.local><43BC8209.3010805@cyberone.com.au>
	<1395319198.20060104232138@mchsi.com>
Message-ID: <002401c611f4$7be3b1d0$6101a8c0@JISREGISTRATION.local>

...worries come with being a father ...but they're a small price to pay for 
the joy ...absolutely nothing you've ever done or ever will do comes close 
to the joy a child brings to every aspect of your life ...and you're never 
too old.

William

----- Original Message ----- 
From: "Ron Allen" <chizotz at mchsi.com>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 12:21 AM
Subject: [AccessD] OT: We're Expecting!


>I know I'm an infrequent contributor here that usually asks for more
> help than I end up giving, but I wanted to share this with you all :)
>
> My wife and I found out on New Year's Eve that we're going to have a
> baby. This was confirmed by the doctor this morning. It's the first
> for both of us.
>
> I'm a little old to be a first time daddy, and the prospect worries me
> in all sorts of ways -- but at the same time I've never been happier
> :)
>
> Ron
>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From wdhindman at bellsouth.net  Thu Jan  5 06:39:35 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 5 Jan 2006 07:39:35 -0500
Subject: [AccessD] Check Box Back Color
References: <s3bcf967.084@cactus.dk>
Message-ID: <002c01c611f5$15d94ca0$6101a8c0@JISREGISTRATION.local>

Gustav

...looks interesting ...but have you tried these with Access?

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 4:47 AM
Subject: Re: [AccessD] Check Box Back Color


> Hi Joe
>
> If you are not afraid of using a third-party control, a free one with a 
> bunch of checkboxes is here for free:
>
>  http://www.devexpress.com/Products/ActiveX/XFreeLib/
>
> /gustav
>
>>From: "Joe Hecht" <jmhecht at earthlink.net>
>>To: "'Access Developers discussion and problem solving'"
>><accessd at databaseadvisors.com>
>>Sent: Wednesday, January 04, 2006 12:46 PM
>>Subject: [AccessD] Check Box Back Color
>>>
>>>I now need to be able to manipulate the back color of check
>>>boxes depending on focus.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From Gustav at cactus.dk  Thu Jan  5 06:50:49 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 05 Jan 2006 13:50:49 +0100
Subject: [AccessD] Check Box Back Color
Message-ID: <s3bd245c.098@cactus.dk>

Hi William

Nope, haven't had the need. Personally I believe there should be a very good reason for using non-standard user interface controls.

/gustav

>>> wdhindman at bellsouth.net 05-01-2006 13:39 >>>
Gustav

...looks interesting ...but have you tried these with Access?

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 4:47 AM
Subject: Re: [AccessD] Check Box Back Color


> Hi Joe
>
> If you are not afraid of using a third-party control, a free one with a 
> bunch of checkboxes is here for free:
>
>  http://www.devexpress.com/Products/ActiveX/XFreeLib/ 
>
> /gustav
>
>>From: "Joe Hecht" <jmhecht at earthlink.net>
>>To: "'Access Developers discussion and problem solving'"
>><accessd at databaseadvisors.com>
>>Sent: Wednesday, January 04, 2006 12:46 PM
>>Subject: [AccessD] Check Box Back Color
>>>
>>>I now need to be able to manipulate the back color of check
>>>boxes depending on focus.




From paul.hartland at isharp.co.uk  Thu Jan  5 07:21:00 2006
From: paul.hartland at isharp.co.uk (Paul Hartland (ISHARP))
Date: Thu, 5 Jan 2006 13:21:00 -0000
Subject: [AccessD] OT - Changing a DSN Connection
In-Reply-To: <200512221305.jBMD50V16983@databaseadvisors.com>
Message-ID: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAAAaHz+LRnbAQ5PJoO5hBonIAQAAAAA=@isharp.co.uk>

To all,

We are having a new server (very soon) and changing the name to something
like AL-MASTER from AL-ORR the thing is I have a lot of Excel management
reports which use various DSN's pointing to AL-ORR, is there something I
could write in Access or VB that a a click of a button will find these DSN's
and replace the server name ?

Any help on this would be greatly appreciated.

Thanks in advance 

Paul Hartland

P.S. Happy New Year to all list members, don't know what I would do without
it sometimes



From carbonnb at gmail.com  Thu Jan  5 07:24:35 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Thu, 5 Jan 2006 08:24:35 -0500
Subject: [AccessD] OT - Changing a DSN Connection
In-Reply-To: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAAAaHz+LRnbAQ5PJoO5hBonIAQAAAAA=@isharp.co.uk>
References: <200512221305.jBMD50V16983@databaseadvisors.com>
	<!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAAAaHz+LRnbAQ5PJoO5hBonIAQAAAAA=@isharp.co.uk>
Message-ID: <e04a6c920601050524p19471845o@mail.gmail.com>

On 05/01/06, Paul Hartland (ISHARP) <paul.hartland at isharp.co.uk> wrote:

> We are having a new server (very soon) and changing the name to something
> like AL-MASTER from AL-ORR the thing is I have a lot of Excel management
> reports which use various DSN's pointing to AL-ORR, is there something I
> could write in Access or VB that a a click of a button will find these DSN's
> and replace the server name ?
>
> Any help on this would be greatly appreciated.

Paul,

Here is a suggestion, and I don't know if it will work, but why not
create an alias in you internal DNS records to point AL-ORR to
AL-MASTER. That way you don't have to change any thing on the client
side.

Like I said, I don't know if this will work, but it may be worth looking into.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From artful at rogers.com  Thu Jan  5 08:10:44 2006
From: artful at rogers.com (Arthur Fuller)
Date: Thu, 5 Jan 2006 09:10:44 -0500
Subject: [AccessD] Tab Control & Sub Form
In-Reply-To: <001801c6115a$4466e280$6701a8c0@HPLaptop>
Message-ID: <200601051410.k05EAlV23559@databaseadvisors.com>

A couple of options spring to mind:
a) in design mode, choose the one you like best then click through all the
tabs and align their subforms to that top-left coordinate.
b) make the subforms' border transparent and flat so it is not apparent that
a subform lives on each tab page.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: January 4, 2006 1:11 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Tab Control & Sub Form

When using a tab control, how does one make sure the sub
form is in the same place on each page so it does not seem
to jump as you change each page?

 

Thanks 

 

Joe Hecht

jmhecht at earthlink.net

 

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



From artful at rogers.com  Thu Jan  5 08:17:06 2006
From: artful at rogers.com (Arthur Fuller)
Date: Thu, 5 Jan 2006 09:17:06 -0500
Subject: [AccessD] OT: Eternal Optimism
In-Reply-To: <003601c6115b$95a6a3a0$6a01a8c0@DDMJWX41>
Message-ID: <200601051417.k05EH9V25105@databaseadvisors.com>

A complete aside, prompted by your signature, John.
Does "The Eternal Optimist" mean that you are Eternal and also an optimist?
Or that your optimism is eternal, at least until you have demonstrated that
you are not eternal? And finally, it occurs to me that my old definition of
life as "that which dies" may be inappropriate -- given that single-celled
creatures such as amoebae divide as their method of reproduction, this
implies that the first amoeba is still here, alive and kicking and
screaming. In which case amoeba are perhaps eternal, at least until we kill
every instance of them... a process that could take forever. So perhaps that
means that the simpler the wetware, the better. LOL.
A.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Ruff
Sent: January 4, 2006 1:21 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Tab Control & Sub Form

Each subform has a Left, Top, Width, and Height properties. Set the Left and
Top properties to the same value for each subform.

John V. Ruff - The Eternal Optimist :-)
 
"Commit to the Lord whatever you do,
                and your plans will succeed." Proverbs 16:3



From John.Clark at niagaracounty.com  Thu Jan  5 08:17:43 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Thu, 05 Jan 2006 09:17:43 -0500
Subject: [AccessD] Problem converting code
Message-ID: <s3bce4a6.008@nebnov3.niagaracounty.com>

Somebody on this list helped me with code to automatically place the
next number in a series into a control number. I'm really sorry I don't
remember who...I usually make note of it, but I've recently relocated my
office and I can't even find the code docs...there probably in a box
somewhere.

Anyhow, what the code does is auto number cases, in the form of 05-001,
05-002,...until the new year, upon which is will restart with 06-001.
This worked fine and dandy but for two things...first my client was
adamant about there being no possibility of hitting 1000 cases in a
year, which as you can probably guess they did. And they were also
adamant about there not being an extra zero, when I tried placing it in
there just in case.

The bigger problem though is that this was done in A97 and I am now
using A2K. I will be redoing this program in A2K and the program I am
currently working on and trying to reuse the code in, is also A2K. I am
getting errors on the line, "Set rst = CodeDb.OpenRecordset(strSQL)"
that says too few parameters. I am either being totally dense (a
distinct possibility) or it is a DAO vs. ADO problem, which I can not
get through my skull and always have problems with...making me dense
again...hmmmm.

Can anyone please point me in the right direction to rectify this
problem?

I make the default value for the field set as, "=NewControlNum()"

****************************** CODE
***********************************************************************
Function NewControlNum() As String
Dim strSQL As String
Dim strNewID As String
Dim rst As Recordset
strSQL = "SELECT nz(Max(Mid([tblIndictment]![IndictmentNumber],4)),0)+1
AS lngMaxID," & _
         "Right(Year(Now()),2)" & _
         "& '-' & [lngMaxID] AS lngNewID " & _
         "FROM tblIndictment " & _
         "WHERE
(((Left([tblIndictment]![IndictmentNumber],2))=Right(Year(Now()),2)));"
Set rst = CodeDb.OpenRecordset(strSQL)
With rst
   strNewID = rst!lngNewID
   rst.Close
   Set rst = Nothing
End With
NewControlNum = strNewID

Rem
***************************************************************************

Select Case Len(NewControlNum)
    Case 4
        NewControlNum = Left(NewControlNum, 3) & "00" &
Right(NewControlNum, 1)
    Case 5
        NewControlNum = Left(NewControlNum, 3) & "0" &
Right(NewControlNum, 2)
End Select


Thank you!

John W Clark


From carbonnb at gmail.com  Thu Jan  5 08:21:53 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Thu, 5 Jan 2006 09:21:53 -0500
Subject: [AccessD] Problem converting code
In-Reply-To: <s3bce4a6.008@nebnov3.niagaracounty.com>
References: <s3bce4a6.008@nebnov3.niagaracounty.com>
Message-ID: <e04a6c920601050621j75bc9feao@mail.gmail.com>

On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:

> The bigger problem though is that this was done in A97 and I am now
> using A2K. I will be redoing this program in A2K and the program I am
> currently working on and trying to reuse the code in, is also A2K. I am
> getting errors on the line, "Set rst = CodeDb.OpenRecordset(strSQL)"
> that says too few parameters. I am either being totally dense (a
> distinct possibility) or it is a DAO vs. ADO problem, which I can not
> get through my skull and always have problems with...making me dense
> again...hmmmm.

It appears to be DAO code, so you will need to add a reference to DAO.
A2K defaults to ADO.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From wdhindman at bellsouth.net  Thu Jan  5 08:31:06 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 5 Jan 2006 09:31:06 -0500
Subject: [AccessD] Problem converting code
References: <s3bce4a6.008@nebnov3.niagaracounty.com>
	<e04a6c920601050621j75bc9feao@mail.gmail.com>
Message-ID: <003d01c61204$a9f14b90$6101a8c0@JISREGISTRATION.local>

...and don't forget to set the DAO reference higher in the list than the ADO 
reference ...or remove the ADO reference altogether.

William

----- Original Message ----- 
From: "Bryan Carbonnell" <carbonnb at gmail.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 9:21 AM
Subject: Re: [AccessD] Problem converting code


> On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:
>
>> The bigger problem though is that this was done in A97 and I am now
>> using A2K. I will be redoing this program in A2K and the program I am
>> currently working on and trying to reuse the code in, is also A2K. I am
>> getting errors on the line, "Set rst = CodeDb.OpenRecordset(strSQL)"
>> that says too few parameters. I am either being totally dense (a
>> distinct possibility) or it is a DAO vs. ADO problem, which I can not
>> get through my skull and always have problems with...making me dense
>> again...hmmmm.
>
> It appears to be DAO code, so you will need to add a reference to DAO.
> A2K defaults to ADO.
>
> --
> Bryan Carbonnell - carbonnb at gmail.com
> Life's journey is not to arrive at the grave safely in a well
> preserved body, but rather to skid in sideways, totally worn out,
> shouting "What a great ride!"
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From Gustav at cactus.dk  Thu Jan  5 08:37:55 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 05 Jan 2006 15:37:55 +0100
Subject: [AccessD] OT - Changing a DSN Connection
Message-ID: <s3bd3d5d.000@cactus.dk>

Hi Paul

Here's the basics:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/odbc/htm/odbcsqlconfigdatasource.asp

and here is example code where you could enter the modified name of the server into the connect string:

<code>

  Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" ( _
    ByVal hwndParent As Long, _
    ByVal fRequest As Integer, _
    ByVal lpszDriver As String, _
    ByVal lpszAttributes As String) _
    As Long

  ' Add user DSN.
  Private Const ODBC_ADD_DSN              As Long = 1
  ' Configure user DSN.
  Private Const ODBC_CONFIG_DSN           As Long = 2
  ' Remove user DSN.
  Private Const ODBC_REMOVE_DSN           As Long = 3
  ' Add system DSN.
  Private Const ODBC_ADD_SYS_DSN          As Long = 4
  ' Configure system DSN.
  Private Const ODBC_CONFIG_SYS_DSN       As Long = 5
  ' Remove system DSN.
  Private Const ODBC_REMOVE_SYS_DSN       As Long = 6
  ' Remove the default DSN.
  Private Const ODBC_REMOVE_DEFAULT_DSN   As Long = 7
  
  Private Const ODBC_ERROR_GENERAL_ERR             As Long = 1
  Private Const ODBC_ERROR_INVALID_BUFF_LEN        As Long = 2
  Private Const ODBC_ERROR_INVALID_HWND            As Long = 3
  Private Const ODBC_ERROR_INVALID_STR             As Long = 4
  Private Const ODBC_ERROR_INVALID_REQUEST_TYPE    As Long = 5
  Private Const ODBC_ERROR_COMPONENT_NOT_FOUND     As Long = 6
  Private Const ODBC_ERROR_INVALID_NAME            As Long = 7
  Private Const ODBC_ERROR_INVALID_KEYWORD_VALUE   As Long = 8
  Private Const ODBC_ERROR_INVALID_DSN             As Long = 9
  Private Const ODBC_ERROR_INVALID_INF             As Long = 10
  Private Const ODBC_ERROR_REQUEST_FAILED          As Long = 11
  Private Const ODBC_ERROR_INVALID_PATH            As Long = 12
  Private Const ODBC_ERROR_LOAD_LIB_FAILED         As Long = 13
  Private Const ODBC_ERROR_INVALID_PARAM_SEQUENCE  As Long = 14
  Private Const ODBC_ERROR_INVALID_LOG_FILE        As Long = 15
  Private Const ODBC_ERROR_USER_CANCELED           As Long = 16
  Private Const ODBC_ERROR_USAGE_UPDATE_FAILED     As Long = 17
  Private Const ODBC_ERROR_CREATE_DSN_FAILED       As Long = 18
  Private Const ODBC_ERROR_WRITING_SYSINFO_FAILED  As Long = 19
  Private Const ODBC_ERROR_REMOVE_DSN_FAILED       As Long = 20
  Private Const ODBC_ERROR_OUT_OF_MEM              As Long = 21
  Private Const ODBC_ERROR_OUTPUT_STRING_TRUNCATED As Long = 22
  
  Private Const SQL_SUCCESS            As Long = 0
  Private Const SQL_SUCCESS_WITH_INFO  As Long = 1
  Private Const SQL_NO_DATA            As Long = 100
  Private Const SQL_ERROR              As Long = -1
  Private Const SQL_INVALID_HANDLE     As Long = -2
  Private Const SQL_MAX_MESSAGE_LENGTH As Long = 512
 
  ' Nul pointer.
  Private Const vbAPINull                 As Long = 0


Private Sub ConfigDSN() 

' Examples of driver names:
'   SQL Server
'   MySQL ODBC 3.51 Driver
'   Microsoft ODBC for Oracle
'
' Example of connection string:
'   DSN=MySQL Test;DESC=MySQL ODBC 3.51 Test;DATABASE=Test;SERVER=192.168.1.100;USER=root;PASSWORD=password;PORT=3306;SOCKET=;OPTION=3;STMT=;
'
    Dim strDriver As String 
    Dim strAttributes As String 
    Dim lngRet As Long 

    strDriver = "SQL Server" & vbNullChar
    strAttributes = "<YourModifiedConnectString>" & vbNullChar
    lngRet = SQLConfigDataSource(Me.hWnd, ODBC_CONFIG_DSN, strDriver, strAttributes) 

End Sub

</code>

This should get you started.

/gustav

>>> paul.hartland at isharp.co.uk 05-01-2006 14:21 >>>
To all,

We are having a new server (very soon) and changing the name to something
like AL-MASTER from AL-ORR the thing is I have a lot of Excel management
reports which use various DSN's pointing to AL-ORR, is there something I
could write in Access or VB that a a click of a button will find these DSN's
and replace the server name ?

Any help on this would be greatly appreciated.

Thanks in advance 

Paul Hartland

P.S. Happy New Year to all list members, don't know what I would do without
it sometimes



From James at fcidms.com  Thu Jan  5 08:40:31 2006
From: James at fcidms.com (James Barash)
Date: Thu, 5 Jan 2006 09:40:31 -0500
Subject: [AccessD] OT - Changing a DSN Connection
In-Reply-To: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAAAaHz+LRnbAQ5PJoO5hBonIAQAAAAA=@isharp.co.uk>
Message-ID: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAAC4AAAAAAAAAeFXhf3hyHUqVRm7J1rf4uwEA51l29XAtAUC2gpAQxILZJQAAAACRlwAAEAAAAK2drcaDzIpHj/2tcBRHmHABAAAAAA==@fcidms.com>

Paul:

It depends how you set up your DSN. If you use User DSN, those are stored in
the registry under Hkey_Current_User\Software\ODBC\ODBC.INI\. You could open
each Key and change the Server to AL-MASTER. If you use a System DSN, those
are stored under Hkey_Local_Machine\Software\ODBC\ODBC.INI\ and you can make
the same change. If you use a File DSN, those files are usually stored in
\Program Files\Common Files\ODBC\Data Sources\. They are just Text files so
you'd need to open each one and change the Server line.

If you know the names of the DSN ahead of time, it's much easier to write
some simple VBA to make the changes. If you need to go through all the DSNs,
it is a little more complicated but certainly possible.

I have some code somewhere for going through the registry to find specific
Keys if you need it.

Hope that helps.

James Barash

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Paul Hartland
(ISHARP)
Sent: Thursday, January 05, 2006 8:21 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] OT - Changing a DSN Connection

To all,

We are having a new server (very soon) and changing the name to something
like AL-MASTER from AL-ORR the thing is I have a lot of Excel management
reports which use various DSN's pointing to AL-ORR, is there something I
could write in Access or VB that a a click of a button will find these DSN's
and replace the server name ?

Any help on this would be greatly appreciated.

Thanks in advance 

Paul Hartland

P.S. Happy New Year to all list members, don't know what I would do without
it sometimes

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



From garykjos at gmail.com  Thu Jan  5 09:32:35 2006
From: garykjos at gmail.com (Gary Kjos)
Date: Thu, 5 Jan 2006 09:32:35 -0600
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <1395319198.20060104232138@mchsi.com>
References: <000801c61156$d2e301f0$6701a8c0@HPLaptop>
	<000901c6119c$356527f0$6101a8c0@JISREGISTRATION.local>
	<43BC8209.3010805@cyberone.com.au>
	<1395319198.20060104232138@mchsi.com>
Message-ID: <aea6c4950601050732q405596f4xa2eb48c780eedcfa@mail.gmail.com>

Congratulations Ron!  And Mrs Ron too!

Don't worry too much about being an older parent. It will help you to
stay young!

--
Gary Kjos
garykjos at gmail.com


From cfoust at infostatsystems.com  Thu Jan  5 10:06:19 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 5 Jan 2006 08:06:19 -0800
Subject: [AccessD] OT: We're Expecting!
Message-ID: <F55048AF7E974F429BB24597D7355EEABED9@INFOSERVER04.infostat.local>

Congratulations and don't worry, it's just like moving from Access VBA
to .Net programming! LOL

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
Sent: Wednesday, January 04, 2006 9:22 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT: We're Expecting!


I know I'm an infrequent contributor here that usually asks for more
help than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first for
both of us.

I'm a little old to be a first time daddy, and the prospect worries me
in all sorts of ways -- but at the same time I've never been happier
:)

Ron



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


From bheid at appdevgrp.com  Thu Jan  5 10:08:33 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 5 Jan 2006 11:08:33 -0500
Subject: [AccessD] Weird report problem (Cross posted to Access-L)...
Message-ID: <916187228923D311A6FE00A0CC3FAA30ABF59C@ADGSERVER>

Hey,

I have a report with two sub-reports on it.  During the latest revision of
the report, I widened some fields and moved around some other fields on the
two sub-reports.

Now, when I preview (or print it), it says there are 46 pages (1 of 46).
But when you go to the end of the report, there are only 11 pages and the
page counter says 11 of 46.  

If I delete either of the sub-reports, it appears to be paging correctly.
It is only when both of them are there that this is happening.

If I run each sub-report separately, it looks like all of the data is there.

The main report is grouped by project and the detail section contains the
two sub-reports.  What is weird is that for each project, it prints two
pages and then a project totals page.  It does this for all of the projects
except for one that only has one record in it.  For the 1st project there
should be about 6-8 pages.  Also, in this database, there is only one record
returned for each sub-report 1.  The 2nd sub-report is the one that is not
displaying all of it's records.

Anyone have any clues as to what may be going on?

Thanks,
Bobby



From cfoust at infostatsystems.com  Thu Jan  5 10:13:46 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 5 Jan 2006 08:13:46 -0800
Subject: [AccessD] Informix, Boolean
Message-ID: <F55048AF7E974F429BB24597D7355EEABEDC@INFOSERVER04.infostat.local>

Gustav,

I don't know Informix, but the code that works suggests you have to
explicitly coerce the field, and particularly null values, from an
Access yes/no field to a boolean/bit value to make the comparison
succeed.  

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 05, 2006 4:03 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Informix, Boolean


Hi all

Didn't some of you have experience with Informix?

Why should you not be able to filter on a Boolean field in a linked
table in Access? Like:

  where field_boolean <> 0

which returns no records while this does:

  where CBool(Nz(field_boolean)) <> 0

Also

  where field_boolean <> "0"

gives a type mismatch error, thus field is numeric.

If no where clause is present, records with values of 0 and -1 are
returned ...

/gustav

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


From starkey at wanadoo.nl  Thu Jan  5 10:17:06 2006
From: starkey at wanadoo.nl (StaRKeY)
Date: Thu, 5 Jan 2006 17:17:06 +0100
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABED9@INFOSERVER04.infostat.local>
Message-ID: <000301c61213$78e770b0$0400a8c0@PC1>

Congrats Ron! 
It's nice the unborn is going to have an experienced person for a father and
as for the rest... I have to agree with Charlotte;)


Regards,
Eric Starkenburg


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Thursday, January 05, 2006 5:06 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT: We're Expecting!

Congratulations and don't worry, it's just like moving from Access VBA
to .Net programming! LOL

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
Sent: Wednesday, January 04, 2006 9:22 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT: We're Expecting!


I know I'm an infrequent contributor here that usually asks for more
help than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first for
both of us.

I'm a little old to be a first time daddy, and the prospect worries me
in all sorts of ways -- but at the same time I've never been happier
:)

Ron



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



---
avast! Antivirus: Uitgaande bericht is niet besmet.
Virus Gegevensbestand (VPS): 0601-2, 05-01-2006
Getest op: 05-01-2006 17:17:07 uur
avast! auteursrecht (c) 1988-2005 ALWIL Software.
http://www.avast.com





From jimdettman at earthlink.net  Thu Jan  5 10:16:23 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Thu, 5 Jan 2006 11:16:23 -0500
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <1395319198.20060104232138@mchsi.com>
Message-ID: <NDEALJOEGMMPCDKIFGNFGECMHNAA.jimdettman@earthlink.net>

Hey Ron,

  Congrats!

<<My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first
for both of us.>>

  What a way to kick off the new year!

Jim.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Ron Allen
Sent: Thursday, January 05, 2006 12:22 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT: We're Expecting!


I know I'm an infrequent contributor here that usually asks for more
help than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first
for both of us.

I'm a little old to be a first time daddy, and the prospect worries me
in all sorts of ways -- but at the same time I've never been happier
:)

Ron



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




From jwcolby at ColbyConsulting.com  Thu Jan  5 10:22:12 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 11:22:12 -0500
Subject: [AccessD] OT: We're Expecting!
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABED9@INFOSERVER04.infostat.local>
Message-ID: <002201c61214$2f5e6880$647aa8c0@ColbyM6805>

>it's just like moving from Access VBA to .Net programming!

ROTFLMAO! Except the results will be with you for at LEAST 3 times as long!


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Thursday, January 05, 2006 11:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT: We're Expecting!

Congratulations and don't worry, it's just like moving from Access VBA to
.Net programming! LOL

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
Sent: Wednesday, January 04, 2006 9:22 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT: We're Expecting!


I know I'm an infrequent contributor here that usually asks for more help
than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a baby.
This was confirmed by the doctor this morning. It's the first for both of
us.

I'm a little old to be a first time daddy, and the prospect worries me in
all sorts of ways -- but at the same time I've never been happier
:)

Ron



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



From Gustav at cactus.dk  Thu Jan  5 10:33:44 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 05 Jan 2006 17:33:44 +0100
Subject: [AccessD] Informix, Boolean
Message-ID: <s3bd5894.012@cactus.dk>

Hi Charlotte

Yes, but why should that be needed?

Note, the query runs in Access using the attached file from Informix. 
According to the docs, an Informix Boolean field may contain Nulls but this table should not carry any Nulls only True or False.

If you run similar code in Informix as simple as:

  where field_boolean

it works. (=> only records with True values are returned).
Neither does this exact syntax work in Access.

/gustav

>>> cfoust at infostatsystems.com 05-01-2006 17:13 >>>
Gustav,

I don't know Informix, but the code that works suggests you have to
explicitly coerce the field, and particularly null values, from an
Access yes/no field to a boolean/bit value to make the comparison
succeed.  

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 05, 2006 4:03 AM
To: accessd at databaseadvisors.com 
Subject: [AccessD] Informix, Boolean


Hi all

Didn't some of you have experience with Informix?

Why should you not be able to filter on a Boolean field in a linked
table in Access? Like:

  where field_boolean <> 0

which returns no records while this does:

  where CBool(Nz(field_boolean)) <> 0

Also

  where field_boolean <> "0"

gives a type mismatch error, thus field is numeric.

If no where clause is present, records with values of 0 and -1 are
returned ...

/gustav




From jmhecht at earthlink.net  Thu Jan  5 10:37:57 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 5 Jan 2006 08:37:57 -0800
Subject: [AccessD] Check Box Back Color
In-Reply-To: <s3bd245c.098@cactus.dk>
Message-ID: <001d01c61216$6329c4a0$6701a8c0@HPLaptop>

I agree.  With my limited coding skills and this db doing to
many new things for me to any braver than I need to be.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Gustav Brock
Sent: Thursday, January 05, 2006 4:51 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Check Box Back Color

Hi William

 Personally I believe there should be a very good reason for
using non-standard user interface controls.

/gustav





From jmhecht at earthlink.net  Thu Jan  5 10:40:57 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 5 Jan 2006 08:40:57 -0800
Subject: [AccessD] Tab Control & Sub Form
In-Reply-To: <200601051410.k05EAlV23559@databaseadvisors.com>
Message-ID: <001e01c61216$cddfbb10$6701a8c0@HPLaptop>

Arthur,

I like the look of the second one.

Joe Hecht
jmhecht at earthlink.net

A couple of options spring to mind:
a) in design mode, choose the one you like best then click
through all the
tabs and align their subforms to that top-left coordinate.
b) make the subforms' border transparent and flat so it is
not apparent that
a subform lives on each tab page.



From shamil at users.mns.ru  Thu Jan  5 10:52:10 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 5 Jan 2006 19:52:10 +0300
Subject: [AccessD] OT: Non-modal forms cannot be displayed in this host
	application from an ActiveX..
Message-ID: <002a01c61218$6460ac10$6501a8c0@fincomplex.spb.ru>

Hi All,

You may have met with the following message when opening from VB.NET a
non-modal VB6 form of an VB6 ActiveX DLL:

<+
'Non-modal forms cannot be displayed in this host application from an
ActiveX DLL, ActiveX Control, or Property page'
->

As far as I see from this article -
http://edndoc.esri.com/arcobjects/9.1/ArcGISDevHelp/TechnicalDocuments/Migrating/..%5CModelessVBDialogs.htm -
the above issue can be workarounded by using what they call Modeless frame.

Haven't you seen anywhere such a Modeless frame source code on C++?

Thank you,
Shamil



From Lambert.Heenan at AIG.com  Thu Jan  5 10:47:54 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Thu, 5 Jan 2006 10:47:54 -0600 
Subject: [AccessD] Check Box Back Color
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19DF5E@xlivmbx21.aig.com>

Personally I believe that the Access Checkbox control is a prime candidate
for being changed. It is way too small, even if you have good eyesight and
anything that can be done to improve its usability is worthwhile.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Thursday, January 05, 2006 11:38 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Check Box Back Color


I agree.  With my limited coding skills and this db doing to many new things
for me to any braver than I need to be.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 05, 2006 4:51 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Check Box Back Color

Hi William

 Personally I believe there should be a very good reason for using
non-standard user interface controls.

/gustav



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


From John.Clark at niagaracounty.com  Thu Jan  5 11:00:29 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Thu, 05 Jan 2006 12:00:29 -0500
Subject: [AccessD] Problem converting code
Message-ID: <s3bd0ac6.084@nebnov3.niagaracounty.com>

I figured it was something like this, but I added the reference to ADO
3.51, which is what is in A97, and made sure it was above ADO, but it
still gives me an error on that line, saying that there are "Two few
parameters. Expected 1." Now, when I first tried using this, I was
getting "can't find tblMain" which isn't even in the code
anywhere that I can find.

>>> wdhindman at bellsouth.net 1/5/2006 9:31 AM >>>
...and don't forget to set the DAO reference higher in the list than
the ADO 
reference ...or remove the ADO reference altogether.

William

----- Original Message ----- 
From: "Bryan Carbonnell" <carbonnb at gmail.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 9:21 AM
Subject: Re: [AccessD] Problem converting code


> On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:
>
>> The bigger problem though is that this was done in A97 and I am now
>> using A2K. I will be redoing this program in A2K and the program I
am
>> currently working on and trying to reuse the code in, is also A2K. I
am
>> getting errors on the line, "Set rst =
CodeDb.OpenRecordset(strSQL)"
>> that says too few parameters. I am either being totally dense (a
>> distinct possibility) or it is a DAO vs. ADO problem, which I can
not
>> get through my skull and always have problems with...making me
dense
>> again...hmmmm.
>
> It appears to be DAO code, so you will need to add a reference to
DAO.
> A2K defaults to ADO.
>
> --
> Bryan Carbonnell - carbonnb at gmail.com 
> Life's journey is not to arrive at the grave safely in a well
> preserved body, but rather to skid in sideways, totally worn out,
> shouting "What a great ride!"
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> 


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


From wdhindman at bellsouth.net  Thu Jan  5 11:32:39 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 5 Jan 2006 12:32:39 -0500
Subject: [AccessD] Problem converting code
References: <s3bd0ac6.084@nebnov3.niagaracounty.com>
Message-ID: <009101c6121e$06ede290$6101a8c0@JISREGISTRATION.local>

...I'd use DAO 3.6 instead of 3.51 in A2K and above ...as for the tblMain 
bit, have you decompiled the code as yet?
...if that doesn't do it and you don't have a decent search tool (Access is 
a bad joke as far as searches) like Speed Ferret then take a look at your 
form event properties and data sources ...I put as much there as I can to 
avoid form code modules when possible but pre A2K3 Access searches usually 
won't find them.

William

----- Original Message ----- 
From: "John Clark" <John.Clark at niagaracounty.com>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 12:00 PM
Subject: Re: [AccessD] Problem converting code


>I figured it was something like this, but I added the reference to ADO
> 3.51, which is what is in A97, and made sure it was above ADO, but it
> still gives me an error on that line, saying that there are "Two few
> parameters. Expected 1." Now, when I first tried using this, I was
> getting "can't find tblMain" which isn't even in the code
> anywhere that I can find.
>
>>>> wdhindman at bellsouth.net 1/5/2006 9:31 AM >>>
> ...and don't forget to set the DAO reference higher in the list than
> the ADO
> reference ...or remove the ADO reference altogether.
>
> William
>
> ----- Original Message ----- 
> From: "Bryan Carbonnell" <carbonnb at gmail.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 05, 2006 9:21 AM
> Subject: Re: [AccessD] Problem converting code
>
>
>> On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:
>>
>>> The bigger problem though is that this was done in A97 and I am now
>>> using A2K. I will be redoing this program in A2K and the program I
> am
>>> currently working on and trying to reuse the code in, is also A2K. I
> am
>>> getting errors on the line, "Set rst =
> CodeDb.OpenRecordset(strSQL)"
>>> that says too few parameters. I am either being totally dense (a
>>> distinct possibility) or it is a DAO vs. ADO problem, which I can
> not
>>> get through my skull and always have problems with...making me
> dense
>>> again...hmmmm.
>>
>> It appears to be DAO code, so you will need to add a reference to
> DAO.
>> A2K defaults to ADO.
>>
>> --
>> Bryan Carbonnell - carbonnb at gmail.com
>> Life's journey is not to arrive at the grave safely in a well
>> preserved body, but rather to skid in sideways, totally worn out,
>> shouting "What a great ride!"
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From cfoust at infostatsystems.com  Thu Jan  5 11:33:00 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 5 Jan 2006 09:33:00 -0800
Subject: [AccessD] Problem converting code
Message-ID: <F55048AF7E974F429BB24597D7355EEABEDE@INFOSERVER04.infostat.local>

You may need to specify the type of recordset, John.  If I remember
correctly, the default changed with A2k to something like ForwardOnly.
On the other hand, you haven't posted the SQL, so there may be a problem
in it.  Once thing to watch out for is that A97 accepted things like
Forms!MyForm![ControlName] as a parameter in a query and saved them that
way, while converting that query to a later version results in
[Forms!MyForm![ControlName]] in the parameter and a parameter error when
the query is accessed.  To fix it, you have to go through each query
parameters and correct the bracketing.  Brackets are required around
EACH element when you reference a form object.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Thursday, January 05, 2006 9:00 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Problem converting code


I figured it was something like this, but I added the reference to ADO
3.51, which is what is in A97, and made sure it was above ADO, but it
still gives me an error on that line, saying that there are "Two few
parameters. Expected 1." Now, when I first tried using this, I was
getting "can't find tblMain" which isn't even in the code anywhere that
I can find.

>>> wdhindman at bellsouth.net 1/5/2006 9:31 AM >>>
...and don't forget to set the DAO reference higher in the list than the
ADO 
reference ...or remove the ADO reference altogether.

William

----- Original Message ----- 
From: "Bryan Carbonnell" <carbonnb at gmail.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 9:21 AM
Subject: Re: [AccessD] Problem converting code


> On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:
>
>> The bigger problem though is that this was done in A97 and I am now 
>> using A2K. I will be redoing this program in A2K and the program I
am
>> currently working on and trying to reuse the code in, is also A2K. I
am
>> getting errors on the line, "Set rst =
CodeDb.OpenRecordset(strSQL)"
>> that says too few parameters. I am either being totally dense (a 
>> distinct possibility) or it is a DAO vs. ADO problem, which I can
not
>> get through my skull and always have problems with...making me
dense
>> again...hmmmm.
>
> It appears to be DAO code, so you will need to add a reference to
DAO.
> A2K defaults to ADO.
>
>


From Jim.Hale at FleetPride.com  Thu Jan  5 10:55:41 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Thu, 5 Jan 2006 10:55:41 -0600 
Subject: [AccessD] OT: We're Expecting!
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD93E@corp-es01.fleetpride.com>

LOL. And when they turn 16 it will be like trying to program the
HAL9000...watch out for serious bugs in the program.
Congrats
Jim Hale

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Thursday, January 05, 2006 10:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT: We're Expecting!


Congratulations and don't worry, it's just like moving from Access VBA
to .Net programming! LOL

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
Sent: Wednesday, January 04, 2006 9:22 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT: We're Expecting!


I know I'm an infrequent contributor here that usually asks for more
help than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first for
both of us.

I'm a little old to be a first time daddy, and the prospect worries me
in all sorts of ways -- but at the same time I've never been happier
:)

Ron



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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From john at winhaven.net  Thu Jan  5 11:40:11 2006
From: john at winhaven.net (John Bartow)
Date: Thu, 5 Jan 2006 11:40:11 -0600
Subject: [AccessD] Informix, Boolean
In-Reply-To: <s3bd1923.095@cactus.dk>
Message-ID: <006701c6121f$1493bb30$6f01a8c0@ScuzzPaq>

Hi Gustav,
When I used Informix (a long time ago) it did not have a boolean field type.
The data type "Byte" was actually binary as in BLOB data.
The data type "Numeric" was a synonym for "Decimal" defined as "a number
with defineable scale and precision" which IIRC would correlate to a Single.
The data type "Float" was double precision - IIRC the same as "Double".

I have some old informix manuals in pdf form if you'd like them.

John B.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 05, 2006 6:03 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Informix, Boolean

Hi all

Didn't some of you have experience with Informix?

Why should you not be able to filter on a Boolean field in a linked table in
Access? Like:

  where field_boolean <> 0

which returns no records while this does:

  where CBool(Nz(field_boolean)) <> 0

Also

  where field_boolean <> "0"

gives a type mismatch error, thus field is numeric.

If no where clause is present, records with values of 0 and -1 are returned
...

/gustav

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



From John.Clark at niagaracounty.com  Thu Jan  5 11:54:54 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Thu, 05 Jan 2006 12:54:54 -0500
Subject: [AccessD] OT: We're Expecting!
Message-ID: <s3bd1747.094@nebnov3.niagaracounty.com>

>From my experience, it seems that those that worry are usually the ones
who turn out to be decent parents...they strive to be such and that is
the basis of the worry. If you didn't worry, you wouldn't care, and
that would be a problem. Congrats and good luck!

John W Clark
Another who gets far more help than I can give!

>>> chizotz at mchsi.com 1/5/2006 12:21 AM >>>
I know I'm an infrequent contributor here that usually asks for more
help than I end up giving, but I wanted to share this with you all :)

My wife and I found out on New Year's Eve that we're going to have a
baby. This was confirmed by the doctor this morning. It's the first
for both of us.

I'm a little old to be a first time daddy, and the prospect worries me
in all sorts of ways -- but at the same time I've never been happier
:)

Ron



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


From Gustav at cactus.dk  Thu Jan  5 12:05:11 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 05 Jan 2006 19:05:11 +0100
Subject: [AccessD] Informix, Boolean
Message-ID: <s3bd6e0d.017@cactus.dk>

Hi John

Thanks, that was along one my thoughts - is Boolean a Boolean?
But if you study the linked table in design view, it tells type Yes/No for that field.

I wouldn't need the manuals. IBM has done a nice work putting up all official info on the web - but I guess simply not that many Informixolics use Access for access ...

/gustav

>>> john at winhaven.net 05-01-2006 18:40 >>>
Hi Gustav,
When I used Informix (a long time ago) it did not have a boolean field type.
The data type "Byte" was actually binary as in BLOB data.
The data type "Numeric" was a synonym for "Decimal" defined as "a number
with defineable scale and precision" which IIRC would correlate to a Single.
The data type "Float" was double precision - IIRC the same as "Double".

I have some old informix manuals in pdf form if you'd like them.

John B.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 05, 2006 6:03 AM
To: accessd at databaseadvisors.com 
Subject: [AccessD] Informix, Boolean

Hi all

Didn't some of you have experience with Informix?

Why should you not be able to filter on a Boolean field in a linked table in
Access? Like:

  where field_boolean <> 0

which returns no records while this does:

  where CBool(Nz(field_boolean)) <> 0

Also

  where field_boolean <> "0"

gives a type mismatch error, thus field is numeric.

If no where clause is present, records with values of 0 and -1 are returned
...

/gustav




From john at winhaven.net  Thu Jan  5 12:19:28 2006
From: john at winhaven.net (John Bartow)
Date: Thu, 5 Jan 2006 12:19:28 -0600
Subject: [AccessD] Informix, Boolean
In-Reply-To: <s3bd6e0d.017@cactus.dk>
Message-ID: <000e01c61224$91ec8f80$7001a8c0@ScuzzPaq>

Gustav,
It could well be that Informix now supports a Boolean data type - many
things have happened since I used it, for instance IBM bought the company.
When I used it Informix was one of the "big dogs" in the RDBMS field.

I'm not sure but I think you're saying the Informix data is a linked table
in Access, is this correct? If so you may need to check the data source and
see how the field is typed there and adjust appropriately even though Access
says its Yes/No.

John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock

Hi John

Thanks, that was along one my thoughts - is Boolean a Boolean?
But if you study the linked table in design view, it tells type Yes/No for
that field.

I wouldn't need the manuals. IBM has done a nice work putting up all
official info on the web - but I guess simply not that many Informixolics
use Access for access ...

/gustav




From John.Clark at niagaracounty.com  Thu Jan  5 12:48:16 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Thu, 05 Jan 2006 13:48:16 -0500
Subject: [AccessD] Problem converting code
Message-ID: <s3bd2415.075@nebnov3.niagaracounty.com>

I tried this first, thinking, "newer may be better," but I got the
same thing, so I set it to exactly what was in my A97.

>>> wdhindman at bellsouth.net 1/5/2006 12:32 PM >>>
...I'd use DAO 3.6 instead of 3.51 in A2K and above ...as for the
tblMain 
bit, have you decompiled the code as yet?
...if that doesn't do it and you don't have a decent search tool
(Access is 
a bad joke as far as searches) like Speed Ferret then take a look at
your 
form event properties and data sources ...I put as much there as I can
to 
avoid form code modules when possible but pre A2K3 Access searches
usually 
won't find them.

William

----- Original Message ----- 
From: "John Clark" <John.Clark at niagaracounty.com>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 12:00 PM
Subject: Re: [AccessD] Problem converting code


>I figured it was something like this, but I added the reference to
ADO
> 3.51, which is what is in A97, and made sure it was above ADO, but
it
> still gives me an error on that line, saying that there are "Two few
> parameters. Expected 1." Now, when I first tried using this, I was
> getting "can't find tblMain" which isn't even in the code
> anywhere that I can find.
>
>>>> wdhindman at bellsouth.net 1/5/2006 9:31 AM >>>
> ...and don't forget to set the DAO reference higher in the list than
> the ADO
> reference ...or remove the ADO reference altogether.
>
> William
>
> ----- Original Message ----- 
> From: "Bryan Carbonnell" <carbonnb at gmail.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 05, 2006 9:21 AM
> Subject: Re: [AccessD] Problem converting code
>
>
>> On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:
>>
>>> The bigger problem though is that this was done in A97 and I am
now
>>> using A2K. I will be redoing this program in A2K and the program I
> am
>>> currently working on and trying to reuse the code in, is also A2K.
I
> am
>>> getting errors on the line, "Set rst =
> CodeDb.OpenRecordset(strSQL)"
>>> that says too few parameters. I am either being totally dense (a
>>> distinct possibility) or it is a DAO vs. ADO problem, which I can
> not
>>> get through my skull and always have problems with...making me
> dense
>>> again...hmmmm.
>>
>> It appears to be DAO code, so you will need to add a reference to
> DAO.
>> A2K defaults to ADO.
>>
>> --
>> Bryan Carbonnell - carbonnb at gmail.com 
>> Life's journey is not to arrive at the grave safely in a well
>> preserved body, but rather to skid in sideways, totally worn out,
>> shouting "What a great ride!"
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com 
>> http://databaseadvisors.com/mailman/listinfo/accessd 
>> Website: http://www.databaseadvisors.com 
>>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> 


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


From cfoust at infostatsystems.com  Thu Jan  5 13:00:02 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 5 Jan 2006 11:00:02 -0800
Subject: [AccessD] Problem converting code
Message-ID: <F55048AF7E974F429BB24597D7355EEABEE0@INFOSERVER04.infostat.local>

DAO 3.51 really doesn't work with A2K and later because they are built
on DAO 3.6.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Thursday, January 05, 2006 10:48 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Problem converting code


I tried this first, thinking, "newer may be better," but I got the same
thing, so I set it to exactly what was in my A97.

>>> wdhindman at bellsouth.net 1/5/2006 12:32 PM >>>
...I'd use DAO 3.6 instead of 3.51 in A2K and above ...as for the
tblMain 
bit, have you decompiled the code as yet?
...if that doesn't do it and you don't have a decent search tool (Access
is 
a bad joke as far as searches) like Speed Ferret then take a look at
your 
form event properties and data sources ...I put as much there as I can
to 
avoid form code modules when possible but pre A2K3 Access searches
usually 
won't find them.

William

----- Original Message ----- 
From: "John Clark" <John.Clark at niagaracounty.com>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 12:00 PM
Subject: Re: [AccessD] Problem converting code


>I figured it was something like this, but I added the reference to
ADO
> 3.51, which is what is in A97, and made sure it was above ADO, but
it
> still gives me an error on that line, saying that there are "Two few 
> parameters. Expected 1." Now, when I first tried using this, I was 
> getting "can't find tblMain" which isn't even in the code anywhere 
> that I can find.
>
>>>> wdhindman at bellsouth.net 1/5/2006 9:31 AM >>>
> ...and don't forget to set the DAO reference higher in the list than 
> the ADO reference ...or remove the ADO reference altogether.
>
> William
>
> ----- Original Message -----
> From: "Bryan Carbonnell" <carbonnb at gmail.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 05, 2006 9:21 AM
> Subject: Re: [AccessD] Problem converting code
>
>
>> On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:
>>
>>> The bigger problem though is that this was done in A97 and I am
now
>>> using A2K. I will be redoing this program in A2K and the program I
> am
>>> currently working on and trying to reuse the code in, is also A2K.
I
> am
>>> getting errors on the line, "Set rst =
> CodeDb.OpenRecordset(strSQL)"
>>> that says too few parameters. I am either being totally dense (a 
>>> distinct possibility) or it is a DAO vs. ADO problem, which I can
> not
>>> get through my skull and always have problems with...making me
> dense
>>> again...hmmmm.
>>
>> It appears to be DAO code, so you will need to add a reference to
> DAO.
>> A2K defaults to ADO.
>>
>> --
>> Bryan Carbonnell - carbonnb at gmail.com
>> Life's journey is not to arrive at the grave safely in a well
>> preserved body, but rather to skid in sideways, totally worn out,
>> shouting "What a great ride!"
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com 
>> http://databaseadvisors.com/mailman/listinfo/accessd 
>> Website: http://www.databaseadvisors.com 
>>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> 


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


From shamil at users.mns.ru  Thu Jan  5 13:13:55 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 5 Jan 2006 22:13:55 +0300
Subject: [AccessD] OT: Non-modal forms cannot be displayed in this
	hostapplication from an ActiveX..
References: <002a01c61218$6460ac10$6501a8c0@fincomplex.spb.ru>
Message-ID: <00ba01c6122c$34f01c90$6501a8c0@fincomplex.spb.ru>

Simple workaround found here:

http://www.desaware.com/support/faq/spyworks/swfaqthreading.aspx

DESAWARE rules!

Shamil

----- Original Message ----- 
From: "Shamil Salakhetdinov" <shamil at users.mns.ru>
To: "!DBA-MAIN" <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 7:52 PM
Subject: [AccessD] OT: Non-modal forms cannot be displayed in this
hostapplication from an ActiveX..


> Hi All,
>
> You may have met with the following message when opening from VB.NET a
> non-modal VB6 form of an VB6 ActiveX DLL:
>
> <+
> 'Non-modal forms cannot be displayed in this host application from an
> ActiveX DLL, ActiveX Control, or Property page'
> ->
>
> As far as I see from this article -
>
http://edndoc.esri.com/arcobjects/9.1/ArcGISDevHelp/TechnicalDocuments/Migrating/..%5CModelessVBDialogs.htm -
> the above issue can be workarounded by using what they call Modeless
frame.
>
> Haven't you seen anywhere such a Modeless frame source code on C++?
>
> Thank you,
> Shamil
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From garykjos at gmail.com  Thu Jan  5 13:16:35 2006
From: garykjos at gmail.com (Gary Kjos)
Date: Thu, 5 Jan 2006 13:16:35 -0600
Subject: [AccessD] Problem converting code
In-Reply-To: <s3bd2415.075@nebnov3.niagaracounty.com>
References: <s3bd2415.075@nebnov3.niagaracounty.com>
Message-ID: <aea6c4950601051116v1a127561yc9d006f06ce9c4e@mail.gmail.com>

Have you tried to explicitly declare your database and recordset as DAO ??

    Dim dbs As DAO.Database, rst As DAO.Recordset


--
Gary Kjos
garykjos at gmail.com


From John.Clark at niagaracounty.com  Thu Jan  5 13:18:58 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Thu, 05 Jan 2006 14:18:58 -0500
Subject: [AccessD] Problem converting code
Message-ID: <s3bd2b01.052@nebnov3.niagaracounty.com>

I think the decompile did it William. I just ran it and the original
seems to be working. I've still got some polishing, but it is looking
good. I'll let y'all know how I make out.

>>> wdhindman at bellsouth.net 1/5/2006 12:32 PM >>>
...I'd use DAO 3.6 instead of 3.51 in A2K and above ...as for the
tblMain 
bit, have you decompiled the code as yet?
...if that doesn't do it and you don't have a decent search tool
(Access is 
a bad joke as far as searches) like Speed Ferret then take a look at
your 
form event properties and data sources ...I put as much there as I can
to 
avoid form code modules when possible but pre A2K3 Access searches
usually 
won't find them.

William

----- Original Message ----- 
From: "John Clark" <John.Clark at niagaracounty.com>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 12:00 PM
Subject: Re: [AccessD] Problem converting code


>I figured it was something like this, but I added the reference to
ADO
> 3.51, which is what is in A97, and made sure it was above ADO, but
it
> still gives me an error on that line, saying that there are "Two few
> parameters. Expected 1." Now, when I first tried using this, I was
> getting "can't find tblMain" which isn't even in the code
> anywhere that I can find.
>
>>>> wdhindman at bellsouth.net 1/5/2006 9:31 AM >>>
> ...and don't forget to set the DAO reference higher in the list than
> the ADO
> reference ...or remove the ADO reference altogether.
>
> William
>
> ----- Original Message ----- 
> From: "Bryan Carbonnell" <carbonnb at gmail.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 05, 2006 9:21 AM
> Subject: Re: [AccessD] Problem converting code
>
>
>> On 05/01/06, John Clark <John.Clark at niagaracounty.com> wrote:
>>
>>> The bigger problem though is that this was done in A97 and I am
now
>>> using A2K. I will be redoing this program in A2K and the program I
> am
>>> currently working on and trying to reuse the code in, is also A2K.
I
> am
>>> getting errors on the line, "Set rst =
> CodeDb.OpenRecordset(strSQL)"
>>> that says too few parameters. I am either being totally dense (a
>>> distinct possibility) or it is a DAO vs. ADO problem, which I can
> not
>>> get through my skull and always have problems with...making me
> dense
>>> again...hmmmm.
>>
>> It appears to be DAO code, so you will need to add a reference to
> DAO.
>> A2K defaults to ADO.
>>
>> --
>> Bryan Carbonnell - carbonnb at gmail.com 
>> Life's journey is not to arrive at the grave safely in a well
>> preserved body, but rather to skid in sideways, totally worn out,
>> shouting "What a great ride!"
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com 
>> http://databaseadvisors.com/mailman/listinfo/accessd 
>> Website: http://www.databaseadvisors.com 
>>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> 


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


From jwcolby at ColbyConsulting.com  Thu Jan  5 14:01:20 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 15:01:20 -0500
Subject: [AccessD] Himachi
In-Reply-To: <000401c611ec$eb6fbb00$2e01a8c0@fredxp>
Message-ID: <003201c61232$cc5adf10$647aa8c0@ColbyM6805>

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper



From Lambert.Heenan at AIG.com  Thu Jan  5 14:18:02 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Thu, 5 Jan 2006 15:18:02 -0500 
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002 (aka
	Access XP)
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E0C3@xlivmbx21.aig.com>

I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not successful
because they would create duplicate values in the index, primary key, or
relationship.  Change the data in the field or fields that contain duplicate
data, remove the index, or redefine the index to permit duplicate entries
and try again."

This was in a block of code that was simply appending new records to a table
that has a standard,  AutoNumber field called "ID". (This code has been in
use for the past three years) No other field in the table has a unique
index. The code was like this...

     With RS_Premium_Stream
        For n = LBound(mod_tPremiumArray) To UBound(mod_tPremiumArray)
            tPremiumInfo = mod_tPremiumArray(n)
            .AddNew
            !Policy_ID = tPremiumInfo.nPolicy_ID
            !nPolicyYear = tPremiumInfo.nPolicyYear
            !cPremiumProjection = tPremiumInfo.cPremiumProjection
            !cAnnualLoanInterest = tPremiumInfo.cAnnualLoanInterest
             !dDueDate = tPremiumInfo.dDueDate
            !bPaid = tPremiumInfo.bPaidStatus
            !nAge = tPremiumInfo.nAge
            !dDateCreated = dDataFileLoadDate
            .Update: SysCmd acSysCmdUpdateMeter, n
        Next n

... and the error happened when the .Update line executed. Stepping though
the code I discovered that just before the first execution of the .AddNew
line the value of RS_Premium_Stream!ID was the ID value of the "first
record" in the table, as you might expect, but after executing .AddNew the
value of ID was now that of an *existing* record a few hundred rows into the
table!!! This of course cause the duplicate error when the Update method was
called.

I tried Compact (from the command line), Compact and Repair from the Access
menus, but those did not fix the trouble. Then I tried running a Make Table
query to create a copy of the data (retaining the values of the ID field) in
a new table, but the new table exhibited the same error. JetComp didn't make
any difference either!!!!

The cure? Make a new empty table with the same structure. Then run an append
query to append all existing records to the new table - this preserves the
values of the autonumber field in the existing table - and then delete the
old table and rename the new one. You'd think that simply running a Make
Table query would have the same effect, but no, that just gives you a copy
of the table that exhibits the same problem.

What a pain!

Lambert 


From jwcolby at ColbyConsulting.com  Thu Jan  5 14:32:17 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 15:32:17 -0500
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002
	(akaAccess XP)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E0C3@xlivmbx21.aig.com>
Message-ID: <003301c61237$1f9d1f90$647aa8c0@ColbyM6805>

Lambert

I make an append query where I get the max() of the ID field, add 1, alias
it and append that back in to the table as a new record.  This adds a bogus
record to the end of the table which I then delete back out.  The autonumber
is now reset and off I go.  The only issue is if there are other fields that
have constraints then it becomes a bit more difficult discovering and
building such values. 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Thursday, January 05, 2006 3:18 PM
To: 'Access-D Email (accessd at databaseadvisors.com)'; 'ACCESS-L Email
(ACCESS-L at PEACH.EASE.LSOFT.COM)'
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002 (akaAccess
XP)

I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not successful
because they would create duplicate values in the index, primary key, or
relationship.  Change the data in the field or fields that contain duplicate
data, remove the index, or redefine the index to permit duplicate entries
and try again."

This was in a block of code that was simply appending new records to a table
that has a standard,  AutoNumber field called "ID". (This code has been in
use for the past three years) No other field in the table has a unique
index. The code was like this...

     With RS_Premium_Stream
        For n = LBound(mod_tPremiumArray) To UBound(mod_tPremiumArray)
            tPremiumInfo = mod_tPremiumArray(n)
            .AddNew
            !Policy_ID = tPremiumInfo.nPolicy_ID
            !nPolicyYear = tPremiumInfo.nPolicyYear
            !cPremiumProjection = tPremiumInfo.cPremiumProjection
            !cAnnualLoanInterest = tPremiumInfo.cAnnualLoanInterest
             !dDueDate = tPremiumInfo.dDueDate
            !bPaid = tPremiumInfo.bPaidStatus
            !nAge = tPremiumInfo.nAge
            !dDateCreated = dDataFileLoadDate
            .Update: SysCmd acSysCmdUpdateMeter, n
        Next n

... and the error happened when the .Update line executed. Stepping though
the code I discovered that just before the first execution of the .AddNew
line the value of RS_Premium_Stream!ID was the ID value of the "first
record" in the table, as you might expect, but after executing .AddNew the
value of ID was now that of an *existing* record a few hundred rows into the
table!!! This of course cause the duplicate error when the Update method was
called.

I tried Compact (from the command line), Compact and Repair from the Access
menus, but those did not fix the trouble. Then I tried running a Make Table
query to create a copy of the data (retaining the values of the ID field) in
a new table, but the new table exhibited the same error. JetComp didn't make
any difference either!!!!

The cure? Make a new empty table with the same structure. Then run an append
query to append all existing records to the new table - this preserves the
values of the autonumber field in the existing table - and then delete the
old table and rename the new one. You'd think that simply running a Make
Table query would have the same effect, but no, that just gives you a copy
of the table that exhibits the same problem.

What a pain!

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



From RRANTHON at sentara.com  Thu Jan  5 14:38:01 2006
From: RRANTHON at sentara.com (Randall R Anthony)
Date: Thu, 05 Jan 2006 15:38:01 -0500
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002	(aka
	Access XP)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E0C3@xlivmbx21.aig.com>
References: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E0C3@xlivmbx21.aig.com>
Message-ID: <200601052038.k05KcSV06096@databaseadvisors.com>

I had a similar problem, however it was dumb developer related.  I had
the autonumber set to integer, which ran out at 32 thousand whatever. 
Changing the field size to Long Integer fixed it.

>>> Lambert.Heenan at aig.com 01/05/06 3:18 PM >>>
I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not
successful
because they would create duplicate values in the index, primary key,
or
relationship.  Change the data in the field or fields that contain
duplicate
data, remove the index, or redefine the index to permit duplicate
entries
and try again."

This was in a block of code that was simply appending new records to a
table
that has a standard,  AutoNumber field called "ID". (This code has been
in
use for the past three years) No other field in the table has a unique
index. The code was like this...

     With RS_Premium_Stream
        For n = LBound(mod_tPremiumArray) To UBound(mod_tPremiumArray)
            tPremiumInfo = mod_tPremiumArray(n)
            .AddNew
            !Policy_ID = tPremiumInfo.nPolicy_ID
            !nPolicyYear = tPremiumInfo.nPolicyYear
            !cPremiumProjection = tPremiumInfo.cPremiumProjection
            !cAnnualLoanInterest = tPremiumInfo.cAnnualLoanInterest
             !dDueDate = tPremiumInfo.dDueDate
            !bPaid = tPremiumInfo.bPaidStatus
            !nAge = tPremiumInfo.nAge
            !dDateCreated = dDataFileLoadDate
            .Update: SysCmd acSysCmdUpdateMeter, n
        Next n

... and the error happened when the .Update line executed. Stepping
though
the code I discovered that just before the first execution of the
.AddNew
line the value of RS_Premium_Stream!ID was the ID value of the "first
record" in the table, as you might expect, but after executing .AddNew
the
value of ID was now that of an *existing* record a few hundred rows
into the
table!!! This of course cause the duplicate error when the Update
method was
called.

I tried Compact (from the command line), Compact and Repair from the
Access
menus, but those did not fix the trouble. Then I tried running a Make
Table
query to create a copy of the data (retaining the values of the ID
field) in
a new table, but the new table exhibited the same error. JetComp didn't
make
any difference either!!!!

The cure? Make a new empty table with the same structure. Then run an
append
query to append all existing records to the new table - this preserves
the
values of the autonumber field in the existing table - and then delete
the
old table and rename the new one. You'd think that simply running a
Make
Table query would have the same effect, but no, that just gives you a
copy
of the table that exhibits the same problem.

What a pain!

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


From jimdettman at earthlink.net  Thu Jan  5 14:40:24 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Thu, 5 Jan 2006 15:40:24 -0500
Subject: [AccessD] More Strange Autonumber Behavior - Access
	2002(akaAccess XP)
In-Reply-To: <003301c61237$1f9d1f90$647aa8c0@ColbyM6805>
Message-ID: <NDEALJOEGMMPCDKIFGNFMEFAHNAA.jimdettman@earthlink.net>


  Man if you guys only used natural keys....


  Sorry, couldn't resist.

Jim.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
Sent: Thursday, January 05, 2006 3:32 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access
2002(akaAccess XP)


Lambert

I make an append query where I get the max() of the ID field, add 1, alias
it and append that back in to the table as a new record.  This adds a bogus
record to the end of the table which I then delete back out.  The autonumber
is now reset and off I go.  The only issue is if there are other fields that
have constraints then it becomes a bit more difficult discovering and
building such values.


John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Thursday, January 05, 2006 3:18 PM
To: 'Access-D Email (accessd at databaseadvisors.com)'; 'ACCESS-L Email
(ACCESS-L at PEACH.EASE.LSOFT.COM)'
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002 (akaAccess
XP)

I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not successful
because they would create duplicate values in the index, primary key, or
relationship.  Change the data in the field or fields that contain duplicate
data, remove the index, or redefine the index to permit duplicate entries
and try again."

This was in a block of code that was simply appending new records to a table
that has a standard,  AutoNumber field called "ID". (This code has been in
use for the past three years) No other field in the table has a unique
index. The code was like this...

     With RS_Premium_Stream
        For n = LBound(mod_tPremiumArray) To UBound(mod_tPremiumArray)
            tPremiumInfo = mod_tPremiumArray(n)
            .AddNew
            !Policy_ID = tPremiumInfo.nPolicy_ID
            !nPolicyYear = tPremiumInfo.nPolicyYear
            !cPremiumProjection = tPremiumInfo.cPremiumProjection
            !cAnnualLoanInterest = tPremiumInfo.cAnnualLoanInterest
             !dDueDate = tPremiumInfo.dDueDate
            !bPaid = tPremiumInfo.bPaidStatus
            !nAge = tPremiumInfo.nAge
            !dDateCreated = dDataFileLoadDate
            .Update: SysCmd acSysCmdUpdateMeter, n
        Next n

... and the error happened when the .Update line executed. Stepping though
the code I discovered that just before the first execution of the .AddNew
line the value of RS_Premium_Stream!ID was the ID value of the "first
record" in the table, as you might expect, but after executing .AddNew the
value of ID was now that of an *existing* record a few hundred rows into the
table!!! This of course cause the duplicate error when the Update method was
called.

I tried Compact (from the command line), Compact and Repair from the Access
menus, but those did not fix the trouble. Then I tried running a Make Table
query to create a copy of the data (retaining the values of the ID field) in
a new table, but the new table exhibited the same error. JetComp didn't make
any difference either!!!!

The cure? Make a new empty table with the same structure. Then run an append
query to append all existing records to the new table - this preserves the
values of the autonumber field in the existing table - and then delete the
old table and rename the new one. You'd think that simply running a Make
Table query would have the same effect, but no, that just gives you a copy
of the table that exhibits the same problem.

What a pain!

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

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




From jimdettman at earthlink.net  Thu Jan  5 14:43:22 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Thu, 5 Jan 2006 15:43:22 -0500
Subject: [AccessD] OT - Changing a DSN Connection
In-Reply-To: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAAAaHz+LRnbAQ5PJoO5hBonIAQAAAAA=@isharp.co.uk>
Message-ID: <NDEALJOEGMMPCDKIFGNFEEFBHNAA.jimdettman@earthlink.net>

Paul,

<<I could write in Access or VB that a a click of a button will find these
DSN's and replace the server name ?>>

  I've got a VB6 program to update DSN's based on an access table that I'd
be willing to share.

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Paul Hartland
(ISHARP)
Sent: Thursday, January 05, 2006 8:21 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] OT - Changing a DSN Connection


To all,

We are having a new server (very soon) and changing the name to something
like AL-MASTER from AL-ORR the thing is I have a lot of Excel management
reports which use various DSN's pointing to AL-ORR, is there something I
could write in Access or VB that a a click of a button will find these DSN's
and replace the server name ?

Any help on this would be greatly appreciated.

Thanks in advance

Paul Hartland

P.S. Happy New Year to all list members, don't know what I would do without
it sometimes

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




From jwcolby at ColbyConsulting.com  Thu Jan  5 14:44:02 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 15:44:02 -0500
Subject: [AccessD] More Strange Autonumber Behavior - Access
	2002	(akaAccess XP)
In-Reply-To: <200601052038.k05KcSV06096@databaseadvisors.com>
Message-ID: <003401c61238$c3d85100$647aa8c0@ColbyM6805>

ROTFL.  Yea, that will cause an issue.  I just use autonumber which is
always a long. 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Randall R Anthony
Sent: Thursday, January 05, 2006 3:38 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002
(akaAccess XP)

I had a similar problem, however it was dumb developer related.  I had the
autonumber set to integer, which ran out at 32 thousand whatever. 
Changing the field size to Long Integer fixed it.

>>> Lambert.Heenan at aig.com 01/05/06 3:18 PM >>>
I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not successful
because they would create duplicate values in the index, primary key, or
relationship.  Change the data in the field or fields that contain duplicate
data, remove the index, or redefine the index to permit duplicate entries
and try again."

This was in a block of code that was simply appending new records to a table
that has a standard,  AutoNumber field called "ID". (This code has been in
use for the past three years) No other field in the table has a unique
index. The code was like this...

     With RS_Premium_Stream
        For n = LBound(mod_tPremiumArray) To UBound(mod_tPremiumArray)
            tPremiumInfo = mod_tPremiumArray(n)
            .AddNew
            !Policy_ID = tPremiumInfo.nPolicy_ID
            !nPolicyYear = tPremiumInfo.nPolicyYear
            !cPremiumProjection = tPremiumInfo.cPremiumProjection
            !cAnnualLoanInterest = tPremiumInfo.cAnnualLoanInterest
             !dDueDate = tPremiumInfo.dDueDate
            !bPaid = tPremiumInfo.bPaidStatus
            !nAge = tPremiumInfo.nAge
            !dDateCreated = dDataFileLoadDate
            .Update: SysCmd acSysCmdUpdateMeter, n
        Next n

... and the error happened when the .Update line executed. Stepping though
the code I discovered that just before the first execution of the .AddNew
line the value of RS_Premium_Stream!ID was the ID value of the "first
record" in the table, as you might expect, but after executing .AddNew the
value of ID was now that of an *existing* record a few hundred rows into the
table!!! This of course cause the duplicate error when the Update method was
called.

I tried Compact (from the command line), Compact and Repair from the Access
menus, but those did not fix the trouble. Then I tried running a Make Table
query to create a copy of the data (retaining the values of the ID
field) in
a new table, but the new table exhibited the same error. JetComp didn't make
any difference either!!!!

The cure? Make a new empty table with the same structure. Then run an append
query to append all existing records to the new table - this preserves the
values of the autonumber field in the existing table - and then delete the
old table and rename the new one. You'd think that simply running a Make
Table query would have the same effect, but no, that just gives you a copy
of the table that exhibits the same problem.

What a pain!

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



From jwcolby at ColbyConsulting.com  Thu Jan  5 14:47:03 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 15:47:03 -0500
Subject: [AccessD] More Strange Autonumber Behavior -
	Access2002(akaAccess XP)
In-Reply-To: <NDEALJOEGMMPCDKIFGNFMEFAHNAA.jimdettman@earthlink.net>
Message-ID: <003501c61239$2f32c4d0$647aa8c0@ColbyM6805>

LOL, not in my lifetime!  Wouldn't be prudent.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Thursday, January 05, 2006 3:40 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] More Strange Autonumber Behavior -
Access2002(akaAccess XP)


  Man if you guys only used natural keys....


  Sorry, couldn't resist.

Jim.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
Sent: Thursday, January 05, 2006 3:32 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access
2002(akaAccess XP)


Lambert

I make an append query where I get the max() of the ID field, add 1, alias
it and append that back in to the table as a new record.  This adds a bogus
record to the end of the table which I then delete back out.  The autonumber
is now reset and off I go.  The only issue is if there are other fields that
have constraints then it becomes a bit more difficult discovering and
building such values.


John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Thursday, January 05, 2006 3:18 PM
To: 'Access-D Email (accessd at databaseadvisors.com)'; 'ACCESS-L Email
(ACCESS-L at PEACH.EASE.LSOFT.COM)'
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002 (akaAccess
XP)

I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not successful
because they would create duplicate values in the index, primary key, or
relationship.  Change the data in the field or fields that contain duplicate
data, remove the index, or redefine the index to permit duplicate entries
and try again."

This was in a block of code that was simply appending new records to a table
that has a standard,  AutoNumber field called "ID". (This code has been in
use for the past three years) No other field in the table has a unique
index. The code was like this...

     With RS_Premium_Stream
        For n = LBound(mod_tPremiumArray) To UBound(mod_tPremiumArray)
            tPremiumInfo = mod_tPremiumArray(n)
            .AddNew
            !Policy_ID = tPremiumInfo.nPolicy_ID
            !nPolicyYear = tPremiumInfo.nPolicyYear
            !cPremiumProjection = tPremiumInfo.cPremiumProjection
            !cAnnualLoanInterest = tPremiumInfo.cAnnualLoanInterest
             !dDueDate = tPremiumInfo.dDueDate
            !bPaid = tPremiumInfo.bPaidStatus
            !nAge = tPremiumInfo.nAge
            !dDateCreated = dDataFileLoadDate
            .Update: SysCmd acSysCmdUpdateMeter, n
        Next n

... and the error happened when the .Update line executed. Stepping though
the code I discovered that just before the first execution of the .AddNew
line the value of RS_Premium_Stream!ID was the ID value of the "first
record" in the table, as you might expect, but after executing .AddNew the
value of ID was now that of an *existing* record a few hundred rows into the
table!!! This of course cause the duplicate error when the Update method was
called.

I tried Compact (from the command line), Compact and Repair from the Access
menus, but those did not fix the trouble. Then I tried running a Make Table
query to create a copy of the data (retaining the values of the ID field) in
a new table, but the new table exhibited the same error. JetComp didn't make
any difference either!!!!

The cure? Make a new empty table with the same structure. Then run an append
query to append all existing records to the new table - this preserves the
values of the autonumber field in the existing table - and then delete the
old table and rename the new one. You'd think that simply running a Make
Table query would have the same effect, but no, that just gives you a copy
of the table that exhibits the same problem.

What a pain!

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

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


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



From hkotsch at arcor.de  Thu Jan  5 15:30:28 2006
From: hkotsch at arcor.de (Helmut Kotsch)
Date: Thu, 5 Jan 2006 22:30:28 +0100
Subject: [AccessD] Himachi
In-Reply-To: <003201c61232$cc5adf10$647aa8c0@ColbyM6805>
Message-ID: <PKEDLCDKMFCKJDAENFKBEEJEEOAA.hkotsch@arcor.de>

John,
I have played with Himachi yesterday and it works perfect also behind
routers and firewalls. Since I still use Windows 2000 without the remote
desktop feature of XP I use UltraVNC for remote support. Works great as
well. UltraVnc (http://ultravnc.sourceforge.net/) is also free and works
faster and more reliable than anything else I used before.
Himachi is supposed to solve the security problem when using the internet as
your network connection. I listened to Steve Gibsons Episode18 mp3-track on
Himachi. He states that it is absolutely secure. I still have an uncertain
feeling about what I should think about it since I'm not that knowledgeable
about the whole subject. Doesn't have the server moderating the connection
have to store the password I assign and couldn't that bee misused?

Helmut


-----Ursprungliche Nachricht-----
Von: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]Im Auftrag von John Colby
Gesendet: Donnerstag, 5. Januar 2006 21:01
An: 'Access Developers discussion and problem solving'
Betreff: [AccessD] Himachi


If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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



From Lambert.Heenan at AIG.com  Thu Jan  5 15:37:01 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Thu, 5 Jan 2006 16:37:01 -0500 
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002	(aka	
	Access XP)
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E13B@xlivmbx21.aig.com>

In every version of Acces that I have used AutoNumber fields can be either
Long Integers or Replication IDs. How could you have set one to an Integer?

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Randall R Anthony
Sent: Thursday, January 05, 2006 3:38 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002 (aka
Access XP)


I had a similar problem, however it was dumb developer related.  I had the
autonumber set to integer, which ran out at 32 thousand whatever. 
Changing the field size to Long Integer fixed it.

>>> Lambert.Heenan at aig.com 01/05/06 3:18 PM >>>
I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not successful
because they would create duplicate values in the index, primary key, or
relationship.  Change the data in the field or fields that contain duplicate
data, remove the index, or redefine the index to permit duplicate entries
and try again."
<snip>


From Lambert.Heenan at AIG.com  Thu Jan  5 15:47:27 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Thu, 5 Jan 2006 15:47:27 -0600 
Subject: [AccessD] Himachi
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E145@xlivmbx21.aig.com>

Just off the top of my head I would hope that the password authentication is
handled in a similar way to Windows Authentication: i.e. a one-way hash
algorithm running on your machine takes the password you enter, calculates
the hash value and passes that over the line to the server, and that is
what's used to authenticate. Being a one-way hash value, one cannot retrieve
the password from it, and so if the server is hacked your password should be
safe.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Helmut Kotsch
Sent: Thursday, January 05, 2006 4:30 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Himachi


John,
I have played with Himachi yesterday and it works perfect also behind
routers and firewalls. Since I still use Windows 2000 without the remote
desktop feature of XP I use UltraVNC for remote support. Works great as
well. UltraVnc (http://ultravnc.sourceforge.net/) is also free and works
faster and more reliable than anything else I used before. Himachi is
supposed to solve the security problem when using the internet as your
network connection. I listened to Steve Gibsons Episode18 mp3-track on
Himachi. He states that it is absolutely secure. I still have an uncertain
feeling about what I should think about it since I'm not that knowledgeable
about the whole subject. Doesn't have the server moderating the connection
have to store the password I assign and couldn't that bee misused?

Helmut



From joeget at vgernet.net  Thu Jan  5 15:51:31 2006
From: joeget at vgernet.net (John Eget)
Date: Thu, 5 Jan 2006 16:51:31 -0500
Subject: [AccessD] universal hyper link to backend
Message-ID: <015401c61242$346e6770$cdc2f63f@JOHN>

i have a excel file that is stored in the backend but would like to hyperlink to from the front end that is stored in a different folder.   If the back end is moved, after the front end relinks to the back end tables be able to then have the hyper link work. I though that there was a way using UNC, am I wrong?

file    "qfd software.xls" is stored in "easilook backend" folder and is linked from "easilook front end" folder

any ideas?

John 

From joeget at vgernet.net  Thu Jan  5 15:52:07 2006
From: joeget at vgernet.net (John Eget)
Date: Thu, 5 Jan 2006 16:52:07 -0500
Subject: [AccessD] universal hyper link
Message-ID: <015e01c61242$49aa5900$cdc2f63f@JOHN>

i have a excel file that is stored in the backend but would like to hyperlink to from the front end that is stored in a different folder.   If the back end is moved, after the front end relinks to the back end tables be able to then have the hyper link work. I though that there was a way using UNC, am I wrong?

file    "qfd software.xls" is stored in "easilook backend" folder and is linked from "easilook front end" folder

any ideas?

John 

From Lambert.Heenan at AIG.com  Thu Jan  5 16:02:02 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Thu, 5 Jan 2006 16:02:02 -0600 
Subject: [AccessD] More Strange Autonumber Behavior - Access 2002
	(aka	Access XP)
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E153@xlivmbx21.aig.com>

Interesting idea John. I just tried it out and it works a treat, but the fly
in the ointment is that your stuck with my more roundabout method if you
happen to be using random 'incrementing'. 

As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Thursday, January 05, 2006 3:32 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002
(akaAccess XP)


Lambert

I make an append query where I get the max() of the ID field, add 1, alias
it and append that back in to the table as a new record.  This adds a bogus
record to the end of the table which I then delete back out.  The autonumber
is now reset and off I go.  The only issue is if there are other fields that
have constraints then it becomes a bit more difficult discovering and
building such values. 


John W. Colby
www.ColbyConsulting.com 



From jwcolby at ColbyConsulting.com  Thu Jan  5 16:41:19 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 17:41:19 -0500
Subject: [AccessD] Himachi
In-Reply-To: <PKEDLCDKMFCKJDAENFKBEEJEEOAA.hkotsch@arcor.de>
Message-ID: <000401c61249$263778c0$647aa8c0@ColbyM6805>

>Doesn't have the server moderating the connection have to store the
password I assign and couldn't that bee misused?

No it stores the hash of the password.

I have found several places where I just couldn't get either VNC or remote
desktop to work.  Some kind of router issue.  Since this tunnel goes through
the firewall it appears that you are supposed to be able to put in the 05.XX
IP address and "connect" that way, right through the firewalls.  It did NOT
work for me at one of my client's though.  The Hamachi site says that about
5% of the time this problem may occur so maybe I just hit one of those
times.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Helmut Kotsch
Sent: Thursday, January 05, 2006 4:30 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Himachi

John,
I have played with Himachi yesterday and it works perfect also behind
routers and firewalls. Since I still use Windows 2000 without the remote
desktop feature of XP I use UltraVNC for remote support. Works great as
well. UltraVnc (http://ultravnc.sourceforge.net/) is also free and works
faster and more reliable than anything else I used before.
Himachi is supposed to solve the security problem when using the internet as
your network connection. I listened to Steve Gibsons Episode18 mp3-track on
Himachi. He states that it is absolutely secure. I still have an uncertain
feeling about what I should think about it since I'm not that knowledgeable
about the whole subject. Doesn't have the server moderating the connection
have to store the password I assign and couldn't that bee misused?

Helmut


-----Ursprungliche Nachricht-----
Von: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]Im Auftrag von John Colby
Gesendet: Donnerstag, 5. Januar 2006 21:01
An: 'Access Developers discussion and problem solving'
Betreff: [AccessD] Himachi


If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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

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



From jwcolby at ColbyConsulting.com  Thu Jan  5 16:47:08 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 17:47:08 -0500
Subject: [AccessD] More Strange Autonumber Behavior - Access
	2002(aka	Access XP)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E153@xlivmbx21.aig.com>
Message-ID: <000801c61249$f6330850$647aa8c0@ColbyM6805>

Yes, I don't use random autoincrement for exactly that reason.  If the
entire table has random autonumbers then you should be safe unless of course
you are are dealing with merging replication tables where the remote FE
might produce collisions.  In that case you have to be prepared to deal with
it some way.

>As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)

Oh, without a doubt.  Natural keys just pretty much suck - but we all know
that of course.  <evil grin>

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Thursday, January 05, 2006 5:02 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002(aka
Access XP)

Interesting idea John. I just tried it out and it works a treat, but the fly
in the ointment is that your stuck with my more roundabout method if you
happen to be using random 'incrementing'. 

As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Thursday, January 05, 2006 3:32 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002
(akaAccess XP)


Lambert

I make an append query where I get the max() of the ID field, add 1, alias
it and append that back in to the table as a new record.  This adds a bogus
record to the end of the table which I then delete back out.  The autonumber
is now reset and off I go.  The only issue is if there are other fields that
have constraints then it becomes a bit more difficult discovering and
building such values. 


John W. Colby
www.ColbyConsulting.com 



From jwcolby at ColbyConsulting.com  Thu Jan  5 16:58:01 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 17:58:01 -0500
Subject: [AccessD] Withevents and object library version
Message-ID: <001c01c6124b$7af3c100$647aa8c0@ColbyM6805>

I am starting dev on a little app to strip attachments off of outlook emails
and file them on the disk.  In order to do this I have to grab an instance
of outlook and sink events for it (emails hitting a sub-folder).

My issue is that of all the Office applications, Outlook is the ONE app that
the Office install only allows you to keep a single version of.  Thus I have
an issue developing in it since my version is 2003 and most of my clients
have 2002.  I can do everything else just using late binding but sinking
events just requires knowing the object type at compile time.

Does anyone have reliable code for determining which version of Outlook is
installed and referencing that lib at run time?  
John W. Colby
www.ColbyConsulting.com 




From jimdettman at earthlink.net  Thu Jan  5 17:00:23 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Thu, 5 Jan 2006 18:00:23 -0500
Subject: [AccessD] More Strange Autonumber Behavior - Access
	2002(aka	Access XP)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E153@xlivmbx21.aig.com>
Message-ID: <NDEALJOEGMMPCDKIFGNFOEFNHNAA.jimdettman@earthlink.net>

<<As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)>>

  Just having a bit of fun<g>

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Heenan,
Lambert
Sent: Thursday, January 05, 2006 5:02 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access
2002(aka Access XP)


Interesting idea John. I just tried it out and it works a treat, but the fly
in the ointment is that your stuck with my more roundabout method if you
happen to be using random 'incrementing'.

As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Thursday, January 05, 2006 3:32 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002
(akaAccess XP)


Lambert

I make an append query where I get the max() of the ID field, add 1, alias
it and append that back in to the table as a new record.  This adds a bogus
record to the end of the table which I then delete back out.  The autonumber
is now reset and off I go.  The only issue is if there are other fields that
have constraints then it becomes a bit more difficult discovering and
building such values.


John W. Colby
www.ColbyConsulting.com

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




From jwcolby at ColbyConsulting.com  Thu Jan  5 17:18:00 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 5 Jan 2006 18:18:00 -0500
Subject: [AccessD] More Strange Autonumber Behavior -
	Access2002(aka	Access XP)
In-Reply-To: <NDEALJOEGMMPCDKIFGNFOEFNHNAA.jimdettman@earthlink.net>
Message-ID: <001d01c6124e$45c53920$647aa8c0@ColbyM6805>

I think you're trying to start the war again.   ;~)


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Thursday, January 05, 2006 6:00 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access2002(aka
Access XP)

<<As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)>>

  Just having a bit of fun<g>

Jim.



From michael at ddisolutions.com.au  Thu Jan  5 17:40:11 2006
From: michael at ddisolutions.com.au (Michael Maddison)
Date: Fri, 6 Jan 2006 10:40:11 +1100
Subject: [AccessD] (Fwd) Re:  Extract data from .doc into db
Message-ID: <59A61174B1F5B54B97FD4ADDE71E7D0116A197@ddi-01.DDI.local>

Thanks for the replies + code sample.

My client is a project manager for a large manufacturer, he is trying to
get a budget up for this project to
go ahead.  He is aware that any $ figure I give him is an estimate.  The
company in question will only
work on fixed price quotes (if we get that far).  As my company is
taking all the risk I will make
sure my quote is... ahem... favourable ;-)))  Hence my question.

Looking more closely at the word docs I see that there are multiple
tables and they are in different formats.
Also they start out as columns for yes/no but they then degenerate into
free text areas where the headings are in the
same cell as the text...  hmmm, not so good.  I may need to some manual
input I think.

cheers

Michael Maddison

DDI Solutions Pty Ltd
michael at ddisolutions.com.au
Bus: 0260400620
Mob: 0412620497 
www.ddisolutions.com.au

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Janine_docsonline
Sent: Thursday, 5 January 2006 6:23 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] (Fwd) Re: Extract data from .doc into db

Love the humour.

Don't know if this is off base. There is a convert table to access merge
thingy in Word 2003 does that help? I was going to show a client who had
access how a table could be merged back to Access?

Are the word documents in table? Just a suggestion only.

Cant you charge him when you're done? If it takes 10 hours charge out
US$55 PER HOUR (that seems fair).
Conver the tabular text to tables and then use Word 2003 merge option to
turn  into fields or just import into Access from the table fields.

I may be way off base but just a thought....


----- Original Message -----
From: "Bryan Carbonnell" <carbonnb at sympatico.ca>
To: "access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 05, 2006 11:46 AM
Subject: [AccessD] (Fwd) Re: Extract data from .doc into db


> Should have gone to the list too.
>
> Bryan
> ------- Forwarded message follows -------
> On 5 Jan 2006 at 11:08, Michael Maddison wrote:
>
>> I've been asked how much $$$ to extract data from a series of word
docs.
>> Each record is made up
>> of 3 docs.  There are 80 records (240 docs).  The docs are quite
large
>> 20+ pages each, with questions
>> and either ticks or X's in a tabular format.  There are no fields.
>> I've never done this so my question is how easy is it to code
something
>> like this or should I just
>> employ a temp to slog through it?
>
> It depends. Are all the docs the same format? The same number of
> tables, columns, rows, etc? Is the marking consistant to indicate the
> choice?
>
> If the answer is yes, then it should be fairly straight forward. Here
> is some code (written in Word, so you will have to translate into
> Access :)to give you an idea of what would be involved in reading the
> cells.
>
> Sub test()
>
> Dim doc As Document
> Dim tbl As Table
> Dim lngRow As Long
> Dim lngRowCount As Long
> Dim strCol2 As String
> Dim strCol3 As String
> Dim bolYes As Boolean
> Dim bolNo As Boolean
>
> Set doc = ActiveDocument
> Set tbl = doc.Tables(1)
>
> lngRowCount = tbl.Rows.Count
> lngRow = 1
>
>
> Do While lngRow <= lngRowCount
>  'Get the values in the "choice" columns
>  strCol2 = tbl.Cell(lngRow, 2).Range
>  strCol3 = tbl.Cell(lngRow, 3).Range
>  'Strip the trailing 2 characters asc(7) & asc(13)
>  If Len(strCol2) > 2 Then
>    strCol2 = Left$(strCol2, 1)
>  Else
>    strCol2 = ""
>  End If
>  If Len(strCol3) > 2 Then
>    strCol3 = Left$(strCol3, 1)
>  Else
>    strCol3 = ""
>  End If
>
>  'Check to see if first "choice" column is "checked"
>  If LCase(strCol2) = "x" Then
>    bolYes = True
>  End If
>  'Check to see if second "choice" column is "checked"
>  If LCase(strCol3) = "x" Then
>    bolNo = True
>  End If
>  'Store the Values in your table
>
>  'reset flags
>  bolYes = False
>  bolNo = False
>  'increment row counter
>  lngRow = lngRow + 1
>
> Loop
>
> Set tbl = Nothing
> Set doc = Nothing
>
> End Sub
>
> A couple of assumptions here:
>
> This is a single table with a minimum or 3 columns, where the choices
> are in columns 2 & 3 which are all marked with an x (upper or
> lowercase doesn't matter)
>
> HTH,
>
> -- 
> Bryan Carbonnell - carbonnb at sympatico.ca
> Earth is the insane asylum for the universe.
>
>
> ------- End of forwarded message -------
> -- 
> Bryan Carbonnell - carbonnb at sympatico.ca
> Needing someone is like needing a parachute. If he isn't there the
first 
> time, chances are you won't be needing him again.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 

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


From martyconnelly at shaw.ca  Thu Jan  5 17:40:45 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Thu, 05 Jan 2006 15:40:45 -0800
Subject: [AccessD] universal hyper link
References: <015e01c61242$49aa5900$cdc2f63f@JOHN>
Message-ID: <43BDAE7D.4000707@shaw.ca>

Well I would just use relative addressing of the excel file
Assuming the backend mdb and excel files are in the same folder on the 
new folder
You can obtain the file and path of your backend by parsing out the Connect
property of one of your linked tables.  Then just tack on this path to 
your excel file

For example:

   Dim ConnectStr As String
    Dim db As Database
  Set db = CurrentDb
    db.TableDefs.Refresh
   ConnectStr = db.TableDefs("MyTable").Connect

You would get a string something like:
   ;DATABASE=C:\MyPath\MyDB.mdb
or

;DATABASE=\\Jaxnt54\Callboard\Database2K\TransCallboard_be.mdb

John Eget wrote:

>i have a excel file that is stored in the backend but would like to hyperlink to from the front end that is stored in a different folder.   If the back end is moved, after the front end relinks to the back end tables be able to then have the hyper link work. I though that there was a way using UNC, am I wrong?
>
>file    "qfd software.xls" is stored in "easilook backend" folder and is linked from "easilook front end" folder
>
>any ideas?
>
>John 
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From max at sherman.org.uk  Fri Jan  6 01:54:45 2006
From: max at sherman.org.uk (Max Sherman)
Date: Fri, 6 Jan 2006 07:54:45 -0000
Subject: [AccessD] Himachi
In-Reply-To: <003201c61232$cc5adf10$647aa8c0@ColbyM6805>
Message-ID: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAW7DrIUv8Sk+BDIsZ6T0G1sKAAAAQAAAAzdGpyfcu8Uua41PzfVKEFwEAAAAA@sherman.org.uk>

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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




From Gustav at cactus.dk  Fri Jan  6 05:30:30 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 12:30:30 +0100
Subject: [AccessD] Withevents and object library version
Message-ID: <s3be62f9.036@cactus.dk>

Hi John

You could add Outlook as a Reference by GUID specifying Major and Minor version no.
Start from top (Outlook 2003) and continue until it doesn't fail.
Or maybe you could specify 0 for both Major and Minor and the current version will be referenced - that is how it is supposed to work, but I haven't found this method to work reliably.
Remember that the code will be left uncompiled, thus you need to recompile which is not that easy ... if you recall the old threads on this.

By why use Outlook? It's a monster. If a client doesn't use Outlook then what to do? Couldn't you just let a rule forward those mails to a known environment, then poll that at some interval? 
For a specific purpose we did that. An old 266MHz machine runs The Bat! client which polls via POP3 every five minute. If a hit exists, the mail is downloaded, the attachment saved and a batch file is called which unzips the attachment, processes it (by calling an Access app), zips the processed file and mail it - and logs it all for reference.

Not as sexy as WithEvents, I know, but it works.

/gustav


>>> jwcolby at ColbyConsulting.com 05-01-2006 23:58 >>>
I am starting dev on a little app to strip attachments off of outlook emails
and file them on the disk.  In order to do this I have to grab an instance
of outlook and sink events for it (emails hitting a sub-folder).

My issue is that of all the Office applications, Outlook is the ONE app that
the Office install only allows you to keep a single version of.  Thus I have
an issue developing in it since my version is 2003 and most of my clients
have 2002.  I can do everything else just using late binding but sinking
events just requires knowing the object type at compile time.

Does anyone have reliable code for determining which version of Outlook is
installed and referencing that lib at run time?  
John W. Colby
www.ColbyConsulting.com 




From Gustav at cactus.dk  Fri Jan  6 05:37:55 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 12:37:55 +0100
Subject: [AccessD] universal hyper link to backend
Message-ID: <s3be64c3.039@cactus.dk>

Hi John

You can use the double-dot syntax for referencing parent directories.
If "easilook backend" folder and "easilook front end" folder are sister directories then your frontend (which location you easily can find) can reference the Excel file:

  "..\easilook backend\qfd software.xls"

/gustav

>>> joeget at vgernet.net 05-01-2006 22:51 >>>
i have a excel file that is stored in the backend but would like to hyperlink to from the front end that is stored in a different folder.   If the back end is moved, after the front end relinks to the back end tables be able to then have the hyper link work. I though that there was a way using UNC, am I wrong?

file    "qfd software.xls" is stored in "easilook backend" folder and is linked from "easilook front end" folder

any ideas?

John 




From Gustav at cactus.dk  Fri Jan  6 05:51:26 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 12:51:26 +0100
Subject: [AccessD] Informix, Boolean
Message-ID: <s3be67dd.041@cactus.dk>

Hi John

Well, that has been checked. The field is of Boolean type.
And yes, the table is linked.
So I guess we are out of ideas ...

/gustav

>>> john at winhaven.net 05-01-2006 19:19 >>>
Gustav,
It could well be that Informix now supports a Boolean data type - many
things have happened since I used it, for instance IBM bought the company.
When I used it Informix was one of the "big dogs" in the RDBMS field.

I'm not sure but I think you're saying the Informix data is a linked table
in Access, is this correct? If so you may need to check the data source and
see how the field is typed there and adjust appropriately even though Access
says its Yes/No.

John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock

Hi John

Thanks, that was along one my thoughts - is Boolean a Boolean?
But if you study the linked table in design view, it tells type Yes/No for
that field.

I wouldn't need the manuals. IBM has done a nice work putting up all
official info on the web - but I guess simply not that many Informixolics
use Access for access ...

/gustav




From RRANTHON at sentara.com  Fri Jan  6 06:25:31 2006
From: RRANTHON at sentara.com (Randall R Anthony)
Date: Fri, 06 Jan 2006 07:25:31 -0500
Subject: [AccessD] More Strange Autonumber Behavior - Access	2002	(aka	
	Access XP)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E13B@xlivmbx21.aig.com>
References: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E13B@xlivmbx21.aig.com>
Message-ID: <200601061225.k06CPkV32619@databaseadvisors.com>

You would force me to look it up.  Access2.0.  And in more than one
instance.  ee-eefff

>>> Lambert.Heenan at aig.com 01/05/06 4:37 PM >>>
In every version of Acces that I have used AutoNumber fields can be
either
Long Integers or Replication IDs. How could you have set one to an
Integer?

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Randall R
Anthony
Sent: Thursday, January 05, 2006 3:38 PM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002
(aka
Access XP)


I had a similar problem, however it was dumb developer related.  I had
the
autonumber set to integer, which ran out at 32 thousand whatever. 
Changing the field size to Long Integer fixed it.

>>> Lambert.Heenan at aig.com 01/05/06 3:18 PM >>>
I started to get error messages from one application telling me ...

"Error 3022 : The changes you requested to the table were not
successful
because they would create duplicate values in the index, primary key,
or
relationship.  Change the data in the field or fields that contain
duplicate
data, remove the index, or redefine the index to permit duplicate
entries
and try again."
<snip>
-- 
AccessD mailing list
AccessD at databaseadvisors.com 
http://databaseadvisors.com/mailman/listinfo/accessd 
Website: http://www.databaseadvisors.com


From Gustav at cactus.dk  Fri Jan  6 06:33:57 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 13:33:57 +0100
Subject: [AccessD] Read picture of barcode
Message-ID: <s3be71d3.046@cactus.dk>

Hi all

Our postmen here will move from mobile scanner devices to the much cheaper standard smartphones.
These can snapshot a picture of the barcode on the delivered parcel and send it back at once to the mail office as part of a log.

But how do you "scan" a picture of a barcode to obtain the barcode?
I know some OCR applications can do that but I would prefer a small dedicated tool or ActiveX/OCR control.

Any experiences with this or ideas?

/gustav



From Gustav at cactus.dk  Fri Jan  6 06:41:44 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 13:41:44 +0100
Subject: [AccessD] More Strange Autonumber Behavior -	Access	2002	(aka	
	Access XP)
Message-ID: <s3be73a0.049@cactus.dk>

Hi Branthon

In Access 2.0 you cannot specify the AutoNumber/Counter to anything else than its native size (Long).

/gustav

>>> RRANTHON at sentara.com 06-01-2006 13:25 >>>
You would force me to look it up.  Access2.0.  And in more than one instance.  ee-eefff

>>> Lambert.Heenan at aig.com 01/05/06 4:37 PM >>>
In every version of Acces that I have used AutoNumber fields can be either Long Integers or Replication IDs. How could you have set one to an Integer?




From adtp at touchtelindia.net  Fri Jan  6 06:41:32 2006
From: adtp at touchtelindia.net (A.D.Tejpal)
Date: Fri, 6 Jan 2006 18:11:32 +0530
Subject: [AccessD] Problem converting code
References: <s3bce4a6.008@nebnov3.niagaracounty.com>
Message-ID: <00fb01c612be$9c2c8f50$b247f63d@winxp>

John,

    My sample db named AppendSequence might be of interest to you. It is available at Rogers Access Library (other developers library). Link - http://www.rogersaccesslibrary.com

    You could adapt the underlying approach suitably, for your specific needs.

Best wishes,
A.D.Tejpal
--------------

  ----- Original Message ----- 
  From: John Clark 
  To: accessd at databaseadvisors.com 
  Sent: Thursday, January 05, 2006 19:47
  Subject: [AccessD] Problem converting code


  Somebody on this list helped me with code to automatically place the next number in a series into a control number. I'm really sorry I don't remember who...I usually make note of it, but I've recently relocated my office and I can't even find the code docs...there probably in a box somewhere.

  Anyhow, what the code does is auto number cases, in the form of 05-001, 05-002,...until the new year, upon which is will restart with 06-001. 
  This worked fine and dandy but for two things...first my client was adamant about there being no possibility of hitting 1000 cases in a year, which as you can probably guess they did. And they were also adamant about there not being an extra zero, when I tried placing it inthere just in case.

  The bigger problem though is that this was done in A97 and I am now using A2K. I will be redoing this program in A2K and the program I am currently working on and trying to reuse the code in, is also A2K. I am getting errors on the line, "Set rst = CodeDb.OpenRecordset(strSQL)" that says too few parameters. I am either being totally dense (a distinct possibility) or it is a DAO vs. ADO problem, which I can not get through my skull and always have problems with...making me dense again...hmmmm.

  Can anyone please point me in the right direction to rectify this
  problem?

  I make the default value for the field set as, "=NewControlNum()"

  ****************************** CODE
  ***********************************************************************
  Function NewControlNum() As String
  Dim strSQL As String
  Dim strNewID As String
  Dim rst As Recordset
  strSQL = "SELECT nz(Max(Mid([tblIndictment]![IndictmentNumber],4)),0)+1
  AS lngMaxID," & _
           "Right(Year(Now()),2)" & _
           "& '-' & [lngMaxID] AS lngNewID " & _
           "FROM tblIndictment " & _
           "WHERE
  (((Left([tblIndictment]![IndictmentNumber],2))=Right(Year(Now()),2)));"
  Set rst = CodeDb.OpenRecordset(strSQL)
  With rst
     strNewID = rst!lngNewID
     rst.Close
     Set rst = Nothing
  End With
  NewControlNum = strNewID

  Rem
  ***************************************************************************

  Select Case Len(NewControlNum)
      Case 4
          NewControlNum = Left(NewControlNum, 3) & "00" &
  Right(NewControlNum, 1)
      Case 5
          NewControlNum = Left(NewControlNum, 3) & "0" &
  Right(NewControlNum, 2)
  End Select


  Thank you!

  John W Clark


From RRANTHON at sentara.com  Fri Jan  6 06:47:50 2006
From: RRANTHON at sentara.com (Randall R Anthony)
Date: Fri, 06 Jan 2006 07:47:50 -0500
Subject: [AccessD] More Strange Autonumber Behavior	-	Access	2002	(aka	
	Access XP)
In-Reply-To: <s3be73a0.049@cactus.dk>
References: <s3be73a0.049@cactus.dk>
Message-ID: <200601061248.k06Cm8V05965@databaseadvisors.com>

Sorry guys, I know what I saw and what fixed it.  If it was some kind of
anomally or what have you, so be it.

>>> Gustav at cactus.dk 01/06/06 7:41 AM >>>
Hi Branthon

In Access 2.0 you cannot specify the AutoNumber/Counter to anything
else than its native size (Long).

/gustav

>>> RRANTHON at sentara.com 06-01-2006 13:25 >>>
You would force me to look it up.  Access2.0.  And in more than one
instance.  ee-eefff

>>> Lambert.Heenan at aig.com 01/05/06 4:37 PM >>>
In every version of Acces that I have used AutoNumber fields can be
either Long Integers or Replication IDs. How could you have set one to
an Integer?


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


From jwcolby at ColbyConsulting.com  Fri Jan  6 06:50:55 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 07:50:55 -0500
Subject: [AccessD] Himachi
In-Reply-To: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAW7DrIUv8Sk+BDIsZ6T0G1sKAAAAQAAAAzdGpyfcu8Uua41PzfVKEFwEAAAAA@sherman.org.uk>
Message-ID: <000901c612bf$d5dea6b0$647aa8c0@ColbyM6805>

Reply,

Protection software mis-identifies software all the time.  It happens.
Hamachi installs a complete network layer because it is setting up a new
LAN.  How can I know that Hamachi isn't spyware or a trojan?  I can't.  How
do you know that any other program that you decide to use is not a Trojan?
You can't.  You have to Google the hell out of the company, look at user's
comments and just accept or not.

Hamachi has been in beta for well over a year.  There are entire lists for
users that play games over it (hundreds if not thousands - I didn't read
them all).  They are on beta release 9.9.9 (getting ready to release the
product).   This thing has been around, have literally 800,000 downloads (no
idea how many active users though).  The designer is a known security expert
from Canada who is releasing this product based on work he did as a
consultant for another company.  He is a known face, can be reached by
email, etc. etc.

Does this sound like a virus writer to you?

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 2:55 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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


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



From jwcolby at ColbyConsulting.com  Fri Jan  6 06:53:47 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 07:53:47 -0500
Subject: [AccessD] More Strange Autonumber
	Behavior	-	Access	2002	(aka	Access XP)
In-Reply-To: <200601061248.k06Cm8V05965@databaseadvisors.com>
Message-ID: <000a01c612c0$3c89ea50$647aa8c0@ColbyM6805>

But was it an autonumber?  I have seen integer/longs where you started
placing values in the column and if the first two are consecutive, then
Access places the third and subsequent values in there automatically as the
next subsequent values.  IOW, it is not an autonumber (which is an actual
datatype) but rather just an int/long that happened to be incrementing.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Randall R Anthony
Sent: Friday, January 06, 2006 7:48 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002 (aka
Access XP)

Sorry guys, I know what I saw and what fixed it.  If it was some kind of
anomally or what have you, so be it.

>>> Gustav at cactus.dk 01/06/06 7:41 AM >>>
Hi Branthon

In Access 2.0 you cannot specify the AutoNumber/Counter to anything else
than its native size (Long).

/gustav

>>> RRANTHON at sentara.com 06-01-2006 13:25 >>>
You would force me to look it up.  Access2.0.  And in more than one
instance.  ee-eefff

>>> Lambert.Heenan at aig.com 01/05/06 4:37 PM >>>
In every version of Acces that I have used AutoNumber fields can be either
Long Integers or Replication IDs. How could you have set one to an Integer?


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



From RRANTHON at sentara.com  Fri Jan  6 07:11:43 2006
From: RRANTHON at sentara.com (Randall R Anthony)
Date: Fri, 06 Jan 2006 08:11:43 -0500
Subject: [AccessD] More Strange
	Autonumber	Behavior	-	Access	2002	(aka	Access XP)
In-Reply-To: <000a01c612c0$3c89ea50$647aa8c0@ColbyM6805>
References: <200601061248.k06Cm8V05965@databaseadvisors.com>
	<000a01c612c0$3c89ea50$647aa8c0@ColbyM6805>
Message-ID: <200601061312.k06DC5V12637@databaseadvisors.com>

HaH!!  I stand corrected...  I contacted my buddy who still works for
the @#$%^ company I left, (it was her app I fixed).  She had both an
autonumber field and an auto incrementing field that she set manually,
it was this one that bounced at 32K because of being set to integer.

>>> jwcolby at colbyconsulting.com 01/06/06 7:53 AM >>>
But was it an autonumber?  I have seen integer/longs where you started
placing values in the column and if the first two are consecutive,
then
Access places the third and subsequent values in there automatically as
the
next subsequent values.  IOW, it is not an autonumber (which is an
actual
datatype) but rather just an int/long that happened to be
incrementing.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Randall R
Anthony
Sent: Friday, January 06, 2006 7:48 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002
(aka
Access XP)

Sorry guys, I know what I saw and what fixed it.  If it was some kind
of
anomally or what have you, so be it.

>>> Gustav at cactus.dk 01/06/06 7:41 AM >>>
Hi Branthon

In Access 2.0 you cannot specify the AutoNumber/Counter to anything
else
than its native size (Long).

/gustav

>>> RRANTHON at sentara.com 06-01-2006 13:25 >>>
You would force me to look it up.  Access2.0.  And in more than one
instance.  ee-eefff

>>> Lambert.Heenan at aig.com 01/05/06 4:37 PM >>>
In every version of Acces that I have used AutoNumber fields can be
either
Long Integers or Replication IDs. How could you have set one to an
Integer?


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

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


From max at sherman.org.uk  Fri Jan  6 07:15:14 2006
From: max at sherman.org.uk (Max Sherman)
Date: Fri, 6 Jan 2006 13:15:14 -0000
Subject: [AccessD] Himachi
In-Reply-To: <000901c612bf$d5dea6b0$647aa8c0@ColbyM6805>
Message-ID: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAW7DrIUv8Sk+BDIsZ6T0G1sKAAAAQAAAAlowYA7fVykaM7P+OzHM5DQEAAAAA@sherman.org.uk>

Thanks John,
That gives me some insight into it.  I am very wary of any mention of
Rootkits because once they are in, there is little or no chance of
discovering them, let alone removing them without a complete
re-installation.  It is a shame that they did not make mention of the fact
that this would happen right up front, then people could make an informed
decision before undertaking the installation and have prior warning before
the alert flashes on the screen.

>From what you have said, it does sound as if this particular program is
safe.

Many thanks

Regards
Max
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 06 January 2006 12:51
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Reply,

Protection software mis-identifies software all the time.  It happens.
Hamachi installs a complete network layer because it is setting up a new
LAN.  How can I know that Hamachi isn't spyware or a trojan?  I can't.  How
do you know that any other program that you decide to use is not a Trojan?
You can't.  You have to Google the hell out of the company, look at user's
comments and just accept or not.

Hamachi has been in beta for well over a year.  There are entire lists for
users that play games over it (hundreds if not thousands - I didn't read
them all).  They are on beta release 9.9.9 (getting ready to release the
product).   This thing has been around, have literally 800,000 downloads (no
idea how many active users though).  The designer is a known security expert
from Canada who is releasing this product based on work he did as a
consultant for another company.  He is a known face, can be reached by
email, etc. etc.

Does this sound like a virus writer to you?

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 2:55 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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


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

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




From jimdettman at earthlink.net  Fri Jan  6 07:33:59 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Fri, 6 Jan 2006 08:33:59 -0500
Subject: [AccessD] Himachi
In-Reply-To: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAW7DrIUv8Sk+BDIsZ6T0G1sKAAAAQAAAAlowYA7fVykaM7P+OzHM5DQEAAAAA@sherman.org.uk>
Message-ID: <NDEALJOEGMMPCDKIFGNFGEHMHNAA.jimdettman@earthlink.net>


  I don't know about the root kit, but I'm not sure I'd use the software in
any case.

  A quick read through the FAQ's and Forums shows a pattern of problems.
That is not a surprise given that it's new software, but I don't know if
it's something I would use for a client at this point.

  It also doesn't appear to be as forgiving as stated.  I saw a couple of
posts that said "I had to open all UDP ports on my firewall to get it to
work".  I'd never do that at a clients.  So yes, while it will do a NAT
transversal, it's still highly dependent on the Firewall/Router
configuration for it to work properly.  At it currently doesn't work if the
network is restricted to ports 80/443 and using a web proxy.

  The last thing I'd be somewhat nervous about is that it uses obscure
Windows API functions to do it's job.  Given that their not typically used,
they have the potential to buggy.  I saw a few posts that said that when the
software was installed, it interfered with other adapters that were
installed on the system.

  Overall sounds like it needs to mature a bit more.  Neat idea though.

Jim.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 8:15 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi


Thanks John,
That gives me some insight into it.  I am very wary of any mention of
Rootkits because once they are in, there is little or no chance of
discovering them, let alone removing them without a complete
re-installation.  It is a shame that they did not make mention of the fact
that this would happen right up front, then people could make an informed
decision before undertaking the installation and have prior warning before
the alert flashes on the screen.

>From what you have said, it does sound as if this particular program is
safe.

Many thanks

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 06 January 2006 12:51
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Reply,

Protection software mis-identifies software all the time.  It happens.
Hamachi installs a complete network layer because it is setting up a new
LAN.  How can I know that Hamachi isn't spyware or a trojan?  I can't.  How
do you know that any other program that you decide to use is not a Trojan?
You can't.  You have to Google the hell out of the company, look at user's
comments and just accept or not.

Hamachi has been in beta for well over a year.  There are entire lists for
users that play games over it (hundreds if not thousands - I didn't read
them all).  They are on beta release 9.9.9 (getting ready to release the
product).   This thing has been around, have literally 800,000 downloads (no
idea how many active users though).  The designer is a known security expert
from Canada who is releasing this product based on work he did as a
consultant for another company.  He is a known face, can be reached by
email, etc. etc.

Does this sound like a virus writer to you?

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 2:55 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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


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

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


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




From jimdettman at earthlink.net  Fri Jan  6 07:35:27 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Fri, 6 Jan 2006 08:35:27 -0500
Subject: [AccessD] More Strange Autonumber Behavior
	-Access2002(aka	Access XP)
In-Reply-To: <001d01c6124e$45c53920$647aa8c0@ColbyM6805>
Message-ID: <NDEALJOEGMMPCDKIFGNFMEHNHNAA.jimdettman@earthlink.net>

John,

  No, I'm really not.  We've all been over that ground too many times.

 As I said, I just couldn't resist the jab ;)

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
Sent: Thursday, January 05, 2006 6:18 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior -Access2002(aka
Access XP)


I think you're trying to start the war again.   ;~)


John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Thursday, January 05, 2006 6:00 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access2002(aka
Access XP)

<<As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)>>

  Just having a bit of fun<g>

Jim.

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




From max at sherman.org.uk  Fri Jan  6 07:59:57 2006
From: max at sherman.org.uk (Max Sherman)
Date: Fri, 6 Jan 2006 13:59:57 -0000
Subject: [AccessD] Himachi
In-Reply-To: <NDEALJOEGMMPCDKIFGNFGEHMHNAA.jimdettman@earthlink.net>
Message-ID: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAW7DrIUv8Sk+BDIsZ6T0G1sKAAAAQAAAAggaEW+whlkCrB+KBiGgHFwEAAAAA@sherman.org.uk>

Dear Jim,
>> A quick read through the FAQ's and Forums shows a pattern of problems.

Yes, you are correct.  I thought the same when I read them, but I didn't
want to mention them as it might detract from the really important issue of
the Rootkit.

Overall, even though I am quite happy to take John's comments on board, I
will not be using it.  As I said before, it is a shame because it is such a
nice concept and one that would have solved a problem for me.

Regards
Max
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: 06 January 2006 13:34
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Himachi


  I don't know about the root kit, but I'm not sure I'd use the software in
any case.

  A quick read through the FAQ's and Forums shows a pattern of problems.
That is not a surprise given that it's new software, but I don't know if
it's something I would use for a client at this point.

  It also doesn't appear to be as forgiving as stated.  I saw a couple of
posts that said "I had to open all UDP ports on my firewall to get it to
work".  I'd never do that at a clients.  So yes, while it will do a NAT
transversal, it's still highly dependent on the Firewall/Router
configuration for it to work properly.  At it currently doesn't work if the
network is restricted to ports 80/443 and using a web proxy.

  The last thing I'd be somewhat nervous about is that it uses obscure
Windows API functions to do it's job.  Given that their not typically used,
they have the potential to buggy.  I saw a few posts that said that when the
software was installed, it interfered with other adapters that were
installed on the system.

  Overall sounds like it needs to mature a bit more.  Neat idea though.

Jim.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 8:15 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi


Thanks John,
That gives me some insight into it.  I am very wary of any mention of
Rootkits because once they are in, there is little or no chance of
discovering them, let alone removing them without a complete
re-installation.  It is a shame that they did not make mention of the fact
that this would happen right up front, then people could make an informed
decision before undertaking the installation and have prior warning before
the alert flashes on the screen.

>From what you have said, it does sound as if this particular program is
safe.

Many thanks

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 06 January 2006 12:51
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Reply,

Protection software mis-identifies software all the time.  It happens.
Hamachi installs a complete network layer because it is setting up a new
LAN.  How can I know that Hamachi isn't spyware or a trojan?  I can't.  How
do you know that any other program that you decide to use is not a Trojan?
You can't.  You have to Google the hell out of the company, look at user's
comments and just accept or not.

Hamachi has been in beta for well over a year.  There are entire lists for
users that play games over it (hundreds if not thousands - I didn't read
them all).  They are on beta release 9.9.9 (getting ready to release the
product).   This thing has been around, have literally 800,000 downloads (no
idea how many active users though).  The designer is a known security expert
from Canada who is releasing this product based on work he did as a
consultant for another company.  He is a known face, can be reached by
email, etc. etc.

Does this sound like a virus writer to you?

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 2:55 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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


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

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


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


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




From Gustav at cactus.dk  Fri Jan  6 08:37:58 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 15:37:58 +0100
Subject: [AccessD] More
	Strange	Autonumber	Behavior	-	Access	2002	(aka	Access XP)
Message-ID: <s3be8ee9.055@cactus.dk>

Hi Randall

OK, that explains.

/gustav

>>> RRANTHON at sentara.com 06-01-2006 14:11 >>>
HaH!!  I stand corrected...  I contacted my buddy who still works for
the @#$%^ company I left, (it was her app I fixed).  She had both an
autonumber field and an auto incrementing field that she set manually,
it was this one that bounced at 32K because of being set to integer.




From Lambert.Heenan at AIG.com  Fri Jan  6 08:39:36 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Fri, 6 Jan 2006 09:39:36 -0500 
Subject: [AccessD] More Strange Autonumber Behavior - Access
	2002(aka		Access XP)
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E286@xlivmbx21.aig.com>

We know that, Jim :-) We're just teasing. <vbg>

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Thursday, January 05, 2006 6:00 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002(aka
Access XP)


<<As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)>>

  Just having a bit of fun<g>

Jim.


From jwcolby at ColbyConsulting.com  Fri Jan  6 08:41:18 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 09:41:18 -0500
Subject: [AccessD] Himachi
In-Reply-To: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAW7DrIUv8Sk+BDIsZ6T0G1sKAAAAQAAAAggaEW+whlkCrB+KBiGgHFwEAAAAA@sherman.org.uk>
Message-ID: <000b01c612cf$4180fb20$647aa8c0@ColbyM6805>

>> A quick read through the FAQ's and Forums shows a pattern of problems.

You know, I can appreciate that.  However if you take a quick read through
the forums on Norton AV you would find the same.  Same for MacAfee, Zone
Alarm, Microsoft Office, WindowsXP... Do I make my point?  These are all
mature products that have been out for years and they all have "patterns of
problems".

This is a product still in Beta.  What it is is what it is.  They
acknowledge that there are problems, and they have a beta program just as
any other software manufacturer has. This guy is trying to solve a difficult
problem.  He has obviously spent a lot of time and effort on his product,
and his efforts continue.

This is a 1.0 (actually 0.9.9.9) product and of course many people just
don't touch first release products.  I do think that it a real, valid
product that has a marketplace, and that if it works for me, in my
particular circumstances, I will use it.  If I can't get it to work in a
given instance then obviously I won't use it there.  I can tell you that I
use Remote desktop where I can.  I have had instances where it just didn't
work, and I never discovered why.  Same with VNC.  I think this Hamachi
thingie is just another tool, which will work sometimes, and not in others.
When it does, it will solve some problems for me that I am trying to solve.

It doesn't matter to me whether you use it, obviously that is a decision
everyone makes for themselves.  But if "a pattern of problems" were to stop
us from using a product no valid program would ever gain a user base.  

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 9:00 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear Jim,
>> A quick read through the FAQ's and Forums shows a pattern of problems.

Yes, you are correct.  I thought the same when I read them, but I didn't
want to mention them as it might detract from the really important issue of
the Rootkit.

Overall, even though I am quite happy to take John's comments on board, I
will not be using it.  As I said before, it is a shame because it is such a
nice concept and one that would have solved a problem for me.

Regards
Max
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: 06 January 2006 13:34
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Himachi


  I don't know about the root kit, but I'm not sure I'd use the software in
any case.

  A quick read through the FAQ's and Forums shows a pattern of problems.
That is not a surprise given that it's new software, but I don't know if
it's something I would use for a client at this point.

  It also doesn't appear to be as forgiving as stated.  I saw a couple of
posts that said "I had to open all UDP ports on my firewall to get it to
work".  I'd never do that at a clients.  So yes, while it will do a NAT
transversal, it's still highly dependent on the Firewall/Router
configuration for it to work properly.  At it currently doesn't work if the
network is restricted to ports 80/443 and using a web proxy.

  The last thing I'd be somewhat nervous about is that it uses obscure
Windows API functions to do it's job.  Given that their not typically used,
they have the potential to buggy.  I saw a few posts that said that when the
software was installed, it interfered with other adapters that were
installed on the system.

  Overall sounds like it needs to mature a bit more.  Neat idea though.

Jim.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 8:15 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi


Thanks John,
That gives me some insight into it.  I am very wary of any mention of
Rootkits because once they are in, there is little or no chance of
discovering them, let alone removing them without a complete
re-installation.  It is a shame that they did not make mention of the fact
that this would happen right up front, then people could make an informed
decision before undertaking the installation and have prior warning before
the alert flashes on the screen.

>From what you have said, it does sound as if this particular program is
safe.

Many thanks

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 06 January 2006 12:51
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Reply,

Protection software mis-identifies software all the time.  It happens.
Hamachi installs a complete network layer because it is setting up a new
LAN.  How can I know that Hamachi isn't spyware or a trojan?  I can't.  How
do you know that any other program that you decide to use is not a Trojan?
You can't.  You have to Google the hell out of the company, look at user's
comments and just accept or not.

Hamachi has been in beta for well over a year.  There are entire lists for
users that play games over it (hundreds if not thousands - I didn't read
them all).  They are on beta release 9.9.9 (getting ready to release the
product).   This thing has been around, have literally 800,000 downloads (no
idea how many active users though).  The designer is a known security expert
from Canada who is releasing this product based on work he did as a
consultant for another company.  He is a known face, can be reached by
email, etc. etc.

Does this sound like a virus writer to you?

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 2:55 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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


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

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


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


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


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



From jwcolby at ColbyConsulting.com  Fri Jan  6 08:51:05 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 09:51:05 -0500
Subject: [AccessD] More Strange Autonumber Behavior -
	Access2002(aka		Access XP)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E286@xlivmbx21.aig.com>
Message-ID: <001c01c612d0$9f300620$647aa8c0@ColbyM6805>

>We know that, Jim :-) We're just teasing. <vbg>

Teasing?  Surrogate keys vs. Natural keys is a deadly serious business!

;~0 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Friday, January 06, 2006 9:40 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access2002(aka
Access XP)

We know that, Jim :-) We're just teasing. <vbg>

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Thursday, January 05, 2006 6:00 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] More Strange Autonumber Behavior - Access 2002(aka
Access XP)


<<As for Jim's comment about "Natural Keys" (yuk!) I think one problem like
this in ten years of Accessing is much less hassle than working with Natural
Keys (yuk!) for the same period of time. :-)>>

  Just having a bit of fun<g>

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



From jimdettman at earthlink.net  Fri Jan  6 09:20:57 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Fri, 6 Jan 2006 10:20:57 -0500
Subject: [AccessD] Himachi
In-Reply-To: <000b01c612cf$4180fb20$647aa8c0@ColbyM6805>
Message-ID: <NDEALJOEGMMPCDKIFGNFKEIOHNAA.jimdettman@earthlink.net>

John,

<<This is a 1.0 (actually 0.9.9.9) product and of course many people just
don't touch first release products. >>

  Yeah, I'm in that category for the most part.  I found out a long time ago
that it just doesn't pay to be on that bleeding edge.

  The only time I'll use something new is if there is simply no other way to
get the job done.  But I make darn sure the client knows what were working
with and that we'll most likely have problems.

Jim.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
Sent: Friday, January 06, 2006 9:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi


>> A quick read through the FAQ's and Forums shows a pattern of problems.

You know, I can appreciate that.  However if you take a quick read through
the forums on Norton AV you would find the same.  Same for MacAfee, Zone
Alarm, Microsoft Office, WindowsXP... Do I make my point?  These are all
mature products that have been out for years and they all have "patterns of
problems".

This is a product still in Beta.  What it is is what it is.  They
acknowledge that there are problems, and they have a beta program just as
any other software manufacturer has. This guy is trying to solve a difficult
problem.  He has obviously spent a lot of time and effort on his product,
and his efforts continue.

This is a 1.0 (actually 0.9.9.9) product and of course many people just
don't touch first release products.  I do think that it a real, valid
product that has a marketplace, and that if it works for me, in my
particular circumstances, I will use it.  If I can't get it to work in a
given instance then obviously I won't use it there.  I can tell you that I
use Remote desktop where I can.  I have had instances where it just didn't
work, and I never discovered why.  Same with VNC.  I think this Hamachi
thingie is just another tool, which will work sometimes, and not in others.
When it does, it will solve some problems for me that I am trying to solve.

It doesn't matter to me whether you use it, obviously that is a decision
everyone makes for themselves.  But if "a pattern of problems" were to stop
us from using a product no valid program would ever gain a user base.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 9:00 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear Jim,
>> A quick read through the FAQ's and Forums shows a pattern of problems.

Yes, you are correct.  I thought the same when I read them, but I didn't
want to mention them as it might detract from the really important issue of
the Rootkit.

Overall, even though I am quite happy to take John's comments on board, I
will not be using it.  As I said before, it is a shame because it is such a
nice concept and one that would have solved a problem for me.

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: 06 January 2006 13:34
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Himachi


  I don't know about the root kit, but I'm not sure I'd use the software in
any case.

  A quick read through the FAQ's and Forums shows a pattern of problems.
That is not a surprise given that it's new software, but I don't know if
it's something I would use for a client at this point.

  It also doesn't appear to be as forgiving as stated.  I saw a couple of
posts that said "I had to open all UDP ports on my firewall to get it to
work".  I'd never do that at a clients.  So yes, while it will do a NAT
transversal, it's still highly dependent on the Firewall/Router
configuration for it to work properly.  At it currently doesn't work if the
network is restricted to ports 80/443 and using a web proxy.

  The last thing I'd be somewhat nervous about is that it uses obscure
Windows API functions to do it's job.  Given that their not typically used,
they have the potential to buggy.  I saw a few posts that said that when the
software was installed, it interfered with other adapters that were
installed on the system.

  Overall sounds like it needs to mature a bit more.  Neat idea though.

Jim.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 8:15 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi


Thanks John,
That gives me some insight into it.  I am very wary of any mention of
Rootkits because once they are in, there is little or no chance of
discovering them, let alone removing them without a complete
re-installation.  It is a shame that they did not make mention of the fact
that this would happen right up front, then people could make an informed
decision before undertaking the installation and have prior warning before
the alert flashes on the screen.

>From what you have said, it does sound as if this particular program is
safe.

Many thanks

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 06 January 2006 12:51
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Reply,

Protection software mis-identifies software all the time.  It happens.
Hamachi installs a complete network layer because it is setting up a new
LAN.  How can I know that Hamachi isn't spyware or a trojan?  I can't.  How
do you know that any other program that you decide to use is not a Trojan?
You can't.  You have to Google the hell out of the company, look at user's
comments and just accept or not.

Hamachi has been in beta for well over a year.  There are entire lists for
users that play games over it (hundreds if not thousands - I didn't read
them all).  They are on beta release 9.9.9 (getting ready to release the
product).   This thing has been around, have literally 800,000 downloads (no
idea how many active users though).  The designer is a known security expert
from Canada who is releasing this product based on work he did as a
consultant for another company.  He is a known face, can be reached by
email, etc. etc.

Does this sound like a virus writer to you?

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 2:55 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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


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

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


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


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


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

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




From Gustav at cactus.dk  Fri Jan  6 09:33:31 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 16:33:31 +0100
Subject: [AccessD] Read picture of barcode
Message-ID: <s3be9be7.060@cactus.dk>

Hi all

Found this attempt:

  http://wiki.tcl.tk/13193

<quote>

This code will try to scan EAN-13 barcodes from jpeg images in the current working directory. You must include the EAN-13 encode/decode functions in the same directory as this small application.

It will scan the barcodes from images like http://pascal.scheffers.net/images/barcode-sample1.jpg (not inlined due to size).

The detection is sloooooow. And it will only work with rather clean images, sorry.

</quote>

but it is written in tcl which I've never used:

  http://www.tcl.tk 

/gustav



From Gustav at cactus.dk  Fri Jan  6 09:42:27 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 16:42:27 +0100
Subject: [AccessD] Read picture of barcode
Message-ID: <s3be9e09.061@cactus.dk>

- and here's an extensive source with toolkits, SDK, picture samples (!) and much more:

  http://www.bardecode.com/windows.html 

/gustav



From jwcolby at ColbyConsulting.com  Fri Jan  6 09:49:47 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 10:49:47 -0500
Subject: [AccessD] Withevents and object library version
In-Reply-To: <s3be62f9.036@cactus.dk>
Message-ID: <003001c612d8$d493cdd0$647aa8c0@ColbyM6805>

Gustav,

In this specific case (and in 9x% of all businesses?) the client does use
outlook.  Outlook has a programming model, where I can iterate mail folders,
iterate messages in that folder's message collection, iterate attachments to
each message's attachments collection etc.  You would not believe the work
out there in programming Outlook simply because so many companies use it.

>If a hit exists, the mail is downloaded, the attachment saved and a batch
file is called which unzips the attachment, processes it (by calling an
Access app), zips the processed file and mail it - and logs it all for
reference.

And I do all of this kind of stuff (including the zip/unzip) from right
inside of VBA.  No batch files, no having the batch file call some other app
etc.  Each step of my process logs statuses etc.

I know that other approaches exist but whipping out code all inside of
Access VBA is much cleaner where it is possible.  I am going to need to
learn the workaround of the Outlook Send security crap this time though.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 06, 2006 6:31 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Withevents and object library version

Hi John

You could add Outlook as a Reference by GUID specifying Major and Minor
version no.
Start from top (Outlook 2003) and continue until it doesn't fail.
Or maybe you could specify 0 for both Major and Minor and the current
version will be referenced - that is how it is supposed to work, but I
haven't found this method to work reliably.
Remember that the code will be left uncompiled, thus you need to recompile
which is not that easy ... if you recall the old threads on this.

By why use Outlook? It's a monster. If a client doesn't use Outlook then
what to do? Couldn't you just let a rule forward those mails to a known
environment, then poll that at some interval? 
For a specific purpose we did that. An old 266MHz machine runs The Bat!
client which polls via POP3 every five minute. If a hit exists, the mail is
downloaded, the attachment saved and a batch file is called which unzips the
attachment, processes it (by calling an Access app), zips the processed file
and mail it - and logs it all for reference.

Not as sexy as WithEvents, I know, but it works.

/gustav


>>> jwcolby at ColbyConsulting.com 05-01-2006 23:58 >>>
I am starting dev on a little app to strip attachments off of outlook emails
and file them on the disk.  In order to do this I have to grab an instance
of outlook and sink events for it (emails hitting a sub-folder).

My issue is that of all the Office applications, Outlook is the ONE app that
the Office install only allows you to keep a single version of.  Thus I have
an issue developing in it since my version is 2003 and most of my clients
have 2002.  I can do everything else just using late binding but sinking
events just requires knowing the object type at compile time.

Does anyone have reliable code for determining which version of Outlook is
installed and referencing that lib at run time?  
John W. Colby
www.ColbyConsulting.com 


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



From Gustav at cactus.dk  Fri Jan  6 10:13:14 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 17:13:14 +0100
Subject: [AccessD] Withevents and object library version
Message-ID: <s3bea540.062@cactus.dk>

Hi John

OK, that's more than picking an attachment and save it.
Would you let us know if you find a method solving your original question, please?

/gustav

>>> jwcolby at ColbyConsulting.com 06-01-2006 16:49 >>>
Gustav,

In this specific case (and in 9x% of all businesses?) the client does use
outlook.  Outlook has a programming model, where I can iterate mail folders,
iterate messages in that folder's message collection, iterate attachments to
each message's attachments collection etc.  You would not believe the work
out there in programming Outlook simply because so many companies use it.

>If a hit exists, the mail is downloaded, the attachment saved and a batch
file is called which unzips the attachment, processes it (by calling an
Access app), zips the processed file and mail it - and logs it all for
reference.

And I do all of this kind of stuff (including the zip/unzip) from right
inside of VBA.  No batch files, no having the batch file call some other app
etc.  Each step of my process logs statuses etc.

I know that other approaches exist but whipping out code all inside of
Access VBA is much cleaner where it is possible.  I am going to need to
learn the workaround of the Outlook Send security crap this time though.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 06, 2006 6:31 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Withevents and object library version

Hi John

You could add Outlook as a Reference by GUID specifying Major and Minor
version no.
Start from top (Outlook 2003) and continue until it doesn't fail.
Or maybe you could specify 0 for both Major and Minor and the current
version will be referenced - that is how it is supposed to work, but I
haven't found this method to work reliably.
Remember that the code will be left uncompiled, thus you need to recompile
which is not that easy ... if you recall the old threads on this.

By why use Outlook? It's a monster. If a client doesn't use Outlook then
what to do? Couldn't you just let a rule forward those mails to a known
environment, then poll that at some interval? 
For a specific purpose we did that. An old 266MHz machine runs The Bat!
client which polls via POP3 every five minute. If a hit exists, the mail is
downloaded, the attachment saved and a batch file is called which unzips the
attachment, processes it (by calling an Access app), zips the processed file
and mail it - and logs it all for reference.

Not as sexy as WithEvents, I know, but it works.

/gustav


>>> jwcolby at ColbyConsulting.com 05-01-2006 23:58 >>>
I am starting dev on a little app to strip attachments off of outlook emails
and file them on the disk.  In order to do this I have to grab an instance
of outlook and sink events for it (emails hitting a sub-folder).

My issue is that of all the Office applications, Outlook is the ONE app that
the Office install only allows you to keep a single version of.  Thus I have
an issue developing in it since my version is 2003 and most of my clients
have 2002.  I can do everything else just using late binding but sinking
events just requires knowing the object type at compile time.

Does anyone have reliable code for determining which version of Outlook is
installed and referencing that lib at run time?  
John W. Colby
www.ColbyConsulting.com 




From jwcolby at ColbyConsulting.com  Fri Jan  6 10:37:57 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 11:37:57 -0500
Subject: [AccessD] Buttons in spreadsheets
Message-ID: <004e01c612df$8e149b80$647aa8c0@ColbyM6805>

Is there any way to "drag and drop" a control such a check box onto cells of
a spreadsheet?  IOW, "bind" a checkbox to a cell?

If that can be done, can I do this programmatically?

I am trying to build a spreadsheet which will be attached to an email.  The
spreadsheet will have locked columns where I write info and a pair of
columns where the recipient "checks".  I would like to make the checks an
actual control so that I don't have to depend on them "getting it right".
The spreadsheet is then returned to me for processing.

While we are at it, how do I cause a square area of the spreadsheet to be a
named range?  I have never done this kind of stuff before and don't want to
spend time figuring it out if someone has done it before.

So I open a "template" spreadsheet, add data into two columns - anywhere
from a few to a hundred different rows, two columns.  Attach it to a
spreadsheet and mail it.  When I get it back, I open it, read data out of
two difference columns, looking for True/False (if controls in the cells) or
an X or something similar if no control.

John W. Colby
www.ColbyConsulting.com 




From Gustav at cactus.dk  Fri Jan  6 11:20:03 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 06 Jan 2006 18:20:03 +0100
Subject: [AccessD] Buttons in spreadsheets
Message-ID: <s3beb4eb.067@cactus.dk>

Hi John

Select (mark) the area.
Choose menu Insert, Named Range, Define. 
Type in the name of the new Named Range.
Click Add.
Click OK.

/gustav

>>> jwcolby at ColbyConsulting.com 06-01-2006 17:37 >>>

While we are at it, how do I cause a square area of the spreadsheet to be a
named range?  I have never done this kind of stuff before and don't want to
spend time figuring it out if someone has done it before.





From Lambert.Heenan at AIG.com  Fri Jan  6 11:20:41 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Fri, 6 Jan 2006 12:20:41 -0500 
Subject: [AccessD] Buttons in spreadsheets
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E38F@xlivmbx21.aig.com>

John,

I don't think you can bind a control to a cell in Excel, but take a look at
'Data Validation'. One simple way 
to do what you want is this...

First, in some out of the way area of the worksheet, enter TRUE and FALSE in
a couple of cells. 
Then select the whole column where you want the users to enter the
true/false datum.
Next on the 'Data' menu select 'Validation'. You'll get a three tab dialog
box. On the Settings tab there is a combo called 'Allow'. Select 'List' from
this combo and then in the 'Source' box below hit the little red-arrow to
select the two cells where you typed TRUE and FALSE, then hit OK.

Now when the users select any cell in the column you just defined data
validation for, they will get a combo button which will allow them to enter
True or False, and nothing else.

HTH

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 11:38 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Buttons in spreadsheets


Is there any way to "drag and drop" a control such a check box onto cells of
a spreadsheet?  IOW, "bind" a checkbox to a cell?

If that can be done, can I do this programmatically?

I am trying to build a spreadsheet which will be attached to an email.  The
spreadsheet will have locked columns where I write info and a pair of
columns where the recipient "checks".  I would like to make the checks an
actual control so that I don't have to depend on them "getting it right".
The spreadsheet is then returned to me for processing.

While we are at it, how do I cause a square area of the spreadsheet to be a
named range?  I have never done this kind of stuff before and don't want to
spend time figuring it out if someone has done it before.

So I open a "template" spreadsheet, add data into two columns - anywhere
from a few to a hundred different rows, two columns.  Attach it to a
spreadsheet and mail it.  When I get it back, I open it, read data out of
two difference columns, looking for True/False (if controls in the cells) or
an X or something similar if no control.

John W. Colby
www.ColbyConsulting.com 


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


From jwcolby at ColbyConsulting.com  Fri Jan  6 11:30:09 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 12:30:09 -0500
Subject: [AccessD] Can't write to an Excel spreadsheet
Message-ID: <005201c612e6$d99fe2b0$647aa8c0@ColbyM6805>

I created a spreadsheet in a workbook.  Placed text names in the top row for
four columns, saved the sheet.  I then linked the sheet to Access.  With no
data in the spreadsheet, the table shows no data, and there is no new record
row.  If I try to append data to Columns A and B using an append query, I
get a "you are using a non-updateable query" or something similar.  If I
name a range and link to the named range, with actual data in a few records,
the entire range shows, the data shows in the first few rows, but the whole
thing is non-updateable.

I thought that an Excel spreadsheet was updateable from Access.  Am I doing
something wrong or is Excel indeed not updateable from Access?

John W. Colby
www.ColbyConsulting.com 




From papparuff at comcast.net  Fri Jan  6 11:36:20 2006
From: papparuff at comcast.net (papparuff at comcast.net)
Date: Fri, 06 Jan 2006 17:36:20 +0000
Subject: [AccessD] Buttons in spreadsheets
Message-ID: <010620061736.11320.43BEAA94000AEDAB00002C38220730079300009A9D0E9F9F0E9F@comcast.net>

Download the self-extracting file Xpautomation.exe from http://support.microsoft.com/default.aspx?scid=kb;en-us;302460 for examples of using Access and Automation for manipulating Word, Excel, Outlook, etc. Even though it is for Office XP, it also works with Office 2003.

There are excellent examples here.

--
John V. Ruff ? The Eternal Optimist :-) 

?Commit to the Lord whatever you do, 
and your plans will succeed.? Proverbs 16:3

-------------- Original message -------------- 
From: "John Colby" <jwcolby at ColbyConsulting.com> 

> Is there any way to "drag and drop" a control such a check box onto cells of 
> a spreadsheet? IOW, "bind" a checkbox to a cell? 
> 
> If that can be done, can I do this programmatically? 
> 
> I am trying to build a spreadsheet which will be attached to an email. The 
> spreadsheet will have locked columns where I write info and a pair of 
> columns where the recipient "checks". I would like to make the checks an 
> actual control so that I don't have to depend on them "getting it right". 
> The spreadsheet is then returned to me for processing. 
> 
> While we are at it, how do I cause a square area of the spreadsheet to be a 
> named range? I have never done this kind of stuff before and don't want to 
> spend time figuring it out if someone has done it before. 
> 
> So I open a "template" spreadsheet, add data into two columns - anywhere 
> from a few to a hundred different rows, two columns. Attach it to a 
> spreadsheet and mail it. When I get it back, I open it, read data out of 
> two difference columns, looking for True/False (if controls in the cells) or 
> an X or something similar if no control. 
> 
> John W. Colby 
> www.ColbyConsulting.com 
> 
> 
> -- 
> AccessD mailing list 
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 

From Jim.Hale at FleetPride.com  Fri Jan  6 11:38:38 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Fri, 6 Jan 2006 11:38:38 -0600 
Subject: [AccessD] Buttons in spreadsheets
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD949@corp-es01.fleetpride.com>

Since you are using a template there is a slick way to create dynamic
ranges.  I assume your two columns are A and B and you will have a header in
cell A1 and B1. in the template go <insert><name><define>. put the name you
want for the range (ex DATA1) and in the 'refers to' box type
"=offset($a$1,0,0,counta($a:$a),counta($1:$1))" (no quotes) and click <add>.
To test add data to the range, press F5 and type DATA1. The whole range
should be highlighted. Add or delete more data and hit F5. The new range
should be selected. This range name can be refered to in code. You do need
to have auto calc on in the spreasheet so that the formulas will compute.
HTH
Jim Hale

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Friday, January 06, 2006 10:38 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Buttons in spreadsheets


Is there any way to "drag and drop" a control such a check box onto cells of
a spreadsheet?  IOW, "bind" a checkbox to a cell?

If that can be done, can I do this programmatically?

I am trying to build a spreadsheet which will be attached to an email.  The
spreadsheet will have locked columns where I write info and a pair of
columns where the recipient "checks".  I would like to make the checks an
actual control so that I don't have to depend on them "getting it right".
The spreadsheet is then returned to me for processing.

While we are at it, how do I cause a square area of the spreadsheet to be a
named range?  I have never done this kind of stuff before and don't want to
spend time figuring it out if someone has done it before.

So I open a "template" spreadsheet, add data into two columns - anywhere
from a few to a hundred different rows, two columns.  Attach it to a
spreadsheet and mail it.  When I get it back, I open it, read data out of
two difference columns, looking for True/False (if controls in the cells) or
an X or something similar if no control.

John W. Colby
www.ColbyConsulting.com 


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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From carbonnb at gmail.com  Fri Jan  6 11:40:17 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Fri, 6 Jan 2006 12:40:17 -0500
Subject: [AccessD] Buttons in spreadsheets
In-Reply-To: <004e01c612df$8e149b80$647aa8c0@ColbyM6805>
References: <004e01c612df$8e149b80$647aa8c0@ColbyM6805>
Message-ID: <e04a6c920601060940s2a7f8bdbj@mail.gmail.com>

On 06/01/06, John Colby <jwcolby at colbyconsulting.com> wrote:
> Is there any way to "drag and drop" a control such a check box onto cells of
> a spreadsheet?  IOW, "bind" a checkbox to a cell?

AFAIK, you can't bind a checkbox to a cell, but you can write code to
handle when the user checks or unchecks it.

The checkboxes are on the Controls toolbar in Excel.

> If that can be done, can I do this programmatically?

Probably, but I can't say for sure.

> While we are at it, how do I cause a square area of the spreadsheet to be a
> named range?  I have never done this kind of stuff before and don't want to
> spend time figuring it out if someone has done it before.

Select the range of cells that you want to name. Select Insert | Name
| Define... from the menu.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From Lambert.Heenan at AIG.com  Fri Jan  6 11:41:24 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Fri, 6 Jan 2006 11:41:24 -0600 
Subject: [AccessD] Can't write to an Excel spreadsheet
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E3BF@xlivmbx21.aig.com>

There were a couple of threads on this a few weeks ago.

Apparently M$ lost some law suit and the end result was they had to disable
the ability of Access to update Excel. You can still export to Excel, but
that's it - I think.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:30 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Can't write to an Excel spreadsheet


I created a spreadsheet in a workbook.  Placed text names in the top row for
four columns, saved the sheet.  I then linked the sheet to Access.  With no
data in the spreadsheet, the table shows no data, and there is no new record
row.  If I try to append data to Columns A and B using an append query, I
get a "you are using a non-updateable query" or something similar.  If I
name a range and link to the named range, with actual data in a few records,
the entire range shows, the data shows in the first few rows, but the whole
thing is non-updateable.

I thought that an Excel spreadsheet was updateable from Access.  Am I doing
something wrong or is Excel indeed not updateable from Access?

John W. Colby
www.ColbyConsulting.com 



From jwcolby at ColbyConsulting.com  Fri Jan  6 11:47:22 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 12:47:22 -0500
Subject: [AccessD] Can't write to an Excel spreadsheet
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E3BF@xlivmbx21.aig.com>
Message-ID: <005c01c612e9$412520b0$647aa8c0@ColbyM6805>

Oh yea, I remember.  What a PITA.  That throws a major wrench in the works.
I was hoping to open a predefined spreadsheet, with locked columns, named
ranges etc., then just export data to it, attach to an email and send.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Friday, January 06, 2006 12:41 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet

There were a couple of threads on this a few weeks ago.

Apparently M$ lost some law suit and the end result was they had to disable
the ability of Access to update Excel. You can still export to Excel, but
that's it - I think.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:30 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Can't write to an Excel spreadsheet


I created a spreadsheet in a workbook.  Placed text names in the top row for
four columns, saved the sheet.  I then linked the sheet to Access.  With no
data in the spreadsheet, the table shows no data, and there is no new record
row.  If I try to append data to Columns A and B using an append query, I
get a "you are using a non-updateable query" or something similar.  If I
name a range and link to the named range, with actual data in a few records,
the entire range shows, the data shows in the first few rows, but the whole
thing is non-updateable.

I thought that an Excel spreadsheet was updateable from Access.  Am I doing
something wrong or is Excel indeed not updateable from Access?

John W. Colby
www.ColbyConsulting.com 

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



From Lambert.Heenan at AIG.com  Fri Jan  6 12:17:50 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Fri, 6 Jan 2006 13:17:50 -0500 
Subject: [AccessD] Can't write to an Excel spreadsheet
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E403@xlivmbx21.aig.com>

There's always Automation though. More effort, but it works. 

See http://support.microsoft.com/default.aspx?scid=kb;en-us;302460 for a
recent help file on the subject.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:47 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet


Oh yea, I remember.  What a PITA.  That throws a major wrench in the works.
I was hoping to open a predefined spreadsheet, with locked columns, named
ranges etc., then just export data to it, attach to an email and send.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Friday, January 06, 2006 12:41 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet

There were a couple of threads on this a few weeks ago.

Apparently M$ lost some law suit and the end result was they had to disable
the ability of Access to update Excel. You can still export to Excel, but
that's it - I think.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:30 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Can't write to an Excel spreadsheet


I created a spreadsheet in a workbook.  Placed text names in the top row for
four columns, saved the sheet.  I then linked the sheet to Access.  With no
data in the spreadsheet, the table shows no data, and there is no new record
row.  If I try to append data to Columns A and B using an append query, I
get a "you are using a non-updateable query" or something similar.  If I
name a range and link to the named range, with actual data in a few records,
the entire range shows, the data shows in the first few rows, but the whole
thing is non-updateable.

I thought that an Excel spreadsheet was updateable from Access.  Am I doing
something wrong or is Excel indeed not updateable from Access?

John W. Colby
www.ColbyConsulting.com 

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

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


From Lambert.Heenan at AIG.com  Fri Jan  6 12:20:36 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Fri, 6 Jan 2006 13:20:36 -0500 
Subject: [AccessD] Can't write to an Excel spreadsheet
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E404@xlivmbx21.aig.com>

And here is an example of adding data to an Excel file from the Automation
help file...

Sub bulkTransfer()

   Dim xlApp As Excel.Application
   Dim xlBook As Workbook
   Dim xlSheet As Worksheet

   'Start a new workbook in Excel.
   Set xlApp = CreateObject("Excel.Application")
   Set xlBook = xlApp.Workbooks.Add

   'Create an array that contains 3 columns and 100 rows.
   Dim aryData(1 To 100, 1 To 3) As Variant
   Dim intCount As Integer

   For intCount = 1 To 100
      aryData(intCount, 1) = "ORD" & Format(r, "0000")
      aryData(intCount, 2) = Rnd() * 1000
      aryData(intCount, 3) = aryData(intCount, 2) * 0.7
   Next

   'Add headers to the worksheet on row 1.
   Set xlSheet = xlBook.Worksheets(1)
   xlSheet.Range(xlSheet.Cells(1,1),xlSheet.Cells(1,3)).Value = Array("Order
ID", "Amount", "Tax")

   'Transfer the array to the worksheet, starting at cell A2.
   xlSheet.Range("A2").Resize(100, 3).Value = aryData
      
   'Save the workbook and quit Excel.
   xlBook.SaveAs "C:\My Documents\ArrayDump.xls"
   xlApp.Quit
   Set xlSheet = Nothing
   Set xlBook = Nothing
   Set xlApp = Nothing

End Sub

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:47 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet


Oh yea, I remember.  What a PITA.  That throws a major wrench in the works.
I was hoping to open a predefined spreadsheet, with locked columns, named
ranges etc., then just export data to it, attach to an email and send.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Friday, January 06, 2006 12:41 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet

There were a couple of threads on this a few weeks ago.

Apparently M$ lost some law suit and the end result was they had to disable
the ability of Access to update Excel. You can still export to Excel, but
that's it - I think.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:30 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Can't write to an Excel spreadsheet


I created a spreadsheet in a workbook.  Placed text names in the top row for
four columns, saved the sheet.  I then linked the sheet to Access.  With no
data in the spreadsheet, the table shows no data, and there is no new record
row.  If I try to append data to Columns A and B using an append query, I
get a "you are using a non-updateable query" or something similar.  If I
name a range and link to the named range, with actual data in a few records,
the entire range shows, the data shows in the first few rows, but the whole
thing is non-updateable.

I thought that an Excel spreadsheet was updateable from Access.  Am I doing
something wrong or is Excel indeed not updateable from Access?

John W. Colby
www.ColbyConsulting.com 

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

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


From artful at rogers.com  Fri Jan  6 12:45:26 2006
From: artful at rogers.com (Arthur Fuller)
Date: Fri, 6 Jan 2006 13:45:26 -0500
Subject: [AccessD] Himachi -> Hamachi
In-Reply-To: <!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAW7DrIUv8Sk+BDIsZ6T0G1sKAAAAQAAAAggaEW+whlkCrB+KBiGgHFwEAAAAA@sherman.org.uk>
Message-ID: <200601061845.k06IjWV04973@databaseadvisors.com>

Can anyone on this list spell? It's "Hamachi" not "Himachi". The former, the
correct name of the software in question, is also the Japanese word for
yellowtail fish.
Arthur



From jim.moss at jlmoss.net  Fri Jan  6 12:48:36 2006
From: jim.moss at jlmoss.net (Jim Moss)
Date: Fri, 6 Jan 2006 12:48:36 -0600 (CST)
Subject: [AccessD] Can't write to an Excel spreadsheet
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E404@xlivmbx21.aig.com>
References: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E404@xlivmbx21.aig.com>
Message-ID: <30180.65.196.182.34.1136573316.squirrel@65.196.182.34>

John,

Here's an example of Excel creation using CopyFromRecordset and
formatting. You should be able bind a control to a cell, just start macro
recording, do your control thing, and save the macro. Then you can copy
the vba into your access module.  You can also use macro recording to
figure out cell locking.

Jim


Set Rs1 = DbA.OpenRecordset("SELECT SupplierName, InvoiceNumber, PONumber,
DueDate, ERP, LocDesc, AmountInUSD, Status, APKey FROM
qrsAPTrialBalanceNorthAmerica WHERE SupplierName = GetSupplierNameLB();",
dbOpenSnapshot)

' CopyFromRecordset code
            intMaxCol = Rs1.Fields.Count
            If Rs1.RecordCount > 0 Then
                Rs1.MoveLast
                Rs1.MoveFirst
                intMaxRow = Rs1.RecordCount
                Set objXL = CreateObject("Excel.Application")
                With objXL
                    .Visible = False
                    Set objWkb = .Workbooks.Add
                    Set objSht = objWkb.Worksheets(1)
                        With objSht
                            .Range(.cells(2, 1), .cells(intMaxRow, _
                            intMaxCol)).CopyFromRecordset Rs1
                        End With
                        With objSht
                            .Columns("G:H").select
                            .Columns.NumberFormat = "#,##0.00"
                        End With
                        With objSht
                            .Columns("M:M").select
                            .Columns.NumberFormat = "#,##0.00"
                        End With
               End With
            End If
            objXL.Sheets("Sheet1").select
            objXL.Sheets("Sheet1").Name = GetCOID()
          objSht.cells(1, 1).select
          objSht.cells(1, 1).FormulaR1C1 = "ReportDate"
          objSht.cells(1, 1).interior.colorindex = 19
          objSht.cells(1, 2).select
          objSht.cells(1, 2).FormulaR1C1 = "GLAcct"
          objSht.cells(1, 2).interior.colorindex = 19
          objSht.cells(1, 3).select
          objSht.cells(1, 3).FormulaR1C1 = "SupplierName"
          objSht.cells(1, 3).interior.colorindex = 19
          objSht.cells(1, 4).select
          objSht.cells(1, 4).FormulaR1C1 = "InvoiceNumber"
          objSht.cells(1, 4).interior.colorindex = 19
          objSht.cells(1, 5).select
          objSht.cells(1, 5).FormulaR1C1 = "InvoiceDate"
          objSht.cells(1, 5).interior.colorindex = 19
          objSht.cells(1, 6).select
          objSht.cells(1, 6).FormulaR1C1 = "Curr"
          objSht.cells(1, 6).interior.colorindex = 19
          objSht.cells(1, 7).select
          objSht.cells(1, 7).FormulaR1C1 = "OriginalAmount"
          objSht.cells(1, 7).interior.colorindex = 19
          objSht.cells(1, 8).select
          objSht.cells(1, 8).FormulaR1C1 = "RemainingAmount"
          objSht.cells(1, 8).interior.colorindex = 19
          objSht.cells(1, 9).select
          objSht.cells(1, 9).FormulaR1C1 = "ERP"
          objSht.cells(1, 9).interior.colorindex = 19
          objSht.cells(1, 10).select
          objSht.cells(1, 10).FormulaR1C1 = "Location"
          objSht.cells(1, 10).interior.colorindex = 19
          objSht.cells(1, 11).select
          objSht.cells(1, 11).FormulaR1C1 = "Grouping"
          objSht.cells(1, 11).interior.colorindex = 19
          objSht.cells(1, 12).select
          objSht.cells(1, 12).FormulaR1C1 = "Category"
          objSht.cells(1, 12).interior.colorindex = 19
          objSht.cells(1, 13).select
          objSht.cells(1, 13).FormulaR1C1 = "AmtInUSD"
          objSht.cells(1, 13).interior.colorindex = 19
          objSht.cells(1, 14).select
          objSht.cells(1, 14).FormulaR1C1 = "Acct"
          objSht.cells(1, 14).interior.colorindex = 19
          objSht.cells(1, 15).select
          objSht.cells(1, 15).FormulaR1C1 = "Co"
          objSht.cells(1, 15).interior.colorindex = 19
           'objSht.Rows("1:1").Select
            objSht.rows("1:1").AutoFilter
            objSht.rows("2:2").select
            objXL.ActiveWindow.FreezePanes = True
         objWkb.SaveAs ("J:\Month End Reports\" & strUser &
"\APTrialBalance_" & strDate & "_" & MyERPOUR)
         objWkb.Close
         Set objSht = Nothing
         Set objWkb = Nothing
         Set objXL = Nothing
        Rs0.MoveNext
    Loop






> And here is an example of adding data to an Excel file from the Automation
> help file...
>
> Sub bulkTransfer()
>
>    Dim xlApp As Excel.Application
>    Dim xlBook As Workbook
>    Dim xlSheet As Worksheet
>
>    'Start a new workbook in Excel.
>    Set xlApp = CreateObject("Excel.Application")
>    Set xlBook = xlApp.Workbooks.Add
>
>    'Create an array that contains 3 columns and 100 rows.
>    Dim aryData(1 To 100, 1 To 3) As Variant
>    Dim intCount As Integer
>
>    For intCount = 1 To 100
>       aryData(intCount, 1) = "ORD" & Format(r, "0000")
>       aryData(intCount, 2) = Rnd() * 1000
>       aryData(intCount, 3) = aryData(intCount, 2) * 0.7
>    Next
>
>    'Add headers to the worksheet on row 1.
>    Set xlSheet = xlBook.Worksheets(1)
>    xlSheet.Range(xlSheet.Cells(1,1),xlSheet.Cells(1,3)).Value =
> Array("Order
> ID", "Amount", "Tax")
>
>    'Transfer the array to the worksheet, starting at cell A2.
>    xlSheet.Range("A2").Resize(100, 3).Value = aryData
>
>    'Save the workbook and quit Excel.
>    xlBook.SaveAs "C:\My Documents\ArrayDump.xls"
>    xlApp.Quit
>    Set xlSheet = Nothing
>    Set xlBook = Nothing
>    Set xlApp = Nothing
>
> End Sub
>
> Lambert
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
> Sent: Friday, January 06, 2006 12:47 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Can't write to an Excel spreadsheet
>
>
> Oh yea, I remember.  What a PITA.  That throws a major wrench in the
> works.
> I was hoping to open a predefined spreadsheet, with locked columns, named
> ranges etc., then just export data to it, attach to an email and send.
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
> Sent: Friday, January 06, 2006 12:41 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Can't write to an Excel spreadsheet
>
> There were a couple of threads on this a few weeks ago.
>
> Apparently M$ lost some law suit and the end result was they had to
> disable
> the ability of Access to update Excel. You can still export to Excel, but
> that's it - I think.
>
> Lambert
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
> Sent: Friday, January 06, 2006 12:30 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Can't write to an Excel spreadsheet
>
>
> I created a spreadsheet in a workbook.  Placed text names in the top row
> for
> four columns, saved the sheet.  I then linked the sheet to Access.  With
> no
> data in the spreadsheet, the table shows no data, and there is no new
> record
> row.  If I try to append data to Columns A and B using an append query, I
> get a "you are using a non-updateable query" or something similar.  If I
> name a range and link to the named range, with actual data in a few
> records,
> the entire range shows, the data shows in the first few rows, but the
> whole
> thing is non-updateable.
>
> I thought that an Excel spreadsheet was updateable from Access.  Am I
> doing
> something wrong or is Excel indeed not updateable from Access?
>
> John W. Colby
> www.ColbyConsulting.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>




From djkr at msn.com  Fri Jan  6 12:55:05 2006
From: djkr at msn.com (DJK(John) Robinson)
Date: Fri, 6 Jan 2006 18:55:05 -0000
Subject: [AccessD] Himachi -> Hamachi
In-Reply-To: <200601061845.k06IjWV04973@databaseadvisors.com>
Message-ID: <BAY106-DAV4183ABBD66FABEB5FB3D5D2210@phx.gbl>

Thanks, Arthur.  I've been itching to say that, but only just got to it!
John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: 06 January 2006 18:45
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi -> Hamachi


Can anyone on this list spell? It's "Hamachi" not "Himachi". The former, the
correct name of the software in question, is also the Japanese word for
yellowtail fish. Arthur

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


From papparuff at comcast.net  Fri Jan  6 13:08:01 2006
From: papparuff at comcast.net (John Ruff)
Date: Fri, 6 Jan 2006 11:08:01 -0800
Subject: [AccessD] Can't write to an Excel spreadsheet
In-Reply-To: <005c01c612e9$412520b0$647aa8c0@ColbyM6805>
Message-ID: <001c01c612f4$844dcfd0$6a01a8c0@DDMJWX41>

And here's some more code (using the CopyFromRecordset property.

Public Function CreateSpreadsheet() as boolean
  ' This routine permits you to quickly save data in a recordset to a
spreadsheet.  

  Dim xlApp As Excel.Application
  Dim xlBook As Excel.Workbook
  Dim xlSheet As Excel.Worksheet
  Dim dbsTemp As Database
  Dim rstTemp As Recordset
  Dim bolIsExcelRunning As Boolean
  Dim strFileName as string
  Dim strDirectory as string
  Dim intCount as integer  
  Dim intColCount as integer

  Set dbsTemp = CurrentDb

  Set rstTemp =
dbsTemp.OpenRecordset("qSel_AgingReport_Summary_Spreadsheet_Final")

  ' This is the directory where the spreadsheet will be saved to
  strDirectory="N:\COMMON\MSSP\AGING REPORT\"
  ' This is the File Name
  strFileName="MySpreadsheet.xls"

  ' Determine if Excel is open
  bolIsExcelRunning = IsExcelRunning()
 
  ' Create a Worksheet Object
  If bolIsExcelRunning Then
    Set xlApp = GetObject(, "Excel.Application")   
  Else
    Set xlApp = CreateObject("Excel.Application")
  End If
    
  ' Create a new workbook
  Set xlBook = xlApp.Workbooks.Add()
  
  ' Provide a name for the worksheet
  For Each xlSheet In xlBook.Worksheets
    If xlSheet.Name = "Sheet1" Then
      xlSheet.Name = "Aging Report Summary"
    End If
    If xlSheet.Name = "Sheet2" Then
      xlSheet.Name = "Aging Report Detail"
    End If
  Next
   
  Set xlSheet = xlBook.Worksheets("Aging Report Summary")

  xlSheet.Visible = True
  xlSheet.Activate

  intColCount = rstTemp.Fields.Count
 
  ' Place Column Headers onto the spreadsheet starting in cell A1
  With xlSheet.Range("A1")
    For intCol = 0 To intColCount - 1
      .Cells(1, intCol + 1).Value = rstTemp.Fields(intCol).Name
    Next intCol
  End With
  
  ' Copy the recordset to the spreadsheet starting in cell A2
  xlSheet.Range("A2").CopyFromRecordset rstTemp


 
  ' Saving and quitting
 
  ' Save the file
  xlBook.Close savechanges:=True, FileName:=strDirectory & strFileName

  ' Quit
  If Not bolIsExcelRunning Then
    xlApp.Quit
  End If
  
  Set xlSheet = Nothing
  Set xlBook = Nothing
  Set xlApp = Nothing

  ' Reset error object to 0
  Err = 0

End Function

Public Function IsExcelRunning() As Boolean
' This function determines if Excel is running
    Dim xlApp As Excel.Application
    On Error Resume Next
    Set xlApp = GetObject(, "Excel.Application")
    IsExcelRunning = (Err.Number = 0)
    Set xlApp = Nothing
    Err.Clear
End Function



John V. Ruff - The Eternal Optimist :-)
 
"Commit to the Lord whatever you do,
                and your plans will succeed." Proverbs 16:3
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 9:47 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet

Oh yea, I remember.  What a PITA.  That throws a major wrench in the works.
I was hoping to open a predefined spreadsheet, with locked columns, named
ranges etc., then just export data to it, attach to an email and send.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Friday, January 06, 2006 12:41 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet

There were a couple of threads on this a few weeks ago.

Apparently M$ lost some law suit and the end result was they had to disable
the ability of Access to update Excel. You can still export to Excel, but
that's it - I think.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:30 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Can't write to an Excel spreadsheet


I created a spreadsheet in a workbook.  Placed text names in the top row for
four columns, saved the sheet.  I then linked the sheet to Access.  With no
data in the spreadsheet, the table shows no data, and there is no new record
row.  If I try to append data to Columns A and B using an append query, I
get a "you are using a non-updateable query" or something similar.  If I
name a range and link to the named range, with actual data in a few records,
the entire range shows, the data shows in the first few rows, but the whole
thing is non-updateable.

I thought that an Excel spreadsheet was updateable from Access.  Am I doing
something wrong or is Excel indeed not updateable from Access?

John W. Colby
www.ColbyConsulting.com 

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

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



From KIsmert at texassystems.com  Fri Jan  6 13:13:25 2006
From: KIsmert at texassystems.com (Ken Ismert)
Date: Fri, 6 Jan 2006 13:13:25 -0600
Subject: [AccessD] Himachi
Message-ID: <B7C87D3ABC87FC4E8CFE054CE2E8868A314DF9@aries.TexasSystems.local>

 
Jim,

<<John> This is a ... 0.9.9.9 product>

<<Jim> ... I found out a long time ago that it just doesn't pay to be on
that bleeding edge > 

Certainly, for commercial, Closed Source code, this is a wise strategy.

But I just want to point out that in Open Source, versions actually Mean
Something. 1.0 for an Open Source product means that the writers say
'this works'. Their reputation and credibility are on the line. Thus,
you see Open Source projects move very slowly to 1.0, with lots of
public testing. 

Think of it: this guy has an 800,000 user beta program on this product.
That's larger than the beta team that worked on Windows 2000, IIRC. 

Typically, a 1.0 Open Source product is stable, well tested, and works
in a real sense of the word. 

Regarding the users who say things like "I had to open all UDP ports on
my firewall to get it to work", that sounds a lot like network newbies
flailing away. Of course, turning off the firewall would get nearly
anything to work. The Hamachi author freely admits that the free version
will work in 97% of cases. The other 3% will require his "pro" version,
that requires dedicated (but still just as secure) third-party
connection hosting (and thus requires a fee). That's his business model,
and that's how he intends to keep on fixing and expanding the product. 

-Ken


From jwcolby at ColbyConsulting.com  Fri Jan  6 13:20:15 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 14:20:15 -0500
Subject: [AccessD] Can't write to an Excel spreadsheet
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1B19E403@xlivmbx21.aig.com>
Message-ID: <000001c612f6$39ff5f50$647aa8c0@ColbyM6805>

Yea, I already have automation figured out (I think).

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Friday, January 06, 2006 1:18 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet

There's always Automation though. More effort, but it works. 

See http://support.microsoft.com/default.aspx?scid=kb;en-us;302460 for a
recent help file on the subject.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:47 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet


Oh yea, I remember.  What a PITA.  That throws a major wrench in the works.
I was hoping to open a predefined spreadsheet, with locked columns, named
ranges etc., then just export data to it, attach to an email and send.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Friday, January 06, 2006 12:41 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Can't write to an Excel spreadsheet

There were a couple of threads on this a few weeks ago.

Apparently M$ lost some law suit and the end result was they had to disable
the ability of Access to update Excel. You can still export to Excel, but
that's it - I think.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 06, 2006 12:30 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Can't write to an Excel spreadsheet


I created a spreadsheet in a workbook.  Placed text names in the top row for
four columns, saved the sheet.  I then linked the sheet to Access.  With no
data in the spreadsheet, the table shows no data, and there is no new record
row.  If I try to append data to Columns A and B using an append query, I
get a "you are using a non-updateable query" or something similar.  If I
name a range and link to the named range, with actual data in a few records,
the entire range shows, the data shows in the first few rows, but the whole
thing is non-updateable.

I thought that an Excel spreadsheet was updateable from Access.  Am I doing
something wrong or is Excel indeed not updateable from Access?

John W. Colby
www.ColbyConsulting.com 

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

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



From jwcolby at ColbyConsulting.com  Fri Jan  6 13:21:33 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 14:21:33 -0500
Subject: [AccessD] Himachi -> Hamachi
In-Reply-To: <200601061845.k06IjWV04973@databaseadvisors.com>
Message-ID: <000101c612f6$68087f80$647aa8c0@ColbyM6805>

Yur gittin awflee ornree n yur old age.

;-)  


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: Friday, January 06, 2006 1:45 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi -> Hamachi

Can anyone on this list spell? It's "Hamachi" not "Himachi". The former, the
correct name of the software in question, is also the Japanese word for
yellowtail fish.
Arthur

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



From jwcolby at ColbyConsulting.com  Fri Jan  6 13:29:14 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 14:29:14 -0500
Subject: [AccessD] Hamachi
In-Reply-To: <B7C87D3ABC87FC4E8CFE054CE2E8868A314DF9@aries.TexasSystems.local>
Message-ID: <000201c612f7$7c70b0e0$647aa8c0@ColbyM6805>

Well... 

AFAICT this is not open source.
The "Beta program" does not have 800k beta users, the beta program has been
downloaded 800k times.  I downloaded it but I do not consider myself a beta
tester, just a (potential) user of a product still in beta.

Still, 800k downloads all by itself says a lot about the product.

As for all the rest, yup.  It certainly looks to me like a stable product,
with a knowledgeable developer behind the wheels, with a valid business
strategy for survival.  

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ken Ismert
Sent: Friday, January 06, 2006 2:13 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Hamachi

 
Jim,

<<John> This is a ... 0.9.9.9 product>

<<Jim> ... I found out a long time ago that it just doesn't pay to be on
that bleeding edge > 

Certainly, for commercial, Closed Source code, this is a wise strategy.

But I just want to point out that in Open Source, versions actually Mean
Something. 1.0 for an Open Source product means that the writers say 'this
works'. Their reputation and credibility are on the line. Thus, you see Open
Source projects move very slowly to 1.0, with lots of public testing. 

Think of it: this guy has an 800,000 user beta program on this product.
That's larger than the beta team that worked on Windows 2000, IIRC. 

Typically, a 1.0 Open Source product is stable, well tested, and works in a
real sense of the word. 

Regarding the users who say things like "I had to open all UDP ports on my
firewall to get it to work", that sounds a lot like network newbies flailing
away. Of course, turning off the firewall would get nearly anything to work.
The Hamachi author freely admits that the free version will work in 97% of
cases. The other 3% will require his "pro" version, that requires dedicated
(but still just as secure) third-party connection hosting (and thus requires
a fee). That's his business model, and that's how he intends to keep on
fixing and expanding the product. 

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



From Jim.Hale at FleetPride.com  Fri Jan  6 16:06:38 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Fri, 6 Jan 2006 16:06:38 -0600 
Subject: [AccessD] Can't write to an Excel spreadsheet
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD94D@corp-es01.fleetpride.com>

FYI you can designate the top left cell and execute the paste without having
to designate the entire range. ie.
".Range("A2").CopyFromRecordset Rs1" would work just as well eliminating the
need to determine intMaxRow and intMaxCol.
Jim Hale

-----Original Message-----
From: Jim Moss [mailto:jim.moss at jlmoss.net]
Sent: Friday, January 06, 2006 12:49 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Can't write to an Excel spreadsheet


John,

Here's an example of Excel creation using CopyFromRecordset and
formatting. You should be able bind a control to a cell, just start macro
recording, do your control thing, and save the macro. Then you can copy
the vba into your access module.  You can also use macro recording to
figure out cell locking.

Jim


Set Rs1 = DbA.OpenRecordset("SELECT SupplierName, InvoiceNumber, PONumber,
DueDate, ERP, LocDesc, AmountInUSD, Status, APKey FROM
qrsAPTrialBalanceNorthAmerica WHERE SupplierName = GetSupplierNameLB();",
dbOpenSnapshot)

' CopyFromRecordset code
            intMaxCol = Rs1.Fields.Count
            If Rs1.RecordCount > 0 Then
                Rs1.MoveLast
                Rs1.MoveFirst
                intMaxRow = Rs1.RecordCount
                Set objXL = CreateObject("Excel.Application")
                With objXL
                    .Visible = False
                    Set objWkb = .Workbooks.Add
                    Set objSht = objWkb.Worksheets(1)
                        With objSht
                            .Range(.cells(2, 1), .cells(intMaxRow, _
                            intMaxCol)).CopyFromRecordset Rs1
                        End With
                        With objSht
                            .Columns("G:H").select
                            .Columns.NumberFormat = "#,##0.00"
                        End With
                        With objSht
                            .Columns("M:M").select
                            .Columns.NumberFormat = "#,##0.00"
                        End With
               End With
            End If
           

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From jmhecht at earthlink.net  Fri Jan  6 21:10:29 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 6 Jan 2006 19:10:29 -0800
Subject: [AccessD] Naming conventions
Message-ID: <002201c61337$eb0e9bd0$6701a8c0@HPLaptop>

Who renames all controls in Access?

 

Who just renames controls that you write code against?

 

Joe Hecht

jmhecht at earthlink.net

 



From carbonnb at gmail.com  Fri Jan  6 22:07:08 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Fri, 6 Jan 2006 23:07:08 -0500
Subject: [AccessD] Naming conventions
In-Reply-To: <002201c61337$eb0e9bd0$6701a8c0@HPLaptop>
References: <002201c61337$eb0e9bd0$6701a8c0@HPLaptop>
Message-ID: <e04a6c920601062007n57f98d2u@mail.gmail.com>

On 06/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> Who renames all controls in Access?

I rename them all. Label and all.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From Jeff at outbaktech.com  Fri Jan  6 22:12:14 2006
From: Jeff at outbaktech.com (Jeff Barrows)
Date: Fri, 6 Jan 2006 22:12:14 -0600
Subject: [AccessD] Naming conventions
Message-ID: <E2FBF0A51D2A324C90BA16C566366A6D014BC3@belgarion.Outbak.local>

I try and rename them all, including labels also.

Jeff Barrows
MCP, MCAD, MCSD
 
Outbak Technologies, LLC
Racine, WI
Phone:  (262) 886-5913
Fax:      (262) 886-5932
jeff at outbaktech.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan
Carbonnell
Sent: Friday, January 06, 2006 10:07 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Naming conventions

On 06/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> Who renames all controls in Access?

I rename them all. Label and all.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jmhecht at earthlink.net  Fri Jan  6 22:14:42 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 6 Jan 2006 20:14:42 -0800
Subject: [AccessD] Naming conventions
In-Reply-To: <e04a6c920601062007n57f98d2u@mail.gmail.com>
Message-ID: <003001c61340$e2eaa120$6701a8c0@HPLaptop>

Manually or do have some power code?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bryan Carbonnell
Sent: Friday, January 06, 2006 8:07 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Naming conventions

On 06/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> Who renames all controls in Access?

I rename them all. Label and all.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a
well
preserved body, but rather to skid in sideways, totally worn
out,
shouting "What a great ride!"
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From carbonnb at gmail.com  Fri Jan  6 22:18:26 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Fri, 6 Jan 2006 23:18:26 -0500
Subject: [AccessD] Naming conventions
In-Reply-To: <003001c61340$e2eaa120$6701a8c0@HPLaptop>
References: <e04a6c920601062007n57f98d2u@mail.gmail.com>
	<003001c61340$e2eaa120$6701a8c0@HPLaptop>
Message-ID: <e04a6c920601062018u777c108eu@mail.gmail.com>

On 06/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> Manually or do have some power code?

Manually as I add the control to the form.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From jwcolby at ColbyConsulting.com  Fri Jan  6 22:29:46 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 6 Jan 2006 23:29:46 -0500
Subject: [AccessD] Naming conventions
In-Reply-To: <002201c61337$eb0e9bd0$6701a8c0@HPLaptop>
Message-ID: <002201c61342$fdc51a00$647aa8c0@ColbyM6805>

I generally do not rename them until I need to write code against them.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Friday, January 06, 2006 10:10 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Naming conventions

Who renames all controls in Access?

 

Who just renames controls that you write code against?

 

Joe Hecht

jmhecht at earthlink.net

 

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



From dwaters at usinternet.com  Fri Jan  6 22:35:10 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Fri, 6 Jan 2006 22:35:10 -0600
Subject: [AccessD] Naming conventions
In-Reply-To: <22544379.1136603686714.JavaMail.root@sniper19>
Message-ID: <000001c61343$beedcd30$0300a8c0@danwaters>

I rename just the ones I write code against.  But then, that's just about
everything!

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Friday, January 06, 2006 9:10 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Naming conventions

Who renames all controls in Access?

 

Who just renames controls that you write code against?

 

Joe Hecht

jmhecht at earthlink.net

 

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



From jmhecht at earthlink.net  Fri Jan  6 22:52:19 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 6 Jan 2006 20:52:19 -0800
Subject: [AccessD] Date Diff Help
Message-ID: <003501c61346$23fd0220$6701a8c0@HPLaptop>

I am trying to do a an age calculation with the following
data source.

 

=DateDiff("yyyy",[DOB],Now())+Int(Format(Now(),"mmdd"))

 

DOB is the employees date of birth.

 

If Dob is 5/11/1940 I am expecting to get 65 back not 172.

 

TIA

 

Joe Hecht

jmhecht at earthlink.net

 



From jim.moss at jlmoss.net  Fri Jan  6 22:57:11 2006
From: jim.moss at jlmoss.net (Jim Moss)
Date: Fri, 6 Jan 2006 22:57:11 -0600 (CST)
Subject: [AccessD] email validation
Message-ID: <44801.65.196.182.34.1136609831.squirrel@65.196.182.34>

Does anyone have a good email validation module that they would be willing
to share?

Thanks,

Jim



From shamil at users.mns.ru  Fri Jan  6 23:13:41 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Sat, 7 Jan 2006 08:13:41 +0300
Subject: [AccessD] Naming conventions
References: <002201c61337$eb0e9bd0$6701a8c0@HPLaptop>
Message-ID: <004201c61349$285a3a60$6501a8c0@fincomplex.spb.ru>

Joe,

I rename all controls.
Several years ago I did write and I did publish add-ins to rename controls -
here they are:

http://www.smsconsulting.spb.ru/download/addins/accdeva97.zip
http://www.smsconsulting.spb.ru/download/addins/accdeva2k.zip
http://www.smsconsulting.spb.ru/download/addins/accdevaxp.zip

There is online help inside.

HTH,
Shamil

----- Original Message ----- 
From: "Joe Hecht" <jmhecht at earthlink.net>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Saturday, January 07, 2006 6:10 AM
Subject: [AccessD] Naming conventions


> Who renames all controls in Access?
>
>
>
> Who just renames controls that you write code against?
>
>
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From jmhecht at earthlink.net  Fri Jan  6 23:20:53 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 6 Jan 2006 21:20:53 -0800
Subject: [AccessD] (no subject)
Message-ID: <004201c6134a$21ad48f0$6701a8c0@HPLaptop>

Trying to work my datediff problem I went to help (l)

 

When did the fate function start in 1980? Or is that another
random feature?


=Date()

Displays the current date in the form of mm-dd-yyyy, where
mm is the month (1 through 12), dd is the day (1 through
31), and yyyy is the year (1980 through 2099).

 

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Fri Jan  6 23:40:47 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 6 Jan 2006 21:40:47 -0800
Subject: [AccessD] Date Diff Help
In-Reply-To: <003501c61346$23fd0220$6701a8c0@HPLaptop>
Message-ID: <004701c6134c$e9ac4020$6701a8c0@HPLaptop>

Moral

Never, Ever use a copied text box. To many damn places the
formatting can kill you.

I got it now.

I think.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Friday, January 06, 2006 8:52 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Date Diff Help

I am trying to do a an age calculation with the following
data source.

 

=DateDiff("yyyy",[DOB],Now())+Int(Format(Now(),"mmdd"))

 

DOB is the employees date of birth.

 

If Dob is 5/11/1940 I am expecting to get 65 back not 172.

 

TIA

 

Joe Hecht

jmhecht at earthlink.net

 

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



From jmhecht at earthlink.net  Fri Jan  6 23:46:05 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 6 Jan 2006 21:46:05 -0800
Subject: [AccessD] Date Diff Help
In-Reply-To: <004701c6134c$e9ac4020$6701a8c0@HPLaptop>
Message-ID: <004801c6134d$a7813470$6701a8c0@HPLaptop>

Almost.

DOB = 5/11/1940

=DateDiff("yyyy", [DOB], Now())+ Int( Format(now(), "mmdd")
returns 66

=DateDiff("yyyy", [DOB], Now

Returns 172

Help Please
Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Friday, January 06, 2006 9:41 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Date Diff Help

Moral

Never, Ever use a copied text box. To many damn places the
formatting can kill you.

I got it now.

I think.

Joe Hecht
jmhecht at earthlink.net



From bhjohnson at verizon.net  Sat Jan  7 00:15:26 2006
From: bhjohnson at verizon.net (Bruce H. Johnson)
Date: Fri, 06 Jan 2006 22:15:26 -0800
Subject: [AccessD] email validation
In-Reply-To: <44801.65.196.182.34.1136609831.squirrel@65.196.182.34>
Message-ID: <000901c61351$c0d5beb0$6500a8c0@HALSR>

I found this somewhere:

Public Function EMail_Validate_EMailAddr(varEM As Variant) As Boolean
Dim strTmp As String, n As Long, Emsg As String

If SAFEOUTLOOK_RUNTIME Then On Error GoTo EMail_Validate_EMailAddr_Err
EMail_Validate_EMailAddr = False 'default
Emsg = vbNullString
If VarType(varEM) = vbNull Then GoTo EMail_Validate_EMailAddr_Exit
'***************************************************************************
*****
'Validates an email address and returns either True if OK or False if
failed.
'If failed, call the public variable Emsg to see a description of the error
generated
'***************************************************************************
*****

EMail_Validate_EMailAddr = False 'Assume bad on init
n = VarType(varEM)
If n = vbNull Or n <> vbString Then
   Emsg = Emsg & MsgText(6142)
ElseIf InStr(1, varEM, "@") = 0 Then
   Emsg = Emsg & MsgText(6152)
ElseIf InStr(1, varEM, "@") = 1 Then
   Emsg = Emsg & MsgText(6230)
ElseIf InStr(1, varEM, "@") = Len(varEM) Then
   Emsg = Emsg & MsgText(6240)
ElseIf Right(varEM, 4) <> ".com" And Right(varEM, 4) <> ".net" And _
  Right(varEM, 4) <> ".gov" And Right(varEM, 4) <> ".org" And _
  Right(varEM, 3) <> ".us" And Right(varEM, 3) <> ".tv" And _
  Right(varEM, 4) <> ".biz" And Right(varEM, 4) <> ".edu" Then
   Emsg = Emsg & MsgText(6250)
   Emsg = Emsg & vbCrLf & MsgText(6260)
   Emsg = Emsg & vbCrLf & MsgText(6270)
ElseIf Len(varEM) < 6 Then
   Emsg = Emsg & MsgText(6280)
End If
strTmp = varEM
Do While InStr(1, strTmp, "@") <> 0
   n = 1
   strTmp = Right(strTmp, Len(strTmp) - InStr(1, strTmp, "@"))
Loop
If n > 1 Then 'found more than one @ sign
   Emsg = Emsg & ""
End If
If Len(Emsg) Then
    MsgBox Emsg, vbOKOnly Or vbExclamation, MsgText(6290)
    EMail_Validate_EMailAddr = False
Else
    EMail_Validate_EMailAddr = True
End If
GoTo EMail_Validate_EMailAddr_Exit

EMail_Validate_EMailAddr_Err:
MsgBox Err.Description, vbOKOnly Or vbExclamation,
"EMail_Validate_EMailAddr"
EMail_Validate_EMailAddr = False

EMail_Validate_EMailAddr_Exit:
End Function
 


Bruce H. Johnson
Sylmar, CA
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Moss
Sent: Friday, January 06, 2006 8:57 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] email validation

Does anyone have a good email validation module that they would be willing
to share?

Thanks,

Jim

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




From stuart at lexacorp.com.pg  Sat Jan  7 00:31:07 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Sat, 07 Jan 2006 16:31:07 +1000
Subject: [AccessD] (no subject)
In-Reply-To: <004201c6134a$21ad48f0$6701a8c0@HPLaptop>
Message-ID: <43BFECCB.12771.1A4F6F7@stuart.lexacorp.com.pg>

On 6 Jan 2006 at 21:20, Joe Hecht wrote:
> 
> When did the fate function start in 1980? Or is that another
> random feature?
> 

With GWBasic in MSDOS1.0



-- 
Stuart




From martyconnelly at shaw.ca  Sat Jan  7 00:35:25 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 06 Jan 2006 22:35:25 -0800
Subject: [AccessD] email validation
References: <44801.65.196.182.34.1136609831.squirrel@65.196.182.34>
Message-ID: <43BF612D.9010106@shaw.ca>

There is quite a range of vaild email addresses including the old X400 types
Mastering Regular Expressions.  Is the best Owl book for regexp

 The book ends with an example regular expression to match
an email address.  Its a 16,000+ byte regular expression.  Just shows
the scope of such a match when you want to get an email address "from
the wild".
This should verify or catch about 90-95% using regexp

 Function testEmail(strEmail As String) As Boolean

 If IsEmail(strEmail) Then
 ' email address ok
  Debug.Print "OK"
  testEmail = True
 Else
 ' email address not ok
  Debug.Print "False"

 End If
 End Function
 Function IsEmail(strText as String)
 'Need to Set reference to Microsoft VBScript Regular Expressions 5.5 
vbscript.dll/3
'or set for 5.6
 Dim regEx as Object
 Set regEx = New RegExp
 regEx.Pattern = "^[\w\-\._]+@[\w\-]{2,}(\.[\w\-]{2,})+$"
 'or               "^([\w-_]+\.)*[\w-_]+\@ ([\w-_]+\.)+[a-zA-Z]{2,3}$"
 regEx.ignoreCase = True
 regEx.Global = True
 IsEmail = regEx.Test(strText)
 End Function



Jim Moss wrote:

>Does anyone have a good email validation module that they would be willing
>to share?
>
>Thanks,
>
>Jim
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From stuart at lexacorp.com.pg  Sat Jan  7 00:39:24 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Sat, 07 Jan 2006 16:39:24 +1000
Subject: [AccessD] Date Diff Help
In-Reply-To: <004801c6134d$a7813470$6701a8c0@HPLaptop>
References: <004701c6134c$e9ac4020$6701a8c0@HPLaptop>
Message-ID: <43BFEEBC.5566.1AC8C50@stuart.lexacorp.com.pg>

On 6 Jan 2006 at 21:46, Joe Hecht wrote:

> Almost.
> 
> DOB = 5/11/1940
> 
> =DateDiff("yyyy", [DOB], Now())+ Int( Format(now(), "mmdd")
> returns 66
> 
> =DateDiff("yyyy", [DOB], Now
> 
> Returns 172
> 

Int(Format(Now(),"mmdd")  will return the number 107 at the moment (7 Jan),
or106 (6 Jan)  for you.  It would have returned the number 1231 at the end 
of last month (31 Dec). Are you sure that's what you want?




-- 
Stuart




From Gustav at cactus.dk  Sat Jan  7 05:54:07 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 07 Jan 2006 12:54:07 +0100
Subject: [AccessD] Can't write to an Excel spreadsheet
Message-ID: <s3bfba0c.083@cactus.dk>

Hi all

Please note this date. JC in modest mode!

However, JC and other class freaks, did you notice last month's public article in Smart Access on accessing Excel via a class?

<quote>

In this article, Garry Robinson shows you how to use a class to manipulate Microsoft Excel. His class provides a software layer that hides the complexity of dealing with Excel through VBA. You'll see how to use Garry's class to push single pieces of data into Excel, how to transfer data from queries into Excel, and how to let users navigate between results using bookmarks. 

</quote>

The article requires subscription now but the download with code etc. is still there:

http://www.pinpub.com/Media/PublicationsArticle/512robinson_SA05l.zip 

'fxCm-->  FXc8_Excel ... Class library for Automating Microsoft Excel
'fxCm
'fxCm     The calls to the class module defined below rely on the
'fxCm     following declaration in the software that you are using
'fxCm
'fxCm     Public Excel_FX As New FXc8_Excel
'fxCm
'fxCm     So when the class module is called, the notes specify Excel_FX rather than
'fxCm     FXc8_Excel
'fxCm
'fxCm     Requires a reference to the following non standard libraries
'fxCm
'fxCm     Microsoft Excel 8 (97) or 9 (2000) Object library
'fxCm
'fxCm     Originally developed by GR-FX Pty Limited in Australia.
'fxCm     Can be modified and used by customers who purchase the rights to the software
'fxCm
'fxCm     Additional Methods and Properties
'fxCm
'fxCm     Search for the following commented lines and remove the comments to add the
'fxCm     additional methods to the class module.
'fxCm
'fxCm     'Cube - Methods that allow you to change Excel 2000 cube objects
'fxCm     'AccSQL - Method to load Access SQL into Excel
'fxCm
'fxCm     Jul 99         GR - Original
'fxCm     Oct 1999  GR - Modified for FX Classes library
'fxCm     Nov 1999     GR - Excel chart rows output issues
'fxCm     Nov 1999     GR - Different error handling sequence for opening Excel Templates
'fxCm     Dec 1999    GR - Added transpose as an option
'fxCm     Jan 2000    GR - Refining worksheet swaping methods
'fxCm     Jan 2000       GR - Added DAO. to necessary objects to avoid confusion with ADO objects.
'fxCm     Feb 2000    GR - Change OpenExcel to accomodate optional sheetnames
'fxCm                    GR   and SQLData bug
'fxCm     June 2000   GR - Add open Excel spreadsheet
'fxCm      "    "   "         Modified delete rows method for greater speed
'fxCm     Sep 2000    GR - Added GetCellValue
'fxCm     Oct 2000    GR - Upgraded GetCellValue for errors in Excel cells
'fxCm     Nov 2000    GR - Added moveToReference method
'fxCm     Nov 2000    GR - Added Printout method
'fxCm     Nov 2000    GR - Mods to closedown method
'fxCm     Nov 2000    GR - Added print preview
'fxCm     Dec 2000    GR - Added CopyAccessQuery, RenameWorksheet, AddWorksheet
'fxCm                      and TextBookmarks methods
'fxCm     Mar 2002    GR - Added CopyData to use faster CopyFromRecordset method
'fxCm     Mar 2002    GR - Added InsertRows
'fxCm     Mar 2002    GR - Added AddChart method
'fxCm     Mar 2002    GR - Added DeleteWorksheet method

/gustav


>>> jwcolby at ColbyConsulting.com 06-01-2006 20:20 >>>
Yea, I already have automation figured out (I think).

John W. Colby
www.ColbyConsulting.com 




From Gustav at cactus.dk  Sat Jan  7 06:27:59 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 07 Jan 2006 13:27:59 +0100
Subject: [AccessD] Date Diff Help
Message-ID: <s3bfc1f0.084@cactus.dk>

Hi Joe

This requires a little more than a line of code.
Study here for a reliable solution:

  http://databaseadvisors.com/mailman/htdig/accessd/2003-August/011575.html 

/gustav

>>> jmhecht at earthlink.net 07-01-2006 05:52 >>>
I am trying to do a an age calculation with the following data source.

=DateDiff("yyyy",[DOB],Now())+Int(Format(Now(),"mmdd"))




From Gustav at cactus.dk  Sat Jan  7 07:38:11 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 07 Jan 2006 14:38:11 +0100
Subject: [AccessD] email validation
Message-ID: <s3bfd25e.086@cactus.dk>

Hi Jim

Here's another pattern:

^(?:[\w\!\#\$\%\&'\*\+\-\/\=\?\^\`\{\|\}\~]+\.)*[\w\!\#\$\%\&'\*\+\-\/\=\?
\^\`\{\|\}\~]+@(?:(?:(?:[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!\.)){0,61}[a-zA-Z0-9]? 
\.)+[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!$)){0,61}[a-zA-Z0-9]?)|(?:\[(?:(?:[01]?\d{
1,2}|2[0-4]\d|25[0-5])\.){3}(?:[01]?\d{1,2}|2[0-4]\d|25[0-5])\]))$

which claims to have a proven record (browse to 2004-04-28, 7:48 pm):

http://www.codecomments.com/archive299-2004-4-184908.html 

However, it fails for me - and I don't have the need to debug it.

Note that addresses may have a subdomain like:

  submit.ry8JtxnVhqqmpAFS at spam.spamcop.net

/gustav


>>> martyconnelly at shaw.ca 07-01-2006 07:35 >>>
There is quite a range of vaild email addresses including the old X400 types
Mastering Regular Expressions.  Is the best Owl book for regexp

 The book ends with an example regular expression to match
an email address.  Its a 16,000+ byte regular expression.  Just shows
the scope of such a match when you want to get an email address "from
the wild".
This should verify or catch about 90-95% using regexp

 Function testEmail(strEmail As String) As Boolean

 If IsEmail(strEmail) Then
 ' email address ok
  Debug.Print "OK"
  testEmail = True
 Else
 ' email address not ok
  Debug.Print "False"

 End If
 End Function
 Function IsEmail(strText as String)
 'Need to Set reference to Microsoft VBScript Regular Expressions 5.5 
vbscript.dll/3
'or set for 5.6
 Dim regEx as Object
 Set regEx = New RegExp
 regEx.Pattern = "^[\w\-\._]+@[\w\-]{2,}(\.[\w\-]{2,})+$"
 'or               "^([\w-_]+\.)*[\w-_]+\@ ([\w-_]+\.)+[a-zA-Z]{2,3}$"
 regEx.ignoreCase = True
 regEx.Global = True
 IsEmail = regEx.Test(strText)
 End Function



Jim Moss wrote:

>Does anyone have a good email validation module that they would be willing to share?




From tinanfields at torchlake.com  Sat Jan  7 08:25:05 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Sat, 07 Jan 2006 09:25:05 -0500
Subject: [AccessD] OT: We're Expecting!
References: <001501c611ee$137e97f0$647aa8c0@ColbyM6805>
Message-ID: <43BFCF41.70809@torchlake.com>

No matter when you start, it is an amazing journey!  My first-born came 
right after my 21st birthday, and my fourth-born (and last) came shortly 
after my 29th.  First grandchild arrived when I was 46.  I started out 
trying to be the perfect parent, but, eventually I learned perfection is 
not the point - love is.  Congratulations, Ron - just be a loving father 
and you'll be great!
Tina

John Colby wrote:

>Congrats!  I became a foster dad at 48 and adopted my two at 51 so I know
>the feeling of worry that goes along with doing it at this age, but (if I
>live through it of course) it is all worthwhile.  
>
>Again, congrats and may God be with you as you begin this long journey.
>
>John W. Colby
>www.ColbyConsulting.com 
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Ron Allen
>Sent: Thursday, January 05, 2006 12:22 AM
>To: accessd at databaseadvisors.com
>Subject: [AccessD] OT: We're Expecting!
>
>I know I'm an infrequent contributor here that usually asks for more help
>than I end up giving, but I wanted to share this with you all :)
>
>My wife and I found out on New Year's Eve that we're going to have a baby.
>This was confirmed by the doctor this morning. It's the first for both of
>us.
>
>I'm a little old to be a first time daddy, and the prospect worries me in
>all sorts of ways -- but at the same time I've never been happier
>:)
>
>Ron
>
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>  
>




From jmhecht at earthlink.net  Sat Jan  7 08:51:25 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sat, 7 Jan 2006 06:51:25 -0800
Subject: [AccessD] Date Diff Help
In-Reply-To: <43BFEEBC.5566.1AC8C50@stuart.lexacorp.com.pg>
Message-ID: <000a01c61399$d59d07c0$6701a8c0@HPLaptop>

No.

65 is current correct & desired answer for this employee.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Stuart McLachlan
 

Int(Format(Now(),"mmdd")  will return the number 107 at the
moment (7 Jan),
or106 (6 Jan)  for you.  It would have returned the number
1231 at the end 
of last month (31 Dec). Are you sure that's what you want?




-- 
Stuart


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



From jwcolby at ColbyConsulting.com  Sat Jan  7 10:01:05 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sat, 7 Jan 2006 11:01:05 -0500
Subject: [AccessD] (no subject)
In-Reply-To: <43BFECCB.12771.1A4F6F7@stuart.lexacorp.com.pg>
Message-ID: <002701c613a3$9255eea0$647aa8c0@ColbyM6805>

>> When did the fate function start in 1980?

The fate function started in the Garden of Eden.

;-)

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: Saturday, January 07, 2006 1:31 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] (no subject)

On 6 Jan 2006 at 21:20, Joe Hecht wrote:
> 
> When did the fate function start in 1980? Or is that another random 
> feature?
> 

With GWBasic in MSDOS1.0



--
Stuart


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



From tinanfields at torchlake.com  Sat Jan  7 11:28:59 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Sat, 07 Jan 2006 12:28:59 -0500
Subject: [AccessD] Hiding the Access Window WAS: access xp runtime
References: <20051224140729.XGTJ9476.ibm62aec.bellsouth.net@SUSANONE>
Message-ID: <43BFFA5B.9080501@torchlake.com>

Puts me in mind of the quote attributed to Albert Einstein when asked by 
a young news reporter, "well, then, Dr. Einstein, what is the square 
root of 2?"  Einstein is said to have replied, "I have no idea - I know 
where to look that up - why should I keep it in my head?"  If that's 
okay for Dr. Einstein, it's certainly okay for me.
Tina


Susan Harkins wrote:

>Joe, I have to look up everything. Why do you think I write articles? So,
>I'll have instructions that I understand!!!!!!!!! ;) 
>
>Seriously, knowing how to do something and knowing where to find the right
>syntax, arguments, etc. is the key -- not being able to pluck it all out of
>you're a... I mean your head. :) If I tried to keep all that in my head, it
>would've exploded long ago. :) 
>
>Susan H. 
>
>Because, when I am working on my current project I have to look up how to
>change the back color in my text boxes when they get focus. Used to be
>standard did that automatically.
>You guys are playing with form shapes and mouse cursers and stuff.
>
>Just developer envy. So what if you and Susan have been published. 
>
>I still do not understand how to write code and reuse it.
>
>Just Envy. No mean intended.
>
>
>  
>




From martyconnelly at shaw.ca  Sat Jan  7 12:24:58 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Sat, 07 Jan 2006 10:24:58 -0800
Subject: [AccessD] (no subject)
References: <002701c613a3$9255eea0$647aa8c0@ColbyM6805>
Message-ID: <43C0077A.2030801@shaw.ca>

I have a Karma function that randomly reboots.

John Colby wrote:

>>>When did the fate function start in 1980?
>>>      
>>>
>
>The fate function started in the Garden of Eden.
>
>;-)
>
>John W. Colby
>www.ColbyConsulting.com 
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
>Sent: Saturday, January 07, 2006 1:31 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] (no subject)
>
>On 6 Jan 2006 at 21:20, Joe Hecht wrote:
>  
>
>>When did the fate function start in 1980? Or is that another random 
>>feature?
>>
>>    
>>
>
>With GWBasic in MSDOS1.0
>
>
>
>--
>Stuart
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From jmhecht at earthlink.net  Sat Jan  7 21:41:53 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sat, 7 Jan 2006 19:41:53 -0800
Subject: [AccessD] Query as Report Record source question
Message-ID: <000101c61405$77a609c0$6701a8c0@HPLaptop>

I have a huge query that is record source to a main report
in my project. It could potentially be the source for other
smaller reports.

 

Is it better to use the one query many times or build
specific queries for each report?

 

Thanks.

 

Anyone else working on a Sat night?

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Sat Jan  7 21:49:41 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sat, 7 Jan 2006 19:49:41 -0800
Subject: [AccessD] Query as Report Record source question Answered
In-Reply-To: <000101c61405$77a609c0$6701a8c0@HPLaptop>
Message-ID: <000601c61406$8ec67d50$6701a8c0@HPLaptop>

Just answered my own question.

There is a parameter in the big report query.

This report just won its own query.


Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Saturday, January 07, 2006 7:42 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Query as Report Record source question

I have a huge query that is record source to a main report
in my project. It could potentially be the source for other
smaller reports.

 

Is it better to use the one query many times or build
specific queries for each report?

 

Thanks.

 

Anyone else working on a Sat night?

 

Joe Hecht

jmhecht at earthlink.net

 

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



From darrend at nimble.com.au  Sun Jan  8 04:33:28 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Sun, 8 Jan 2006 21:33:28 +1100
Subject: [AccessD] A2003: SQL to Access Q`
Message-ID: <20060108103333.ZTHD14751.omta05ps.mx.bigpond.com@DENZILLAP>

Hi all
Cross posted to dba-SQL
 
I have just discovered a significant (and disturbing for me) difference in SQL
and Access that
I never thought about - I'll explain the problem hoping that someone can explain
any work around options I have
 
In SQL I use the following SQL to return 31159 Records - That's the expected
number by the way
 
SELECT I.InvoiceNo, ARP.PointsAmount as Pending
FROM Invoice as I
LEFT JOIN AccountRewardPoints  ARP
ON ARP.InvoiceNo = I.InvoiceNo
AND ARP.PointsStatusCode = 'PP'
Order By I.InvoiceNo
 
In Access if I use that SQL It errors on the Join - IE I can't create joins on
what is 
kind of a Criteria - in this case PP on the PointStatusCode field
 
I am learning the reason
 
When I paste the same SQL into the SQL query designer in enterprise manager (The
one that looks like Access's Query Designer)
- You get there by...
Right clicking ANY SQL table in Enterprise Manager
Select OPEN TABLE
Select QUERY
 
When I do this I see an unusual join line/link that goes not from a field to a
field as you expect in Access
but from the Table name to Table name with a small F and a small X next to each
other to signify the join type
 
I appreciate this means show me all and I mean ALL records (In my case) from
Invoice table IE 31159 of 'em
And it actually creates a Join on the PP Criteria - I think
 
That's all well and good - but how do I get something like that happening in
Access?
 
<big sigh>
 
Darren
 
 


From djkr at msn.com  Sun Jan  8 05:49:58 2006
From: djkr at msn.com (DJK(John) Robinson)
Date: Sun, 8 Jan 2006 11:49:58 -0000
Subject: [AccessD] A2003: SQL to Access Q`
In-Reply-To: <20060108103333.ZTHD14751.omta05ps.mx.bigpond.com@DENZILLAP>
Message-ID: <BAY106-DAV17CC9C62F6409503F8FB44D2230@phx.gbl>

Darren

I haven't got SQLS instantly handy (in process of reconfiguration), so I
can't easily check what results you're expecting from it.  Nor am I sure
about your table design.

However, I do understand Access's doubt about ambiguity - I think - as to
when/how to apply the criterion which is not strictly part of the join.  In
Access, does this give the answer you are looking for?

SELECT I.InvoiceNo, ARP.PointsAmount as Pending
FROM Invoice as I
LEFT JOIN 
(select * from AccountRewardPoints where ARP.PointsStatusCode = "PP" ) as
ARP
ON ARP.InvoiceNo = I.InvoiceNo
Order By I.InvoiceNo

John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: 08 January 2006 10:33
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] A2003: SQL to Access Q`


Hi all
Cross posted to dba-SQL
 
I have just discovered a significant (and disturbing for me) difference in
SQL and Access that I never thought about - I'll explain the problem hoping
that someone can explain any work around options I have
 
In SQL I use the following SQL to return 31159 Records - That's the expected
number by the way
 
SELECT I.InvoiceNo, ARP.PointsAmount as Pending
FROM Invoice as I
LEFT JOIN AccountRewardPoints  ARP
ON ARP.InvoiceNo = I.InvoiceNo
AND ARP.PointsStatusCode = 'PP'
Order By I.InvoiceNo
 
In Access if I use that SQL It errors on the Join - IE I can't create joins
on what is 
kind of a Criteria - in this case PP on the PointStatusCode field
 
I am learning the reason
 
When I paste the same SQL into the SQL query designer in enterprise manager
(The one that looks like Access's Query Designer)
- You get there by...
Right clicking ANY SQL table in Enterprise Manager
Select OPEN TABLE
Select QUERY
 
When I do this I see an unusual join line/link that goes not from a field to
a field as you expect in Access but from the Table name to Table name with a
small F and a small X next to each other to signify the join type
 
I appreciate this means show me all and I mean ALL records (In my case) from
Invoice table IE 31159 of 'em And it actually creates a Join on the PP
Criteria - I think
 
That's all well and good - but how do I get something like that happening in
Access?
 
<big sigh>
 
Darren
 
 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From darrend at nimble.com.au  Sun Jan  8 06:34:54 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Sun, 8 Jan 2006 23:34:54 +1100
Subject: [AccessD] A2003: SQL to Access Q`
In-Reply-To: <BAY106-DAV17CC9C62F6409503F8FB44D2230@phx.gbl>
Message-ID: <20060108123504.BFUY14751.omta05ps.mx.bigpond.com@DENZILLAP>

John
Brilliant - Absolutely brilliant
I had no idea a select statement could be buried inside the SQL like that

Yes...

SELECT I.InvoiceNo, ARP.PointsAmount AS Pending
FROM Invoice AS I LEFT JOIN [select * from AccountRewardPoints as ARP where
ARP.PointsStatusCode = 'PP' ]. AS ARP ON I.InvoiceNo = ARP.InvoiceNo
GROUP BY I.InvoiceNo, ARP.PointsAmount
ORDER BY I.InvoiceNo;

Works in Access and returns 31159 records as expected

Thank you

Darren

 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DJK(John) Robinson
Sent: Sunday, 8 January 2006 10:50 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] A2003: SQL to Access Q`

Darren

I haven't got SQLS instantly handy (in process of reconfiguration), so I can't
easily check what results you're expecting from it.  Nor am I sure about your
table design.

However, I do understand Access's doubt about ambiguity - I think - as to
when/how to apply the criterion which is not strictly part of the join.  In
Access, does this give the answer you are looking for?

SELECT I.InvoiceNo, ARP.PointsAmount as Pending FROM Invoice as I LEFT JOIN
(select * from AccountRewardPoints where ARP.PointsStatusCode = "PP" ) as ARP ON
ARP.InvoiceNo = I.InvoiceNo Order By I.InvoiceNo

John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: 08 January 2006 10:33
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] A2003: SQL to Access Q`


Hi all
Cross posted to dba-SQL
 
I have just discovered a significant (and disturbing for me) difference in SQL
and Access that I never thought about - I'll explain the problem hoping that
someone can explain any work around options I have
 
In SQL I use the following SQL to return 31159 Records - That's the expected
number by the way
 
SELECT I.InvoiceNo, ARP.PointsAmount as Pending FROM Invoice as I LEFT JOIN
AccountRewardPoints  ARP ON ARP.InvoiceNo = I.InvoiceNo AND ARP.PointsStatusCode
= 'PP'
Order By I.InvoiceNo
 
In Access if I use that SQL It errors on the Join - IE I can't create joins on
what is kind of a Criteria - in this case PP on the PointStatusCode field
 
I am learning the reason
 
When I paste the same SQL into the SQL query designer in enterprise manager (The
one that looks like Access's Query Designer)
- You get there by...
Right clicking ANY SQL table in Enterprise Manager Select OPEN TABLE Select
QUERY
 
When I do this I see an unusual join line/link that goes not from a field to a
field as you expect in Access but from the Table name to Table name with a small
F and a small X next to each other to signify the join type
 
I appreciate this means show me all and I mean ALL records (In my case) from
Invoice table IE 31159 of 'em And it actually creates a Join on the PP Criteria
- I think
 
That's all well and good - but how do I get something like that happening in
Access?
 
<big sigh>
 
Darren
 
 
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jwcolby at ColbyConsulting.com  Sun Jan  8 10:24:14 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sun, 8 Jan 2006 11:24:14 -0500
Subject: [AccessD] Sensing email items in an outlook folder
Message-ID: <001f01c6146f$f79acac0$8ad60e05@ColbyM6805>

The following code was working in an Access project for sensing messages in
a folder and processing the email.  I am trying to build a little
application for preparing my spam to be sent off to BlueFrog for reporting.
The code is not working from directly inside of Outlook.  The code gets
here, but the Items collection never contains anything, even when there is
email in the folder.  Any ideas?

Function CheckForSpamMail(fldrSpamIncoming As Outlook.MAPIFolder) As Boolean
On Error GoTo Err_CheckForSpamMail
Dim msg As Outlook.MailItem
    Debug.Print fldrSpamIncoming.Name
    For Each msg In fldrSpamIncoming.Items
        Debug.Print "CheckForSpamMail - Processing message #" & intMsgCnt; "
of " & fldrSpamIncoming.Items.Count
        ProcessSpamMail fldrSpamIncoming, msg
    Next msg
'    intMsgCntOrig = fldrSpamIncoming.Items.Count
'    For intMsgCnt = 1 To intMsgCntOrig
'        Set msg = fldrSpamIncoming.Items(1)
'        Debug.Print "CheckForSpamMail - Processing message #" & intMsgCnt;
" of " & fldrSpamIncoming.Items.Count
'        ProcessSpamMail fldrSpamIncoming, msg
'    Next intMsgCnt
    
Exit_CheckForSpamMail:
On Error Resume Next
    Set msg = Nothing
Exit Function
Err_CheckForSpamMail:
    Select Case Err
    Case 0      '.insert Errors you wish to ignore here
        Resume Next
    Case -2147352567 'No messages
        Resume Exit_CheckForSpamMail
    Case Else   '.All other errors will trap
        Beep
        MsgBox Err.Number & ":" & Err.Description, , "Error in Function
dclsOutlook.CheckForSpamMail"
        Resume Exit_CheckForSpamMail
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function

John W. Colby
www.ColbyConsulting.com 




From martyconnelly at shaw.ca  Sun Jan  8 15:12:35 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Sun, 08 Jan 2006 13:12:35 -0800
Subject: [AccessD] email validation
References: <s3bfd25e.086@cactus.dk>
Message-ID: <43C18043.50203@shaw.ca>

Here is some vb code to validate email addresses subject to a free daily 
limit or paid for
via smtp mail server authentication at www.internetfrog.com

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=1&txtCodeId=63971

Gustav Brock wrote:

>Hi Jim
>
>Here's another pattern:
>
>^(?:[\w\!\#\$\%\&'\*\+\-\/\=\?\^\`\{\|\}\~]+\.)*[\w\!\#\$\%\&'\*\+\-\/\=\?
>\^\`\{\|\}\~]+@(?:(?:(?:[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!\.)){0,61}[a-zA-Z0-9]? 
>\.)+[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!$)){0,61}[a-zA-Z0-9]?)|(?:\[(?:(?:[01]?\d{
>1,2}|2[0-4]\d|25[0-5])\.){3}(?:[01]?\d{1,2}|2[0-4]\d|25[0-5])\]))$
>
>which claims to have a proven record (browse to 2004-04-28, 7:48 pm):
>
>http://www.codecomments.com/archive299-2004-4-184908.html 
>
>However, it fails for me - and I don't have the need to debug it.
>
>Note that addresses may have a subdomain like:
>
>  submit.ry8JtxnVhqqmpAFS at spam.spamcop.net
>
>/gustav
>
>
>  
>
>>>>martyconnelly at shaw.ca 07-01-2006 07:35 >>>
>>>>        
>>>>
>There is quite a range of vaild email addresses including the old X400 types
>Mastering Regular Expressions.  Is the best Owl book for regexp
>
> The book ends with an example regular expression to match
>an email address.  Its a 16,000+ byte regular expression.  Just shows
>the scope of such a match when you want to get an email address "from
>the wild".
>This should verify or catch about 90-95% using regexp
>
> Function testEmail(strEmail As String) As Boolean
>
> If IsEmail(strEmail) Then
> ' email address ok
>  Debug.Print "OK"
>  testEmail = True
> Else
> ' email address not ok
>  Debug.Print "False"
>
> End If
> End Function
> Function IsEmail(strText as String)
> 'Need to Set reference to Microsoft VBScript Regular Expressions 5.5 
>vbscript.dll/3
>'or set for 5.6
> Dim regEx as Object
> Set regEx = New RegExp
> regEx.Pattern = "^[\w\-\._]+@[\w\-]{2,}(\.[\w\-]{2,})+$"
> 'or               "^([\w-_]+\.)*[\w-_]+\@ ([\w-_]+\.)+[a-zA-Z]{2,3}$"
> regEx.ignoreCase = True
> regEx.Global = True
> IsEmail = regEx.Test(strText)
> End Function
>
>
>
>Jim Moss wrote:
>
>  
>
>>Does anyone have a good email validation module that they would be willing to share?
>>    
>>
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From stuart at lexacorp.com.pg  Sun Jan  8 16:52:11 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Mon, 09 Jan 2006 08:52:11 +1000
Subject: [AccessD] email validation
In-Reply-To: <43C18043.50203@shaw.ca>
Message-ID: <43C2243B.4545.286A225@stuart.lexacorp.com.pg>

Are we talking about code to determine whether the format of a particular 
string is valid as an email address or whether  a particular email address 
resolves to a real mailbox?

On 8 Jan 2006 at 13:12, MartyConnelly wrote:

> Here is some vb code to validate email addresses subject to a free daily
> limit or paid for via smtp mail server authentication at
> www.internetfrog.com
> 
...
> 
> Gustav Brock wrote:
...
> >^(?:[\w\!\#\$\%\&'\*\+\-\/\=\?\^\`\{\|\}\~]+\.)*[\w\!\#\$\%\&'\*\+\-\/\=\?
> >\^\`\{\|\}\~]+@(?:(?:(?:[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!\.)){0,61}[a-zA-Z0-9]
> >?
> >\.)+[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!$)){0,61}[a-zA-Z0-9]?)|(?:\[(?:(?:[01]?\d
> >{ 1,2}|2[0-4]\d|25[0-5])\.){3}(?:[01]?\d{1,2}|2[0-4]\d|25[0-5])\]))$
> >
> >which claims to have a proven record (browse to 2004-04-28, 7:48 pm):
> >
...
> >>>>martyconnelly at shaw.ca 07-01-2006 07:35 >>>
> >>>>
> >There is quite a range of vaild email addresses including the old X400
> >types Mastering Regular Expressions.  Is the best Owl book for regexp
> >
> > The book ends with an example regular expression to match
> >an email address. 
....
> >Jim Moss wrote:
> >
> >>Does anyone have a good email validation module that they would be willing
> >>to share?
> >>    
-- 
Stuart




From artful at rogers.com  Sun Jan  8 17:12:23 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sun, 8 Jan 2006 18:12:23 -0500
Subject: [AccessD] email validation
In-Reply-To: <43C18043.50203@shaw.ca>
Message-ID: <019501c614a8$fbfb4ed0$8e01a8c0@rock>

In terms of validation, that looks more interesting as actual validation...
or perhaps Authentication ought to be the word. To use the terms from Logic
101, various algorithms can prove that any given address is Valid, but
without a Send and either a Receiver or a Bounce then you have no way to
determine if the address is Sound.
I have fought this battle in a couple of web apps and came away with
Validation not Soundness -- less than perfect, to be sure. What I wanted in
those contexts was an event that would immediately attempt to send a message
to the specified address, and holler at the user if it failed, placing the
cursor back in the email field (in case of simple mis-spelling). I never did
come to a correct method of doing this.
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: January 8, 2006 4:13 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] email validation
Here is some vb code to validate email addresses subject to a free daily 
limit or paid for via smtp mail server authentication at
www.internetfrog.com
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=1&txtCodeId
=63971



From stuart at lexacorp.com.pg  Sun Jan  8 17:25:10 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Mon, 09 Jan 2006 09:25:10 +1000
Subject: [AccessD] email validation
In-Reply-To: <019501c614a8$fbfb4ed0$8e01a8c0@rock>
References: <43C18043.50203@shaw.ca>
Message-ID: <43C22BF6.31402.2A4D588@stuart.lexacorp.com.pg>

On 8 Jan 2006 at 18:12, Arthur Fuller wrote:

> to be sure. What I wanted in those contexts was an event that would
> immediately attempt to send a message to the specified address, and holler
> at the user if it failed, placing the cursor back in the email field (in
> case of simple mis-spelling). I never did come to a correct method of doing
> this. 
> 

A few reasons off the top of my head why this will never work reliably, 
there are probably a number of other reasons as well.

1. Emails are not instant messaging.  A recipient mail server may be 
temporarily unavailable for any number of reasons. Many outbound servers  
retry for up to four days to complete delivery.

2. Many servers accept (or at least appear to accept) all messages for a 
domain whether the individual mailbox address is valid or not.

3. Challenge/response systems :-(

-- 
Stuart




From artful at rogers.com  Sun Jan  8 17:28:18 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sun, 8 Jan 2006 18:28:18 -0500
Subject: [AccessD] email validation
In-Reply-To: <43C2243B.4545.286A225@stuart.lexacorp.com.pg>
Message-ID: <019b01c614ab$350e98b0$8e01a8c0@rock>

Hah! See my reply to the previous message. Exactly my concern on this issue.
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: January 8, 2006 5:52 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] email validation

Are we talking about code to determine whether the format of a particular 
string is valid as an email address or whether  a particular email address 
resolves to a real mailbox?

On 8 Jan 2006 at 13:12, MartyConnelly wrote:

> Here is some vb code to validate email addresses subject to a free daily
> limit or paid for via smtp mail server authentication at
> www.internetfrog.com
> 
...
> 
> Gustav Brock wrote:
...
>
>^(?:[\w\!\#\$\%\&'\*\+\-\/\=\?\^\`\{\|\}\~]+\.)*[\w\!\#\$\%\&'\*\+\-\/\=\?
>
>\^\`\{\|\}\~]+@(?:(?:(?:[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!\.)){0,61}[a-zA-Z0-9]
> >?
>
>\.)+[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!$)){0,61}[a-zA-Z0-9]?)|(?:\[(?:(?:[01]?\d
> >{ 1,2}|2[0-4]\d|25[0-5])\.){3}(?:[01]?\d{1,2}|2[0-4]\d|25[0-5])\]))$
> >
> >which claims to have a proven record (browse to 2004-04-28, 7:48 pm):
> >
...
> >>>>martyconnelly at shaw.ca 07-01-2006 07:35 >>>
> >>>>
> >There is quite a range of vaild email addresses including the old X400
> >types Mastering Regular Expressions.  Is the best Owl book for regexp
> >
> > The book ends with an example regular expression to match
> >an email address. 
....
> >Jim Moss wrote:
> >
> >>Does anyone have a good email validation module that they would be
willing
> >>to share?
> >>    
-- 
Stuart


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



From DWUTKA at marlow.com  Sun Jan  8 17:28:43 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Sun, 8 Jan 2006 17:28:43 -0600 
Subject: [AccessD] email validation
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD4F5@main2.marlow.com>

Technically, you could use TCP/IP to create an SMTP session to verify an
email address.  The SMTP protocol does verify whether an email is valid on
it's domain.

Drew

	-----Original Message-----
	From:	Stuart McLachlan [SMTP:stuart at lexacorp.com.pg]
	Sent:	Sunday, January 08, 2006 5:25 PM
	To:	Access Developers discussion and problem solving
	Subject:	Re: [AccessD] email validation

	On 8 Jan 2006 at 18:12, Arthur Fuller wrote:

	> to be sure. What I wanted in those contexts was an event that
would
	> immediately attempt to send a message to the specified address,
and holler
	> at the user if it failed, placing the cursor back in the email
field (in
	> case of simple mis-spelling). I never did come to a correct method
of doing
	> this. 
	> 

	A few reasons off the top of my head why this will never work
reliably, 
	there are probably a number of other reasons as well.

	1. Emails are not instant messaging.  A recipient mail server may be

	temporarily unavailable for any number of reasons. Many outbound
servers  
	retry for up to four days to complete delivery.

	2. Many servers accept (or at least appear to accept) all messages
for a 
	domain whether the individual mailbox address is valid or not.

	3. Challenge/response systems :-(

	-- 
	Stuart


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


From artful at rogers.com  Sun Jan  8 17:43:39 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sun, 8 Jan 2006 18:43:39 -0500
Subject: [AccessD] email validation
In-Reply-To: <43C22BF6.31402.2A4D588@stuart.lexacorp.com.pg>
Message-ID: <019c01c614ad$5a065520$8e01a8c0@rock>

To be sure you are right, not to mention spam filters. Lots of problems
authenticating an email address. Our site cautions you that our response
might get bounced, and invites you to regard incoming mail from us as cool,
and to tell your spam-filter so before proceeding. But lots of people may
not know how to do this, some people might be suspicious, and so on. 
There are no simple solutions, I fear. In a business with unlimited
inventory, this is not really an issue, but in the business to which I
refer, the product was seats to a concert by U2 or somebody, and any delay
at all could cause problems, either for us or for the user. I never did come
up with a cool solution. The whole business premise was that we could
contact you by email, so this was deemed critical. Yes, we also asked for
your phone number, but imagine that there are 24 tickets left to a U2
concert. Relying on you not being on the phone (at work or home) is not an
option. In that situation we have to KNOW we can contact you asap, otherwise
even if we put through the credit card charge, then what... a tough problem.
We eventually came up with something that works most of the time, but it is
far from what I imagined as a perfect solution.
A.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: January 8, 2006 6:25 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] email validation

On 8 Jan 2006 at 18:12, Arthur Fuller wrote:

> to be sure. What I wanted in those contexts was an event that would
> immediately attempt to send a message to the specified address, and holler
> at the user if it failed, placing the cursor back in the email field (in
> case of simple mis-spelling). I never did come to a correct method of
doing
> this. 
> 

A few reasons off the top of my head why this will never work reliably, 
there are probably a number of other reasons as well.

1. Emails are not instant messaging.  A recipient mail server may be 
temporarily unavailable for any number of reasons. Many outbound servers  
retry for up to four days to complete delivery.

2. Many servers accept (or at least appear to accept) all messages for a 
domain whether the individual mailbox address is valid or not.

3. Challenge/response systems :-(

-- 
Stuart



From artful at rogers.com  Sun Jan  8 17:47:04 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sun, 8 Jan 2006 18:47:04 -0500
Subject: [AccessD] email validation
In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD4F5@main2.marlow.com>
Message-ID: <019d01c614ad$d417dff0$8e01a8c0@rock>

I would like to learn more about this. In the problem domain that I faced, I
would want not only to know whether the email address is valid, but whether
you received my send, because DWUTKA at marlow.com and DDWUTKA at marlow.com might
both be valid, and I need to make sure that the mail goes to you not him.
Which implies that I would like a response immediately. I realize there are
problems such as hotmail and gmail's relatively show times, not to mention
an ISP's mail down. But still...
A.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: January 8, 2006 6:29 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] email validation

Technically, you could use TCP/IP to create an SMTP session to verify an
email address.  The SMTP protocol does verify whether an email is valid on
it's domain.

Drew



From djkr at msn.com  Sun Jan  8 17:56:49 2006
From: djkr at msn.com (DJK(John) Robinson)
Date: Sun, 8 Jan 2006 23:56:49 -0000
Subject: [AccessD] A2003: SQL to Access Q`
In-Reply-To: <20060108123504.BFUY14751.omta05ps.mx.bigpond.com@DENZILLAP>
Message-ID: <BAY106-DAV1590A5A4677C42E860118FD2230@phx.gbl>

My pleasure, Darren.  I'm usually too far behind in reading this list to be
of any use at all.

I notice you've now added in a GROUP BY, and included the PointsAmount.  Was
that intentional?  Seems to me you've either gone too far or not far enough,
depending on what it was for.  (I don't know, for instance, whether you
might have more than one 'pp' record per invoice - deliberately or
accidentally.)

John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: 08 January 2006 12:35
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] A2003: SQL to Access Q`


John
Brilliant - Absolutely brilliant
I had no idea a select statement could be buried inside the SQL like that

Yes...

SELECT I.InvoiceNo, ARP.PointsAmount AS Pending
FROM Invoice AS I LEFT JOIN [select * from AccountRewardPoints as ARP where
ARP.PointsStatusCode = 'PP' ]. AS ARP ON I.InvoiceNo = ARP.InvoiceNo GROUP
BY I.InvoiceNo, ARP.PointsAmount ORDER BY I.InvoiceNo;

Works in Access and returns 31159 records as expected

Thank you

Darren

 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DJK(John)
Robinson
Sent: Sunday, 8 January 2006 10:50 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] A2003: SQL to Access Q`

Darren

I haven't got SQLS instantly handy (in process of reconfiguration), so I
can't easily check what results you're expecting from it.  Nor am I sure
about your table design.

However, I do understand Access's doubt about ambiguity - I think - as to
when/how to apply the criterion which is not strictly part of the join.  In
Access, does this give the answer you are looking for?

SELECT I.InvoiceNo, ARP.PointsAmount as Pending FROM Invoice as I LEFT JOIN
(select * from AccountRewardPoints where ARP.PointsStatusCode = "PP" ) as
ARP ON ARP.InvoiceNo = I.InvoiceNo Order By I.InvoiceNo

John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: 08 January 2006 10:33
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] A2003: SQL to Access Q`


Hi all
Cross posted to dba-SQL
 
I have just discovered a significant (and disturbing for me) difference in
SQL and Access that I never thought about - I'll explain the problem hoping
that someone can explain any work around options I have
 
In SQL I use the following SQL to return 31159 Records - That's the expected
number by the way
 
SELECT I.InvoiceNo, ARP.PointsAmount as Pending FROM Invoice as I LEFT JOIN
AccountRewardPoints  ARP ON ARP.InvoiceNo = I.InvoiceNo AND
ARP.PointsStatusCode = 'PP' Order By I.InvoiceNo
 
In Access if I use that SQL It errors on the Join - IE I can't create joins
on what is kind of a Criteria - in this case PP on the PointStatusCode field
 
I am learning the reason
 
When I paste the same SQL into the SQL query designer in enterprise manager
(The one that looks like Access's Query Designer)
- You get there by...
Right clicking ANY SQL table in Enterprise Manager Select OPEN TABLE Select
QUERY
 
When I do this I see an unusual join line/link that goes not from a field to
a field as you expect in Access but from the Table name to Table name with a
small F and a small X next to each other to signify the join type
 
I appreciate this means show me all and I mean ALL records (In my case) from
Invoice table IE 31159 of 'em And it actually creates a Join on the PP
Criteria
- I think
 
That's all well and good - but how do I get something like that happening in
Access?
 
<big sigh>
 
Darren
 
 
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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


From jim.moss at jlmoss.net  Sun Jan  8 18:11:49 2006
From: jim.moss at jlmoss.net (Jim Moss)
Date: Sun, 8 Jan 2006 18:11:49 -0600 (CST)
Subject: [AccessD] email validation
In-Reply-To: <019b01c614ab$350e98b0$8e01a8c0@rock>
References: <43C2243B.4545.286A225@stuart.lexacorp.com.pg>
	<019b01c614ab$350e98b0$8e01a8c0@rock>
Message-ID: <54786.209.136.1.154.1136765509.squirrel@209.136.1.154>

First, thanks to all! My primary concern is the formatting of the string.
This will be used as part of a process that currently emails Excel based
statements to approximately 800 corporations.

Jim



> Hah! See my reply to the previous message. Exactly my concern on this
> issue.
> Arthur
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
> McLachlan
> Sent: January 8, 2006 5:52 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] email validation
>
> Are we talking about code to determine whether the format of a particular
> string is valid as an email address or whether  a particular email address
> resolves to a real mailbox?
>
> On 8 Jan 2006 at 13:12, MartyConnelly wrote:
>
>> Here is some vb code to validate email addresses subject to a free daily
>> limit or paid for via smtp mail server authentication at
>> www.internetfrog.com
>>
> ...
>>
>> Gustav Brock wrote:
> ...
>>
>>^(?:[\w\!\#\$\%\&'\*\+\-\/\=\?\^\`\{\|\}\~]+\.)*[\w\!\#\$\%\&'\*\+\-\/\=\?
>>
>>\^\`\{\|\}\~]+@(?:(?:(?:[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!\.)){0,61}[a-zA-Z0-9]
>> >?
>>
>>\.)+[a-zA-Z0-9](?:[a-zA-Z0-9\-](?!$)){0,61}[a-zA-Z0-9]?)|(?:\[(?:(?:[01]?\d
>> >{ 1,2}|2[0-4]\d|25[0-5])\.){3}(?:[01]?\d{1,2}|2[0-4]\d|25[0-5])\]))$
>> >
>> >which claims to have a proven record (browse to 2004-04-28, 7:48 pm):
>> >
> ...
>> >>>>martyconnelly at shaw.ca 07-01-2006 07:35 >>>
>> >>>>
>> >There is quite a range of vaild email addresses including the old X400
>> >types Mastering Regular Expressions.  Is the best Owl book for regexp
>> >
>> > The book ends with an example regular expression to match
>> >an email address.
> ....
>> >Jim Moss wrote:
>> >
>> >>Does anyone have a good email validation module that they would be
> willing
>> >>to share?
>> >>
> --
> Stuart
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>




From martyconnelly at shaw.ca  Sun Jan  8 18:24:31 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Sun, 08 Jan 2006 16:24:31 -0800
Subject: [AccessD] email validation
References: <019d01c614ad$d417dff0$8e01a8c0@rock>
Message-ID: <43C1AD3F.40101@shaw.ca>

If this method from internetfrog indicates a vaild email address
then
The Domain has a working mail server  
and the Mail server did not reject the address  

It doesn't indicate that
the  Local part (username) is valid on the destination system

Arthur Fuller wrote:

>I would like to learn more about this. In the problem domain that I faced, I
>would want not only to know whether the email address is valid, but whether
>you received my send, because DWUTKA at marlow.com and DDWUTKA at marlow.com might
>both be valid, and I need to make sure that the mail goes to you not him.
>Which implies that I would like a response immediately. I realize there are
>problems such as hotmail and gmail's relatively show times, not to mention
>an ISP's mail down. But still...
>A.
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
>Sent: January 8, 2006 6:29 PM
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] email validation
>
>Technically, you could use TCP/IP to create an SMTP session to verify an
>email address.  The SMTP protocol does verify whether an email is valid on
>it's domain.
>
>Drew
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From prodevmg at yahoo.com  Sun Jan  8 20:50:23 2006
From: prodevmg at yahoo.com (Lonnie Johnson)
Date: Sun, 8 Jan 2006 18:50:23 -0800 (PST)
Subject: [AccessD] Move to next page of a report with code.
Message-ID: <20060109025023.64771.qmail@web33104.mail.mud.yahoo.com>

Can you move to the next page of a report programatically via code in the reports class module?



May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us





 





		
---------------------------------
 Yahoo! DSL Something to write home about. Just $16.99/mo. or less

From k.williamson5 at verizon.net  Sun Jan  8 21:20:09 2006
From: k.williamson5 at verizon.net (Keith Williamson)
Date: Sun, 08 Jan 2006 22:20:09 -0500
Subject: [AccessD] Date conversion
In-Reply-To: <20060109025023.64771.qmail@web33104.mail.mud.yahoo.com>
Message-ID: <000001c614cb$99a2fcb0$568bfea9@KeithHome>

Okay,

I know I'm being stupid, but how do I convert an Access date field to a
weekday name?  I have a field that is the date  (01/01/04), and want to have
another field read the day of the week (Thursday.)

Thanks,

Keith

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lonnie Johnson
Sent: Sunday, January 08, 2006 9:50 PM
To: AccessD solving'
Subject: [AccessD] Move to next page of a report with code.

Can you move to the next page of a report programatically via code in the
reports class module?



May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us





 





		
---------------------------------
 Yahoo! DSL Something to write home about. Just $16.99/mo. or less
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From rusty.hammond at cpiqpc.com  Sun Jan  8 21:40:18 2006
From: rusty.hammond at cpiqpc.com (rusty.hammond at cpiqpc.com)
Date: Sun, 8 Jan 2006 21:40:18 -0600 
Subject: [AccessD] Date conversion
Message-ID: <8301C8A868251E4C8ECD3D4FFEA40F8A154F840D@cpixchng-1.cpiqpc.net>

try format(fldName,"dddd")

-----Original Message-----
From: Keith Williamson [mailto:k.williamson5 at verizon.net]
Sent: Sunday, January 08, 2006 9:20 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Date conversion


Okay,

I know I'm being stupid, but how do I convert an Access date field to a
weekday name?  I have a field that is the date  (01/01/04), and want to have
another field read the day of the week (Thursday.)

Thanks,

Keith

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lonnie Johnson
Sent: Sunday, January 08, 2006 9:50 PM
To: AccessD solving'
Subject: [AccessD] Move to next page of a report with code.

Can you move to the next page of a report programatically via code in the
reports class module?



May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us





 





		
---------------------------------
 Yahoo! DSL Something to write home about. Just $16.99/mo. or less
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


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

**********************************************************************
WARNING: All e-mail sent to and from this address will be received,
scanned or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
corporate e-mail system and is subject to archival, monitoring or review 
by, and/or disclosure to, someone other than the recipient.
**********************************************************************


From accessd at shaw.ca  Sun Jan  8 22:26:01 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Sun, 08 Jan 2006 20:26:01 -0800
Subject: [AccessD] OT Super interesting options
In-Reply-To: <000401c611ec$eb6fbb00$2e01a8c0@fredxp>
Message-ID: <000e01c614d4$ccc89ec0$017ba8c0@xpserver>

Hi Fred:

The other link added with the link to the download site was a link to a pod
cast from Steve Gibson who is totally impressed with the product. 

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: January 5, 2006 3:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Wednesday, January 04, 2006 8:52 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

I downloaded and installed on my machine, as well as a machine I could
remote into at a client.  I was able to IM over the app, but I was unable to
ping, or to browse shares.

It is a fascinating concept and might be a nice thing if I could get it
working at one specific client where remote desktop just doesn't work (for
me).  I need to be able to up/download FE and framework files to them and
can never connect.  It would be cool to be able to see shares and do my
upload/download in that manner.  I have to wonder what the processor
overhead will be though.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
Sent: Wednesday, January 04, 2006 1:47 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] OT Super interesting options

OT

This is totally off topic but the potential and product is so interesting
that, with my apologies, I had to post it here.

Check this web site out: http://www.hamachi.cc/ and listen to the linked pod
cast: 
http://reference.creativesystemdesigns.com/Downloads/Hamachi.pod
(Remember to set the downloaded pod file's extension to 'mp3' so you can
play it.) 

Jim

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

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


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



From jmhecht at earthlink.net  Sun Jan  8 22:39:00 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sun, 8 Jan 2006 20:39:00 -0800
Subject: [AccessD] Date Diff Help It cant be this hard
Message-ID: <001201c614d6$9cbda930$6701a8c0@HPLaptop>

Why cant I get the proper age to return.

 

This code errors at run time. Dateborn = me.dob  has no
value.

 

 

 

Private Sub Report_Open(Cancel As Integer)

Dim datenow As Date

Dim dateborn As Date

Dim txtage As Integer

 

 

    datenow = Now()

    dateborn = Me.DOB

    

Me.txtage = DateDiff("yyyy", datenow, dateborn)

End Sub

 

Either in txtage or somewhere I want to get the persons
current age stuffed into txtAge.

 

Thanks 

Joe Hecht

jmhecht at earthlink.net

  _____  

From: Joe Hecht [mailto:jmhecht at earthlink.net] 
Sent: Friday, January 06, 2006 8:52 PM
To: 'Access Developers discussion and problem solving'
Subject: Date Diff Help

 

I am trying to do a an age calculation with the following
data source.

 

=DateDiff("yyyy",[DOB],Now())+Int(Format(Now(),"mmdd"))

 

DOB is the employees date of birth.

 

If Dob is 5/11/1940 I am expecting to get 65 back not 172.

 

TIA

 

Joe Hecht

jmhecht at earthlink.net

 



From stuart at lexacorp.com.pg  Sun Jan  8 22:44:29 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Mon, 09 Jan 2006 14:44:29 +1000
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <001201c614d6$9cbda930$6701a8c0@HPLaptop>
Message-ID: <43C276CD.6281.62FEC@stuart.lexacorp.com.pg>

On 8 Jan 2006 at 20:39, Joe Hecht wrote:

> Why cant I get the proper age to return.
...
> Private Sub Report_Open(Cancel As Integer)

Try doing it in the "on_format" for a header or detail.


-- 
Stuart




From rbgajewski at adelphia.net  Sun Jan  8 22:45:16 2006
From: rbgajewski at adelphia.net (Bob Gajewski)
Date: Sun, 8 Jan 2006 23:45:16 -0500
Subject: [AccessD] Date conversion
In-Reply-To: <8301C8A868251E4C8ECD3D4FFEA40F8A154F840D@cpixchng-1.cpiqpc.net>
Message-ID: <000601c614d7$7ce0f6c0$bd00a8c0@DG1P2N21>

I could be wrong, but I thought that the format for day was only three d's
("ddd") ... If four doesn't work, try that instead.

Regards,
Bob Gajewski 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
rusty.hammond at cpiqpc.com
Sent: Sunday, January 08, 2006 22:40 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Date conversion

try format(fldName,"dddd")

-----Original Message-----
From: Keith Williamson [mailto:k.williamson5 at verizon.net]
Sent: Sunday, January 08, 2006 9:20 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Date conversion


Okay,

I know I'm being stupid, but how do I convert an Access date field to a
weekday name?  I have a field that is the date  (01/01/04), and want to have
another field read the day of the week (Thursday.)

Thanks,

Keith

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lonnie Johnson
Sent: Sunday, January 08, 2006 9:50 PM
To: AccessD solving'
Subject: [AccessD] Move to next page of a report with code.

Can you move to the next page of a report programatically via code in the
reports class module?



May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases Visit me at ==>
http://www.prodev.us





 





		
---------------------------------
 Yahoo! DSL Something to write home about. Just $16.99/mo. or less
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


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

**********************************************************************
WARNING: All e-mail sent to and from this address will be received,
scanned or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
corporate e-mail system and is subject to archival, monitoring or review 
by, and/or disclosure to, someone other than the recipient.
**********************************************************************
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jmhecht at earthlink.net  Sun Jan  8 22:55:57 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sun, 8 Jan 2006 20:55:57 -0800
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <43C276CD.6281.62FEC@stuart.lexacorp.com.pg>
Message-ID: <001701c614d8$fb4ae9c0$6701a8c0@HPLaptop>

Tried a different route.

txtAge is unbound control

Data source txtAge=((Now()-[DOB])/365) 

Set decimals to 0 in format

Getting 65.70923 etc

Tied various number formats. The 65 is right in test form.
Can not kill the decimal

What dumb thing did I forget now?




Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Stuart McLachlan
Sent: Sunday, January 08, 2006 8:44 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Date Diff Help It cant be this hard

On 8 Jan 2006 at 20:39, Joe Hecht wrote:

> Why cant I get the proper age to return.
...
> Private Sub Report_Open(Cancel As Integer)

Try doing it in the "on_format" for a header or detail.


-- 
Stuart


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



From stuart at lexacorp.com.pg  Sun Jan  8 22:56:59 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Mon, 09 Jan 2006 14:56:59 +1000
Subject: [AccessD] Date conversion
In-Reply-To: <000601c614d7$7ce0f6c0$bd00a8c0@DG1P2N21>
References: <8301C8A868251E4C8ECD3D4FFEA40F8A154F840D@cpixchng-1.cpiqpc.net>
Message-ID: <43C279BB.19975.119F4A@stuart.lexacorp.com.pg>

On 8 Jan 2006 at 23:45, Bob Gajewski wrote:

> I could be wrong, but I thought that the format for day was only three d's
> ("ddd") ... If four doesn't work, try that instead.
> 

"ddd" returns "Mon", "dddd" returns "Monday"
-- 
Stuart




From jmhecht at earthlink.net  Sun Jan  8 23:05:14 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sun, 8 Jan 2006 21:05:14 -0800
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <001701c614d8$fb4ae9c0$6701a8c0@HPLaptop>
Message-ID: <001801c614da$48e94130$6701a8c0@HPLaptop>

They say if it works ugly can be pretty.

My age solution for unbound text box

=Left (((Now ()-[DOB])/365),2)

Anyone have a better or more accurate way to do this?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Sunday, January 08, 2006 8:56 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Date Diff Help It cant be this hard

Tried a different route.

txtAge is unbound control

Data source txtAge=((Now()-[DOB])/365) 

Set decimals to 0 in format

Getting 65.70923 etc

Tied various number formats. The 65 is right in test form.
Can not kill the decimal

What dumb thing did I forget now?




Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Stuart McLachlan
Sent: Sunday, January 08, 2006 8:44 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Date Diff Help It cant be this hard

On 8 Jan 2006 at 20:39, Joe Hecht wrote:

> Why cant I get the proper age to return.
...
> Private Sub Report_Open(Cancel As Integer)

Try doing it in the "on_format" for a header or detail.


-- 
Stuart


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

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



From stuart at lexacorp.com.pg  Sun Jan  8 23:09:36 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Mon, 09 Jan 2006 15:09:36 +1000
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <001201c614d6$9cbda930$6701a8c0@HPLaptop>
Message-ID: <43C27CB0.1722.1D2E46@stuart.lexacorp.com.pg>

On 8 Jan 2006 at 20:39, Joe Hecht wrote:

> 
>     datenow = Now()
>     dateborn = Me.DOB
> Me.txtage = DateDiff("yyyy", datenow, dateborn)
> 

This will not always give the correct age since it only works on the year 
part and doesn't take into account the actual dates. It will be one year 
too high if datenow is earlier in the year than dateborn.

ie DateDiff("yyyy","31 Dec 05","1 Jan 06") will return 1 even though it is 
only one day difference (to say nothing of your version always returning a 
negative value because the arguments are the wrong way round)

Try
Me.txtage = Datediff("yyyy",dateborn,datenow) + _
(DatePart("y", datenow) < DatePart("y",dateborn))






-- 
Stuart




From stuart at lexacorp.com.pg  Sun Jan  8 23:12:26 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Mon, 09 Jan 2006 15:12:26 +1000
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <001701c614d8$fb4ae9c0$6701a8c0@HPLaptop>
References: <43C276CD.6281.62FEC@stuart.lexacorp.com.pg>
Message-ID: <43C27D5A.27686.1FC50E@stuart.lexacorp.com.pg>

On 8 Jan 2006 at 20:55, Joe Hecht wrote:

> Tried a different route.
> 
> txtAge is unbound control
> 
> Data source txtAge=((Now()-[DOB])/365) 
> 

Doesn't take into account leap years.  This one won't always return the 
correct result either.

-- 
Stuart




From rbgajewski at adelphia.net  Sun Jan  8 23:13:51 2006
From: rbgajewski at adelphia.net (Bob Gajewski)
Date: Mon, 9 Jan 2006 00:13:51 -0500
Subject: [AccessD] Date conversion
In-Reply-To: <43C279BB.19975.119F4A@stuart.lexacorp.com.pg>
Message-ID: <000b01c614db$7aaba360$bd00a8c0@DG1P2N21>

Thanks Stuart! 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: Sunday, January 08, 2006 23:57 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Date conversion

On 8 Jan 2006 at 23:45, Bob Gajewski wrote:

> I could be wrong, but I thought that the format for day was only three 
> d's
> ("ddd") ... If four doesn't work, try that instead.
> 

"ddd" returns "Mon", "dddd" returns "Monday"
--
Stuart


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




From rbgajewski at adelphia.net  Sun Jan  8 23:19:49 2006
From: rbgajewski at adelphia.net (Bob Gajewski)
Date: Mon, 9 Jan 2006 00:19:49 -0500
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <001801c614da$48e94130$6701a8c0@HPLaptop>
Message-ID: <000c01c614dc$5038faf0$bd00a8c0@DG1P2N21>

Check out http://www.mvps.org/access/datetime/date0001.htm
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Monday, January 09, 2006 00:05 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Date Diff Help It cant be this hard

They say if it works ugly can be pretty.

My age solution for unbound text box

=Left (((Now ()-[DOB])/365),2)

Anyone have a better or more accurate way to do this?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Sunday, January 08, 2006 8:56 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Date Diff Help It cant be this hard

Tried a different route.

txtAge is unbound control

Data source txtAge=((Now()-[DOB])/365) 

Set decimals to 0 in format

Getting 65.70923 etc

Tied various number formats. The 65 is right in test form.
Can not kill the decimal

What dumb thing did I forget now?




Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: Sunday, January 08, 2006 8:44 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Date Diff Help It cant be this hard

On 8 Jan 2006 at 20:39, Joe Hecht wrote:

> Why cant I get the proper age to return.
...
> Private Sub Report_Open(Cancel As Integer)

Try doing it in the "on_format" for a header or detail.


--
Stuart


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

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

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




From dajomigo at tpg.com.au  Mon Jan  9 00:51:00 2006
From: dajomigo at tpg.com.au (David & Joanne Gould)
Date: Mon, 09 Jan 2006 17:51:00 +1100
Subject: [AccessD]  Write Conflict - solved
In-Reply-To: <6.2.1.2.2.20060103135101.033b66f0@mail.tpg.com.au>
References: <EB062E528F7B964281EB0F83CFDA3B43251810@usndc0419.us.deloitte.com>
	<6.2.1.2.2.20060103135101.033b66f0@mail.tpg.com.au>
Message-ID: <6.2.1.2.2.20060109174820.02c14b10@mail.tpg.com.au>

Thanks to everyone who offered suggestions. I finally solved the problem. I 
had been focusing on the original form. The problem was actually in the 
other form. I had bound the form back to its table and then updated the 
records through code. The solution was to make the form unbound and 
populate the details from the summoning form.

David

At 01:55 PM 3/01/2006, you wrote:
>Mark
>
>No, I'm just using Access XP keeping the database in Access 2000 format.  I
>think the problem is that the data in the table is updated in the other
>form and therefore doesn't match the subform. I originally wasn't saving
>the changes in the update form but was getting the same problem except that
>the Save button didn't fix things then. So I think I'm closer to the right
>solution except I can't figure out how to do the Save at the right time. It
>seems to be somewhere between when the Close command is activated and
>anything else happening.
>
>Hope this helps.
>
>TIA
>
>David
>
>At 12:41 PM 3/01/2006, you wrote:
> >David -
> >Are you using SQL Server as the backend to your form's data?  I've seen
> >this in the past when SQL tables are being updated.
> >If so, adding a timestamp datatype column to the table seemed to fix it
> >for me.
> >
> >
> >Mark Boyd
> >Senior Consultant
> >Enterprise Risk Services
> >Deloitte & Touche LLP
> >
> >Tel: +1 215 405 5576
> >mboyd at deloitte.com
> >www.deloitte.com
> >
> >
> >-----Original Message-----
> >From: accessd-bounces at databaseadvisors.com
> >[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David &
> >Joanne Gould
> >Sent: Saturday, December 31, 2005 8:02 AM
> >To: Access Developers discussion and problem solving
> >Subject: Re: [AccessD] Write Conflict
> >
> >It is set to update the table. However, it doesn't matter what I set to
> >happen in the subform because the error message happens when the other
> >form
> >is closed and before the subform is accessed.
> >
> >At 11:28 PM 31/12/2005, you wrote:
> > >Hi David, and Happy New Year to you too.
> > >
> > >It sounds as if the "new form" on which they change rental type is
> >updating
> > >the same table that your subform is based on. If so I'd try 2 things.
> > >Firstly do a Save of the subform before opening the new form, and then
> > >Requery the subform when the other form closes.
> > >
> > >-- Andy Lacey
> > >http://www.minstersystems.co.uk
> > >
> > > > -----Original Message-----
> > > > From: accessd-bounces at databaseadvisors.com
> > > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > > > David & Joanne Gould
> > > > Sent: 31 December 2005 12:09
> > > > To: accessd at databaseadvisors.com
> > > > Subject: [AccessD] Write Conflict
> > > >
> > > >
> > > > Firstly, I would like to wish everyone on the a Happy and
> > > > Prosperous 2006.
> > > > May the best of 2005 be the worst of 2006.
> > > >
> > > > My problem is I am working on a video library database. My
> > > > hire form has a
> > > > main form (hirer's details) and a subform (hiring details).
> > > > There is a
> > > > combo box that the user uses to select the movie. If they
> > > > double-click on
> > > > the combo box they are taken to a new form where they can
> > > > change the rental
> > > > type for the movie (eg is it an overnight, 3 nights, weekly
> > > > etc rental)
> > > > When they have selected the new rental type the program
> > > > checks for every
> > > > instance of that movie name and changes it to the new rental
> > > > type. It also
> > > > updates the Hiring record to record the new date due into the
> > > > table. This
> > > > all works perfectly. However, when they close the form to go
> > > > back to the
> > > > Hiring form, I get Write Conflict. If I click on the Save
> > > > option it works
> > > > perfectly and updates the row in the Hire form details to reflect
> >the
> > > > changes and I can continue to work.
> > > >
> > > > I can't seem to figure out where the error is being triggered
> > > > so I can tell
> > > > it to save programatically and leave the user none the wiser.
> > > >
> > > > Any help in this will be greatly appreciated.
> > > >
> > > > TIA
> > > >
> > > > David
> > > >
> > > >
> > > > --
> > > > AccessD mailing list
> > > > AccessD at databaseadvisors.com
> > > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > > Website: http://www.databaseadvisors.com
> > > >
> > > >
> > >
> > >--
> > >AccessD mailing list
> > >AccessD at databaseadvisors.com
> > >http://databaseadvisors.com/mailman/listinfo/accessd
> > >Website: http://www.databaseadvisors.com
> >
> >
> >--
> >AccessD mailing list
> >AccessD at databaseadvisors.com
> >http://databaseadvisors.com/mailman/listinfo/accessd
> >Website: http://www.databaseadvisors.com
> >
> >
> >This message (including any attachments) contains confidential information
> >intended for a specific individual and purpose, and is protected by
> >law.  If you are not the intended recipient, you should delete this message.
> >
> >
> >Any disclosure, copying, or distribution of this message, or the taking of
> >any action based on it, is strictly prohibited. [v.E.1]
> >--
> >AccessD mailing list
> >AccessD at databaseadvisors.com
> >http://databaseadvisors.com/mailman/listinfo/accessd
> >Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From Gustav at cactus.dk  Mon Jan  9 03:23:23 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 10:23:23 +0100
Subject: [AccessD] Date Diff Help It cant be this hard
Message-ID: <s3c239b5.009@cactus.dk>

Hi Joe

Well, it is hard; and you missed my posting from 2006-01-07 somehow:

Hi Joe

This requires a little more than a line of code.
Study here for a reliable solution:

  http://databaseadvisors.com/mailman/htdig/accessd/2003-August/011575.html 

/gustav

>>> jmhecht at earthlink.net 09-01-2006 05:55:57 >>>

What dumb thing did I forget now?




From Gustav at cactus.dk  Mon Jan  9 03:30:31 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 10:30:31 +0100
Subject: [AccessD] Date Diff Help It cant be this hard
Message-ID: <s3c23b5e.011@cactus.dk>

Hi Bob and Joe

Be careful. This - as most other attempts - only works sort of.

/gustav

>>> rbgajewski at adelphia.net 09-01-2006 06:19:49 >>>

Check out http://www.mvps.org/access/datetime/date0001.htm 




From mjrobertson at iinet.net.au  Mon Jan  9 04:45:22 2006
From: mjrobertson at iinet.net.au (Mike)
Date: Mon, 9 Jan 2006 20:45:22 +1000
Subject: [AccessD] Report Printing Problem - Graphs Being Split
Message-ID: <000301c61509$cb491090$0600a8c0@D3NSLB1S>

Hi Folks.

I've been a "lurker" here for some time now - and have benefited enormously
from the knowledge shared in AccessD. Please accept my thanks for the effort
each and everyone of you puts into this list.

I'm still trying to find a question I can help with - although by the time I
get to see the questions they have generally been answered!

I have a problem with Access reports. Let me describe the scenario, starting
with a little of my background.

I've spent 30 or so years in the IT industry and have worked across just
about all disciplines - but focussed mainly on development, testing and
deployment. My knowledge base extends across Cobol, Fortran (in the early
days of mainframe apps) to VB (from it's first release) and of course Access
and VBA (also from the first releases). I currently do volunteer work with a
Not For Profit organisation here in Australia. I enjoy that immensely and it
keeps my IT skills up to date.

Now for the problem! (I hope my description is a little clearer than mud,
but it is difficult to describe)

The NFP organisation is required to report against a set of Key Performance
Indicators determined by a Gov't Department which provides a good deal of
their funding. The KPIs and the reporting format are fixed and can't be
changed except by the Gov't. I have developed an Access app (Access 2002)
that manages the counselling services provided by the NFPO and includes all
of the data (in a raw form) required for reporting KPIs.

The reporting includes both textual and graphic formatting which is where I
am having difficulty. The textual reporting as well as the graphs are
sub-reports - and they individually do exactly as I want them to do. The
sub-reports are just a series of independent sub-reports placed in the
detail section of the main report.

I have broken the reporting into separate reports simply because there are
way too many sub-reports to fit into one Access report. Within each report,
there is a mixture of textual sub-reports and graphical sub-reports. Most
textual sub-reports have a predictable maximum length (in terms of report
lines) but some depend on the number of records being reported and therefore
are unpredictable in terms of length. The graphs are also predictable in
terms of maximum length. The total number of sub-reports is around 130 split
over 12 main reports.

Each sub-report, including the graphs, is being handled for "no data"
conditions and that works well.

I have also provided the NFPO with the means of hiding any combination of
sub-reports in any report (their requirement). BTW, when a sub-report is
hidden I programmatically move all following report elements (sub-reports
and labels) up to use the space vacated by the hidden elements.

When a report is printed, any textual or graphical sub-report which starts
before the end of the page is "split" i.e.. part of it prints on the page it
started on and the rest prints on the following page. This is particularly
horrific when a graph is being printed - the "pie" ends up not only sliced
but also severed! I think I can live with textual type reports being split
across pages, but splitting a graph into 2 parts isn't acceptable.

Manually placing page breaks in each section can fix this, but given the
varying height of each sub-report plus the fact that any sub-report may be
hidden and therefore not print at all, even manually placing page breaks is
a difficult task.

I suspect the problem lies in the height of the Detail Section of each main
report - it can be as high as 52cms when zero height sub-reports are placed
on it along with some labels, and that extends to much higher physically at
print time (graphs are typically 11cms high). I simply don't know how to fix
this printing problem without significant manual intervention in the
printing process.

Can anyone help?


Thanks in anticipation,


Mike Robertson

-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.371 / Virus Database: 267.14.15/223 - Release Date: 6/01/2006
 


From andy at minstersystems.co.uk  Mon Jan  9 07:07:32 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Mon, 9 Jan 2006 13:07:32 +0000
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <20060109130729.CC70D2686C9@smtp.nildram.co.uk>

Help guys

I have this Access 97 MDB (FE and BE both A97) which has been running for
years, mostly on W98 but also for some time on W2K. Last week something new
happened. 2 users who were previously on W98 went to W2K. They use a part of
the system which others don't, or at least they try to but when they do it
regularly crashes with:

"Msaccess.exe has generated errors and will be closed by Windows. You will
need to restart the program. An error log is being created."

Needless to say no error log is created at all.

It isn't a coding error because everything works fine on W98.

I used the word 'regularly' above because it's intermittent (the worst
sort). Sometimes it runs fine, other times it crashes, and seemingly at
different points in the routine. I say seemingly but I'm not 100% sure
because debugging this is a nightmare. When it crashes it doesn't go into
debug, so the only way I can see is to step through and wait for it to
crash, but it's a huge routine and as it doesn't crash every time anyway
I'll be here til next Xmas trying to see where it fails.

When I Googled the error I found suggestions to reinstall Jet 3.5 SP3,
reinstall Office SR2B, recopy DAO350.DLL and increase Windows paging limits.
So I've done all of those things to no avail. Also it is not machine
specific. I've gone to another machine running W2K which has been running
the system for years (but not this are of functionality) and it crashes too
when I try this routine.

Has anyone had anything like this (and solved it)? Any bright ideas?



--
Andy Lacey
http://www.minstersystems.co.uk

________________________________________________
Message sent using UebiMiau 2.7.2



From Gustav at cactus.dk  Mon Jan  9 07:23:14 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 14:23:14 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c271ee.026@cactus.dk>

Hi Andy

I had a similar thing which I tracked down to a line with Debug.Print. Commented this out and the code ran, believe it or not.
However, that was not intermittent but consistent.

Have you been through the usual tools: decompile and recompile on Win2000? Or - still on Win2000 - import all objects in a new file?

/gustav

>>> andy at minstersystems.co.uk 09-01-2006 14:07:32 >>>
Help guys

I have this Access 97 MDB (FE and BE both A97) which has been running for
years, mostly on W98 but also for some time on W2K. Last week something new
happened. 2 users who were previously on W98 went to W2K. They use a part of
the system which others don't, or at least they try to but when they do it
regularly crashes with:

"Msaccess.exe has generated errors and will be closed by Windows. You will
need to restart the program. An error log is being created."




From mikedorism at verizon.net  Mon Jan  9 07:31:52 2006
From: mikedorism at verizon.net (Mike & Doris Manning)
Date: Mon, 09 Jan 2006 08:31:52 -0500
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <001701c614d8$fb4ae9c0$6701a8c0@HPLaptop>
Message-ID: <002f01c61521$0e632340$2f01a8c0@dorismanning>

How about using Int() to return just the integer portion?

Doris Manning
mikedorism at verizon.net




From andy at minstersystems.co.uk  Mon Jan  9 07:50:04 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Mon, 9 Jan 2006 13:50:04 +0000
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <20060109135001.C625226C07D@smtp.nildram.co.uk>

Mmm, well there may be a Debug.Print around in a called routine somewhere I
guess. I'll take a look. I've decomp'd and recomp'd on the W2K machine but
not done the new MDB thing. I could try but it'd be a nightmare scenario.
The MDB is in constant evolution and I couldn't contemplate having to do
that every time. Madre mia! Still, I guess it'd be worth knowing if it cures
the problem. Thanks Gustav. Any other suggestions welcomed (very, very
much).

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 09/01/06 13:24


Hi Andy

I had a similar thing which I tracked down to a line with Debug.Print.
Commented this out and the code ran, believe it or not.
However, that was not intermittent but consistent.

Have you been through the usual tools: decompile and recompile on Win2000?
Or - still on Win2000 - import all objects in a new file?

/gustav

>>> andy at minstersystems.co.uk 09-01-2006 14:07:32 >>>
Help guys

I have this Access 97 MDB (FE and BE both A97) which has been running for
years, mostly on W98 but also for some time on W2K. Last week something new
happened. 2 users who were previously on W98 went to W2K. They use a part of
the system which others don't, or at least they try to but when they do it
regularly crashes with:

"Msaccess.exe has generated errors and will be closed by Windows. You will
need to restart the program. An error log is being created."


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

________________________________________________
Message sent using UebiMiau 2.7.2



From kwilliam at ashlandnet.com  Mon Jan  9 08:03:01 2006
From: kwilliam at ashlandnet.com (Keith Williamson)
Date: Mon, 09 Jan 2006 09:03:01 -0500
Subject: [AccessD] Date conversion
In-Reply-To: <8301C8A868251E4C8ECD3D4FFEA40F8A154F840D@cpixchng-1.cpiqpc.net>
Message-ID: <004201c61525$67e1c3a0$0300a8c0@ashlandnet.com>

Seems simple enough.....THANKS!!!

Keith E. Williamson
Ashland Equipment
410-273-1856 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com [mailto:accessd-
> bounces at databaseadvisors.com] On Behalf Of rusty.hammond at cpiqpc.com
> Sent: Sunday, January 08, 2006 10:40 PM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Date conversion
> 
> try format(fldName,"dddd")
> 
> -----Original Message-----
> From: Keith Williamson [mailto:k.williamson5 at verizon.net]
> Sent: Sunday, January 08, 2006 9:20 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Date conversion
> 
> 
> Okay,
> 
> I know I'm being stupid, but how do I convert an Access date field to a
> weekday name?  I have a field that is the date  (01/01/04), and want to
> have
> another field read the day of the week (Thursday.)
> 
> Thanks,
> 
> Keith
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lonnie Johnson
> Sent: Sunday, January 08, 2006 9:50 PM
> To: AccessD solving'
> Subject: [AccessD] Move to next page of a report with code.
> 
> Can you move to the next page of a report programatically via code in the
> reports class module?
> 
> 
> 
> May God bless you beyond your imagination!
> Lonnie Johnson
> ProDev, Professional Development of MS Access Databases
> Visit me at ==> http://www.prodev.us
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> ---------------------------------
>  Yahoo! DSL Something to write home about. Just $16.99/mo. or less
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> **********************************************************************
> WARNING: All e-mail sent to and from this address will be received,
> scanned or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
> corporate e-mail system and is subject to archival, monitoring or review
> by, and/or disclosure to, someone other than the recipient.
> **********************************************************************
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com




From kwilliam at ashlandnet.com  Mon Jan  9 08:03:14 2006
From: kwilliam at ashlandnet.com (Keith Williamson)
Date: Mon, 09 Jan 2006 09:03:14 -0500
Subject: [AccessD] Date conversion
In-Reply-To: <000601c614d7$7ce0f6c0$bd00a8c0@DG1P2N21>
Message-ID: <004301c61525$6fc766b0$0300a8c0@ashlandnet.com>

OK...thanks

Keith E. Williamson
Ashland Equipment
410-273-1856 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com [mailto:accessd-
> bounces at databaseadvisors.com] On Behalf Of Bob Gajewski
> Sent: Sunday, January 08, 2006 11:45 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Date conversion
> 
> I could be wrong, but I thought that the format for day was only three d's
> ("ddd") ... If four doesn't work, try that instead.
> 
> Regards,
> Bob Gajewski
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> rusty.hammond at cpiqpc.com
> Sent: Sunday, January 08, 2006 22:40 PM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Date conversion
> 
> try format(fldName,"dddd")
> 
> -----Original Message-----
> From: Keith Williamson [mailto:k.williamson5 at verizon.net]
> Sent: Sunday, January 08, 2006 9:20 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Date conversion
> 
> 
> Okay,
> 
> I know I'm being stupid, but how do I convert an Access date field to a
> weekday name?  I have a field that is the date  (01/01/04), and want to
> have
> another field read the day of the week (Thursday.)
> 
> Thanks,
> 
> Keith
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lonnie Johnson
> Sent: Sunday, January 08, 2006 9:50 PM
> To: AccessD solving'
> Subject: [AccessD] Move to next page of a report with code.
> 
> Can you move to the next page of a report programatically via code in the
> reports class module?
> 
> 
> 
> May God bless you beyond your imagination!
> Lonnie Johnson
> ProDev, Professional Development of MS Access Databases Visit me at ==>
> http://www.prodev.us
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> ---------------------------------
>  Yahoo! DSL Something to write home about. Just $16.99/mo. or less
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> **********************************************************************
> WARNING: All e-mail sent to and from this address will be received,
> scanned or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
> corporate e-mail system and is subject to archival, monitoring or review
> by, and/or disclosure to, someone other than the recipient.
> **********************************************************************
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com




From Gustav at cactus.dk  Mon Jan  9 08:08:12 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 15:08:12 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c27c7a.029@cactus.dk>

Hi Andy

Yes, I see the problem. 
But the import thing - if it should be the cure - should really be a one-timer. If it works, proceed evolution on the fresh version as it should work on W98 as well.

/gustav

>>> andy at minstersystems.co.uk 09-01-2006 14:50:04 >>>
Mmm, well there may be a Debug.Print around in a called routine somewhere I
guess. I'll take a look. I've decomp'd and recomp'd on the W2K machine but
not done the new MDB thing. I could try but it'd be a nightmare scenario.
The MDB is in constant evolution and I couldn't contemplate having to do
that every time. Madre mia! Still, I guess it'd be worth knowing if it cures
the problem. Thanks Gustav. Any other suggestions welcomed (very, very
much).

--
Andy Lacey
http://www.minstersystems.co.uk 




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 09/01/06 13:24


Hi Andy

I had a similar thing which I tracked down to a line with Debug.Print.
Commented this out and the code ran, believe it or not.
However, that was not intermittent but consistent.

Have you been through the usual tools: decompile and recompile on Win2000?
Or - still on Win2000 - import all objects in a new file?

/gustav

>>> andy at minstersystems.co.uk 09-01-2006 14:07:32 >>>
Help guys

I have this Access 97 MDB (FE and BE both A97) which has been running for
years, mostly on W98 but also for some time on W2K. Last week something new
happened. 2 users who were previously on W98 went to W2K. They use a part of
the system which others don't, or at least they try to but when they do it
regularly crashes with:

"Msaccess.exe has generated errors and will be closed by Windows. You will
need to restart the program. An error log is being created."




From shamil at users.mns.ru  Mon Jan  9 08:42:22 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Mon, 9 Jan 2006 17:42:22 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <20060109130729.CC70D2686C9@smtp.nildram.co.uk>
Message-ID: <006d01c6152a$fc0c6bc0$6401a8c0@fincomplex.spb.ru>

Andy,

Can you post the routine here?

As Gustav noted - debug.print or better custom log file writes here and
there in the problematic routine could help to localize the source of the
problem rather quickly - after not that many GPF crashes hopefully. BTW, do
not forget to "kill" ghost MS Access instances/monikers before the next test
run, which may hang in Running Objects Table(ROT) when MS Access GPFs - use
ROTClean utility for that ROT clean-up...

> It isn't a coding error because everything works fine on W98.
This could be coding problem, which doesn't appear on W98 but shows its ugly
head on W2K with latest updates.
There was a problem with recordsets in MS Access 97 SR1, which was breaking
MS Access 97 (first release) code and then MS Access 97 SR2 solved the
issue. Sorry, I can't remember what kind of problem it was - maybe this link
helps: http://www.mvps.org/access/bugs/bugs0016.htm...

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Monday, January 09, 2006 4:07 PM
Subject: [AccessD] Access97 on W2000 crashes


> Help guys
>
> I have this Access 97 MDB (FE and BE both A97) which has been running for
> years, mostly on W98 but also for some time on W2K. Last week something
new
> happened. 2 users who were previously on W98 went to W2K. They use a part
of
> the system which others don't, or at least they try to but when they do it
> regularly crashes with:
>
> "Msaccess.exe has generated errors and will be closed by Windows. You will
> need to restart the program. An error log is being created."
>
> Needless to say no error log is created at all.
>
> It isn't a coding error because everything works fine on W98.
>
> I used the word 'regularly' above because it's intermittent (the worst
> sort). Sometimes it runs fine, other times it crashes, and seemingly at
> different points in the routine. I say seemingly but I'm not 100% sure
> because debugging this is a nightmare. When it crashes it doesn't go into
> debug, so the only way I can see is to step through and wait for it to
> crash, but it's a huge routine and as it doesn't crash every time anyway
> I'll be here til next Xmas trying to see where it fails.
>
> When I Googled the error I found suggestions to reinstall Jet 3.5 SP3,
> reinstall Office SR2B, recopy DAO350.DLL and increase Windows paging
limits.
> So I've done all of those things to no avail. Also it is not machine
> specific. I've gone to another machine running W2K which has been running
> the system for years (but not this are of functionality) and it crashes
too
> when I try this routine.
>
> Has anyone had anything like this (and solved it)? Any bright ideas?
>
>
>
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
> ________________________________________________
> Message sent using UebiMiau 2.7.2
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Mon Jan  9 08:50:24 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 15:50:24 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c28655.035@cactus.dk>

Hi Shamil

It was the line with Debug.Print (left in the production code) that caused the crash!

/gustav

>>> Gustav at cactus.dk 09-01-2006 14:23:14 >>>

I had a similar thing which I tracked down to a line with Debug.Print. Commented this out and the code ran, believe it or not.




From shamil at users.mns.ru  Mon Jan  9 09:24:01 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Mon, 9 Jan 2006 18:24:01 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <s3c28655.035@cactus.dk>
Message-ID: <000d01c61530$b9500340$6401a8c0@fincomplex.spb.ru>

> It was the line with Debug.Print (left in the production code) that caused
the crash!
I did misinterpret your advice, Gustav, sorry.

But was that just:

debug.print

i.e. debug.print of an empty line or it had some stuff to debug.print?

I guess the problem was with debug.print's parameters?

In the cases like Andy's the only way to find the problematic code is to use
detailed logging - simple text file I/O should be used for that with file
open for append/close for every log record write...

To find a stable workaround the source VBA code line(s) resulting in the GPF
should be found - trying to "solve" the problem with "blind" installation of
different updates is a pure guessing/gambling...

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Monday, January 09, 2006 5:50 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Hi Shamil
>
> It was the line with Debug.Print (left in the production code) that caused
the crash!
>
> /gustav
>
> >>> Gustav at cactus.dk 09-01-2006 14:23:14 >>>
>
> I had a similar thing which I tracked down to a line with Debug.Print.
Commented this out and the code ran, believe it or not.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Mon Jan  9 10:00:56 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 17:00:56 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c296ea.043@cactus.dk>

Hi Shamil

No problem.

No, it was a simple line like

  Debug.Print "Records:", lngRecordCount

which "can't" fail. But it did.
However, I did not do the import-to-new-thing which might have cured the issue. In production code no Debug.Print is needed, so I just commented it out. Still wondering.

/gustav

>>> shamil at users.mns.ru 09-01-2006 16:24:01 >>>
> It was the line with Debug.Print (left in the production code) that caused
the crash!
I did misinterpret your advice, Gustav, sorry.

But was that just:

debug.print

i.e. debug.print of an empty line or it had some stuff to debug.print?

I guess the problem was with debug.print's parameters?

In the cases like Andy's the only way to find the problematic code is to use
detailed logging - simple text file I/O should be used for that with file
open for append/close for every log record write...

To find a stable workaround the source VBA code line(s) resulting in the GPF
should be found - trying to "solve" the problem with "blind" installation of
different updates is a pure guessing/gambling...

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Monday, January 09, 2006 5:50 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Hi Shamil
>
> It was the line with Debug.Print (left in the production code) that caused
the crash!
>
> /gustav
>
> >>> Gustav at cactus.dk 09-01-2006 14:23:14 >>>
>
> I had a similar thing which I tracked down to a line with Debug.Print.
Commented this out and the code ran, believe it or not.




From jmhecht at earthlink.net  Mon Jan  9 10:14:30 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Mon, 9 Jan 2006 08:14:30 -0800
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <s3c239b5.009@cactus.dk>
Message-ID: <003401c61537$c5e14fe0$6701a8c0@HPLaptop>

Gustav,

I may have. I will go back and read it now.

Thanks

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Gustav Brock
Sent: Monday, January 09, 2006 1:23 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Date Diff Help It cant be this hard

Hi Joe

Well, it is hard; and you missed my posting from 2006-01-07
somehow:

Hi Joe

This requires a little more than a line of code.
Study here for a reliable solution:

 
http://databaseadvisors.com/mailman/htdig/accessd/2003-Augus
t/011575.html 

/gustav

>>> jmhecht at earthlink.net 09-01-2006 05:55:57 >>>

What dumb thing did I forget now?


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



From artful at rogers.com  Mon Jan  9 10:28:20 2006
From: artful at rogers.com (Arthur Fuller)
Date: Mon, 9 Jan 2006 11:28:20 -0500
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <001201c614d6$9cbda930$6701a8c0@HPLaptop>
Message-ID: <025001c61539$b413bf30$8e01a8c0@rock>

Here is a solution for you. You have stumbled upon a couple of croquet hoops
in date calculations, but here is a solution for you. First, using my
birthday as the value (rather than your control name), look at these
results:
? datediff("yyyy", #11/15/1947#, Date())
 59 
Which is wrong: I am 58 not 59: the problem is that the above examines only
the year.
? datediff("d", #11/15/1947#, Date())
 21240 
Which correctly returns the number of days between my birthdate and today.
? 21240 / 365.26
 58.1503586486339
This divides the number of days by the number of days in a year (the .26 is
for leap years and handles them correctly).
Now just Int() that value and you get the correct number of years. So,
ungainly as it is, the formula becomes:
? Int(DateDiff("d", #11/15/1947#, Date())/365.26)
There may be a simpler and foolproof way, but until someone presents it, you
can reliably use this. I would suggest creating a function AgeInYears() into
which you pass the DateOfBirth. Then when someone presents a simpler way to
do it, you can just change the content of the function.
HTH,
Arthur




From DWUTKA at marlow.com  Mon Jan  9 10:30:30 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Mon, 9 Jan 2006 10:30:30 -0600 
Subject: [AccessD] email validation
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD4F9@main2.marlow.com>

Sure, that's easy though, just send them a registration email.  When the
user signs up, tell them an email was sent to them to finish the
registration.  That will verify the email is their's.

Drew

-----Original Message-----
From: Arthur Fuller [mailto:artful at rogers.com]
Sent: Sunday, January 08, 2006 5:47 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] email validation


I would like to learn more about this. In the problem domain that I faced, I
would want not only to know whether the email address is valid, but whether
you received my send, because DWUTKA at marlow.com and DDWUTKA at marlow.com might
both be valid, and I need to make sure that the mail goes to you not him.
Which implies that I would like a response immediately. I realize there are
problems such as hotmail and gmail's relatively show times, not to mention
an ISP's mail down. But still...
A.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: January 8, 2006 6:29 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] email validation

Technically, you could use TCP/IP to create an SMTP session to verify an
email address.  The SMTP protocol does verify whether an email is valid on
it's domain.

Drew

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


From Gustav at cactus.dk  Mon Jan  9 10:59:51 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 17:59:51 +0100
Subject: [AccessD] email validation
Message-ID: <s3c2a4a0.048@cactus.dk>

Hi Stuart

This is a good and valid point.

One purpose is to validate a typed input or a table with addresses for typing errors and malformatted strings.

Another is to validate a real-life e-mail address. This is extremely slow compared to string validation and may - as noted - fail for many other reasons than typing errors. Thus, your purpose for validating the address must be clearly defined and so must the actions to be taken in case of an error. These will be different for, say, the situation where you wish to send an email _now_ and the situation where you wish to send something to this address some day in the future; in this case you could wait for a response (accept) from the mail server for the usual up to 48 hours.

/gustav

>>> stuart at lexacorp.com.pg 08-01-2006 23:52:11 >>>
Are we talking about code to determine whether the format of a particular 
string is valid as an email address or whether  a particular email address 
resolves to a real mailbox?




From cfoust at infostatsystems.com  Mon Jan  9 11:01:29 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 9 Jan 2006 09:01:29 -0800
Subject: [AccessD] Naming conventions
Message-ID: <F55048AF7E974F429BB24597D7355EEABEE9@INFOSERVER04.infostat.local>

I rename them all, as I create them.  I hate trying to sort out Text121
or Label57 when I'm trying to find something.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Friday, January 06, 2006 7:10 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Naming conventions


Who renames all controls in Access?

 

Who just renames controls that you write code against?

 

Joe Hecht

jmhecht at earthlink.net

 

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


From john at winhaven.net  Mon Jan  9 11:14:42 2006
From: john at winhaven.net (John Bartow)
Date: Mon, 9 Jan 2006 11:14:42 -0600
Subject: [AccessD] Naming conventions
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABEE9@INFOSERVER04.infostat.local>
Message-ID: <00a501c61540$2f54ba90$7601a8c0@ScuzzPaq>

Same here. I have used Shamil's add-on to assist with this. 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust

I rename them all, as I create them.  I hate trying to sort out Text121 or
Label57 when I'm trying to find something.



From DWUTKA at marlow.com  Mon Jan  9 11:10:59 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Mon, 9 Jan 2006 11:10:59 -0600 
Subject: [AccessD] Naming conventions
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD4FD@main2.marlow.com>

I rename everything but 'extra' labels.  ie, if I put a label in place, I
have it renamed.  If I put a textbox in place, I will not rename the
associated label unless I'm going to mess with it in code.  Of course, I
tend to write more VB/ASP stuff, so my techniques in Access are used
minimally.

Drew

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Monday, January 09, 2006 11:01 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Naming conventions


I rename them all, as I create them.  I hate trying to sort out Text121
or Label57 when I'm trying to find something.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Friday, January 06, 2006 7:10 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Naming conventions


Who renames all controls in Access?

 

Who just renames controls that you write code against?

 

Joe Hecht

jmhecht at earthlink.net

 

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


From Gustav at cactus.dk  Mon Jan  9 11:24:27 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 18:24:27 +0100
Subject: [AccessD] Date Diff Help It cant be this hard
Message-ID: <s3c2aa64.049@cactus.dk>

Hi Arthur

I love the word "reliably" ...
Try this:

? Int(DateDiff("d", #1/9/1955#, Date())/365.26)
? Int(DateDiff("d", #1/9/1956#, Date())/365.26)

It would be nice but there is no simple and foolproof way.
If age calculation is for birthday greeting cards to the boys in the football club, who cares (well, I could think of some, but the World would still stand), but if you need an age for an insurance case it has to be right. Not to forget that more than 3 mio. people are born on the 29th. February ...

/gustav


>>> artful at rogers.com 09-01-2006 17:28:20 >>>
Here is a solution for you. You have stumbled upon a couple of croquet hoops
in date calculations, but here is a solution for you. First, using my
birthday as the value (rather than your control name), look at these
results:
? datediff("yyyy", #11/15/1947#, Date())
 59 
Which is wrong: I am 58 not 59: the problem is that the above examines only
the year.
? datediff("d", #11/15/1947#, Date())
 21240 
Which correctly returns the number of days between my birthdate and today.
? 21240 / 365.26
 58.1503586486339
This divides the number of days by the number of days in a year (the .26 is
for leap years and handles them correctly).
Now just Int() that value and you get the correct number of years. So,
ungainly as it is, the formula becomes:
? Int(DateDiff("d", #11/15/1947#, Date())/365.26)
There may be a simpler and foolproof way, but until someone presents it, you
can reliably use this. I would suggest creating a function AgeInYears() into
which you pass the DateOfBirth. Then when someone presents a simpler way to
do it, you can just change the content of the function.
HTH,
Arthur




From dw-murphy at cox.net  Mon Jan  9 11:35:02 2006
From: dw-murphy at cox.net (Doug Murphy)
Date: Mon, 9 Jan 2006 09:35:02 -0800
Subject: [AccessD] Weird form color problem
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABEE9@INFOSERVER04.infostat.local>
Message-ID: <000001c61543$05b75190$0200a8c0@murphyf3vdfepi>

Folks,

We have an application that has been installed on several hundred computers.
We were recently visiting a client and helped to put the application on her
laptop.  When opened the forms in the app. were not in the color that was
set at design time and the text boxes that have their background set to
transparent, and borders invisible were back to white background and normal
borders.  This is an mde file.  When we designed the app we set all forms
and controls to non windows colors so that if the user sets their windows
preferences to some non-standard color set it does not impact our
application.  The monitor on the computer displays all colors and pictures
correctly.  The only thing I can think of that might cause this behavior is
that some windows or Office file has been corrupted.

Have any of you seen this type of behavior and if so do you know what the
cause is?

The laptop was a year old Dell with Windows XP Home.

Thanks in advance.

Doug



From shamil at users.mns.ru  Mon Jan  9 11:58:38 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Mon, 9 Jan 2006 20:58:38 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <s3c296ea.043@cactus.dk>
Message-ID: <00b901c61546$52f01e80$6401a8c0@fincomplex.spb.ru>

> No, it was a simple line like
>   Debug.Print "Records:", lngRecordCount
Well, it looks simple but it implicitly uses Long to String conversion, it
does use tabbed formatting of output etc.
Did you try to comment and to replace it with just

Debug.print

?

It may happen VBA didn't compile/execute lngRecordCount assignment code line
at all because you commented out the only(?) line where this assignment was
used etc.

<<<
so I just commented it out. Still wondering.
>>>
Yes, it happens sometimes - this "automagical" bug fixing.

But I'm usually trying to avoid that by any means and to find the real cause
of the
troubles for me and my customers to sleep well :)

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Monday, January 09, 2006 7:00 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Hi Shamil
>
> No problem.
>
> No, it was a simple line like
>
>   Debug.Print "Records:", lngRecordCount
>
> which "can't" fail. But it did.
> However, I did not do the import-to-new-thing which might have cured the
issue. In production code no Debug.Print is needed, so I just commented it
out. Still wondering.
>
> /gustav
>
> >>> shamil at users.mns.ru 09-01-2006 16:24:01 >>>
> > It was the line with Debug.Print (left in the production code) that
caused
> the crash!
> I did misinterpret your advice, Gustav, sorry.
>
> But was that just:
>
> debug.print
>
> i.e. debug.print of an empty line or it had some stuff to debug.print?
>
> I guess the problem was with debug.print's parameters?
>
> In the cases like Andy's the only way to find the problematic code is to
use
> detailed logging - simple text file I/O should be used for that with file
> open for append/close for every log record write...
>
> To find a stable workaround the source VBA code line(s) resulting in the
GPF
> should be found - trying to "solve" the problem with "blind" installation
of
> different updates is a pure guessing/gambling...
>
> Shamil
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Monday, January 09, 2006 5:50 PM
> Subject: Re: [AccessD] Access97 on W2000 crashes
>
>
> > Hi Shamil
> >
> > It was the line with Debug.Print (left in the production code) that
caused
> the crash!
> >
> > /gustav
> >
> > >>> Gustav at cactus.dk 09-01-2006 14:23:14 >>>
> >
> > I had a similar thing which I tracked down to a line with Debug.Print.
> Commented this out and the code ran, believe it or not.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Mon Jan  9 11:55:42 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 18:55:42 +0100
Subject: [AccessD] Weird form color problem
Message-ID: <s3c2b1b4.050@cactus.dk>

Hi Doug

It might be a Dell issue (we've seen many strange things on Dells, though not this). 
However, try to, if you are allowed to:

Check for graphic driver update.
Change graphic resolution, run the app, change resolution back.
Switch to another "Theme"
Switch to "Classic view" - like Win2000
Switch to same resolution but fewer colours

/gustav

>>> dw-murphy at cox.net 09-01-2006 18:35:02 >>>
Folks,

We have an application that has been installed on several hundred computers.
We were recently visiting a client and helped to put the application on her
laptop.  When opened the forms in the app. were not in the color that was
set at design time and the text boxes that have their background set to
transparent, and borders invisible were back to white background and normal
borders.  This is an mde file.  When we designed the app we set all forms
and controls to non windows colors so that if the user sets their windows
preferences to some non-standard color set it does not impact our
application.  The monitor on the computer displays all colors and pictures
correctly.  The only thing I can think of that might cause this behavior is
that some windows or Office file has been corrupted.

Have any of you seen this type of behavior and if so do you know what the
cause is?

The laptop was a year old Dell with Windows XP Home.

Thanks in advance.

Doug




From Gustav at cactus.dk  Mon Jan  9 12:03:23 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 09 Jan 2006 19:03:23 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c2b39d.051@cactus.dk>

Hi Shamil

You are absolutely right. But, you know, this app was developed by someone else and I really didn't feel that much for it. I was happy just to be able to track down this weird bug. The budget didn't leave room for fun, so ... 
Will I be punished in the next life? Who knows.

/gustav

>>> shamil at users.mns.ru 09-01-2006 18:58:38 >>>
> No, it was a simple line like
>   Debug.Print "Records:", lngRecordCount
Well, it looks simple but it implicitly uses Long to String conversion, it
does use tabbed formatting of output etc.
Did you try to comment and to replace it with just

Debug.print

?

It may happen VBA didn't compile/execute lngRecordCount assignment code line
at all because you commented out the only(?) line where this assignment was
used etc.

<<<
so I just commented it out. Still wondering.
>>>
Yes, it happens sometimes - this "automagical" bug fixing.

But I'm usually trying to avoid that by any means and to find the real cause of the
troubles for me and my customers to sleep well :)

Shamil




From jwcolby at ColbyConsulting.com  Mon Jan  9 12:27:09 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 9 Jan 2006 13:27:09 -0500
Subject: [AccessD] Print various document types from Access
Message-ID: <000901c6154a$4fa27d50$7000a8c0@ColbyM6805>

My client currently opens a directory, selects a bunch of files, and from
explorer's right click menu clicks "Print".  The files are sent directly to
the printer.  In fact an instance of the object that "handles" the object
opens and somehow causes it to send to the printer.  Is there any way to use
that functionality from inside Access?  

Try it yourself.  Go to a directory, select a document (a word doc for
instance), right click to get the context menu, click "Print" and watch
closely, you will see Windows open Word, send the doc to the printer (the
default printer for the machine) and then close Word again.  This works for
Office apps, for Tiffs (with a registered viewer) and for PDF files (with
the registered viewer) although it does not close the PDF viewer when
finished for some reason.

I need to know how to call whatever it is that the print menu item calls,
passing in the pathed document name in order to print the object.  Has
anyone done this?

John W. Colby
www.ColbyConsulting.com 




From jwelz at hotmail.com  Mon Jan  9 13:46:35 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Mon, 09 Jan 2006 12:46:35 -0700
Subject: [AccessD] Print various document types from Access
In-Reply-To: <000901c6154a$4fa27d50$7000a8c0@ColbyM6805>
Message-ID: <BAY113-F38F44FD9EF1B9845CA6145A1220@phx.gbl>

ShellExecute

http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/dnarvb4/html/msdn_shelexec.asp

I have a mult-select list box showing the files and let the user click print 
after selecting 1 or more files.


Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "John Colby" <jwcolby at colbyconsulting.com>
>>
>My client currently opens a directory, selects a bunch of files, and from
>explorer's right click menu clicks "Print".  The files are sent directly to
>the printer.  In fact an instance of the object that "handles" the object
>opens and somehow causes it to send to the printer.  Is there any way to 
>use
>that functionality from inside Access?
>
>Try it yourself.  Go to a directory, select a document (a word doc for
>instance), right click to get the context menu, click "Print" and watch
>closely, you will see Windows open Word, send the doc to the printer (the
>default printer for the machine) and then close Word again.  This works for
>Office apps, for Tiffs (with a registered viewer) and for PDF files (with
>the registered viewer) although it does not close the PDF viewer when
>finished for some reason.
>
>I need to know how to call whatever it is that the print menu item calls,
>passing in the pathed document name in order to print the object.  Has
>anyone done this?
>
>John W. Colby
>www.ColbyConsulting.com




From reuben at gfconsultants.com  Mon Jan  9 13:51:04 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Mon, 9 Jan 2006 14:51:04 -0500
Subject: [AccessD] A2K - Unzip  and append from CD
Message-ID: <DPEKLCIHBOJKCKJECLCPEEHBDAAA.reuben@gfconsultants.com>

I need to append data to a table in Access.

However, the data is in a zipped txt file on a CD.

Anyone, have a way to allow the user to browse to the proper file, unzip it,
and insert the data into Access in one motion?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017






From andy at minstersystems.co.uk  Mon Jan  9 14:26:16 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Mon, 9 Jan 2006 20:26:16 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <s3c27c7a.029@cactus.dk>
Message-ID: <000001c6155a$f13db1b0$6caf0c54@minster33c3r25>

Well I've moved on but not solved the problem. Importing everything into a
new mdb didn't do it, so I decided to see if WXP had the same problem. The
answer was almost but not quite. It didn't give the error message, instead
it just dropped out of Access clean as a whistle - no meesage, no nothing.
So, I reckon, same problem just looks different under XP. Now I've come home
to my own XP machine and run the app and no sign of a problem. I now have to
think - why does an XP machine at work fail but not mine here? Would it be
reasonable to think it's a DLL issue? And could the following be a factor?
At work I long ago created a distributable version on the network so we
could use Runtime. So even though we later installed full Access everywhere
we still install from the network Setup and use /Runtime. At home I've never
done that. It's not the /Runtime itself cos I've tried without it, but does
the fact that the MDB is installed by a distributable runtime setup mean
that it's using different DLL's than a version just running under a normal
Access installation? I'm sure I've explained that badly, but the nub is: a)
does anyone know how I can establish a full list of DLLs involved in running
the MDB, and b) how can I easily compare versions of said DLLs on two
machines?


-- Andy Lacey
http://www.minstersystems.co.uk 



> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gustav Brock
> Sent: 09 January 2006 14:08
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> Hi Andy
> 
> Yes, I see the problem. 
> But the import thing - if it should be the cure - should 
> really be a one-timer. If it works, proceed evolution on the 
> fresh version as it should work on W98 as well.
> 
> /gustav
> 
> >>> andy at minstersystems.co.uk 09-01-2006 14:50:04 >>>
> Mmm, well there may be a Debug.Print around in a called 
> routine somewhere I guess. I'll take a look. I've decomp'd 
> and recomp'd on the W2K machine but not done the new MDB 
> thing. I could try but it'd be a nightmare scenario. The MDB 
> is in constant evolution and I couldn't contemplate having to 
> do that every time. Madre mia! Still, I guess it'd be worth 
> knowing if it cures the problem. Thanks Gustav. Any other 
> suggestions welcomed (very, very much).
> 
> --
> Andy Lacey
> http://www.minstersystems.co.uk 
> 
> 
> 
> 
> --------- Original Message --------
> From: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Access97 on W2000 crashes
> Date: 09/01/06 13:24
> 
> 
> Hi Andy
> 
> I had a similar thing which I tracked down to a line with 
> Debug.Print. Commented this out and the code ran, believe it 
> or not. However, that was not intermittent but consistent.
> 
> Have you been through the usual tools: decompile and 
> recompile on Win2000? Or - still on Win2000 - import all 
> objects in a new file?
> 
> /gustav
> 
> >>> andy at minstersystems.co.uk 09-01-2006 14:07:32 >>>
> Help guys
> 
> I have this Access 97 MDB (FE and BE both A97) which has been 
> running for years, mostly on W98 but also for some time on 
> W2K. Last week something new happened. 2 users who were 
> previously on W98 went to W2K. They use a part of the system 
> which others don't, or at least they try to but when they do 
> it regularly crashes with:
> 
> "Msaccess.exe has generated errors and will be closed by 
> Windows. You will need to restart the program. An error log 
> is being created."
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From carbonnb at gmail.com  Mon Jan  9 14:43:07 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Mon, 9 Jan 2006 15:43:07 -0500
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <000001c6155a$f13db1b0$6caf0c54@minster33c3r25>
References: <s3c27c7a.029@cactus.dk>
	<000001c6155a$f13db1b0$6caf0c54@minster33c3r25>
Message-ID: <e04a6c920601091243k2d7b34a1k@mail.gmail.com>

On 09/01/06, Andy Lacey <andy at minstersystems.co.uk> wrote:
> Well I've moved on but not solved the problem. Importing everything into a
> new mdb didn't do it, so I decided to see if WXP had the same problem. The
> answer was almost but not quite. It didn't give the error message, instead
> it just dropped out of Access clean as a whistle - no meesage, no nothing.
> So, I reckon, same problem just looks different under XP. Now I've come home
> to my own XP machine and run the app and no sign of a problem. I now have to
> think - why does an XP machine at work fail but not mine here? Would it be
> reasonable to think it's a DLL issue? And could the following be a factor?
> At work I long ago created a distributable version on the network so we
> could use Runtime. So even though we later installed full Access everywhere
> we still install from the network Setup and use /Runtime. At home I've never
> done that. It's not the /Runtime itself cos I've tried without it, but does
> the fact that the MDB is installed by a distributable runtime setup mean
> that it's using different DLL's than a version just running under a normal
> Access installation? I'm sure I've explained that badly, but the nub is: a)
> does anyone know how I can establish a full list of DLLs involved in running
> the MDB, and b) how can I easily compare versions of said DLLs on two
> machines?

Something about this is bringing up something from the fuzzy recesses
of the grey matter.

It sounds like it may be a Jet or MDAC issue.

You can get the MDAC Utility: Component Checker from:

http://www.microsoft.com/downloads/details.aspx?FamilyID=8f0a8df6-4a21-4b43-bf53-14332ef092c9&DisplayLang=en

This will let you see what MDAC version is installed.

I think my issue was my dev pc had Jet SP6 and the desktops it was
deployed to had Jet SP3. Something along those lines.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From andy at minstersystems.co.uk  Mon Jan  9 15:11:36 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Mon, 9 Jan 2006 21:11:36 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <e04a6c920601091243k2d7b34a1k@mail.gmail.com>
Message-ID: <000501c61561$468c2b00$6caf0c54@minster33c3r25>

Thanks Bryan. I installed Jet SP3 on all machines so I'd have thought that
was ok. The MDAC checker's great. Could do with something for Access
components now. Anyone?

-- Andy Lacey
http://www.minstersystems.co.uk 


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Bryan Carbonnell
> Sent: 09 January 2006 20:43
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> On 09/01/06, Andy Lacey <andy at minstersystems.co.uk> wrote:
> > Well I've moved on but not solved the problem. Importing everything 
> > into a new mdb didn't do it, so I decided to see if WXP had 
> the same 
> > problem. The answer was almost but not quite. It didn't 
> give the error 
> > message, instead it just dropped out of Access clean as a 
> whistle - no 
> > meesage, no nothing. So, I reckon, same problem just looks 
> different 
> > under XP. Now I've come home to my own XP machine and run 
> the app and 
> > no sign of a problem. I now have to think - why does an XP 
> machine at 
> > work fail but not mine here? Would it be reasonable to think it's a 
> > DLL issue? And could the following be a factor? At work I long ago 
> > created a distributable version on the network so we could use 
> > Runtime. So even though we later installed full Access 
> everywhere we 
> > still install from the network Setup and use /Runtime. At home I've 
> > never done that. It's not the /Runtime itself cos I've 
> tried without 
> > it, but does the fact that the MDB is installed by a distributable 
> > runtime setup mean that it's using different DLL's than a 
> version just 
> > running under a normal Access installation? I'm sure I've explained 
> > that badly, but the nub is: a) does anyone know how I can 
> establish a 
> > full list of DLLs involved in running the MDB, and b) how 
> can I easily 
> > compare versions of said DLLs on two machines?
> 
> Something about this is bringing up something from the fuzzy 
> recesses of the grey matter.
> 
> It sounds like it may be a Jet or MDAC issue.
> 
> You can get the MDAC Utility: Component Checker from:
> 
> http://www.microsoft.com/downloads/details.aspx?FamilyID=8f0a8
df6-4a21-4b43-bf53-14332ef092c9&DisplayLang=en

This will let you see what MDAC version is installed.

I think my issue was my dev pc had Jet SP6 and the desktops it was deployed
to had Jet SP3. Something along those lines.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well preserved
body, but rather to skid in sideways, totally worn out, shouting "What a
great ride!"
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From lmrazek at lcm-res.com  Mon Jan  9 15:16:36 2006
From: lmrazek at lcm-res.com (Lawrence Mrazek)
Date: Mon, 9 Jan 2006 15:16:36 -0600
Subject: [AccessD] Report Summing Help
In-Reply-To: <e04a6c920601091243k2d7b34a1k@mail.gmail.com>
Message-ID: <070e01c61561$f9cf9620$036fa8c0@hplaptop>

Hi:

I have a report comparing previous year data with current year data. Let's
assume that the report was run for period 4, which included everything
Jan-March data:

Month:	PrevYrData	CurrYrData
Jan		10		10
Feb		20		10
Mar		10		10
Apr		10		0
May		10		0
Jun		10		0
Jul		10		0
Aug		10		0
Sept		10		0
Oct		10		0
Nov		10		0
Dec		10		0

Totals YTD	40		30 (I need it to do this)
Totals	130		30	 

I'd like the report to be able to calculate the YTD comparison totals, that
is, if we ran the report for the first 4 months, it would automatically
create YTD totals for the previous year for the first 4 months (instead of
calculating for all 12 months). 

Any ideas on how to approach this? This is generated from data off a
mainframe, so I don't have a lot of control over the format and fields. 

Thanks in advance.

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com
lmrazek at lcm-res.com
ph. 314-432-5886
fx. 314-432-3304





From Jim.Hale at FleetPride.com  Mon Jan  9 15:36:37 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Mon, 9 Jan 2006 15:36:37 -0600 
Subject: [AccessD] Report Summing Help
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD959@corp-es01.fleetpride.com>

One way to do it would be to create a 2 field table where field 1 is a
number from 1 to 12 representing the month. Field two is the text name of
the month Jan, Feb, Mar etc. Join this table with your data table. In the
query grid select the prevyrdata and curryrdata fields and the new month
number field. Select groupby but change the month number field to a where
clause. in the criteria place >=3. The result should be a two field record
with the totals you want. HTH
Jim Hale 

-----Original Message-----
From: Lawrence Mrazek [mailto:lmrazek at lcm-res.com]
Sent: Monday, January 09, 2006 3:17 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Report Summing Help


Hi:

I have a report comparing previous year data with current year data. Let's
assume that the report was run for period 4, which included everything
Jan-March data:

Month:	PrevYrData	CurrYrData
Jan		10		10
Feb		20		10
Mar		10		10
Apr		10		0
May		10		0
Jun		10		0
Jul		10		0
Aug		10		0
Sept		10		0
Oct		10		0
Nov		10		0
Dec		10		0

Totals YTD	40		30 (I need it to do this)
Totals	130		30	 

I'd like the report to be able to calculate the YTD comparison totals, that
is, if we ran the report for the first 4 months, it would automatically
create YTD totals for the previous year for the first 4 months (instead of
calculating for all 12 months). 

Any ideas on how to approach this? This is generated from data off a
mainframe, so I don't have a lot of control over the format and fields. 

Thanks in advance.

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com
lmrazek at lcm-res.com
ph. 314-432-5886
fx. 314-432-3304



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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From shamil at users.mns.ru  Mon Jan  9 15:53:31 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 10 Jan 2006 00:53:31 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <000001c6155a$f13db1b0$6caf0c54@minster33c3r25>
Message-ID: <004801c61567$3216d610$6401a8c0@fincomplex.spb.ru>

Andy,

Do you have just one front-end program mdb database or this mdb refers to
the other (library) .mdb/.mde databases?
Do you haev your front-end program mdb database's code compiled and saved?

Shamil

P.S. I still hope you can solve the problem without investigating the list
of loaded .dlls etc. but if you will need that here is the code you can use:

http://www.vbaccelerator.com/home/VB/Tips/Getting_Process_Information_Using_PSAPI/VB_PSAPI_Demonstration.asp

combined with GetFileVersionInfo API call...

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Monday, January 09, 2006 11:26 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Well I've moved on but not solved the problem. Importing everything into a
> new mdb didn't do it, so I decided to see if WXP had the same problem. The
> answer was almost but not quite. It didn't give the error message, instead
> it just dropped out of Access clean as a whistle - no meesage, no nothing.
> So, I reckon, same problem just looks different under XP. Now I've come
home
> to my own XP machine and run the app and no sign of a problem. I now have
to
> think - why does an XP machine at work fail but not mine here? Would it be
> reasonable to think it's a DLL issue? And could the following be a factor?
> At work I long ago created a distributable version on the network so we
> could use Runtime. So even though we later installed full Access
everywhere
> we still install from the network Setup and use /Runtime. At home I've
never
> done that. It's not the /Runtime itself cos I've tried without it, but
does
> the fact that the MDB is installed by a distributable runtime setup mean
> that it's using different DLL's than a version just running under a normal
> Access installation? I'm sure I've explained that badly, but the nub is:
a)
> does anyone know how I can establish a full list of DLLs involved in
running
> the MDB, and b) how can I easily compare versions of said DLLs on two
> machines?
>
>
> -- Andy Lacey
> http://www.minstersystems.co.uk
>
>
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Gustav Brock
> > Sent: 09 January 2006 14:08
> > To: accessd at databaseadvisors.com
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > Hi Andy
> >
> > Yes, I see the problem.
> > But the import thing - if it should be the cure - should
> > really be a one-timer. If it works, proceed evolution on the
> > fresh version as it should work on W98 as well.
> >
> > /gustav
> >
> > >>> andy at minstersystems.co.uk 09-01-2006 14:50:04 >>>
> > Mmm, well there may be a Debug.Print around in a called
> > routine somewhere I guess. I'll take a look. I've decomp'd
> > and recomp'd on the W2K machine but not done the new MDB
> > thing. I could try but it'd be a nightmare scenario. The MDB
> > is in constant evolution and I couldn't contemplate having to
> > do that every time. Madre mia! Still, I guess it'd be worth
> > knowing if it cures the problem. Thanks Gustav. Any other
> > suggestions welcomed (very, very much).
> >
> > --
> > Andy Lacey
> > http://www.minstersystems.co.uk
> >
> >
> >
> >
> > --------- Original Message --------
> > From: "Access Developers discussion and problem solving"
> > <accessd at databaseadvisors.com>
> > To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> > Date: 09/01/06 13:24
> >
> >
> > Hi Andy
> >
> > I had a similar thing which I tracked down to a line with
> > Debug.Print. Commented this out and the code ran, believe it
> > or not. However, that was not intermittent but consistent.
> >
> > Have you been through the usual tools: decompile and
> > recompile on Win2000? Or - still on Win2000 - import all
> > objects in a new file?
> >
> > /gustav
> >
> > >>> andy at minstersystems.co.uk 09-01-2006 14:07:32 >>>
> > Help guys
> >
> > I have this Access 97 MDB (FE and BE both A97) which has been
> > running for years, mostly on W98 but also for some time on
> > W2K. Last week something new happened. 2 users who were
> > previously on W98 went to W2K. They use a part of the system
> > which others don't, or at least they try to but when they do
> > it regularly crashes with:
> >
> > "Msaccess.exe has generated errors and will be closed by
> > Windows. You will need to restart the program. An error log
> > is being created."
> >
> >
> > -- 
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> >
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From andy at minstersystems.co.uk  Mon Jan  9 16:03:24 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Mon, 9 Jan 2006 22:03:24 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <004801c61567$3216d610$6401a8c0@fincomplex.spb.ru>
Message-ID: <000801c61568$83060630$6caf0c54@minster33c3r25>

Thanks for the link Shamil, I'll investigate.

Yes there's just one (v large) FE. No library MDBs or MDEs.

Andy

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Shamil Salakhetdinov
> Sent: 09 January 2006 21:54
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> Andy,
> 
> Do you have just one front-end program mdb database or this 
> mdb refers to the other (library) .mdb/.mde databases? Do you 
> haev your front-end program mdb database's code compiled and saved?
> 
> Shamil
> 
> P.S. I still hope you can solve the problem without 
> investigating the list of loaded .dlls etc. but if you will 
> need that here is the code you can use:
> 
> http://www.vbaccelerator.com/home/VB/Tips/Getting_Process_Info
> rmation_Using_PSAPI/VB_PSAPI_Demonstration.asp
> 
> combined with GetFileVersionInfo API call...
> 
> ----- Original Message ----- 
> From: "Andy Lacey" <andy at minstersystems.co.uk>
> To: "'Access Developers discussion and problem solving'" 
> <accessd at databaseadvisors.com>
> Sent: Monday, January 09, 2006 11:26 PM
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> > Well I've moved on but not solved the problem. Importing everything 
> > into a new mdb didn't do it, so I decided to see if WXP had 
> the same 
> > problem. The answer was almost but not quite. It didn't 
> give the error 
> > message, instead it just dropped out of Access clean as a 
> whistle - no 
> > meesage, no nothing. So, I reckon, same problem just looks 
> different 
> > under XP. Now I've come
> home
> > to my own XP machine and run the app and no sign of a 
> problem. I now 
> > have
> to
> > think - why does an XP machine at work fail but not mine 
> here? Would 
> > it be reasonable to think it's a DLL issue? And could the 
> following be 
> > a factor? At work I long ago created a distributable version on the 
> > network so we could use Runtime. So even though we later installed 
> > full Access
> everywhere
> > we still install from the network Setup and use /Runtime. 
> At home I've
> never
> > done that. It's not the /Runtime itself cos I've tried 
> without it, but
> does
> > the fact that the MDB is installed by a distributable runtime setup 
> > mean that it's using different DLL's than a version just 
> running under 
> > a normal Access installation? I'm sure I've explained that 
> badly, but 
> > the nub is:
> a)
> > does anyone know how I can establish a full list of DLLs involved in
> running
> > the MDB, and b) how can I easily compare versions of said 
> DLLs on two 
> > machines?
> >
> >
> > -- Andy Lacey
> > http://www.minstersystems.co.uk
> >
> >
> >
> > > -----Original Message-----
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav 
> > > Brock
> > > Sent: 09 January 2006 14:08
> > > To: accessd at databaseadvisors.com
> > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > >
> > >
> > > Hi Andy
> > >
> > > Yes, I see the problem.
> > > But the import thing - if it should be the cure - should 
> really be a 
> > > one-timer. If it works, proceed evolution on the fresh 
> version as it 
> > > should work on W98 as well.
> > >
> > > /gustav
> > >
> > > >>> andy at minstersystems.co.uk 09-01-2006 14:50:04 >>>
> > > Mmm, well there may be a Debug.Print around in a called routine 
> > > somewhere I guess. I'll take a look. I've decomp'd and 
> recomp'd on 
> > > the W2K machine but not done the new MDB thing. I could 
> try but it'd 
> > > be a nightmare scenario. The MDB is in constant evolution and I 
> > > couldn't contemplate having to do that every time. Madre 
> mia! Still, 
> > > I guess it'd be worth knowing if it cures the problem. Thanks 
> > > Gustav. Any other suggestions welcomed (very, very much).
> > >
> > > --
> > > Andy Lacey
> > > http://www.minstersystems.co.uk
> > >
> > >
> > >
> > >
> > > --------- Original Message --------
> > > From: "Access Developers discussion and problem solving" 
> > > <accessd at databaseadvisors.com>
> > > To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
> > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > > Date: 09/01/06 13:24
> > >
> > >
> > > Hi Andy
> > >
> > > I had a similar thing which I tracked down to a line with 
> > > Debug.Print. Commented this out and the code ran, believe 
> it or not. 
> > > However, that was not intermittent but consistent.
> > >
> > > Have you been through the usual tools: decompile and recompile on 
> > > Win2000? Or - still on Win2000 - import all objects in a new file?
> > >
> > > /gustav
> > >
> > > >>> andy at minstersystems.co.uk 09-01-2006 14:07:32 >>>
> > > Help guys
> > >
> > > I have this Access 97 MDB (FE and BE both A97) which has been 
> > > running for years, mostly on W98 but also for some time 
> on W2K. Last 
> > > week something new happened. 2 users who were previously 
> on W98 went 
> > > to W2K. They use a part of the system which others don't, or at 
> > > least they try to but when they do it regularly crashes with:
> > >
> > > "Msaccess.exe has generated errors and will be closed by Windows. 
> > > You will need to restart the program. An error log is being 
> > > created."
> > >
> > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> > >
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From stuart at lexacorp.com.pg  Mon Jan  9 16:22:12 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 10 Jan 2006 08:22:12 +1000
Subject: [AccessD] Date Diff Help It cant be this hard
In-Reply-To: <s3c2aa64.049@cactus.dk>
Message-ID: <43C36EB4.13745.3CE8D69@stuart.lexacorp.com.pg>

On 9 Jan 2006 at 18:24, Gustav Brock wrote:

> Hi Arthur
> 
> I love the word "reliably" ...
> Try this:
> 
> ? Int(DateDiff("d", #1/9/1955#, Date())/365.26)
> ? Int(DateDiff("d", #1/9/1956#, Date())/365.26)
> 
> It would be nice but there is no simple and foolproof way.

Can you come up with an example that breaks the code I posted ealier?

Datediff("yyyy",dateborn,datenow) + _
(DatePart("y", datenow) < DatePart("y",dateborn))

-- 
Stuart




From shamil at users.mns.ru  Mon Jan  9 16:42:58 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 10 Jan 2006 01:42:58 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <000801c61568$83060630$6caf0c54@minster33c3r25>
Message-ID: <001a01c6156e$11e5da60$6401a8c0@fincomplex.spb.ru>

> Yes there's just one (v large) FE. No library MDBs or MDEs.
OK, if this MDB is compiled and saved then when you run it on another PC
with other versions of referenced DLLs then it can/will get lost its
compiled state - I have had such problem a long ago with a large MS Access
frontend - and it did crash unexpectedly as in your case. The solution was
to compile it into .mde...

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 1:03 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Thanks for the link Shamil, I'll investigate.
>
> Yes there's just one (v large) FE. No library MDBs or MDEs.
>
> Andy
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Shamil Salakhetdinov
> > Sent: 09 January 2006 21:54
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > Andy,
> >
> > Do you have just one front-end program mdb database or this
> > mdb refers to the other (library) .mdb/.mde databases? Do you
> > haev your front-end program mdb database's code compiled and saved?
> >
> > Shamil
> >
> > P.S. I still hope you can solve the problem without
> > investigating the list of loaded .dlls etc. but if you will
> > need that here is the code you can use:
> >
> > http://www.vbaccelerator.com/home/VB/Tips/Getting_Process_Info
> > rmation_Using_PSAPI/VB_PSAPI_Demonstration.asp
> >
> > combined with GetFileVersionInfo API call...
> >
<<< tail skipped>>>



From accessd at shaw.ca  Mon Jan  9 16:55:18 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Mon, 09 Jan 2006 14:55:18 -0800
Subject: [AccessD] Himachi
In-Reply-To: <NDEALJOEGMMPCDKIFGNFKEIOHNAA.jimdettman@earthlink.net>
Message-ID: <004b01c6156f$c3393fe0$017ba8c0@xpserver>

Hi Jim:

This would be true for most beta products but Steve Gibson from www.grc.com
has been absolutely raving about the application. Though Steve is a bit of a
security fanatic he does know his stuff and hammers any programs that do not
match his high standards. When he thoroughly tests a product and then gives
it an A++, I have to assume quality.

Jim  

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: January 6, 2006 7:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Himachi

John,

<<This is a 1.0 (actually 0.9.9.9) product and of course many people just
don't touch first release products. >>

  Yeah, I'm in that category for the most part.  I found out a long time ago
that it just doesn't pay to be on that bleeding edge.

  The only time I'll use something new is if there is simply no other way to
get the job done.  But I make darn sure the client knows what were working
with and that we'll most likely have problems.

Jim.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
Sent: Friday, January 06, 2006 9:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi


>> A quick read through the FAQ's and Forums shows a pattern of problems.

You know, I can appreciate that.  However if you take a quick read through
the forums on Norton AV you would find the same.  Same for MacAfee, Zone
Alarm, Microsoft Office, WindowsXP... Do I make my point?  These are all
mature products that have been out for years and they all have "patterns of
problems".

This is a product still in Beta.  What it is is what it is.  They
acknowledge that there are problems, and they have a beta program just as
any other software manufacturer has. This guy is trying to solve a difficult
problem.  He has obviously spent a lot of time and effort on his product,
and his efforts continue.

This is a 1.0 (actually 0.9.9.9) product and of course many people just
don't touch first release products.  I do think that it a real, valid
product that has a marketplace, and that if it works for me, in my
particular circumstances, I will use it.  If I can't get it to work in a
given instance then obviously I won't use it there.  I can tell you that I
use Remote desktop where I can.  I have had instances where it just didn't
work, and I never discovered why.  Same with VNC.  I think this Hamachi
thingie is just another tool, which will work sometimes, and not in others.
When it does, it will solve some problems for me that I am trying to solve.

It doesn't matter to me whether you use it, obviously that is a decision
everyone makes for themselves.  But if "a pattern of problems" were to stop
us from using a product no valid program would ever gain a user base.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 9:00 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear Jim,
>> A quick read through the FAQ's and Forums shows a pattern of problems.

Yes, you are correct.  I thought the same when I read them, but I didn't
want to mention them as it might detract from the really important issue of
the Rootkit.

Overall, even though I am quite happy to take John's comments on board, I
will not be using it.  As I said before, it is a shame because it is such a
nice concept and one that would have solved a problem for me.

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: 06 January 2006 13:34
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Himachi


  I don't know about the root kit, but I'm not sure I'd use the software in
any case.

  A quick read through the FAQ's and Forums shows a pattern of problems.
That is not a surprise given that it's new software, but I don't know if
it's something I would use for a client at this point.

  It also doesn't appear to be as forgiving as stated.  I saw a couple of
posts that said "I had to open all UDP ports on my firewall to get it to
work".  I'd never do that at a clients.  So yes, while it will do a NAT
transversal, it's still highly dependent on the Firewall/Router
configuration for it to work properly.  At it currently doesn't work if the
network is restricted to ports 80/443 and using a web proxy.

  The last thing I'd be somewhat nervous about is that it uses obscure
Windows API functions to do it's job.  Given that their not typically used,
they have the potential to buggy.  I saw a few posts that said that when the
software was installed, it interfered with other adapters that were
installed on the system.

  Overall sounds like it needs to mature a bit more.  Neat idea though.

Jim.



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 8:15 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi


Thanks John,
That gives me some insight into it.  I am very wary of any mention of
Rootkits because once they are in, there is little or no chance of
discovering them, let alone removing them without a complete
re-installation.  It is a shame that they did not make mention of the fact
that this would happen right up front, then people could make an informed
decision before undertaking the installation and have prior warning before
the alert flashes on the screen.

>From what you have said, it does sound as if this particular program is
safe.

Many thanks

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 06 January 2006 12:51
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Reply,

Protection software mis-identifies software all the time.  It happens.
Hamachi installs a complete network layer because it is setting up a new
LAN.  How can I know that Hamachi isn't spyware or a trojan?  I can't.  How
do you know that any other program that you decide to use is not a Trojan?
You can't.  You have to Google the hell out of the company, look at user's
comments and just accept or not.

Hamachi has been in beta for well over a year.  There are entire lists for
users that play games over it (hundreds if not thousands - I didn't read
them all).  They are on beta release 9.9.9 (getting ready to release the
product).   This thing has been around, have literally 800,000 downloads (no
idea how many active users though).  The designer is a known security expert
from Canada who is releasing this product based on work he did as a
consultant for another company.  He is a known face, can be reached by
email, etc. etc.

Does this sound like a virus writer to you?

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Max Sherman
Sent: Friday, January 06, 2006 2:55 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Himachi

Dear List,
Just to let you know that when I downloaded and tried to install Himachi, my
protection software kicked in and said it was trying to install a ROOTKIT.
I then abandoned the install and immediately invoked my Restore to Previous
Version (I always create a new restore point before installing any
software).  I went to their Forum and FAQs and found very little on it to
give me any confidence about the Rootkit.  If you are unaware of the harm
that a Rootkit can do to your system, then I strongly suggest you look it
up.

For my part, I will not be using Himachi - shame as it sounded like a good
solution to a problem I had.

Regards
Max

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: 05 January 2006 20:01
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Himachi

If I can get this thing working I have several immediate applications for
it.  I have two different client companies that need a network between
dispersed locations, specifically so that they can do backups to remote
locations.  I am about to write a piece of code that organizes emails from
contractors into folders. It will strip off attached documents which are
equipment documentation, store them in an external hard disk (usb) and if I
can get this private network working, it will then also write to an
identical external hard disk at my client's home office so that all
documents are immediately backed up in two different physical locations.  If
the client picks up his email at home and runs the program, it will save the
documents to the home office drive, and then also to the drive in his
office.

I have been looking for a way to do this kind of thing that doesn't require
a Notwork guy to maintain the thing.  For it to work, my client has to be
able to set it up on the two machines.  An additional benefit is that I may
be able to set up remote desktop over this virtual network so that I can
support him.  This Hamachi might be just the ticket.

John W. Colby
www.ColbyConsulting.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Fred Hooper
Sent: Thursday, January 05, 2006 6:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT Super interesting options

There's a good discussion of hamachi at http://www.grc.com/securitynow.htm,
where they are also discussing other ways to do the same thing.

Fred Hooper

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


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

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


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


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


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

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


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



From dw-murphy at cox.net  Mon Jan  9 18:26:36 2006
From: dw-murphy at cox.net (Doug Murphy)
Date: Mon, 9 Jan 2006 16:26:36 -0800
Subject: [AccessD] Weird form color problem
In-Reply-To: <s3c2b1b4.050@cactus.dk>
Message-ID: <000001c6157c$8432af40$0200a8c0@murphyf3vdfepi>

Thank you Gustav,

This is our first problem, that we know of, with a Dell computer.  All of
our development is done on Dell's but not the Dell Laptop.  I'll try and
find one to test on.  I have not tried a graphics driver update but did play
with the computer settings with no improvement.  As I said, images are
rendered properly so it seemed to me that this might be an office issue.

Doug

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Monday, January 09, 2006 9:56 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Weird form color problem


Hi Doug

It might be a Dell issue (we've seen many strange things on Dells, though
not this). 
However, try to, if you are allowed to:

Check for graphic driver update.
Change graphic resolution, run the app, change resolution back. Switch to
another "Theme" Switch to "Classic view" - like Win2000 Switch to same
resolution but fewer colours

/gustav

>>> dw-murphy at cox.net 09-01-2006 18:35:02 >>>
Folks,

We have an application that has been installed on several hundred computers.
We were recently visiting a client and helped to put the application on her
laptop.  When opened the forms in the app. were not in the color that was
set at design time and the text boxes that have their background set to
transparent, and borders invisible were back to white background and normal
borders.  This is an mde file.  When we designed the app we set all forms
and controls to non windows colors so that if the user sets their windows
preferences to some non-standard color set it does not impact our
application.  The monitor on the computer displays all colors and pictures
correctly.  The only thing I can think of that might cause this behavior is
that some windows or Office file has been corrupted.

Have any of you seen this type of behavior and if so do you know what the
cause is?

The laptop was a year old Dell with Windows XP Home.

Thanks in advance.

Doug


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



From adtp at hotmail.com  Mon Jan  9 22:29:34 2006
From: adtp at hotmail.com (A.D.Tejpal)
Date: Tue, 10 Jan 2006 09:59:34 +0530
Subject: [AccessD] Print various document types from Access
References: <000901c6154a$4fa27d50$7000a8c0@ColbyM6805>
Message-ID: <BAY12-DAV3ED6763B5A53A4ED1727CCE250@phx.gbl>

    My sample db named PrintExternalFiles might be of interest to you. It is available at Rogers Access Library (other developers library). Link - http://www.rogersaccesslibrary.com

A.D.Tejpal
--------------

  ----- Original Message ----- 
  From: John Colby 
  To: 'Access Developers discussion and problem solving' 
  Sent: Monday, January 09, 2006 23:57
  Subject: [AccessD] Print various document types from Access


  My client currently opens a directory, selects a bunch of files, and from
  explorer's right click menu clicks "Print".  The files are sent directly to
  the printer.  In fact an instance of the object that "handles" the object
  opens and somehow causes it to send to the printer.  Is there any way to use
  that functionality from inside Access?  

  Try it yourself.  Go to a directory, select a document (a word doc for
  instance), right click to get the context menu, click "Print" and watch
  closely, you will see Windows open Word, send the doc to the printer (the
  default printer for the machine) and then close Word again.  This works for
  Office apps, for Tiffs (with a registered viewer) and for PDF files (with
  the registered viewer) although it does not close the PDF viewer when
  finished for some reason.

  I need to know how to call whatever it is that the print menu item calls,
  passing in the pathed document name in order to print the object.  Has
  anyone done this?

  John W. Colby
  www.ColbyConsulting.com 


From Bruce.Bruen at railcorp.nsw.gov.au  Mon Jan  9 22:41:24 2006
From: Bruce.Bruen at railcorp.nsw.gov.au (Bruen, Bruce)
Date: Tue, 10 Jan 2006 15:41:24 +1100
Subject: [AccessD] Print various document types from Access
Message-ID: <A546D78AF46A5C47B6D2D4B79821A8F713F506@EXCHVS1.rail.nsw.gov.au>

John,

>From memory, exporer "calls" Word using a command line option.  You can
look at these "commands" in the file associations for ".doc" etc in the
explorer "folder options" file types tab (actual location depends on
WinVer).

There is plenty of gumph on this type of Majik in the Win Tips and
Tricks websites/blogs/etc.  I don't use it so I don't remember anything
more specific.

bruce

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of A.D.Tejpal
Sent: Tuesday, 10 January 2006 3:30 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Print various document types from Access

    My sample db named PrintExternalFiles might be of interest to you.
It is available at Rogers Access Library (other developers library).
Link - http://www.rogersaccesslibrary.com

A.D.Tejpal
--------------

  ----- Original Message -----
  From: John Colby
  To: 'Access Developers discussion and problem solving' 
  Sent: Monday, January 09, 2006 23:57
  Subject: [AccessD] Print various document types from Access


  My client currently opens a directory, selects a bunch of files, and
from
  explorer's right click menu clicks "Print".  The files are sent
directly to
  the printer.  In fact an instance of the object that "handles" the
object
  opens and somehow causes it to send to the printer.  Is there any way
to use
  that functionality from inside Access?  

  Try it yourself.  Go to a directory, select a document (a word doc for
  instance), right click to get the context menu, click "Print" and
watch
  closely, you will see Windows open Word, send the doc to the printer
(the
  default printer for the machine) and then close Word again.  This
works for
  Office apps, for Tiffs (with a registered viewer) and for PDF files
(with
  the registered viewer) although it does not close the PDF viewer when
  finished for some reason.

  I need to know how to call whatever it is that the print menu item
calls,
  passing in the pathed document name in order to print the object.  Has
  anyone done this?

  John W. Colby
  www.ColbyConsulting.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




This e-mail and any attachments may contain confidential information that is intended solely for the use of the intended recipient and may be subject to copyright. If you receive this e-mail in error, please notify the sender immediately and delete the e-mail and its attachments from your system. You must not disclose, copy or use any part of this e-mail if you are not the intended recipient. Any opinion expressed in this e-mail and any attachments is not an opinion of RailCorp unless stated or apparent from its content. RailCorp is not responsible for any unauthorised alterations to this e-mail or any attachments. RailCorp will not incur any liability resulting directly or indirectly as a result of the recipient accessing any of the attached files that may contain a virus.


From lmrazek at lcm-res.com  Tue Jan 10 01:10:28 2006
From: lmrazek at lcm-res.com (Lawrence Mrazek)
Date: Tue, 10 Jan 2006 01:10:28 -0600
Subject: [AccessD] Report Summing Help
In-Reply-To: <6A6AA9DF57E4F046BDA1E273BDDB67727DD959@corp-es01.fleetpride.com>
Message-ID: <07a101c615b4$efea15b0$036fa8c0@hplaptop>

Thanks Jim:

I'm probably going to end up doing something like that; basically will
create a subreport with the YTD Totals. 

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com
lmrazek at lcm-res.com
ph. 314-432-5886
fx. 314-432-3304

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Monday, January 09, 2006 3:37 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Report Summing Help

One way to do it would be to create a 2 field table where field 1 is a
number from 1 to 12 representing the month. Field two is the text name of
the month Jan, Feb, Mar etc. Join this table with your data table. In the
query grid select the prevyrdata and curryrdata fields and the new month
number field. Select groupby but change the month number field to a where
clause. in the criteria place >=3. The result should be a two field record
with the totals you want. HTH Jim Hale 

-----Original Message-----
From: Lawrence Mrazek [mailto:lmrazek at lcm-res.com]
Sent: Monday, January 09, 2006 3:17 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Report Summing Help


Hi:

I have a report comparing previous year data with current year data. Let's
assume that the report was run for period 4, which included everything
Jan-March data:

Month:	PrevYrData	CurrYrData
Jan		10		10
Feb		20		10
Mar		10		10
Apr		10		0
May		10		0
Jun		10		0
Jul		10		0
Aug		10		0
Sept		10		0
Oct		10		0
Nov		10		0
Dec		10		0

Totals YTD	40		30 (I need it to do this)
Totals	130		30	 

I'd like the report to be able to calculate the YTD comparison totals, that
is, if we ran the report for the first 4 months, it would automatically
create YTD totals for the previous year for the first 4 months (instead of
calculating for all 12 months). 

Any ideas on how to approach this? This is generated from data off a
mainframe, so I don't have a lot of control over the format and fields. 

Thanks in advance.

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com
lmrazek at lcm-res.com
ph. 314-432-5886
fx. 314-432-3304



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

***********************************************************************
The information transmitted is intended solely for the individual or entity
to which it is addressed and may contain confidential and/or privileged
material. Any review, retransmission, dissemination or other use of or
taking action in reliance upon this information by persons or entities other
than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email, you are
responsible for screening its contents and the contents of any attachments
for the presence of viruses. No liability is accepted for any damages caused
by any virus transmitted by this email.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com





From andy at minstersystems.co.uk  Tue Jan 10 01:26:16 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 07:26:16 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <001a01c6156e$11e5da60$6401a8c0@fincomplex.spb.ru>
Message-ID: <004301c615b7$24fc70c0$6caf0c54@minster33c3r25>

Interesting thought Shamil, thanks. I'll try today to see if that cures it.
However I have a horrible feeling that will open up other problems. I've no
experience with MDEs, never had the need, but have the lurking suspicion
that there are things you can do with MDBs that you can't with MDEs - and I
probably do them.

Andy

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Shamil Salakhetdinov
> Sent: 09 January 2006 22:43
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> > Yes there's just one (v large) FE. No library MDBs or MDEs.
> OK, if this MDB is compiled and saved then when you run it on 
> another PC with other versions of referenced DLLs then it 
> can/will get lost its compiled state - I have had such 
> problem a long ago with a large MS Access frontend - and it 
> did crash unexpectedly as in your case. The solution was to 
> compile it into .mde...
> 
> Shamil
> 
> ----- Original Message ----- 
> From: "Andy Lacey" <andy at minstersystems.co.uk>
> To: "'Access Developers discussion and problem solving'" 
> <accessd at databaseadvisors.com>
> Sent: Tuesday, January 10, 2006 1:03 AM
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> > Thanks for the link Shamil, I'll investigate.
> >
> > Yes there's just one (v large) FE. No library MDBs or MDEs.
> >
> > Andy
> >
> > > -----Original Message-----
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil 
> > > Salakhetdinov
> > > Sent: 09 January 2006 21:54
> > > To: Access Developers discussion and problem solving
> > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > >
> > >
> > > Andy,
> > >
> > > Do you have just one front-end program mdb database or this mdb 
> > > refers to the other (library) .mdb/.mde databases? Do you 
> haev your 
> > > front-end program mdb database's code compiled and saved?
> > >
> > > Shamil
> > >
> > > P.S. I still hope you can solve the problem without investigating 
> > > the list of loaded .dlls etc. but if you will need that 
> here is the 
> > > code you can use:
> > >
> > > http://www.vbaccelerator.com/home/VB/Tips/Getting_Process_Info
> > > rmation_Using_PSAPI/VB_PSAPI_Demonstration.asp
> > >
> > > combined with GetFileVersionInfo API call...
> > >
> <<< tail skipped>>>
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From Gustav at cactus.dk  Tue Jan 10 03:31:02 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 10:31:02 +0100
Subject: [AccessD] Date Diff Help It cant be this hard
Message-ID: <s3c38d0f.059@cactus.dk>

Hi Stuart

Your method will work for all dates of birth prior to or on 28th. February only. For later dates it will always fail for dates between a normal and a leap year or vice versa. A few examples:

dateborn=#3/29/1946#
datenow=#3/28/1996#

dateborn=#2/29/1948#
datenow=#2/28/1997#

dateborn=#3/1/1944#
datenow=#3/1/1997#

The important part to understand is, that age for humans is not counted by the year, the month or the day but by the day of the month, and as the length of February varies between normal years and leap years, you will have to take leap years into account.
Your code may be expanded to do that. 

My code does it this way:

  ' Maximum number of days in a month.
  Const cbytMonthDaysMax  As Byte = 31

<snip>

    ' Calculate day difference using months and days as Days() will fail when
    ' comparing leap years with non leap years for dates after February.
    intDaysDiff = (Month(datDate1) * cbytMonthDaysMax + Day(datDate1)) - (Month(datDate2) * cbytMonthDaysMax + Day(datDate2))
    intReversed = Sgn(intYears)
    ' Decrease count of years by one if dates are closer than one year.
    intYears = intYears + (intReversed * ((intReversed * intDaysDiff) > 0))

It can be done simpler if you don't the function to be symmetrical (count negative age as well).

Further to this, you must take care of the special case that people born on 29th. February have birthday on 28th. February in normal years. That's what this part of the code does:

  ' Constants for leap year calculation. Last normal date of February.
  Const cbytFebMonth      As Byte = 2
  Const cbytFebLastDay    As Byte = 28

<snip>

    ' Check for ultimo February and leap years.
    If (Month(datDate1) = cbytFebMonth) And (Month(datDate2) = cbytFebMonth) Then
      ' Both dates fall in February.
      ' Check if dates are at ultimo February.
      If (Day(datDate1) >= cbytFebLastDay) And (Day(datDate2) >= cbytFebLastDay) Then
        ' Both dates are at ultimo February.
        ' Check if the dates fall in leap years.
        If Day(DateSerial(Year(datDate1), cbytFebMonth + 1, 0)) = cbytFebLastDay Xor _
          Day(DateSerial(Year(datDate2), cbytFebMonth + 1, 0)) = cbytFebLastDay Then
          ' Only one date falls within a leap year.
          ' Adjust both dates to day 28 of February.
          datDate1 = DateAdd("d", cbytFebLastDay - Day(datDate1), datDate1)
          datDate2 = DateAdd("d", cbytFebLastDay - Day(datDate2), datDate2)
        Else
          ' Both dates fall either in leap years or non leap years.
          ' No adjustment needed.
        End If
      End If

Note the use of Xor, my favourite operator (this is for you Susan, if you are with us).

/gustav


>>> stuart at lexacorp.com.pg 09-01-2006 23:22 >>>
On 9 Jan 2006 at 18:24, Gustav Brock wrote:

> Hi Arthur
> 
> I love the word "reliably" ...
> Try this:
> 
> ? Int(DateDiff("d", #1/9/1955#, Date())/365.26)
> ? Int(DateDiff("d", #1/9/1956#, Date())/365.26)
> 
> It would be nice but there is no simple and foolproof way.

Can you come up with an example that breaks the code I posted ealier?

Datediff("yyyy",dateborn,datenow) + _
(DatePart("y", datenow) < DatePart("y",dateborn))

-- 
Stuart




From Gustav at cactus.dk  Tue Jan 10 04:34:47 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 11:34:47 +0100
Subject: [AccessD] Report Summing Help
Message-ID: <s3c39bec.065@cactus.dk>

Hi Larry

If you never (!) have data for a past month of zero (CurrYrData will _always_ be 1 or more) you can do it very easily.
Right now you probably have a running sum for PrevYrData and CurrYrData. That's the Totals.
Now, for Totals YTD sum on this expression:

  =PrevYrData * Sgn(CurrYrData)

Sgn() returns 0 for values of zero and 1 for positive values.

/gustav

>>> lmrazek at lcm-res.com 09-01-2006 22:16 >>>
Hi:

I have a report comparing previous year data with current year data. Let's
assume that the report was run for period 4, which included everything
Jan-March data:

Month:	PrevYrData	CurrYrData
Jan		10		10
Feb		20		10
Mar		10		10
Apr		10		0
May		10		0
Jun		10		0
Jul		10		0
Aug		10		0
Sept		10		0
Oct		10		0
Nov		10		0
Dec		10		0

Totals YTD	40		30 (I need it to do this)
Totals	130		30	 

I'd like the report to be able to calculate the YTD comparison totals, that
is, if we ran the report for the first 4 months, it would automatically
create YTD totals for the previous year for the first 4 months (instead of
calculating for all 12 months). 

Any ideas on how to approach this? This is generated from data off a
mainframe, so I don't have a lot of control over the format and fields. 

Thanks in advance.

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com 
lmrazek at lcm-res.com 
ph. 314-432-5886
fx. 314-432-3304




From Gustav at cactus.dk  Tue Jan 10 04:47:02 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 11:47:02 +0100
Subject: [AccessD] Weird form color problem
Message-ID: <s3c39ec8.067@cactus.dk>

Hi Doug

You may be right. One method we use more and more for "strange" issues is to do a complete reinstall. Yes, it may take a couple of hours, much shorter if you have an image to restore, but it gives you a firm starting point; else - in many cases - you may find yourself (or your staff) having spend a day to debug the machine and it still won't run perfectly, thus you fall back to the reinstall anyway.

Have in mind that most machines you have no absolute control of. The user may have installed anything, visited naughty sites etc. but they will either not know it, have forgotten it, or they lie ...

/gustav

>>> dw-murphy at cox.net 10-01-2006 01:26 >>>
Thank you Gustav,

This is our first problem, that we know of, with a Dell computer.  All of
our development is done on Dell's but not the Dell Laptop.  I'll try and
find one to test on.  I have not tried a graphics driver update but did play
with the computer settings with no improvement.  As I said, images are
rendered properly so it seemed to me that this might be an office issue.

Doug

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Monday, January 09, 2006 9:56 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Weird form color problem


Hi Doug

It might be a Dell issue (we've seen many strange things on Dells, though
not this). 
However, try to, if you are allowed to:

Check for graphic driver update.
Change graphic resolution, run the app, change resolution back. Switch to
another "Theme" Switch to "Classic view" - like Win2000 Switch to same
resolution but fewer colours

/gustav

>>> dw-murphy at cox.net 09-01-2006 18:35:02 >>>
Folks,

We have an application that has been installed on several hundred computers.
We were recently visiting a client and helped to put the application on her
laptop.  When opened the forms in the app. were not in the color that was
set at design time and the text boxes that have their background set to
transparent, and borders invisible were back to white background and normal
borders.  This is an mde file.  When we designed the app we set all forms
and controls to non windows colors so that if the user sets their windows
preferences to some non-standard color set it does not impact our
application.  The monitor on the computer displays all colors and pictures
correctly.  The only thing I can think of that might cause this behavior is
that some windows or Office file has been corrupted.

Have any of you seen this type of behavior and if so do you know what the
cause is?

The laptop was a year old Dell with Windows XP Home.

Thanks in advance.

Doug




From Gustav at cactus.dk  Tue Jan 10 05:20:54 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 12:20:54 +0100
Subject: [AccessD] A2K - Unzip  and append from CD
Message-ID: <s3c3a6c6.068@cactus.dk>

Hi Reuben

Can't you create a small VB, VBScript or Access app that does this?

Mr. Colby has some zip routines I believe, or study here:

  http://www.zlib.net/

or have a control (not free) to do the dirty work:

  http://www.chilkatsoft.com/zip-activex.asp 

or simply run a command line tool like unzip.exe:

  http://www.mame.net/downmain.html

/gustav

>>> reuben at gfconsultants.com 09-01-2006 20:51 >>>
I need to append data to a table in Access.

However, the data is in a zipped txt file on a CD.

Anyone, have a way to allow the user to browse to the proper file, unzip it,
and insert the data into Access in one motion?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017




From shamil at users.mns.ru  Tue Jan 10 05:33:51 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 10 Jan 2006 14:33:51 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <004301c615b7$24fc70c0$6caf0c54@minster33c3r25>
Message-ID: <007801c615d9$d30c6810$6401a8c0@fincomplex.spb.ru>

Andy,

If you:

1. Do not change references on runtime;
2. Do not create forms/reports on runtime;
3. Do not allow your users to change design of your forms/reports on design
time and to edit your code -

then your app should work OK compiled into MDE.

If you do change references on runtime then reconsider this part of your
app's coding and use RefLibPaths.

If you do create forms/reports on runtime or allow users to change design of
your forms/reports then split your monolith app's mdb into constant and
changing parts. (This may involve quite some refactoring or go smoothly
depending of your coding but when done this will work for sure - in one of
the MS Access 97 apps I worked on we had one root program  mdb and up to 40
mde program components.... In your case these could be just two parts but in
general case any big application can/should be split into many parts working
together in ensemble...)

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 10:26 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Interesting thought Shamil, thanks. I'll try today to see if that cures
it.
> However I have a horrible feeling that will open up other problems. I've
no
> experience with MDEs, never had the need, but have the lurking suspicion
> that there are things you can do with MDBs that you can't with MDEs - and
I
> probably do them.
>
> Andy
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Shamil Salakhetdinov
> > Sent: 09 January 2006 22:43
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > > Yes there's just one (v large) FE. No library MDBs or MDEs.
> > OK, if this MDB is compiled and saved then when you run it on
> > another PC with other versions of referenced DLLs then it
> > can/will get lost its compiled state - I have had such
> > problem a long ago with a large MS Access frontend - and it
> > did crash unexpectedly as in your case. The solution was to
> > compile it into .mde...
> >
> > Shamil
> >
<<< tail skipped>>>



From andy at minstersystems.co.uk  Tue Jan 10 06:15:06 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 12:15:06 +0000
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <20060110121503.C7DA626A111@smtp.nildram.co.uk>

Well it's not an issue anyway because the MDE route didn't work. I've found
something that does, however, but boy is it weird. I'd really appreciate
some help understanding this.

The following works every time. On the W2K machine I decompile the app. I
then run the app but compile at the start of it with a Syscmd(504, 16483).
It runs perfectly.

However as soon as I exit the app and try to run it again it crashes again.
If I test for IsCompiled and only run the Syscmd if not compiled then the
app skips the syscmd but then crashes in the original area. If I omit the
IsCompiled and just try to run the Syscmd regardless then it crashes on
that.

If I manually compile and save the app then run it from an icon it fails. If
I make an MDE of it, it fails. The *only* way I can get it to run
consistently is as I describe above; decompile, exit, compile on the way in.

What on earth is going on here????? Does anyone have the faintest idea? At
the moment (unless someone knows a way of decompiling with code) the only
solution I can see is to make the icon copy a decompiled version of the MDB
over the 'live' one, then run with that compilation at the start. But as a
regular method of running it sucks. Any help VERY gratefully received.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 10/01/06 11:29


Andy,

If you:

1. Do not change references on runtime;
2. Do not create forms/reports on runtime;
3. Do not allow your users to change design of your forms/reports on design
time and to edit your code -

then your app should work OK compiled into MDE.

If you do change references on runtime then reconsider this part of your
app's coding and use RefLibPaths.

If you do create forms/reports on runtime or allow users to change design of
your forms/reports then split your monolith app's mdb into constant and
changing parts. (This may involve quite some refactoring or go smoothly
depending of your coding but when done this will work for sure - in one of
the MS Access 97 apps I worked on we had one root program mdb and up to 40
mde program components.... In your case these could be just two parts but in
general case any big application can/should be split into many parts working
together in ensemble...)

Shamil

----- Original Message -----
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 10:26 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Interesting thought Shamil, thanks. I'll try today to see if that cures
it.
> However I have a horrible feeling that will open up other problems. I've
no
> experience with MDEs, never had the need, but have the lurking suspicion
> that there are things you can do with MDBs that you can't with MDEs - and
I
> probably do them.
>
> Andy
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Shamil Salakhetdinov
> > Sent: 09 January 2006 22:43
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > > Yes there's just one (v large) FE. No library MDBs or MDEs.
> > OK, if this MDB is compiled and saved then when you run it on
> > another PC with other versions of referenced DLLs then it
> > can/will get lost its compiled state - I have had such
> > problem a long ago with a large MS Access frontend - and it
> > did crash unexpectedly as in your case. The solution was to
> > compile it into .mde...
> >
> > Shamil
> >
<<< tail skipped>>>

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

________________________________________________
Message sent using UebiMiau 2.7.2



From accessd at shaw.ca  Tue Jan 10 06:37:38 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Tue, 10 Jan 2006 04:37:38 -0800
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <20060110121503.C7DA626A111@smtp.nildram.co.uk>
Message-ID: <000801c615e2$a454f060$017ba8c0@xpserver>

Hi Andy:

Your problem seems strange. It must be because it does not really exit from
memory when you have completed. I had a similar issue a while back and it
was because a reference was not getting loaded/attached because the DLL was
not right. It took a while to find and resolve.

I am not saying this is the issue but it might be worth a try.

Jim

PS You have tried re-installing the Access app on Windows 2000 and latest
patches? Also I have had issues that could only be resolved when the Access
version was not updated to say A2K.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
Sent: January 10, 2006 4:15 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Access97 on W2000 crashes

Well it's not an issue anyway because the MDE route didn't work. I've found
something that does, however, but boy is it weird. I'd really appreciate
some help understanding this.

The following works every time. On the W2K machine I decompile the app. I
then run the app but compile at the start of it with a Syscmd(504, 16483).
It runs perfectly.

However as soon as I exit the app and try to run it again it crashes again.
If I test for IsCompiled and only run the Syscmd if not compiled then the
app skips the syscmd but then crashes in the original area. If I omit the
IsCompiled and just try to run the Syscmd regardless then it crashes on
that.

If I manually compile and save the app then run it from an icon it fails. If
I make an MDE of it, it fails. The *only* way I can get it to run
consistently is as I describe above; decompile, exit, compile on the way in.

What on earth is going on here????? Does anyone have the faintest idea? At
the moment (unless someone knows a way of decompiling with code) the only
solution I can see is to make the icon copy a decompiled version of the MDB
over the 'live' one, then run with that compilation at the start. But as a
regular method of running it sucks. Any help VERY gratefully received.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 10/01/06 11:29


Andy,

If you:

1. Do not change references on runtime;
2. Do not create forms/reports on runtime;
3. Do not allow your users to change design of your forms/reports on design
time and to edit your code -

then your app should work OK compiled into MDE.

If you do change references on runtime then reconsider this part of your
app's coding and use RefLibPaths.

If you do create forms/reports on runtime or allow users to change design of
your forms/reports then split your monolith app's mdb into constant and
changing parts. (This may involve quite some refactoring or go smoothly
depending of your coding but when done this will work for sure - in one of
the MS Access 97 apps I worked on we had one root program mdb and up to 40
mde program components.... In your case these could be just two parts but in
general case any big application can/should be split into many parts working
together in ensemble...)

Shamil

----- Original Message -----
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 10:26 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Interesting thought Shamil, thanks. I'll try today to see if that cures
it.
> However I have a horrible feeling that will open up other problems. I've
no
> experience with MDEs, never had the need, but have the lurking suspicion
> that there are things you can do with MDBs that you can't with MDEs - and
I
> probably do them.
>
> Andy
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Shamil Salakhetdinov
> > Sent: 09 January 2006 22:43
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > > Yes there's just one (v large) FE. No library MDBs or MDEs.
> > OK, if this MDB is compiled and saved then when you run it on
> > another PC with other versions of referenced DLLs then it
> > can/will get lost its compiled state - I have had such
> > problem a long ago with a large MS Access frontend - and it
> > did crash unexpectedly as in your case. The solution was to
> > compile it into .mde...
> >
> > Shamil
> >
<<< tail skipped>>>

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

________________________________________________
Message sent using UebiMiau 2.7.2

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



From shamil at users.mns.ru  Tue Jan 10 06:56:52 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 10 Jan 2006 15:56:52 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <20060110121503.C7DA626A111@smtp.nildram.co.uk>
Message-ID: <000d01c615e5$554272b0$6401a8c0@fincomplex.spb.ru>

Amdy,

You probably have ".DLL hell" kind of problem.

If decompile and then Syscmd(504, 16483) works on target PCs then decompile
and make MDE on target PC should also work.

Compiled and saved MDB on your development PC crashes on the users PC
because they have some .DLLs with broken compatibility - in this case
internally the function call is done based on the binary call context
existing on your PC against incompatible binary call context existing on the
target users PC - CRASH....

I still think that logging is the only solution here to find and fix the
problematic code line(s) - usually this is something like default property
name skipped and the default property name can't be skipped or is different
in the new DLLs installed on the target PCs....

If you will not find and fix problematic code line(s) then you'll leave the
"time bomb" inside your app...

Try to run this function on your development PC and on target users PC to
get the list of references:

Public Function ListRefs()
Dim eref As Reference
    For Each eref In References
        With eref
          Debug.Print _
             .Name & "." & .Major & "." & .Minor; _
            " " & .Kind & " " & .BuiltIn; _
            " " & .IsBroken
          Debug.Print vbTab & .FullPath
          Debug.Print vbTab & .Guid
          Debug.Print vbTab & .IsBroken
        End With
    Next eref
End Function

You will probably get the same results - the problematic DLL could be the
one of the referenced/used by the DLLs, which are directly referenced from
your program MDB...

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 3:15 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Well it's not an issue anyway because the MDE route didn't work. I've
found
> something that does, however, but boy is it weird. I'd really appreciate
> some help understanding this.
>
> The following works every time. On the W2K machine I decompile the app. I
> then run the app but compile at the start of it with a Syscmd(504, 16483).
> It runs perfectly.
>
> However as soon as I exit the app and try to run it again it crashes
again.
> If I test for IsCompiled and only run the Syscmd if not compiled then the
> app skips the syscmd but then crashes in the original area. If I omit the
> IsCompiled and just try to run the Syscmd regardless then it crashes on
> that.
>
> If I manually compile and save the app then run it from an icon it fails.
If
> I make an MDE of it, it fails. The *only* way I can get it to run
> consistently is as I describe above; decompile, exit, compile on the way
in.
>
> What on earth is going on here????? Does anyone have the faintest idea? At
> the moment (unless someone knows a way of decompiling with code) the only
> solution I can see is to make the icon copy a decompiled version of the
MDB
> over the 'live' one, then run with that compilation at the start. But as a
> regular method of running it sucks. Any help VERY gratefully received.
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
>
>
>
> --------- Original Message --------
> From: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Access97 on W2000 crashes
> Date: 10/01/06 11:29
>
>
> Andy,
>
> If you:
>
> 1. Do not change references on runtime;
> 2. Do not create forms/reports on runtime;
> 3. Do not allow your users to change design of your forms/reports on
design
> time and to edit your code -
>
> then your app should work OK compiled into MDE.
>
> If you do change references on runtime then reconsider this part of your
> app's coding and use RefLibPaths.
>
> If you do create forms/reports on runtime or allow users to change design
of
> your forms/reports then split your monolith app's mdb into constant and
> changing parts. (This may involve quite some refactoring or go smoothly
> depending of your coding but when done this will work for sure - in one of
> the MS Access 97 apps I worked on we had one root program mdb and up to 40
> mde program components.... In your case these could be just two parts but
in
> general case any big application can/should be split into many parts
working
> together in ensemble...)
>
> Shamil
>
> ----- Original Message -----
> From: "Andy Lacey" <andy at minstersystems.co.uk>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Sent: Tuesday, January 10, 2006 10:26 AM
> Subject: Re: [AccessD] Access97 on W2000 crashes
>
>
> > Interesting thought Shamil, thanks. I'll try today to see if that cures
> it.
> > However I have a horrible feeling that will open up other problems. I've
> no
> > experience with MDEs, never had the need, but have the lurking suspicion
> > that there are things you can do with MDBs that you can't with MDEs -
and
> I
> > probably do them.
> >
> > Andy
> >
> > > -----Original Message-----
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > > Shamil Salakhetdinov
> > > Sent: 09 January 2006 22:43
> > > To: Access Developers discussion and problem solving
> > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > >
> > >
> > > > Yes there's just one (v large) FE. No library MDBs or MDEs.
> > > OK, if this MDB is compiled and saved then when you run it on
> > > another PC with other versions of referenced DLLs then it
> > > can/will get lost its compiled state - I have had such
> > > problem a long ago with a large MS Access frontend - and it
> > > did crash unexpectedly as in your case. The solution was to
> > > compile it into .mde...
> > >
> > > Shamil
> > >
> <<< tail skipped>>>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> ________________________________________________
> Message sent using UebiMiau 2.7.2
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From jimdettman at earthlink.net  Tue Jan 10 07:39:39 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Tue, 10 Jan 2006 08:39:39 -0500
Subject: [AccessD] Report Printing Problem - Graphs Being Split
In-Reply-To: <000301c61509$cb491090$0600a8c0@D3NSLB1S>
Message-ID: <NDEALJOEGMMPCDKIFGNFEEKHHOAA.jimdettman@earthlink.net>

Hi Mike,

<<When a report is printed, any textual or graphical sub-report which starts
before the end of the page is "split" i.e.. part of it prints on the page it
started on and the rest prints on the following page. This is particularly
horrific when a graph is being printed - the "pie" ends up not only sliced
but also severed! I think I can live with textual type reports being split
across pages, but splitting a graph into 2 parts isn't acceptable.>>

  I'm going to suggest something and it may solve it with a little
experimentation, but if it doesn't it will certainly get you started in the
right direction.

  First, what your seeing is more or less normal report engine behavior, so
there is no easy fix for this (i.e. no setting to change) and your going to
need to mange this problem on your own.  The Access report engine is quite
controllable, much more so then many people think.  You've already seen some
of that with hiding/un-hiding sub reports with no data.

  I'm going to toss out three things that you can use to control reports and
when combined, you'll be really surprised at some of the things you can do.

1. "Two Pass" printing - This is where by placing a reference to .Pages
anywhere on the report, you force Access to do a dry run of the report to
figure out the total number of pages.  It then does a second pass to
actually print the report.

   What's interesting with this is that on the first pass, you can build a
table of contents, find what page sections will fall, the number of
sections, which will print or not, etc and store that in a temp table.  Then
on the print pass, use the built temp table to drive printer logic.

   One big gotcha here: You should have no code in the OnPrint event that
would affect the print layout.  The reason is that on the first pass, Access
does not fire the OnPrint event at all for any section.  So all your
conditional code needs to be in a OnFormat event.

2. Use of:

   MoveLayout property  - specifies whether Microsoft Access should move to
the next printing location on the page.
   NextRecord property - specifies whether a section should advance to the
next record.
   PrintSection property  - specifies whether a section should be printed.

3. Use of:

   Top property - Tells you how far down the page you are
   Left property - Tells you what column your in


  So where does this all get us?   What I see is this:  Do a two pass
report, and record the size of each subreport in inches of page that it
occupies.  Store that info in a temp table.

  On the second pass, use the temp table info and the Top property to
determine if you have sufficient space left on the page to print the graph.
If not, use MoveLayout = True, NextRecord = False to skip down the page
until a new page is forced or hide/un-hide a page break control.

  I believe that will work. As I said though, it may require some
experimentation to get it to work right. If your willing to give it a go,
I'll go into more detail.  In the meantime, I'll give it some more thought
and see if there might be an easier way.

Let me know,
Jim.
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Mike
Sent: Monday, January 09, 2006 5:45 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Report Printing Problem - Graphs Being Split


Hi Folks.

I've been a "lurker" here for some time now - and have benefited enormously
from the knowledge shared in AccessD. Please accept my thanks for the effort
each and everyone of you puts into this list.

I'm still trying to find a question I can help with - although by the time I
get to see the questions they have generally been answered!
<<snip>>





From andy at minstersystems.co.uk  Tue Jan 10 07:52:32 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 13:52:32 +0000
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <20060110135229.455E326DF25@smtp.nildram.co.uk>

I've listed below the results of running ListRefs on the two machines. At
first I thought they were identical, but there is one difference in the path
to the Outlok library. Under W98 this is

C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb

whereas W2K has the old-fashioned DOS'y path of

C:\PROGRA~1\MICROS~1\Office\msoutl9.olb

Surely this is not significant. It can't be, can it?

The other thing I thought odd was that the DAO 3.5 reference returns a
.Major and .Minor of 4.0 not 3.5, but then again it's the same on both
machines.


Windows 98
==========
VBA.3.0 0 True False
C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL
{000204EF-0000-0000-C000-000000000046}
False
Access.8.0 0 True False
C:\Program Files\Microsoft Office\Office\MSACC8.OLB
{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
False
DAO.4.0 0 False False
C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL
{00025E01-0000-0000-C000-000000000046}
False
Outlook.9.0 0 False False
C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
{00062FFF-0000-0000-C000-000000000046}
False
Word.8.0 0 False False
C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
{00020905-0000-0000-C000-000000000046}
False


Windows 2000
============
VBA.3.0 0 True False
C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLL
{000204EF-0000-0000-C000-000000000046}
False
Access.8.0 0 True False
C:\Program Files\Microsoft Office\Office\msacc8.olb
{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
False
DAO.4.0 0 False False
C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll
{00025E01-0000-0000-C000-000000000046}
False
Outlook.9.0 0 False False
C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
{00062FFF-0000-0000-C000-000000000046}
False
Word.8.0 0 False False
C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
{00020905-0000-0000-C000-000000000046}
False


Does any of this give any clues Shamil?


--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 10/01/06 12:51


Amdy,

You probably have ".DLL hell" kind of problem.

If decompile and then Syscmd(504, 16483) works on target PCs then decompile
and make MDE on target PC should also work.

Compiled and saved MDB on your development PC crashes on the users PC
because they have some .DLLs with broken compatibility - in this case
internally the function call is done based on the binary call context
existing on your PC against incompatible binary call context existing on the
target users PC - CRASH....

I still think that logging is the only solution here to find and fix the
problematic code line(s) - usually this is something like default property
name skipped and the default property name can't be skipped or is different
in the new DLLs installed on the target PCs....

If you will not find and fix problematic code line(s) then you'll leave the
"time bomb" inside your app...

Try to run this function on your development PC and on target users PC to
get the list of references:

Public Function ListRefs()
Dim eref As Reference
For Each eref In References
With eref
Debug.Print _
.Name & "." & .Major & "." & .Minor; _
" " & .Kind & " " & .BuiltIn; _
" " & .IsBroken
Debug.Print vbTab & .FullPath
Debug.Print vbTab & .Guid
Debug.Print vbTab & .IsBroken
End With
Next eref
End Function

You will probably get the same results - the problematic DLL could be the
one of the referenced/used by the DLLs, which are directly referenced from
your program MDB...

Shamil

----- Original Message -----
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 3:15 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Well it's not an issue anyway because the MDE route didn't work. I've
found
> something that does, however, but boy is it weird. I'd really appreciate
> some help understanding this.
>
> The following works every time. On the W2K machine I decompile the app. I
> then run the app but compile at the start of it with a Syscmd(504, 16483).
> It runs perfectly.
>
> However as soon as I exit the app and try to run it again it crashes
again.
> If I test for IsCompiled and only run the Syscmd if not compiled then the
> app skips the syscmd but then crashes in the original area. If I omit the
> IsCompiled and just try to run the Syscmd regardless then it crashes on
> that.
>
> If I manually compile and save the app then run it from an icon it fails.
If
> I make an MDE of it, it fails. The *only* way I can get it to run
> consistently is as I describe above; decompile, exit, compile on the way
in.
>
> What on earth is going on here????? Does anyone have the faintest idea? At
> the moment (unless someone knows a way of decompiling with code) the only
> solution I can see is to make the icon copy a decompiled version of the
MDB
> over the 'live' one, then run with that compilation at the start. But as a
> regular method of running it sucks. Any help VERY gratefully received.
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
>
>
>


________________________________________________
Message sent using UebiMiau 2.7.2



From andy at minstersystems.co.uk  Tue Jan 10 07:56:21 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 13:56:21 +0000
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <20060110135618.DFAC926D827@smtp.nildram.co.uk>

Hi Jim
Yep it's a nasty that's for sure. I too keep going back to thinking it's a
DLL issue, but what and where I've no idea. I've reinstalled Office 97 on
the target machine, and reupdated its SP's and patches, and reinstalled Jet
3.5. And it can't be a case of Access not exiting well because if I reboot
the machine and run the app straight off it still crashes unless I do the
decompile thing I described. Horrendous.

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 10/01/06 12:39


Hi Andy:

Your problem seems strange. It must be because it does not really exit from
memory when you have completed. I had a similar issue a while back and it
was because a reference was not getting loaded/attached because the DLL was
not right. It took a while to find and resolve.

I am not saying this is the issue but it might be worth a try.

Jim

PS You have tried re-installing the Access app on Windows 2000 and latest
patches? Also I have had issues that could only be resolved when the Access
version was not updated to say A2K.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
Sent: January 10, 2006 4:15 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Access97 on W2000 crashes

Well it's not an issue anyway because the MDE route didn't work. I've found
something that does, however, but boy is it weird. I'd really appreciate
some help understanding this.

The following works every time. On the W2K machine I decompile the app. I
then run the app but compile at the start of it with a Syscmd(504, 16483).
It runs perfectly.

However as soon as I exit the app and try to run it again it crashes again.
If I test for IsCompiled and only run the Syscmd if not compiled then the
app skips the syscmd but then crashes in the original area. If I omit the
IsCompiled and just try to run the Syscmd regardless then it crashes on
that.

If I manually compile and save the app then run it from an icon it fails. If
I make an MDE of it, it fails. The *only* way I can get it to run
consistently is as I describe above; decompile, exit, compile on the way in.

What on earth is going on here????? Does anyone have the faintest idea? At
the moment (unless someone knows a way of decompiling with code) the only
solution I can see is to make the icon copy a decompiled version of the MDB
over the 'live' one, then run with that compilation at the start. But as a
regular method of running it sucks. Any help VERY gratefully received.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 10/01/06 11:29


Andy,

If you:

1. Do not change references on runtime;
2. Do not create forms/reports on runtime;
3. Do not allow your users to change design of your forms/reports on design
time and to edit your code -

then your app should work OK compiled into MDE.

If you do change references on runtime then reconsider this part of your
app's coding and use RefLibPaths.

If you do create forms/reports on runtime or allow users to change design of
your forms/reports then split your monolith app's mdb into constant and
changing parts. (This may involve quite some refactoring or go smoothly
depending of your coding but when done this will work for sure - in one of
the MS Access 97 apps I worked on we had one root program mdb and up to 40
mde program components.... In your case these could be just two parts but in
general case any big application can/should be split into many parts working
together in ensemble...)

Shamil

----- Original Message -----
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 10:26 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Interesting thought Shamil, thanks. I'll try today to see if that cures
it.
> However I have a horrible feeling that will open up other problems. I've
no
> experience with MDEs, never had the need, but have the lurking suspicion
> that there are things you can do with MDBs that you can't with MDEs - and
I
> probably do them.
>
> Andy
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Shamil Salakhetdinov
> > Sent: 09 January 2006 22:43
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > > Yes there's just one (v large) FE. No library MDBs or MDEs.
> > OK, if this MDB is compiled and saved then when you run it on
> > another PC with other versions of referenced DLLs then it
> > can/will get lost its compiled state - I have had such
> > problem a long ago with a large MS Access frontend - and it
> > did crash unexpectedly as in your case. The solution was to
> > compile it into .mde...
> >
> > Shamil
> >
<<< tail skipped>>>

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

________________________________________________
Message sent using UebiMiau 2.7.2

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

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

________________________________________________
Message sent using UebiMiau 2.7.2



From bheid at appdevgrp.com  Tue Jan 10 08:05:04 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Tue, 10 Jan 2006 09:05:04 -0500
Subject: [AccessD] Weird report problem (Cross posted to Access-L)...
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D1D7AC@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30ABF5E8@ADGSERVER>

In case anyone cares, I solved the problem by moving one of the sub-reports
to a different section before the detail line and all was well.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 05, 2006 11:09 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Weird report problem (Cross posted to Access-L)...


Hey,

I have a report with two sub-reports on it.  During the latest revision of
the report, I widened some fields and moved around some other fields on the
two sub-reports.

Now, when I preview (or print it), it says there are 46 pages (1 of 46).
But when you go to the end of the report, there are only 11 pages and the
page counter says 11 of 46.  

If I delete either of the sub-reports, it appears to be paging correctly.
It is only when both of them are there that this is happening.

If I run each sub-report separately, it looks like all of the data is there.

The main report is grouped by project and the detail section contains the
two sub-reports.  What is weird is that for each project, it prints two
pages and then a project totals page.  It does this for all of the projects
except for one that only has one record in it.  For the 1st project there
should be about 6-8 pages.  Also, in this database, there is only one record
returned for each sub-report 1.  The 2nd sub-report is the one that is not
displaying all of it's records.

Anyone have any clues as to what may be going on?

Thanks,
Bobby



From jarus at amerinet-gpo.com  Tue Jan 10 08:13:50 2006
From: jarus at amerinet-gpo.com (Terri Jarus)
Date: Tue, 10 Jan 2006 08:13:50 -0600
Subject: [AccessD]  Calculating DateDiff for Workdays
Message-ID: <s3c36cc5.058@an-mail.amerinet-gpo.com>

I've found a function in the archives "DiffBusinessDays_TSB" which references DiffWeekdays_TSB - however, I'm unable to locate that function.  

I need to set up a formula to calculate the difference between two dates - but only wish to count Business days - no weekends.

Thanks for any help.

Terri Jarus
Vice President, Contract Services
jarus at amerinet-gpo.com
314-542-1902


---------------------------------------------------------------------------
This email and any files transmitted with it are intended solely for the use of the individuals or entities to whom they are addressed and are not to be disclosed to any other party. If you have received this email in error please return it to the sender, and erase any copies thereof.
---------------------------------------------------------------------------



From reuben at gfconsultants.com  Tue Jan 10 08:17:36 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Tue, 10 Jan 2006 09:17:36 -0500
Subject: [AccessD] A2K - Unzip  and append from CD
In-Reply-To: <s3c3a6c6.068@cactus.dk>
Message-ID: <DPEKLCIHBOJKCKJECLCPCEIEDAAA.reuben@gfconsultants.com>

I'm confident I can do it in Access, but I was hoping somebody had something
close just for the sake of time.

Thanks for the links - I'll check them out.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: Tuesday, January 10, 2006 6:21 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] A2K - Unzip and append from CD
>
>
> Hi Reuben
>
> Can't you create a small VB, VBScript or Access app that does this?
>
> Mr. Colby has some zip routines I believe, or study here:
>
>   http://www.zlib.net/
>
> or have a control (not free) to do the dirty work:
>
>   http://www.chilkatsoft.com/zip-activex.asp
>
> or simply run a command line tool like unzip.exe:
>
>   http://www.mame.net/downmain.html
>
> /gustav
>
> >>> reuben at gfconsultants.com 09-01-2006 20:51 >>>
> I need to append data to a table in Access.
>
> However, the data is in a zipped txt file on a CD.
>
> Anyone, have a way to allow the user to browse to the proper
> file, unzip it,
> and insert the data into Access in one motion?
>
> Thanks.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From lmrazek at lcm-res.com  Tue Jan 10 08:21:55 2006
From: lmrazek at lcm-res.com (Lawrence Mrazek)
Date: Tue, 10 Jan 2006 08:21:55 -0600
Subject: [AccessD] Report Summing Help
In-Reply-To: <s3c39bec.065@cactus.dk>
Message-ID: <0a6901c615f1$35b69e60$036fa8c0@hplaptop>

Hi Gustav:

Good idea; this almost works for my situation, but I can't use it because
CurrYr occassionally has 0's in the past month. Ended up writing a query
that did the calculation and binding it to a subreport ... Not pretty, but
it works. 

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com
lmrazek at lcm-res.com
ph. 314-432-5886
fx. 314-432-3304

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, January 10, 2006 4:35 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Report Summing Help

Hi Larry

If you never (!) have data for a past month of zero (CurrYrData will
_always_ be 1 or more) you can do it very easily.
Right now you probably have a running sum for PrevYrData and CurrYrData.
That's the Totals.
Now, for Totals YTD sum on this expression:

  =PrevYrData * Sgn(CurrYrData)

Sgn() returns 0 for values of zero and 1 for positive values.

/gustav

>>> lmrazek at lcm-res.com 09-01-2006 22:16 >>>
Hi:

I have a report comparing previous year data with current year data. Let's
assume that the report was run for period 4, which included everything
Jan-March data:

Month:	PrevYrData	CurrYrData
Jan		10		10
Feb		20		10
Mar		10		10
Apr		10		0
May		10		0
Jun		10		0
Jul		10		0
Aug		10		0
Sept		10		0
Oct		10		0
Nov		10		0
Dec		10		0

Totals YTD	40		30 (I need it to do this)
Totals	130		30	 

I'd like the report to be able to calculate the YTD comparison totals, that
is, if we ran the report for the first 4 months, it would automatically
create YTD totals for the previous year for the first 4 months (instead of
calculating for all 12 months). 

Any ideas on how to approach this? This is generated from data off a
mainframe, so I don't have a lot of control over the format and fields. 

Thanks in advance.

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com
lmrazek at lcm-res.com
ph. 314-432-5886
fx. 314-432-3304


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





From JHewson at karta.com  Tue Jan 10 08:25:42 2006
From: JHewson at karta.com (Jim Hewson)
Date: Tue, 10 Jan 2006 08:25:42 -0600
Subject: [AccessD] Report Printing Problem - Graphs Being Split
Message-ID: <9C382E065F54AE48BC3AA7925DCBB01C03AC7C7D@karta-exc-int.Karta.com>

Jim,
Thanks for the info.
Very useful...
Seems to me this topic would be a good article somewhere.
"Printing Graphs and Subreports on Multiple Pages"

Jim 
jhewson at karta.com
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Tuesday, January 10, 2006 7:40 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Report Printing Problem - Graphs Being Split

Hi Mike,

<<When a report is printed, any textual or graphical sub-report which starts
before the end of the page is "split" i.e.. part of it prints on the page it
started on and the rest prints on the following page. This is particularly
horrific when a graph is being printed - the "pie" ends up not only sliced
but also severed! I think I can live with textual type reports being split
across pages, but splitting a graph into 2 parts isn't acceptable.>>

  I'm going to suggest something and it may solve it with a little
experimentation, but if it doesn't it will certainly get you started in the
right direction.

  First, what your seeing is more or less normal report engine behavior, so
there is no easy fix for this (i.e. no setting to change) and your going to
need to mange this problem on your own.  The Access report engine is quite
controllable, much more so then many people think.  You've already seen some
of that with hiding/un-hiding sub reports with no data.

  I'm going to toss out three things that you can use to control reports and
when combined, you'll be really surprised at some of the things you can do.

1. "Two Pass" printing - This is where by placing a reference to .Pages
anywhere on the report, you force Access to do a dry run of the report to
figure out the total number of pages.  It then does a second pass to
actually print the report.

   What's interesting with this is that on the first pass, you can build a
table of contents, find what page sections will fall, the number of
sections, which will print or not, etc and store that in a temp table.  Then
on the print pass, use the built temp table to drive printer logic.

   One big gotcha here: You should have no code in the OnPrint event that
would affect the print layout.  The reason is that on the first pass, Access
does not fire the OnPrint event at all for any section.  So all your
conditional code needs to be in a OnFormat event.

2. Use of:

   MoveLayout property  - specifies whether Microsoft Access should move to
the next printing location on the page.
   NextRecord property - specifies whether a section should advance to the
next record.
   PrintSection property  - specifies whether a section should be printed.

3. Use of:

   Top property - Tells you how far down the page you are
   Left property - Tells you what column your in


  So where does this all get us?   What I see is this:  Do a two pass
report, and record the size of each subreport in inches of page that it
occupies.  Store that info in a temp table.

  On the second pass, use the temp table info and the Top property to
determine if you have sufficient space left on the page to print the graph.
If not, use MoveLayout = True, NextRecord = False to skip down the page
until a new page is forced or hide/un-hide a page break control.

  I believe that will work. As I said though, it may require some
experimentation to get it to work right. If your willing to give it a go,
I'll go into more detail.  In the meantime, I'll give it some more thought
and see if there might be an easier way.

Let me know,
Jim.
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Mike
Sent: Monday, January 09, 2006 5:45 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Report Printing Problem - Graphs Being Split


Hi Folks.

I've been a "lurker" here for some time now - and have benefited enormously
from the knowledge shared in AccessD. Please accept my thanks for the effort
each and everyone of you puts into this list.

I'm still trying to find a question I can help with - although by the time I
get to see the questions they have generally been answered!
<<snip>>



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


From Gustav at cactus.dk  Tue Jan 10 08:35:54 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 15:35:54 +0100
Subject: [AccessD] A2K - Unzip  and append from CD
Message-ID: <s3c3d477.084@cactus.dk>

Hi Reuben

If you tell a bit more someone might have an idea.
How would you import a text file in Access without using Access ..?

/gustav

>>> reuben at gfconsultants.com 10-01-2006 15:17:36 >>>
I'm confident I can do it in Access, but I was hoping somebody had something
close just for the sake of time.

Thanks for the links - I'll check them out.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: Tuesday, January 10, 2006 6:21 AM
> To: accessd at databaseadvisors.com 
> Subject: Re: [AccessD] A2K - Unzip and append from CD
>
>
> Hi Reuben
>
> Can't you create a small VB, VBScript or Access app that does this?
>
> Mr. Colby has some zip routines I believe, or study here:
>
>   http://www.zlib.net/ 
>
> or have a control (not free) to do the dirty work:
>
>   http://www.chilkatsoft.com/zip-activex.asp 
>
> or simply run a command line tool like unzip.exe:
>
>   http://www.mame.net/downmain.html 
>
> /gustav
>
> >>> reuben at gfconsultants.com 09-01-2006 20:51 >>>
> I need to append data to a table in Access.
>
> However, the data is in a zipped txt file on a CD.
>
> Anyone, have a way to allow the user to browse to the proper
> file, unzip it,
> and insert the data into Access in one motion?
>
> Thanks.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017




From Gustav at cactus.dk  Tue Jan 10 08:40:49 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 15:40:49 +0100
Subject: [AccessD] Report Summing Help
Message-ID: <s3c3d587.086@cactus.dk>

Hi Larry

OK. You could also have checked for the month:

  =PrevYrData * Sgn(Abs(intMontYePrev <= Month(Date())))

/gustav

>>> lmrazek at lcm-res.com 10-01-2006 15:21:55 >>>
Hi Gustav:

Good idea; this almost works for my situation, but I can't use it because
CurrYr occassionally has 0's in the past month. Ended up writing a query
that did the calculation and binding it to a subreport ... Not pretty, but
it works. 

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com 
lmrazek at lcm-res.com 
ph. 314-432-5886
fx. 314-432-3304

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, January 10, 2006 4:35 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Report Summing Help

Hi Larry

If you never (!) have data for a past month of zero (CurrYrData will
_always_ be 1 or more) you can do it very easily.
Right now you probably have a running sum for PrevYrData and CurrYrData.
That's the Totals.
Now, for Totals YTD sum on this expression:

  =PrevYrData * Sgn(CurrYrData)

Sgn() returns 0 for values of zero and 1 for positive values.

/gustav

>>> lmrazek at lcm-res.com 09-01-2006 22:16 >>>
Hi:

I have a report comparing previous year data with current year data. Let's
assume that the report was run for period 4, which included everything
Jan-March data:

Month:	PrevYrData	CurrYrData
Jan		10		10
Feb		20		10
Mar		10		10
Apr		10		0
May		10		0
Jun		10		0
Jul		10		0
Aug		10		0
Sept		10		0
Oct		10		0
Nov		10		0
Dec		10		0

Totals YTD	40		30 (I need it to do this)
Totals	130		30	 

I'd like the report to be able to calculate the YTD comparison totals, that
is, if we ran the report for the first 4 months, it would automatically
create YTD totals for the previous year for the first 4 months (instead of
calculating for all 12 months). 

Any ideas on how to approach this? This is generated from data off a
mainframe, so I don't have a lot of control over the format and fields. 




From jimdettman at earthlink.net  Tue Jan 10 08:43:10 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Tue, 10 Jan 2006 09:43:10 -0500
Subject: [AccessD] Report Printing Problem - Graphs Being Split
In-Reply-To: <9C382E065F54AE48BC3AA7925DCBB01C03AC7C7D@karta-exc-int.Karta.com>
Message-ID: <NDEALJOEGMMPCDKIFGNFCELEHOAA.jimdettman@earthlink.net>

Jim,

  Actually, I've got an article sitting that talks about controlling the
report engine in depth.  I started it after handling a particularly thorny
problem on Experts Exchange, which was a college transcript report that need
to print specific continuation messages based on the sections that followed.

  Since it's something that comes up quite often on EE (controlling the
report engine), I started the article.

  I'll finish it one of these days<g>.....

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Jim Hewson
Sent: Tuesday, January 10, 2006 9:26 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Report Printing Problem - Graphs Being Split


Jim,
Thanks for the info.
Very useful...
Seems to me this topic would be a good article somewhere.
"Printing Graphs and Subreports on Multiple Pages"

Jim
jhewson at karta.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Tuesday, January 10, 2006 7:40 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Report Printing Problem - Graphs Being Split

Hi Mike,

<<When a report is printed, any textual or graphical sub-report which starts
before the end of the page is "split" i.e.. part of it prints on the page it
started on and the rest prints on the following page. This is particularly
horrific when a graph is being printed - the "pie" ends up not only sliced
but also severed! I think I can live with textual type reports being split
across pages, but splitting a graph into 2 parts isn't acceptable.>>

  I'm going to suggest something and it may solve it with a little
experimentation, but if it doesn't it will certainly get you started in the
right direction.

  First, what your seeing is more or less normal report engine behavior, so
there is no easy fix for this (i.e. no setting to change) and your going to
need to mange this problem on your own.  The Access report engine is quite
controllable, much more so then many people think.  You've already seen some
of that with hiding/un-hiding sub reports with no data.

  I'm going to toss out three things that you can use to control reports and
when combined, you'll be really surprised at some of the things you can do.

1. "Two Pass" printing - This is where by placing a reference to .Pages
anywhere on the report, you force Access to do a dry run of the report to
figure out the total number of pages.  It then does a second pass to
actually print the report.

   What's interesting with this is that on the first pass, you can build a
table of contents, find what page sections will fall, the number of
sections, which will print or not, etc and store that in a temp table.  Then
on the print pass, use the built temp table to drive printer logic.

   One big gotcha here: You should have no code in the OnPrint event that
would affect the print layout.  The reason is that on the first pass, Access
does not fire the OnPrint event at all for any section.  So all your
conditional code needs to be in a OnFormat event.

2. Use of:

   MoveLayout property  - specifies whether Microsoft Access should move to
the next printing location on the page.
   NextRecord property - specifies whether a section should advance to the
next record.
   PrintSection property  - specifies whether a section should be printed.

3. Use of:

   Top property - Tells you how far down the page you are
   Left property - Tells you what column your in


  So where does this all get us?   What I see is this:  Do a two pass
report, and record the size of each subreport in inches of page that it
occupies.  Store that info in a temp table.

  On the second pass, use the temp table info and the Top property to
determine if you have sufficient space left on the page to print the graph.
If not, use MoveLayout = True, NextRecord = False to skip down the page
until a new page is forced or hide/un-hide a page break control.

  I believe that will work. As I said though, it may require some
experimentation to get it to work right. If your willing to give it a go,
I'll go into more detail.  In the meantime, I'll give it some more thought
and see if there might be an easier way.

Let me know,
Jim.
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Mike
Sent: Monday, January 09, 2006 5:45 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Report Printing Problem - Graphs Being Split


Hi Folks.

I've been a "lurker" here for some time now - and have benefited enormously
from the knowledge shared in AccessD. Please accept my thanks for the effort
each and everyone of you puts into this list.

I'm still trying to find a question I can help with - although by the time I
get to see the questions they have generally been answered!
<<snip>>



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




From Gustav at cactus.dk  Tue Jan 10 09:05:48 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 16:05:48 +0100
Subject: [AccessD] Report Printing Problem - Graphs Being Split
Message-ID: <s3c3db6e.087@cactus.dk>

Hi Jim

And where would that article pop up? Sounds like good reading.

/gustav

>>> jimdettman at earthlink.net 10-01-2006 15:43:10 >>>
Jim,

  Actually, I've got an article sitting that talks about controlling the
report engine in depth.  I started it after handling a particularly thorny
problem on Experts Exchange, which was a college transcript report that need
to print specific continuation messages based on the sections that followed.

  Since it's something that comes up quite often on EE (controlling the
report engine), I started the article.

  I'll finish it one of these days<g>.....

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Jim Hewson
Sent: Tuesday, January 10, 2006 9:26 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Report Printing Problem - Graphs Being Split


Jim,
Thanks for the info.
Very useful...
Seems to me this topic would be a good article somewhere.
"Printing Graphs and Subreports on Multiple Pages"

Jim
jhewson at karta.com 




From reuben at gfconsultants.com  Tue Jan 10 09:13:59 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Tue, 10 Jan 2006 10:13:59 -0500
Subject: [AccessD] A2K - Unzip  and append from CD
In-Reply-To: <s3c3d477.084@cactus.dk>
Message-ID: <DPEKLCIHBOJKCKJECLCPOEIGDAAA.reuben@gfconsultants.com>

I meant I am planning to do it all in Access.  I mentioned Access because
you mentioned VB or VB Script...

What happens is...
1.  The state of Indiana sends a CD out with two or three zipped txt files
on it.
2.  The user needs to be able to browse to and select the appropriate file
to open.
3.  My app needs to unzip the file (I don't need the text file saved and
prefer not to save it) in order to read the text file
4.  The text file is comma delimited and the fields are always the same (so
the import specs should be easy)
5.  The records from the text file need to be appended to a table (the table
never changes)

Now, there is one issue with step one.  Sometimes the state forgets to zip
them and they come as just txt files.  I guess I'll just check the extension
after the user selects the file and act appropriately.

My real concern is how do I work with a zipped file?

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: Tuesday, January 10, 2006 9:36 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] A2K - Unzip and append from CD
>
>
> Hi Reuben
>
> If you tell a bit more someone might have an idea.
> How would you import a text file in Access without using Access ..?
>
> /gustav
>
> >>> reuben at gfconsultants.com 10-01-2006 15:17:36 >>>
> I'm confident I can do it in Access, but I was hoping somebody
> had something
> close just for the sake of time.
>
> Thanks for the links - I'll check them out.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> > Sent: Tuesday, January 10, 2006 6:21 AM
> > To: accessd at databaseadvisors.com
> > Subject: Re: [AccessD] A2K - Unzip and append from CD
> >
> >
> > Hi Reuben
> >
> > Can't you create a small VB, VBScript or Access app that does this?
> >
> > Mr. Colby has some zip routines I believe, or study here:
> >
> >   http://www.zlib.net/
> >
> > or have a control (not free) to do the dirty work:
> >
> >   http://www.chilkatsoft.com/zip-activex.asp
> >
> > or simply run a command line tool like unzip.exe:
> >
> >   http://www.mame.net/downmain.html
> >
> > /gustav
> >
> > >>> reuben at gfconsultants.com 09-01-2006 20:51 >>>
> > I need to append data to a table in Access.
> >
> > However, the data is in a zipped txt file on a CD.
> >
> > Anyone, have a way to allow the user to browse to the proper
> > file, unzip it,
> > and insert the data into Access in one motion?
> >
> > Thanks.
> >
> > Reuben Cummings
> > GFC, LLC
> > 812.523.1017
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From Gustav at cactus.dk  Tue Jan 10 09:50:34 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 16:50:34 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c3e5f8.089@cactus.dk>

Hi Andy

First, if the issue is a dll, one (fast) thing to check is if any exists in more than one folder. If so, and you can't sort that out, use RefLibPaths.

Then, SysCmd(..) run from code will not compile and save the code. It must be done from outside a code module which means manually (as we, the developer, do) or from a macro. Brilliant idea from Charlotte. 
It is not that difficult to implement. Read closely here from the old thread:

  Broken References in Runtime AXP and A97. Solved!

  http://databaseadvisors.com/mailman/htdig/accessd/2003-July/011034.html 

Note the extended test for broken references.

/gustav

>>> andy at minstersystems.co.uk 10-01-2006 14:52:32 >>>
I've listed below the results of running ListRefs on the two machines. At
first I thought they were identical, but there is one difference in the path
to the Outlok library. Under W98 this is

C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb

whereas W2K has the old-fashioned DOS'y path of

C:\PROGRA~1\MICROS~1\Office\msoutl9.olb

Surely this is not significant. It can't be, can it?

The other thing I thought odd was that the DAO 3.5 reference returns a
.Major and .Minor of 4.0 not 3.5, but then again it's the same on both
machines.




From paul.hartland at isharp.co.uk  Tue Jan 10 10:05:17 2006
From: paul.hartland at isharp.co.uk (Paul Hartland (ISHARP))
Date: Tue, 10 Jan 2006 16:05:17 -0000
Subject: [AccessD] Creating Access .exe (2003)
In-Reply-To: <200512221305.jBMD50V16983@databaseadvisors.com>
Message-ID: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAABqm3d61OhDQYdu37t71DMvAQAAAAA=@isharp.co.uk>

To all,

I want to start making a few of my Access programs into .exe's is there
anyway to do this other than buy the Microsoft Office Developer kit ?

Thanks in advance for any help on this.

Paul Hartland
Database Developer.



From Gustav at cactus.dk  Tue Jan 10 10:08:37 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 17:08:37 +0100
Subject: [AccessD] A2K - Unzip  and append from CD
Message-ID: <s3c3ea24.090@cactus.dk>

Hi Reuben

OK, sorry for the misunderstanding.
I think - haven't done it myself - the Chilkat component can do that for you:

 - Create or open in-memory Zips. 
 - Provides in-memory access to compressed or uncompressed data. 

If the file is zipped or not, you can probably get that info as well from the Chilkat component, or you can open the file and check the two first characters to be "PK" and the third 03 (Bytes: 50 4B 03).

/gustav

>>> reuben at gfconsultants.com 10-01-2006 16:13:59 >>>
I meant I am planning to do it all in Access.  I mentioned Access because
you mentioned VB or VB Script...

What happens is...
1.  The state of Indiana sends a CD out with two or three zipped txt files
on it.
2.  The user needs to be able to browse to and select the appropriate file
to open.
3.  My app needs to unzip the file (I don't need the text file saved and
prefer not to save it) in order to read the text file
4.  The text file is comma delimited and the fields are always the same (so
the import specs should be easy)
5.  The records from the text file need to be appended to a table (the table
never changes)

Now, there is one issue with step one.  Sometimes the state forgets to zip
them and they come as just txt files.  I guess I'll just check the extension
after the user selects the file and act appropriately.

My real concern is how do I work with a zipped file?

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: Tuesday, January 10, 2006 9:36 AM
> To: accessd at databaseadvisors.com 
> Subject: Re: [AccessD] A2K - Unzip and append from CD
>
>
> Hi Reuben
>
> If you tell a bit more someone might have an idea.
> How would you import a text file in Access without using Access ..?
>
> /gustav
>
> >>> reuben at gfconsultants.com 10-01-2006 15:17:36 >>>
> I'm confident I can do it in Access, but I was hoping somebody
> had something
> close just for the sake of time.
>
> Thanks for the links - I'll check them out.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com 
> > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> > Sent: Tuesday, January 10, 2006 6:21 AM
> > To: accessd at databaseadvisors.com 
> > Subject: Re: [AccessD] A2K - Unzip and append from CD
> >
> >
> > Hi Reuben
> >
> > Can't you create a small VB, VBScript or Access app that does this?
> >
> > Mr. Colby has some zip routines I believe, or study here:
> >
> >   http://www.zlib.net/ 
> >
> > or have a control (not free) to do the dirty work:
> >
> >   http://www.chilkatsoft.com/zip-activex.asp 
> >
> > or simply run a command line tool like unzip.exe:
> >
> >   http://www.mame.net/downmain.html 
> >
> > /gustav
> >
> > >>> reuben at gfconsultants.com 09-01-2006 20:51 >>>
> > I need to append data to a table in Access.
> >
> > However, the data is in a zipped txt file on a CD.
> >
> > Anyone, have a way to allow the user to browse to the proper
> > file, unzip it,
> > and insert the data into Access in one motion?
> >
> > Thanks.
> >
> > Reuben Cummings
> > GFC, LLC
> > 812.523.1017




From Donald.A.McGillivray at sprint.com  Tue Jan 10 10:08:31 2006
From: Donald.A.McGillivray at sprint.com (Mcgillivray, Don [IT])
Date: Tue, 10 Jan 2006 10:08:31 -0600
Subject: [AccessD] A2K - Unzip  and append from CD
Message-ID: <EC829B33DF5B5B48A956B7A2E894AA9A03D99DEA@PLSWB06C.ad.sprint.com>

Reuben,

I'm sure that there are other solutions, and somebody may have a nice
tidy class or something, but I use Terry Kreft's ShellWait to call the
command line extensions that are available with Winzip.  Once you know
the path and file name of the target zip file, it's easy to create the
command line and pass it in.  Have a look at:

http://www.winzip.com/prodpagecl.htm

HTH,

Don

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben
Cummings
Sent: Tuesday, January 10, 2006 7:14 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] A2K - Unzip and append from CD

I meant I am planning to do it all in Access.  I mentioned Access
because
you mentioned VB or VB Script...

What happens is...
1.  The state of Indiana sends a CD out with two or three zipped txt
files
on it.
2.  The user needs to be able to browse to and select the appropriate
file
to open.
3.  My app needs to unzip the file (I don't need the text file saved and
prefer not to save it) in order to read the text file
4.  The text file is comma delimited and the fields are always the same
(so
the import specs should be easy)
5.  The records from the text file need to be appended to a table (the
table
never changes)

Now, there is one issue with step one.  Sometimes the state forgets to
zip
them and they come as just txt files.  I guess I'll just check the
extension
after the user selects the file and act appropriately.

My real concern is how do I work with a zipped file?

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: Tuesday, January 10, 2006 9:36 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] A2K - Unzip and append from CD
>
>
> Hi Reuben
>
> If you tell a bit more someone might have an idea.
> How would you import a text file in Access without using Access ..?
>
> /gustav
>
> >>> reuben at gfconsultants.com 10-01-2006 15:17:36 >>>
> I'm confident I can do it in Access, but I was hoping somebody
> had something
> close just for the sake of time.
>
> Thanks for the links - I'll check them out.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav
Brock
> > Sent: Tuesday, January 10, 2006 6:21 AM
> > To: accessd at databaseadvisors.com
> > Subject: Re: [AccessD] A2K - Unzip and append from CD
> >
> >
> > Hi Reuben
> >
> > Can't you create a small VB, VBScript or Access app that does this?
> >
> > Mr. Colby has some zip routines I believe, or study here:
> >
> >   http://www.zlib.net/
> >
> > or have a control (not free) to do the dirty work:
> >
> >   http://www.chilkatsoft.com/zip-activex.asp
> >
> > or simply run a command line tool like unzip.exe:
> >
> >   http://www.mame.net/downmain.html
> >
> > /gustav
> >
> > >>> reuben at gfconsultants.com 09-01-2006 20:51 >>>
> > I need to append data to a table in Access.
> >
> > However, the data is in a zipped txt file on a CD.
> >
> > Anyone, have a way to allow the user to browse to the proper
> > file, unzip it,
> > and insert the data into Access in one motion?
> >
> > Thanks.
> >
> > Reuben Cummings
> > GFC, LLC
> > 812.523.1017
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>




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




From jimdettman at earthlink.net  Tue Jan 10 10:15:44 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Tue, 10 Jan 2006 11:15:44 -0500
Subject: [AccessD] Report Printing Problem - Graphs Being Split
In-Reply-To: <s3c3db6e.087@cactus.dk>
Message-ID: <NDEALJOEGMMPCDKIFGNFCEMAHOAA.jimdettman@earthlink.net>

gustav,

<<And where would that article pop up? Sounds like good reading.>>

  Until they get the site mods in place, the only avenue for publishing is
the EE Newsletter that goes out every few weeks.

Jim.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
Sent: Tuesday, January 10, 2006 10:06 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Report Printing Problem - Graphs Being Split


Hi Jim

And where would that article pop up? Sounds like good reading.

/gustav

>>> jimdettman at earthlink.net 10-01-2006 15:43:10 >>>
Jim,

  Actually, I've got an article sitting that talks about controlling the
report engine in depth.  I started it after handling a particularly thorny
problem on Experts Exchange, which was a college transcript report that need
to print specific continuation messages based on the sections that followed.

  Since it's something that comes up quite often on EE (controlling the
report engine), I started the article.

  I'll finish it one of these days<g>.....

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Jim Hewson
Sent: Tuesday, January 10, 2006 9:26 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Report Printing Problem - Graphs Being Split


Jim,
Thanks for the info.
Very useful...
Seems to me this topic would be a good article somewhere.
"Printing Graphs and Subreports on Multiple Pages"

Jim
jhewson at karta.com


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




From garykjos at gmail.com  Tue Jan 10 10:23:36 2006
From: garykjos at gmail.com (Gary Kjos)
Date: Tue, 10 Jan 2006 10:23:36 -0600
Subject: [AccessD] Calculating DateDiff for Workdays
In-Reply-To: <s3c36cc5.058@an-mail.amerinet-gpo.com>
References: <s3c36cc5.058@an-mail.amerinet-gpo.com>
Message-ID: <aea6c4950601100823j6762a222xc00c399c45d37520@mail.gmail.com>

AccessWeb has a solution for Number of Workdays

http://www.mvps.org/access/datetime/date0006.htm

Have a look.  There are two solutions posted, one counts weekdays with
no allowing for holidays and the other factors in holidays but
requires a table listing the holidays.

Good luck!

Gary


On 1/10/06, Terri Jarus <jarus at amerinet-gpo.com> wrote:
> I've found a function in the archives "DiffBusinessDays_TSB" which references DiffWeekdays_TSB - however, I'm unable to locate that function.
>
> I need to set up a formula to calculate the difference between two dates - but only wish to count Business days - no weekends.
>
> Thanks for any help.
>
> Terri Jarus
> Vice President, Contract Services
> jarus at amerinet-gpo.com
> 314-542-1902
>
>
> ---------------------------------------------------------------------------
> This email and any files transmitted with it are intended solely for the use of the individuals or entities to whom they are addressed and are not to be disclosed to any other party. If you have received this email in error please return it to the sender, and erase any copies thereof.
> ---------------------------------------------------------------------------
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


--
Gary Kjos
garykjos at gmail.com


From mikedorism at verizon.net  Tue Jan 10 10:31:05 2006
From: mikedorism at verizon.net (Mike & Doris Manning)
Date: Tue, 10 Jan 2006 11:31:05 -0500
Subject: [AccessD] Calculating DateDiff for Workdays
In-Reply-To: <s3c36cc5.058@an-mail.amerinet-gpo.com>
Message-ID: <000201c61603$42740310$2f01a8c0@dorismanning>

Here is a very easy function found at
http://www.databasejournal.com/features/msaccess/article.php/1552691

  Public Function GetNumberOfWorkDays(sStartDate, sEndDate)
    Dim iDays
    Dim iWorkDays
    Dim sDay
    Dim i
    
    iDays = DateDiff("d", sStartDate, sEndDate)
   
    iWorkDays = 0
   
    For i = 0 To iDays
      'First day of the week is sunday
      sDay = Weekday(DateAdd("d", i, sStartDate))
      If sDay <> 1 And sDay <> 7 Then
        iWorkDays = iWorkDays + 1
      End If
    Next
    GetNumberOfWorkDays = iWorkDays
  End Function

Doris Manning
mikedorism at verizon.net




From paul.hartland at isharp.co.uk  Tue Jan 10 10:39:55 2006
From: paul.hartland at isharp.co.uk (Paul Hartland (ISHARP))
Date: Tue, 10 Jan 2006 16:39:55 -0000
Subject: [AccessD] Access exe files
In-Reply-To: <200512221305.jBMD50V16983@databaseadvisors.com>
Message-ID: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAADfHwyzGQegS7I3qBTudvCvAQAAAAA=@isharp.co.uk>

To all,

Is there any other way than purchasing the Microsoft Office Developer
editions to create and Access exe file ?

Thanks in advance for any help on this

Paul Hartland
Database Developer.



From harkinsss at bellsouth.net  Tue Jan 10 10:47:02 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Tue, 10 Jan 2006 11:47:02 -0500
Subject: [AccessD] Access exe files
In-Reply-To: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAADfHwyzGQegS7I3qBTudvCvAQAAAAA=@isharp.co.uk>
Message-ID: <20060110164702.UVBD8357.ibm57aec.bellsouth.net@SUSANONE>

You can't create an Access .exe file. 

Are you wanting to turn an .mdb into an .mde? 

Susan H. 

Is there any other way than purchasing the Microsoft Office Developer
editions to create and Access exe file ?

Thanks in advance for any help on this




From cfoust at infostatsystems.com  Tue Jan 10 11:02:54 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 10 Jan 2006 09:02:54 -0800
Subject: [AccessD] Access exe files
Message-ID: <F55048AF7E974F429BB24597D7355EEABEF2@INFOSERVER04.infostat.local>

Someone asked this same question recently.  Even the ODE won't create an
Access executable file, it merely allows you to distrubute the runtime
files to use with an mdb or mde application.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Paul Hartland
(ISHARP)
Sent: Tuesday, January 10, 2006 8:40 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Access exe files


To all,

Is there any other way than purchasing the Microsoft Office Developer
editions to create and Access exe file ?

Thanks in advance for any help on this

Paul Hartland
Database Developer.

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


From martyconnelly at shaw.ca  Tue Jan 10 12:09:46 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Tue, 10 Jan 2006 10:09:46 -0800
Subject: [AccessD] Creating Access .exe (2003)
References: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAABqm3d61OhDQYdu37t71DMvAQAAAAA=@isharp.co.uk>
Message-ID: <43C3F86A.5090008@shaw.ca>

Purchasing the MS VSTO Visual Studio Tools for Office (developer kit)  
is the only way to get the Access Package and Deployment Wizard
http://msdn.microsoft.com/office/technologyinfo/devtools/accessextensions/default.aspx


Paul Hartland (ISHARP) wrote:

>To all,
>
>I want to start making a few of my Access programs into .exe's is there
>anyway to do this other than buy the Microsoft Office Developer kit ?
>
>Thanks in advance for any help on this.
>
>Paul Hartland
>Database Developer.
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From andy at minstersystems.co.uk  Tue Jan 10 12:12:14 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 18:12:14 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <s3c3e5f8.089@cactus.dk>
Message-ID: <006101c61611$62419c80$6caf0c54@minster33c3r25>

But the SysCmd does work for me Gustav. I see it working, compilng and
saving. My problem's almost the very reverse as far as I can see. My
references all show as ok. Nothing broken. Nothing failing to compile.
Nothing to mend. It's just that something flipping well crashes despite
that. And, as I said, it's when the MDB has been decompiled and therefore my
Syscmd runs that everything works (see my post that begins "Well it's not an
issue anyway"). My problems come when I exit and then reload the
by-now-compiled MDB. Any ideas?

Any ideas from anyone who's ben following this?

Yours desperately

-- Andy Lacey
http://www.minstersystems.co.uk 


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gustav Brock
> Sent: 10 January 2006 15:51
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> Hi Andy
> 
> First, if the issue is a dll, one (fast) thing to check is if 
> any exists in more than one folder. If so, and you can't sort 
> that out, use RefLibPaths.
> 
> Then, SysCmd(..) run from code will not compile and save the 
> code. It must be done from outside a code module which means 
> manually (as we, the developer, do) or from a macro. 
> Brilliant idea from Charlotte. 
> It is not that difficult to implement. Read closely here from 
> the old thread:
> 
>   Broken References in Runtime AXP and A97. Solved!
> 
>   
> http://databaseadvisors.com/mailman/htdig/accessd/2003-July/01
1034.html 

Note the extended test for broken references.

/gustav

>>> andy at minstersystems.co.uk 10-01-2006 14:52:32 >>>
I've listed below the results of running ListRefs on the two machines. At
first I thought they were identical, but there is one difference in the path
to the Outlok library. Under W98 this is

C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb

whereas W2K has the old-fashioned DOS'y path of

C:\PROGRA~1\MICROS~1\Office\msoutl9.olb

Surely this is not significant. It can't be, can it?

The other thing I thought odd was that the DAO 3.5 reference returns a
.Major and .Minor of 4.0 not 3.5, but then again it's the same on both
machines.


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




From markamatte at hotmail.com  Tue Jan 10 12:16:26 2006
From: markamatte at hotmail.com (Mark A Matte)
Date: Tue, 10 Jan 2006 18:16:26 +0000
Subject: [AccessD] A2K - Unzip and append from CD
In-Reply-To: <DPEKLCIHBOJKCKJECLCPOEIGDAAA.reuben@gfconsultants.com>
Message-ID: <BAY114-F26D2FF0D1683F0202ED8F1D2250@phx.gbl>

Reuben,

I went through this back in May (search archives for subjects "[AccessD] 
Unzip Files" and  "[AccessD] Unzip Files Part II ")...I was using A2k on XP 
and was trying to call the decompress/unzip function of XP.  This did not go 
well.  The easiest solution was to pay to register WINZIP and use their 
command line function(they even give you directions)...but this means there 
would have to be a registered copy on WINZIP on each machine using the app.  
My app retrieved via ftp,unzipped,imported,then deleted the zipped and 
unzipped files.

If I could have found a somewhat easy way without paying I would have.  Hope 
this helps.

Mark A. Matte


>From: "Reuben Cummings" <reuben at gfconsultants.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem 
>solving"<accessd at databaseadvisors.com>
>Subject: Re: [AccessD] A2K - Unzip  and append from CD
>Date: Tue, 10 Jan 2006 10:13:59 -0500
>
>I meant I am planning to do it all in Access.  I mentioned Access because
>you mentioned VB or VB Script...
>
>What happens is...
>1.  The state of Indiana sends a CD out with two or three zipped txt files
>on it.
>2.  The user needs to be able to browse to and select the appropriate file
>to open.
>3.  My app needs to unzip the file (I don't need the text file saved and
>prefer not to save it) in order to read the text file
>4.  The text file is comma delimited and the fields are always the same (so
>the import specs should be easy)
>5.  The records from the text file need to be appended to a table (the 
>table
>never changes)
>
>Now, there is one issue with step one.  Sometimes the state forgets to zip
>them and they come as just txt files.  I guess I'll just check the 
>extension
>after the user selects the file and act appropriately.
>
>My real concern is how do I work with a zipped file?
>
>Reuben Cummings
>GFC, LLC
>812.523.1017
>
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> > Sent: Tuesday, January 10, 2006 9:36 AM
> > To: accessd at databaseadvisors.com
> > Subject: Re: [AccessD] A2K - Unzip and append from CD
> >
> >
> > Hi Reuben
> >
> > If you tell a bit more someone might have an idea.
> > How would you import a text file in Access without using Access ..?
> >
> > /gustav
> >
> > >>> reuben at gfconsultants.com 10-01-2006 15:17:36 >>>
> > I'm confident I can do it in Access, but I was hoping somebody
> > had something
> > close just for the sake of time.
> >
> > Thanks for the links - I'll check them out.
> >
> > Reuben Cummings
> > GFC, LLC
> > 812.523.1017
> >
> >
> > > -----Original Message-----
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> > > Sent: Tuesday, January 10, 2006 6:21 AM
> > > To: accessd at databaseadvisors.com
> > > Subject: Re: [AccessD] A2K - Unzip and append from CD
> > >
> > >
> > > Hi Reuben
> > >
> > > Can't you create a small VB, VBScript or Access app that does this?
> > >
> > > Mr. Colby has some zip routines I believe, or study here:
> > >
> > >   http://www.zlib.net/
> > >
> > > or have a control (not free) to do the dirty work:
> > >
> > >   http://www.chilkatsoft.com/zip-activex.asp
> > >
> > > or simply run a command line tool like unzip.exe:
> > >
> > >   http://www.mame.net/downmain.html
> > >
> > > /gustav
> > >
> > > >>> reuben at gfconsultants.com 09-01-2006 20:51 >>>
> > > I need to append data to a table in Access.
> > >
> > > However, the data is in a zipped txt file on a CD.
> > >
> > > Anyone, have a way to allow the user to browse to the proper
> > > file, unzip it,
> > > and insert the data into Access in one motion?
> > >
> > > Thanks.
> > >
> > > Reuben Cummings
> > > GFC, LLC
> > > 812.523.1017
> >
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
>
>
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From shamil at users.mns.ru  Tue Jan 10 12:07:20 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 10 Jan 2006 21:07:20 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <20060110135229.455E326DF25@smtp.nildram.co.uk>
Message-ID: <007501c61613$4cc582c0$6401a8c0@fincomplex.spb.ru>

> Does any of this give any clues Shamil?
No, Andy, it doesn't. :(

They look similar despite the difference in fullpath name for outlook - this
(hopefully) shouldn't force MS Access to automatically change refs because
GUIDs are the same.

The problem could be in the differences of the product versions and/or
indirectly referenced/loaded DLLs.

I did write a small PSAPI.dll based utility, which creates the XML file with
the information about DLLs loaded by MS Access directly or indirectly:

http://smsconsulting.spb.ru/download/tests/myPSAPI.zip (10KB)

Run it on your development PC and on the target PC after you run your test
because DLLs are loaded on demand only and you will have the complete list
of DLL only when you run your app (Of course on the target system your app
should be decompiled and compiled and saved to let it run successfully).

You'll get processes.xml file with information like in P.S. of this message.
MS Access should be active when you run the utility.

When you get two xml files you can compare them to see what are the
differences of the loaded DLLs versions.

But it still could be no clue there....

Andy, there are no miracles in programming, you know that as well as I do -
instead of spending time trying to indirectly solve the issue I'd recommend
you to find the code lines giving you the trouble - it's the second day you
are looking for "magical" solution - IMO it's now time to stop relying on
miracles and to do some dirty routine tracing/logging work and fix the bug
in your (legacy) code...

And when you fix the trouble - use .MDEs they run faster and are smaller in
size than big MDBs with compiled and saved code...

I'm sorry, I think I can't be of any help further in this issue....

Shamil

P.S.

  <?xml version="1.0" encoding="utf-8" ?>
- <Processes>
- <Process>
  <Id>3708</Id>
  <BaseName>msaccess.exe</BaseName>
  <MemUsage>7,524KB</MemUsage>
  <ExeFullPath>D:\Program
Files\MSOffice\97\Office\msaccess.exe</ExeFullPath>
  <ModulesCount>25</ModulesCount>
- <version>
  <vi>CompanyName: Microsoft Corporation</vi>
  <vi>FileDescription: Microsoft Access</vi>
  <vi>FileVersion: 8.0.5903</vi>
  <vi>InternalName: MSACCESS</vi>
  <vi>LegalCopyright: Copyright ? Microsoft Corp. 1991-1997. All rights
reserved.</vi>
  <vi>OriginalFilename: MSACCESS.EXE</vi>
  <vi>ProductName: Microsoft? Access</vi>
  <vi>ProductVersion: 8.0.5903</vi>
  <vi>Comments</vi>
  <vi>LegalTrademarks</vi>
  <vi>PrivateBuild</vi>
  <vi>SpecialBuild</vi>
  </version>
- <Modules>
- <Module>
  <BaseName>ntdll.dll</BaseName>
  <ExeFullPath>D:\WINDOWS\system32\ntdll.dll</ExeFullPath>
- <version>
  <vi>CompanyName: Microsoft Corporation</vi>
  <vi>FileDescription: NT Layer DLL</vi>
  <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
  <vi>InternalName: ntdll.dll</vi>
  <vi>LegalCopyright: ? Microsoft Corporation. All rights reserved.</vi>
  <vi>OriginalFilename: ntdll.dll</vi>
  <vi>ProductName: Microsoft? Windows? Operating System</vi>
  <vi>ProductVersion: 5.2.3790.0</vi>
  <vi>Comments</vi>
  <vi>LegalTrademarks</vi>
  <vi>PrivateBuild</vi>
  <vi>SpecialBuild</vi>
  </version>
  </Module>
- <Module>
  <BaseName>kernel32.dll</BaseName>
  <ExeFullPath>D:\WINDOWS\system32\kernel32.dll</ExeFullPath>
- <version>
  <vi>CompanyName: Microsoft Corporation</vi>
  <vi>FileDescription: Windows NT BASE API Client DLL</vi>
  <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
  <vi>InternalName: kernel32</vi>
  <vi>LegalCopyright: ? Microsoft Corporation. All rights reserved.</vi>
  <vi>OriginalFilename: kernel32</vi>
  <vi>ProductName: Microsoft? Windows? Operating System</vi>
  <vi>ProductVersion: 5.2.3790.0</vi>


... etc...

P.P.S (could be of help in other issues)

If you run myPSAPI.exe with a parameter equal to a (part of the) name of an
active process/processes it will create processes.xml file for this
process/these processes....

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 4:52 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> I've listed below the results of running ListRefs on the two machines. At
> first I thought they were identical, but there is one difference in the
path
> to the Outlok library. Under W98 this is
>
> C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
>
> whereas W2K has the old-fashioned DOS'y path of
>
> C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
>
> Surely this is not significant. It can't be, can it?
>
> The other thing I thought odd was that the DAO 3.5 reference returns a
> .Major and .Minor of 4.0 not 3.5, but then again it's the same on both
> machines.
>
>
> Windows 98
> ==========
> VBA.3.0 0 True False
> C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL
> {000204EF-0000-0000-C000-000000000046}
> False
> Access.8.0 0 True False
> C:\Program Files\Microsoft Office\Office\MSACC8.OLB
> {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> False
> DAO.4.0 0 False False
> C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL
> {00025E01-0000-0000-C000-000000000046}
> False
> Outlook.9.0 0 False False
> C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> {00062FFF-0000-0000-C000-000000000046}
> False
> Word.8.0 0 False False
> C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
> {00020905-0000-0000-C000-000000000046}
> False
>
>
> Windows 2000
> ============
> VBA.3.0 0 True False
> C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLL
> {000204EF-0000-0000-C000-000000000046}
> False
> Access.8.0 0 True False
> C:\Program Files\Microsoft Office\Office\msacc8.olb
> {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> False
> DAO.4.0 0 False False
> C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll
> {00025E01-0000-0000-C000-000000000046}
> False
> Outlook.9.0 0 False False
> C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> {00062FFF-0000-0000-C000-000000000046}
> False
> Word.8.0 0 False False
> C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
> {00020905-0000-0000-C000-000000000046}
> False
>
>
> Does any of this give any clues Shamil?
>
>
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
>
>
<<< tail skipped>>>



From jwelz at hotmail.com  Tue Jan 10 12:40:07 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Tue, 10 Jan 2006 11:40:07 -0700
Subject: [AccessD] Access exe files
Message-ID: <BAY113-F3804ABB204990BCC51E4FA1250@phx.gbl>

Of course there is an Access executable.

Reverse engineering the exe would be an excessively onerous task and would 
likely run you in to trouble with Microsoft.

If you must give clients an exe, you can buy Access and sell it to them and 
they will have the Access exe (MSAccess.exe) and you can deploy Access file 
solutions to your heart's content.

Curmudgeonly
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Charlotte Foust" <cfoust at infostatsystems.com>
>
>Someone asked this same question recently.  Even the ODE won't create an
>Access executable file, it merely allows you to distrubute the runtime
>files to use with an mdb or mde application.
>
>Charlotte Foust
>
>
>-----Original Message-----
>
>
>To all,
>
>Is there any other way than purchasing the Microsoft Office Developer
>editions to create and Access exe file ?
>
>Thanks in advance for any help on this
>
>Paul Hartland
>Database Developer.




From cfoust at infostatsystems.com  Tue Jan 10 12:58:28 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 10 Jan 2006 10:58:28 -0800
Subject: [AccessD] Access exe files
Message-ID: <F55048AF7E974F429BB24597D7355EEABEF4@INFOSERVER04.infostat.local>

Picky! ;o} The only access executable is Msaccess.exe, but you can't turn an mdb into an executable.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of J?rgen Welz
Sent: Tuesday, January 10, 2006 10:40 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Access exe files


Of course there is an Access executable.

Reverse engineering the exe would be an excessively onerous task and would 
likely run you in to trouble with Microsoft.

If you must give clients an exe, you can buy Access and sell it to them and 
they will have the Access exe (MSAccess.exe) and you can deploy Access file 
solutions to your heart's content.

Curmudgeonly
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Charlotte Foust" <cfoust at infostatsystems.com>
>
>Someone asked this same question recently.  Even the ODE won't create 
>an Access executable file, it merely allows you to distrubute the 
>runtime files to use with an mdb or mde application.
>
>Charlotte Foust
>
>
>-----Original Message-----
>
>
>To all,
>
>Is there any other way than purchasing the Microsoft Office Developer 
>editions to create and Access exe file ?
>
>Thanks in advance for any help on this
>
>Paul Hartland
>Database Developer.




From darsant at gmail.com  Tue Jan 10 13:02:41 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Tue, 10 Jan 2006 13:02:41 -0600
Subject: [AccessD] Access exe files
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABEF4@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABEF4@INFOSERVER04.infostat.local>
Message-ID: <53c8e05a0601101102m3e2d113ay1e37c17de155a277@mail.gmail.com>

On 1/10/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> Picky! ;o} The only access executable is Msaccess.exe, but you can't turn an mdb into an executable.

Technically, if you wanted to pull a fast one, you could embed the
front end Access mdb into the executable, extract it, run it, and then
store the data as a back-end mdb with a different extension.

That'd be quite interesting.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From andy at minstersystems.co.uk  Tue Jan 10 13:40:49 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 19:40:49 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <007501c61613$4cc582c0$6401a8c0@fincomplex.spb.ru>
Message-ID: <006f01c6161d$c2635430$6caf0c54@minster33c3r25>

Thanks for that Shamil I'll try it tomorrow.

I'd have found the code if I thought that feasible I assure you but there is
little or no pattern to where it crashes. I can execute the same key presses
and it will fail at different points each time.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Shamil Salakhetdinov
> Sent: 10 January 2006 18:07
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> > Does any of this give any clues Shamil?
> No, Andy, it doesn't. :(
> 
> They look similar despite the difference in fullpath name for 
> outlook - this
> (hopefully) shouldn't force MS Access to automatically change 
> refs because GUIDs are the same.
> 
> The problem could be in the differences of the product 
> versions and/or indirectly referenced/loaded DLLs.
> 
> I did write a small PSAPI.dll based utility, which creates 
> the XML file with the information about DLLs loaded by MS 
> Access directly or indirectly:
> 
> http://smsconsulting.spb.ru/download/tests/myPSAPI.zip (10KB)
> 
> Run it on your development PC and on the target PC after you 
> run your test because DLLs are loaded on demand only and you 
> will have the complete list of DLL only when you run your app 
> (Of course on the target system your app should be decompiled 
> and compiled and saved to let it run successfully).
> 
> You'll get processes.xml file with information like in P.S. 
> of this message. MS Access should be active when you run the utility.
> 
> When you get two xml files you can compare them to see what 
> are the differences of the loaded DLLs versions.
> 
> But it still could be no clue there....
> 
> Andy, there are no miracles in programming, you know that as 
> well as I do - instead of spending time trying to indirectly 
> solve the issue I'd recommend you to find the code lines 
> giving you the trouble - it's the second day you are looking 
> for "magical" solution - IMO it's now time to stop relying on 
> miracles and to do some dirty routine tracing/logging work 
> and fix the bug in your (legacy) code...
> 
> And when you fix the trouble - use .MDEs they run faster and 
> are smaller in size than big MDBs with compiled and saved code...
> 
> I'm sorry, I think I can't be of any help further in this issue....
> 
> Shamil
> 
> P.S.
> 
>   <?xml version="1.0" encoding="utf-8" ?>
> - <Processes>
> - <Process>
>   <Id>3708</Id>
>   <BaseName>msaccess.exe</BaseName>
>   <MemUsage>7,524KB</MemUsage>
>   <ExeFullPath>D:\Program 
> Files\MSOffice\97\Office\msaccess.exe</ExeFullPath>
>   <ModulesCount>25</ModulesCount>
> - <version>
>   <vi>CompanyName: Microsoft Corporation</vi>
>   <vi>FileDescription: Microsoft Access</vi>
>   <vi>FileVersion: 8.0.5903</vi>
>   <vi>InternalName: MSACCESS</vi>
>   <vi>LegalCopyright: Copyright C Microsoft Corp. 1991-1997. 
> All rights reserved.</vi>
>   <vi>OriginalFilename: MSACCESS.EXE</vi>
>   <vi>ProductName: MicrosoftR Access</vi>
>   <vi>ProductVersion: 8.0.5903</vi>
>   <vi>Comments</vi>
>   <vi>LegalTrademarks</vi>
>   <vi>PrivateBuild</vi>
>   <vi>SpecialBuild</vi>
>   </version>
> - <Modules>
> - <Module>
>   <BaseName>ntdll.dll</BaseName>
>   <ExeFullPath>D:\WINDOWS\system32\ntdll.dll</ExeFullPath>
> - <version>
>   <vi>CompanyName: Microsoft Corporation</vi>
>   <vi>FileDescription: NT Layer DLL</vi>
>   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
>   <vi>InternalName: ntdll.dll</vi>
>   <vi>LegalCopyright: C Microsoft Corporation. All rights 
> reserved.</vi>
>   <vi>OriginalFilename: ntdll.dll</vi>
>   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
>   <vi>ProductVersion: 5.2.3790.0</vi>
>   <vi>Comments</vi>
>   <vi>LegalTrademarks</vi>
>   <vi>PrivateBuild</vi>
>   <vi>SpecialBuild</vi>
>   </version>
>   </Module>
> - <Module>
>   <BaseName>kernel32.dll</BaseName>
>   <ExeFullPath>D:\WINDOWS\system32\kernel32.dll</ExeFullPath>
> - <version>
>   <vi>CompanyName: Microsoft Corporation</vi>
>   <vi>FileDescription: Windows NT BASE API Client DLL</vi>
>   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
>   <vi>InternalName: kernel32</vi>
>   <vi>LegalCopyright: C Microsoft Corporation. All rights 
> reserved.</vi>
>   <vi>OriginalFilename: kernel32</vi>
>   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
>   <vi>ProductVersion: 5.2.3790.0</vi>
> 
> 
> ... etc...
> 
> P.P.S (could be of help in other issues)
> 
> If you run myPSAPI.exe with a parameter equal to a (part of 
> the) name of an active process/processes it will create 
> processes.xml file for this process/these processes....
> 
> ----- Original Message ----- 
> From: "Andy Lacey" <andy at minstersystems.co.uk>
> To: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> Sent: Tuesday, January 10, 2006 4:52 PM
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> > I've listed below the results of running ListRefs on the 
> two machines. 
> > At first I thought they were identical, but there is one 
> difference in 
> > the
> path
> > to the Outlok library. Under W98 this is
> >
> > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> >
> > whereas W2K has the old-fashioned DOS'y path of
> >
> > C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> >
> > Surely this is not significant. It can't be, can it?
> >
> > The other thing I thought odd was that the DAO 3.5 
> reference returns a 
> > .Major and .Minor of 4.0 not 3.5, but then again it's the 
> same on both 
> > machines.
> >
> >
> > Windows 98
> > ==========
> > VBA.3.0 0 True False
> > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL 
> > {000204EF-0000-0000-C000-000000000046}
> > False
> > Access.8.0 0 True False
> > C:\Program Files\Microsoft Office\Office\MSACC8.OLB 
> > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > False
> > DAO.4.0 0 False False
> > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL 
> > {00025E01-0000-0000-C000-000000000046}
> > False
> > Outlook.9.0 0 False False
> > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb 
> > {00062FFF-0000-0000-C000-000000000046}
> > False
> > Word.8.0 0 False False
> > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB 
> > {00020905-0000-0000-C000-000000000046}
> > False
> >
> >
> > Windows 2000
> > ============
> > VBA.3.0 0 True False
> > C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLL 
> > {000204EF-0000-0000-C000-000000000046}
> > False
> > Access.8.0 0 True False
> > C:\Program Files\Microsoft Office\Office\msacc8.olb 
> > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > False
> > DAO.4.0 0 False False
> > C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll 
> > {00025E01-0000-0000-C000-000000000046}
> > False
> > Outlook.9.0 0 False False C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> > {00062FFF-0000-0000-C000-000000000046}
> > False
> > Word.8.0 0 False False
> > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
> > {00020905-0000-0000-C000-000000000046}
> > False
> >
> >
> > Does any of this give any clues Shamil?
> >
> >
> > --
> > Andy Lacey
> > http://www.minstersystems.co.uk
> >
> >
> >
> <<< tail skipped>>>
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From martyconnelly at shaw.ca  Tue Jan 10 13:43:34 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Tue, 10 Jan 2006 11:43:34 -0800
Subject: [AccessD] Access97 on W2000 crashes
References: <006101c61611$62419c80$6caf0c54@minster33c3r25>
Message-ID: <43C40E66.2040004@shaw.ca>

Check you are using Windows 2000 Service Pack 3 (SP3)  to stop oplock 
problems
When compiling make sure Track name AutoCorrect  is off
can lead to corruption problems.
Tools >> Options >> General >>.Track name AutoCorrect info should be off.

Alan Browne has this suggestion
http://allenbrowne.com/ser-25.html

In your subforms, include a text box for each field in its 
LinkChildFields property. This simple step avoids frequent but 
intermittent crashes of Access 2002 and 2003 ("... shut down by 
Windows..."). The text boxes can be hidden if you do not wish to see the 
foreign key fields.

Or Tony Toews corruption FAQ

http://www.granite.ab.ca/access/corruptmdbs.htm

Andy Lacey wrote:

>But the SysCmd does work for me Gustav. I see it working, compilng and
>saving. My problem's almost the very reverse as far as I can see. My
>references all show as ok. Nothing broken. Nothing failing to compile.
>Nothing to mend. It's just that something flipping well crashes despite
>that. And, as I said, it's when the MDB has been decompiled and therefore my
>Syscmd runs that everything works (see my post that begins "Well it's not an
>issue anyway"). My problems come when I exit and then reload the
>by-now-compiled MDB. Any ideas?
>
>Any ideas from anyone who's ben following this?
>
>Yours desperately
>
>-- Andy Lacey
>http://www.minstersystems.co.uk 
>
>
>  
>
>>-----Original Message-----
>>From: accessd-bounces at databaseadvisors.com 
>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
>>Gustav Brock
>>Sent: 10 January 2006 15:51
>>To: accessd at databaseadvisors.com
>>Subject: Re: [AccessD] Access97 on W2000 crashes
>>
>>
>>Hi Andy
>>
>>First, if the issue is a dll, one (fast) thing to check is if 
>>any exists in more than one folder. If so, and you can't sort 
>>that out, use RefLibPaths.
>>
>>Then, SysCmd(..) run from code will not compile and save the 
>>code. It must be done from outside a code module which means 
>>manually (as we, the developer, do) or from a macro. 
>>Brilliant idea from Charlotte. 
>>It is not that difficult to implement. Read closely here from 
>>the old thread:
>>
>>  Broken References in Runtime AXP and A97. Solved!
>>
>>  
>>http://databaseadvisors.com/mailman/htdig/accessd/2003-July/01
>>    
>>
>1034.html 
>
>Note the extended test for broken references.
>
>/gustav
>
>  
>
>>>>andy at minstersystems.co.uk 10-01-2006 14:52:32 >>>
>>>>        
>>>>
>I've listed below the results of running ListRefs on the two machines. At
>first I thought they were identical, but there is one difference in the path
>to the Outlok library. Under W98 this is
>
>C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
>
>whereas W2K has the old-fashioned DOS'y path of
>
>C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
>
>Surely this is not significant. It can't be, can it?
>
>The other thing I thought odd was that the DAO 3.5 reference returns a
>.Major and .Minor of 4.0 not 3.5, but then again it's the same on both
>machines.
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From Gustav at cactus.dk  Tue Jan 10 13:55:04 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 20:55:04 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c41f4d.002@cactus.dk>

Hi Andy

Hmm, if you can "see it working", I guess you run it from the Immediate window. That works, but it is not the same as calling it from code - that's the trap.
But I'm not saying this is the key to the solution, only that you may think the code gets compiled and saved while it perhaps doesn't.

I would follow Shamil's advice closely and track down the offending code lines. Then rewrite the code.

Once I had some very simple code (no API, no dll) that worked perfectly here and on the client's Win2000 machines. On her Win98 machines the app crashed much like yours - just poof and no Access. I rewrote the code and the problem was gone.

/gustav

>>> andy at minstersystems.co.uk 10-01-2006 19:12:14 >>>
But the SysCmd does work for me Gustav. I see it working, compilng and
saving. My problem's almost the very reverse as far as I can see. My
references all show as ok. Nothing broken. Nothing failing to compile.
Nothing to mend. It's just that something flipping well crashes despite
that. And, as I said, it's when the MDB has been decompiled and therefore my
Syscmd runs that everything works (see my post that begins "Well it's not an
issue anyway"). My problems come when I exit and then reload the
by-now-compiled MDB. Any ideas?

Any ideas from anyone who's ben following this?

Yours desperately

-- Andy Lacey
http://www.minstersystems.co.uk 


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gustav Brock
> Sent: 10 January 2006 15:51
> To: accessd at databaseadvisors.com 
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> Hi Andy
> 
> First, if the issue is a dll, one (fast) thing to check is if 
> any exists in more than one folder. If so, and you can't sort 
> that out, use RefLibPaths.
> 
> Then, SysCmd(..) run from code will not compile and save the 
> code. It must be done from outside a code module which means 
> manually (as we, the developer, do) or from a macro. 
> Brilliant idea from Charlotte. 
> It is not that difficult to implement. Read closely here from 
> the old thread:
> 
>   Broken References in Runtime AXP and A97. Solved!
> 
>   
> http://databaseadvisors.com/mailman/htdig/accessd/2003-July/01 
1034.html 

Note the extended test for broken references.

/gustav

>>> andy at minstersystems.co.uk 10-01-2006 14:52:32 >>>
I've listed below the results of running ListRefs on the two machines. At
first I thought they were identical, but there is one difference in the path
to the Outlok library. Under W98 this is

C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb

whereas W2K has the old-fashioned DOS'y path of

C:\PROGRA~1\MICROS~1\Office\msoutl9.olb

Surely this is not significant. It can't be, can it?

The other thing I thought odd was that the DAO 3.5 reference returns a
.Major and .Minor of 4.0 not 3.5, but then again it's the same on both
machines.




From shamil at users.mns.ru  Tue Jan 10 14:09:02 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 10 Jan 2006 23:09:02 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <006f01c6161d$c2635430$6caf0c54@minster33c3r25>
Message-ID: <003d01c61621$b59042a0$6401a8c0@fincomplex.spb.ru>

<<<
it will fail at different points each time.
>>>
Andy,

This means you use the same key presses but different data.

Yes, it's not easy to have "clean hands" tests with MS Access databases and
programs...

But you said you get it crashed always in the same (long) VBA procedure?

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Tuesday, January 10, 2006 10:40 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Thanks for that Shamil I'll try it tomorrow.
>
> I'd have found the code if I thought that feasible I assure you but there
is
> little or no pattern to where it crashes. I can execute the same key
presses
> and it will fail at different points each time.
>
> -- Andy Lacey
> http://www.minstersystems.co.uk
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Shamil Salakhetdinov
> > Sent: 10 January 2006 18:07
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > > Does any of this give any clues Shamil?
> > No, Andy, it doesn't. :(
> >
> > They look similar despite the difference in fullpath name for
> > outlook - this
> > (hopefully) shouldn't force MS Access to automatically change
> > refs because GUIDs are the same.
> >
> > The problem could be in the differences of the product
> > versions and/or indirectly referenced/loaded DLLs.
> >
> > I did write a small PSAPI.dll based utility, which creates
> > the XML file with the information about DLLs loaded by MS
> > Access directly or indirectly:
> >
> > http://smsconsulting.spb.ru/download/tests/myPSAPI.zip (10KB)
> >
> > Run it on your development PC and on the target PC after you
> > run your test because DLLs are loaded on demand only and you
> > will have the complete list of DLL only when you run your app
> > (Of course on the target system your app should be decompiled
> > and compiled and saved to let it run successfully).
> >
> > You'll get processes.xml file with information like in P.S.
> > of this message. MS Access should be active when you run the utility.
> >
> > When you get two xml files you can compare them to see what
> > are the differences of the loaded DLLs versions.
> >
> > But it still could be no clue there....
> >
> > Andy, there are no miracles in programming, you know that as
> > well as I do - instead of spending time trying to indirectly
> > solve the issue I'd recommend you to find the code lines
> > giving you the trouble - it's the second day you are looking
> > for "magical" solution - IMO it's now time to stop relying on
> > miracles and to do some dirty routine tracing/logging work
> > and fix the bug in your (legacy) code...
> >
> > And when you fix the trouble - use .MDEs they run faster and
> > are smaller in size than big MDBs with compiled and saved code...
> >
> > I'm sorry, I think I can't be of any help further in this issue....
> >
> > Shamil
> >
> > P.S.
> >
> >   <?xml version="1.0" encoding="utf-8" ?>
> > - <Processes>
> > - <Process>
> >   <Id>3708</Id>
> >   <BaseName>msaccess.exe</BaseName>
> >   <MemUsage>7,524KB</MemUsage>
> >   <ExeFullPath>D:\Program
> > Files\MSOffice\97\Office\msaccess.exe</ExeFullPath>
> >   <ModulesCount>25</ModulesCount>
> > - <version>
> >   <vi>CompanyName: Microsoft Corporation</vi>
> >   <vi>FileDescription: Microsoft Access</vi>
> >   <vi>FileVersion: 8.0.5903</vi>
> >   <vi>InternalName: MSACCESS</vi>
> >   <vi>LegalCopyright: Copyright C Microsoft Corp. 1991-1997.
> > All rights reserved.</vi>
> >   <vi>OriginalFilename: MSACCESS.EXE</vi>
> >   <vi>ProductName: MicrosoftR Access</vi>
> >   <vi>ProductVersion: 8.0.5903</vi>
> >   <vi>Comments</vi>
> >   <vi>LegalTrademarks</vi>
> >   <vi>PrivateBuild</vi>
> >   <vi>SpecialBuild</vi>
> >   </version>
> > - <Modules>
> > - <Module>
> >   <BaseName>ntdll.dll</BaseName>
> >   <ExeFullPath>D:\WINDOWS\system32\ntdll.dll</ExeFullPath>
> > - <version>
> >   <vi>CompanyName: Microsoft Corporation</vi>
> >   <vi>FileDescription: NT Layer DLL</vi>
> >   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
> >   <vi>InternalName: ntdll.dll</vi>
> >   <vi>LegalCopyright: C Microsoft Corporation. All rights
> > reserved.</vi>
> >   <vi>OriginalFilename: ntdll.dll</vi>
> >   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
> >   <vi>ProductVersion: 5.2.3790.0</vi>
> >   <vi>Comments</vi>
> >   <vi>LegalTrademarks</vi>
> >   <vi>PrivateBuild</vi>
> >   <vi>SpecialBuild</vi>
> >   </version>
> >   </Module>
> > - <Module>
> >   <BaseName>kernel32.dll</BaseName>
> >   <ExeFullPath>D:\WINDOWS\system32\kernel32.dll</ExeFullPath>
> > - <version>
> >   <vi>CompanyName: Microsoft Corporation</vi>
> >   <vi>FileDescription: Windows NT BASE API Client DLL</vi>
> >   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
> >   <vi>InternalName: kernel32</vi>
> >   <vi>LegalCopyright: C Microsoft Corporation. All rights
> > reserved.</vi>
> >   <vi>OriginalFilename: kernel32</vi>
> >   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
> >   <vi>ProductVersion: 5.2.3790.0</vi>
> >
> >
> > ... etc...
> >
> > P.P.S (could be of help in other issues)
> >
> > If you run myPSAPI.exe with a parameter equal to a (part of
> > the) name of an active process/processes it will create
> > processes.xml file for this process/these processes....
> >
> > ----- Original Message ----- 
> > From: "Andy Lacey" <andy at minstersystems.co.uk>
> > To: "Access Developers discussion and problem solving"
> > <accessd at databaseadvisors.com>
> > Sent: Tuesday, January 10, 2006 4:52 PM
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> >
> >
> > > I've listed below the results of running ListRefs on the
> > two machines.
> > > At first I thought they were identical, but there is one
> > difference in
> > > the
> > path
> > > to the Outlok library. Under W98 this is
> > >
> > > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> > >
> > > whereas W2K has the old-fashioned DOS'y path of
> > >
> > > C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> > >
> > > Surely this is not significant. It can't be, can it?
> > >
> > > The other thing I thought odd was that the DAO 3.5
> > reference returns a
> > > .Major and .Minor of 4.0 not 3.5, but then again it's the
> > same on both
> > > machines.
> > >
> > >
> > > Windows 98
> > > ==========
> > > VBA.3.0 0 True False
> > > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL
> > > {000204EF-0000-0000-C000-000000000046}
> > > False
> > > Access.8.0 0 True False
> > > C:\Program Files\Microsoft Office\Office\MSACC8.OLB
> > > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > > False
> > > DAO.4.0 0 False False
> > > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL
> > > {00025E01-0000-0000-C000-000000000046}
> > > False
> > > Outlook.9.0 0 False False
> > > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> > > {00062FFF-0000-0000-C000-000000000046}
> > > False
> > > Word.8.0 0 False False
> > > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
> > > {00020905-0000-0000-C000-000000000046}
> > > False
> > >
> > >
> > > Windows 2000
> > > ============
> > > VBA.3.0 0 True False
> > > C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLL
> > > {000204EF-0000-0000-C000-000000000046}
> > > False
> > > Access.8.0 0 True False
> > > C:\Program Files\Microsoft Office\Office\msacc8.olb
> > > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > > False
> > > DAO.4.0 0 False False
> > > C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll
> > > {00025E01-0000-0000-C000-000000000046}
> > > False
> > > Outlook.9.0 0 False False C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> > > {00062FFF-0000-0000-C000-000000000046}
> > > False
> > > Word.8.0 0 False False
> > > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
> > > {00020905-0000-0000-C000-000000000046}
> > > False
> > >
> > >
> > > Does any of this give any clues Shamil?
> > >
> > >
> > > --
> > > Andy Lacey
> > > http://www.minstersystems.co.uk
> > >
> > >
> > >
> > <<< tail skipped>>>
> >
> > -- 
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Tue Jan 10 14:08:55 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 10 Jan 2006 21:08:55 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c4227b.003@cactus.dk>

Hi Andy

If so it could be something outside Access. Try to run the graphics driver at low colour resolution and check for updates. 
Also the printer driver for the default printer may cause trouble. Test with a new default printer assigned a low-tech printer driver like Windows' HP LaserJet II.

/gustav

>>> andy at minstersystems.co.uk 10-01-2006 20:40:49 >>>

I'd have found the code if I thought that feasible I assure you but there is
little or no pattern to where it crashes. I can execute the same key presses
and it will fail at different points each time.




From prosoft6 at hotmail.com  Tue Jan 10 14:34:26 2006
From: prosoft6 at hotmail.com (Julie Reardon-Taylor)
Date: Tue, 10 Jan 2006 15:34:26 -0500
Subject: [AccessD] Filtering a combo box
Message-ID: <BAY114-F16B4BAE4F24E687D2BEA1E9A250@phx.gbl>

Hi Group,

This is another one of my simple minded questions.  I haven't asked on in 
awhile, so I'm hoping that you will indulge me.

All I want to do is filter a combo box's values when the records on my form 
are in a filtered state.  In other words, I want to apply the same filter to 
both the records on my form as well as the combo box that allows the user to 
search for a record.



Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business




From cfoust at infostatsystems.com  Tue Jan 10 15:11:27 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 10 Jan 2006 13:11:27 -0800
Subject: [AccessD] Filtering a combo box
Message-ID: <F55048AF7E974F429BB24597D7355EEABEF7@INFOSERVER04.infostat.local>

If you do that, are you going to provide a means for the user to turn
off the filter and show all records?  Otherwise, they'll be trapped.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Julie
Reardon-Taylor
Sent: Tuesday, January 10, 2006 12:34 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] Filtering a combo box


Hi Group,

This is another one of my simple minded questions.  I haven't asked on
in 
awhile, so I'm hoping that you will indulge me.

All I want to do is filter a combo box's values when the records on my
form 
are in a filtered state.  In other words, I want to apply the same
filter to 
both the records on my form as well as the combo box that allows the
user to 
search for a record.



Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business


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


From prosoft6 at hotmail.com  Tue Jan 10 15:17:26 2006
From: prosoft6 at hotmail.com (Julie Reardon-Taylor)
Date: Tue, 10 Jan 2006 16:17:26 -0500
Subject: [AccessD] Filtering a combo box
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABEF7@INFOSERVER04.infostat.local>
Message-ID: <BAY114-F3339B20A000FD3D0D9D1829A250@phx.gbl>

Yes.  Definitely.



Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business




From JHewson at karta.com  Tue Jan 10 15:46:37 2006
From: JHewson at karta.com (Jim Hewson)
Date: Tue, 10 Jan 2006 15:46:37 -0600
Subject: [AccessD] Filtering a combo box
Message-ID: <9C382E065F54AE48BC3AA7925DCBB01C03AC7D7F@karta-exc-int.Karta.com>

Use the same filter (query) for the combo box as the form. Refresh the form after you set the filter.
The filter will apply both to the form and the combo box.

Jim 
jhewson at karta.com
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Julie Reardon-Taylor
Sent: Tuesday, January 10, 2006 2:34 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] Filtering a combo box

Hi Group,

This is another one of my simple minded questions.  I haven't asked on in 
awhile, so I'm hoping that you will indulge me.

All I want to do is filter a combo box's values when the records on my form 
are in a filtered state.  In other words, I want to apply the same filter to 
both the records on my form as well as the combo box that allows the user to 
search for a record.



Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business


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


From cfoust at infostatsystems.com  Tue Jan 10 15:46:33 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 10 Jan 2006 13:46:33 -0800
Subject: [AccessD] Filtering a combo box
Message-ID: <F55048AF7E974F429BB24597D7355EEABEF8@INFOSERVER04.infostat.local>

In that case, assuming you're applying a filter to the form, you can get
the filterstring for the form. Then assuming your combobox has a SELECT
statement as a rowsource and you have the default "all records"
rowsource for the combobox stored in a constant in the form, you can
just add the filterstring as a where clause and set the rowsource to the
new SQL statement.  When you want to show all, just set the rowsource
back to the default select string.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Julie
Reardon-Taylor
Sent: Tuesday, January 10, 2006 1:17 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Filtering a combo box


Yes.  Definitely.



Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business


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


From andy at minstersystems.co.uk  Tue Jan 10 16:07:05 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 22:07:05 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <43C40E66.2040004@shaw.ca>
Message-ID: <007901c61632$31692cb0$6caf0c54@minster33c3r25>

Hi Marty, thanks for the suggestions but it's an Access 97 MDB, so some of
these don't apply. And it's not actually a corrupt MDB as it runs (and has
done for years) under W98 and, in many situations, under W2K and XP too.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> MartyConnelly
> Sent: 10 January 2006 19:44
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> Check you are using Windows 2000 Service Pack 3 (SP3)  to stop oplock 
> problems
> When compiling make sure Track name AutoCorrect  is off
> can lead to corruption problems.
> Tools >> Options >> General >>.Track name AutoCorrect info 
> should be off.
> 
> Alan Browne has this suggestion http://allenbrowne.com/ser-25.html
> 
> In your subforms, include a text box for each field in its 
> LinkChildFields property. This simple step avoids frequent but 
> intermittent crashes of Access 2002 and 2003 ("... shut down by 
> Windows..."). The text boxes can be hidden if you do not wish 
> to see the 
> foreign key fields.
> 
> Or Tony Toews corruption FAQ
> 
> http://www.granite.ab.ca/access/corruptmdbs.htm
> 
> Andy Lacey wrote:
> 
> >But the SysCmd does work for me Gustav. I see it working, 
> compilng and 
> >saving. My problem's almost the very reverse as far as I can see. My 
> >references all show as ok. Nothing broken. Nothing failing 
> to compile. 
> >Nothing to mend. It's just that something flipping well 
> crashes despite 
> >that. And, as I said, it's when the MDB has been decompiled and 
> >therefore my Syscmd runs that everything works (see my post 
> that begins 
> >"Well it's not an issue anyway"). My problems come when I 
> exit and then 
> >reload the by-now-compiled MDB. Any ideas?
> >
> >Any ideas from anyone who's ben following this?
> >
> >Yours desperately
> >
> >-- Andy Lacey
> >http://www.minstersystems.co.uk
> >
> >
> >  
> >
> >>-----Original Message-----
> >>From: accessd-bounces at databaseadvisors.com
> >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> >>Gustav Brock
> >>Sent: 10 January 2006 15:51
> >>To: accessd at databaseadvisors.com
> >>Subject: Re: [AccessD] Access97 on W2000 crashes
> >>
> >>
> >>Hi Andy
> >>
> >>First, if the issue is a dll, one (fast) thing to check is if
> >>any exists in more than one folder. If so, and you can't sort 
> >>that out, use RefLibPaths.
> >>
> >>Then, SysCmd(..) run from code will not compile and save the
> >>code. It must be done from outside a code module which means 
> >>manually (as we, the developer, do) or from a macro. 
> >>Brilliant idea from Charlotte. 
> >>It is not that difficult to implement. Read closely here from 
> >>the old thread:
> >>
> >>  Broken References in Runtime AXP and A97. Solved!
> >>
> >>  
> >>http://databaseadvisors.com/mailman/htdig/accessd/2003-July/01
> >>    
> >>
> >1034.html
> >
> >Note the extended test for broken references.
> >
> >/gustav
> >
> >  
> >
> >>>>andy at minstersystems.co.uk 10-01-2006 14:52:32 >>>
> >>>>        
> >>>>
> >I've listed below the results of running ListRefs on the two 
> machines. 
> >At first I thought they were identical, but there is one 
> difference in 
> >the path to the Outlok library. Under W98 this is
> >
> >C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> >
> >whereas W2K has the old-fashioned DOS'y path of
> >
> >C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> >
> >Surely this is not significant. It can't be, can it?
> >
> >The other thing I thought odd was that the DAO 3.5 reference 
> returns a 
> >.Major and .Minor of 4.0 not 3.5, but then again it's the 
> same on both 
> >machines.
> >
> >
> >  
> >
> 
> -- 
> Marty Connelly
> Victoria, B.C.
> Canada
> 
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From andy at minstersystems.co.uk  Tue Jan 10 16:07:05 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 22:07:05 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <003d01c61621$b59042a0$6401a8c0@fincomplex.spb.ru>
Message-ID: <007a01c61632$319d0df0$6caf0c54@minster33c3r25>

No, exactly the same data. Believe me. And I key absolutely nothing in. It's
a quoation module. Very complex but it's written such that the user's last
selections are "remembered" (ie written to a table). So when I open the 1st
form in the quotation cycle it offers me the last selections I made. All I
have to do is click 'Proceed' buttons to step through the process (bit like
a very big and complex wizard), so reproducing the same path through the
operation is easy. And sometimes it will crash on the first Proceed,
sometimes the 4th, or the 5th, and so on. Sometimes it will get all the way
through but crash on a second pass. But behind those buttons there's masses
of data retrieval and calculation going on, and calls to zillions of
functions. So, for example, pressing the 2nd Proceed will execute literally
hunders of lines of code. And it may crash somewhere in there. Or it may
not, but crash after the next Proceed. And bear in mind that none of this
crashes ever on any W98 machine (and did I mention that it doesn't crash
either on my XP machine at home, just W2K and XP machines as configured at
work?). So I'm not being difficult in holding off from tracking the point in
code where it crashes, it just looks like a lifetime's work to do so. And of
course I'd have to face up to that if I had a bug in there, but there can't
be a conventional bug if it's so inconsistent.

Aaaaaargh.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Shamil Salakhetdinov
> Sent: 10 January 2006 20:09
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> <<<
> it will fail at different points each time.
> >>>
> Andy,
> 
> This means you use the same key presses but different data.
> 
> Yes, it's not easy to have "clean hands" tests with MS Access 
> databases and programs...
> 
> But you said you get it crashed always in the same (long) VBA 
> procedure?
> 
> Shamil
> 
> ----- Original Message ----- 
> From: "Andy Lacey" <andy at minstersystems.co.uk>
> To: "'Access Developers discussion and problem solving'" 
> <accessd at databaseadvisors.com>
> Sent: Tuesday, January 10, 2006 10:40 PM
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> > Thanks for that Shamil I'll try it tomorrow.
> >
> > I'd have found the code if I thought that feasible I assure you but 
> > there
> is
> > little or no pattern to where it crashes. I can execute the same key
> presses
> > and it will fail at different points each time.
> >
> > -- Andy Lacey
> > http://www.minstersystems.co.uk
> >
> > > -----Original Message-----
> > > From: accessd-bounces at databaseadvisors.com
> > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil 
> > > Salakhetdinov
> > > Sent: 10 January 2006 18:07
> > > To: Access Developers discussion and problem solving
> > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > >
> > >
> > > > Does any of this give any clues Shamil?
> > > No, Andy, it doesn't. :(
> > >
> > > They look similar despite the difference in fullpath name for 
> > > outlook - this
> > > (hopefully) shouldn't force MS Access to automatically 
> change refs 
> > > because GUIDs are the same.
> > >
> > > The problem could be in the differences of the product versions 
> > > and/or indirectly referenced/loaded DLLs.
> > >
> > > I did write a small PSAPI.dll based utility, which 
> creates the XML 
> > > file with the information about DLLs loaded by MS Access 
> directly or 
> > > indirectly:
> > >
> > > http://smsconsulting.spb.ru/download/tests/myPSAPI.zip (10KB)
> > >
> > > Run it on your development PC and on the target PC after you run 
> > > your test because DLLs are loaded on demand only and you 
> will have 
> > > the complete list of DLL only when you run your app (Of course on 
> > > the target system your app should be decompiled and compiled and 
> > > saved to let it run successfully).
> > >
> > > You'll get processes.xml file with information like in 
> P.S. of this 
> > > message. MS Access should be active when you run the utility.
> > >
> > > When you get two xml files you can compare them to see 
> what are the 
> > > differences of the loaded DLLs versions.
> > >
> > > But it still could be no clue there....
> > >
> > > Andy, there are no miracles in programming, you know that 
> as well as 
> > > I do - instead of spending time trying to indirectly 
> solve the issue 
> > > I'd recommend you to find the code lines giving you the trouble - 
> > > it's the second day you are looking for "magical" solution - IMO 
> > > it's now time to stop relying on miracles and to do some dirty 
> > > routine tracing/logging work and fix the bug in your (legacy) 
> > > code...
> > >
> > > And when you fix the trouble - use .MDEs they run faster and are 
> > > smaller in size than big MDBs with compiled and saved code...
> > >
> > > I'm sorry, I think I can't be of any help further in this 
> issue....
> > >
> > > Shamil
> > >
> > > P.S.
> > >
> > >   <?xml version="1.0" encoding="utf-8" ?>
> > > - <Processes>
> > > - <Process>
> > >   <Id>3708</Id>
> > >   <BaseName>msaccess.exe</BaseName>
> > >   <MemUsage>7,524KB</MemUsage>
> > >   <ExeFullPath>D:\Program 
> > > Files\MSOffice\97\Office\msaccess.exe</ExeFullPath>
> > >   <ModulesCount>25</ModulesCount>
> > > - <version>
> > >   <vi>CompanyName: Microsoft Corporation</vi>
> > >   <vi>FileDescription: Microsoft Access</vi>
> > >   <vi>FileVersion: 8.0.5903</vi>
> > >   <vi>InternalName: MSACCESS</vi>
> > >   <vi>LegalCopyright: Copyright C Microsoft Corp. 1991-1997. All 
> > > rights reserved.</vi>
> > >   <vi>OriginalFilename: MSACCESS.EXE</vi>
> > >   <vi>ProductName: MicrosoftR Access</vi>
> > >   <vi>ProductVersion: 8.0.5903</vi>
> > >   <vi>Comments</vi>
> > >   <vi>LegalTrademarks</vi>
> > >   <vi>PrivateBuild</vi>
> > >   <vi>SpecialBuild</vi>
> > >   </version>
> > > - <Modules>
> > > - <Module>
> > >   <BaseName>ntdll.dll</BaseName>
> > >   <ExeFullPath>D:\WINDOWS\system32\ntdll.dll</ExeFullPath>
> > > - <version>
> > >   <vi>CompanyName: Microsoft Corporation</vi>
> > >   <vi>FileDescription: NT Layer DLL</vi>
> > >   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
> > >   <vi>InternalName: ntdll.dll</vi>
> > >   <vi>LegalCopyright: C Microsoft Corporation. All rights 
> > > reserved.</vi>
> > >   <vi>OriginalFilename: ntdll.dll</vi>
> > >   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
> > >   <vi>ProductVersion: 5.2.3790.0</vi>
> > >   <vi>Comments</vi>
> > >   <vi>LegalTrademarks</vi>
> > >   <vi>PrivateBuild</vi>
> > >   <vi>SpecialBuild</vi>
> > >   </version>
> > >   </Module>
> > > - <Module>
> > >   <BaseName>kernel32.dll</BaseName>
> > >   <ExeFullPath>D:\WINDOWS\system32\kernel32.dll</ExeFullPath>
> > > - <version>
> > >   <vi>CompanyName: Microsoft Corporation</vi>
> > >   <vi>FileDescription: Windows NT BASE API Client DLL</vi>
> > >   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
> > >   <vi>InternalName: kernel32</vi>
> > >   <vi>LegalCopyright: C Microsoft Corporation. All rights 
> > > reserved.</vi>
> > >   <vi>OriginalFilename: kernel32</vi>
> > >   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
> > >   <vi>ProductVersion: 5.2.3790.0</vi>
> > >
> > >
> > > ... etc...
> > >
> > > P.P.S (could be of help in other issues)
> > >
> > > If you run myPSAPI.exe with a parameter equal to a (part of
> > > the) name of an active process/processes it will create 
> > > processes.xml file for this process/these processes....
> > >
> > > ----- Original Message -----
> > > From: "Andy Lacey" <andy at minstersystems.co.uk>
> > > To: "Access Developers discussion and problem solving"
> > > <accessd at databaseadvisors.com>
> > > Sent: Tuesday, January 10, 2006 4:52 PM
> > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > >
> > >
> > > > I've listed below the results of running ListRefs on the
> > > two machines.
> > > > At first I thought they were identical, but there is one
> > > difference in
> > > > the
> > > path
> > > > to the Outlok library. Under W98 this is
> > > >
> > > > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> > > >
> > > > whereas W2K has the old-fashioned DOS'y path of
> > > >
> > > > C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> > > >
> > > > Surely this is not significant. It can't be, can it?
> > > >
> > > > The other thing I thought odd was that the DAO 3.5
> > > reference returns a
> > > > .Major and .Minor of 4.0 not 3.5, but then again it's the
> > > same on both
> > > > machines.
> > > >
> > > >
> > > > Windows 98
> > > > ==========
> > > > VBA.3.0 0 True False
> > > > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL 
> > > > {000204EF-0000-0000-C000-000000000046}
> > > > False
> > > > Access.8.0 0 True False
> > > > C:\Program Files\Microsoft Office\Office\MSACC8.OLB 
> > > > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > > > False
> > > > DAO.4.0 0 False False
> > > > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL 
> > > > {00025E01-0000-0000-C000-000000000046}
> > > > False
> > > > Outlook.9.0 0 False False
> > > > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb 
> > > > {00062FFF-0000-0000-C000-000000000046}
> > > > False
> > > > Word.8.0 0 False False
> > > > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB 
> > > > {00020905-0000-0000-C000-000000000046}
> > > > False
> > > >
> > > >
> > > > Windows 2000
> > > > ============
> > > > VBA.3.0 0 True False
> > > > C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLL 
> > > > {000204EF-0000-0000-C000-000000000046}
> > > > False
> > > > Access.8.0 0 True False
> > > > C:\Program Files\Microsoft Office\Office\msacc8.olb 
> > > > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > > > False
> > > > DAO.4.0 0 False False
> > > > C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll 
> > > > {00025E01-0000-0000-C000-000000000046}
> > > > False
> > > > Outlook.9.0 0 False False 
> C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> > > > {00062FFF-0000-0000-C000-000000000046}
> > > > False
> > > > Word.8.0 0 False False
> > > > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB 
> > > > {00020905-0000-0000-C000-000000000046}
> > > > False
> > > >
> > > >
> > > > Does any of this give any clues Shamil?
> > > >
> > > >
> > > > --
> > > > Andy Lacey
> > > > http://www.minstersystems.co.uk
> > > >
> > > >
> > > >
> > > <<< tail skipped>>>
> > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From stuart at lexacorp.com.pg  Tue Jan 10 16:30:56 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Wed, 11 Jan 2006 08:30:56 +1000
Subject: [AccessD] A2K - Unzip  and append from CD
In-Reply-To: <s3c3d477.084@cactus.dk>
Message-ID: <43C4C240.13625.2117B3D@stuart.lexacorp.com.pg>

On 10 Jan 2006 at 15:35, Gustav Brock wrote:

> Hi Reuben
> 
> If you tell a bit more someone might have an idea.
> How would you import a text file in Access without using Access ..?
> 

Using Jet or ODBC with any other application development environment that 
supports one of them? :-)



-- 
Stuart




From andy at minstersystems.co.uk  Tue Jan 10 16:32:31 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 22:32:31 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <007a01c61632$319d0df0$6caf0c54@minster33c3r25>
Message-ID: <007d01c61635$be9dacc0$6caf0c54@minster33c3r25>

Sorry, bad info there. I was wrong when I said "it doesn't crash either on
my XP machine at home". It does.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
> Sent: 10 January 2006 22:07
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> No, exactly the same data. Believe me. And I key absolutely 
> nothing in. It's a quoation module. Very complex but it's 
> written such that the user's last selections are "remembered" 
> (ie written to a table). So when I open the 1st form in the 
> quotation cycle it offers me the last selections I made. All 
> I have to do is click 'Proceed' buttons to step through the 
> process (bit like a very big and complex wizard), so 
> reproducing the same path through the operation is easy. And 
> sometimes it will crash on the first Proceed, sometimes the 
> 4th, or the 5th, and so on. Sometimes it will get all the way 
> through but crash on a second pass. But behind those buttons 
> there's masses of data retrieval and calculation going on, 
> and calls to zillions of functions. So, for example, pressing 
> the 2nd Proceed will execute literally hunders of lines of 
> code. And it may crash somewhere in there. Or it may not, but 
> crash after the next Proceed. And bear in mind that none of 
> this crashes ever on any W98 machine (and did I mention that 
> it doesn't crash either on my XP machine at home, just W2K 
> and XP machines as configured at work?). So I'm not being 
> difficult in holding off from tracking the point in code 
> where it crashes, it just looks like a lifetime's work to do 
> so. And of course I'd have to face up to that if I had a bug 
> in there, but there can't be a conventional bug if it's so 
> inconsistent.
> 
> Aaaaaargh.
> 
> -- Andy Lacey
> http://www.minstersystems.co.uk 
> 
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> > Shamil Salakhetdinov
> > Sent: 10 January 2006 20:09
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> > 
> > 
> > <<<
> > it will fail at different points each time.
> > >>>
> > Andy,
> > 
> > This means you use the same key presses but different data.
> > 
> > Yes, it's not easy to have "clean hands" tests with MS Access
> > databases and programs...
> > 
> > But you said you get it crashed always in the same (long) VBA
> > procedure?
> > 
> > Shamil
> > 
> > ----- Original Message -----
> > From: "Andy Lacey" <andy at minstersystems.co.uk>
> > To: "'Access Developers discussion and problem solving'" 
> > <accessd at databaseadvisors.com>
> > Sent: Tuesday, January 10, 2006 10:40 PM
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> > 
> > 
> > > Thanks for that Shamil I'll try it tomorrow.
> > >
> > > I'd have found the code if I thought that feasible I 
> assure you but
> > > there
> > is
> > > little or no pattern to where it crashes. I can execute 
> the same key
> > presses
> > > and it will fail at different points each time.
> > >
> > > -- Andy Lacey
> > > http://www.minstersystems.co.uk
> > >
> > > > -----Original Message-----
> > > > From: accessd-bounces at databaseadvisors.com
> > > > [mailto:accessd-bounces at databaseadvisors.com] On Behalf 
> Of Shamil
> > > > Salakhetdinov
> > > > Sent: 10 January 2006 18:07
> > > > To: Access Developers discussion and problem solving
> > > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > > >
> > > >
> > > > > Does any of this give any clues Shamil?
> > > > No, Andy, it doesn't. :(
> > > >
> > > > They look similar despite the difference in fullpath name for
> > > > outlook - this
> > > > (hopefully) shouldn't force MS Access to automatically 
> > change refs
> > > > because GUIDs are the same.
> > > >
> > > > The problem could be in the differences of the product versions
> > > > and/or indirectly referenced/loaded DLLs.
> > > >
> > > > I did write a small PSAPI.dll based utility, which
> > creates the XML
> > > > file with the information about DLLs loaded by MS Access
> > directly or
> > > > indirectly:
> > > >
> > > > http://smsconsulting.spb.ru/download/tests/myPSAPI.zip (10KB)
> > > >
> > > > Run it on your development PC and on the target PC after you run
> > > > your test because DLLs are loaded on demand only and you 
> > will have
> > > > the complete list of DLL only when you run your app (Of 
> course on
> > > > the target system your app should be decompiled and 
> compiled and 
> > > > saved to let it run successfully).
> > > >
> > > > You'll get processes.xml file with information like in
> > P.S. of this
> > > > message. MS Access should be active when you run the utility.
> > > >
> > > > When you get two xml files you can compare them to see
> > what are the
> > > > differences of the loaded DLLs versions.
> > > >
> > > > But it still could be no clue there....
> > > >
> > > > Andy, there are no miracles in programming, you know that
> > as well as
> > > > I do - instead of spending time trying to indirectly
> > solve the issue
> > > > I'd recommend you to find the code lines giving you the 
> trouble -
> > > > it's the second day you are looking for "magical" 
> solution - IMO 
> > > > it's now time to stop relying on miracles and to do some dirty 
> > > > routine tracing/logging work and fix the bug in your (legacy) 
> > > > code...
> > > >
> > > > And when you fix the trouble - use .MDEs they run faster and are
> > > > smaller in size than big MDBs with compiled and saved code...
> > > >
> > > > I'm sorry, I think I can't be of any help further in this
> > issue....
> > > >
> > > > Shamil
> > > >
> > > > P.S.
> > > >
> > > >   <?xml version="1.0" encoding="utf-8" ?>
> > > > - <Processes>
> > > > - <Process>
> > > >   <Id>3708</Id>
> > > >   <BaseName>msaccess.exe</BaseName>
> > > >   <MemUsage>7,524KB</MemUsage>
> > > >   <ExeFullPath>D:\Program
> > > > Files\MSOffice\97\Office\msaccess.exe</ExeFullPath>
> > > >   <ModulesCount>25</ModulesCount>
> > > > - <version>
> > > >   <vi>CompanyName: Microsoft Corporation</vi>
> > > >   <vi>FileDescription: Microsoft Access</vi>
> > > >   <vi>FileVersion: 8.0.5903</vi>
> > > >   <vi>InternalName: MSACCESS</vi>
> > > >   <vi>LegalCopyright: Copyright C Microsoft Corp. 
> 1991-1997. All 
> > > > rights reserved.</vi>
> > > >   <vi>OriginalFilename: MSACCESS.EXE</vi>
> > > >   <vi>ProductName: MicrosoftR Access</vi>
> > > >   <vi>ProductVersion: 8.0.5903</vi>
> > > >   <vi>Comments</vi>
> > > >   <vi>LegalTrademarks</vi>
> > > >   <vi>PrivateBuild</vi>
> > > >   <vi>SpecialBuild</vi>
> > > >   </version>
> > > > - <Modules>
> > > > - <Module>
> > > >   <BaseName>ntdll.dll</BaseName>
> > > >   <ExeFullPath>D:\WINDOWS\system32\ntdll.dll</ExeFullPath>
> > > > - <version>
> > > >   <vi>CompanyName: Microsoft Corporation</vi>
> > > >   <vi>FileDescription: NT Layer DLL</vi>
> > > >   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
> > > >   <vi>InternalName: ntdll.dll</vi>
> > > >   <vi>LegalCopyright: C Microsoft Corporation. All rights 
> > > > reserved.</vi>
> > > >   <vi>OriginalFilename: ntdll.dll</vi>
> > > >   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
> > > >   <vi>ProductVersion: 5.2.3790.0</vi>
> > > >   <vi>Comments</vi>
> > > >   <vi>LegalTrademarks</vi>
> > > >   <vi>PrivateBuild</vi>
> > > >   <vi>SpecialBuild</vi>
> > > >   </version>
> > > >   </Module>
> > > > - <Module>
> > > >   <BaseName>kernel32.dll</BaseName>
> > > >   <ExeFullPath>D:\WINDOWS\system32\kernel32.dll</ExeFullPath>
> > > > - <version>
> > > >   <vi>CompanyName: Microsoft Corporation</vi>
> > > >   <vi>FileDescription: Windows NT BASE API Client DLL</vi>
> > > >   <vi>FileVersion: 5.2.3790.0 (srv03_rtm.030324-2048)</vi>
> > > >   <vi>InternalName: kernel32</vi>
> > > >   <vi>LegalCopyright: C Microsoft Corporation. All rights 
> > > > reserved.</vi>
> > > >   <vi>OriginalFilename: kernel32</vi>
> > > >   <vi>ProductName: MicrosoftR WindowsR Operating System</vi>
> > > >   <vi>ProductVersion: 5.2.3790.0</vi>
> > > >
> > > >
> > > > ... etc...
> > > >
> > > > P.P.S (could be of help in other issues)
> > > >
> > > > If you run myPSAPI.exe with a parameter equal to a (part of
> > > > the) name of an active process/processes it will create
> > > > processes.xml file for this process/these processes....
> > > >
> > > > ----- Original Message -----
> > > > From: "Andy Lacey" <andy at minstersystems.co.uk>
> > > > To: "Access Developers discussion and problem solving" 
> > > > <accessd at databaseadvisors.com>
> > > > Sent: Tuesday, January 10, 2006 4:52 PM
> > > > Subject: Re: [AccessD] Access97 on W2000 crashes
> > > >
> > > >
> > > > > I've listed below the results of running ListRefs on the
> > > > two machines.
> > > > > At first I thought they were identical, but there is one
> > > > difference in
> > > > > the
> > > > path
> > > > > to the Outlok library. Under W98 this is
> > > > >
> > > > > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> > > > >
> > > > > whereas W2K has the old-fashioned DOS'y path of
> > > > >
> > > > > C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> > > > >
> > > > > Surely this is not significant. It can't be, can it?
> > > > >
> > > > > The other thing I thought odd was that the DAO 3.5
> > > > reference returns a
> > > > > .Major and .Minor of 4.0 not 3.5, but then again it's the
> > > > same on both
> > > > > machines.
> > > > >
> > > > >
> > > > > Windows 98
> > > > > ==========
> > > > > VBA.3.0 0 True False
> > > > > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA332.DLL
> > > > > {000204EF-0000-0000-C000-000000000046}
> > > > > False
> > > > > Access.8.0 0 True False
> > > > > C:\Program Files\Microsoft Office\Office\MSACC8.OLB 
> > > > > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > > > > False
> > > > > DAO.4.0 0 False False
> > > > > C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\DAO\DAO350.DLL 
> > > > > {00025E01-0000-0000-C000-000000000046}
> > > > > False
> > > > > Outlook.9.0 0 False False
> > > > > C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb 
> > > > > {00062FFF-0000-0000-C000-000000000046}
> > > > > False
> > > > > Word.8.0 0 False False
> > > > > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB 
> > > > > {00020905-0000-0000-C000-000000000046}
> > > > > False
> > > > >
> > > > >
> > > > > Windows 2000
> > > > > ============
> > > > > VBA.3.0 0 True False
> > > > > C:\Program Files\Common Files\Microsoft Shared\VBA\VBA332.DLL
> > > > > {000204EF-0000-0000-C000-000000000046}
> > > > > False
> > > > > Access.8.0 0 True False
> > > > > C:\Program Files\Microsoft Office\Office\msacc8.olb 
> > > > > {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}
> > > > > False
> > > > > DAO.4.0 0 False False
> > > > > C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll 
> > > > > {00025E01-0000-0000-C000-000000000046}
> > > > > False
> > > > > Outlook.9.0 0 False False 
> > C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> > > > > {00062FFF-0000-0000-C000-000000000046}
> > > > > False
> > > > > Word.8.0 0 False False
> > > > > C:\Program Files\Microsoft Office\Office\MSWORD8.OLB
> > > > > {00020905-0000-0000-C000-000000000046}
> > > > > False
> > > > >
> > > > >
> > > > > Does any of this give any clues Shamil?
> > > > >
> > > > >
> > > > > --
> > > > > Andy Lacey
> > > > > http://www.minstersystems.co.uk
> > > > >
> > > > >
> > > > >
> > > > <<< tail skipped>>>
> > > >
> > > > --
> > > > AccessD mailing list
> > > > AccessD at databaseadvisors.com 
> > > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > > Website: http://www.databaseadvisors.com
> > > >
> > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com 
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > 
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com 
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> > 
> > 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From andy at minstersystems.co.uk  Tue Jan 10 17:21:35 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Tue, 10 Jan 2006 23:21:35 -0000
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <s3c41f4d.002@cactus.dk>
Message-ID: <000001c6163c$99c08e20$6caf0c54@minster33c3r25>

No, sorry to confuse Gustav. When I said I could see it I menat I can see
the Compile progress indicator, then the Save one.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gustav Brock
> Sent: 10 January 2006 19:55
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> Hi Andy
> 
> Hmm, if you can "see it working", I guess you run it from the 
> Immediate window. That works, but it is not the same as 
> calling it from code - that's the trap. But I'm not saying 
> this is the key to the solution, only that you may think the 
> code gets compiled and saved while it perhaps doesn't.
> 
> I would follow Shamil's advice closely and track down the 
> offending code lines. Then rewrite the code.
> 
> Once I had some very simple code (no API, no dll) that worked 
> perfectly here and on the client's Win2000 machines. On her 
> Win98 machines the app crashed much like yours - just poof 
> and no Access. I rewrote the code and the problem was gone.
> 
> /gustav
> 
> >>> andy at minstersystems.co.uk 10-01-2006 19:12:14 >>>
> But the SysCmd does work for me Gustav. I see it working, 
> compilng and saving. My problem's almost the very reverse as 
> far as I can see. My references all show as ok. Nothing 
> broken. Nothing failing to compile. Nothing to mend. It's 
> just that something flipping well crashes despite that. And, 
> as I said, it's when the MDB has been decompiled and 
> therefore my Syscmd runs that everything works (see my post 
> that begins "Well it's not an issue anyway"). My problems 
> come when I exit and then reload the by-now-compiled MDB. Any ideas?
> 
> Any ideas from anyone who's ben following this?
> 
> Yours desperately
> 
> -- Andy Lacey
> http://www.minstersystems.co.uk 
> 
> 
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> > Gustav Brock
> > Sent: 10 January 2006 15:51
> > To: accessd at databaseadvisors.com 
> > Subject: Re: [AccessD] Access97 on W2000 crashes
> > 
> > 
> > Hi Andy
> > 
> > First, if the issue is a dll, one (fast) thing to check is if
> > any exists in more than one folder. If so, and you can't sort 
> > that out, use RefLibPaths.
> > 
> > Then, SysCmd(..) run from code will not compile and save the
> > code. It must be done from outside a code module which means 
> > manually (as we, the developer, do) or from a macro. 
> > Brilliant idea from Charlotte. 
> > It is not that difficult to implement. Read closely here from 
> > the old thread:
> > 
> >   Broken References in Runtime AXP and A97. Solved!
> > 
> >   
> > http://databaseadvisors.com/mailman/htdig/accessd/2003-July/01
> 1034.html 
> 
> Note the extended test for broken references.
> 
> /gustav
> 
> >>> andy at minstersystems.co.uk 10-01-2006 14:52:32 >>>
> I've listed below the results of running ListRefs on the two 
> machines. At
> first I thought they were identical, but there is one 
> difference in the path
> to the Outlok library. Under W98 this is
> 
> C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\msoutl9.olb
> 
> whereas W2K has the old-fashioned DOS'y path of
> 
> C:\PROGRA~1\MICROS~1\Office\msoutl9.olb
> 
> Surely this is not significant. It can't be, can it?
> 
> The other thing I thought odd was that the DAO 3.5 reference returns a
> .Major and .Minor of 4.0 not 3.5, but then again it's the same on both
> machines.
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From prosoft6 at hotmail.com  Tue Jan 10 17:21:58 2006
From: prosoft6 at hotmail.com (Julie Reardon-Taylor)
Date: Tue, 10 Jan 2006 18:21:58 -0500
Subject: [AccessD] Filtering a combo box
In-Reply-To: <9C382E065F54AE48BC3AA7925DCBB01C03AC7D7F@karta-exc-int.Karta.com>
Message-ID: <BAY114-F17AC10688FE850B9B4C1BE9A250@phx.gbl>

Found this knowledge base article that states that "Access does not allow 
filters on a combo box"


http://support.microsoft.com/default.aspx?scid=kb;en-us;209542


Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business




From cfoust at infostatsystems.com  Tue Jan 10 17:32:39 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 10 Jan 2006 15:32:39 -0800
Subject: [AccessD] Filtering a combo box
Message-ID: <F55048AF7E974F429BB24597D7355EEABEF9@INFOSERVER04.infostat.local>

You don't filter it in the same sense you filter the form, you merely
add the filter condition (i.e., Where Field1 = 'A'") to the rowsource of
the combobox.  Resetting the rowsource effectively filters the contents.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Julie
Reardon-Taylor
Sent: Tuesday, January 10, 2006 3:22 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Filtering a combo box


Found this knowledge base article that states that "Access does not
allow 
filters on a combo box"


http://support.microsoft.com/default.aspx?scid=kb;en-us;209542


Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business


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


From prosoft6 at hotmail.com  Tue Jan 10 17:48:34 2006
From: prosoft6 at hotmail.com (Julie Reardon-Taylor)
Date: Tue, 10 Jan 2006 18:48:34 -0500
Subject: [AccessD] Filtering a combo box
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABEF9@INFOSERVER04.infostat.local>
Message-ID: <BAY114-F263EF90C874C1B561094139A250@phx.gbl>

Thanks Charlotte and Jim.  I was able to use the same filter for both, just 
couldn't figure out how to apply the filter to both at the same time, ie. in 
one click.



Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net
NYS IT Services Contract CMT026A
NYS Certified Woman-Owned Business




From KIsmert at texassystems.com  Tue Jan 10 21:51:41 2006
From: KIsmert at texassystems.com (Ken Ismert)
Date: Tue, 10 Jan 2006 21:51:41 -0600
Subject: [AccessD] Filtering a combo box
Message-ID: <B7C87D3ABC87FC4E8CFE054CE2E8868A31527F@aries.TexasSystems.local>


>> ... are you going to provide a means for the user 
>> to turn off the filter and show all records? ...

Would you be interested doing this in a way that:

* Doesn't build a SQL statement or Where clause
* Doesn't build a filter string
* Can use as little as 1 line of code

-Ken


From jmhecht at earthlink.net  Tue Jan 10 22:22:58 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 10 Jan 2006 20:22:58 -0800
Subject: [AccessD] Push Data
Message-ID: <000001c61666$b4378310$6701a8c0@HPLaptop>

My head still hurts from the DateDiff fight I had over the
weekend.

 

I am going to have a master form and many sub forms on a tab
control.

 

What issues do I want to look out for in trying to push data
from the parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one
employee, I want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Tue Jan 10 22:48:48 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 10 Jan 2006 20:48:48 -0800
Subject: [AccessD] cbo valuelist vs lookup table
Message-ID: <000d01c6166a$504680a0$6701a8c0@HPLaptop>

A table and or matching forms have several places where a
combo box is appropriate

 

Figure at worst 5 people in database at any one time.
Unlikely .but not impossible to might be in same form at
same time. Split DB.

 

What is the hit of using tables as lookup source for combo
box vs. list box in this scenario?

 

This is a project that may go commercial and other people
may have other thoughts on how to describe things?

 

Thanks 

 

Joe Hecht

jmhecht at earthlink.net

 



From artful at rogers.com  Tue Jan 10 23:32:35 2006
From: artful at rogers.com (Arthur Fuller)
Date: Wed, 11 Jan 2006 00:32:35 -0500
Subject: [AccessD] Access97 on W2000 crashes
In-Reply-To: <s3c2b39d.051@cactus.dk>
Message-ID: <054001c61670$6dbeb200$8e01a8c0@rock>

You will most assuredly be punished in the next life, Gustav, even if you
did nothing wrong in this life. That's how it is. The man who laughs has not
been told the truth. LOL.
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: January 9, 2006 1:03 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Access97 on W2000 crashes

Hi Shamil

You are absolutely right. But, you know, this app was developed by someone
else and I really didn't feel that much for it. I was happy just to be able
to track down this weird bug. The budget didn't leave room for fun, so ... 
Will I be punished in the next life? Who knows.

/gustav



From shamil at users.mns.ru  Wed Jan 11 03:06:04 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 11 Jan 2006 12:06:04 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <054001c61670$6dbeb200$8e01a8c0@rock>
Message-ID: <002a01c61693$a46f50c0$6401a8c0@fincomplex.spb.ru>

Arthur & Gustav,

The kids (next generations) pay for/have to fix their fathers' sins/bugs.
That's is how it is.
And I'm serious talking about that.

Let's leave more fun work for our kids and let's do as much as possible
heavy and dirty work by ourselves?

Shamil

----- Original Message ----- 
From: "Arthur Fuller" <artful at rogers.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 8:32 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> You will most assuredly be punished in the next life, Gustav, even if you
> did nothing wrong in this life. That's how it is. The man who laughs has
not
> been told the truth. LOL.
> Arthur
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
> Sent: January 9, 2006 1:03 PM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Access97 on W2000 crashes
>
> Hi Shamil
>
> You are absolutely right. But, you know, this app was developed by someone
> else and I really didn't feel that much for it. I was happy just to be
able
> to track down this weird bug. The budget didn't leave room for fun, so ...
> Will I be punished in the next life? Who knows.
>
> /gustav
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From shamil at users.mns.ru  Wed Jan 11 03:44:37 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 11 Jan 2006 12:44:37 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <007a01c61632$319d0df0$6caf0c54@minster33c3r25>
Message-ID: <002b01c61693$a4957660$6401a8c0@fincomplex.spb.ru>

Andy,

Can you convert your app to MS Access 2003 just for testing purposes? Reason
is that MS Access 2003 is more stable usually and it may give you exact
position where your code is troublesome...

<<<
>  but there can't
> be a conventional bug if it's so inconsistent.
>>>
It still can be a conventional bug:

1. If Win32 API is used
2. If late binding is used
3. If default properties (with late binding) are used
4. If withevents is used
...

For example late binding uses COM marshaling and for that it dynamically
allocates memory from the heap memory area - and what could be there can't
be predicted - "unexpected" crash when late binding used in "DLL-hell"
environment....

<<<
bit like a very big and complex wizard
>>>
Do you mean that during your tests you assign values to the wizard form
controls using saved in tables' values?
Do you have checkboxes on your wizard form?

Shamil

P.S. Have a look on real life case how WinAPI calls may result in
"unexpected" bugs:

<<<
http://www.lebans.com/monthcalendar.htm

Version 3.8

** BUG FIX**  Pressing the SHIFT Key under WIN2K caused a GPF. My partner
Pedro Gil found the cause. I had inadvertently left in some debug code that
was calling CopyMemory on what is now , under the current logic, a random
memory address. Under Win9x you can get away with this but with WIN2K's more
advanced memory protection logic you will generate an exception.

>>>

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 1:07 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> No, exactly the same data. Believe me. And I key absolutely nothing in.
It's
> a quoation module. Very complex but it's written such that the user's last
> selections are "remembered" (ie written to a table). So when I open the
1st
> form in the quotation cycle it offers me the last selections I made. All I
> have to do is click 'Proceed' buttons to step through the process (bit
like
> a very big and complex wizard), so reproducing the same path through the
> operation is easy. And sometimes it will crash on the first Proceed,
> sometimes the 4th, or the 5th, and so on. Sometimes it will get all the
way
> through but crash on a second pass. But behind those buttons there's
masses
> of data retrieval and calculation going on, and calls to zillions of
> functions. So, for example, pressing the 2nd Proceed will execute
literally
> hunders of lines of code. And it may crash somewhere in there. Or it may
> not, but crash after the next Proceed. And bear in mind that none of this
> crashes ever on any W98 machine (and did I mention that it doesn't crash
> either on my XP machine at home, just W2K and XP machines as configured at
> work?). So I'm not being difficult in holding off from tracking the point
in
> code where it crashes, it just looks like a lifetime's work to do so. And
of
> course I'd have to face up to that if I had a bug in there, but there
can't
> be a conventional bug if it's so inconsistent.
>
> Aaaaaargh.
>
> -- Andy Lacey
> http://www.minstersystems.co.uk
>
> Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Wed Jan 11 03:54:02 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 11 Jan 2006 10:54:02 +0100
Subject: [AccessD] A2K - Unzip  and append from CD
Message-ID: <s3c4e3dd.021@cactus.dk>

Hi Stuart

That's right. Don't know why, but I was thinking of using some import spec. But of course you can run your own code for reading the text file.
Thanks for the clarification.

/gustav

>>> stuart at lexacorp.com.pg 10-01-2006 23:30 >>>
On 10 Jan 2006 at 15:35, Gustav Brock wrote:

> Hi Reuben
> 
> If you tell a bit more someone might have an idea.
> How would you import a text file in Access without using Access ..?

Using Jet or ODBC with any other application development environment that 
supports one of them? :-)




From Gustav at cactus.dk  Wed Jan 11 04:10:00 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 11 Jan 2006 11:10:00 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c4e7a4.023@cactus.dk>

Hi Arthur and Shamil

Well, I left a line of in-line documentation telling that the stubborn code line must be commented out at all times.
Will that save me?

/gustav

>>> shamil at users.mns.ru 11-01-2006 10:06 >>>
Arthur & Gustav,

The kids (next generations) pay for/have to fix their fathers' sins/bugs.
That's is how it is.
And I'm serious talking about that.

Let's leave more fun work for our kids and let's do as much as possible
heavy and dirty work by ourselves?

Shamil

----- Original Message ----- 
From: "Arthur Fuller" <artful at rogers.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 8:32 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> You will most assuredly be punished in the next life, Gustav, even if you
> did nothing wrong in this life. That's how it is. The man who laughs has not
> been told the truth. LOL.
> Arthur
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
> Sent: January 9, 2006 1:03 PM
> To: accessd at databaseadvisors.com 
> Subject: Re: [AccessD] Access97 on W2000 crashes
>
> Hi Shamil
>
> You are absolutely right. But, you know, this app was developed by someone
> else and I really didn't feel that much for it. I was happy just to be able
> to track down this weird bug. The budget didn't leave room for fun, so ...
> Will I be punished in the next life? Who knows.
>
> /gustav




From andy at minstersystems.co.uk  Wed Jan 11 04:16:48 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Wed, 11 Jan 2006 10:16:48 +0000
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <20060111101646.1E3D026A353@smtp.nildram.co.uk>

Shamil, many, many thanks for your continued thoughts on my behalf. It is
MUCH appreciated. Same goes for anyone else who has made suggestions.

I'm working on creating a cut-down version of the MDB to see if it will
crash in that same routine then. Once I've done that I may well be able to
take it home and convert to Access 2003 (not available on-site here).

A dumb question: is there any way that the presence of an API call in a
module could have any effect on this even if is not called by the time the
crash occurs? i.e. am I safe in assuming that the only routines I need to
look at are ones I'm calling?

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 11/01/06 09:39


Andy,

Can you convert your app to MS Access 2003 just for testing purposes? Reason
is that MS Access 2003 is more stable usually and it may give you exact
position where your code is troublesome...

<<<
> but there can't
> be a conventional bug if it's so inconsistent.
>>>
It still can be a conventional bug:

1. If Win32 API is used
2. If late binding is used
3. If default properties (with late binding) are used
4. If withevents is used
....

For example late binding uses COM marshaling and for that it dynamically
allocates memory from the heap memory area - and what could be there can't
be predicted - "unexpected" crash when late binding used in "DLL-hell"
environment....

<<<
bit like a very big and complex wizard
>>>
Do you mean that during your tests you assign values to the wizard form
controls using saved in tables' values?
Do you have checkboxes on your wizard form?

Shamil

P.S. Have a look on real life case how WinAPI calls may result in
"unexpected" bugs:

<<<
http://www.lebans.com/monthcalendar.htm

Version 3.8

** BUG FIX** Pressing the SHIFT Key under WIN2K caused a GPF. My partner
Pedro Gil found the cause. I had inadvertently left in some debug code that
was calling CopyMemory on what is now , under the current logic, a random
memory address. Under Win9x you can get away with this but with WIN2K's more
advanced memory protection logic you will generate an exception.

>>>

----- Original Message -----
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 1:07 AM
Subject: Re: [AccessD] Access97 on W2000 crashes


> No, exactly the same data. Believe me. And I key absolutely nothing in.
It's
> a quoation module. Very complex but it's written such that the user's last
> selections are "remembered" (ie written to a table). So when I open the
1st
> form in the quotation cycle it offers me the last selections I made. All I
> have to do is click 'Proceed' buttons to step through the process (bit
like
> a very big and complex wizard), so reproducing the same path through the
> operation is easy. And sometimes it will crash on the first Proceed,
> sometimes the 4th, or the 5th, and so on. Sometimes it will get all the
way
> through but crash on a second pass. But behind those buttons there's
masses
> of data retrieval and calculation going on, and calls to zillions of
> functions. So, for example, pressing the 2nd Proceed will execute
literally
> hunders of lines of code. And it may crash somewhere in there. Or it may
> not, but crash after the next Proceed. And bear in mind that none of this
> crashes ever on any W98 machine (and did I mention that it doesn't crash
> either on my XP machine at home, just W2K and XP machines as configured at
> work?). So I'm not being difficult in holding off from tracking the point
in
> code where it crashes, it just looks like a lifetime's work to do so. And
of
> course I'd have to face up to that if I had a bug in there, but there
can't
> be a conventional bug if it's so inconsistent.
>
> Aaaaaargh.
>
> -- Andy Lacey
> http://www.minstersystems.co.uk
>
> Website: http://www.databaseadvisors.com

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

________________________________________________
Message sent using UebiMiau 2.7.2



From Gustav at cactus.dk  Wed Jan 11 04:19:38 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 11 Jan 2006 11:19:38 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c4e9e4.025@cactus.dk>

Hi Andy

OK, I see. But still, the simple fact is (or at least was) that code cannot compile and save itself and stay compiled and saved ...

If you close the app and reopen it without running anything (holding down Shift while launching) and check "Compile and save all modules", is this greyed out?
If so I would very much like to know how you do it - after you have resolved your urgent issue, of course.

/gustav

>>> andy at minstersystems.co.uk 11-01-2006 00:21 >>>
No, sorry to confuse Gustav. When I said I could see it I menat I can see
the Compile progress indicator, then the Save one.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gustav Brock
> Sent: 10 January 2006 19:55
> To: accessd at databaseadvisors.com 
> Subject: Re: [AccessD] Access97 on W2000 crashes
> 
> 
> Hi Andy
> 
> Hmm, if you can "see it working", I guess you run it from the 
> Immediate window. That works, but it is not the same as 
> calling it from code - that's the trap. But I'm not saying 
> this is the key to the solution, only that you may think the 
> code gets compiled and saved while it perhaps doesn't.
> 
> I would follow Shamil's advice closely and track down the 
> offending code lines. Then rewrite the code.
> 
> Once I had some very simple code (no API, no dll) that worked 
> perfectly here and on the client's Win2000 machines. On her 
> Win98 machines the app crashed much like yours - just poof 
> and no Access. I rewrote the code and the problem was gone.
> 
> /gustav
> 
> >>> andy at minstersystems.co.uk 10-01-2006 19:12:14 >>>
> But the SysCmd does work for me Gustav. I see it working, 
> compilng and saving. My problem's almost the very reverse as 
> far as I can see. My references all show as ok. Nothing 
> broken. Nothing failing to compile. Nothing to mend. It's 
> just that something flipping well crashes despite that. And, 
> as I said, it's when the MDB has been decompiled and 
> therefore my Syscmd runs that everything works (see my post 
> that begins "Well it's not an issue anyway"). My problems 
> come when I exit and then reload the by-now-compiled MDB. Any ideas?




From shamil at users.mns.ru  Wed Jan 11 04:44:45 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 11 Jan 2006 13:44:45 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <20060111101646.1E3D026A353@smtp.nildram.co.uk>
Message-ID: <002701c6169d$60b5c6c0$6401a8c0@fincomplex.spb.ru>

<<<
an API call in a module could have any effect on this
even if is not called by the time the
crash occurs?
>>>
No, it cannot. That would be a nightmare miracle if it could have such side
effect...  (I assume you don't have other API calls, which may unwillingly
change not only data but also the code and by thus result in calling other
API functions, which result in GPF. FYI: API functions' entry points are
written in a special area of loaded DLLs and this area isn't protected and
can be modified on runtime...)

<<<
am I safe in assuming that the only routines I need to
> look at are ones I'm calling?
>>>
Yes, you're safe. But be sure you don't miss any routines called by
indirectly fired events....

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 1:16 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Shamil, many, many thanks for your continued thoughts on my behalf. It is
> MUCH appreciated. Same goes for anyone else who has made suggestions.
>
> I'm working on creating a cut-down version of the MDB to see if it will
> crash in that same routine then. Once I've done that I may well be able to
> take it home and convert to Access 2003 (not available on-site here).
>
> A dumb question: is there any way that the presence of an API call in a
> module could have any effect on this even if is not called by the time the
> crash occurs? i.e. am I safe in assuming that the only routines I need to
> look at are ones I'm calling?
>
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>



From shamil at users.mns.ru  Wed Jan 11 04:52:45 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 11 Jan 2006 13:52:45 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <s3c4e7a4.023@cactus.dk>
Message-ID: <002801c6169d$60cd9480$6401a8c0@fincomplex.spb.ru>

Hi Gustav,

I may only guess - my guess it will give you some more positive points to
overweight the sins/bugs you left in your software and therefore, yes, this
line in online docs could save you :)

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 1:10 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Hi Arthur and Shamil
>
> Well, I left a line of in-line documentation telling that the stubborn
code line must be commented out at all times.
> Will that save me?
>
> /gustav
>

<<< tail skipped>>>



From andy at minstersystems.co.uk  Wed Jan 11 05:11:23 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Wed, 11 Jan 2006 11:11:23 +0000
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <20060111111122.6B3EC26FCF3@smtp.nildram.co.uk>

Well I'm not doing anything clever but it is working. And yes, if I exit and
reopen the app the compile is greyed out. The code I call at the start is
below. The sequence is that the desktop icon runs the mdb with a /X to run a
specific macro. The macro calls a function to handle all my starting up
stuff, and that, fairly early on, calls the Recompile function.

Function Recompile
If Application.IsCompiled = False Then
Call SysCmd(504, 16483)
End If
End Function

So, if I decompile and run my icon it recompiles and saves (and you can
watch the progress meters). If I exit and then run again it does not now
recompile. Is that unusual?

Bear in ind this is A97. Don't know if your experience is on later versions.

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 11/01/06 10:21


Hi Andy

OK, I see. But still, the simple fact is (or at least was) that code cannot
compile and save itself and stay compiled and saved ...

If you close the app and reopen it without running anything (holding down
Shift while launching) and check "Compile and save all modules", is this
greyed out?
If so I would very much like to know how you do it - after you have resolved
your urgent issue, of course.

/gustav

>>> andy at minstersystems.co.uk 11-01-2006 00:21 >>>
No, sorry to confuse Gustav. When I said I could see it I menat I can see
the Compile progress indicator, then the Save one.

-- Andy Lacey
http://www.minstersystems.co.uk

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Gustav Brock
> Sent: 10 January 2006 19:55
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Access97 on W2000 crashes
>
>
> Hi Andy
>
> Hmm, if you can "see it working", I guess you run it from the
> Immediate window. That works, but it is not the same as
> calling it from code - that's the trap. But I'm not saying
> this is the key to the solution, only that you may think the
> code gets compiled and saved while it perhaps doesn't.
>
> I would follow Shamil's advice closely and track down the
> offending code lines. Then rewrite the code.
>
> Once I had some very simple code (no API, no dll) that worked
> perfectly here and on the client's Win2000 machines. On her
> Win98 machines the app crashed much like yours - just poof
> and no Access. I rewrote the code and the problem was gone.
>
> /gustav
>
> >>> andy at minstersystems.co.uk 10-01-2006 19:12:14 >>>
> But the SysCmd does work for me Gustav. I see it working,
> compilng and saving. My problem's almost the very reverse as
> far as I can see. My references all show as ok. Nothing
> broken. Nothing failing to compile. Nothing to mend. It's
> just that something flipping well crashes despite that. And,
> as I said, it's when the MDB has been decompiled and
> therefore my Syscmd runs that everything works (see my post
> that begins "Well it's not an issue anyway"). My problems
> come when I exit and then reload the by-now-compiled MDB. Any ideas?


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

________________________________________________
Message sent using UebiMiau 2.7.2



From Gustav at cactus.dk  Wed Jan 11 08:23:43 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 11 Jan 2006 15:23:43 +0100
Subject: [AccessD] Access97 on W2000 crashes
Message-ID: <s3c5231e.032@cactus.dk>

Hi Andy

OK, thanks. Interesting.
The trick may (or rather must) be that you run this code from a macro at start. I will try that, though not now (busy with real work). 
All my testing at that time was done with A97.

/gustav

>>> andy at minstersystems.co.uk 11-01-2006 12:11 >>>
Well I'm not doing anything clever but it is working. And yes, if I exit and
reopen the app the compile is greyed out. The code I call at the start is
below. The sequence is that the desktop icon runs the mdb with a /X to run a
specific macro. The macro calls a function to handle all my starting up
stuff, and that, fairly early on, calls the Recompile function.

Function Recompile
If Application.IsCompiled = False Then
Call SysCmd(504, 16483)
End If
End Function

So, if I decompile and run my icon it recompiles and saves (and you can
watch the progress meters). If I exit and then run again it does not now
recompile. Is that unusual?

Bear in ind this is A97. Don't know if your experience is on later versions.

--
Andy Lacey
http://www.minstersystems.co.uk 




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
Subject: Re: [AccessD] Access97 on W2000 crashes
Date: 11/01/06 10:21


Hi Andy

OK, I see. But still, the simple fact is (or at least was) that code cannot
compile and save itself and stay compiled and saved ...

If you close the app and reopen it without running anything (holding down
Shift while launching) and check "Compile and save all modules", is this
greyed out?
If so I would very much like to know how you do it - after you have resolved
your urgent issue, of course.

/gustav

>>> andy at minstersystems.co.uk 11-01-2006 00:21 >>>
No, sorry to confuse Gustav. When I said I could see it I menat I can see
the Compile progress indicator, then the Save one.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Gustav Brock
> Sent: 10 January 2006 19:55
> To: accessd at databaseadvisors.com 
> Subject: Re: [AccessD] Access97 on W2000 crashes
>
>
> Hi Andy
>
> Hmm, if you can "see it working", I guess you run it from the
> Immediate window. That works, but it is not the same as
> calling it from code - that's the trap. But I'm not saying
> this is the key to the solution, only that you may think the
> code gets compiled and saved while it perhaps doesn't.
>
> I would follow Shamil's advice closely and track down the
> offending code lines. Then rewrite the code.
>
> Once I had some very simple code (no API, no dll) that worked
> perfectly here and on the client's Win2000 machines. On her
> Win98 machines the app crashed much like yours - just poof
> and no Access. I rewrote the code and the problem was gone.
>
> /gustav
>
> >>> andy at minstersystems.co.uk 10-01-2006 19:12:14 >>>
> But the SysCmd does work for me Gustav. I see it working,
> compilng and saving. My problem's almost the very reverse as
> far as I can see. My references all show as ok. Nothing
> broken. Nothing failing to compile. Nothing to mend. It's
> just that something flipping well crashes despite that. And,
> as I said, it's when the MDB has been decompiled and
> therefore my Syscmd runs that everything works (see my post
> that begins "Well it's not an issue anyway"). My problems
> come when I exit and then reload the by-now-compiled MDB. Any ideas?




From cfoust at infostatsystems.com  Wed Jan 11 10:34:25 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 08:34:25 -0800
Subject: [AccessD] Push Data
Message-ID: <F55048AF7E974F429BB24597D7355EEABEFF@INFOSERVER04.infostat.local>

What do you mean by "push data"?  Ordinarily, you pull data from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the default value
of a textbox on a child form to "=[Parent]![EmployeeID]" (without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the weekend.

 

I am going to have a master form and many sub forms on a tab control.

 

What issues do I want to look out for in trying to push data from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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


From jmhecht at earthlink.net  Wed Jan 11 10:40:50 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 08:40:50 -0800
Subject: [AccessD] Push Data
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABEFF@INFOSERVER04.infostat.local>
Message-ID: <000601c616cd$c82962a0$6701a8c0@HPLaptop>

I want the user to select an employee and then it will in
various fields in the parent and child forms.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 11, 2006 8:34 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

What do you mean by "push data"?  Ordinarily, you pull data
from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the
default value
of a textbox on a child form to "=[Parent]![EmployeeID]"
(without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the
weekend.

 

I am going to have a master form and many sub forms on a tab
control.

 

What issues do I want to look out for in trying to push data
from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one
employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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



From cfoust at infostatsystems.com  Wed Jan 11 10:50:35 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 08:50:35 -0800
Subject: [AccessD] Push Data
Message-ID: <F55048AF7E974F429BB24597D7355EEABF01@INFOSERVER04.infostat.local>

Joe,

If the subforms are linked to the parent form, the related records
should show up automatically ... Or are you talking about something
else?  Is this on existing or new records in the parent and child forms?
You can use code to fill in values, but it's generally a better idea to
let the child form retrieve the values rather than having it manipulated
from outside.  I'm not clear on the scenario you envision, so I may just
be confusing you.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 11, 2006 8:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


I want the user to select an employee and then it will in various fields
in the parent and child forms.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:34 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

What do you mean by "push data"?  Ordinarily, you pull data from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the default value
of a textbox on a child form to "=[Parent]![EmployeeID]" (without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the weekend.

 

I am going to have a master form and many sub forms on a tab control.

 

What issues do I want to look out for in trying to push data from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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


From jmhecht at earthlink.net  Wed Jan 11 11:26:20 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 09:26:20 -0800
Subject: [AccessD] Push Data
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF01@INFOSERVER04.infostat.local>
Message-ID: <000001c616d4$247011c0$6701a8c0@HPLaptop>

The form records workplace accidents.

Much of the information about the employee exists in the
employee tables. When a new incident is added I want the
user to select the employee name and then automatically fill
in fields like DOB, Hire Date, and license info.

I thought it would be better to push data out in after
update of cboemployee select. You seem to be recommending
that I pull instead.

Do I understand you correctly? 

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 11, 2006 8:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

Joe,

If the subforms are linked to the parent form, the related
records
should show up automatically ... Or are you talking about
something
else?  Is this on existing or new records in the parent and
child forms?
You can use code to fill in values, but it's generally a
better idea to
let the child form retrieve the values rather than having it
manipulated
from outside.  I'm not clear on the scenario you envision,
so I may just
be confusing you.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 8:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


I want the user to select an employee and then it will in
various fields
in the parent and child forms.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:34 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

What do you mean by "push data"?  Ordinarily, you pull data
from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the
default value
of a textbox on a child form to "=[Parent]![EmployeeID]"
(without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the
weekend.

 

I am going to have a master form and many sub forms on a tab
control.

 

What issues do I want to look out for in trying to push data
from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one
employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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



From cfoust at infostatsystems.com  Wed Jan 11 11:43:52 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 09:43:52 -0800
Subject: [AccessD] Push Data
Message-ID: <F55048AF7E974F429BB24597D7355EEABF02@INFOSERVER04.infostat.local>

You actually don't need to do either.  If that info is in a table
already, all you need is a subform linked to EmployeeID to display the
values for those fields.  If the employee ID  combo is and unbound
control on the parent form, the employee subform can be linked to the
value selected and nothing needs to be pushed anywhere because the child
form will fill in automatically.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 11, 2006 9:26 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


The form records workplace accidents.

Much of the information about the employee exists in the employee
tables. When a new incident is added I want the user to select the
employee name and then automatically fill in fields like DOB, Hire Date,
and license info.

I thought it would be better to push data out in after
update of cboemployee select. You seem to be recommending
that I pull instead.

Do I understand you correctly? 

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

Joe,

If the subforms are linked to the parent form, the related records
should show up automatically ... Or are you talking about something
else?  Is this on existing or new records in the parent and child forms?
You can use code to fill in values, but it's generally a better idea to
let the child form retrieve the values rather than having it manipulated
from outside.  I'm not clear on the scenario you envision, so I may just
be confusing you.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 8:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


I want the user to select an employee and then it will in various fields
in the parent and child forms.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:34 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

What do you mean by "push data"?  Ordinarily, you pull data from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the default value
of a textbox on a child form to "=[Parent]![EmployeeID]" (without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the weekend.

 

I am going to have a master form and many sub forms on a tab control.

 

What issues do I want to look out for in trying to push data from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

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


From jmhecht at earthlink.net  Wed Jan 11 11:56:38 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 09:56:38 -0800
Subject: [AccessD] Push Data
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF02@INFOSERVER04.infostat.local>
Message-ID: <000001c616d8$5ef77320$6701a8c0@HPLaptop>

Doesn't the table need to be open? That's why I was going to
push pull from the cbo query?

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 11, 2006 9:44 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

You actually don't need to do either.  If that info is in a
table
already, all you need is a subform linked to EmployeeID to
display the
values for those fields.  If the employee ID  combo is and
unbound
control on the parent form, the employee subform can be
linked to the
value selected and nothing needs to be pushed anywhere
because the child
form will fill in automatically.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 9:26 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


The form records workplace accidents.

Much of the information about the employee exists in the
employee
tables. When a new incident is added I want the user to
select the
employee name and then automatically fill in fields like
DOB, Hire Date,
and license info.

I thought it would be better to push data out in after
update of cboemployee select. You seem to be recommending
that I pull instead.

Do I understand you correctly? 

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

Joe,

If the subforms are linked to the parent form, the related
records
should show up automatically ... Or are you talking about
something
else?  Is this on existing or new records in the parent and
child forms?
You can use code to fill in values, but it's generally a
better idea to
let the child form retrieve the values rather than having it
manipulated
from outside.  I'm not clear on the scenario you envision,
so I may just
be confusing you.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 8:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


I want the user to select an employee and then it will in
various fields
in the parent and child forms.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:34 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

What do you mean by "push data"?  Ordinarily, you pull data
from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the
default value
of a textbox on a child form to "=[Parent]![EmployeeID]"
(without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the
weekend.

 

I am going to have a master form and many sub forms on a tab
control.

 

What issues do I want to look out for in trying to push data
from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one
employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

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



From jmhecht at earthlink.net  Wed Jan 11 12:50:09 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 10:50:09 -0800
Subject: [AccessD] Older Access install with A2K3
Message-ID: <000f01c616df$d8d8c200$6701a8c0@HPLaptop>

I know normally you install older versions of Access before
new ones.

 

If I put A2k in a separate directory or even a separate
partition will I be ok or is client change going to byte me

 

Joe Hecht

jmhecht at earthlink.net

 



From carbonnb at gmail.com  Wed Jan 11 12:58:43 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Wed, 11 Jan 2006 13:58:43 -0500
Subject: [AccessD] Older Access install with A2K3
In-Reply-To: <000f01c616df$d8d8c200$6701a8c0@HPLaptop>
References: <000f01c616df$d8d8c200$6701a8c0@HPLaptop>
Message-ID: <e04a6c920601111058o13895a44h@mail.gmail.com>

On 11/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> I know normally you install older versions of Access before
> new ones.
>
> If I put A2k in a separate directory or even a separate
> partition will I be ok or is client change going to byte me

Possibly, but more likely than not, you are going to have problems.

Your best bet is to uninstall O2K3, install A2K and then reinstall O2K3.

I tried to do it backwards with O2K and A97 and spent 2 days trying to
fix it. I ended up having to uninstall both, cleaning out the registry
(manually) and then reinstalling A97 and then O2K

A royal PITA it was.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From jmhecht at earthlink.net  Wed Jan 11 13:04:10 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 11:04:10 -0800
Subject: [AccessD] Currency Format
Message-ID: <001701c616e1$ce7a44d0$6701a8c0@HPLaptop>

If one sets data type to currency in a table how important
is it to change the format on the general tab below? 

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Wed Jan 11 13:07:04 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 11:07:04 -0800
Subject: [AccessD] Older Access install with A2K3
In-Reply-To: <e04a6c920601111058o13895a44h@mail.gmail.com>
Message-ID: <001f01c616e2$35f115d0$6701a8c0@HPLaptop>

Gotta love clients. I told them I am building in XP 2K3. Now
they do not want to buy either.

I really do not want to rebuild my hard drive for them.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bryan Carbonnell
Sent: Wednesday, January 11, 2006 10:59 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Older Access install with A2K3

On 11/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> I know normally you install older versions of Access
before
> new ones.
>
> If I put A2k in a separate directory or even a separate
> partition will I be ok or is client change going to byte
me

Possibly, but more likely than not, you are going to have
problems.

Your best bet is to uninstall O2K3, install A2K and then
reinstall O2K3.

I tried to do it backwards with O2K and A97 and spent 2 days
trying to
fix it. I ended up having to uninstall both, cleaning out
the registry
(manually) and then reinstalling A97 and then O2K

A royal PITA it was.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a
well
preserved body, but rather to skid in sideways, totally worn
out,
shouting "What a great ride!"
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From cfoust at infostatsystems.com  Wed Jan 11 13:27:04 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 11:27:04 -0800
Subject: [AccessD] Push Data
Message-ID: <F55048AF7E974F429BB24597D7355EEABF04@INFOSERVER04.infostat.local>

No, the child form is bound to the table and linked to the parent form
on the EmployeeID.  Unless I totally misunderstand what you're trying to
do.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 11, 2006 9:57 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


Doesn't the table need to be open? That's why I was going to push pull
from the cbo query?

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 11, 2006 9:44 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

You actually don't need to do either.  If that info is in a table
already, all you need is a subform linked to EmployeeID to display the
values for those fields.  If the employee ID  combo is and unbound
control on the parent form, the employee subform can be linked to the
value selected and nothing needs to be pushed anywhere because the child
form will fill in automatically.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 9:26 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


The form records workplace accidents.

Much of the information about the employee exists in the employee
tables. When a new incident is added I want the user to select the
employee name and then automatically fill in fields like DOB, Hire Date,
and license info.

I thought it would be better to push data out in after
update of cboemployee select. You seem to be recommending
that I pull instead.

Do I understand you correctly? 

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

Joe,

If the subforms are linked to the parent form, the related records
should show up automatically ... Or are you talking about something
else?  Is this on existing or new records in the parent and child forms?
You can use code to fill in values, but it's generally a better idea to
let the child form retrieve the values rather than having it manipulated
from outside.  I'm not clear on the scenario you envision, so I may just
be confusing you.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 8:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


I want the user to select an employee and then it will in various fields
in the parent and child forms.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:34 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

What do you mean by "push data"?  Ordinarily, you pull data from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the default value
of a textbox on a child form to "=[Parent]![EmployeeID]" (without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the weekend.

 

I am going to have a master form and many sub forms on a tab control.

 

What issues do I want to look out for in trying to push data from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

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

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


From martyconnelly at shaw.ca  Wed Jan 11 13:27:33 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Wed, 11 Jan 2006 11:27:33 -0800
Subject: [AccessD] Access97 on W2000 crashes
References: <20060111111122.6B3EC26FCF3@smtp.nildram.co.uk>
Message-ID: <43C55C25.9010603@shaw.ca>

Just something else to check.
This will tell you the version of DAO is in use within Access97 mdb
It will return either 3.51 or 3.6, you can use either with Access 97
depending on your reference settings.

Debug.Print DAO.DBEngine.Version

You might want to check you OS environment to see what Jet SP you are 
running
on your home machines and client. You can do this in code but this maybe 
quicker.

I have Jet SP8 installed
right click on these files in explorer then  select properties
Version Tab and look at the File Version Number

DAO 3.51
C:\WINDOWS\system32\msjet35.dll

3.51.3328.0

DAO 3.6
C:\WINDOWS\system32\msjet40.dll

4.00.8618.0


To find which older versions you maybe running insert above dll names
in DLL Help database to get older version numbers and what product 
installs them.

http://support.microsoft.com/dllhelp/

Andy Lacey wrote:

>Well I'm not doing anything clever but it is working. And yes, if I exit and
>reopen the app the compile is greyed out. The code I call at the start is
>below. The sequence is that the desktop icon runs the mdb with a /X to run a
>specific macro. The macro calls a function to handle all my starting up
>stuff, and that, fairly early on, calls the Recompile function.
>
>Function Recompile
>If Application.IsCompiled = False Then
>Call SysCmd(504, 16483)
>End If
>End Function
>
>So, if I decompile and run my icon it recompiles and saves (and you can
>watch the progress meters). If I exit and then run again it does not now
>recompile. Is that unusual?
>
>Bear in ind this is A97. Don't know if your experience is on later versions.
>
>--
>Andy Lacey
>http://www.minstersystems.co.uk
>
>
>
>
>--------- Original Message --------
>From: "Access Developers discussion and problem solving"
><accessd at databaseadvisors.com>
>To: "accessd at databaseadvisors.com" <accessd at databaseadvisors.com>
>Subject: Re: [AccessD] Access97 on W2000 crashes
>Date: 11/01/06 10:21
>
>
>Hi Andy
>
>OK, I see. But still, the simple fact is (or at least was) that code cannot
>compile and save itself and stay compiled and saved ...
>
>If you close the app and reopen it without running anything (holding down
>Shift while launching) and check "Compile and save all modules", is this
>greyed out?
>If so I would very much like to know how you do it - after you have resolved
>your urgent issue, of course.
>
>/gustav
>
>  
>
>>>>andy at minstersystems.co.uk 11-01-2006 00:21 >>>
>>>>        
>>>>
>No, sorry to confuse Gustav. When I said I could see it I menat I can see
>the Compile progress indicator, then the Save one.
>
>-- Andy Lacey
>http://www.minstersystems.co.uk
>
>  
>
>>-----Original Message-----
>>From: accessd-bounces at databaseadvisors.com
>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>>Gustav Brock
>>Sent: 10 January 2006 19:55
>>To: accessd at databaseadvisors.com
>>Subject: Re: [AccessD] Access97 on W2000 crashes
>>
>>
>>Hi Andy
>>
>>Hmm, if you can "see it working", I guess you run it from the
>>Immediate window. That works, but it is not the same as
>>calling it from code - that's the trap. But I'm not saying
>>this is the key to the solution, only that you may think the
>>code gets compiled and saved while it perhaps doesn't.
>>
>>I would follow Shamil's advice closely and track down the
>>offending code lines. Then rewrite the code.
>>
>>Once I had some very simple code (no API, no dll) that worked
>>perfectly here and on the client's Win2000 machines. On her
>>Win98 machines the app crashed much like yours - just poof
>>and no Access. I rewrote the code and the problem was gone.
>>
>>/gustav
>>
>>    
>>
>>>>>andy at minstersystems.co.uk 10-01-2006 19:12:14 >>>
>>>>>          
>>>>>
>>But the SysCmd does work for me Gustav. I see it working,
>>compilng and saving. My problem's almost the very reverse as
>>far as I can see. My references all show as ok. Nothing
>>broken. Nothing failing to compile. Nothing to mend. It's
>>just that something flipping well crashes despite that. And,
>>as I said, it's when the MDB has been decompiled and
>>therefore my Syscmd runs that everything works (see my post
>>that begins "Well it's not an issue anyway"). My problems
>>come when I exit and then reload the by-now-compiled MDB. Any ideas?
>>    
>>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From shamil at users.mns.ru  Wed Jan 11 13:35:01 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 11 Jan 2006 22:35:01 +0300
Subject: [AccessD] Older Access install with A2K3
References: <001f01c616e2$35f115d0$6701a8c0@HPLaptop>
Message-ID: <001e01c616e6$2a6cf270$6401a8c0@fincomplex.spb.ru>

Virtual PC or VMWare could be a good solution - MS Access 2000 runs quick
enough on 2GHZ/1GB RAM PC inside VMWare Virtual Machine, especially if
this VM is Win98...

Shamil

----- Original Message ----- 
From: "Joe Hecht" <jmhecht at earthlink.net>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 10:07 PM
Subject: Re: [AccessD] Older Access install with A2K3


> Gotta love clients. I told them I am building in XP 2K3. Now
> they do not want to buy either.
>
> I really do not want to rebuild my hard drive for them.
>
> Joe Hecht
> jmhecht at earthlink.net

<<< tail skipped>>>



From Lambert.Heenan at AIG.com  Wed Jan 11 13:29:21 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 11 Jan 2006 13:29:21 -0600
Subject: [AccessD] Currency Format
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1B7C7DED@xlivmbx21.aig.com>

IMHO It's not important at all. Changing the format in design view changes
the way the data is *displayed*, not the values that are *stored*.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 11, 2006 2:04 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Currency Format


If one sets data type to currency in a table how important
is it to change the format on the general tab below? 

 

Joe Hecht

jmhecht at earthlink.net

 

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


From jwcolby at ColbyConsulting.com  Wed Jan 11 13:38:20 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 11 Jan 2006 14:38:20 -0500
Subject: [AccessD] OT: Windows Media center
Message-ID: <001701c616e6$945f71d0$647aa8c0@ColbyM6805>

Does any one know whether Windows Media Center (as opposed to Windows Home)
has any "gotchas" that would make it inappropriate for a home business
laptop?  It seems to be the big thing now in the low to medium range
laptops.

John W. Colby
www.ColbyConsulting.com 




From jmhecht at earthlink.net  Wed Jan 11 14:05:20 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 12:05:20 -0800
Subject: [AccessD] Push Data
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF04@INFOSERVER04.infostat.local>
Message-ID: <000001c616ea$5a10da10$6701a8c0@HPLaptop>

You are not confused, I may be. 

Seen my last post about A2k & A2k3

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 11, 2006 11:27 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

No, the child form is bound to the table and linked to the
parent form
on the EmployeeID.  Unless I totally misunderstand what
you're trying to
do.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 9:57 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


Doesn't the table need to be open? That's why I was going to
push pull
from the cbo query?

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 11, 2006 9:44 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

You actually don't need to do either.  If that info is in a
table
already, all you need is a subform linked to EmployeeID to
display the
values for those fields.  If the employee ID  combo is and
unbound
control on the parent form, the employee subform can be
linked to the
value selected and nothing needs to be pushed anywhere
because the child
form will fill in automatically.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 9:26 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


The form records workplace accidents.

Much of the information about the employee exists in the
employee
tables. When a new incident is added I want the user to
select the
employee name and then automatically fill in fields like
DOB, Hire Date,
and license info.

I thought it would be better to push data out in after
update of cboemployee select. You seem to be recommending
that I pull instead.

Do I understand you correctly? 

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

Joe,

If the subforms are linked to the parent form, the related
records
should show up automatically ... Or are you talking about
something
else?  Is this on existing or new records in the parent and
child forms?
You can use code to fill in values, but it's generally a
better idea to
let the child form retrieve the values rather than having it
manipulated
from outside.  I'm not clear on the scenario you envision,
so I may just
be confusing you.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 8:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


I want the user to select an employee and then it will in
various fields
in the parent and child forms.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 11, 2006 8:34 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

What do you mean by "push data"?  Ordinarily, you pull data
from the
parent from into the child form.  In code, it's simply
Parent!controlname to reference a value.  You can set the
default value
of a textbox on a child form to "=[Parent]![EmployeeID]"
(without the
quotes), for instance.  Does that help?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Tuesday, January 10, 2006 8:23 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push Data


My head still hurts from the DateDiff fight I had over the
weekend.

 

I am going to have a master form and many sub forms on a tab
control.

 

What issues do I want to look out for in trying to push data
from the
parent to various sub forms.

 

I want to not duplicate data in other tables. Selecting one
employee, I
want to fill in various information.

 

Thanks in Advance.

 

Joe Hecht

jmhecht at earthlink.net

 

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

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

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

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



From shamil at users.mns.ru  Wed Jan 11 14:35:31 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 11 Jan 2006 23:35:31 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <20060111111122.6B3EC26FCF3@smtp.nildram.co.uk>
	<43C55C25.9010603@shaw.ca>
Message-ID: <002001c616ee$92228080$6401a8c0@fincomplex.spb.ru>

Marty,

MS Access 97 uses Jet 3.5 independent of the reference set to DAO 3.51 or
DAO 3.6:

The simple VB6 utility I made for Andy yesterday says that:

http://smsconsulting.spb.ru/download/tests/myPSAPI.zip (10KB)

I have here:

Access97
========

 <BaseName>msjet35.dll</BaseName>
  <ExeFullPath>D:\WINDOWS\system32\msjet35.dll</ExeFullPath>
  <version>
  <vi>CompanyName: Microsoft Corporation</vi>
  <vi>FileDescription: Microsoft Jet Engine Library</vi>
  <vi>FileVersion: 3.51.2723.0</vi>
  <vi>InternalName: MSJET35.DLL</vi>
  <vi>LegalCopyright: Copyright (C) Microsoft Corp. 1993-1996</vi>
  <vi>OriginalFilename: MSJET35.DLL</vi>
  <vi>ProductName: Microsoft? Jet</vi>
  <vi>ProductVersion: 3.51.2723.0</vi>
  </version>

Access2003
==========

  <BaseName>msjet40.dll</BaseName>
  <ExeFullPath>D:\WINDOWS\system32\msjet40.dll</ExeFullPath>
   <version>
  <vi>CompanyName: Microsoft Corporation</vi>
  <vi>FileDescription: Microsoft Jet Engine Library</vi>
  <vi>FileVersion: 4.00.8618.0</vi>
  <vi>InternalName: MSJET40.DLL</vi>
  <vi>LegalCopyright: Copyright (C) Microsoft Corp. 1993-1999</vi>
  <vi>OriginalFilename: MSJET40.DLL</vi>
  <vi>ProductName: Microsoft (R) Jet</vi>
  <vi>ProductVersion: 4.00.8618.0</vi>
  </version>

Am I missing something? (Yes, I see I don't have latest Jet 3.5 DLL
installed - something else?)

Shamil


----- Original Message ----- 
From: "MartyConnelly" <martyconnelly at shaw.ca>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 10:27 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


> Just something else to check.
> This will tell you the version of DAO is in use within Access97 mdb
> It will return either 3.51 or 3.6, you can use either with Access 97
> depending on your reference settings.
>
> Debug.Print DAO.DBEngine.Version
>
> You might want to check you OS environment to see what Jet SP you are
> running
> on your home machines and client. You can do this in code but this maybe
> quicker.
>
> I have Jet SP8 installed
> right click on these files in explorer then  select properties
> Version Tab and look at the File Version Number
>
> DAO 3.51
> C:\WINDOWS\system32\msjet35.dll
>
> 3.51.3328.0
>
> DAO 3.6
> C:\WINDOWS\system32\msjet40.dll
>
> 4.00.8618.0
>
>
> To find which older versions you maybe running insert above dll names
> in DLL Help database to get older version numbers and what product
> installs them.
>
> http://support.microsoft.com/dllhelp/
>
> Andy Lacey wrote:
>
> >Well I'm not doing anything clever but it is working. And yes, if I exit
and
> >reopen the app the compile is greyed out. The code I call at the start is
> >below. The sequence is that the desktop icon runs the mdb with a /X to
run a
> >specific macro. The macro calls a function to handle all my starting up
> >stuff, and that, fairly early on, calls the Recompile function.
> >
> >Function Recompile
> >If Application.IsCompiled = False Then
> >Call SysCmd(504, 16483)
> >End If
> >End Function
> >
> >So, if I decompile and run my icon it recompiles and saves (and you can
> >watch the progress meters). If I exit and then run again it does not now
> >recompile. Is that unusual?
> >
> >Bear in ind this is A97. Don't know if your experience is on later
versions.
> >
> >--
> >Andy Lacey
> >http://www.minstersystems.co.uk
> >
<<< tail skipped>>>



From cfoust at infostatsystems.com  Wed Jan 11 14:42:01 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 12:42:01 -0800
Subject: [AccessD] Push Data
Message-ID: <F55048AF7E974F429BB24597D7355EEABF05@INFOSERVER04.infostat.local>

Now I'm thoroughly confused.  What does the version have to do with it?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 11, 2006 12:05 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


You are not confused, I may be. 

Seen my last post about A2k & A2k3

Joe Hecht
jmhecht at earthlink.net


From jmhecht at earthlink.net  Wed Jan 11 14:50:58 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 12:50:58 -0800
Subject: [AccessD] Push Data
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF05@INFOSERVER04.infostat.local>
Message-ID: <000a01c616f0$b9cc3d90$6701a8c0@HPLaptop>

I had agreed with the client AXP or 2K2

Day before first delivery, " Cant it be in 2000?" That's all
we have.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 11, 2006 12:42 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

Now I'm thoroughly confused.  What does the version have to
do with it?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 12:05 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


You are not confused, I may be. 

Seen my last post about A2k & A2k3

Joe Hecht
jmhecht at earthlink.net
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From cfoust at infostatsystems.com  Wed Jan 11 15:25:35 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 13:25:35 -0800
Subject: [AccessD] Push Data
Message-ID: <F55048AF7E974F429BB24597D7355EEABF06@INFOSERVER04.infostat.local>

And .... The same master/child links work in all three versions.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 11, 2006 12:51 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


I had agreed with the client AXP or 2K2

Day before first delivery, " Cant it be in 2000?" That's all
we have.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 11, 2006 12:42 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Push Data

Now I'm thoroughly confused.  What does the version have to
do with it?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 11, 2006 12:05 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push Data


You are not confused, I may be. 

Seen my last post about A2k & A2k3

Joe Hecht
jmhecht at earthlink.net
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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


From mmmtbig at bellsouth.net  Wed Jan 11 16:44:40 2006
From: mmmtbig at bellsouth.net (Myke Myers)
Date: Wed, 11 Jan 2006 17:44:40 -0500
Subject: [AccessD] Backend Database Format: Access 2000 vs Access 2002
Message-ID: <001701c61700$9e87da20$6601a8c0@tbig1>

I'm getting ready to upgrade a corporate client from Access 2000 to Access
2002.

The backend databases (tables and data only) that reside on the servers are
Access 2000.

Is there any reason to import the data tables into an Access 2002 database
for the upgrade?

TIA,

Myke




From cfoust at infostatsystems.com  Wed Jan 11 16:59:34 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 14:59:34 -0800
Subject: [AccessD] Backend Database Format: Access 2000 vs Access 2002
Message-ID: <F55048AF7E974F429BB24597D7355EEABF07@INFOSERVER04.infostat.local>

Definitely not.  Our AXP apps use the 2000 format for all our datafiles.
Only the front end files are 2002 format.  There are better arguments
for not migrating data to the 2002 or later formats, since they bloat
worse than 2000.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Myke Myers
Sent: Wednesday, January 11, 2006 2:45 PM
To: 'Database Advisors'
Subject: [AccessD] Backend Database Format: Access 2000 vs Access 2002


I'm getting ready to upgrade a corporate client from Access 2000 to
Access 2002.

The backend databases (tables and data only) that reside on the servers
are Access 2000.

Is there any reason to import the data tables into an Access 2002
database for the upgrade?

TIA,

Myke


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


From jmhecht at earthlink.net  Wed Jan 11 18:22:12 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 16:22:12 -0800
Subject: [AccessD] Push code help please
Message-ID: <000801c6170e$3c7269f0$6701a8c0@HPLaptop>

This is the sql that controls Combo32

 

SELECT [20_tblAIMaster340].ACCIDENT,
[20_tblAIMaster340].DRIV_NUM,
[10_tbl_PersonelMasterData].LAST_NAME,
[10_tbl_PersonelMasterData].FIRST_NAME,
[10_tbl_PersonelMasterData].MIDDLE_Name, [Last_Name] & ", "
& [First_Name] & " " & [Middle_Name] AS Fname

FROM 10_tbl_PersonelMasterData INNER JOIN 20_tblAIMaster340
ON [10_tbl_PersonelMasterData].DRIV_NUM =
[20_tblAIMaster340].DRIV_NUM;

 

I want to put FNAME from above into txtEmployeeName

 

Private Sub Combo32_AfterUpdate()

    ' Find the record that matches the control.

    Dim rs As Object

 

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[ACCIDENT] = '" & Me![Combo32] & "'"

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

    

    me.txtEmployeeName.Text= me.Combo32.Column.(6)

 

I can not trace syntax error I get when I added bottom line
of code.

 

The get the record code is good.

 

Is it source = target or target = source

 

About to put my head my ADH

 

Thanks

    

 

Joe Hecht

jmhecht at earthlink.net

 



From cfoust at infostatsystems.com  Wed Jan 11 19:36:30 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 11 Jan 2006 17:36:30 -0800
Subject: [AccessD] Push code help please
Message-ID: <F55048AF7E974F429BB24597D7355EEABF09@INFOSERVER04.infostat.local>

Is txtEmployeeName unbound and you just want to display it?  That isn't
what your original question suggested to me, so I might have misled you.
Text is a read-only property, so you have to set the value of the
textbox (assuming that's what txtEmployeeName is), not the Text.  Also,
the column index gets a little confusing but in this case, I believe it
should be 5, not 6 for your 6th column.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 11, 2006 4:22 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push code help please


This is the sql that controls Combo32

 

SELECT [20_tblAIMaster340].ACCIDENT, [20_tblAIMaster340].DRIV_NUM,
[10_tbl_PersonelMasterData].LAST_NAME,
[10_tbl_PersonelMasterData].FIRST_NAME,
[10_tbl_PersonelMasterData].MIDDLE_Name, [Last_Name] & ", "
& [First_Name] & " " & [Middle_Name] AS Fname

FROM 10_tbl_PersonelMasterData INNER JOIN 20_tblAIMaster340
ON [10_tbl_PersonelMasterData].DRIV_NUM = [20_tblAIMaster340].DRIV_NUM;

 

I want to put FNAME from above into txtEmployeeName

 

Private Sub Combo32_AfterUpdate()

    ' Find the record that matches the control.

    Dim rs As Object

 

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[ACCIDENT] = '" & Me![Combo32] & "'"

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

    

    me.txtEmployeeName.Text= me.Combo32.Column.(6)

 

I can not trace syntax error I get when I added bottom line
of code.

 

The get the record code is good.

 

Is it source = target or target = source

 

About to put my head my ADH

 

Thanks

    

 

Joe Hecht

jmhecht at earthlink.net

 

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


From accessd at shaw.ca  Wed Jan 11 20:04:08 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Wed, 11 Jan 2006 18:04:08 -0800
Subject: [AccessD] Push code help please
In-Reply-To: <000801c6170e$3c7269f0$6701a8c0@HPLaptop>
Message-ID: <007301c6171c$7912dbc0$017ba8c0@xpserver>

Hi Joe:

Instead of:
me.txtEmployeeName.Text= me.Combo32.Column.(5)

...it is:
me.txtEmployeeName.Text = me.Combo32.Column(ColumnPosition, RowPosition)

Remember it starts from 0 for column and row position so if it is the 10
record in the 3rd column:
me.Combo32.Column(2, 9)

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: January 11, 2006 4:22 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push code help please

This is the sql that controls Combo32

 

SELECT [20_tblAIMaster340].ACCIDENT,
[20_tblAIMaster340].DRIV_NUM,
[10_tbl_PersonelMasterData].LAST_NAME,
[10_tbl_PersonelMasterData].FIRST_NAME,
[10_tbl_PersonelMasterData].MIDDLE_Name, [Last_Name] & ", "
& [First_Name] & " " & [Middle_Name] AS Fname

FROM 10_tbl_PersonelMasterData INNER JOIN 20_tblAIMaster340
ON [10_tbl_PersonelMasterData].DRIV_NUM =
[20_tblAIMaster340].DRIV_NUM;

 

I want to put FNAME from above into txtEmployeeName

 

Private Sub Combo32_AfterUpdate()

    ' Find the record that matches the control.

    Dim rs As Object

 

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[ACCIDENT] = '" & Me![Combo32] & "'"

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

    

    me.txtEmployeeName.Text= me.Combo32.Column.(6)

 

I can not trace syntax error I get when I added bottom line
of code.

 

The get the record code is good.

 

Is it source = target or target = source

 

About to put my head my ADH

 

Thanks

    

 

Joe Hecht

jmhecht at earthlink.net

 

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



From jmhecht at earthlink.net  Wed Jan 11 20:09:41 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 18:09:41 -0800
Subject: [AccessD] Push code help please
In-Reply-To: <007301c6171c$7912dbc0$017ba8c0@xpserver>
Message-ID: <001601c6171d$3fd434c0$6701a8c0@HPLaptop>

Thanks


Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Jim Lawrence
Sent: Wednesday, January 11, 2006 6:04 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Push code help please

Hi Joe:

Instead of:
me.txtEmployeeName.Text= me.Combo32.Column.(5)

...it is:
me.txtEmployeeName.Text = me.Combo32.Column(ColumnPosition,
RowPosition)

Remember it starts from 0 for column and row position so if
it is the 10
record in the 3rd column:
me.Combo32.Column(2, 9)

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: January 11, 2006 4:22 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Push code help please

This is the sql that controls Combo32

 

SELECT [20_tblAIMaster340].ACCIDENT,
[20_tblAIMaster340].DRIV_NUM,
[10_tbl_PersonelMasterData].LAST_NAME,
[10_tbl_PersonelMasterData].FIRST_NAME,
[10_tbl_PersonelMasterData].MIDDLE_Name, [Last_Name] & ", "
& [First_Name] & " " & [Middle_Name] AS Fname

FROM 10_tbl_PersonelMasterData INNER JOIN 20_tblAIMaster340
ON [10_tbl_PersonelMasterData].DRIV_NUM =
[20_tblAIMaster340].DRIV_NUM;

 

I want to put FNAME from above into txtEmployeeName

 

Private Sub Combo32_AfterUpdate()

    ' Find the record that matches the control.

    Dim rs As Object

 

    Set rs = Me.Recordset.Clone

    rs.FindFirst "[ACCIDENT] = '" & Me![Combo32] & "'"

    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

    

    me.txtEmployeeName.Text= me.Combo32.Column.(6)

 

I can not trace syntax error I get when I added bottom line
of code.

 

The get the record code is good.

 

Is it source = target or target = source

 

About to put my head my ADH

 

Thanks

    

 

Joe Hecht

jmhecht at earthlink.net

 

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

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



From wdhindman at bellsouth.net  Wed Jan 11 21:35:42 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 11 Jan 2006 22:35:42 -0500
Subject: [AccessD] Backend Database Format: Access 2000 vs Access 2002
References: <F55048AF7E974F429BB24597D7355EEABF07@INFOSERVER04.infostat.local>
Message-ID: <000501c61729$44415c70$6101a8c0@JISREGISTRATION.local>

...A2K3 with the SP doesn't appear to have the bloat problem.

William

----- Original Message ----- 
From: "Charlotte Foust" <cfoust at infostatsystems.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 5:59 PM
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002


> Definitely not.  Our AXP apps use the 2000 format for all our datafiles.
> Only the front end files are 2002 format.  There are better arguments
> for not migrating data to the 2002 or later formats, since they bloat
> worse than 2000.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Myke Myers
> Sent: Wednesday, January 11, 2006 2:45 PM
> To: 'Database Advisors'
> Subject: [AccessD] Backend Database Format: Access 2000 vs Access 2002
>
>
> I'm getting ready to upgrade a corporate client from Access 2000 to
> Access 2002.
>
> The backend databases (tables and data only) that reside on the servers
> are Access 2000.
>
> Is there any reason to import the data tables into an Access 2002
> database for the upgrade?
>
> TIA,
>
> Myke
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From jwcolby at ColbyConsulting.com  Wed Jan 11 22:06:31 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 11 Jan 2006 23:06:31 -0500
Subject: [AccessD] Outlook Redemption
Message-ID: <000801c6172d$929fa120$647aa8c0@ColbyM6805>

Can I assume that redemption works with Outlook 2003?

John W. Colby
www.ColbyConsulting.com 




From jmhecht at earthlink.net  Wed Jan 11 23:27:07 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 11 Jan 2006 21:27:07 -0800
Subject: [AccessD] Wont Add Up
Message-ID: <003d01c61738$d4f2fee0$6701a8c0@HPLaptop>

txtPaidTotal Datasource  

 

=Sum([BODILY_INJ]+[CARG_DAMAG]+[CHRG_BAK]+[CLAIM_EXPS]+[PHYS
_DAMAG]+[PROP_DAMAG]+[SALVAGE]+[SUBRO]+[WORK_COMP])

 

If I view the subform only it returns $120,000 and change

 

If I view it on subform in a tab control values are showing
for the categories but the text box is null.

 

Any thoughts appreciated

 

 

Joe Hecht

jmhecht at earthlink.net

 



From bill_Patten at earthlink.net  Wed Jan 11 23:29:45 2006
From: bill_Patten at earthlink.net (Bill Patten)
Date: Wed, 11 Jan 2006 21:29:45 -0800
Subject: [AccessD] Outlook Redemption
References: <000801c6172d$929fa120$647aa8c0@ColbyM6805>
Message-ID: <00a401c61739$32db5ed0$6501a8c0@BPCS>

It worked OK for me, though I'm only using a small amount of it's features.

Bill
----- Original Message ----- 
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 8:06 PM
Subject: [AccessD] Outlook Redemption


Can I assume that redemption works with Outlook 2003?

John W. Colby
www.ColbyConsulting.com


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



From mikedorism at verizon.net  Thu Jan 12 07:13:09 2006
From: mikedorism at verizon.net (Mike & Doris Manning)
Date: Thu, 12 Jan 2006 08:13:09 -0500
Subject: [AccessD] Outlook Redemption
In-Reply-To: <000801c6172d$929fa120$647aa8c0@ColbyM6805>
Message-ID: <000201c61779$f07f6400$2f01a8c0@dorismanning>

It has worked fine for me with no problems and I use a lot of its features.

Doris Manning
mikedorism at verizon.net




From bheid at appdevgrp.com  Thu Jan 12 08:00:24 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 12 Jan 2006 09:00:24 -0500
Subject: [AccessD] Wont Add Up
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D1E178@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30ABF625@ADGSERVER>

One of the fields may be null.  Anything + Null = Null.

Try this:

=Sum(nz([BODILY_INJ],0)+nz([CARG_DAMAG],0)+nz([CHRG_BAK],0)+
  nz([CLAIM_EXPS],0)+nz([PHYS_DAMAG],0)+nz([PROP_DAMAG],0)+
  nz([SALVAGE],0)+nz([SUBRO],0)+nz([WORK_COMP],0))

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Thursday, January 12, 2006 12:27 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Wont Add Up


txtPaidTotal Datasource  

 

=Sum([BODILY_INJ]+[CARG_DAMAG]+[CHRG_BAK]+[CLAIM_EXPS]+[PHYS
_DAMAG]+[PROP_DAMAG]+[SALVAGE]+[SUBRO]+[WORK_COMP])

 

If I view the subform only it returns $120,000 and change

 

If I view it on subform in a tab control values are showing
for the categories but the text box is null.

 

Any thoughts appreciated

 

 

Joe Hecht

jmhecht at earthlink.net



From Jim.Hale at FleetPride.com  Thu Jan 12 08:28:40 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Thu, 12 Jan 2006 08:28:40 -0600
Subject: [AccessD] Outlook Redemption
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD96C@corp-es01.fleetpride.com>

Only if you are a true believer.
Jim Hale

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 11, 2006 10:07 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Outlook Redemption


Can I assume that redemption works with Outlook 2003?

John W. Colby
www.ColbyConsulting.com 


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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From jmhecht at earthlink.net  Thu Jan 12 08:29:02 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 12 Jan 2006 06:29:02 -0800
Subject: [AccessD] Wont Add Up
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30ABF625@ADGSERVER>
Message-ID: <004d01c61784$8919f720$6701a8c0@HPLaptop>

That was it.

Thanks

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bobby Heid
Sent: Thursday, January 12, 2006 6:00 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Wont Add Up

One of the fields may be null.  Anything + Null = Null.

Try this:

=Sum(nz([BODILY_INJ],0)+nz([CARG_DAMAG],0)+nz([CHRG_BAK],0)+
  nz([CLAIM_EXPS],0)+nz([PHYS_DAMAG],0)+nz([PROP_DAMAG],0)+
  nz([SALVAGE],0)+nz([SUBRO],0)+nz([WORK_COMP],0))

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Thursday, January 12, 2006 12:27 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Wont Add Up


txtPaidTotal Datasource  

 

=Sum([BODILY_INJ]+[CARG_DAMAG]+[CHRG_BAK]+[CLAIM_EXPS]+[PHYS
_DAMAG]+[PROP_DAMAG]+[SALVAGE]+[SUBRO]+[WORK_COMP])

 

If I view the subform only it returns $120,000 and change

 

If I view it on subform in a tab control values are showing
for the categories but the text box is null.

 

Any thoughts appreciated

 

 

Joe Hecht

jmhecht at earthlink.net

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



From mjrobertson at iinet.net.au  Thu Jan 12 08:31:51 2006
From: mjrobertson at iinet.net.au (Mike)
Date: Fri, 13 Jan 2006 00:31:51 +1000
Subject: [AccessD] Report Printing Problem - Graphs Being Split
Message-ID: <000001c61784$ee11be60$0600a8c0@D3NSLB1S>

Hi Jim.

Thanks for the reply.

I'm certainly willing to give this method a go - I'll have some time over
the next few days to get it operational with some luck and hopefully some
more advice from you.

I've started trying it out and have initiated a 2 pass printing process on
one of the reports.

One thing I failed to mention in my original message is that all sub-reports
have been collapsed to .1cm (or 57 twips) high so that I can get all of them
into the main report's detail section. I'm unsure of what effect that may
have on this process.

I understand the intent of your suggestion - and I'm glad to see that I
still learn something new everyday - I wasn't aware of the MoveLayout
property etc.

You mentioned "record the size of each sub-report in inches of page that it
occupies".

So far, I have just used the Immediate Window to show me the heights of each
sub-report during the first execution of the onFormat event of the report's
Detail Section (all of the sub-reports are in the detail section). This pass
also hides sub-reports as dictated by the client and moves subsequent labels
and sub-report controls up the page as necessary. Then during the second
pass of the OnFormat event I display the heights of the sub-reports again.
Finally, in the OnPrint event of the Detail Section I display the heights
once more. Only the OnPrint event shows the "grown" sizes of the
sub-reports. Here's the debug output:

In first Format pass
 57 
 57 
 57 
In Second Format pass
 57 
 57 
 57 
In Print Pass
 851 
 4077 
 57 

(expressed in twips)

I need some help at this point as it seems that I am getting the "grown"
sub-report sizes too late to exert any control over page breaks (either
through use of the MoveLayout property or through unhiding page break
controls. It's my understanding that I can't alter detail section formatting
in the OnPrint event

I expected to see a change in sub-report heights after the first pass. At
that point that I would record the relevant sizes of sub-reports to be used
in the second format pass to control pagination.

Clearly I'm missing something here and need some more assistance to get back
on track.

Thanks again Jim.

Regards,


Mike Robertson



Date: Tue, 10 Jan 2006 08:39:39 -0500
From: "Jim Dettman" <jimdettman at earthlink.net>
Subject: Re: [AccessD] Report Printing Problem - Graphs Being Split
To: "Access Developers discussion and problem solving"
	<accessd at databaseadvisors.com>
Message-ID: <NDEALJOEGMMPCDKIFGNFEEKHHOAA.jimdettman at earthlink.net>
Content-Type: text/plain;	charset="iso-8859-1"

Hi Mike,

<<When a report is printed, any textual or graphical sub-report which starts
before the end of the page is "split" i.e.. part of it prints on the page it
started on and the rest prints on the following page. This is particularly
horrific when a graph is being printed - the "pie" ends up not only sliced
but also severed! I think I can live with textual type reports being split
across pages, but splitting a graph into 2 parts isn't acceptable.>>

  I'm going to suggest something and it may solve it with a little
experimentation, but if it doesn't it will certainly get you started in the
right direction.

  First, what your seeing is more or less normal report engine behavior, so
there is no easy fix for this (i.e. no setting to change) and your going to
need to mange this problem on your own.  The Access report engine is quite
controllable, much more so then many people think.  You've already seen some
of that with hiding/un-hiding sub reports with no data.

  I'm going to toss out three things that you can use to control reports and
when combined, you'll be really surprised at some of the things you can do.

1. "Two Pass" printing - This is where by placing a reference to .Pages
anywhere on the report, you force Access to do a dry run of the report to
figure out the total number of pages.  It then does a second pass to
actually print the report.
<Snip>

-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.371 / Virus Database: 267.14.17/227 - Release Date: 11/01/2006
 


From cfoust at infostatsystems.com  Thu Jan 12 10:03:21 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 12 Jan 2006 08:03:21 -0800
Subject: [AccessD] Backend Database Format: Access 2000 vs Access 2002
Message-ID: <F55048AF7E974F429BB24597D7355EEABF0A@INFOSERVER04.infostat.local>

Good to know.  I don't use 2003 and was repeating whata developer who
does had told me.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
Hindman
Sent: Wednesday, January 11, 2006 7:36 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
2002


...A2K3 with the SP doesn't appear to have the bloat problem.

William

----- Original Message ----- 
From: "Charlotte Foust" <cfoust at infostatsystems.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 11, 2006 5:59 PM
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
2002


> Definitely not.  Our AXP apps use the 2000 format for all our 
> datafiles. Only the front end files are 2002 format.  There are better

> arguments for not migrating data to the 2002 or later formats, since 
> they bloat worse than 2000.
>
> Charlotte Foust
>
>
> 


From bill_Patten at earthlink.net  Thu Jan 12 10:36:01 2006
From: bill_Patten at earthlink.net (Bill Patten)
Date: Thu, 12 Jan 2006 08:36:01 -0800
Subject: [AccessD] Access reinstalls when switching from 2002 to 2003
Message-ID: <001401c61796$469e4ab0$6501a8c0@BPCS>

For several years I have had Access 97, 2002 and 2003 installed on both my main PC and laptop, and switched back and forth with no problem. Recently each time I open 2002 after having opened 2003 or vice versa the preparing to install window opens and it reinstalls prior to opening. Everything works OK it's just annoying and time consuming. Anybody know a solution? It may have something to do with an auto update.

Thanks

Bill

From rl_stewart at highstream.net  Thu Jan 12 10:36:17 2006
From: rl_stewart at highstream.net (Robert L. Stewart)
Date: Thu, 12 Jan 2006 10:36:17 -0600
Subject: [AccessD] Older Access install with A2K3
In-Reply-To: <mailman.1223.1137076129.21013.accessd@databaseadvisors.com
 >
References: <mailman.1223.1137076129.21013.accessd@databaseadvisors.com>
Message-ID: <6.2.3.4.2.20060112103446.02f68758@pop3.highstream.net>

Sounds like time to tell them those are the most stable and you will 
not provide them a poor product.  If they insist, then if you can 
afford to, fire them and find another client.

At 08:28 AM 1/12/2006, you wrote:
>Date: Wed, 11 Jan 2006 11:07:04 -0800
>From: "Joe Hecht" <jmhecht at earthlink.net>
>Subject: Re: [AccessD] Older Access install with A2K3
>To: "'Access Developers discussion and problem solving'"
>         <accessd at databaseadvisors.com>
>Message-ID: <001f01c616e2$35f115d0$6701a8c0 at HPLaptop>
>Content-Type: text/plain;       charset="us-ascii"
>
>Gotta love clients. I told them I am building in XP 2K3. Now
>they do not want to buy either.
>
>I really do not want to rebuild my hard drive for them.
>
>Joe Hecht




From martyconnelly at shaw.ca  Thu Jan 12 13:14:18 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Thu, 12 Jan 2006 11:14:18 -0800
Subject: [AccessD] Access97 on W2000 crashes
References: <20060111111122.6B3EC26FCF3@smtp.nildram.co.uk>
	<43C55C25.9010603@shaw.ca>
	<002001c616ee$92228080$6401a8c0@fincomplex.spb.ru>
Message-ID: <43C6AA8A.7050206@shaw.ca>

You can remove DAO 3.51 from the reference list and replace with DAO 3.60
Then run Debug.Print DAO.DBEngine.Version
It returns 3.6
I use to read 2000 mdb's in Access 97 VBA. It won't allow you to link tables
as Access itself defaults to 3.51 but you can use from VBA code to read 
a 2000 mdb
Of course MS says this is unsupported.

This is security patch to Jet 3.51 after installing Office 97 SR-1 and SR2-B

Jet 3.51 Service Pack 3
http://www.microsoft.com/downloads/details.aspx?FamilyID=7e82ef88-52ec-4a8f-8bb2-8b06d6cb668d&DisplayLang=en

Sub testb()
   Dim db As DAO.Database
    Dim dbe As Object
    'Set dbe = CreateObject("DAO.DBEngine.36")
    'Set db = dbe.CreateDatabase("c:\temp\test.mdb", _
    ' ";LANGID=0x0409;CP=1252;COUNTRY=0")
       Set db = OpenDatabase("c:\temp\test.mdb")
    Dim tdfLoop As TableDef

For Each tdfLoop In db.TableDefs
        Debug.Print tdfLoop.Name
      
Next tdfLoop
Set db = Nothing
    
End Sub


Shamil Salakhetdinov wrote:

>Marty,
>
>MS Access 97 uses Jet 3.5 independent of the reference set to DAO 3.51 or
>DAO 3.6:
>
>The simple VB6 utility I made for Andy yesterday says that:
>
>http://smsconsulting.spb.ru/download/tests/myPSAPI.zip (10KB)
>
>I have here:
>
>Access97
>========
>
> <BaseName>msjet35.dll</BaseName>
>  <ExeFullPath>D:\WINDOWS\system32\msjet35.dll</ExeFullPath>
>  <version>
>  <vi>CompanyName: Microsoft Corporation</vi>
>  <vi>FileDescription: Microsoft Jet Engine Library</vi>
>  <vi>FileVersion: 3.51.2723.0</vi>
>  <vi>InternalName: MSJET35.DLL</vi>
>  <vi>LegalCopyright: Copyright (C) Microsoft Corp. 1993-1996</vi>
>  <vi>OriginalFilename: MSJET35.DLL</vi>
>  <vi>ProductName: Microsoft? Jet</vi>
>  <vi>ProductVersion: 3.51.2723.0</vi>
>  </version>
>
>Access2003
>==========
>
>  <BaseName>msjet40.dll</BaseName>
>  <ExeFullPath>D:\WINDOWS\system32\msjet40.dll</ExeFullPath>
>   <version>
>  <vi>CompanyName: Microsoft Corporation</vi>
>  <vi>FileDescription: Microsoft Jet Engine Library</vi>
>  <vi>FileVersion: 4.00.8618.0</vi>
>  <vi>InternalName: MSJET40.DLL</vi>
>  <vi>LegalCopyright: Copyright (C) Microsoft Corp. 1993-1999</vi>
>  <vi>OriginalFilename: MSJET40.DLL</vi>
>  <vi>ProductName: Microsoft (R) Jet</vi>
>  <vi>ProductVersion: 4.00.8618.0</vi>
>  </version>
>
>Am I missing something? (Yes, I see I don't have latest Jet 3.5 DLL
>installed - something else?)
>
>Shamil
>
>
>----- Original Message ----- 
>From: "MartyConnelly" <martyconnelly at shaw.ca>
>To: "Access Developers discussion and problem solving"
><accessd at databaseadvisors.com>
>Sent: Wednesday, January 11, 2006 10:27 PM
>Subject: Re: [AccessD] Access97 on W2000 crashes
>
>
>  
>
>>Just something else to check.
>>This will tell you the version of DAO is in use within Access97 mdb
>>It will return either 3.51 or 3.6, you can use either with Access 97
>>depending on your reference settings.
>>
>>Debug.Print DAO.DBEngine.Version
>>
>>You might want to check you OS environment to see what Jet SP you are
>>running
>>on your home machines and client. You can do this in code but this maybe
>>quicker.
>>
>>I have Jet SP8 installed
>>right click on these files in explorer then  select properties
>>Version Tab and look at the File Version Number
>>
>>DAO 3.51
>>C:\WINDOWS\system32\msjet35.dll
>>
>>3.51.3328.0
>>
>>DAO 3.6
>>C:\WINDOWS\system32\msjet40.dll
>>
>>4.00.8618.0
>>
>>
>>To find which older versions you maybe running insert above dll names
>>in DLL Help database to get older version numbers and what product
>>installs them.
>>
>>http://support.microsoft.com/dllhelp/
>>
>>Andy Lacey wrote:
>>
>>    
>>
>>>Well I'm not doing anything clever but it is working. And yes, if I exit
>>>      
>>>
>and
>  
>
>>>reopen the app the compile is greyed out. The code I call at the start is
>>>below. The sequence is that the desktop icon runs the mdb with a /X to
>>>      
>>>
>run a
>  
>
>>>specific macro. The macro calls a function to handle all my starting up
>>>stuff, and that, fairly early on, calls the Recompile function.
>>>
>>>Function Recompile
>>>If Application.IsCompiled = False Then
>>>Call SysCmd(504, 16483)
>>>End If
>>>End Function
>>>
>>>So, if I decompile and run my icon it recompiles and saves (and you can
>>>watch the progress meters). If I exit and then run again it does not now
>>>recompile. Is that unusual?
>>>
>>>Bear in ind this is A97. Don't know if your experience is on later
>>>      
>>>
>versions.
>  
>
>>>--
>>>Andy Lacey
>>>http://www.minstersystems.co.uk
>>>
>>>      
>>>
><<< tail skipped>>>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From shamil at users.mns.ru  Thu Jan 12 14:42:28 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 12 Jan 2006 23:42:28 +0300
Subject: [AccessD] Access97 on W2000 crashes
References: <20060111111122.6B3EC26FCF3@smtp.nildram.co.uk><43C55C25.9010603@shaw.ca><002001c616ee$92228080$6401a8c0@fincomplex.spb.ru>
	<43C6AA8A.7050206@shaw.ca>
Message-ID: <000f01c617b8$b8893960$6401a8c0@fincomplex.spb.ru>

<<<
I use to read 2000 mdb's in Access 97 VBA. It won't allow you to link tables
as Access itself defaults to 3.51 but you can use from VBA code to read
a 2000 mdb
>>>
OK. I didn't know that. It doesn't work here but I don't have the latest Jet
3.51 patch that could be the problem.

Shamil

----- Original Message ----- 
From: "MartyConnelly" <martyconnelly at shaw.ca>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, January 12, 2006 10:14 PM
Subject: Re: [AccessD] Access97 on W2000 crashes


You can remove DAO 3.51 from the reference list and replace with DAO 3.60
Then run Debug.Print DAO.DBEngine.Version
It returns 3.6
I use to read 2000 mdb's in Access 97 VBA. It won't allow you to link tables
as Access itself defaults to 3.51 but you can use from VBA code to read
a 2000 mdb
Of course MS says this is unsupported.

This is security patch to Jet 3.51 after installing Office 97 SR-1 and SR2-B

Jet 3.51 Service Pack 3
http://www.microsoft.com/downloads/details.aspx?FamilyID=7e82ef88-52ec-4a8f-8bb2-8b06d6cb668d&DisplayLang=en

Sub testb()
   Dim db As DAO.Database
    Dim dbe As Object
    'Set dbe = CreateObject("DAO.DBEngine.36")
    'Set db = dbe.CreateDatabase("c:\temp\test.mdb", _
    ' ";LANGID=0x0409;CP=1252;COUNTRY=0")
       Set db = OpenDatabase("c:\temp\test.mdb")
    Dim tdfLoop As TableDef

For Each tdfLoop In db.TableDefs
        Debug.Print tdfLoop.Name

Next tdfLoop
Set db = Nothing

End Sub


<<< tail skipped >>>



From Patricia.O'Connor at otda.state.ny.us  Thu Jan 12 15:52:21 2006
From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA))
Date: Thu, 12 Jan 2006 16:52:21 -0500
Subject: [AccessD] OT file with PIC extension
Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B235F@EXCNYSM0A1AI.nysemail.nyenet>

Hi

I had to look back on some historical data and there are some files with
PIC as the extension. Does anyone know what to look at this with? I have
tried IE, excel, paint, adobe, and image viewer.  It may have something
to do with lotus but I don't have that software. The WK1 files we were
able to open with excel but not these.

Any help will be greatly appreciated
Thanks
Patti

**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
************************************************** 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system.


From JHewson at karta.com  Thu Jan 12 16:10:19 2006
From: JHewson at karta.com (Jim Hewson)
Date: Thu, 12 Jan 2006 16:10:19 -0600
Subject: [AccessD] OT file with PIC extension
Message-ID: <9C382E065F54AE48BC3AA7925DCBB01C03AC8060@karta-exc-int.Karta.com>

I have found this site to be useful when looking for extensions.

http://filext.com/

It gives you a whole host of information about the extension.

For example:  PIC is an extension for "Advanced Art Studio;" "Animator PIC/CEL Bitmap;" "BioRad Confocula Image;" "Delcam Picture File;" "Handy Scaner Cameron Image;" plus a few more.  Read carefully and in some cases it will give a link to a viewer.

BTW did you try Paint?

HTH

Jim 
jhewson at karta.com
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of O'Connor, Patricia (OTDA)
Sent: Thursday, January 12, 2006 3:52 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] OT file with PIC extension

Hi

I had to look back on some historical data and there are some files with
PIC as the extension. Does anyone know what to look at this with? I have
tried IE, excel, paint, adobe, and image viewer.  It may have something
to do with lotus but I don't have that software. The WK1 files we were
able to open with excel but not these.

Any help will be greatly appreciated
Thanks
Patti

**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
************************************************** 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From Patricia.O'Connor at otda.state.ny.us  Thu Jan 12 16:18:09 2006
From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA))
Date: Thu, 12 Jan 2006 17:18:09 -0500
Subject: [AccessD] OT file with PIC extension
Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B2360@EXCNYSM0A1AI.nysemail.nyenet>

Jim

Yes I tried paint says it is not a valid bmp file.  I think it may have
something to do with lotus but I can not get it to work.  We don't have
lotus at all here just ms office. We must have gotten this from someone
else or we had the very old lotus back in 95.

Thanks
Patti

**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
**************************************************
 

> 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system. 


-----Original Message-----

> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Hewson
> Sent: Thursday, January 12, 2006 05:10 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] OT file with PIC extension
> 
> I have found this site to be useful when looking for extensions.
> 
> http://filext.com/
> 
> It gives you a whole host of information about the extension.
> 
> For example:  PIC is an extension for "Advanced Art Studio;" 
> "Animator PIC/CEL Bitmap;" "BioRad Confocula Image;" "Delcam 
> Picture File;" "Handy Scaner Cameron Image;" plus a few more. 
>  Read carefully and in some cases it will give a link to a viewer.
> 
> BTW did you try Paint?
> 
> HTH
> 
> Jim
> jhewson at karta.com
>  
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> O'Connor, Patricia (OTDA)
> Sent: Thursday, January 12, 2006 3:52 PM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] OT file with PIC extension
> 
> Hi
> 
> I had to look back on some historical data and there are some 
> files with PIC as the extension. Does anyone know what to 
> look at this with? I have tried IE, excel, paint, adobe, and 
> image viewer.  It may have something to do with lotus but I 
> don't have that software. The WK1 files we were able to open 
> with excel but not these.
> 
> Any help will be greatly appreciated
> Thanks
> Patti
> 
> **************************************************
> * Patricia O'Connor
> * Associate Computer Programmer Analyst
> * OTDA - BDMA
> * (W) mailto:Patricia.O'Connor at otda.state.ny.us
> * (w) mailto:aa1160 at otda.state.ny.us
> **************************************************
> --------------------------------------------------------
> This e-mail, including any attachments, may be confidential, 
> privileged or otherwise legally protected. It is intended 
> only for the addressee. If you received this e-mail in error 
> or from someone who was not authorized to send it to you, do 
> not disseminate, copy or otherwise use this e-mail or its 
> attachments.  Please notify the sender immediately by reply 
> e-mail and delete the e-mail from your system.
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


From john at winhaven.net  Thu Jan 12 19:04:11 2006
From: john at winhaven.net (John Bartow)
Date: Thu, 12 Jan 2006 19:04:11 -0600
Subject: [AccessD] OT file with PIC extension
In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B235F@EXCNYSM0A1AI.nysemail.nyenet>
Message-ID: <011201c617dd$443ae700$7b01a8c0@ScuzzPaq>

IIRC Lotus 123 used the .pic format to hold graphs a long time ago.

I have 123 if you I can try and open one for you. I think I would need to
the spreadsheet that goes with it but am not sure of that.

John B.
Send to john at winhaven.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of O'Connor,
Patricia (OTDA)
Sent: Thursday, January 12, 2006 3:52 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] OT file with PIC extension

Hi

I had to look back on some historical data and there are some files with PIC
as the extension. Does anyone know what to look at this with? I have tried
IE, excel, paint, adobe, and image viewer.  It may have something to do with
lotus but I don't have that software. The WK1 files we were able to open
with excel but not these.

Any help will be greatly appreciated
Thanks
Patti

**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
**************************************************
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or
otherwise legally protected. It is intended only for the addressee. If you
received this e-mail in error or from someone who was not authorized to send
it to you, do not disseminate, copy or otherwise use this e-mail or its
attachments.  Please notify the sender immediately by reply e-mail and
delete the e-mail from your system.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jwcolby at ColbyConsulting.com  Thu Jan 12 19:08:17 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 12 Jan 2006 20:08:17 -0500
Subject: [AccessD] Class builder
Message-ID: <004e01c617dd$d977dbc0$647aa8c0@ColbyM6805>

I have just finished a little class builder.  If anyone wants to play with
it let me know.

In the meantime, the one thing I can't figure out is how to save the newly
created class.  I can click the save button and it saves the new module, but
I can't make it happen from VBA.  Anyone know what object saves unsaved
modules?

John W. Colby
www.ColbyConsulting.com 




From cfoust at infostatsystems.com  Thu Jan 12 19:45:29 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 12 Jan 2006 17:45:29 -0800
Subject: [AccessD] Class builder
Message-ID: <F55048AF7E974F429BB24597D7355EEABF1B@INFOSERVER04.infostat.local>

I'm not sure, John, but I think you need a VBE reference to add a class
to a project from code.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Thursday, January 12, 2006 5:08 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Class builder


I have just finished a little class builder.  If anyone wants to play
with it let me know.

In the meantime, the one thing I can't figure out is how to save the
newly created class.  I can click the save button and it saves the new
module, but I can't make it happen from VBA.  Anyone know what object
saves unsaved modules?

John W. Colby
www.ColbyConsulting.com 


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


From listmaster at databaseadvisors.com  Thu Jan 12 20:48:24 2006
From: listmaster at databaseadvisors.com (Bryan Carbonnell)
Date: Thu, 12 Jan 2006 21:48:24 -0500
Subject: [AccessD] Administrivia - DBA's New Executive Officers.
Message-ID: <43C6CEA8.24082.46E416@listmaster.databaseadvisors.com>

The Board of Directors of Database Advisors recently held elections 
for the executive committee for the upcoming year.

The Executive Officers for 2006 are:
President: John Bartow
Vice-President: Reuben Cummings
Secretary: Donna Cook
Treasurer: Keith Williamson

Congratulations to all.


-- 
Bryan Carbonnell - listmaster at databaseadvisors.com
Normal people worry me.




From wdhindman at bellsouth.net  Thu Jan 12 22:52:24 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 12 Jan 2006 23:52:24 -0500
Subject: [AccessD] Backend Database Format: Access 2000 vs Access 2002
References: <F55048AF7E974F429BB24597D7355EEABF0A@INFOSERVER04.infostat.local>
Message-ID: <000a01c617fd$25465990$6101a8c0@JISREGISTRATION.local>

...the bloat was still there in A2K3 before the SP but apparently not after.

William

----- Original Message ----- 
From: "Charlotte Foust" <cfoust at infostatsystems.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 12, 2006 11:03 AM
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002


> Good to know.  I don't use 2003 and was repeating whata developer who
> does had told me.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
> Hindman
> Sent: Wednesday, January 11, 2006 7:36 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
> 2002
>
>
> ...A2K3 with the SP doesn't appear to have the bloat problem.
>
> William
>
> ----- Original Message ----- 
> From: "Charlotte Foust" <cfoust at infostatsystems.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Wednesday, January 11, 2006 5:59 PM
> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
> 2002
>
>
>> Definitely not.  Our AXP apps use the 2000 format for all our
>> datafiles. Only the front end files are 2002 format.  There are better
>
>> arguments for not migrating data to the 2002 or later formats, since
>> they bloat worse than 2000.
>>
>> Charlotte Foust
>>
>>
>>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From accessd at shaw.ca  Fri Jan 13 00:20:30 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Thu, 12 Jan 2006 22:20:30 -0800
Subject: [AccessD] OT Alternative to Access, MySQL, Oracle etc???
In-Reply-To: <43C6AA8A.7050206@shaw.ca>
Message-ID: <001801c61809$74404860$017ba8c0@xpserver>

OT:

Hi All:

Is this the alternative to Access? Check this out:
http://www.kexi-project.org/ 

Definitely needs a few years to mature but seems to be developing nicely.

Jim



From Erwin.Craps at ithelps.be  Fri Jan 13 01:08:06 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Fri, 13 Jan 2006 08:08:06 +0100
Subject: [AccessD] OT file with PIC extension
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62A1@stekelbes.ithelps.local>

Hi

Just checked in Coreldraw Photopaint.

.PIC is a Lotus picture file.
It should be posible to open it in Coreldraw Photopaint an to convert it
to something more current (JPG?).
If its only a couple of them I'm willing to convert them for you.
If you have a lot of them in one folder, maybe I cn convert a litle
script of mine to automize this.
You better mail me directly, I'm not checking the list every day...
Erwin.Craps at ithelps.be

But hold your horses (files :-) a bit.
Just checked my Explorer File extensions.
The PIC extension seems to be related with the Quicktime viewer.
C:\PROGRA~1\QUICKT~1\PictureViewer.exe"

So if I'm not mistaking, if you install the Quicktime viewer you can
doubleclick the file and see the content.
Here's where you can find it.
http://www.apple.com/quicktime/win.html



Erwin
 

-----Oorspronkelijk bericht-----
Van: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] Namens John Bartow
Verzonden: vrijdag 13 januari 2006 2:04
Aan: 'Access Developers discussion and problem solving'
Onderwerp: Re: [AccessD] OT file with PIC extension

IIRC Lotus 123 used the .pic format to hold graphs a long time ago.

I have 123 if you I can try and open one for you. I think I would need
to the spreadsheet that goes with it but am not sure of that.

John B.
Send to john at winhaven.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of O'Connor,
Patricia (OTDA)
Sent: Thursday, January 12, 2006 3:52 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] OT file with PIC extension

Hi

I had to look back on some historical data and there are some files with
PIC as the extension. Does anyone know what to look at this with? I have
tried IE, excel, paint, adobe, and image viewer.  It may have something
to do with lotus but I don't have that software. The WK1 files we were
able to open with excel but not these.

Any help will be greatly appreciated
Thanks
Patti

**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
**************************************************
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged
or otherwise legally protected. It is intended only for the addressee.
If you received this e-mail in error or from someone who was not
authorized to send it to you, do not disseminate, copy or otherwise use
this e-mail or its attachments.  Please notify the sender immediately by
reply e-mail and delete the e-mail from your system.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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


From shamil at users.mns.ru  Fri Jan 13 02:53:13 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Fri, 13 Jan 2006 11:53:13 +0300
Subject: [AccessD] Class builder
References: <004e01c617dd$d977dbc0$647aa8c0@ColbyM6805>
Message-ID: <00ec01c6181e$cb38a350$6401a8c0@fincomplex.spb.ru>

John,

Here is one of the methods how a new class module can be created and saved
using VBA:

Dim mdl As Access.Module
Dim objApp As Access.Application
Dim strTempMdlName As String
Dim strMdlName As String
    Set objApp = Access.Application
    strMdlName = "CTestClassModule"

    With objApp.DoCmd
        .RunCommand acCmdNewObjectClassModule
        Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
        strTempMdlName = mdl.Name

        mdl.InsertText "public TestProperty as integer"

        .Close acModule, strTempMdlName, acSaveYes
        .Rename strMdlName, acModule, strTempMdlName
    End With

Make sure there is no class module with the name CTestClassModule in your
database...

Shamil

----- Original Message ----- 
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 4:08 AM
Subject: [AccessD] Class builder


> I have just finished a little class builder.  If anyone wants to play with
> it let me know.
>
> In the meantime, the one thing I can't figure out is how to save the newly
> created class.  I can click the save button and it saves the new module,
but
> I can't make it happen from VBA.  Anyone know what object saves unsaved
> modules?
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Fri Jan 13 05:57:03 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 13 Jan 2006 12:57:03 +0100
Subject: [AccessD] Backend Database Format: Access 2000 vs Access	2002
Message-ID: <s3c7a3ad.086@cactus.dk>

Hi William

SP1 or SP2?

/gustav

>>> wdhindman at bellsouth.net 13-01-2006 05:52 >>>
...the bloat was still there in A2K3 before the SP but apparently not after.

William

----- Original Message ----- 
From: "Charlotte Foust" <cfoust at infostatsystems.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 12, 2006 11:03 AM
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002


> Good to know.  I don't use 2003 and was repeating whata developer who
> does had told me.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
> Hindman
> Sent: Wednesday, January 11, 2006 7:36 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
> 2002
>
>
> ...A2K3 with the SP doesn't appear to have the bloat problem.
>
> William




From wdhindman at bellsouth.net  Fri Jan 13 06:36:39 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Fri, 13 Jan 2006 07:36:39 -0500
Subject: [AccessD] Backend Database Format: Access 2000 vs Access	2002
References: <s3c7a3ad.086@cactus.dk>
Message-ID: <003701c6183e$0088eb90$6101a8c0@JISREGISTRATION.local>

...I don't really know Gustav ...I was working on rewriting a new client mdb 
that was in A2K3 and noticed that it didn't appear to be bloating ...both 
SPs were installed ...I've since converted others without seeing the bloat 
...but neither SP mentions that as a bug fix.

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 6:57 AM
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002


> Hi William
>
> SP1 or SP2?
>
> /gustav
>
>>>> wdhindman at bellsouth.net 13-01-2006 05:52 >>>
> ...the bloat was still there in A2K3 before the SP but apparently not 
> after.
>
> William
>
> ----- Original Message ----- 
> From: "Charlotte Foust" <cfoust at infostatsystems.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 12, 2006 11:03 AM
> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002
>
>
>> Good to know.  I don't use 2003 and was repeating whata developer who
>> does had told me.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
>> Hindman
>> Sent: Wednesday, January 11, 2006 7:36 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
>> 2002
>>
>>
>> ...A2K3 with the SP doesn't appear to have the bloat problem.
>>
>> William
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From Gustav at cactus.dk  Fri Jan 13 06:48:02 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 13 Jan 2006 13:48:02 +0100
Subject: [AccessD] Backend Database Format: Access 2000 vs	Access	2002
Message-ID: <s3c7afa4.090@cactus.dk>

Hi William

It would be nice to know since, as I understand it, SP2 introduces the disabling of the ability to update linked Excel files.

/gustav

>>> wdhindman at bellsouth.net 13-01-2006 13:36 >>>
...I don't really know Gustav ...I was working on rewriting a new client mdb 
that was in A2K3 and noticed that it didn't appear to be bloating ...both 
SPs were installed ...I've since converted others without seeing the bloat 
...but neither SP mentions that as a bug fix.

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 6:57 AM
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002


> Hi William
>
> SP1 or SP2?
>
> /gustav
>
>>>> wdhindman at bellsouth.net 13-01-2006 05:52 >>>
> ...the bloat was still there in A2K3 before the SP but apparently not 
> after.
>
> William
>
> ----- Original Message ----- 
> From: "Charlotte Foust" <cfoust at infostatsystems.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 12, 2006 11:03 AM
> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002
>
>
>> Good to know.  I don't use 2003 and was repeating whata developer who
>> does had told me.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com 
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
>> Hindman
>> Sent: Wednesday, January 11, 2006 7:36 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
>> 2002
>>
>>
>> ...A2K3 with the SP doesn't appear to have the bloat problem.




From wdhindman at bellsouth.net  Fri Jan 13 07:17:51 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Fri, 13 Jan 2006 08:17:51 -0500
Subject: [AccessD] Backend Database Format: Access 2000 vs	Access	2002
References: <s3c7afa4.090@cactus.dk>
Message-ID: <005d01c61843$c1d31730$6101a8c0@JISREGISTRATION.local>

...yes, that's in SP2 ...but then AXP and Excel XP have also been updated to 
remove that capability ...some patent suit settlement issue ...you now have 
to import the ws, change the data, and then export it.

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 7:48 AM
Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002


> Hi William
>
> It would be nice to know since, as I understand it, SP2 introduces the 
> disabling of the ability to update linked Excel files.
>
> /gustav
>
>>>> wdhindman at bellsouth.net 13-01-2006 13:36 >>>
> ...I don't really know Gustav ...I was working on rewriting a new client 
> mdb
> that was in A2K3 and noticed that it didn't appear to be bloating ...both
> SPs were installed ...I've since converted others without seeing the bloat
> ...but neither SP mentions that as a bug fix.
>
> William
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Friday, January 13, 2006 6:57 AM
> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 2002
>
>
>> Hi William
>>
>> SP1 or SP2?
>>
>> /gustav
>>
>>>>> wdhindman at bellsouth.net 13-01-2006 05:52 >>>
>> ...the bloat was still there in A2K3 before the SP but apparently not
>> after.
>>
>> William
>>
>> ----- Original Message ----- 
>> From: "Charlotte Foust" <cfoust at infostatsystems.com>
>> To: "Access Developers discussion and problem solving"
>> <accessd at databaseadvisors.com>
>> Sent: Thursday, January 12, 2006 11:03 AM
>> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access 
>> 2002
>>
>>
>>> Good to know.  I don't use 2003 and was repeating whata developer who
>>> does had told me.
>>>
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
>>> Hindman
>>> Sent: Wednesday, January 11, 2006 7:36 PM
>>> To: Access Developers discussion and problem solving
>>> Subject: Re: [AccessD] Backend Database Format: Access 2000 vs Access
>>> 2002
>>>
>>>
>>> ...A2K3 with the SP doesn't appear to have the bloat problem.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From jwcolby at ColbyConsulting.com  Fri Jan 13 07:52:46 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 13 Jan 2006 08:52:46 -0500
Subject: [AccessD] Class builder
In-Reply-To: <00ec01c6181e$cb38a350$6401a8c0@fincomplex.spb.ru>
Message-ID: <006201c61848$a2bcec40$647aa8c0@ColbyM6805>

Shamil,

Thanks!  And I was looking for a save method.  Much too obvious I guess.
BTW do you have any help files for the VBA editor?  The help is rather
sparse. 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: Friday, January 13, 2006 3:53 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Class builder

John,

Here is one of the methods how a new class module can be created and saved
using VBA:

Dim mdl As Access.Module
Dim objApp As Access.Application
Dim strTempMdlName As String
Dim strMdlName As String
    Set objApp = Access.Application
    strMdlName = "CTestClassModule"

    With objApp.DoCmd
        .RunCommand acCmdNewObjectClassModule
        Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
        strTempMdlName = mdl.Name

        mdl.InsertText "public TestProperty as integer"

        .Close acModule, strTempMdlName, acSaveYes
        .Rename strMdlName, acModule, strTempMdlName
    End With

Make sure there is no class module with the name CTestClassModule in your
database...

Shamil

----- Original Message -----
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 4:08 AM
Subject: [AccessD] Class builder


> I have just finished a little class builder.  If anyone wants to play with
> it let me know.
>
> In the meantime, the one thing I can't figure out is how to save the newly
> created class.  I can click the save button and it saves the new module,
but
> I can't make it happen from VBA.  Anyone know what object saves unsaved
> modules?
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com

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



From jwcolby at ColbyConsulting.com  Fri Jan 13 08:32:25 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 13 Jan 2006 09:32:25 -0500
Subject: [AccessD] Class builder
In-Reply-To: <00ec01c6181e$cb38a350$6401a8c0@fincomplex.spb.ru>
Message-ID: <006301c6184e$2c870640$647aa8c0@ColbyM6805>

Shamil,

Well, that didn't work.  I am trying to build this as an Add-In and
apparently the .RunCommand acCmdNewObjectClassModule isn't available in the
context of code running out in an add-in.  I had been using the following
code to get a module:

Dim lMdl As VBComponent
Dim VBProj As VBProject
    Set VBProj = Application.VBE.ActiveVBProject
    Set lMdl =
Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_ClassModule)
    lMdl.Name = strModuleName
    Set AddModule = lMdl.CodeModule

The "lMdl.Name = strModuleName" does correctly set the name of the class
module.  The problem is that the created class is in limbo somewhere.  It
exists, i.e. if I try it again, the "lMdl.Name = strModuleName" causes a run
time error.  I cannot save it however.  Even opening a module in the current
app and clicking save doesn't save it.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: Friday, January 13, 2006 3:53 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Class builder

John,

Here is one of the methods how a new class module can be created and saved
using VBA:

Dim mdl As Access.Module
Dim objApp As Access.Application
Dim strTempMdlName As String
Dim strMdlName As String
    Set objApp = Access.Application
    strMdlName = "CTestClassModule"

    With objApp.DoCmd
        .RunCommand acCmdNewObjectClassModule
        Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
        strTempMdlName = mdl.Name

        mdl.InsertText "public TestProperty as integer"

        .Close acModule, strTempMdlName, acSaveYes
        .Rename strMdlName, acModule, strTempMdlName
    End With

Make sure there is no class module with the name CTestClassModule in your
database...

Shamil

----- Original Message -----
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 4:08 AM
Subject: [AccessD] Class builder


> I have just finished a little class builder.  If anyone wants to play with
> it let me know.
>
> In the meantime, the one thing I can't figure out is how to save the newly
> created class.  I can click the save button and it saves the new module,
but
> I can't make it happen from VBA.  Anyone know what object saves unsaved
> modules?
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com

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



From jwcolby at ColbyConsulting.com  Fri Jan 13 09:11:37 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 13 Jan 2006 10:11:37 -0500
Subject: [AccessD] Saving Code Builder generated class
Message-ID: <006701c61853$a69fcac0$647aa8c0@ColbyM6805>

It appears that Access is getting confused as to where the class is being
built.  I have a framework linked in to my FE and apparently the add-in
can't figure out what container the class belongs in.  When I create the
class and go look at it (it opens so I can see it) but up at the top it says
the container is the Add-In.  The save button is not grayed out but if I try
and click it, nothing happens.  If I then cut the code out and insert
another class and paste the code back in, I still can't save it.  If I open
a module inside the actual application first, then insert a new class and
paste in the code, I can now save it (prompted for the class name of course)
and it saves in the application.

So it appears that the code that actually creates the class is creating it
inside of the Add-In container and it is illegal to save changes to that
from the app using the Add-In.

The odd part is that somehow, someway (and VERY briefly) at the very
beginning I was able to create the module in the application container and
MANUALLY save it by clicking the save icon.

Very frustrating.

Again, the code for creating the module is:

Function AddModule() As CodeModule
On Error GoTo Err_AddModule
Dim lVBCmp As VBComponent
    Set lVBCmp = mVBProj.VBComponents.Add(vbext_ct_ClassModule)
    Set mMdl = lVBCmp.CodeModule
    mMdl.Name = mstrClassName
    mMdl.CodePane.Show
    mMdl.AddFromString mstrModule
    Set AddModule = mMdl
Exit_AddModule:
On Error Resume Next
Exit Function
Err_AddModule:
        MsgBox Err.Description, , "Error in Function basVBE.AddModule"
        Resume Exit_AddModule
    Resume 0    '.FOR TROUBLESHOOTING
End Function

The mObjects are dimensioned in the header of the class, and mVBProj is
instantiated in the Init:

    Set mVBProj = CurrentProject.Application.VBE.ActiveVBProject

I thought that CurrentProject was the application and thus would cause an
instance of the application even if run in a lib or add-in.

John W. Colby
www.ColbyConsulting.com 




From reuben at gfconsultants.com  Fri Jan 13 09:25:36 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Fri, 13 Jan 2006 10:25:36 -0500
Subject: [AccessD] File Created with wrong name
Message-ID: <DPEKLCIHBOJKCKJECLCPGEONDAAA.reuben@gfconsultants.com>

I have a feature that allows a user to zip the data file or zip it and FTP
it to my web server.

It has worked flawlessly until now...the reason is that the file name that
the zip file got saved to was not what it's supposed to be.  I need help
figuring out why the file name was incorrect.

The data file (in this case) is named   chrttable.mdb

I append some data from the app to create a unique file name.  The name ends
up being   chrttableAllenCounty01132006.zip

The client's system produced a zip file named     chrtta~1.zip

Why is the name trucnated and changed to chrtta~1.zip?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017






From Gustav at cactus.dk  Fri Jan 13 09:46:11 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 13 Jan 2006 16:46:11 +0100
Subject: [AccessD] File Created with wrong name
Message-ID: <s3c7d968.095@cactus.dk>

Hi Reuben

It's the short filename.

You may convert to and from the short and long filename:

<code>

' -------------------------------------------------------------------------
' Declarations for GetShortFileName.

Private Declare Function GetLongPathName Lib "kernel32" Alias "GetLongPathNameA" ( _
  ByVal lpszShortPath As String, _
  ByVal lpszLongPath As String, _
  ByVal cchBuffer As Long) As Long

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" ( _
  ByVal lpszLongPath As String, _
  ByVal lpszShortPath As String, _
  ByVal cchBuffer As Long) As Long


Public Function GetShortFileName(ByVal FullPath As String) As String

'PURPOSE: Returns DOS File Name (8.3 Format) Give
'FullPath for long file name

'PARAMETERS: FullPath: Full Path of Original File

'RETURNS: 8.3 FileName, or "" if FullPath doesn't
'         exist or file fails for other reasons

'EXAMPLE:
'Debug.Print _
'  GetShortFileName("C:\My Documents\My Very Long File Name.doc")

'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
'in the debug window

Dim lAns As Long
Dim sAns As String
Dim iLen As Integer
   
On Error Resume Next

'this function doesn't work if the file doesn't exist
'''If Dir(FullPath) = "" Then Exit Function

sAns = Space(255)
lAns = GetShortPathName(FullPath, sAns, 255)
GetShortFileName = Left(sAns, lAns)
    
End Function

Public Function GetLongFileName(ByVal FullPath As String) As String

'PURPOSE:
' Returns FullPath for short file name (8.3 Format)
' Give long File Name

'PARAMETERS: FullPath: Full Path of Original File

'RETURNS: FileName, or "" if FullPath doesn't
'         exist or file fails for other reasons

'EXAMPLE:
'Debug.Print _
'  GetShortFileName("C:\My Documents\My Very Long File Name.doc")

'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
'in the debug window

Dim lAns As Long
Dim sAns As String
Dim iLen As Integer
   
On Error Resume Next

'this function doesn't work if the file doesn't exist
'''If Dir(FullPath) = "" Then Exit Function

sAns = Space(255)
lAns = GetLongPathName(FullPath, sAns, 255)
GetLongFileName = Left(sAns, lAns)
    
End Function

</code>

/gustav


>>> reuben at gfconsultants.com 13-01-2006 16:25 >>>
I have a feature that allows a user to zip the data file or zip it and FTP
it to my web server.

It has worked flawlessly until now...the reason is that the file name that
the zip file got saved to was not what it's supposed to be.  I need help
figuring out why the file name was incorrect.

The data file (in this case) is named   chrttable.mdb

I append some data from the app to create a unique file name.  The name ends
up being   chrttableAllenCounty01132006.zip

The client's system produced a zip file named     chrtta~1.zip

Why is the name trucnated and changed to chrtta~1.zip?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017




From andy at minstersystems.co.uk  Fri Jan 13 09:54:59 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 13 Jan 2006 15:54:59 +0000
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)
Message-ID: <20060113155456.55B51255853@smtp.nildram.co.uk>

Well at long last I've cracked what was causing my strange crashes under
W2000. For the sake of the archives, and anyone else who encounters this
nightmare, I will tell all.

We all know that you can refer to controls on forms as form!ctl  or
form.ctl. We can argue about the rights and wrongs of the second of those
but we know you can do it. This is not about that argument. What, though, if
you have a field in a form's underlying recordsource but not on the form? If
you referenced that you'd think that you must use the ! form wouldn't you,
as there is no control? I would. But what if you inadvertently use the .
form? What, in particular, if you pass the form as a parameter to a function
and make that mistake inside the function (thereby giving the compiler no
chance of picking it up as an error)? Well maybe nothing...but then again
maybe programming havoc.

W98 seems to be extremely tolerant of this mistake. It treats it as if you'd
coded ! after all. You will be none the wiser about your slip-up. Moving the
same MDB to W2000 or XP was a different story. What happened there was that
once the offending line had been executed the system would inevitably crash,
at some point, either with a non-specific "Msaccess.exe has generated errors
and will be closed by Windows" error, or a GPF or a "Tried to write to
memory location xyz and you're not flipping allowed to" error. But the
'beauty' of this was that it *never* crashed on the line which caused the
errors, just at seemingly random points thereafter. So standard debugging
methods were useless. As fast as I put traps in one part of the system it
would crash somewhere else entirely. So I'd switch my attention to there,
and it blazes through there without a hitch and a couple of minutes later
GPFs somewhere else. I was tearing my hair out. In the end, and it's taken
all week, I took a different approach. I said, if I quit this area of code
after it's executed 1 line, do I get any crashes? Answer, no. If I allow it
to go to the end do I get crashes, answer yes. So, if I quit the code half
way through, do I get crashes? If yes the code before the half-way point is
causing it, if no it's between half-way and the end. You get the picture. In
that way I chopped and chopped and, a long, long time later, got down to the
function and then the line that made the difference. Not, remember, that
executing the line crashed, but that executing the line caused the system to
crash somewhere else soon. And that's when I saw that whilst the surrounding
lines were of the format

frm!fld = rst!fld

this one was

frm.fld = rst!fld

So I changed . to ! and lo and behold no more crashes.

And I can only talk about A97, as I can't test my app on anything else, and
I know it's not even a universal problem in A97 as I just tried to create a
little MDB to demo the problem, and it fails to crash. So there's no
consistency in any of this but there is a huge problem there somewhere, cos
when it does hit it's a terror. It's perhaps the closest I've come in 30
years of programming to saying I can't solve this because it defies logic.
But still, it's solved now, just in time for the week-end so I'll be having
a big drink tonight.

Thanks to all who responded to my plea earlier in the week. I was on the
wrong track with DLL's, although I think I can be forgiven for thinking
along those lines, and it was Shamil who urged me to focus on code. You were
right as ever Shamil, although even you might be taken aback by a seemingly
trivial coding error that 'works' itself but causes such collateral damage
elsewhere.

Have a good week-end all. I know I will.

--
Andy Lacey
http://www.minstersystems.co.uk


________________________________________________
Message sent using UebiMiau 2.7.2



From reuben at gfconsultants.com  Fri Jan 13 10:07:23 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Fri, 13 Jan 2006 11:07:23 -0500
Subject: [AccessD] File Created with wrong name
In-Reply-To: <s3c7d968.095@cactus.dk>
Message-ID: <DPEKLCIHBOJKCKJECLCPIEOPDAAA.reuben@gfconsultants.com>

Gustav, do you mean that although the file name is chrtta~1.zip that the
full name is still associated to it and can be found thru that second
function you sent?

I'm sure this is another one of those things I've missed out on by never
taking computer classes of any type.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: Friday, January 13, 2006 10:46 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] File Created with wrong name
>
>
> Hi Reuben
>
> It's the short filename.
>
> You may convert to and from the short and long filename:
>
> <code>
>
> '
> -------------------------------------------------------------------------
> ' Declarations for GetShortFileName.
>
> Private Declare Function GetLongPathName Lib "kernel32" Alias
> "GetLongPathNameA" ( _
>   ByVal lpszShortPath As String, _
>   ByVal lpszLongPath As String, _
>   ByVal cchBuffer As Long) As Long
>
> Private Declare Function GetShortPathName Lib "kernel32" Alias
> "GetShortPathNameA" ( _
>   ByVal lpszLongPath As String, _
>   ByVal lpszShortPath As String, _
>   ByVal cchBuffer As Long) As Long
>
>
> Public Function GetShortFileName(ByVal FullPath As String) As String
>
> 'PURPOSE: Returns DOS File Name (8.3 Format) Give
> 'FullPath for long file name
>
> 'PARAMETERS: FullPath: Full Path of Original File
>
> 'RETURNS: 8.3 FileName, or "" if FullPath doesn't
> '         exist or file fails for other reasons
>
> 'EXAMPLE:
> 'Debug.Print _
> '  GetShortFileName("C:\My Documents\My Very Long File Name.doc")
>
> 'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
> 'in the debug window
>
> Dim lAns As Long
> Dim sAns As String
> Dim iLen As Integer
>
> On Error Resume Next
>
> 'this function doesn't work if the file doesn't exist
> '''If Dir(FullPath) = "" Then Exit Function
>
> sAns = Space(255)
> lAns = GetShortPathName(FullPath, sAns, 255)
> GetShortFileName = Left(sAns, lAns)
>
> End Function
>
> Public Function GetLongFileName(ByVal FullPath As String) As String
>
> 'PURPOSE:
> ' Returns FullPath for short file name (8.3 Format)
> ' Give long File Name
>
> 'PARAMETERS: FullPath: Full Path of Original File
>
> 'RETURNS: FileName, or "" if FullPath doesn't
> '         exist or file fails for other reasons
>
> 'EXAMPLE:
> 'Debug.Print _
> '  GetShortFileName("C:\My Documents\My Very Long File Name.doc")
>
> 'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
> 'in the debug window
>
> Dim lAns As Long
> Dim sAns As String
> Dim iLen As Integer
>
> On Error Resume Next
>
> 'this function doesn't work if the file doesn't exist
> '''If Dir(FullPath) = "" Then Exit Function
>
> sAns = Space(255)
> lAns = GetLongPathName(FullPath, sAns, 255)
> GetLongFileName = Left(sAns, lAns)
>
> End Function
>
> </code>
>
> /gustav
>
>
> >>> reuben at gfconsultants.com 13-01-2006 16:25 >>>
> I have a feature that allows a user to zip the data file or zip it and FTP
> it to my web server.
>
> It has worked flawlessly until now...the reason is that the file name that
> the zip file got saved to was not what it's supposed to be.  I need help
> figuring out why the file name was incorrect.
>
> The data file (in this case) is named   chrttable.mdb
>
> I append some data from the app to create a unique file name.
> The name ends
> up being   chrttableAllenCounty01132006.zip
>
> The client's system produced a zip file named     chrtta~1.zip
>
> Why is the name trucnated and changed to chrtta~1.zip?
>
> Thanks.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From Gustav at cactus.dk  Fri Jan 13 10:12:42 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 13 Jan 2006 17:12:42 +0100
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000	crashes)
Message-ID: <s3c7dfac.096@cactus.dk>

Hi Andy

What a story and what a lesson. 
I've never liked the dot for bang. Even though the dot is needed for intellisense to work, I often change the dot back to a bang. 

You certainly deserve the weekend and a nice beer or two!
Thanks for enlighten us.

/gustav

>>> andy at minstersystems.co.uk 13-01-2006 16:54 >>>
Well at long last I've cracked what was causing my strange crashes under
W2000. For the sake of the archives, and anyone else who encounters this
nightmare, I will tell all.

We all know that you can refer to controls on forms as form!ctl  or
form.ctl. We can argue about the rights and wrongs of the second of those
but we know you can do it. This is not about that argument. What, though, if
you have a field in a form's underlying recordsource but not on the form? If
you referenced that you'd think that you must use the ! form wouldn't you,
as there is no control? I would. But what if you inadvertently use the .
form? What, in particular, if you pass the form as a parameter to a function
and make that mistake inside the function (thereby giving the compiler no
chance of picking it up as an error)? Well maybe nothing...but then again
maybe programming havoc.

W98 seems to be extremely tolerant of this mistake. It treats it as if you'd
coded ! after all. You will be none the wiser about your slip-up. Moving the
same MDB to W2000 or XP was a different story. What happened there was that
once the offending line had been executed the system would inevitably crash,
at some point, either with a non-specific "Msaccess.exe has generated errors
and will be closed by Windows" error, or a GPF or a "Tried to write to
memory location xyz and you're not flipping allowed to" error. But the
'beauty' of this was that it *never* crashed on the line which caused the
errors, just at seemingly random points thereafter. So standard debugging
methods were useless. As fast as I put traps in one part of the system it
would crash somewhere else entirely. So I'd switch my attention to there,
and it blazes through there without a hitch and a couple of minutes later
GPFs somewhere else. I was tearing my hair out. In the end, and it's taken
all week, I took a different approach. I said, if I quit this area of code
after it's executed 1 line, do I get any crashes? Answer, no. If I allow it
to go to the end do I get crashes, answer yes. So, if I quit the code half
way through, do I get crashes? If yes the code before the half-way point is
causing it, if no it's between half-way and the end. You get the picture. In
that way I chopped and chopped and, a long, long time later, got down to the
function and then the line that made the difference. Not, remember, that
executing the line crashed, but that executing the line caused the system to
crash somewhere else soon. And that's when I saw that whilst the surrounding
lines were of the format

frm!fld = rst!fld

this one was

frm.fld = rst!fld

So I changed . to ! and lo and behold no more crashes.

And I can only talk about A97, as I can't test my app on anything else, and
I know it's not even a universal problem in A97 as I just tried to create a
little MDB to demo the problem, and it fails to crash. So there's no
consistency in any of this but there is a huge problem there somewhere, cos
when it does hit it's a terror. It's perhaps the closest I've come in 30
years of programming to saying I can't solve this because it defies logic.
But still, it's solved now, just in time for the week-end so I'll be having
a big drink tonight.

Thanks to all who responded to my plea earlier in the week. I was on the
wrong track with DLL's, although I think I can be forgiven for thinking
along those lines, and it was Shamil who urged me to focus on code. You were
right as ever Shamil, although even you might be taken aback by a seemingly
trivial coding error that 'works' itself but causes such collateral damage
elsewhere.

Have a good week-end all. I know I will.

--
Andy Lacey
http://www.minstersystems.co.uk 




From cfoust at infostatsystems.com  Fri Jan 13 10:13:31 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 13 Jan 2006 08:13:31 -0800
Subject: [AccessD] Saving Code Builder generated class
Message-ID: <F55048AF7E974F429BB24597D7355EEABF1C@INFOSERVER04.infostat.local>

John,

Don't you want to use CodeProject instead of CurrentProject when
referring to the add-in?  

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 13, 2006 7:12 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Saving Code Builder generated class


It appears that Access is getting confused as to where the class is
being built.  I have a framework linked in to my FE and apparently the
add-in can't figure out what container the class belongs in.  When I
create the class and go look at it (it opens so I can see it) but up at
the top it says the container is the Add-In.  The save button is not
grayed out but if I try and click it, nothing happens.  If I then cut
the code out and insert another class and paste the code back in, I
still can't save it.  If I open a module inside the actual application
first, then insert a new class and paste in the code, I can now save it
(prompted for the class name of course) and it saves in the application.

So it appears that the code that actually creates the class is creating
it inside of the Add-In container and it is illegal to save changes to
that from the app using the Add-In.

The odd part is that somehow, someway (and VERY briefly) at the very
beginning I was able to create the module in the application container
and MANUALLY save it by clicking the save icon.

Very frustrating.

Again, the code for creating the module is:

Function AddModule() As CodeModule
On Error GoTo Err_AddModule
Dim lVBCmp As VBComponent
    Set lVBCmp = mVBProj.VBComponents.Add(vbext_ct_ClassModule)
    Set mMdl = lVBCmp.CodeModule
    mMdl.Name = mstrClassName
    mMdl.CodePane.Show
    mMdl.AddFromString mstrModule
    Set AddModule = mMdl
Exit_AddModule:
On Error Resume Next
Exit Function
Err_AddModule:
        MsgBox Err.Description, , "Error in Function basVBE.AddModule"
        Resume Exit_AddModule
    Resume 0    '.FOR TROUBLESHOOTING
End Function

The mObjects are dimensioned in the header of the class, and mVBProj is
instantiated in the Init:

    Set mVBProj = CurrentProject.Application.VBE.ActiveVBProject

I thought that CurrentProject was the application and thus would cause
an instance of the application even if run in a lib or add-in.

John W. Colby
www.ColbyConsulting.com 


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


From Gustav at cactus.dk  Fri Jan 13 10:18:34 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 13 Jan 2006 17:18:34 +0100
Subject: [AccessD] File Created with wrong name
Message-ID: <s3c7e0fc.098@cactus.dk>

Hi Reuben

Yes, as soon as a long file name is created, so is a short. But not vice versa.
That's for the OS. If the file is saved in a zip with the short name, the long file name is lost for the receiver of the zip file.

Of course you should test it, but that's not a big deal.

/gustav

>>> reuben at gfconsultants.com 13-01-2006 17:07 >>>
Gustav, do you mean that although the file name is chrtta~1.zip that the
full name is still associated to it and can be found thru that second
function you sent?

I'm sure this is another one of those things I've missed out on by never
taking computer classes of any type.

Reuben Cummings
GFC, LLC
812.523.1017




From cfoust at infostatsystems.com  Fri Jan 13 10:31:24 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 13 Jan 2006 08:31:24 -0800
Subject: [AccessD] File Created with wrong name
Message-ID: <F55048AF7E974F429BB24597D7355EEABF1E@INFOSERVER04.infostat.local>

It isn't exactly an issue of computer classes, Reuben, more like ancient
history.  Early on, file names were limited to 8 characters plus an
extension.  Windows eventually (Win 98?) allowed longer file names in
the Windows interface but kept the short form as well, probably for DOS
compatibility.  The ~1 indicates that this is the first zip file with a
name that begins with the characters chrtta and which has a file name
longer than 8 characters.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben
Cummings
Sent: Friday, January 13, 2006 8:07 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] File Created with wrong name


Gustav, do you mean that although the file name is chrtta~1.zip that the
full name is still associated to it and can be found thru that second
function you sent?

I'm sure this is another one of those things I've missed out on by never
taking computer classes of any type.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> Sent: Friday, January 13, 2006 10:46 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] File Created with wrong name
>
>
> Hi Reuben
>
> It's the short filename.
>
> You may convert to and from the short and long filename:
>
> <code>
>
> '
> ----------------------------------------------------------------------
> ---
> ' Declarations for GetShortFileName.
>
> Private Declare Function GetLongPathName Lib "kernel32" Alias 
> "GetLongPathNameA" ( _
>   ByVal lpszShortPath As String, _
>   ByVal lpszLongPath As String, _
>   ByVal cchBuffer As Long) As Long
>
> Private Declare Function GetShortPathName Lib "kernel32" Alias 
> "GetShortPathNameA" ( _
>   ByVal lpszLongPath As String, _
>   ByVal lpszShortPath As String, _
>   ByVal cchBuffer As Long) As Long
>
>
> Public Function GetShortFileName(ByVal FullPath As String) As String
>
> 'PURPOSE: Returns DOS File Name (8.3 Format) Give
> 'FullPath for long file name
>
> 'PARAMETERS: FullPath: Full Path of Original File
>
> 'RETURNS: 8.3 FileName, or "" if FullPath doesn't
> '         exist or file fails for other reasons
>
> 'EXAMPLE:
> 'Debug.Print _
> '  GetShortFileName("C:\My Documents\My Very Long File Name.doc")
>
> 'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
> 'in the debug window
>
> Dim lAns As Long
> Dim sAns As String
> Dim iLen As Integer
>
> On Error Resume Next
>
> 'this function doesn't work if the file doesn't exist
> '''If Dir(FullPath) = "" Then Exit Function
>
> sAns = Space(255)
> lAns = GetShortPathName(FullPath, sAns, 255)
> GetShortFileName = Left(sAns, lAns)
>
> End Function
>
> Public Function GetLongFileName(ByVal FullPath As String) As String
>
> 'PURPOSE:
> ' Returns FullPath for short file name (8.3 Format)
> ' Give long File Name
>
> 'PARAMETERS: FullPath: Full Path of Original File
>
> 'RETURNS: FileName, or "" if FullPath doesn't
> '         exist or file fails for other reasons
>
> 'EXAMPLE:
> 'Debug.Print _
> '  GetShortFileName("C:\My Documents\My Very Long File Name.doc")
>
> 'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
> 'in the debug window
>
> Dim lAns As Long
> Dim sAns As String
> Dim iLen As Integer
>
> On Error Resume Next
>
> 'this function doesn't work if the file doesn't exist
> '''If Dir(FullPath) = "" Then Exit Function
>
> sAns = Space(255)
> lAns = GetLongPathName(FullPath, sAns, 255)
> GetLongFileName = Left(sAns, lAns)
>
> End Function
>
> </code>
>
> /gustav
>
>
> >>> reuben at gfconsultants.com 13-01-2006 16:25 >>>
> I have a feature that allows a user to zip the data file or zip it and

> FTP it to my web server.
>
> It has worked flawlessly until now...the reason is that the file name 
> that the zip file got saved to was not what it's supposed to be.  I 
> need help figuring out why the file name was incorrect.
>
> The data file (in this case) is named   chrttable.mdb
>
> I append some data from the app to create a unique file name. The name

> ends
> up being   chrttableAllenCounty01132006.zip
>
> The client's system produced a zip file named     chrtta~1.zip
>
> Why is the name trucnated and changed to chrtta~1.zip?
>
> Thanks.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>




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


From reuben at gfconsultants.com  Fri Jan 13 10:32:38 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Fri, 13 Jan 2006 11:32:38 -0500
Subject: [AccessD] File Created with wrong name
In-Reply-To: <DPEKLCIHBOJKCKJECLCPIEOPDAAA.reuben@gfconsultants.com>
Message-ID: <DPEKLCIHBOJKCKJECLCPMEPADAAA.reuben@gfconsultants.com>

The file in question was emailed to me and that long name thing does not
work on it (is that possibly lost in the emailing).

More importantly, why did their system store the file this way?

If I ALWAYS run this GetLongFileName on the path and file I plan to FTP I
should always get the correct path.  Because if I pass the long name I
should get the long name, correct?

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Reuben
> Cummings
> Sent: Friday, January 13, 2006 11:07 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] File Created with wrong name
>
>
> Gustav, do you mean that although the file name is chrtta~1.zip that the
> full name is still associated to it and can be found thru that second
> function you sent?
>
> I'm sure this is another one of those things I've missed out on by never
> taking computer classes of any type.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
> > Sent: Friday, January 13, 2006 10:46 AM
> > To: accessd at databaseadvisors.com
> > Subject: Re: [AccessD] File Created with wrong name
> >
> >
> > Hi Reuben
> >
> > It's the short filename.
> >
> > You may convert to and from the short and long filename:
> >
> > <code>
> >
> > '
> >
> -------------------------------------------------------------------------
> > ' Declarations for GetShortFileName.
> >
> > Private Declare Function GetLongPathName Lib "kernel32" Alias
> > "GetLongPathNameA" ( _
> >   ByVal lpszShortPath As String, _
> >   ByVal lpszLongPath As String, _
> >   ByVal cchBuffer As Long) As Long
> >
> > Private Declare Function GetShortPathName Lib "kernel32" Alias
> > "GetShortPathNameA" ( _
> >   ByVal lpszLongPath As String, _
> >   ByVal lpszShortPath As String, _
> >   ByVal cchBuffer As Long) As Long
> >
> >
> > Public Function GetShortFileName(ByVal FullPath As String) As String
> >
> > 'PURPOSE: Returns DOS File Name (8.3 Format) Give
> > 'FullPath for long file name
> >
> > 'PARAMETERS: FullPath: Full Path of Original File
> >
> > 'RETURNS: 8.3 FileName, or "" if FullPath doesn't
> > '         exist or file fails for other reasons
> >
> > 'EXAMPLE:
> > 'Debug.Print _
> > '  GetShortFileName("C:\My Documents\My Very Long File Name.doc")
> >
> > 'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
> > 'in the debug window
> >
> > Dim lAns As Long
> > Dim sAns As String
> > Dim iLen As Integer
> >
> > On Error Resume Next
> >
> > 'this function doesn't work if the file doesn't exist
> > '''If Dir(FullPath) = "" Then Exit Function
> >
> > sAns = Space(255)
> > lAns = GetShortPathName(FullPath, sAns, 255)
> > GetShortFileName = Left(sAns, lAns)
> >
> > End Function
> >
> > Public Function GetLongFileName(ByVal FullPath As String) As String
> >
> > 'PURPOSE:
> > ' Returns FullPath for short file name (8.3 Format)
> > ' Give long File Name
> >
> > 'PARAMETERS: FullPath: Full Path of Original File
> >
> > 'RETURNS: FileName, or "" if FullPath doesn't
> > '         exist or file fails for other reasons
> >
> > 'EXAMPLE:
> > 'Debug.Print _
> > '  GetShortFileName("C:\My Documents\My Very Long File Name.doc")
> >
> > 'If file exists, will display C:\MYDOCU~1\MYVERY~1.DOC
> > 'in the debug window
> >
> > Dim lAns As Long
> > Dim sAns As String
> > Dim iLen As Integer
> >
> > On Error Resume Next
> >
> > 'this function doesn't work if the file doesn't exist
> > '''If Dir(FullPath) = "" Then Exit Function
> >
> > sAns = Space(255)
> > lAns = GetLongPathName(FullPath, sAns, 255)
> > GetLongFileName = Left(sAns, lAns)
> >
> > End Function
> >
> > </code>
> >
> > /gustav
> >
> >
> > >>> reuben at gfconsultants.com 13-01-2006 16:25 >>>
> > I have a feature that allows a user to zip the data file or zip
> it and FTP
> > it to my web server.
> >
> > It has worked flawlessly until now...the reason is that the
> file name that
> > the zip file got saved to was not what it's supposed to be.  I need help
> > figuring out why the file name was incorrect.
> >
> > The data file (in this case) is named   chrttable.mdb
> >
> > I append some data from the app to create a unique file name.
> > The name ends
> > up being   chrttableAllenCounty01132006.zip
> >
> > The client's system produced a zip file named     chrtta~1.zip
> >
> > Why is the name trucnated and changed to chrtta~1.zip?
> >
> > Thanks.
> >
> > Reuben Cummings
> > GFC, LLC
> > 812.523.1017
> >
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
>
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From jwcolby at ColbyConsulting.com  Fri Jan 13 10:40:04 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 13 Jan 2006 11:40:04 -0500
Subject: [AccessD] Saving Code Builder generated class
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF1C@INFOSERVER04.infostat.local>
Message-ID: <007301c61860$01d2ff50$647aa8c0@ColbyM6805>

Well, I am trying to build a class in the project, not in the add-in.  In my
tiny mind, if I use CurrentProject I should get a handle to the stuff in the
application, thus if I build a module it should be built in the
CurrentProject. If I use CodeProject, then I would be telling it to build
the class in the container where the code is currently running which is the
add-in, not what I want.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Friday, January 13, 2006 11:14 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Saving Code Builder generated class

John,

Don't you want to use CodeProject instead of CurrentProject when referring
to the add-in?  

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 13, 2006 7:12 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Saving Code Builder generated class


It appears that Access is getting confused as to where the class is being
built.  I have a framework linked in to my FE and apparently the add-in
can't figure out what container the class belongs in.  When I create the
class and go look at it (it opens so I can see it) but up at the top it says
the container is the Add-In.  The save button is not grayed out but if I try
and click it, nothing happens.  If I then cut the code out and insert
another class and paste the code back in, I still can't save it.  If I open
a module inside the actual application first, then insert a new class and
paste in the code, I can now save it (prompted for the class name of course)
and it saves in the application.

So it appears that the code that actually creates the class is creating it
inside of the Add-In container and it is illegal to save changes to that
from the app using the Add-In.

The odd part is that somehow, someway (and VERY briefly) at the very
beginning I was able to create the module in the application container and
MANUALLY save it by clicking the save icon.

Very frustrating.

Again, the code for creating the module is:

Function AddModule() As CodeModule
On Error GoTo Err_AddModule
Dim lVBCmp As VBComponent
    Set lVBCmp = mVBProj.VBComponents.Add(vbext_ct_ClassModule)
    Set mMdl = lVBCmp.CodeModule
    mMdl.Name = mstrClassName
    mMdl.CodePane.Show
    mMdl.AddFromString mstrModule
    Set AddModule = mMdl
Exit_AddModule:
On Error Resume Next
Exit Function
Err_AddModule:
        MsgBox Err.Description, , "Error in Function basVBE.AddModule"
        Resume Exit_AddModule
    Resume 0    '.FOR TROUBLESHOOTING
End Function

The mObjects are dimensioned in the header of the class, and mVBProj is
instantiated in the Init:

    Set mVBProj = CurrentProject.Application.VBE.ActiveVBProject

I thought that CurrentProject was the application and thus would cause an
instance of the application even if run in a lib or add-in.

John W. Colby
www.ColbyConsulting.com 


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



From darrend at nimble.com.au  Fri Jan 13 10:43:49 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Sat, 14 Jan 2006 03:43:49 +1100
Subject: [AccessD] A2003:Navigating using Web Browser Control
Message-ID: <20060113164350.YDQJ1358.omta03sl.mx.bigpond.com@DENZILLAP>

Hi all
Using the Microsoft Web Browser from the ActiveX list
Dropped it onto a form - all good
I can go to a page by using code such as...
Me.actxWebBrowser.navigate www.databaseadvisors.com
No problem
 
When I click a link inside the 'loaded' web page - how am I to detremine this
'new address'?
 
I have tried various things like...
me.actxWebBrowser.navigate.value
etc with no success
 
Any suggestions?
 
Many thanks in advanmce
 
Darren
 
FYI
OLE CLASS =Microsoft Web Browser
CLASS = Shell.Explorer.2 
 


From jwcolby at ColbyConsulting.com  Fri Jan 13 10:44:21 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 13 Jan 2006 11:44:21 -0500
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)
In-Reply-To: <20060113155456.55B51255853@smtp.nildram.co.uk>
Message-ID: <007401c61860$9ae31c20$647aa8c0@ColbyM6805>

Andy,

I chased a similar bug for weeks.  I used a function that wrote to a text
file, setting statements to perform the write down through the code.  Thus I
could find "the code wrote this one, and this one, and this one, but failed
to write this one".  It made it a matter of pasting in these "write a
number" statements in and made the narrowing down much quicker.

Fascinating bug though.  You should report that one to MS.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
Sent: Friday, January 13, 2006 10:55 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)

Well at long last I've cracked what was causing my strange crashes under
W2000. For the sake of the archives, and anyone else who encounters this
nightmare, I will tell all.

We all know that you can refer to controls on forms as form!ctl  or
form.ctl. We can argue about the rights and wrongs of the second of those
but we know you can do it. This is not about that argument. What, though, if
you have a field in a form's underlying recordsource but not on the form? If
you referenced that you'd think that you must use the ! form wouldn't you,
as there is no control? I would. But what if you inadvertently use the .
form? What, in particular, if you pass the form as a parameter to a function
and make that mistake inside the function (thereby giving the compiler no
chance of picking it up as an error)? Well maybe nothing...but then again
maybe programming havoc.

W98 seems to be extremely tolerant of this mistake. It treats it as if you'd
coded ! after all. You will be none the wiser about your slip-up. Moving the
same MDB to W2000 or XP was a different story. What happened there was that
once the offending line had been executed the system would inevitably crash,
at some point, either with a non-specific "Msaccess.exe has generated errors
and will be closed by Windows" error, or a GPF or a "Tried to write to
memory location xyz and you're not flipping allowed to" error. But the
'beauty' of this was that it *never* crashed on the line which caused the
errors, just at seemingly random points thereafter. So standard debugging
methods were useless. As fast as I put traps in one part of the system it
would crash somewhere else entirely. So I'd switch my attention to there,
and it blazes through there without a hitch and a couple of minutes later
GPFs somewhere else. I was tearing my hair out. In the end, and it's taken
all week, I took a different approach. I said, if I quit this area of code
after it's executed 1 line, do I get any crashes? Answer, no. If I allow it
to go to the end do I get crashes, answer yes. So, if I quit the code half
way through, do I get crashes? If yes the code before the half-way point is
causing it, if no it's between half-way and the end. You get the picture. In
that way I chopped and chopped and, a long, long time later, got down to the
function and then the line that made the difference. Not, remember, that
executing the line crashed, but that executing the line caused the system to
crash somewhere else soon. And that's when I saw that whilst the surrounding
lines were of the format

frm!fld = rst!fld

this one was

frm.fld = rst!fld

So I changed . to ! and lo and behold no more crashes.

And I can only talk about A97, as I can't test my app on anything else, and
I know it's not even a universal problem in A97 as I just tried to create a
little MDB to demo the problem, and it fails to crash. So there's no
consistency in any of this but there is a huge problem there somewhere, cos
when it does hit it's a terror. It's perhaps the closest I've come in 30
years of programming to saying I can't solve this because it defies logic.
But still, it's solved now, just in time for the week-end so I'll be having
a big drink tonight.

Thanks to all who responded to my plea earlier in the week. I was on the
wrong track with DLL's, although I think I can be forgiven for thinking
along those lines, and it was Shamil who urged me to focus on code. You were
right as ever Shamil, although even you might be taken aback by a seemingly
trivial coding error that 'works' itself but causes such collateral damage
elsewhere.

Have a good week-end all. I know I will.

--
Andy Lacey
http://www.minstersystems.co.uk


________________________________________________
Message sent using UebiMiau 2.7.2

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



From Gustav at cactus.dk  Fri Jan 13 10:47:19 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 13 Jan 2006 17:47:19 +0100
Subject: [AccessD] File Created with wrong name
Message-ID: <s3c7e7bd.000@cactus.dk>

Hi Reuben

Yes, if all you receive is a zip with a file given a short name, that's it.
Why the short name was zipped is difficult to say. In Win9x with FAT or FAT32 file system I think you could set it up to use short filenames only; I'm not sure about NTFS file system.

A primitive method to preserve the long file name is to save it as text in a text file, say filename.txt, and include that in the zip. Then, at the receiver, unzip both files and read the true name from the text file.

/gustav

>>> reuben at gfconsultants.com 13-01-2006 17:32 >>>
The file in question was emailed to me and that long name thing does not
work on it (is that possibly lost in the emailing).

More importantly, why did their system store the file this way?

If I ALWAYS run this GetLongFileName on the path and file I plan to FTP I
should always get the correct path.  Because if I pass the long name I
should get the long name, correct?

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Reuben
> Cummings
> Sent: Friday, January 13, 2006 11:07 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] File Created with wrong name
>
>
> Gustav, do you mean that although the file name is chrtta~1.zip that the
> full name is still associated to it and can be found thru that second
> function you sent?
>
> I'm sure this is another one of those things I've missed out on by never
> taking computer classes of any type.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017




From cfoust at infostatsystems.com  Fri Jan 13 10:52:39 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 13 Jan 2006 08:52:39 -0800
Subject: [AccessD] Saving Code Builder generated class
Message-ID: <F55048AF7E974F429BB24597D7355EEABF1F@INFOSERVER04.infostat.local>

Sorry, I misunderstood which project you were trying to add it to.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 13, 2006 8:40 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Saving Code Builder generated class


Well, I am trying to build a class in the project, not in the add-in.
In my tiny mind, if I use CurrentProject I should get a handle to the
stuff in the application, thus if I build a module it should be built in
the CurrentProject. If I use CodeProject, then I would be telling it to
build the class in the container where the code is currently running
which is the add-in, not what I want.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Friday, January 13, 2006 11:14 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Saving Code Builder generated class

John,

Don't you want to use CodeProject instead of CurrentProject when
referring to the add-in?  

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 13, 2006 7:12 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Saving Code Builder generated class


It appears that Access is getting confused as to where the class is
being built.  I have a framework linked in to my FE and apparently the
add-in can't figure out what container the class belongs in.  When I
create the class and go look at it (it opens so I can see it) but up at
the top it says the container is the Add-In.  The save button is not
grayed out but if I try and click it, nothing happens.  If I then cut
the code out and insert another class and paste the code back in, I
still can't save it.  If I open a module inside the actual application
first, then insert a new class and paste in the code, I can now save it
(prompted for the class name of course) and it saves in the application.

So it appears that the code that actually creates the class is creating
it inside of the Add-In container and it is illegal to save changes to
that from the app using the Add-In.

The odd part is that somehow, someway (and VERY briefly) at the very
beginning I was able to create the module in the application container
and MANUALLY save it by clicking the save icon.

Very frustrating.

Again, the code for creating the module is:

Function AddModule() As CodeModule
On Error GoTo Err_AddModule
Dim lVBCmp As VBComponent
    Set lVBCmp = mVBProj.VBComponents.Add(vbext_ct_ClassModule)
    Set mMdl = lVBCmp.CodeModule
    mMdl.Name = mstrClassName
    mMdl.CodePane.Show
    mMdl.AddFromString mstrModule
    Set AddModule = mMdl
Exit_AddModule:
On Error Resume Next
Exit Function
Err_AddModule:
        MsgBox Err.Description, , "Error in Function basVBE.AddModule"
        Resume Exit_AddModule
    Resume 0    '.FOR TROUBLESHOOTING
End Function

The mObjects are dimensioned in the header of the class, and mVBProj is
instantiated in the Init:

    Set mVBProj = CurrentProject.Application.VBE.ActiveVBProject

I thought that CurrentProject was the application and thus would cause
an instance of the application even if run in a lib or add-in.

John W. Colby
www.ColbyConsulting.com 


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

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


From mlcollins at direcway.com  Fri Jan 13 10:58:16 2006
From: mlcollins at direcway.com (michael collins)
Date: Fri, 13 Jan 2006 10:58:16 -0600
Subject: [AccessD] File Created with wrong name
In-Reply-To: <DPEKLCIHBOJKCKJECLCPGEONDAAA.reuben@gfconsultants.com>
Message-ID: <NJBBLMJNGLIDBIMJIHGLIEBIDAAA.mlcollins@direcway.com>

Their system is set to use only short file names.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Reuben
Cummings
Sent: Friday, January 13, 2006 9:26 AM
To: AccessD
Subject: [AccessD] File Created with wrong name


I have a feature that allows a user to zip the data file or zip it and FTP
it to my web server.

It has worked flawlessly until now...the reason is that the file name that
the zip file got saved to was not what it's supposed to be.  I need help
figuring out why the file name was incorrect.

The data file (in this case) is named   chrttable.mdb

I append some data from the app to create a unique file name.  The name ends
up being   chrttableAllenCounty01132006.zip

The client's system produced a zip file named     chrtta~1.zip

Why is the name trucnated and changed to chrtta~1.zip?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017




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



From garykjos at gmail.com  Fri Jan 13 11:03:16 2006
From: garykjos at gmail.com (Gary Kjos)
Date: Fri, 13 Jan 2006 11:03:16 -0600
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)
In-Reply-To: <20060113155456.55B51255853@smtp.nildram.co.uk>
References: <20060113155456.55B51255853@smtp.nildram.co.uk>
Message-ID: <aea6c4950601130903pbafe8ei58a3211d517e6b89@mail.gmail.com>

Yea Andy!!!  Great job figuring it out <BANG>

--
Gary Kjos
garykjos at gmail.com


From DWUTKA at marlow.com  Fri Jan 13 11:03:07 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Fri, 13 Jan 2006 11:03:07 -0600
Subject: [AccessD] A2003:Navigating using Web Browser Control
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD53D@main2.marlow.com>

There should be a navigate event, that should have the new URL as an
argument.

Drew

-----Original Message-----
From: Darren DICK [mailto:darrend at nimble.com.au]
Sent: Friday, January 13, 2006 10:44 AM
To: AccessD
Subject: [AccessD] A2003:Navigating using Web Browser Control


Hi all
Using the Microsoft Web Browser from the ActiveX list
Dropped it onto a form - all good
I can go to a page by using code such as...
Me.actxWebBrowser.navigate www.databaseadvisors.com
No problem
 
When I click a link inside the 'loaded' web page - how am I to detremine
this
'new address'?
 
I have tried various things like...
me.actxWebBrowser.navigate.value
etc with no success
 
Any suggestions?
 
Many thanks in advanmce
 
Darren
 
FYI
OLE CLASS =Microsoft Web Browser
CLASS = Shell.Explorer.2 
 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From shamil at users.mns.ru  Fri Jan 13 11:17:03 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Fri, 13 Jan 2006 20:17:03 +0300
Subject: [AccessD] Class builder
References: <006301c6184e$2c870640$647aa8c0@ColbyM6805>
Message-ID: <001f01c61865$2cd6dc80$6401a8c0@fincomplex.spb.ru>

John,

The code I posted here works because it was tested before posting but it
works in another context.

You didn't say you write a (kind of) COM add-in and manipulate class modules
via VBE.

If you will not solve this problem until tomorrow I will check my archives
to find how it can be done - I did that both in MS Access and MS Excel -
it's simple but needs some testing...

I have to do some urgent work now...

Shamil

----- Original Message ----- 
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 5:32 PM
Subject: Re: [AccessD] Class builder


> Shamil,
>
> Well, that didn't work.  I am trying to build this as an Add-In and
> apparently the .RunCommand acCmdNewObjectClassModule isn't available in
the
> context of code running out in an add-in.  I had been using the following
> code to get a module:
>
> Dim lMdl As VBComponent
> Dim VBProj As VBProject
>     Set VBProj = Application.VBE.ActiveVBProject
>     Set lMdl =
> Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_ClassModule)
>     lMdl.Name = strModuleName
>     Set AddModule = lMdl.CodeModule
>
> The "lMdl.Name = strModuleName" does correctly set the name of the class
> module.  The problem is that the created class is in limbo somewhere.  It
> exists, i.e. if I try it again, the "lMdl.Name = strModuleName" causes a
run
> time error.  I cannot save it however.  Even opening a module in the
current
> app and clicking save doesn't save it.
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> Salakhetdinov
> Sent: Friday, January 13, 2006 3:53 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Class builder
>
> John,
>
> Here is one of the methods how a new class module can be created and saved
> using VBA:
>
> Dim mdl As Access.Module
> Dim objApp As Access.Application
> Dim strTempMdlName As String
> Dim strMdlName As String
>     Set objApp = Access.Application
>     strMdlName = "CTestClassModule"
>
>     With objApp.DoCmd
>         .RunCommand acCmdNewObjectClassModule
>         Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
>         strTempMdlName = mdl.Name
>
>         mdl.InsertText "public TestProperty as integer"
>
>         .Close acModule, strTempMdlName, acSaveYes
>         .Rename strMdlName, acModule, strTempMdlName
>     End With
>
> Make sure there is no class module with the name CTestClassModule in your
> database...
>
> Shamil
>
> ----- Original Message -----
> From: "John Colby" <jwcolby at ColbyConsulting.com>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Sent: Friday, January 13, 2006 4:08 AM
> Subject: [AccessD] Class builder
>
>
> > I have just finished a little class builder.  If anyone wants to play
with
> > it let me know.
> >
> > In the meantime, the one thing I can't figure out is how to save the
newly
> > created class.  I can click the save button and it saves the new module,
> but
> > I can't make it happen from VBA.  Anyone know what object saves unsaved
> > modules?
> >
> > John W. Colby
> > www.ColbyConsulting.com
> >
> >
> > -- 
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From darrend at nimble.com.au  Fri Jan 13 11:18:37 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Sat, 14 Jan 2006 04:18:37 +1100
Subject: [AccessD] A2003:Navigating using Web Browser Control
Message-ID: <20060113171839.YHOG1358.omta03sl.mx.bigpond.com@DENZILLAP>

Hi Drew 

Long time no speak :-))

I Agree...there should be a navigate event but how would I interrogate it and
get its results?

DD

-----Original Message-----

From: accessd-bounces at databaseadvisors.com [
<mailto:accessd-bounces at databaseadvisors.com>
mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com

Sent: Saturday, 14 January 2006 4:03 AM

To: accessd at databaseadvisors.com

Subject: Re: [AccessD] A2003:Navigating using Web Browser Control

There should be a navigate event, that should have the new URL as an argument.

Drew

-----Original Message-----

From: Darren DICK [ <mailto:darrend at nimble.com.au> mailto:darrend at nimble.com.au]

Sent: Friday, January 13, 2006 10:44 AM

To: AccessD

Subject: [AccessD] A2003:Navigating using Web Browser Control

Hi all

Using the Microsoft Web Browser from the ActiveX list Dropped it onto a form -
all good I can go to a page by using code such as...

Me.actxWebBrowser.navigate  <outbind://3/www.databaseadvisors.com>
www.databaseadvisors.com No problem

When I click a link inside the 'loaded' web page - how am I to detremine this
'new address'?

I have tried various things like...

me.actxWebBrowser.navigate.value

etc with no success

Any suggestions?

Many thanks in advanmce

Darren

FYI

OLE CLASS =Microsoft Web Browser

CLASS = Shell.Explorer.2 



From reuben at gfconsultants.com  Fri Jan 13 11:30:13 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Fri, 13 Jan 2006 12:30:13 -0500
Subject: [AccessD] File Created with wrong name
In-Reply-To: <NJBBLMJNGLIDBIMJIHGLIEBIDAAA.mlcollins@direcway.com>
Message-ID: <DPEKLCIHBOJKCKJECLCPMEPEDAAA.reuben@gfconsultants.com>

I don't know about that.

It allows the data file to be named chrttable.mdb (9 letters)  I also have
another be with a 9 letter name there.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of michael
> collins
> Sent: Friday, January 13, 2006 11:58 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] File Created with wrong name
>
>
> Their system is set to use only short file names.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Reuben
> Cummings
> Sent: Friday, January 13, 2006 9:26 AM
> To: AccessD
> Subject: [AccessD] File Created with wrong name
>
>
> I have a feature that allows a user to zip the data file or zip it and FTP
> it to my web server.
>
> It has worked flawlessly until now...the reason is that the file name that
> the zip file got saved to was not what it's supposed to be.  I need help
> figuring out why the file name was incorrect.
>
> The data file (in this case) is named   chrttable.mdb
>
> I append some data from the app to create a unique file name.
> The name ends
> up being   chrttableAllenCounty01132006.zip
>
> The client's system produced a zip file named     chrtta~1.zip
>
> Why is the name trucnated and changed to chrtta~1.zip?
>
> Thanks.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From DWUTKA at marlow.com  Fri Jan 13 11:27:49 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Fri, 13 Jan 2006 11:27:49 -0600
Subject: [AccessD] A2003:Navigating using Web Browser Control
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD543@main2.marlow.com>

Are you just referencing the browser in code, if so, you need to dimension
it 'withevents' so you are hooked into it's events.  If you are dropping it
as an ActiveX control, on a form, it should be an object within the forms
code page with events you can write code for.

Drew

-----Original Message-----
From: Darren DICK [mailto:darrend at nimble.com.au]
Sent: Friday, January 13, 2006 11:19 AM
To: AccessD
Subject: Re: [AccessD] A2003:Navigating using Web Browser Control


Hi Drew 

Long time no speak :-))

I Agree...there should be a navigate event but how would I interrogate it
and
get its results?

DD

-----Original Message-----

From: accessd-bounces at databaseadvisors.com [
<mailto:accessd-bounces at databaseadvisors.com>
mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com

Sent: Saturday, 14 January 2006 4:03 AM

To: accessd at databaseadvisors.com

Subject: Re: [AccessD] A2003:Navigating using Web Browser Control

There should be a navigate event, that should have the new URL as an
argument.

Drew

-----Original Message-----

From: Darren DICK [ <mailto:darrend at nimble.com.au>
mailto:darrend at nimble.com.au]

Sent: Friday, January 13, 2006 10:44 AM

To: AccessD

Subject: [AccessD] A2003:Navigating using Web Browser Control

Hi all

Using the Microsoft Web Browser from the ActiveX list Dropped it onto a form
-
all good I can go to a page by using code such as...

Me.actxWebBrowser.navigate  <outbind://3/www.databaseadvisors.com>
www.databaseadvisors.com No problem

When I click a link inside the 'loaded' web page - how am I to detremine
this
'new address'?

I have tried various things like...

me.actxWebBrowser.navigate.value

etc with no success

Any suggestions?

Many thanks in advanmce

Darren

FYI

OLE CLASS =Microsoft Web Browser

CLASS = Shell.Explorer.2 

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


From shamil at users.mns.ru  Fri Jan 13 11:41:42 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Fri, 13 Jan 2006 20:41:42 +0300
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)
References: <20060113155456.55B51255853@smtp.nildram.co.uk>
Message-ID: <002d01c61868$a10bd350$6401a8c0@fincomplex.spb.ru>

Congratulations, Andy!

> although even you might be taken aback by a seemingly
> trivial coding error that 'works' itself but causes such collateral damage
> elsewhere.
No, I wouldn't :)
I did fix many issues like that - didn'ty I say there is no miracles in
software programming and that you will sleep well only when you find the
real cause of your trouble?

I have had similar error(s) in the past with legacy code coming from MS
Access 2.0 where dot was allowed.
But in your case I didn't expect your code has MS Access 2.0 roots.

Of course I should have recommend you to check dot vs. bang first of all.
Sorry I didn't do that.

But I did say you to analize your code for your wizard when you wrote that
you get wizard steps automated.
And to take close attention on your using default properties.

> this one was
> frm.fld = rst!fld
This is exactly the case of "default properties + dot vs. bang nightmare".
And I do remember there was a KB article or something like that in the past
on this subject. I did try to find it for you but failed Then I forgot to
recommend to check you first of all dot vs. bang code because of other work.
My fault...

Is that frm.fld a checkbox?

Have a nice weekend and a good night sleep at last!

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 6:54 PM
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)


> Well at long last I've cracked what was causing my strange crashes under
> W2000. For the sake of the archives, and anyone else who encounters this
> nightmare, I will tell all.
>
> We all know that you can refer to controls on forms as form!ctl  or
> form.ctl. We can argue about the rights and wrongs of the second of those
> but we know you can do it. This is not about that argument. What, though,
if
> you have a field in a form's underlying recordsource but not on the form?
If
> you referenced that you'd think that you must use the ! form wouldn't you,
> as there is no control? I would. But what if you inadvertently use the .
> form? What, in particular, if you pass the form as a parameter to a
function
> and make that mistake inside the function (thereby giving the compiler no
> chance of picking it up as an error)? Well maybe nothing...but then again
> maybe programming havoc.
>
> W98 seems to be extremely tolerant of this mistake. It treats it as if
you'd
> coded ! after all. You will be none the wiser about your slip-up. Moving
the
> same MDB to W2000 or XP was a different story. What happened there was
that
> once the offending line had been executed the system would inevitably
crash,
> at some point, either with a non-specific "Msaccess.exe has generated
errors
> and will be closed by Windows" error, or a GPF or a "Tried to write to
> memory location xyz and you're not flipping allowed to" error. But the
> 'beauty' of this was that it *never* crashed on the line which caused the
> errors, just at seemingly random points thereafter. So standard debugging
> methods were useless. As fast as I put traps in one part of the system it
> would crash somewhere else entirely. So I'd switch my attention to there,
> and it blazes through there without a hitch and a couple of minutes later
> GPFs somewhere else. I was tearing my hair out. In the end, and it's taken
> all week, I took a different approach. I said, if I quit this area of code
> after it's executed 1 line, do I get any crashes? Answer, no. If I allow
it
> to go to the end do I get crashes, answer yes. So, if I quit the code half
> way through, do I get crashes? If yes the code before the half-way point
is
> causing it, if no it's between half-way and the end. You get the picture.
In
> that way I chopped and chopped and, a long, long time later, got down to
the
> function and then the line that made the difference. Not, remember, that
> executing the line crashed, but that executing the line caused the system
to
> crash somewhere else soon. And that's when I saw that whilst the
surrounding
> lines were of the format
>
> frm!fld = rst!fld
>
> this one was
>
> frm.fld = rst!fld
>
> So I changed . to ! and lo and behold no more crashes.
>
> And I can only talk about A97, as I can't test my app on anything else,
and
> I know it's not even a universal problem in A97 as I just tried to create
a
> little MDB to demo the problem, and it fails to crash. So there's no
> consistency in any of this but there is a huge problem there somewhere,
cos
> when it does hit it's a terror. It's perhaps the closest I've come in 30
> years of programming to saying I can't solve this because it defies logic.
> But still, it's solved now, just in time for the week-end so I'll be
having
> a big drink tonight.
>
> Thanks to all who responded to my plea earlier in the week. I was on the
> wrong track with DLL's, although I think I can be forgiven for thinking
> along those lines, and it was Shamil who urged me to focus on code. You
were
> right as ever Shamil, although even you might be taken aback by a
seemingly
> trivial coding error that 'works' itself but causes such collateral damage
> elsewhere.
>
> Have a good week-end all. I know I will.
>
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
>
> ________________________________________________
> Message sent using UebiMiau 2.7.2
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Patricia.O'Connor at otda.state.ny.us  Fri Jan 13 11:39:37 2006
From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA))
Date: Fri, 13 Jan 2006 12:39:37 -0500
Subject: [AccessD] OT file with PIC extension
Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B2361@EXCNYSM0A1AI.nysemail.nyenet>

Thanks Erwin and John
The quicktime view did not work. 
Since there are at least 3 different file types in these folders  DRW,
WK1, and PIC.
I can open the WK1 with Excel. I will check with Supe to see if I need
to go on with this. I have several other things with higher priority

 Patti
**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
**************************************************
 

> 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system. 


-----Original Message-----

> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Erwin Craps - IT Helps
> Sent: Friday, January 13, 2006 02:08 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] OT file with PIC extension
> 
> Hi
> 
> Just checked in Coreldraw Photopaint.
> 
> .PIC is a Lotus picture file.
> It should be posible to open it in Coreldraw Photopaint an to 
> convert it to something more current (JPG?).
> If its only a couple of them I'm willing to convert them for you.
> If you have a lot of them in one folder, maybe I cn convert a 
> litle script of mine to automize this.
> You better mail me directly, I'm not checking the list every day...
> Erwin.Craps at ithelps.be
> 
> But hold your horses (files :-) a bit.
> Just checked my Explorer File extensions.
> The PIC extension seems to be related with the Quicktime viewer.
> C:\PROGRA~1\QUICKT~1\PictureViewer.exe"
> 
> So if I'm not mistaking, if you install the Quicktime viewer 
> you can doubleclick the file and see the content.
> Here's where you can find it.
> http://www.apple.com/quicktime/win.html
> 
> 
> 
> Erwin
>


From darrend at nimble.com.au  Fri Jan 13 11:41:40 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Sat, 14 Jan 2006 04:41:40 +1100
Subject: [AccessD] A2003:Navigating using Web Browser Control
In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD543@main2.marlow.com>
Message-ID: <20060113174142.TCHP18661.omta02sl.mx.bigpond.com@DENZILLAP>

Howdy
Yep it's an activeX
But I am a luddite and have no idea what you mean :-))
What's a 'forms code page'?

All I know is I can pass values to the dot navigate property of the Active X
control
I just wanna find a property for something like dot CurrentURLIs blah blah blah

The other stuff is far too cerebral for me - sorry

DD



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Saturday, 14 January 2006 4:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] A2003:Navigating using Web Browser Control

Are you just referencing the browser in code, if so, you need to dimension it
'withevents' so you are hooked into it's events.  If you are dropping it as an
ActiveX control, on a form, it should be an object within the forms code page
with events you can write code for.

Drew

-----Original Message-----
From: Darren DICK [mailto:darrend at nimble.com.au]
Sent: Friday, January 13, 2006 11:19 AM
To: AccessD
Subject: Re: [AccessD] A2003:Navigating using Web Browser Control


Hi Drew 

Long time no speak :-))

I Agree...there should be a navigate event but how would I interrogate it and
get its results?

DD

-----Original Message-----

From: accessd-bounces at databaseadvisors.com [
<mailto:accessd-bounces at databaseadvisors.com>
mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com

Sent: Saturday, 14 January 2006 4:03 AM

To: accessd at databaseadvisors.com

Subject: Re: [AccessD] A2003:Navigating using Web Browser Control

There should be a navigate event, that should have the new URL as an argument.

Drew

-----Original Message-----

From: Darren DICK [ <mailto:darrend at nimble.com.au> mailto:darrend at nimble.com.au]

Sent: Friday, January 13, 2006 10:44 AM

To: AccessD

Subject: [AccessD] A2003:Navigating using Web Browser Control

Hi all

Using the Microsoft Web Browser from the ActiveX list Dropped it onto a form
-
all good I can go to a page by using code such as...

Me.actxWebBrowser.navigate  <outbind://3/www.databaseadvisors.com>
www.databaseadvisors.com No problem

When I click a link inside the 'loaded' web page - how am I to detremine this
'new address'?

I have tried various things like...

me.actxWebBrowser.navigate.value

etc with no success

Any suggestions?

Many thanks in advanmce

Darren

FYI

OLE CLASS =Microsoft Web Browser

CLASS = Shell.Explorer.2 

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



From accessd at shaw.ca  Fri Jan 13 12:19:18 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Fri, 13 Jan 2006 10:19:18 -0800
Subject: [AccessD] Class builder
In-Reply-To: <00ec01c6181e$cb38a350$6401a8c0@fincomplex.spb.ru>
Message-ID: <003001c6186d$de64aec0$017ba8c0@xpserver>

Shamil... that is brilliant.

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: January 13, 2006 12:53 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Class builder

John,

Here is one of the methods how a new class module can be created and saved
using VBA:

Dim mdl As Access.Module
Dim objApp As Access.Application
Dim strTempMdlName As String
Dim strMdlName As String
    Set objApp = Access.Application
    strMdlName = "CTestClassModule"

    With objApp.DoCmd
        .RunCommand acCmdNewObjectClassModule
        Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
        strTempMdlName = mdl.Name

        mdl.InsertText "public TestProperty as integer"

        .Close acModule, strTempMdlName, acSaveYes
        .Rename strMdlName, acModule, strTempMdlName
    End With

Make sure there is no class module with the name CTestClassModule in your
database...

Shamil

----- Original Message ----- 
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 4:08 AM
Subject: [AccessD] Class builder


> I have just finished a little class builder.  If anyone wants to play with
> it let me know.
>
> In the meantime, the one thing I can't figure out is how to save the newly
> created class.  I can click the save button and it saves the new module,
but
> I can't make it happen from VBA.  Anyone know what object saves unsaved
> modules?
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com

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



From accessd at shaw.ca  Fri Jan 13 12:20:54 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Fri, 13 Jan 2006 10:20:54 -0800
Subject: [AccessD] Class builder
In-Reply-To: <006201c61848$a2bcec40$647aa8c0@ColbyM6805>
Message-ID: <003101c6186e$174bf180$017ba8c0@xpserver>

John...and not forgetting you. I continue to learn new tricks on this list
every day.

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: January 13, 2006 5:53 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Class builder

Shamil,

Thanks!  And I was looking for a save method.  Much too obvious I guess.
BTW do you have any help files for the VBA editor?  The help is rather
sparse. 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: Friday, January 13, 2006 3:53 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Class builder

John,

Here is one of the methods how a new class module can be created and saved
using VBA:

Dim mdl As Access.Module
Dim objApp As Access.Application
Dim strTempMdlName As String
Dim strMdlName As String
    Set objApp = Access.Application
    strMdlName = "CTestClassModule"

    With objApp.DoCmd
        .RunCommand acCmdNewObjectClassModule
        Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
        strTempMdlName = mdl.Name

        mdl.InsertText "public TestProperty as integer"

        .Close acModule, strTempMdlName, acSaveYes
        .Rename strMdlName, acModule, strTempMdlName
    End With

Make sure there is no class module with the name CTestClassModule in your
database...

Shamil

----- Original Message -----
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 4:08 AM
Subject: [AccessD] Class builder


> I have just finished a little class builder.  If anyone wants to play with
> it let me know.
>
> In the meantime, the one thing I can't figure out is how to save the newly
> created class.  I can click the save button and it saves the new module,
but
> I can't make it happen from VBA.  Anyone know what object saves unsaved
> modules?
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com

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

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



From accessd at shaw.ca  Fri Jan 13 12:25:23 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Fri, 13 Jan 2006 10:25:23 -0800
Subject: [AccessD] File Created with wrong name
In-Reply-To: <DPEKLCIHBOJKCKJECLCPGEONDAAA.reuben@gfconsultants.com>
Message-ID: <003201c6186e$b833a7a0$017ba8c0@xpserver>

Hi Ruben:

I had a similar problem when odd characters included in the file name, in my
case the character was being acquired from the current user's computer name.
Just strip out any dashes or "~", before processing and the problem should
go away.

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings
Sent: January 13, 2006 7:26 AM
To: AccessD
Subject: [AccessD] File Created with wrong name

I have a feature that allows a user to zip the data file or zip it and FTP
it to my web server.

It has worked flawlessly until now...the reason is that the file name that
the zip file got saved to was not what it's supposed to be.  I need help
figuring out why the file name was incorrect.

The data file (in this case) is named   chrttable.mdb

I append some data from the app to create a unique file name.  The name ends
up being   chrttableAllenCounty01132006.zip

The client's system produced a zip file named     chrtta~1.zip

Why is the name trucnated and changed to chrtta~1.zip?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017




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



From andy at minstersystems.co.uk  Fri Jan 13 12:31:11 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 13 Jan 2006 18:31:11 -0000
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)
In-Reply-To: <002d01c61868$a10bd350$6401a8c0@fincomplex.spb.ru>
Message-ID: <000501c6186f$878ab9d0$851c0c54@minster33c3r25>

Thanks Shamil.

> Is that frm.fld a checkbox?
No, you'll see from my post that fld doesn't appear on the form at all, only
on the underlying recordsource. There is no control.

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Shamil Salakhetdinov
> Sent: 13 January 2006 17:42
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] A Dot Bang nightmare (WAS Access97 on 
> W2000 crashes)
> 
> 
> Congratulations, Andy!
> 
> > although even you might be taken aback by a seemingly
> > trivial coding error that 'works' itself but causes such collateral 
> > damage elsewhere.
> No, I wouldn't :)
> I did fix many issues like that - didn'ty I say there is no 
> miracles in software programming and that you will sleep well 
> only when you find the real cause of your trouble?
> 
> I have had similar error(s) in the past with legacy code 
> coming from MS Access 2.0 where dot was allowed. But in your 
> case I didn't expect your code has MS Access 2.0 roots.
> 
> Of course I should have recommend you to check dot vs. bang 
> first of all. Sorry I didn't do that.
> 
> But I did say you to analize your code for your wizard when 
> you wrote that you get wizard steps automated. And to take 
> close attention on your using default properties.
> 
> > this one was
> > frm.fld = rst!fld
> This is exactly the case of "default properties + dot vs. 
> bang nightmare". And I do remember there was a KB article or 
> something like that in the past on this subject. I did try to 
> find it for you but failed Then I forgot to recommend to 
> check you first of all dot vs. bang code because of other 
> work. My fault...
> 
> Is that frm.fld a checkbox?
> 
> Have a nice weekend and a good night sleep at last!
> 
> Shamil
> 
> ----- Original Message ----- 
> From: "Andy Lacey" <andy at minstersystems.co.uk>
> To: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> Sent: Friday, January 13, 2006 6:54 PM
> Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on 
> W2000 crashes)
> 
> 
> > Well at long last I've cracked what was causing my strange crashes 
> > under W2000. For the sake of the archives, and anyone else who 
> > encounters this nightmare, I will tell all.
> >
> > We all know that you can refer to controls on forms as form!ctl  or 
> > form.ctl. We can argue about the rights and wrongs of the second of 
> > those but we know you can do it. This is not about that argument. 
> > What, though,
> if
> > you have a field in a form's underlying recordsource but not on the 
> > form?
> If
> > you referenced that you'd think that you must use the ! 
> form wouldn't 
> > you, as there is no control? I would. But what if you inadvertently 
> > use the . form? What, in particular, if you pass the form as a 
> > parameter to a
> function
> > and make that mistake inside the function (thereby giving 
> the compiler 
> > no chance of picking it up as an error)? Well maybe 
> nothing...but then 
> > again maybe programming havoc.
> >
> > W98 seems to be extremely tolerant of this mistake. It 
> treats it as if
> you'd
> > coded ! after all. You will be none the wiser about your slip-up. 
> > Moving
> the
> > same MDB to W2000 or XP was a different story. What 
> happened there was
> that
> > once the offending line had been executed the system would 
> inevitably
> crash,
> > at some point, either with a non-specific "Msaccess.exe has 
> generated
> errors
> > and will be closed by Windows" error, or a GPF or a "Tried 
> to write to 
> > memory location xyz and you're not flipping allowed to" 
> error. But the 
> > 'beauty' of this was that it *never* crashed on the line 
> which caused 
> > the errors, just at seemingly random points thereafter. So standard 
> > debugging methods were useless. As fast as I put traps in 
> one part of 
> > the system it would crash somewhere else entirely. So I'd switch my 
> > attention to there, and it blazes through there without a 
> hitch and a 
> > couple of minutes later GPFs somewhere else. I was tearing my hair 
> > out. In the end, and it's taken all week, I took a 
> different approach. 
> > I said, if I quit this area of code after it's executed 1 
> line, do I 
> > get any crashes? Answer, no. If I allow
> it
> > to go to the end do I get crashes, answer yes. So, if I 
> quit the code 
> > half way through, do I get crashes? If yes the code before the 
> > half-way point
> is
> > causing it, if no it's between half-way and the end. You get the 
> > picture.
> In
> > that way I chopped and chopped and, a long, long time 
> later, got down 
> > to
> the
> > function and then the line that made the difference. Not, remember, 
> > that executing the line crashed, but that executing the line caused 
> > the system
> to
> > crash somewhere else soon. And that's when I saw that whilst the
> surrounding
> > lines were of the format
> >
> > frm!fld = rst!fld
> >
> > this one was
> >
> > frm.fld = rst!fld
> >
> > So I changed . to ! and lo and behold no more crashes.
> >
> > And I can only talk about A97, as I can't test my app on anything 
> > else,
> and
> > I know it's not even a universal problem in A97 as I just tried to 
> > create
> a
> > little MDB to demo the problem, and it fails to crash. So 
> there's no 
> > consistency in any of this but there is a huge problem there 
> > somewhere,
> cos
> > when it does hit it's a terror. It's perhaps the closest 
> I've come in 
> > 30 years of programming to saying I can't solve this 
> because it defies 
> > logic. But still, it's solved now, just in time for the week-end so 
> > I'll be
> having
> > a big drink tonight.
> >
> > Thanks to all who responded to my plea earlier in the week. 
> I was on 
> > the wrong track with DLL's, although I think I can be forgiven for 
> > thinking along those lines, and it was Shamil who urged me 
> to focus on 
> > code. You
> were
> > right as ever Shamil, although even you might be taken aback by a
> seemingly
> > trivial coding error that 'works' itself but causes such collateral 
> > damage elsewhere.
> >
> > Have a good week-end all. I know I will.
> >
> > --
> > Andy Lacey
> > http://www.minstersystems.co.uk
> >
> >
> > ________________________________________________
> > Message sent using UebiMiau 2.7.2
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From accessd at shaw.ca  Fri Jan 13 12:30:40 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Fri, 13 Jan 2006 10:30:40 -0800
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)
In-Reply-To: <20060113155456.55B51255853@smtp.nildram.co.uk>
Message-ID: <003301c6186f$7517ac40$017ba8c0@xpserver>

Andy:

A great piece of deductive reasoning! That deserves a tall drink.

Jim 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
Sent: January 13, 2006 7:55 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)

Well at long last I've cracked what was causing my strange crashes under
W2000. For the sake of the archives, and anyone else who encounters this
nightmare, I will tell all.

We all know that you can refer to controls on forms as form!ctl  or
form.ctl. We can argue about the rights and wrongs of the second of those
but we know you can do it. This is not about that argument. What, though, if
you have a field in a form's underlying recordsource but not on the form? If
you referenced that you'd think that you must use the ! form wouldn't you,
as there is no control? I would. But what if you inadvertently use the .
form? What, in particular, if you pass the form as a parameter to a function
and make that mistake inside the function (thereby giving the compiler no
chance of picking it up as an error)? Well maybe nothing...but then again
maybe programming havoc.

W98 seems to be extremely tolerant of this mistake. It treats it as if you'd
coded ! after all. You will be none the wiser about your slip-up. Moving the
same MDB to W2000 or XP was a different story. What happened there was that
once the offending line had been executed the system would inevitably crash,
at some point, either with a non-specific "Msaccess.exe has generated errors
and will be closed by Windows" error, or a GPF or a "Tried to write to
memory location xyz and you're not flipping allowed to" error. But the
'beauty' of this was that it *never* crashed on the line which caused the
errors, just at seemingly random points thereafter. So standard debugging
methods were useless. As fast as I put traps in one part of the system it
would crash somewhere else entirely. So I'd switch my attention to there,
and it blazes through there without a hitch and a couple of minutes later
GPFs somewhere else. I was tearing my hair out. In the end, and it's taken
all week, I took a different approach. I said, if I quit this area of code
after it's executed 1 line, do I get any crashes? Answer, no. If I allow it
to go to the end do I get crashes, answer yes. So, if I quit the code half
way through, do I get crashes? If yes the code before the half-way point is
causing it, if no it's between half-way and the end. You get the picture. In
that way I chopped and chopped and, a long, long time later, got down to the
function and then the line that made the difference. Not, remember, that
executing the line crashed, but that executing the line caused the system to
crash somewhere else soon. And that's when I saw that whilst the surrounding
lines were of the format

frm!fld = rst!fld

this one was

frm.fld = rst!fld

So I changed . to ! and lo and behold no more crashes.

And I can only talk about A97, as I can't test my app on anything else, and
I know it's not even a universal problem in A97 as I just tried to create a
little MDB to demo the problem, and it fails to crash. So there's no
consistency in any of this but there is a huge problem there somewhere, cos
when it does hit it's a terror. It's perhaps the closest I've come in 30
years of programming to saying I can't solve this because it defies logic.
But still, it's solved now, just in time for the week-end so I'll be having
a big drink tonight.

Thanks to all who responded to my plea earlier in the week. I was on the
wrong track with DLL's, although I think I can be forgiven for thinking
along those lines, and it was Shamil who urged me to focus on code. You were
right as ever Shamil, although even you might be taken aback by a seemingly
trivial coding error that 'works' itself but causes such collateral damage
elsewhere.

Have a good week-end all. I know I will.

--
Andy Lacey
http://www.minstersystems.co.uk


________________________________________________
Message sent using UebiMiau 2.7.2

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



From garykjos at gmail.com  Fri Jan 13 12:35:38 2006
From: garykjos at gmail.com (Gary Kjos)
Date: Fri, 13 Jan 2006 12:35:38 -0600
Subject: [AccessD] OT file with PIC extension
In-Reply-To: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B2361@EXCNYSM0A1AI.nysemail.nyenet>
References: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B2361@EXCNYSM0A1AI.nysemail.nyenet>
Message-ID: <aea6c4950601131035o1c9a4c93h59e268847d99d375@mail.gmail.com>

You may also be able to open the files with an hex or a text editor
and see it there is some clues to it's origin too. Sometimes there
will be the name of the creating program near the front or the end of
the file. Not always but sometimes.  Just don't change anything ;-)

WK1 is most certainly a Lotus 123 format file. Both PIC and DRW files
could be several different types. Both seem to be graphics, pictures
or drawings type files.

Good luck

GK

On 1/13/06, O'Connor, Patricia (OTDA)
<Patricia.O'Connor at otda.state.ny.us> wrote:
> Thanks Erwin and John
> The quicktime view did not work.
> Since there are at least 3 different file types in these folders  DRW,
> WK1, and PIC.
> I can open the WK1 with Excel. I will check with Supe to see if I need
> to go on with this. I have several other things with higher priority
>
>  Patti
> **************************************************
> * Patricia O'Connor
> * Associate Computer Programmer Analyst
> * OTDA - BDMA
> * (W) mailto:Patricia.O'Connor at otda.state.ny.us
> * (w) mailto:aa1160 at otda.state.ny.us
> **************************************************
>
>
> >
> --------------------------------------------------------
> This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system.
>
>
> -----Original Message-----
>
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Erwin Craps - IT Helps
> > Sent: Friday, January 13, 2006 02:08 AM
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] OT file with PIC extension
> >
> > Hi
> >
> > Just checked in Coreldraw Photopaint.
> >
> > .PIC is a Lotus picture file.
> > It should be posible to open it in Coreldraw Photopaint an to
> > convert it to something more current (JPG?).
> > If its only a couple of them I'm willing to convert them for you.
> > If you have a lot of them in one folder, maybe I cn convert a
> > litle script of mine to automize this.
> > You better mail me directly, I'm not checking the list every day...
> > Erwin.Craps at ithelps.be
> >
> > But hold your horses (files :-) a bit.
> > Just checked my Explorer File extensions.
> > The PIC extension seems to be related with the Quicktime viewer.
> > C:\PROGRA~1\QUICKT~1\PictureViewer.exe"
> >
> > So if I'm not mistaking, if you install the Quicktime viewer
> > you can doubleclick the file and see the content.
> > Here's where you can find it.
> > http://www.apple.com/quicktime/win.html
> >
> >
> >
> > Erwin
> >
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


--
Gary Kjos
garykjos at gmail.com


From martyconnelly at shaw.ca  Fri Jan 13 12:53:56 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 13 Jan 2006 10:53:56 -0800
Subject: [AccessD] A2003:Navigating using Web Browser Control
References: <20060113171839.YHOG1358.omta03sl.mx.bigpond.com@DENZILLAP>
Message-ID: <43C7F744.2090705@shaw.ca>

Assuming your webbrowser control is called ocxWeb.
I haven't tested this within frames.

on a command button

Private Sub Command23_Click()
Debug.Print Me!ocxWeb.LocationURL
Debug.Print Me!ocxWeb.LocationName
End Sub

It is written up in Getz's ADH book chapter 23

There is an undocumented event method
see shdocvw.dll  set a reference and view in object browser

Private Sub ocxWeb_BeforeNavigate(ByVal URL As String, ByVal Flags As 
Long,  _
 ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As 
String, Cancel As Boolean)
    Me!lblStatusNav.Caption = "Navigating to " & URL & "..."
    Me!txtSearch = URL
End Sub

http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/office97/html/usingwebbrowsercontrol.asp
http://www.vbwm.com/art_2001/IE05/
http://support.microsoft.com/default.aspx?scid=kb;en-us;165212

Darren DICK wrote:

>Hi Drew 
>
>Long time no speak :-))
>
>I Agree...there should be a navigate event but how would I interrogate it and
>get its results?
>
>DD
>
>-----Original Message-----
>
>From: accessd-bounces at databaseadvisors.com [
><mailto:accessd-bounces at databaseadvisors.com>
>mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
>
>Sent: Saturday, 14 January 2006 4:03 AM
>
>To: accessd at databaseadvisors.com
>
>Subject: Re: [AccessD] A2003:Navigating using Web Browser Control
>
>There should be a navigate event, that should have the new URL as an argument.
>
>Drew
>
>-----Original Message-----
>
>From: Darren DICK [ <mailto:darrend at nimble.com.au> mailto:darrend at nimble.com.au]
>
>Sent: Friday, January 13, 2006 10:44 AM
>
>To: AccessD
>
>Subject: [AccessD] A2003:Navigating using Web Browser Control
>
>Hi all
>
>Using the Microsoft Web Browser from the ActiveX list Dropped it onto a form -
>all good I can go to a page by using code such as...
>
>Me.actxWebBrowser.navigate  <outbind://3/www.databaseadvisors.com>
>www.databaseadvisors.com No problem
>
>When I click a link inside the 'loaded' web page - how am I to detremine this
>'new address'?
>
>I have tried various things like...
>
>me.actxWebBrowser.navigate.value
>
>etc with no success
>
>Any suggestions?
>
>Many thanks in advanmce
>
>Darren
>
>FYI
>
>OLE CLASS =Microsoft Web Browser
>
>CLASS = Shell.Explorer.2 
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From shamil at users.mns.ru  Fri Jan 13 14:11:54 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Fri, 13 Jan 2006 23:11:54 +0300
Subject: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)
References: <000501c6186f$878ab9d0$851c0c54@minster33c3r25>
Message-ID: <006d01c6187d$9a5f6700$6401a8c0@fincomplex.spb.ru>

> only on the underlying recordsource.
OK. But

?TypeName(frm.fld)
AccessField
?TypeName(frm!fld)
AccessField
?typename(me.controls("fld"))
AccessField

and

?TypeName(rst!fld)
<Data type of fld field>

How AccessField gets transmitted/cohersed a value to its underlaying
recordset's field from recordset's field value is a big question.

So intended operation was:

frm!fld.value = rst!fld.Value

But it happened to be something else because implicit conversion wasn't well
built during compilation/run-time..

And resulted in "delayed" GPFs...

And it works that badly on modern WinXP and W2K with latest SPs only....

Andy, there is no still clear answer why it worked badly and why it can't be
reproduced if trying to build this case from scratch. But to search for this
clear answer now would be a waste of time when bug is fixed. (Try to
inform/ask MS but I doubt they will answer something definitive).

To make it 100% bullet-proof in such cases I also create explicit but
invisible MS Access control, name this control using naming conventions i.e.
using prefixes to make control name different from underlaying recorsource
field. I bind corresponding field to this control and I use CONTROL not
FIELD name to assign value. Reason is that Access.AccessField
is a stange hidden in Object Browser "creature" - and
Access.Control (Access.TextBox, Access.ComboBox,...)
are friendly and predictable built-in MS Access objects....

Then it will never fail - this rule works well since MS Access 2.0 - one of
the reasons why LRNC are so great invention....

Shamil

----- Original Message ----- 
From: "Andy Lacey" <andy at minstersystems.co.uk>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 9:31 PM
Subject: Re: [AccessD] A Dot Bang nightmare (WAS Access97 on W2000 crashes)


> Thanks Shamil.
>
> > Is that frm.fld a checkbox?
> No, you'll see from my post that fld doesn't appear on the form at all,
only
> on the underlying recordsource. There is no control.
>
> -- Andy Lacey
> http://www.minstersystems.co.uk
>
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> > Shamil Salakhetdinov
> > Sent: 13 January 2006 17:42
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] A Dot Bang nightmare (WAS Access97 on
> > W2000 crashes)
> >
> >
> > Congratulations, Andy!
> >
> > > although even you might be taken aback by a seemingly
> > > trivial coding error that 'works' itself but causes such collateral
> > > damage elsewhere.
> > No, I wouldn't :)
> > I did fix many issues like that - didn'ty I say there is no
> > miracles in software programming and that you will sleep well
> > only when you find the real cause of your trouble?
> >
> > I have had similar error(s) in the past with legacy code
> > coming from MS Access 2.0 where dot was allowed. But in your
> > case I didn't expect your code has MS Access 2.0 roots.
> >
> > Of course I should have recommend you to check dot vs. bang
> > first of all. Sorry I didn't do that.
> >
> > But I did say you to analize your code for your wizard when
> > you wrote that you get wizard steps automated. And to take
> > close attention on your using default properties.
> >
> > > this one was
> > > frm.fld = rst!fld
> > This is exactly the case of "default properties + dot vs.
> > bang nightmare". And I do remember there was a KB article or
> > something like that in the past on this subject. I did try to
> > find it for you but failed Then I forgot to recommend to
> > check you first of all dot vs. bang code because of other
> > work. My fault...
> >
> > Is that frm.fld a checkbox?
> >
> > Have a nice weekend and a good night sleep at last!
> >
> > Shamil
> >



From DWUTKA at marlow.com  Fri Jan 13 16:46:17 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Fri, 13 Jan 2006 16:46:17 -0600
Subject: [AccessD] A2003:Navigating using Web Browser Control
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD548@main2.marlow.com>

Come on Darren, you're better then that! ;)

Do you know how to code the 'Click' event for a button?  That's the form's
code page.  A form (and report) are Class Modules.  When you are in a class
module, the top left dropdown is the 'objects' you have associated with that
class.  In the case of a form, there are 'default' objects, such as Form,
Detail, etc.  When you put objects on that form, such as buttons, textboxes,
etc, those too will show up in that top left dropdown. (including ActiveX
controls).  If you dim something 'withevents', it will show up in that top
left dropdown also (if it has raisable events).  When you have something
selected in the top left drop down, look at the top right dropdown.  That is
the list of events associated with the selected object.

Drew

-----Original Message-----
From: Darren DICK [mailto:darrend at nimble.com.au]
Sent: Friday, January 13, 2006 11:42 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] A2003:Navigating using Web Browser Control


Howdy
Yep it's an activeX
But I am a luddite and have no idea what you mean :-))
What's a 'forms code page'?

All I know is I can pass values to the dot navigate property of the Active X
control
I just wanna find a property for something like dot CurrentURLIs blah blah
blah

The other stuff is far too cerebral for me - sorry

DD



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Saturday, 14 January 2006 4:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] A2003:Navigating using Web Browser Control

Are you just referencing the browser in code, if so, you need to dimension
it
'withevents' so you are hooked into it's events.  If you are dropping it as
an
ActiveX control, on a form, it should be an object within the forms code
page
with events you can write code for.

Drew

-----Original Message-----
From: Darren DICK [mailto:darrend at nimble.com.au]
Sent: Friday, January 13, 2006 11:19 AM
To: AccessD
Subject: Re: [AccessD] A2003:Navigating using Web Browser Control


Hi Drew 

Long time no speak :-))

I Agree...there should be a navigate event but how would I interrogate it
and
get its results?

DD

-----Original Message-----

From: accessd-bounces at databaseadvisors.com [
<mailto:accessd-bounces at databaseadvisors.com>
mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com

Sent: Saturday, 14 January 2006 4:03 AM

To: accessd at databaseadvisors.com

Subject: Re: [AccessD] A2003:Navigating using Web Browser Control

There should be a navigate event, that should have the new URL as an
argument.

Drew

-----Original Message-----

From: Darren DICK [ <mailto:darrend at nimble.com.au>
mailto:darrend at nimble.com.au]

Sent: Friday, January 13, 2006 10:44 AM

To: AccessD

Subject: [AccessD] A2003:Navigating using Web Browser Control

Hi all

Using the Microsoft Web Browser from the ActiveX list Dropped it onto a form
-
all good I can go to a page by using code such as...

Me.actxWebBrowser.navigate  <outbind://3/www.databaseadvisors.com>
www.databaseadvisors.com No problem

When I click a link inside the 'loaded' web page - how am I to detremine
this
'new address'?

I have tried various things like...

me.actxWebBrowser.navigate.value

etc with no success

Any suggestions?

Many thanks in advanmce

Darren

FYI

OLE CLASS =Microsoft Web Browser

CLASS = Shell.Explorer.2 

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

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


From artful at rogers.com  Sat Jan 14 06:16:17 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sat, 14 Jan 2006 07:16:17 -0500
Subject: [AccessD] Compact by code
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30ABF330@ADGSERVER>
Message-ID: <030501c61904$525b0c20$8e01a8c0@rock>

Where is the code for GetFilePath()? I have something vaguely similar but I
figured rather than experiment with making mine and yours compatible, I
would simply ask for it.
Arthur
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Monday, November 21, 2005 12:54 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Compact by code

Sorry, GetFilePath() returns the path of a given file name string.
Bobby



From artful at rogers.com  Sat Jan 14 06:21:34 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sat, 14 Jan 2006 07:21:34 -0500
Subject: [AccessD] File Created with wrong name
In-Reply-To: <NJBBLMJNGLIDBIMJIHGLIEBIDAAA.mlcollins@direcway.com>
Message-ID: <030601c61905$0f24f910$8e01a8c0@rock>

Completely OT, but given the topic I thought I'd point out what a historic
name you have.
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of michael collins
Sent: January 13, 2006 11:58 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] File Created with wrong name

Their system is set to use only short file names.



From jwcolby at ColbyConsulting.com  Sat Jan 14 08:07:40 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sat, 14 Jan 2006 09:07:40 -0500
Subject: [AccessD] Class builder
In-Reply-To: <001f01c61865$2cd6dc80$6401a8c0@fincomplex.spb.ru>
Message-ID: <000901c61913$e20cf1d0$647aa8c0@ColbyM6805>

Shamil,

It appears that I am not going to solve this so any help is much
appreciated.

Thanks, 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: Friday, January 13, 2006 12:17 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Class builder

John,

The code I posted here works because it was tested before posting but it
works in another context.

You didn't say you write a (kind of) COM add-in and manipulate class modules
via VBE.

If you will not solve this problem until tomorrow I will check my archives
to find how it can be done - I did that both in MS Access and MS Excel -
it's simple but needs some testing...

I have to do some urgent work now...

Shamil

----- Original Message -----
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, January 13, 2006 5:32 PM
Subject: Re: [AccessD] Class builder


> Shamil,
>
> Well, that didn't work.  I am trying to build this as an Add-In and
> apparently the .RunCommand acCmdNewObjectClassModule isn't available in
the
> context of code running out in an add-in.  I had been using the following
> code to get a module:
>
> Dim lMdl As VBComponent
> Dim VBProj As VBProject
>     Set VBProj = Application.VBE.ActiveVBProject
>     Set lMdl =
> Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_ClassModule)
>     lMdl.Name = strModuleName
>     Set AddModule = lMdl.CodeModule
>
> The "lMdl.Name = strModuleName" does correctly set the name of the class
> module.  The problem is that the created class is in limbo somewhere.  It
> exists, i.e. if I try it again, the "lMdl.Name = strModuleName" causes a
run
> time error.  I cannot save it however.  Even opening a module in the
current
> app and clicking save doesn't save it.
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> Salakhetdinov
> Sent: Friday, January 13, 2006 3:53 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Class builder
>
> John,
>
> Here is one of the methods how a new class module can be created and saved
> using VBA:
>
> Dim mdl As Access.Module
> Dim objApp As Access.Application
> Dim strTempMdlName As String
> Dim strMdlName As String
>     Set objApp = Access.Application
>     strMdlName = "CTestClassModule"
>
>     With objApp.DoCmd
>         .RunCommand acCmdNewObjectClassModule
>         Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
>         strTempMdlName = mdl.Name
>
>         mdl.InsertText "public TestProperty as integer"
>
>         .Close acModule, strTempMdlName, acSaveYes
>         .Rename strMdlName, acModule, strTempMdlName
>     End With
>
> Make sure there is no class module with the name CTestClassModule in your
> database...
>
> Shamil
>
> ----- Original Message -----
> From: "John Colby" <jwcolby at ColbyConsulting.com>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Sent: Friday, January 13, 2006 4:08 AM
> Subject: [AccessD] Class builder
>
>
> > I have just finished a little class builder.  If anyone wants to play
with
> > it let me know.
> >
> > In the meantime, the one thing I can't figure out is how to save the
newly
> > created class.  I can click the save button and it saves the new module,
> but
> > I can't make it happen from VBA.  Anyone know what object saves unsaved
> > modules?
> >
> > John W. Colby
> > www.ColbyConsulting.com
> >
> >
> > -- 
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com

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



From artful at rogers.com  Sat Jan 14 10:23:08 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sat, 14 Jan 2006 11:23:08 -0500
Subject: [AccessD] Missing GetFilePath function
In-Reply-To: <030501c61904$525b0c20$8e01a8c0@rock>
Message-ID: <032d01c61926$ce87b650$8e01a8c0@rock>

In case anyone else needs it, here it is:
<code>
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
strFilter As String
strCustomFilter As String
lMaxCustFilter As Long
lFilterIndex As Long
strFile As String
lMaxFile As Long
strFileTitle As String
lMaxFileTitle As Long
strInitialDir As String
strTitle As String
lFlags As Long
iFileOffset As Integer
iFileExtension As Integer
strDefExt As String
lCustData As Long
lpfnHook As Long
strTemplateName As String
End Type

Public Function GetFilePath( _
    Filter As String, _
    Title As String, _
    Optional DefaultDir As String) _
    As String
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
Dim i As Integer
OpenFile.lStructSize = Len(OpenFile)
'OpenFile.hwndOwner = Application.h
OpenFile.hInstance = 0
OpenFile.strFilter = Filter
OpenFile.lFilterIndex = 1
OpenFile.strFile = String(257, 0)
OpenFile.lMaxFile = Len(OpenFile.strFile) - 1
OpenFile.strFileTitle = OpenFile.strFile
OpenFile.lMaxFileTitle = OpenFile.lMaxFile

If IsMissing(DefaultDir) Or (DefaultDir = "") Then
    OpenFile.strInitialDir = CurDir
Else
    OpenFile.strInitialDir = DefaultDir
End If

OpenFile.strTitle = Title
OpenFile.lFlags = 0
lReturn = GetOpenFileName(OpenFile)

If lReturn = 0 Then
    GetFilePath = ""
Else
    i = InStr(OpenFile.strFile, vbNullChar)
    If i > 0 Then
        GetFilePath = Left(OpenFile.strFile, i - 1)
    Else
        GetFilePath = OpenFile.strFile
    End If
End If

End Function

</code>
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: January 14, 2006 7:16 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Compact by code

Where is the code for GetFilePath()? I have something vaguely similar but I
figured rather than experiment with making mine and yours compatible, I
would simply ask for it.
Arthur
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Monday, November 21, 2005 12:54 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Compact by code

Sorry, GetFilePath() returns the path of a given file name string.
Bobby

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



From shamil at users.mns.ru  Sat Jan 14 11:08:55 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Sat, 14 Jan 2006 20:08:55 +0300
Subject: [AccessD] Class builder
References: <000901c61913$e20cf1d0$647aa8c0@ColbyM6805>
Message-ID: <006b01c6192d$3573ebd0$6401a8c0@fincomplex.spb.ru>

John,

This should work I think for both MS Access and COM-Add ins - please try:

Public Function a_test()
dim objApp as object

   set objApp = Access.Application ' for MS Access add-ins
   'set objApp = <Application object reference COM Add-in gets on
   '                       connection>

'
' Add reference to:
'
' 1. Microsoft Visual Basic for Applications
'     Extensibility 5.3 - VBE6EXT.OLB
'
' before running this code
'
Dim strCode As String
Dim strName As String
    strName = "CTest"
    strCode = _
      "public function Test()" & vbCrLf & _
      "    Msgbox ""Hello, World!""" & vbCrLf & _
      "end function"
    AddClassModule objApp, strName, strCode
End Function

Public Sub AddClassModule( _
                ByRef rapp As object, _
                ByVal vstrName As String, _
                ByVal vstrCode As String, _
                Optional ByVal vstrProjectName As String = "")
Dim prj As VBIDE.VBProject
Dim prjItem As VBIDE.VBComponent
Dim strLst As String

    If Len(vstrProjectName) = 0 Then
       Set prj = rapp.VBE.ActiveVBProject
    Else
       Set prj = rapp.VBE.VBProjects.Item(vstrProjectName)
    End If

    Set prjItem = prj.VBComponents.Add(vbext_ct_ClassModule)
    prjItem.CodeModule.AddFromString vstrCode
    prjItem.Name = vstrName
    rapp.DoCmd.Save acModule, vstrName
End Sub

> apparently the .RunCommand acCmdNewObjectClassModule
> isn't available in the
> context of code running out in an add-in.
.RunCommand acCmdNewObjectClassModule is available in an addin but you have
to have your front-end MS Access mdb/adp opened and of course code line
should be:

objApp.RunCommand ....

where objApp is Access.Application object reference, which COM Add-in gets
on connection and MS Access Add-in has natively as default instance of
Access.Application ...

Shamil

----- Original Message ----- 
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Saturday, January 14, 2006 5:07 PM
Subject: Re: [AccessD] Class builder


> Shamil,
>
> It appears that I am not going to solve this so any help is much
> appreciated.
>
> Thanks,
>
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> Salakhetdinov
> Sent: Friday, January 13, 2006 12:17 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Class builder
>
> John,
>
> The code I posted here works because it was tested before posting but it
> works in another context.
>
> You didn't say you write a (kind of) COM add-in and manipulate class
modules
> via VBE.
>
> If you will not solve this problem until tomorrow I will check my archives
> to find how it can be done - I did that both in MS Access and MS Excel -
> it's simple but needs some testing...
>
> I have to do some urgent work now...
>
> Shamil
>
> ----- Original Message -----
> From: "John Colby" <jwcolby at ColbyConsulting.com>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Sent: Friday, January 13, 2006 5:32 PM
> Subject: Re: [AccessD] Class builder
>
>
> > Shamil,
> >
> > Well, that didn't work.  I am trying to build this as an Add-In and
> > apparently the .RunCommand acCmdNewObjectClassModule isn't available in
> the
> > context of code running out in an add-in.  I had been using the
following
> > code to get a module:
> >
> > Dim lMdl As VBComponent
> > Dim VBProj As VBProject
> >     Set VBProj = Application.VBE.ActiveVBProject
> >     Set lMdl =
> > Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_ClassModule)
> >     lMdl.Name = strModuleName
> >     Set AddModule = lMdl.CodeModule
> >
> > The "lMdl.Name = strModuleName" does correctly set the name of the class
> > module.  The problem is that the created class is in limbo somewhere.
It
> > exists, i.e. if I try it again, the "lMdl.Name = strModuleName" causes a
> run
> > time error.  I cannot save it however.  Even opening a module in the
> current
> > app and clicking save doesn't save it.
> >
> > John W. Colby
> > www.ColbyConsulting.com
> >
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> > Salakhetdinov
> > Sent: Friday, January 13, 2006 3:53 AM
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Class builder
> >
> > John,
> >
> > Here is one of the methods how a new class module can be created and
saved
> > using VBA:
> >
> > Dim mdl As Access.Module
> > Dim objApp As Access.Application
> > Dim strTempMdlName As String
> > Dim strMdlName As String
> >     Set objApp = Access.Application
> >     strMdlName = "CTestClassModule"
> >
> >     With objApp.DoCmd
> >         .RunCommand acCmdNewObjectClassModule
> >         Set mdl = objApp.Modules.Item(objApp.Modules.Count - 1)
> >         strTempMdlName = mdl.Name
> >
> >         mdl.InsertText "public TestProperty as integer"
> >
> >         .Close acModule, strTempMdlName, acSaveYes
> >         .Rename strMdlName, acModule, strTempMdlName
> >     End With
> >
> > Make sure there is no class module with the name CTestClassModule in
your
> > database...
> >
> > Shamil
> >
> > ----- Original Message -----
> > From: "John Colby" <jwcolby at ColbyConsulting.com>
> > To: "'Access Developers discussion and problem solving'"
> > <accessd at databaseadvisors.com>
> > Sent: Friday, January 13, 2006 4:08 AM
> > Subject: [AccessD] Class builder
> >
> >
> > > I have just finished a little class builder.  If anyone wants to play
> with
> > > it let me know.
> > >
> > > In the meantime, the one thing I can't figure out is how to save the
> newly
> > > created class.  I can click the save button and it saves the new
module,
> > but
> > > I can't make it happen from VBA.  Anyone know what object saves
unsaved
> > > modules?
> > >
> > > John W. Colby
> > > www.ColbyConsulting.com
> > >
> > >



From dwaters at usinternet.com  Sat Jan 14 16:03:44 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Sat, 14 Jan 2006 16:03:44 -0600
Subject: [AccessD] Source Code Control
Message-ID: <000001c61956$63a1fc80$0200a8c0@danwaters>

Has anyone used a program called Vault from Sourcegear, or Perforce, while
programming in Access?  If it worked, was it useful?  

Dan



From darsant at gmail.com  Sat Jan 14 16:35:29 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Sat, 14 Jan 2006 16:35:29 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <000001c61956$63a1fc80$0200a8c0@danwaters>
References: <000001c61956$63a1fc80$0200a8c0@danwaters>
Message-ID: <53c8e05a0601141435j2123d88g7d6ec0abfaf3a698@mail.gmail.com>

On 1/14/06, Dan Waters <dwaters at usinternet.com> wrote:
> Has anyone used a program called Vault from Sourcegear, or Perforce, while
> programming in Access?  If it worked, was it useful?

Dan,

For Access IIRC, source control will lose one of it's most important
featuers (diff'ing) with Access because Access is stored as a binary
file.

That said, I've used 3 different source control programs while working
on C++ coding.

Visual Source-Safe: Steer clear of this one - It's outdated and has a
high corruption rate on the source control database.

CVS: Open-source, widely used, and widely tested. Nice for single-file
verisoning. Made for Unix but NT versions are also available

Subversion: Also open source, this is what we currently use in shop.
It maintains versioning on a per-repository basis rather than a
per-file basis. Very very nice freeware client called TortioseSVN. Was
fairly easy to set up also. Also tracks file renames, directory
changes, and other meta information. Allows you to also add a meta-tag
to track changes due to bug-fixes from bug-tracking software, etc.

As a whole, it'd work great for a backup / revision system as long as
you made sure that when you checked in files you comment what changed.

If you try out Vault or Perforce, let me know what you think.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From shamil at users.mns.ru  Sat Jan 14 19:43:00 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Sun, 15 Jan 2006 04:43:00 +0300
Subject: [AccessD] Class builder
References: <000901c61913$e20cf1d0$647aa8c0@ColbyM6805>
	<006b01c6192d$3573ebd0$6401a8c0@fincomplex.spb.ru>
Message-ID: <001f01c61975$16921be0$6401a8c0@fincomplex.spb.ru>

Correction - here is a working solution for both cases code running in FE
module and in add-in module:

Public Function a_test()
Dim objApp As Object

   Set objApp = Access.Application ' for MS Access add-ins
   'set objApp = <Application object reference COM Add-in gets on
   '                       connection>

'
' Add reference to:
'
' 1. Microsoft Visual Basic for Applications
'     Extensibility 5.3 - VBE6EXT.OLB
'
' before running this code
'
Dim strCode As String
Dim strName As String
    strName = "CTest"
    strCode = _
      "public function Test()" & vbCrLf & _
      "    Msgbox ""Hello, World!""" & vbCrLf & _
      "end function"
    AddClassModule objApp, strName, strCode
End Function

Public Sub AddClassModule( _
                ByRef rapp As Object, _
                ByVal vstrName As String, _
                ByVal vstrCode As String)
Dim prj As VBIDE.VBProject
Dim prjItem As VBIDE.VBComponent
Dim strLst As String

    Set prj = rapp.VBE.VBProjects(rapp.GetOption("Project Name"))

    Set prjItem = prj.VBComponents.Add(vbext_ct_ClassModule)
    prjItem.CodeModule.AddFromString vstrCode
    prjItem.Properties("Name").Value = vstrName
    SendKeys "^s{Enter}"
End Sub

Shamil

----- Original Message ----- 
From: "Shamil Salakhetdinov" <shamil at users.mns.ru>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Saturday, January 14, 2006 8:08 PM
Subject: Re: [AccessD] Class builder


> John,
>
> This should work I think for both MS Access and COM-Add ins - please try:
>
> Public Function a_test()
> dim objApp as object
>
>    set objApp = Access.Application ' for MS Access add-ins
>    'set objApp = <Application object reference COM Add-in gets on
>    '                       connection>
>
> '
> ' Add reference to:
> '
> ' 1. Microsoft Visual Basic for Applications
> '     Extensibility 5.3 - VBE6EXT.OLB
> '
> ' before running this code
> '
> Dim strCode As String
> Dim strName As String
>     strName = "CTest"
>     strCode = _
>       "public function Test()" & vbCrLf & _
>       "    Msgbox ""Hello, World!""" & vbCrLf & _
>       "end function"
>     AddClassModule objApp, strName, strCode
> End Function
>
> Public Sub AddClassModule( _
>                 ByRef rapp As object, _
>                 ByVal vstrName As String, _
>                 ByVal vstrCode As String, _
>                 Optional ByVal vstrProjectName As String = "")
> Dim prj As VBIDE.VBProject
> Dim prjItem As VBIDE.VBComponent
> Dim strLst As String
>
>     If Len(vstrProjectName) = 0 Then
>        Set prj = rapp.VBE.ActiveVBProject
>     Else
>        Set prj = rapp.VBE.VBProjects.Item(vstrProjectName)
>     End If
>
>     Set prjItem = prj.VBComponents.Add(vbext_ct_ClassModule)
>     prjItem.CodeModule.AddFromString vstrCode
>     prjItem.Name = vstrName
>     rapp.DoCmd.Save acModule, vstrName
> End Sub
>
> > apparently the .RunCommand acCmdNewObjectClassModule
> > isn't available in the
> > context of code running out in an add-in.
> .RunCommand acCmdNewObjectClassModule is available in an addin but you
have
> to have your front-end MS Access mdb/adp opened and of course code line
> should be:
>
> objApp.RunCommand ....
>
> where objApp is Access.Application object reference, which COM Add-in gets
> on connection and MS Access Add-in has natively as default instance of
> Access.Application ...
>
> Shamil
>
<<< tail skipped>>>



From kost36 at otenet.gr  Mon Jan 16 05:47:59 2006
From: kost36 at otenet.gr (Kostas Konstantinidis)
Date: Mon, 16 Jan 2006 13:47:59 +0200
Subject: [AccessD] is it possible to rename many folders via access?
References: <s3973f7d.045@cactus.dk>
Message-ID: <007501c61a92$b3008160$6401a8c0@KOST36>

I have about 7.000 folders saved as .
KING KONG (1933) - Max Steiner
what I want to do is to rename all the folders as
(1933) KING KONG - Max Steiner

is that possible?
thank's a lot
/kostas



From jwcolby at ColbyConsulting.com  Sun Jan 15 10:07:22 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sun, 15 Jan 2006 11:07:22 -0500
Subject: [AccessD] String replacement wizard
Message-ID: <002701c619ed$c5344b00$647aa8c0@ColbyM6805>

Have you ever wanted the ability to replace markers in boiler plate?

I have been building up a wizard for building class /controller class pairs,
something I use all the time.  Part of the process is to insert boilerplate
text such as:

'CopyRight: |CopyRightVal|
'.=========================================================================
'.Description  :
'.
'.Written By   : |AuthorVal|
'.Date Created : |DateVal|
' Rev. History :
'
' Comments     :
'THESE CONSTANTS AND VARIABLES ARE USED INTERNALLY TO THE CLASS
'*+ Class constant declaration
Private Const DebugPrint As Boolean = False
Private Const mcstrModuleName As String = "|ClsNameVal|"

And then be able to replace the markers:

|CopyRightVal|
|AuthorVal|
|DateVal|
|ClsNameVal|

With values either pulled from a string replacement table or generated by
the code.

|CopyRightVal|
|AuthorVal|

Come from a table of marker / replacement strings, and

|DateVal|
|ClsNameVal|

Are values that the class generation code determines at run time.

In order to do this I built a child class / controller pair.  The child
class holds the data from tblStringReplacement where the data looks like:

Orig			Text
Replacement		Memo

The controller class loads the data from the table into child class
instances, then has a pair of methods to do the replacements.  One method
replaces all markers that it can find in the table (looking in the child
classes), the other method performs a replacement of a marker passed in and
a replacement string passed in (used for Runtime marker replacements).

The classes look like:

'*******************
'Begin Code Code Code Code
'*******************
Option Compare Database
Option Explicit

Private mOrig As String
Private mReplacement As String

Function mInit(lOrig As String, lReplacement As String)
    mOrig = lOrig
    mReplacement = lReplacement
End Function
Property Get pOrig() As String
    pOrig = mOrig
End Property
Property Get pReplacement() As String
    pReplacement = mReplacement
End Property

'*******************
'End Code Code Code Code
'*******************

Which holds the data in the tblStringReplacement - one class per record and:

'*******************
'Begin Code Code Code Code
'*******************
Private mstrTblName As String
Private mstrIdentFldName As String

Private mcolclsSystem As Collection

Private Sub Class_Initialize()
    Set mcolclsSystem = New Collection
End Sub

Private Sub Class_Terminate()
    Set mcolclsSystem = Nothing
End Sub
'
'strIdentFldName used as the key into the collection if present
'
Function mInit(strTblName As String, Optional strIdentFldName As String =
"Orig")
On Error GoTo Err_mInit
    mstrTblName = strTblName
    mstrIdentFldName = strIdentFldName
    ClsFactory
Exit_mInit:
Exit Function
Err_mInit:
        MsgBox Err.Description, , "Error in Function clsStrReplaceCtl.mInit"
        Resume Exit_mInit
    Resume 0    '.FOR TROUBLESHOOTING
End Function
Private Function ClsFactory()
On Error GoTo Err_ClsFactory
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim lcls As clsStrReplace
Dim fld As ADODB.Field
    Set cnn = CodeProject.Connection
    Set rst = New ADODB.Recordset
    rst.Open "SELECT * FROM " & mstrTblName, cnn, adOpenStatic,
adLockPessimistic
    With rst
        While Not .EOF
            Set lcls = New clsStrReplace
            lcls.mInit .Fields("Orig"), .Fields("Replacement")
            If Len(mstrIdentFldName) > 0 Then
                mcolclsSystem.Add lcls, CStr(.Fields(mstrIdentFldName))
            Else
                mcolclsSystem.Add lcls
            End If
            .MoveNext
        Wend
    End With
Exit_ClsFactory:
On Error Resume Next
    If Not (rst Is Nothing) Then rst.Close: Set rst = Nothing
    If Not (cnn Is Nothing) Then cnn.Close: Set cnn = Nothing
Exit Function
Err_ClsFactory:
        MsgBox Err.Description, , "Error in Function
clsSystemsCtrl.ClsFactory"
        Resume Exit_ClsFactory
    Resume 0    '.FOR TROUBLESHOOTING
End Function
Property Get cStrReplace(varVal As Variant) As clsStrReplace
On Error GoTo Err_cStrReplace
    Set cStrReplace = mcolclsSystem(CStr(varVal))
Exit_cStrReplace:
Exit Property
Err_cStrReplace:
        MsgBox Err.Description, , "Error in Property Get clsStrReplaceCtl.
cStrReplace"
        Resume Exit_cStrReplace
    Resume 0    '.FOR TROUBLESHOOTING
End Property
'
'This function will search a string for a specific marker passed in.
'Where found, the marker will be replaced by the replacement passed in.
'
Public Function mReplaceMarker(strToProcess As String, strMarker As String,
strReplacement As String)
On Error GoTo Err_mReplaceMarker
Dim intPos1 As Integer
Dim intPos2 As Integer
Dim lstrToProcess As String
Dim lstrProcessed As String
Dim lstrMarker As String
'Dim lstrReplacement As String
Dim blnMarkerNotFound As Boolean
    lstrToProcess = strToProcess
    'intPos1 = 1
    Do
        blnMarkerNotFound = True
        lstrMarker = ""
        '
        'Look for a marker
        '
        intPos1 = InStr(intPos1 + 1, lstrToProcess, "|")
        If intPos1 > intPos2 Then
            intPos2 = InStr(intPos1 + 1, lstrToProcess, "|")
            If intPos2 > intPos1 Then
                lstrMarker = mID$(lstrToProcess, intPos1 + 1, intPos2 -
intPos1 - 1)
                If Len(lstrMarker) > 0 Then
                    blnMarkerNotFound = False
                    On Error Resume Next
                    If lstrMarker = strMarker Then
                        '
                        'I only use the lstrProcessed so I can watch the
process as I am programming it.
                        'Replace this when debugged
                        '
                        'lstrReplacement =
cStrReplace(lstrMarker).pReplacement
                        lstrProcessed = Replace(lstrToProcess, "|" &
lstrMarker & "|", strReplacement)
                        lstrToProcess = lstrProcessed
                    Else
                        intPos1 = intPos2 + 1
                        
                    End If
                    'intPos1 = intPos2 + 1
                Else
                End If
            Else
            End If
        Else
        End If
    Loop Until blnMarkerNotFound
    mReplaceMarker = lstrToProcess
Exit_mReplaceMarker:
Exit Function
Err_mReplaceMarker:
        MsgBox Err.Description, , "Error in Function
clsStrReplaceCtl.mReplaceMarker"
        Resume Exit_mReplaceMarker
    Resume 0    '.FOR TROUBLESHOOTING
End Function
'
'This function will search strings for embedded "replacement markers"
denoted by |SomeValue|
'Where found, these replacement markers will be looked up in the
tblStrReplacement (the loaded collection)
'and if found, the replacement marker will be replaced with the replacement
value.
'
'If not found, the Replacement marker will be left in place untouched.
'
Public Function mReplaceMarkers(strToProcess As String) As String
On Error GoTo Err_mReplaceMarkers
Dim intPos1 As Integer
Dim intPos2 As Integer
Dim lstrToProcess As String
Dim lstrProcessed As String
Dim lstrMarker As String
Dim lstrReplacement As String
Dim cSR As clsStrReplace

Dim blnMarkerNotFound As Boolean
    lstrToProcess = strToProcess
    'intPos1 = 1
    Do
        blnMarkerNotFound = True
        lstrMarker = ""
        '
        'Look for a marker
        '
        intPos1 = InStr(intPos1 + 1, lstrToProcess, "|")
        If intPos1 > intPos2 Then
            intPos2 = InStr(intPos1 + 1, lstrToProcess, "|")
            If intPos2 > intPos1 Then
                lstrMarker = mID$(lstrToProcess, intPos1 + 1, intPos2 -
intPos1 - 1)
                If Len(lstrMarker) > 0 Then
                    blnMarkerNotFound = False
                    On Error Resume Next
                    Set cSR = mcolclsSystem(lstrMarker)
                    If Err = 0 Then
                        '
                        'I only use the lstrProcessed so I can watch the
process as I am programming it.
                        'Replace this when debugged
                        '
                        lstrReplacement =
cStrReplace(lstrMarker).pReplacement
                        lstrProcessed = Replace(lstrToProcess, "|" &
lstrMarker & "|", lstrReplacement)
                        lstrToProcess = lstrProcessed
                    Else
                        intPos1 = intPos2 + 1
                        
                    End If
        On Error GoTo Err_mReplaceMarkers
                    'intPos1 = intPos2 + 1
                Else
                End If
            Else
            End If
        Else
        End If
    Loop Until blnMarkerNotFound
    mReplaceMarkers = lstrToProcess
Exit_mReplaceMarkers:
Exit Function
Err_mReplaceMarkers:
        MsgBox Err.Description, , "Error in Function
clsStrReplaceCtl.mReplaceMarkers"
        Resume Exit_mReplaceMarkers
    Resume 0    '.FOR TROUBLESHOOTING
End Function
'*******************
'End Code Code Code Code
'*******************

The following code tests the control class clsStrReplaceCtl:

'*******************
'Begin Code Code Code Code
'*******************
Option Compare Database
Option Explicit

Private mclsStrReplaceCtl As clsStrReplaceCtl
Function StrReplaceInit(strTbl As String)
    If mclsStrReplaceCtl Is Nothing Then
        Set mclsStrReplaceCtl = New clsStrReplaceCtl
        mclsStrReplaceCtl.mInit strTbl
    End If
End Function
Function StrReplaceTerm()
    Set mclsStrReplaceCtl = Nothing
End Function
Public Function cSRC() As clsStrReplaceCtl
    Set cSRC = mclsStrReplaceCtl
End Function
Function TestReplace()
Dim strToTest As String
Dim strResults As String
    StrReplaceInit "tblStrReplace"
    strToTest = "This is a |specific| test.  |Author| is a very nice guy.
His phone is |Phone|.  His email is |email|.  I hope that this is enough to
|test|"
    strResults = cSRC.mReplaceMarkers(strToTest)
    Debug.Print strResults
    strToTest = strResults
    strResults = cSRC.mReplaceMarker(strToTest, "specific", "Very specific")
    Debug.Print strResults
    strToTest = strResults
    strResults = cSRC.mReplaceMarker(strToTest, "test", "work with")
    Debug.Print strResults
End Function
'*******************
'End Code Code Code Code
'*******************

Author, Phone and Email will be found in the table, Specific and Test will
be "run time replacement" tests.

This is a rather example of how I use child / controller classes.  The data
gets cached to speed up access to what would non-changing data in a table,
and then accessed from child classes stored in a collection in the
controller.

I have pretty much finished an Add-in to build the child / controller class
pair for a given table.  The add-in uses this string replacement system.  It
was an interesting exercise in frustration trying to get the finished
classes to save properly (thanks Shamil for the solution).

John W. Colby
www.ColbyConsulting.com 




From jwcolby at ColbyConsulting.com  Sun Jan 15 10:22:54 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sun, 15 Jan 2006 11:22:54 -0500
Subject: [AccessD] String replacement wizard
In-Reply-To: <002701c619ed$c5344b00$647aa8c0@ColbyM6805>
Message-ID: <002901c619ef$f2977c50$647aa8c0@ColbyM6805>

BTW, the two classes for the string builder wizard were built by the new
class builder Add-In.  I then added the two methods for doing the string
replacement 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Sunday, January 15, 2006 11:07 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] String replacement wizard

Have you ever wanted the ability to replace markers in boiler plate?

I have been building up a wizard for building class /controller class pairs,
something I use all the time.  Part of the process is to insert boilerplate
text such as:

'CopyRight: |CopyRightVal|
'.=========================================================================
'.Description  :
'.
'.Written By   : |AuthorVal|
'.Date Created : |DateVal|
' Rev. History :
'
' Comments     :
'THESE CONSTANTS AND VARIABLES ARE USED INTERNALLY TO THE CLASS '*+ Class
constant declaration Private Const DebugPrint As Boolean = False Private
Const mcstrModuleName As String = "|ClsNameVal|"

And then be able to replace the markers:

|CopyRightVal|
|AuthorVal|
|DateVal|
|ClsNameVal|

With values either pulled from a string replacement table or generated by
the code.

|CopyRightVal|
|AuthorVal|

Come from a table of marker / replacement strings, and

|DateVal|
|ClsNameVal|

Are values that the class generation code determines at run time.

In order to do this I built a child class / controller pair.  The child
class holds the data from tblStringReplacement where the data looks like:

Orig			Text
Replacement		Memo

The controller class loads the data from the table into child class
instances, then has a pair of methods to do the replacements.  One method
replaces all markers that it can find in the table (looking in the child
classes), the other method performs a replacement of a marker passed in and
a replacement string passed in (used for Runtime marker replacements).

The classes look like:

'*******************
'Begin Code Code Code Code
'*******************
Option Compare Database
Option Explicit

Private mOrig As String
Private mReplacement As String

Function mInit(lOrig As String, lReplacement As String)
    mOrig = lOrig
    mReplacement = lReplacement
End Function
Property Get pOrig() As String
    pOrig = mOrig
End Property
Property Get pReplacement() As String
    pReplacement = mReplacement
End Property

'*******************
'End Code Code Code Code
'*******************

Which holds the data in the tblStringReplacement - one class per record and:

'*******************
'Begin Code Code Code Code
'*******************
Private mstrTblName As String
Private mstrIdentFldName As String

Private mcolclsSystem As Collection

Private Sub Class_Initialize()
    Set mcolclsSystem = New Collection
End Sub

Private Sub Class_Terminate()
    Set mcolclsSystem = Nothing
End Sub
'
'strIdentFldName used as the key into the collection if present '
Function mInit(strTblName As String, Optional strIdentFldName As String =
"Orig")
On Error GoTo Err_mInit
    mstrTblName = strTblName
    mstrIdentFldName = strIdentFldName
    ClsFactory
Exit_mInit:
Exit Function
Err_mInit:
        MsgBox Err.Description, , "Error in Function clsStrReplaceCtl.mInit"
        Resume Exit_mInit
    Resume 0    '.FOR TROUBLESHOOTING
End Function
Private Function ClsFactory()
On Error GoTo Err_ClsFactory
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim lcls As clsStrReplace
Dim fld As ADODB.Field
    Set cnn = CodeProject.Connection
    Set rst = New ADODB.Recordset
    rst.Open "SELECT * FROM " & mstrTblName, cnn, adOpenStatic,
adLockPessimistic
    With rst
        While Not .EOF
            Set lcls = New clsStrReplace
            lcls.mInit .Fields("Orig"), .Fields("Replacement")
            If Len(mstrIdentFldName) > 0 Then
                mcolclsSystem.Add lcls, CStr(.Fields(mstrIdentFldName))
            Else
                mcolclsSystem.Add lcls
            End If
            .MoveNext
        Wend
    End With
Exit_ClsFactory:
On Error Resume Next
    If Not (rst Is Nothing) Then rst.Close: Set rst = Nothing
    If Not (cnn Is Nothing) Then cnn.Close: Set cnn = Nothing Exit Function
Err_ClsFactory:
        MsgBox Err.Description, , "Error in Function
clsSystemsCtrl.ClsFactory"
        Resume Exit_ClsFactory
    Resume 0    '.FOR TROUBLESHOOTING
End Function
Property Get cStrReplace(varVal As Variant) As clsStrReplace On Error GoTo
Err_cStrReplace
    Set cStrReplace = mcolclsSystem(CStr(varVal))
Exit_cStrReplace:
Exit Property
Err_cStrReplace:
        MsgBox Err.Description, , "Error in Property Get clsStrReplaceCtl.
cStrReplace"
        Resume Exit_cStrReplace
    Resume 0    '.FOR TROUBLESHOOTING
End Property
'
'This function will search a string for a specific marker passed in.
'Where found, the marker will be replaced by the replacement passed in.
'
Public Function mReplaceMarker(strToProcess As String, strMarker As String,
strReplacement As String) On Error GoTo Err_mReplaceMarker Dim intPos1 As
Integer Dim intPos2 As Integer Dim lstrToProcess As String Dim lstrProcessed
As String Dim lstrMarker As String 'Dim lstrReplacement As String Dim
blnMarkerNotFound As Boolean
    lstrToProcess = strToProcess
    'intPos1 = 1
    Do
        blnMarkerNotFound = True
        lstrMarker = ""
        '
        'Look for a marker
        '
        intPos1 = InStr(intPos1 + 1, lstrToProcess, "|")
        If intPos1 > intPos2 Then
            intPos2 = InStr(intPos1 + 1, lstrToProcess, "|")
            If intPos2 > intPos1 Then
                lstrMarker = mID$(lstrToProcess, intPos1 + 1, intPos2 -
intPos1 - 1)
                If Len(lstrMarker) > 0 Then
                    blnMarkerNotFound = False
                    On Error Resume Next
                    If lstrMarker = strMarker Then
                        '
                        'I only use the lstrProcessed so I can watch the
process as I am programming it.
                        'Replace this when debugged
                        '
                        'lstrReplacement =
cStrReplace(lstrMarker).pReplacement
                        lstrProcessed = Replace(lstrToProcess, "|" &
lstrMarker & "|", strReplacement)
                        lstrToProcess = lstrProcessed
                    Else
                        intPos1 = intPos2 + 1
                        
                    End If
                    'intPos1 = intPos2 + 1
                Else
                End If
            Else
            End If
        Else
        End If
    Loop Until blnMarkerNotFound
    mReplaceMarker = lstrToProcess
Exit_mReplaceMarker:
Exit Function
Err_mReplaceMarker:
        MsgBox Err.Description, , "Error in Function
clsStrReplaceCtl.mReplaceMarker"
        Resume Exit_mReplaceMarker
    Resume 0    '.FOR TROUBLESHOOTING
End Function
'
'This function will search strings for embedded "replacement markers"
denoted by |SomeValue|
'Where found, these replacement markers will be looked up in the
tblStrReplacement (the loaded collection) 'and if found, the replacement
marker will be replaced with the replacement value.
'
'If not found, the Replacement marker will be left in place untouched.
'
Public Function mReplaceMarkers(strToProcess As String) As String On Error
GoTo Err_mReplaceMarkers Dim intPos1 As Integer Dim intPos2 As Integer Dim
lstrToProcess As String Dim lstrProcessed As String Dim lstrMarker As String
Dim lstrReplacement As String Dim cSR As clsStrReplace

Dim blnMarkerNotFound As Boolean
    lstrToProcess = strToProcess
    'intPos1 = 1
    Do
        blnMarkerNotFound = True
        lstrMarker = ""
        '
        'Look for a marker
        '
        intPos1 = InStr(intPos1 + 1, lstrToProcess, "|")
        If intPos1 > intPos2 Then
            intPos2 = InStr(intPos1 + 1, lstrToProcess, "|")
            If intPos2 > intPos1 Then
                lstrMarker = mID$(lstrToProcess, intPos1 + 1, intPos2 -
intPos1 - 1)
                If Len(lstrMarker) > 0 Then
                    blnMarkerNotFound = False
                    On Error Resume Next
                    Set cSR = mcolclsSystem(lstrMarker)
                    If Err = 0 Then
                        '
                        'I only use the lstrProcessed so I can watch the
process as I am programming it.
                        'Replace this when debugged
                        '
                        lstrReplacement =
cStrReplace(lstrMarker).pReplacement
                        lstrProcessed = Replace(lstrToProcess, "|" &
lstrMarker & "|", lstrReplacement)
                        lstrToProcess = lstrProcessed
                    Else
                        intPos1 = intPos2 + 1
                        
                    End If
        On Error GoTo Err_mReplaceMarkers
                    'intPos1 = intPos2 + 1
                Else
                End If
            Else
            End If
        Else
        End If
    Loop Until blnMarkerNotFound
    mReplaceMarkers = lstrToProcess
Exit_mReplaceMarkers:
Exit Function
Err_mReplaceMarkers:
        MsgBox Err.Description, , "Error in Function
clsStrReplaceCtl.mReplaceMarkers"
        Resume Exit_mReplaceMarkers
    Resume 0    '.FOR TROUBLESHOOTING
End Function
'*******************
'End Code Code Code Code
'*******************

The following code tests the control class clsStrReplaceCtl:

'*******************
'Begin Code Code Code Code
'*******************
Option Compare Database
Option Explicit

Private mclsStrReplaceCtl As clsStrReplaceCtl Function StrReplaceInit(strTbl
As String)
    If mclsStrReplaceCtl Is Nothing Then
        Set mclsStrReplaceCtl = New clsStrReplaceCtl
        mclsStrReplaceCtl.mInit strTbl
    End If
End Function
Function StrReplaceTerm()
    Set mclsStrReplaceCtl = Nothing
End Function
Public Function cSRC() As clsStrReplaceCtl
    Set cSRC = mclsStrReplaceCtl
End Function
Function TestReplace()
Dim strToTest As String
Dim strResults As String
    StrReplaceInit "tblStrReplace"
    strToTest = "This is a |specific| test.  |Author| is a very nice guy.
His phone is |Phone|.  His email is |email|.  I hope that this is enough to
|test|"
    strResults = cSRC.mReplaceMarkers(strToTest)
    Debug.Print strResults
    strToTest = strResults
    strResults = cSRC.mReplaceMarker(strToTest, "specific", "Very specific")
    Debug.Print strResults
    strToTest = strResults
    strResults = cSRC.mReplaceMarker(strToTest, "test", "work with")
    Debug.Print strResults
End Function
'*******************
'End Code Code Code Code
'*******************

Author, Phone and Email will be found in the table, Specific and Test will
be "run time replacement" tests.

This is a rather example of how I use child / controller classes.  The data
gets cached to speed up access to what would non-changing data in a table,
and then accessed from child classes stored in a collection in the
controller.

I have pretty much finished an Add-in to build the child / controller class
pair for a given table.  The add-in uses this string replacement system.  It
was an interesting exercise in frustration trying to get the finished
classes to save properly (thanks Shamil for the solution).

John W. Colby
www.ColbyConsulting.com 


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



From jwelz at hotmail.com  Sun Jan 15 10:36:59 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Sun, 15 Jan 2006 09:36:59 -0700
Subject: [AccessD] is it possible to rename many folders via access?
In-Reply-To: <007501c61a92$b3008160$6401a8c0@KOST36>
Message-ID: <BAY113-F240AD418CEF2BAF1F20881A1180@phx.gbl>

Kostas:

You can use the Dir function to return file/folder names that match the 
spec, check the return value as to whether it is a directory with GetAttr 
(If (GetAttr(strDirReturn) And vbDirectory) = vbDirectory Then) and then use 
the Name "C:\FilePath" As "C:\NewFilePath" syntax to rename folders.

Obviously all your folders can't have the same name and be in the same 
location.  EIther they are elsewhere in the directory structure or on 
various drives and/or machines.  You'll either need to to a recursive search 
with the Dir function to return the original folder names, unless the 
folders have some kind of suffix like:  KING KONG (1933) - Max Steiner A.

Do all the folders have exactly the same name, or is that just the start of 
the name and they have various suffixes and share the same root?



Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Kostas Konstantinidis" <kost36 at otenet.gr>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem 
>solving"<accessd at databaseadvisors.com>
>Subject: [AccessD] is it possible to rename many folders via access?
>Date: Mon, 16 Jan 2006 13:47:59 +0200
>MIME-Version: 1.0
>Received: from databaseadvisors.com ([209.135.140.44]) by 
>bay0-mc2-f19.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.211); Sun, 15 
>Jan 2006 03:49:00 -0800
>Received: from databaseadvisors.com (databaseadvisors.com 
>[209.135.140.44])by databaseadvisors.com (8.11.6/8.11.6) with ESMTP id 
>k0FBlaV12568;Sun, 15 Jan 2006 05:47:36 -0600
>Received: from aiolos.otenet.gr 
>(OTEnet-mail-system at aiolos.otenet.gr[195.170.0.93])by databaseadvisors.com 
>(8.11.6/8.11.6) with ESMTP id k0FBlOV12502for 
><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 05:47:25 -0600
>Received: from KOST36 (athe730e-2894.otenet.gr [83.235.12.100])by 
>aiolos.otenet.gr (8.13.4/8.13.4/Debian-8) with SMTP idk0FBlMDb003045for 
><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 13:47:23 +0200
>X-Message-Info: tyddfols8vHo3LAyqMtMFe5EiIL9cWdA2ZMd7W/Skmg=
>References: <s3973f7d.045 at cactus.dk>
>X-MSMail-Priority: Normal
>X-Mailer: Microsoft Outlook Express 6.00.2900.2180
>X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
>X-BeenThere: accessd at databaseadvisors.com
>X-Mailman-Version: 2.1.6-xhtml
>Precedence: list
>List-Id: Access Developers discussion and problem 
>solving<accessd.databaseadvisors.com>
>List-Unsubscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=unsubscribe>
>List-Archive: <http://databaseadvisors.com/pipermail/accessd>
>List-Post: <mailto:accessd at databaseadvisors.com>
>List-Help: <mailto:accessd-request at databaseadvisors.com?subject=help>
>List-Subscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=subscribe>
>Errors-To: accessd-bounces at databaseadvisors.com
>Return-Path: accessd-bounces at databaseadvisors.com
>X-OriginalArrivalTime: 15 Jan 2006 11:49:01.0053 (UTC) 
>FILETIME=[AD234AD0:01C619C9]
>
>I have about 7.000 folders saved as .
>KING KONG (1933) - Max Steiner
>what I want to do is to rename all the folders as
>(1933) KING KONG - Max Steiner
>
>is that possible?
>thank's a lot
>/kostas
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From jwelz at hotmail.com  Sun Jan 15 10:37:34 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Sun, 15 Jan 2006 09:37:34 -0700
Subject: [AccessD] is it possible to rename many folders via access?
In-Reply-To: <007501c61a92$b3008160$6401a8c0@KOST36>
Message-ID: <BAY113-F57172D5760830E4554B52A1180@phx.gbl>

Kostas:

You can use the Dir function to return file/folder names that match the 
spec, check the return value as to whether it is a directory with GetAttr 
(If (GetAttr(strDirReturn) And vbDirectory) = vbDirectory Then) and then use 
the Name "C:\FilePath" As "C:\NewFilePath" syntax to rename folders.

Obviously all your folders can't have the same name and be in the same 
location.  EIther they are elsewhere in the directory structure or on 
various drives and/or machines.  You'll either need to to a recursive search 
with the Dir function to return the original folder names, unless the 
folders have some kind of suffix like:  KING KONG (1933) - Max Steiner A.

Do all the folders have exactly the same name, or is that just the start of 
the name and they have various suffixes and share the same root?



Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Kostas Konstantinidis" <kost36 at otenet.gr>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem 
>solving"<accessd at databaseadvisors.com>
>Subject: [AccessD] is it possible to rename many folders via access?
>Date: Mon, 16 Jan 2006 13:47:59 +0200
>MIME-Version: 1.0
>Received: from databaseadvisors.com ([209.135.140.44]) by 
>bay0-mc2-f19.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.211); Sun, 15 
>Jan 2006 03:49:00 -0800
>Received: from databaseadvisors.com (databaseadvisors.com 
>[209.135.140.44])by databaseadvisors.com (8.11.6/8.11.6) with ESMTP id 
>k0FBlaV12568;Sun, 15 Jan 2006 05:47:36 -0600
>Received: from aiolos.otenet.gr 
>(OTEnet-mail-system at aiolos.otenet.gr[195.170.0.93])by databaseadvisors.com 
>(8.11.6/8.11.6) with ESMTP id k0FBlOV12502for 
><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 05:47:25 -0600
>Received: from KOST36 (athe730e-2894.otenet.gr [83.235.12.100])by 
>aiolos.otenet.gr (8.13.4/8.13.4/Debian-8) with SMTP idk0FBlMDb003045for 
><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 13:47:23 +0200
>X-Message-Info: tyddfols8vHo3LAyqMtMFe5EiIL9cWdA2ZMd7W/Skmg=
>References: <s3973f7d.045 at cactus.dk>
>X-MSMail-Priority: Normal
>X-Mailer: Microsoft Outlook Express 6.00.2900.2180
>X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
>X-BeenThere: accessd at databaseadvisors.com
>X-Mailman-Version: 2.1.6-xhtml
>Precedence: list
>List-Id: Access Developers discussion and problem 
>solving<accessd.databaseadvisors.com>
>List-Unsubscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=unsubscribe>
>List-Archive: <http://databaseadvisors.com/pipermail/accessd>
>List-Post: <mailto:accessd at databaseadvisors.com>
>List-Help: <mailto:accessd-request at databaseadvisors.com?subject=help>
>List-Subscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=subscribe>
>Errors-To: accessd-bounces at databaseadvisors.com
>Return-Path: accessd-bounces at databaseadvisors.com
>X-OriginalArrivalTime: 15 Jan 2006 11:49:01.0053 (UTC) 
>FILETIME=[AD234AD0:01C619C9]
>
>I have about 7.000 folders saved as .
>KING KONG (1933) - Max Steiner
>what I want to do is to rename all the folders as
>(1933) KING KONG - Max Steiner
>
>is that possible?
>thank's a lot
>/kostas
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From kost36 at otenet.gr  Mon Jan 16 10:46:16 2006
From: kost36 at otenet.gr (Kostas Konstantinidis)
Date: Mon, 16 Jan 2006 18:46:16 +0200
Subject: [AccessD] is it possible to rename many folders via access?
References: <BAY113-F57172D5760830E4554B52A1180@phx.gbl>
Message-ID: <003801c61abc$5e76b6d0$6401a8c0@KOST36>

Jurgen,
KING KONG was just an example.
every folder has its unic name
My example was refferenced to that, trying to explain the format of the 
folder names e.g.

Movie Title (Year) - Composer

thank's for your response
/kostas

----- Original Message ----- 
From: "Jurgen Welz" <jwelz at hotmail.com>
To: <accessd at databaseadvisors.com>
Sent: Sunday, January 15, 2006 6:37 PM
Subject: Re: [AccessD] is it possible to rename many folders via access?


> Kostas:
>
> You can use the Dir function to return file/folder names that match the
> spec, check the return value as to whether it is a directory with GetAttr
> (If (GetAttr(strDirReturn) And vbDirectory) = vbDirectory Then) and then 
> use
> the Name "C:\FilePath" As "C:\NewFilePath" syntax to rename folders.
>
> Obviously all your folders can't have the same name and be in the same
> location.  EIther they are elsewhere in the directory structure or on
> various drives and/or machines.  You'll either need to to a recursive 
> search
> with the Dir function to return the original folder names, unless the
> folders have some kind of suffix like:  KING KONG (1933) - Max Steiner A.
>
> Do all the folders have exactly the same name, or is that just the start 
> of
> the name and they have various suffixes and share the same root?
>
>
>
> Ciao
> J?rgen Welz
> Edmonton, Alberta
> jwelz at hotmail.com
>
>
>
>
>
>>From: "Kostas Konstantinidis" <kost36 at otenet.gr>
>>Reply-To: Access Developers discussion and problem
>>solving<accessd at databaseadvisors.com>
>>To: "Access Developers discussion and problem
>>solving"<accessd at databaseadvisors.com>
>>Subject: [AccessD] is it possible to rename many folders via access?
>>Date: Mon, 16 Jan 2006 13:47:59 +0200
>>MIME-Version: 1.0
>>Received: from databaseadvisors.com ([209.135.140.44]) by
>>bay0-mc2-f19.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.211); Sun, 
>>15
>>Jan 2006 03:49:00 -0800
>>Received: from databaseadvisors.com (databaseadvisors.com
>>[209.135.140.44])by databaseadvisors.com (8.11.6/8.11.6) with ESMTP id
>>k0FBlaV12568;Sun, 15 Jan 2006 05:47:36 -0600
>>Received: from aiolos.otenet.gr
>>(OTEnet-mail-system at aiolos.otenet.gr[195.170.0.93])by databaseadvisors.com
>>(8.11.6/8.11.6) with ESMTP id k0FBlOV12502for
>><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 05:47:25 -0600
>>Received: from KOST36 (athe730e-2894.otenet.gr [83.235.12.100])by
>>aiolos.otenet.gr (8.13.4/8.13.4/Debian-8) with SMTP idk0FBlMDb003045for
>><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 13:47:23 +0200
>>X-Message-Info: tyddfols8vHo3LAyqMtMFe5EiIL9cWdA2ZMd7W/Skmg=
>>References: <s3973f7d.045 at cactus.dk>
>>X-MSMail-Priority: Normal
>>X-Mailer: Microsoft Outlook Express 6.00.2900.2180
>>X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
>>X-BeenThere: accessd at databaseadvisors.com
>>X-Mailman-Version: 2.1.6-xhtml
>>Precedence: list
>>List-Id: Access Developers discussion and problem
>>solving<accessd.databaseadvisors.com>
>>List-Unsubscribe:
>><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=unsubscribe>
>>List-Archive: <http://databaseadvisors.com/pipermail/accessd>
>>List-Post: <mailto:accessd at databaseadvisors.com>
>>List-Help: <mailto:accessd-request at databaseadvisors.com?subject=help>
>>List-Subscribe:
>><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=subscribe>
>>Errors-To: accessd-bounces at databaseadvisors.com
>>Return-Path: accessd-bounces at databaseadvisors.com
>>X-OriginalArrivalTime: 15 Jan 2006 11:49:01.0053 (UTC)
>>FILETIME=[AD234AD0:01C619C9]
>>
>>I have about 7.000 folders saved as .
>>KING KONG (1933) - Max Steiner
>>what I want to do is to rename all the folders as
>>(1933) KING KONG - Max Steiner
>>
>>is that possible?
>>thank's a lot
>>/kostas
>>
>>--
>>AccessD mailing list
>>AccessD at databaseadvisors.com
>>http://databaseadvisors.com/mailman/listinfo/accessd
>>Website: http://www.databaseadvisors.com
>
>
>


--------------------------------------------------------------------------------


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




From Gustav at cactus.dk  Sun Jan 15 11:50:39 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sun, 15 Jan 2006 18:50:39 +0100
Subject: [AccessD] is it possible to rename many folders via	access?
Message-ID: <s3ca99a3.020@cactus.dk>

Hi Kostas

Well, Dir will list your folders:

  ' Find first folder.
  strFolder = Dir(strParent & "\*.", vbDirectory)
  While Len(strFolder) > 0
    ' Pick movie.
    strName = Split(strFolder, "-")(0)
    lngLen = Len(strName)
    ' Rearrange movie and concatenate with composer.
    strNewName = Right(strName, 6) & " " & Left(strName, lngLen - 7) & "-" & Split(strFolder, "-")(1)
    ' Build old and new path.
    strPath = strParent & "\" & strFolder
    strNewPath = strParent & "\" & strNewName
    ' Rename folder.
    Name strPath As strNewPath
    ' Find next folder.
    strFolder = Dir
  Wend

/gustav

>>> kost36 at otenet.gr 16-01-2006 17:46:16 >>>
Jurgen,
KING KONG was just an example.
every folder has its unic name
My example was refferenced to that, trying to explain the format of the 
folder names e.g.

Movie Title (Year) - Composer

thank's for your response
/kostas

----- Original Message ----- 
From: "Jurgen Welz" <jwelz at hotmail.com>
To: <accessd at databaseadvisors.com>
Sent: Sunday, January 15, 2006 6:37 PM
Subject: Re: [AccessD] is it possible to rename many folders via access?


> Kostas:
>
> You can use the Dir function to return file/folder names that match the
> spec, check the return value as to whether it is a directory with GetAttr
> (If (GetAttr(strDirReturn) And vbDirectory) = vbDirectory Then) and then 
> use
> the Name "C:\FilePath" As "C:\NewFilePath" syntax to rename folders.
>
> Obviously all your folders can't have the same name and be in the same
> location.  EIther they are elsewhere in the directory structure or on
> various drives and/or machines.  You'll either need to to a recursive 
> search
> with the Dir function to return the original folder names, unless the
> folders have some kind of suffix like:  KING KONG (1933) - Max Steiner A.
>
> Do all the folders have exactly the same name, or is that just the start 
> of
> the name and they have various suffixes and share the same root?
>
>
>
> Ciao
> J?rgen Welz
> Edmonton, Alberta
> jwelz at hotmail.com 
>
>
>
>
>
>>From: "Kostas Konstantinidis" <kost36 at otenet.gr>
>>Reply-To: Access Developers discussion and problem
>>solving<accessd at databaseadvisors.com>
>>To: "Access Developers discussion and problem
>>solving"<accessd at databaseadvisors.com>
>>Subject: [AccessD] is it possible to rename many folders via access?
>>Date: Mon, 16 Jan 2006 13:47:59 +0200
>>MIME-Version: 1.0
>>Received: from databaseadvisors.com ([209.135.140.44]) by
>>bay0-mc2-f19.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.211); Sun, 
>>15
>>Jan 2006 03:49:00 -0800
>>Received: from databaseadvisors.com (databaseadvisors.com
>>[209.135.140.44])by databaseadvisors.com (8.11.6/8.11.6) with ESMTP id
>>k0FBlaV12568;Sun, 15 Jan 2006 05:47:36 -0600
>>Received: from aiolos.otenet.gr
>>(OTEnet-mail-system at aiolos.otenet.gr[195.170.0.93])by databaseadvisors.com
>>(8.11.6/8.11.6) with ESMTP id k0FBlOV12502for
>><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 05:47:25 -0600
>>Received: from KOST36 (athe730e-2894.otenet.gr [83.235.12.100])by
>>aiolos.otenet.gr (8.13.4/8.13.4/Debian-8) with SMTP idk0FBlMDb003045for
>><accessd at databaseadvisors.com>; Sun, 15 Jan 2006 13:47:23 +0200
>>X-Message-Info: tyddfols8vHo3LAyqMtMFe5EiIL9cWdA2ZMd7W/Skmg=
>>References: <s3973f7d.045 at cactus.dk>
>>X-MSMail-Priority: Normal
>>X-Mailer: Microsoft Outlook Express 6.00.2900.2180
>>X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
>>X-BeenThere: accessd at databaseadvisors.com 
>>X-Mailman-Version: 2.1.6-xhtml
>>Precedence: list
>>List-Id: Access Developers discussion and problem
>>solving<accessd.databaseadvisors.com>
>>List-Unsubscribe:
>><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=unsubscribe>
>>List-Archive: <http://databaseadvisors.com/pipermail/accessd>
>>List-Post: <mailto:accessd at databaseadvisors.com>
>>List-Help: <mailto:accessd-request at databaseadvisors.com?subject=help>
>>List-Subscribe:
>><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=subscribe>
>>Errors-To: accessd-bounces at databaseadvisors.com 
>>Return-Path: accessd-bounces at databaseadvisors.com 
>>X-OriginalArrivalTime: 15 Jan 2006 11:49:01.0053 (UTC)
>>FILETIME=[AD234AD0:01C619C9]
>>
>>I have about 7.000 folders saved as .
>>KING KONG (1933) - Max Steiner
>>what I want to do is to rename all the folders as
>>(1933) KING KONG - Max Steiner
>>
>>is that possible?
>>thank's a lot
>>/kostas



From jwelz at hotmail.com  Sun Jan 15 12:28:23 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Sun, 15 Jan 2006 11:28:23 -0700
Subject: [AccessD] is it possible to rename many folders via access?
In-Reply-To: <s3ca99a3.020@cactus.dk>
Message-ID: <BAY113-F22A2B759E849D65D89F543A1180@phx.gbl>

Gustav is of course correct, you need to pass the  vbDirectory parameter to 
Dir in order to include folder names in the search and I had neglected to 
include this detail.

Including this parameter allows Dir to return folders, but it does not 
restrict return values to folders.  It still returns files.

Gustav's file spec, '*.', parameter ordinarily ensures that only files will 
be returned.  However, folders may be given an extension or include a '.' 
and these will be excluded by that spec.  Also, this would return file names 
that lack an extension.  In Kostas' case this is probably irrelevant since 
probably no folder names contain a '.' and there are not likely to be any 
files without an extension that would be returned by Dir.

You would want to be sure that your Dir function returns test with IsDate on 
a portion of the folder name beyond the 5th character that match a year 
between 1900 and 2006 (or IsNumeric).  After all, you wouldn't want Dir to 
find a renamed folder and perhaps rename it again ad infinitum, perhaps 
scrambling the folder names beyond all recognition.  You need to be sure 
your string manipulation recognizes a renamed folder.  I still use instr() 
and would test for the location of the first parenthesis.

Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Gustav Brock" <Gustav at cactus.dk>

>Hi Kostas
>
>Well, Dir will list your folders:
>
>   ' Find first folder.
>   strFolder = Dir(strParent & "\*.", vbDirectory)
>   While Len(strFolder) > 0
>     ' Pick movie.
>     strName = Split(strFolder, "-")(0)
>     lngLen = Len(strName)
>     ' Rearrange movie and concatenate with composer.
>     strNewName = Right(strName, 6) & " " & Left(strName, lngLen - 7) & "-" 
>& Split(strFolder, "-")(1)
>     ' Build old and new path.
>     strPath = strParent & "\" & strFolder
>     strNewPath = strParent & "\" & strNewName
>     ' Rename folder.
>     Name strPath As strNewPath
>     ' Find next folder.
>     strFolder = Dir
>   Wend
>
>/gustav
>
> >>> kost36 at otenet.gr 16-01-2006 17:46:16 >>>
>Jurgen,
>KING KONG was just an example.
>every folder has its unic name
>My example was refferenced to that, trying to explain the format of the
>folder names e.g.
>
>Movie Title (Year) - Composer
>
>thank's for your response
>/kostas
>
>----- Original Message -----
>From: "Jurgen Welz" <jwelz at hotmail.com>
>To: <accessd at databaseadvisors.com>
>Sent: Sunday, January 15, 2006 6:37 PM
>Subject: Re: [AccessD] is it possible to rename many folders via access?
>
>
> > Kostas:
> >
> > You can use the Dir function to return file/folder names that match the
> > spec, check the return value as to whether it is a directory with 
>GetAttr
> > (If (GetAttr(strDirReturn) And vbDirectory) = vbDirectory Then) and then
> > use
> > the Name "C:\FilePath" As "C:\NewFilePath" syntax to rename folders.
> >
> > Obviously all your folders can't have the same name and be in the same
> > location.  EIther they are elsewhere in the directory structure or on
> > various drives and/or machines.  You'll either need to to a recursive
> > search
> > with the Dir function to return the original folder names, unless the
> > folders have some kind of suffix like:  KING KONG (1933) - Max Steiner 
>A.
> >
> > Do all the folders have exactly the same name, or is that just the start
> > of
> > the name and they have various suffixes and share the same root?
> >
> >
> >
> > Ciao
> > J?rgen Welz
> > Edmonton, Alberta
> > jwelz at hotmail.com
> >
> >
> >
> >
> >
> >>From: "Kostas Konstantinidis" <kost36 at otenet.gr>
> >>
> >>I have about 7.000 folders saved as .
> >>KING KONG (1933) - Max Steiner
> >>what I want to do is to rename all the folders as
> >>(1933) KING KONG - Max Steiner
> >>
> >>is that possible?
> >>thank's a lot
> >>/kostas




From Gustav at cactus.dk  Sun Jan 15 12:52:06 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sun, 15 Jan 2006 19:52:06 +0100
Subject: [AccessD] is it possible to rename many folders via	access?
Message-ID: <s3caa7fa.022@cactus.dk>

Hi J?rgen and Kostas

Right, you have to be careful - you could destroy a complete folder structure with this code if you get something wrong!

Now I recall I have a helper function to get around some of the limitations of Dir.

<code>

Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" ( _
  ByVal pszPath As String) _
  As Long
  
Public Function IsDir( _
  ByVal strPath As String) _
  As Boolean
  
' Returns True if strPath exists.
  
  Dim stzPath As String
  
  stzPath = strPath & vbNullChar
  
  IsDir = CBool(PathIsDirectory(stzPath))

End Function

</code>

Use this and every other error check you can think of, like:

  If IsDate("1/1/" & Val(Mid(strNewName, 2))) Then 
    ...
  End if

/gustav


>>> jwelz at hotmail.com 15-01-2006 19:28:23 >>>
Gustav is of course correct, you need to pass the  vbDirectory parameter to 
Dir in order to include folder names in the search and I had neglected to 
include this detail.

Including this parameter allows Dir to return folders, but it does not 
restrict return values to folders.  It still returns files.

Gustav's file spec, '*.', parameter ordinarily ensures that only files will 
be returned.  However, folders may be given an extension or include a '.' 
and these will be excluded by that spec.  Also, this would return file names 
that lack an extension.  In Kostas' case this is probably irrelevant since 
probably no folder names contain a '.' and there are not likely to be any 
files without an extension that would be returned by Dir.

You would want to be sure that your Dir function returns test with IsDate on 
a portion of the folder name beyond the 5th character that match a year 
between 1900 and 2006 (or IsNumeric).  After all, you wouldn't want Dir to 
find a renamed folder and perhaps rename it again ad infinitum, perhaps 
scrambling the folder names beyond all recognition.  You need to be sure 
your string manipulation recognizes a renamed folder.  I still use instr() 
and would test for the location of the first parenthesis.

Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com 





>From: "Gustav Brock" <Gustav at cactus.dk>

>Hi Kostas
>
>Well, Dir will list your folders:
>
>   ' Find first folder.
>   strFolder = Dir(strParent & "\*.", vbDirectory)
>   While Len(strFolder) > 0
>     ' Pick movie.
>     strName = Split(strFolder, "-")(0)
>     lngLen = Len(strName)
>     ' Rearrange movie and concatenate with composer.
>     strNewName = Right(strName, 6) & " " & Left(strName, lngLen - 7) & "-" 
>& Split(strFolder, "-")(1)
>     ' Build old and new path.
>     strPath = strParent & "\" & strFolder
>     strNewPath = strParent & "\" & strNewName
>     ' Rename folder.
>     Name strPath As strNewPath
>     ' Find next folder.
>     strFolder = Dir
>   Wend
>
>/gustav
>
> >>> kost36 at otenet.gr 16-01-2006 17:46:16 >>>
>Jurgen,
>KING KONG was just an example.
>every folder has its unic name
>My example was refferenced to that, trying to explain the format of the
>folder names e.g.
>
>Movie Title (Year) - Composer
>
>thank's for your response
>/kostas
>
>----- Original Message -----
>From: "Jurgen Welz" <jwelz at hotmail.com>
>To: <accessd at databaseadvisors.com>
>Sent: Sunday, January 15, 2006 6:37 PM
>Subject: Re: [AccessD] is it possible to rename many folders via access?
>
>
> > Kostas:
> >
> > You can use the Dir function to return file/folder names that match the
> > spec, check the return value as to whether it is a directory with 
>GetAttr
> > (If (GetAttr(strDirReturn) And vbDirectory) = vbDirectory Then) and then
> > use
> > the Name "C:\FilePath" As "C:\NewFilePath" syntax to rename folders.
> >
> > Obviously all your folders can't have the same name and be in the same
> > location.  EIther they are elsewhere in the directory structure or on
> > various drives and/or machines.  You'll either need to to a recursive
> > search
> > with the Dir function to return the original folder names, unless the
> > folders have some kind of suffix like:  KING KONG (1933) - Max Steiner 
>A.
> >
> > Do all the folders have exactly the same name, or is that just the start
> > of
> > the name and they have various suffixes and share the same root?
> >
> >
> >
> > Ciao
> > J?rgen Welz
> > Edmonton, Alberta
> > jwelz at hotmail.com 
> >
> >
> >
> >
> >
> >>From: "Kostas Konstantinidis" <kost36 at otenet.gr>
> >>
> >>I have about 7.000 folders saved as .
> >>KING KONG (1933) - Max Steiner
> >>what I want to do is to rename all the folders as
> >>(1933) KING KONG - Max Steiner
> >>
> >>is that possible?
> >>thank's a lot
> >>/kostas




From martyconnelly at shaw.ca  Sun Jan 15 13:15:30 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Sun, 15 Jan 2006 11:15:30 -0800
Subject: [AccessD] SMS Phone text messaging from Access
References: <BAY113-F22A2B759E849D65D89F543A1180@phx.gbl>
Message-ID: <43CA9F52.70906@shaw.ca>

Here is an Access one liner to send a Phone SMS text message to any cell 
phone in North America.

DoCmd.SendObject , , acFormatTXT, "250-555-1212 at teleflip.com", _
, ,  "SMS Message from Access"," Body this is a test from Access" , False

Using teleflip.com SMS portal avoids having to distinguish between these 
cell phone SMS portals below
Here are some cellphone providers that you do have to know the carrier of
the cellphone you want to send email to:
AT&T:   AreaCode+Mob... at mobile.att.net
Verizon:   AreaCode+Mob... at vtext.com
Nextel:   AreaCode+Mob... at page.nextel.com
T-Mobile:   AreaCode+Mob... at tmomail.com
Sprint:   AreaCode+Mob... at messaging.sprintpcs.com
Cingular:   1+AreaCode+Mob... at mobile.mycingular.com

Given Teleflip's privacy policy of storing text messages and numbers  
for business purposes
(that veils a multitude of sins). I would only use to message such 
things as an
indicator of  computer job run termination or sql server failure.
And given the recent press announcements that you can obtain a list
of called numbers for a particular cell phone from a broker, does anyone 
see
any other security problems with this messaging method?

http://www.teleflip.com/teleflip/index.jsp

http://abtolls.com/information/sendatextpage.html

Advanced SMS methods to handle acknowledgement etc.
http://www.microsoft.com/sql/ns/partners/delivery.asp

-- 
Marty Connelly
Victoria, B.C.
Canada





From accessd at shaw.ca  Sun Jan 15 14:59:40 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Sun, 15 Jan 2006 12:59:40 -0800
Subject: [AccessD] String replacement wizard
In-Reply-To: <002701c619ed$c5344b00$647aa8c0@ColbyM6805>
Message-ID: <001b01c61a16$9a1bbe70$017ba8c0@xpserver>

Hi John:

A very interesting read. Excellent coding sample.

Jim  

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: January 15, 2006 8:07 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] String replacement wizard

Have you ever wanted the ability to replace markers in boiler plate?

I have been building up a wizard for building class /controller class pairs,
something I use all the time.  Part of the process is to insert boilerplate
text such as:

'CopyRight: |CopyRightVal|
'.=========================================================================
'.Description  :
'.
'.Written By   : |AuthorVal|
'.Date Created : |DateVal|
' Rev. History :
'
' Comments     :
'THESE CONSTANTS AND VARIABLES ARE USED INTERNALLY TO THE CLASS
'*+ Class constant declaration
Private Const DebugPrint As Boolean = False
Private Const mcstrModuleName As String = "|ClsNameVal|"

And then be able to replace the markers:

|CopyRightVal|
|AuthorVal|
|DateVal|
|ClsNameVal|

With values either pulled from a string replacement table or generated by
the code.

|CopyRightVal|
|AuthorVal|

Come from a table of marker / replacement strings, and

|DateVal|
|ClsNameVal|

Are values that the class generation code determines at run time.

In order to do this I built a child class / controller pair.  The child
class holds the data from tblStringReplacement where the data looks like:

Orig			Text
Replacement		Memo

The controller class loads the data from the table into child class
instances, then has a pair of methods to do the replacements.  One method
replaces all markers that it can find in the table (looking in the child
classes), the other method performs a replacement of a marker passed in and
a replacement string passed in (used for Runtime marker replacements).

The classes look like:

'*******************
'Begin Code Code Code Code
'*******************
Option Compare Database
Option Explicit

Private mOrig As String
Private mReplacement As String

Function mInit(lOrig As String, lReplacement As String)
    mOrig = lOrig
    mReplacement = lReplacement
End Function
Property Get pOrig() As String
    pOrig = mOrig
End Property
Property Get pReplacement() As String
    pReplacement = mReplacement
End Property

'*******************
'End Code Code Code Code
'*******************

Which holds the data in the tblStringReplacement - one class per record and:

'*******************
'Begin Code Code Code Code
'*******************
Private mstrTblName As String
Private mstrIdentFldName As String

Private mcolclsSystem As Collection

Private Sub Class_Initialize()
    Set mcolclsSystem = New Collection
End Sub

Private Sub Class_Terminate()
    Set mcolclsSystem = Nothing
End Sub
'
'strIdentFldName used as the key into the collection if present
'
Function mInit(strTblName As String, Optional strIdentFldName As String =
"Orig")
On Error GoTo Err_mInit
    mstrTblName = strTblName
    mstrIdentFldName = strIdentFldName
    ClsFactory
Exit_mInit:
Exit Function
Err_mInit:
        MsgBox Err.Description, , "Error in Function clsStrReplaceCtl.mInit"
        Resume Exit_mInit
    Resume 0    '.FOR TROUBLESHOOTING
End Function
Private Function ClsFactory()
On Error GoTo Err_ClsFactory
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim lcls As clsStrReplace
Dim fld As ADODB.Field
    Set cnn = CodeProject.Connection
    Set rst = New ADODB.Recordset
    rst.Open "SELECT * FROM " & mstrTblName, cnn, adOpenStatic,
adLockPessimistic
    With rst
        While Not .EOF
            Set lcls = New clsStrReplace
            lcls.mInit .Fields("Orig"), .Fields("Replacement")
            If Len(mstrIdentFldName) > 0 Then
                mcolclsSystem.Add lcls, CStr(.Fields(mstrIdentFldName))
            Else
                mcolclsSystem.Add lcls
            End If
            .MoveNext
        Wend
    End With
Exit_ClsFactory:
On Error Resume Next
    If Not (rst Is Nothing) Then rst.Close: Set rst = Nothing
    If Not (cnn Is Nothing) Then cnn.Close: Set cnn = Nothing
Exit Function
Err_ClsFactory:
        MsgBox Err.Description, , "Error in Function
clsSystemsCtrl.ClsFactory"
        Resume Exit_ClsFactory
    Resume 0    '.FOR TROUBLESHOOTING
End Function
Property Get cStrReplace(varVal As Variant) As clsStrReplace
On Error GoTo Err_cStrReplace
    Set cStrReplace = mcolclsSystem(CStr(varVal))
Exit_cStrReplace:
Exit Property
Err_cStrReplace:
        MsgBox Err.Description, , "Error in Property Get clsStrReplaceCtl.
cStrReplace"
        Resume Exit_cStrReplace
    Resume 0    '.FOR TROUBLESHOOTING
End Property
'
'This function will search a string for a specific marker passed in.
'Where found, the marker will be replaced by the replacement passed in.
'
Public Function mReplaceMarker(strToProcess As String, strMarker As String,
strReplacement As String)
On Error GoTo Err_mReplaceMarker
Dim intPos1 As Integer
Dim intPos2 As Integer
Dim lstrToProcess As String
Dim lstrProcessed As String
Dim lstrMarker As String
'Dim lstrReplacement As String
Dim blnMarkerNotFound As Boolean
    lstrToProcess = strToProcess
    'intPos1 = 1
    Do
        blnMarkerNotFound = True
        lstrMarker = ""
        '
        'Look for a marker
        '
        intPos1 = InStr(intPos1 + 1, lstrToProcess, "|")
        If intPos1 > intPos2 Then
            intPos2 = InStr(intPos1 + 1, lstrToProcess, "|")
            If intPos2 > intPos1 Then
                lstrMarker = mID$(lstrToProcess, intPos1 + 1, intPos2 -
intPos1 - 1)
                If Len(lstrMarker) > 0 Then
                    blnMarkerNotFound = False
                    On Error Resume Next
                    If lstrMarker = strMarker Then
                        '
                        'I only use the lstrProcessed so I can watch the
process as I am programming it.
                        'Replace this when debugged
                        '
                        'lstrReplacement =
cStrReplace(lstrMarker).pReplacement
                        lstrProcessed = Replace(lstrToProcess, "|" &
lstrMarker & "|", strReplacement)
                        lstrToProcess = lstrProcessed
                    Else
                        intPos1 = intPos2 + 1
                        
                    End If
                    'intPos1 = intPos2 + 1
                Else
                End If
            Else
            End If
        Else
        End If
    Loop Until blnMarkerNotFound
    mReplaceMarker = lstrToProcess
Exit_mReplaceMarker:
Exit Function
Err_mReplaceMarker:
        MsgBox Err.Description, , "Error in Function
clsStrReplaceCtl.mReplaceMarker"
        Resume Exit_mReplaceMarker
    Resume 0    '.FOR TROUBLESHOOTING
End Function
'
'This function will search strings for embedded "replacement markers"
denoted by |SomeValue|
'Where found, these replacement markers will be looked up in the
tblStrReplacement (the loaded collection)
'and if found, the replacement marker will be replaced with the replacement
value.
'
'If not found, the Replacement marker will be left in place untouched.
'
Public Function mReplaceMarkers(strToProcess As String) As String
On Error GoTo Err_mReplaceMarkers
Dim intPos1 As Integer
Dim intPos2 As Integer
Dim lstrToProcess As String
Dim lstrProcessed As String
Dim lstrMarker As String
Dim lstrReplacement As String
Dim cSR As clsStrReplace

Dim blnMarkerNotFound As Boolean
    lstrToProcess = strToProcess
    'intPos1 = 1
    Do
        blnMarkerNotFound = True
        lstrMarker = ""
        '
        'Look for a marker
        '
        intPos1 = InStr(intPos1 + 1, lstrToProcess, "|")
        If intPos1 > intPos2 Then
            intPos2 = InStr(intPos1 + 1, lstrToProcess, "|")
            If intPos2 > intPos1 Then
                lstrMarker = mID$(lstrToProcess, intPos1 + 1, intPos2 -
intPos1 - 1)
                If Len(lstrMarker) > 0 Then
                    blnMarkerNotFound = False
                    On Error Resume Next
                    Set cSR = mcolclsSystem(lstrMarker)
                    If Err = 0 Then
                        '
                        'I only use the lstrProcessed so I can watch the
process as I am programming it.
                        'Replace this when debugged
                        '
                        lstrReplacement =
cStrReplace(lstrMarker).pReplacement
                        lstrProcessed = Replace(lstrToProcess, "|" &
lstrMarker & "|", lstrReplacement)
                        lstrToProcess = lstrProcessed
                    Else
                        intPos1 = intPos2 + 1
                        
                    End If
        On Error GoTo Err_mReplaceMarkers
                    'intPos1 = intPos2 + 1
                Else
                End If
            Else
            End If
        Else
        End If
    Loop Until blnMarkerNotFound
    mReplaceMarkers = lstrToProcess
Exit_mReplaceMarkers:
Exit Function
Err_mReplaceMarkers:
        MsgBox Err.Description, , "Error in Function
clsStrReplaceCtl.mReplaceMarkers"
        Resume Exit_mReplaceMarkers
    Resume 0    '.FOR TROUBLESHOOTING
End Function
'*******************
'End Code Code Code Code
'*******************

The following code tests the control class clsStrReplaceCtl:

'*******************
'Begin Code Code Code Code
'*******************
Option Compare Database
Option Explicit

Private mclsStrReplaceCtl As clsStrReplaceCtl
Function StrReplaceInit(strTbl As String)
    If mclsStrReplaceCtl Is Nothing Then
        Set mclsStrReplaceCtl = New clsStrReplaceCtl
        mclsStrReplaceCtl.mInit strTbl
    End If
End Function
Function StrReplaceTerm()
    Set mclsStrReplaceCtl = Nothing
End Function
Public Function cSRC() As clsStrReplaceCtl
    Set cSRC = mclsStrReplaceCtl
End Function
Function TestReplace()
Dim strToTest As String
Dim strResults As String
    StrReplaceInit "tblStrReplace"
    strToTest = "This is a |specific| test.  |Author| is a very nice guy.
His phone is |Phone|.  His email is |email|.  I hope that this is enough to
|test|"
    strResults = cSRC.mReplaceMarkers(strToTest)
    Debug.Print strResults
    strToTest = strResults
    strResults = cSRC.mReplaceMarker(strToTest, "specific", "Very specific")
    Debug.Print strResults
    strToTest = strResults
    strResults = cSRC.mReplaceMarker(strToTest, "test", "work with")
    Debug.Print strResults
End Function
'*******************
'End Code Code Code Code
'*******************

Author, Phone and Email will be found in the table, Specific and Test will
be "run time replacement" tests.

This is a rather example of how I use child / controller classes.  The data
gets cached to speed up access to what would non-changing data in a table,
and then accessed from child classes stored in a collection in the
controller.

I have pretty much finished an Add-in to build the child / controller class
pair for a given table.  The add-in uses this string replacement system.  It
was an interesting exercise in frustration trying to get the finished
classes to save properly (thanks Shamil for the solution).

John W. Colby
www.ColbyConsulting.com 


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



From jmhecht at earthlink.net  Sun Jan 15 22:57:56 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sun, 15 Jan 2006 20:57:56 -0800
Subject: [AccessD] Conditional Format Question
Message-ID: <001f01c61a59$6abdc130$6701a8c0@HPLaptop>

I have series of date fields that represent license
expiration dates.

 

I have tried to do a conditional format where 

 

            If field value < now () bold the field

 

Where field value is the expiration date.

 

Nothing happens to the field.

 

Any ideas?

 

 

 

 

Joe Hecht

jmhecht at earthlink.net

 



From accessd at shaw.ca  Mon Jan 16 00:36:40 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Sun, 15 Jan 2006 22:36:40 -0800
Subject: [AccessD] Conditional Format Question
In-Reply-To: <001f01c61a59$6abdc130$6701a8c0@HPLaptop>
Message-ID: <000c01c61a67$3617c940$017ba8c0@xpserver>

Hi Jim:

It would not be as simple as field.text (what displays) and field.value
(what the field value was). Barring that it may be that the field stored
value is represented as a string and is not comparing with date value or the
formatting is different. Have you tried something like? :

If format(me.field.value,"yyyymmdd") < format(now(),"yyyymmdd") then bold
field.

HTH
Jim 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: January 15, 2006 8:58 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Conditional Format Question

I have series of date fields that represent license
expiration dates.

 

I have tried to do a conditional format where 

 

            If field value < now () bold the field

 

Where field value is the expiration date.

 

Nothing happens to the field.

 

Any ideas?

 

 

 

 

Joe Hecht

jmhecht at earthlink.net

 

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



From cfoust at infostatsystems.com  Mon Jan 16 10:40:43 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 16 Jan 2006 08:40:43 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF26@INFOSERVER04.infostat.local>

I don't know what you mean, Josh, but I suspect you haven't had actual
experience with SourceSafe.  We use SourceSafe with Access and with
VB.Net and have no problems comparing versions.  With Access, you do
need the add-in that allows you to work with Source Safe from within
Access (comes with the ODE, if I remember correctly).  This maintains
each object as a separate sourcesafe file, not the entire database.  Nor
have we had the corruption issues you describe.  ANY file can and will
corrupt.  It isn't peculiar to any particular product or program.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Saturday, January 14, 2006 2:35 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/14/06, Dan Waters <dwaters at usinternet.com> wrote:
> Has anyone used a program called Vault from Sourcegear, or Perforce, 
> while programming in Access?  If it worked, was it useful?

Dan,

For Access IIRC, source control will lose one of it's most important
featuers (diff'ing) with Access because Access is stored as a binary
file.

That said, I've used 3 different source control programs while working
on C++ coding.

Visual Source-Safe: Steer clear of this one - It's outdated and has a
high corruption rate on the source control database.

CVS: Open-source, widely used, and widely tested. Nice for single-file
verisoning. Made for Unix but NT versions are also available

Subversion: Also open source, this is what we currently use in shop. It
maintains versioning on a per-repository basis rather than a per-file
basis. Very very nice freeware client called TortioseSVN. Was fairly
easy to set up also. Also tracks file renames, directory changes, and
other meta information. Allows you to also add a meta-tag to track
changes due to bug-fixes from bug-tracking software, etc.

As a whole, it'd work great for a backup / revision system as long as
you made sure that when you checked in files you comment what changed.

If you try out Vault or Perforce, let me know what you think.

--
Josh McFarlane


From dwaters at usinternet.com  Mon Jan 16 11:19:52 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Mon, 16 Jan 2006 11:19:52 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <24856680.1137430014235.JavaMail.root@sniper21>
Message-ID: <001001c61ac1$10395180$0200a8c0@danwaters>

Charlotte,

I've seen where I can download this add-in for Access 2003, but I was
wondering if the add-in can also be used with Access XP?

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Monday, January 16, 2006 10:41 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control

I don't know what you mean, Josh, but I suspect you haven't had actual
experience with SourceSafe.  We use SourceSafe with Access and with
VB.Net and have no problems comparing versions.  With Access, you do
need the add-in that allows you to work with Source Safe from within
Access (comes with the ODE, if I remember correctly).  This maintains
each object as a separate sourcesafe file, not the entire database.  Nor
have we had the corruption issues you describe.  ANY file can and will
corrupt.  It isn't peculiar to any particular product or program.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Saturday, January 14, 2006 2:35 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/14/06, Dan Waters <dwaters at usinternet.com> wrote:
> Has anyone used a program called Vault from Sourcegear, or Perforce, 
> while programming in Access?  If it worked, was it useful?

Dan,

For Access IIRC, source control will lose one of it's most important
featuers (diff'ing) with Access because Access is stored as a binary
file.

That said, I've used 3 different source control programs while working
on C++ coding.

Visual Source-Safe: Steer clear of this one - It's outdated and has a
high corruption rate on the source control database.

CVS: Open-source, widely used, and widely tested. Nice for single-file
verisoning. Made for Unix but NT versions are also available

Subversion: Also open source, this is what we currently use in shop. It
maintains versioning on a per-repository basis rather than a per-file
basis. Very very nice freeware client called TortioseSVN. Was fairly
easy to set up also. Also tracks file renames, directory changes, and
other meta information. Allows you to also add a meta-tag to track
changes due to bug-fixes from bug-tracking software, etc.

As a whole, it'd work great for a backup / revision system as long as
you made sure that when you checked in files you comment what changed.

If you try out Vault or Perforce, let me know what you think.

--
Josh McFarlane
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From cfoust at infostatsystems.com  Mon Jan 16 11:59:23 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 16 Jan 2006 09:59:23 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF28@INFOSERVER04.infostat.local>

I should think so.  Both XP and 2003 are based on VB6, not VS.Net, so
you should be able to use it.  Worth a try anyhow.  We're still using
Access XP to maintain our current generation apps, so I can't test it.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: Monday, January 16, 2006 9:20 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Source Code Control


Charlotte,

I've seen where I can download this add-in for Access 2003, but I was
wondering if the add-in can also be used with Access XP?

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Monday, January 16, 2006 10:41 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control

I don't know what you mean, Josh, but I suspect you haven't had actual
experience with SourceSafe.  We use SourceSafe with Access and with
VB.Net and have no problems comparing versions.  With Access, you do
need the add-in that allows you to work with Source Safe from within
Access (comes with the ODE, if I remember correctly).  This maintains
each object as a separate sourcesafe file, not the entire database.  Nor
have we had the corruption issues you describe.  ANY file can and will
corrupt.  It isn't peculiar to any particular product or program.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Saturday, January 14, 2006 2:35 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/14/06, Dan Waters <dwaters at usinternet.com> wrote:
> Has anyone used a program called Vault from Sourcegear, or Perforce,
> while programming in Access?  If it worked, was it useful?

Dan,

For Access IIRC, source control will lose one of it's most important
featuers (diff'ing) with Access because Access is stored as a binary
file.

That said, I've used 3 different source control programs while working
on C++ coding.

Visual Source-Safe: Steer clear of this one - It's outdated and has a
high corruption rate on the source control database.

CVS: Open-source, widely used, and widely tested. Nice for single-file
verisoning. Made for Unix but NT versions are also available

Subversion: Also open source, this is what we currently use in shop. It
maintains versioning on a per-repository basis rather than a per-file
basis. Very very nice freeware client called TortioseSVN. Was fairly
easy to set up also. Also tracks file renames, directory changes, and
other meta information. Allows you to also add a meta-tag to track
changes due to bug-fixes from bug-tracking software, etc.

As a whole, it'd work great for a backup / revision system as long as
you made sure that when you checked in files you comment what changed.

If you try out Vault or Perforce, let me know what you think.

--
Josh McFarlane
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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


From Gustav at cactus.dk  Mon Jan 16 12:08:21 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 16 Jan 2006 19:08:21 +0100
Subject: [AccessD] Path to Word 12
Message-ID: <s3cbef36.050@cactus.dk>

Hi all

In the registry, the path for Word 11 object library is here:

HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{00020905-0000-0000-C000-000000000046}\8.3\0\win32

Has anyone the beta 12 installed?
Would the path be here:

HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{00020905-0000-0000-C000-000000000046}\8.4\0\win32

/gustav



From mwp.reid at qub.ac.uk  Mon Jan 16 12:38:17 2006
From: mwp.reid at qub.ac.uk (Martin Reid)
Date: Mon, 16 Jan 2006 18:38:17 -0000
Subject: [AccessD] Path to Word 12
References: <s3cbef36.050@cactus.dk>
Message-ID: <000a01c61acc$04f05e30$beb8fea9@Martin>

Points at OFFICE12\MSWORD.OLB

Martin



----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Monday, January 16, 2006 6:08 PM
Subject: [AccessD] Path to Word 12


> Hi all
>
> In the registry, the path for Word 11 object library is here:
>
> HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{00020905-0000-0000-C000-000000000046}\8.3\0\win32
>
> Has anyone the beta 12 installed?
> Would the path be here:
>
> HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{00020905-0000-0000-C000-000000000046}\8.4\0\win32
>
> /gustav
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From mwp.reid at qub.ac.uk  Mon Jan 16 12:50:26 2006
From: mwp.reid at qub.ac.uk (mwp.reid at qub.ac.uk)
Date: Mon, 16 Jan 2006 18:50:26 -0000
Subject: [AccessD] Path to Word 12
Message-ID: <200601161850.k0GIoJV04582@databaseadvisors.com>

When I have dinner will check

-----Original Message-----
    From: "Gustav Brock"<Gustav at cactus.dk>
    Sent: 1/16/06 6:08:21 PM
    To: "accessd at databaseadvisors.com"<accessd at databaseadvisors.com>
    Subject: [AccessD] Path to Word 12
    
    Hi all
    
    In the registry, the path for Word 11 object library is here:
    
    HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{00020905-0000-0000-C000-000000000046}\8.3\0\win32
    
    Has anyone the beta 12 installed?
    Would the path be here:
    
    HKEY_LOCAL_MACHINE\SOFTWARE\Classes\TypeLib\{00020905-0000-0000-C000-000000000046}\8.4\0\win32
    
    /gustav
    
    -- 
    AccessD mailing list
    AccessD at databaseadvisors.com
    http://databaseadvisors.com/mailman/listinfo/accessd
    Website: http://www.databaseadvisors.com



From harkinsss at bellsouth.net  Mon Jan 16 13:17:32 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Mon, 16 Jan 2006 14:17:32 -0500
Subject: [AccessD] Padding text values
Message-ID: <000201c61ad1$80b17b80$c5b3d6d1@SUSANONE>

I thought I could pad a text value with a simple expression in Format or
Default, but can't come up with it -- I know I could write a function to do
this, but seems this should be a simple property expression. I don't want to
force the user to enter 045 instead of 45 -- I want to add the leading zero.
I'm pulling a complete blank. 
 
Susan H. 


From developer at ultradnt.com  Mon Jan 16 13:25:04 2006
From: developer at ultradnt.com (Steve Conklin)
Date: Mon, 16 Jan 2006 14:25:04 -0500
Subject: [AccessD] Padding text values
In-Reply-To: <000201c61ad1$80b17b80$c5b3d6d1@SUSANONE>
Message-ID: <200601161925.k0GJP5E23011@ultradnt.com>

Format(str, 00#) 

Hth
Steve 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Monday, January 16, 2006 2:18 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Padding text values

I thought I could pad a text value with a simple expression in Format or
Default, but can't come up with it -- I know I could write a function to do
this, but seems this should be a simple property expression. I don't want to
force the user to enter 045 instead of 45 -- I want to add the leading zero.
I'm pulling a complete blank. 
 
Susan H. 
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From developer at ultradnt.com  Mon Jan 16 13:26:01 2006
From: developer at ultradnt.com (Steve Conklin)
Date: Mon, 16 Jan 2006 14:26:01 -0500
Subject: [AccessD] Padding text values
Message-ID: <200601161926.k0GJQ2E23127@ultradnt.com>

 Format(str, "00#") - that is :)


-----Original Message-----
From: Steve Conklin [mailto:developer at ultradnt.com] 
Sent: Monday, January 16, 2006 2:25 PM
To: 'Access Developers discussion and problem solving'
Subject: RE: [AccessD] Padding text values

Format(str, 00#) 

Hth
Steve 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Monday, January 16, 2006 2:18 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Padding text values

I thought I could pad a text value with a simple expression in Format or
Default, but can't come up with it -- I know I could write a function to do
this, but seems this should be a simple property expression. I don't want to
force the user to enter 045 instead of 45 -- I want to add the leading zero.
I'm pulling a complete blank. 
 
Susan H. 
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From DElam at jenkens.com  Mon Jan 16 13:27:29 2006
From: DElam at jenkens.com (Elam, Debbie)
Date: Mon, 16 Jan 2006 13:27:29 -0600
Subject: [AccessD] Padding text values
Message-ID: <7B1961ED924D1A459E378C9B1BB22B4C0492D29B@natexch.jenkens.com>

I ended up writing functions for it.  Trailing spaces and a leading zeros
one for a fixed width text file I have to send out.

Debbie

-----Original Message-----
From: Susan Harkins [mailto:harkinsss at bellsouth.net] 
Sent: Monday, January 16, 2006 1:18 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Padding text values


I thought I could pad a text value with a simple expression in Format or
Default, but can't come up with it -- I know I could write a function to do
this, but seems this should be a simple property expression. I don't want to
force the user to enter 045 instead of 45 -- I want to add the leading zero.
I'm pulling a complete blank. 
 
Susan H. 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
- JENKENS & GILCHRIST E-MAIL NOTICE - This transmission may be: (1) subject
to the Attorney-Client Privilege, (2) an attorney work product, or (3)
strictly confidential. If you are not the intended recipient of this
message, you may not disclose, print, copy or disseminate this information.
If you have received this in error, please reply and notify the sender
(only) and delete the message. Unauthorized interception of this e-mail is a
violation of federal criminal law. 
This communication does not reflect an intention by the sender or the
sender's client or principal to conduct a transaction or make any agreement
by electronic means.  Nothing contained in this message or in any attachment
shall satisfy the requirements for a writing, and nothing contained herein
shall constitute a contract or electronic signature under the Electronic
Signatures in Global and National Commerce Act, any version of the Uniform
Electronic Transactions Act or any other statute governing electronic
transactions.


From harkinsss at bellsouth.net  Mon Jan 16 13:27:47 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Mon, 16 Jan 2006 14:27:47 -0500
Subject: [AccessD] Padding text values
In-Reply-To: <200601161925.k0GJP5E23011@ultradnt.com>
Message-ID: <000701c61ad2$ef5ad6c0$c5b3d6d1@SUSANONE>

I meant as a field property. 

Susan H. 

Format(str, 00#) 




From harkinsss at bellsouth.net  Mon Jan 16 13:33:29 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Mon, 16 Jan 2006 14:33:29 -0500
Subject: [AccessD] Padding text values
In-Reply-To: <7B1961ED924D1A459E378C9B1BB22B4C0492D29B@natexch.jenkens.com>
Message-ID: <000801c61ad3$bb8c17e0$c5b3d6d1@SUSANONE>


I ended up writing functions for it.  Trailing spaces and a leading zeros
one for a fixed width text file I have to send out.

=========I'm writing about a function -- I just wanted to cover my but*. ;)
I don't know if I just can't remember or if it isn't possible to handle
leading zeros in a text field with a field property. 

Susan H. 



From kost36 at otenet.gr  Tue Jan 17 13:57:20 2006
From: kost36 at otenet.gr (Kostas Konstantinidis)
Date: Tue, 17 Jan 2006 21:57:20 +0200
Subject: [AccessD] is it possible to rename many folders via	access?
References: <s3caa7fa.022@cactus.dk>
Message-ID: <000a01c61ba0$3a5a94d0$6401a8c0@KOST36>

Jurgen and Gustav,
many thank's for your help.

/kostas

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Sunday, January 15, 2006 8:52 PM
Subject: Re: [AccessD] is it possible to rename many folders via access?


> Hi J?rgen and Kostas
>
> Right, you have to be careful - you could destroy a complete folder 
> structure with this code if you get something wrong!
>
> Now I recall I have a helper function to get around some of the 
> limitations of Dir.
>
> <code>
>
> Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias 
> "PathIsDirectoryA" ( _
>  ByVal pszPath As String) _
>  As Long
>
> Public Function IsDir( _
>  ByVal strPath As String) _
>  As Boolean
>
> ' Returns True if strPath exists.
>
>  Dim stzPath As String
>
>  stzPath = strPath & vbNullChar
>
>  IsDir = CBool(PathIsDirectory(stzPath))
>
> End Function
>
> </code>
>
> Use this and every other error check you can think of, like:
>
>  If IsDate("1/1/" & Val(Mid(strNewName, 2))) Then
>    ...
>  End if
>
> /gustav
>
>
>>>> jwelz at hotmail.com 15-01-2006 19:28:23 >>>
> Gustav is of course correct, you need to pass the  vbDirectory parameter 
> to
> Dir in order to include folder names in the search and I had neglected to
> include this detail.
>
> Including this parameter allows Dir to return folders, but it does not
> restrict return values to folders.  It still returns files.
>
> Gustav's file spec, '*.', parameter ordinarily ensures that only files 
> will
> be returned.  However, folders may be given an extension or include a '.'
> and these will be excluded by that spec.  Also, this would return file 
> names
> that lack an extension.  In Kostas' case this is probably irrelevant since
> probably no folder names contain a '.' and there are not likely to be any
> files without an extension that would be returned by Dir.
>
> You would want to be sure that your Dir function returns test with IsDate 
> on
> a portion of the folder name beyond the 5th character that match a year
> between 1900 and 2006 (or IsNumeric).  After all, you wouldn't want Dir to
> find a renamed folder and perhaps rename it again ad infinitum, perhaps
> scrambling the folder names beyond all recognition.  You need to be sure
> your string manipulation recognizes a renamed folder.  I still use instr()
> and would test for the location of the first parenthesis.
>
> Ciao
> J?rgen Welz
> Edmonton, Alberta
> jwelz at hotmail.com
>
>
>
>
>
>>From: "Gustav Brock" <Gustav at cactus.dk>
>
>>Hi Kostas
>>
>>Well, Dir will list your folders:
>>
>>   ' Find first folder.
>>   strFolder = Dir(strParent & "\*.", vbDirectory)
>>   While Len(strFolder) > 0
>>     ' Pick movie.
>>     strName = Split(strFolder, "-")(0)
>>     lngLen = Len(strName)
>>     ' Rearrange movie and concatenate with composer.
>>     strNewName = Right(strName, 6) & " " & Left(strName, lngLen - 7) & 
>> "-"
>>& Split(strFolder, "-")(1)
>>     ' Build old and new path.
>>     strPath = strParent & "\" & strFolder
>>     strNewPath = strParent & "\" & strNewName
>>     ' Rename folder.
>>     Name strPath As strNewPath
>>     ' Find next folder.
>>     strFolder = Dir
>>   Wend
>>
>>/gustav
>>
>> >>> kost36 at otenet.gr 16-01-2006 17:46:16 >>>
>>Jurgen,
>>KING KONG was just an example.
>>every folder has its unic name
>>My example was refferenced to that, trying to explain the format of the
>>folder names e.g.
>>
>>Movie Title (Year) - Composer
>>
>>thank's for your response
>>/kostas
>>
>>----- Original Message -----
>>From: "Jurgen Welz" <jwelz at hotmail.com>
>>To: <accessd at databaseadvisors.com>
>>Sent: Sunday, January 15, 2006 6:37 PM
>>Subject: Re: [AccessD] is it possible to rename many folders via access?
>>
>>
>> > Kostas:
>> >
>> > You can use the Dir function to return file/folder names that match the
>> > spec, check the return value as to whether it is a directory with
>>GetAttr
>> > (If (GetAttr(strDirReturn) And vbDirectory) = vbDirectory Then) and 
>> > then
>> > use
>> > the Name "C:\FilePath" As "C:\NewFilePath" syntax to rename folders.
>> >
>> > Obviously all your folders can't have the same name and be in the same
>> > location.  EIther they are elsewhere in the directory structure or on
>> > various drives and/or machines.  You'll either need to to a recursive
>> > search
>> > with the Dir function to return the original folder names, unless the
>> > folders have some kind of suffix like:  KING KONG (1933) - Max Steiner
>>A.
>> >
>> > Do all the folders have exactly the same name, or is that just the 
>> > start
>> > of
>> > the name and they have various suffixes and share the same root?
>> >
>> >
>> >
>> > Ciao
>> > J?rgen Welz
>> > Edmonton, Alberta
>> > jwelz at hotmail.com
>> >
>> >
>> >
>> >
>> >
>> >>From: "Kostas Konstantinidis" <kost36 at otenet.gr>
>> >>
>> >>I have about 7.000 folders saved as .
>> >>KING KONG (1933) - Max Steiner
>> >>what I want to do is to rename all the folders as
>> >>(1933) KING KONG - Max Steiner
>> >>
>> >>is that possible?
>> >>thank's a lot
>> >>/kostas
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
> 




From jwcolby at ColbyConsulting.com  Mon Jan 16 14:15:31 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 16 Jan 2006 15:15:31 -0500
Subject: [AccessD] Ensuring FTP completion
Message-ID: <009901c61ad9$9c256680$647aa8c0@ColbyM6805>

I am working on a system to FTP an MDB file to a web directory.  I need to
know that the file got there correctly.  Does anyone do this, and if so,
what tools do you use for the FTP up/down and how do you check to ensure
that the transfer completed?  I am going to need to do something like FTP up
under one name, then rename / delete the existing and rename the new to the
filename of the existing.  This has to be bulletproof though so I need to
know that it worked.

John W. Colby
www.ColbyConsulting.com 




From jwcolby at ColbyConsulting.com  Mon Jan 16 14:26:08 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 16 Jan 2006 15:26:08 -0500
Subject: [AccessD] Tying Outlook appointments into Access
Message-ID: <009a01c61adb$16a04500$647aa8c0@ColbyM6805>

I have finally broken down and decided to make a major push to use outlook
appointments for scheduling my client work.  In order to make this work
however I need to be able to create the appointment in Outlook and have it
create a dummy billing (time) record in my billing database, and if I delete
or drag the edges of the appointment around, have it modify my billing
records.  I know how to automate outlook, get it instantiated and watch
events etc, but I have never fiddled with anything but messages and
attachments.  

Does anyone have example code for doing this kind of stuff, particularly the
"dragging of appointment times".  Done correctly I could make appointments,
then as the time comes to do the work, I could go in to the appointment and
fill in the work done right in outlook and have the data transferred to my
billing program.

Anyone?

John W. Colby
www.ColbyConsulting.com 




From cfoust at infostatsystems.com  Mon Jan 16 14:30:10 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 16 Jan 2006 12:30:10 -0800
Subject: [AccessD] Ensuring FTP completion
Message-ID: <F55048AF7E974F429BB24597D7355EEABF29@INFOSERVER04.infostat.local>

The simplest way to validate the transfer is to attempt to copy the
transferred file.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Monday, January 16, 2006 12:16 PM
To: 'Access Developers discussion and problem solving'; Tech - Database
Advisors Inc.
Subject: [AccessD] Ensuring FTP completion


I am working on a system to FTP an MDB file to a web directory.  I need
to know that the file got there correctly.  Does anyone do this, and if
so, what tools do you use for the FTP up/down and how do you check to
ensure that the transfer completed?  I am going to need to do something
like FTP up under one name, then rename / delete the existing and rename
the new to the filename of the existing.  This has to be bulletproof
though so I need to know that it worked.

John W. Colby
www.ColbyConsulting.com 


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


From cfoust at infostatsystems.com  Mon Jan 16 14:31:32 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 16 Jan 2006 12:31:32 -0800
Subject: [AccessD] Padding text values
Message-ID: <F55048AF7E974F429BB24597D7355EEABF2A@INFOSERVER04.infostat.local>

What kind of field property are you thinking of, Susan?  Are you talking
about the displayformat property?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Monday, January 16, 2006 11:28 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Padding text values


I meant as a field property. 

Susan H. 

Format(str, 00#) 


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


From DWUTKA at marlow.com  Mon Jan 16 14:46:40 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Mon, 16 Jan 2006 14:46:40 -0600
Subject: [AccessD] Ensuring FTP completion
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD55E@main2.marlow.com>

I use API's in two class modules to download FTP stuff.  Let me know if you
would like them.

Drew

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Monday, January 16, 2006 2:16 PM
To: 'Access Developers discussion and problem solving'; Tech - Database
Advisors Inc.
Subject: [AccessD] Ensuring FTP completion


I am working on a system to FTP an MDB file to a web directory.  I need to
know that the file got there correctly.  Does anyone do this, and if so,
what tools do you use for the FTP up/down and how do you check to ensure
that the transfer completed?  I am going to need to do something like FTP up
under one name, then rename / delete the existing and rename the new to the
filename of the existing.  This has to be bulletproof though so I need to
know that it worked.

John W. Colby
www.ColbyConsulting.com 


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


From shamil at users.mns.ru  Mon Jan 16 15:03:29 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 17 Jan 2006 00:03:29 +0300
Subject: [AccessD] Source Code Control
References: <F55048AF7E974F429BB24597D7355EEABF28@INFOSERVER04.infostat.local>
Message-ID: <00ed01c61ae0$694cdfc0$6401a8c0@fincomplex.spb.ru>

Just checked -
http://www.microsoft.com/downloads/details.aspx?familyid=2ea45ff4-a916-48c5-8f84-44b91fa774bc&displaylang=en -
it worked here well with both MS Access 2003 and MS Access XP.

But it is still unclear will it work OK on a pure MS Office XP system
or not because they say it needs MS Office 2003 SP1 installed.

I did have MS Office 2003 SP1 installed before I installed and run this
add-in.

It may happen MS Office 2003 SP1 patches some system/shared files used by
both MS Office XP and MS Office 2003.

And I guess MS Office 2003 SP1 can't be installed for MS Office XP.
Then this add-in may not work properly.

Shamil

----- Original Message ----- 
From: "Charlotte Foust" <cfoust at infostatsystems.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Monday, January 16, 2006 8:59 PM
Subject: Re: [AccessD] Source Code Control


> I should think so.  Both XP and 2003 are based on VB6, not VS.Net, so
> you should be able to use it.  Worth a try anyhow.  We're still using
> Access XP to maintain our current generation apps, so I can't test it.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
> Sent: Monday, January 16, 2006 9:20 AM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Source Code Control
>
>
> Charlotte,
>
> I've seen where I can download this add-in for Access 2003, but I was
> wondering if the add-in can also be used with Access XP?
>
> Dan
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
> Foust
> Sent: Monday, January 16, 2006 10:41 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Source Code Control
>
> I don't know what you mean, Josh, but I suspect you haven't had actual
> experience with SourceSafe.  We use SourceSafe with Access and with
> VB.Net and have no problems comparing versions.  With Access, you do
> need the add-in that allows you to work with Source Safe from within
> Access (comes with the ODE, if I remember correctly).  This maintains
> each object as a separate sourcesafe file, not the entire database.  Nor
> have we had the corruption issues you describe.  ANY file can and will
> corrupt.  It isn't peculiar to any particular product or program.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
> McFarlane
> Sent: Saturday, January 14, 2006 2:35 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Source Code Control
>
>
> On 1/14/06, Dan Waters <dwaters at usinternet.com> wrote:
> > Has anyone used a program called Vault from Sourcegear, or Perforce,
> > while programming in Access?  If it worked, was it useful?
>
> Dan,
>
> For Access IIRC, source control will lose one of it's most important
> featuers (diff'ing) with Access because Access is stored as a binary
> file.
>
> That said, I've used 3 different source control programs while working
> on C++ coding.
>
> Visual Source-Safe: Steer clear of this one - It's outdated and has a
> high corruption rate on the source control database.
>
> CVS: Open-source, widely used, and widely tested. Nice for single-file
> verisoning. Made for Unix but NT versions are also available
>
> Subversion: Also open source, this is what we currently use in shop. It
> maintains versioning on a per-repository basis rather than a per-file
> basis. Very very nice freeware client called TortioseSVN. Was fairly
> easy to set up also. Also tracks file renames, directory changes, and
> other meta information. Allows you to also add a meta-tag to track
> changes due to bug-fixes from bug-tracking software, etc.
>
> As a whole, it'd work great for a backup / revision system as long as
> you made sure that when you checked in files you comment what changed.
>
> If you try out Vault or Perforce, let me know what you think.
>
> --
> Josh McFarlane
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From stuart at lexacorp.com.pg  Mon Jan 16 15:32:59 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 17 Jan 2006 07:32:59 +1000
Subject: [AccessD] Padding text values
In-Reply-To: <000801c61ad3$bb8c17e0$c5b3d6d1@SUSANONE>
References: <7B1961ED924D1A459E378C9B1BB22B4C0492D29B@natexch.jenkens.com>
Message-ID: <43CC9DAB.18142.3AE0A6A@stuart.lexacorp.com.pg>

On 16 Jan 2006 at 14:33, Susan Harkins wrote:

> =========I'm writing about a function -- I just wanted to cover my but*. ;)
> I don't know if I just can't remember or if it isn't possible to handle
> leading zeros in a text field with a field property. 
> 

Leading zeros formatting only works with numeric values.
One way to pad a text field that contains only numerics is 
Format$(val(strText),"0000")



-- 
Stuart




From harkinsss at bellsouth.net  Mon Jan 16 15:57:56 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Mon, 16 Jan 2006 16:57:56 -0500
Subject: [AccessD] Padding text values
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF2A@INFOSERVER04.infostat.local>
Message-ID: <000b01c61ae7$f0a4d660$ccb3d6d1@SUSANONE>

Charlotte, Numeric fields are easy to pad -- in the Format property, you use
the 0 character for each character you want to force. I know that won't work
with a text field, but it just seems like I remember some kind of
expression/trick either in the Format or the Default property -- but I'm old
and I may be remembering something else. ;) 

Susan H. 

What kind of field property are you thinking of, Susan?  Are you talking
about the displayformat property?




From harkinsss at bellsouth.net  Mon Jan 16 16:25:03 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Mon, 16 Jan 2006 17:25:03 -0500
Subject: [AccessD] Padding text values
In-Reply-To: <43CC9DAB.18142.3AE0A6A@stuart.lexacorp.com.pg>
Message-ID: <003601c61aeb$ba1394c0$ccb3d6d1@SUSANONE>

Right -- :) 

I'm just remembering something incorrectly Stuart -- I do it all the time.
:) 

Susan H. 

Leading zeros formatting only works with numeric values.
One way to pad a text field that contains only numerics is
Format$(val(strText),"0000")




From harkinsss at bellsouth.net  Mon Jan 16 16:25:03 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Mon, 16 Jan 2006 17:25:03 -0500
Subject: [AccessD] Padding text values
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF2A@INFOSERVER04.infostat.local>
Message-ID: <003701c61aeb$bed5d7c0$ccb3d6d1@SUSANONE>

Format or Default -- don't think about it anymore Charlotte. If I were
remembering it correctly, somebody besides me would remember it. And, I
don't actually need it -- I just wanted to cover it in the article if there
was something that worked at the field level. 

Susan H. 

What kind of field property are you thinking of, Susan?  Are you talking
about the displayformat property?




From jimdettman at earthlink.net  Mon Jan 16 16:40:38 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Mon, 16 Jan 2006 17:40:38 -0500
Subject: [AccessD] Ensuring FTP completion
In-Reply-To: <009901c61ad9$9c256680$647aa8c0@ColbyM6805>
Message-ID: <NDEALJOEGMMPCDKIFGNFEENBIAAA.jimdettman@earthlink.net>

John,

  Your going to quickly find that FTP is not fool proof.  Copying, renaming,
etc is not a valid way of checking if the file transmission is complete.  It
is possible to move/rename a partially copied file.  There is no locking.
Also, you going to find that files can be added/removed from the directory
while your working with it.

A couple of different techniques:

1. Zip the file before sending.  The zip/unzip builds in a check sum.  If
you unzip on the remote end and don't have the file, you'll get an error.

2. When working with a file, copy/rename to another directory that's
exclusive to you.

3. When downloading files, take a snapshot of the files that are there at
the start of processing, then work off the snapshot list.    Many FTP batch
jobs fail because they do a MGET followed by an MDEL.  In the meantime, new
files may have been uploaded.  Result, the newly uploaded file disappears.

 As an alternative, you can purchase AS2 software, which is basically
transactional messaging software for file transfers across the internet.
Most AS2 software supports both HTTP and FTP protocols.

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
Sent: Monday, January 16, 2006 3:16 PM
To: 'Access Developers discussion and problem solving'; Tech - Database
Advisors Inc.
Subject: [AccessD] Ensuring FTP completion


I am working on a system to FTP an MDB file to a web directory.  I need to
know that the file got there correctly.  Does anyone do this, and if so,
what tools do you use for the FTP up/down and how do you check to ensure
that the transfer completed?  I am going to need to do something like FTP up
under one name, then rename / delete the existing and rename the new to the
filename of the existing.  This has to be bulletproof though so I need to
know that it worked.

John W. Colby
www.ColbyConsulting.com


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




From reuben at gfconsultants.com  Mon Jan 16 17:51:44 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Mon, 16 Jan 2006 18:51:44 -0500
Subject: [AccessD] Ensuring FTP completion
In-Reply-To: <009901c61ad9$9c256680$647aa8c0@ColbyM6805>
Message-ID: <DPEKLCIHBOJKCKJECLCPCECDDBAA.reuben@gfconsultants.com>

I do it (upload) quite a bit, John.  Actually my clients do it and I have
yet to have a failure once the FTP starts.  The only problem I have had
appears to be a client issue and they are working on it.

My app zips the file (using the zip stuff I got from you) and an FTP thing I
got from Gustav.

I'll send it if you're interested.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
> Sent: Monday, January 16, 2006 3:16 PM
> To: 'Access Developers discussion and problem solving'; Tech - Database
> Advisors Inc.
> Subject: [AccessD] Ensuring FTP completion
>
>
> I am working on a system to FTP an MDB file to a web directory.  I need to
> know that the file got there correctly.  Does anyone do this, and if so,
> what tools do you use for the FTP up/down and how do you check to ensure
> that the transfer completed?  I am going to need to do something
> like FTP up
> under one name, then rename / delete the existing and rename the
> new to the
> filename of the existing.  This has to be bulletproof though so I need to
> know that it worked.
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From robert at servicexp.com  Mon Jan 16 19:02:21 2006
From: robert at servicexp.com (Robert Gracie)
Date: Mon, 16 Jan 2006 20:02:21 -0500
Subject: [AccessD] Ensuring FTP completion
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CDE@gbsserver.GBS.local>

I know this may not be popular, but if you are going to be doing mission
critical communications, you should look into utilizing something like
the IP Works V6. components. Their controls are quite robust. 


Robert Gracie
www.servicexp.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Monday, January 16, 2006 3:45 PM
To: 'Access Developers discussion and problem solving'; Tech - Database
Advisors Inc.
Subject: [AccessD] Ensuring FTP completion

I am working on a system to FTP an MDB file to a web directory.  I need
to know that the file got there correctly.  Does anyone do this, and if
so, what tools do you use for the FTP up/down and how do you check to
ensure that the transfer completed?  I am going to need to do something
like FTP up under one name, then rename / delete the existing and rename
the new to the filename of the existing.  This has to be bulletproof
though so I need to know that it worked.

John W. Colby
www.ColbyConsulting.com 


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




From jwcolby at ColbyConsulting.com  Mon Jan 16 18:57:49 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 16 Jan 2006 19:57:49 -0500
Subject: [AccessD] Slipstick code
Message-ID: <00bd01c61b01$0a2c9910$647aa8c0@ColbyM6805>

Does Slipstick still share code?  I am not finding any demo code out there.

John W. Colby
www.ColbyConsulting.com 




From robert at servicexp.com  Mon Jan 16 21:01:22 2006
From: robert at servicexp.com (Robert Gracie)
Date: Mon, 16 Jan 2006 22:01:22 -0500
Subject: [AccessD] Subform colummn adjustment?
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CDF@gbsserver.GBS.local>


Is there ANY way to allow a user to set the column width and row height
(datasheet view) to their choice and SAVE that choice in an MDE?


Robert Gracie 
www.gbsysnow.com


From martyconnelly at shaw.ca  Mon Jan 16 22:59:33 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 16 Jan 2006 20:59:33 -0800
Subject: [AccessD] Tying Outlook appointments into Access
References: <009a01c61adb$16a04500$647aa8c0@ColbyM6805>
Message-ID: <43CC79B5.9060506@shaw.ca>

Have a looksee here
http://www.outlookcode.com


John Colby wrote:

>I have finally broken down and decided to make a major push to use outlook
>appointments for scheduling my client work.  In order to make this work
>however I need to be able to create the appointment in Outlook and have it
>create a dummy billing (time) record in my billing database, and if I delete
>or drag the edges of the appointment around, have it modify my billing
>records.  I know how to automate outlook, get it instantiated and watch
>events etc, but I have never fiddled with anything but messages and
>attachments.  
>
>Does anyone have example code for doing this kind of stuff, particularly the
>"dragging of appointment times".  Done correctly I could make appointments,
>then as the time comes to do the work, I could go in to the appointment and
>fill in the work done right in outlook and have the data transferred to my
>billing program.
>
>Anyone?
>
>John W. Colby
>www.ColbyConsulting.com 
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From martyconnelly at shaw.ca  Mon Jan 16 23:01:22 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 16 Jan 2006 21:01:22 -0800
Subject: [AccessD] Slipstick code
References: <00bd01c61b01$0a2c9910$647aa8c0@ColbyM6805>
Message-ID: <43CC7A22.4070002@shaw.ca>

It has moved to its sister site outlookcode.com

John Colby wrote:

>Does Slipstick still share code?  I am not finding any demo code out there.
>
>John W. Colby
>www.ColbyConsulting.com 
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From jmhecht at earthlink.net  Mon Jan 16 23:50:47 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Mon, 16 Jan 2006 21:50:47 -0800
Subject: [AccessD] Development Cycle BE Question
Message-ID: <004501c61b29$f71fe6f0$6701a8c0@HPLaptop>

As I develop the project I am working on, I am rudely
reminded that the data I have been working with is from last
September.

 

I may need to take the old tables with the current data and
slice and dice them again to normalize.

 

How many of you while developing take clients data back end
data so you are working with the most current data while
doing pre lease builds?

 

Does this question make sense?

 

Joe Hecht

jmhecht at earthlink.net

 



From bchacc at san.rr.com  Tue Jan 17 00:01:19 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 16 Jan 2006 22:01:19 -0800
Subject: [AccessD] Development Cycle BE Question
In-Reply-To: <004501c61b29$f71fe6f0$6701a8c0@HPLaptop>
References: <004501c61b29$f71fe6f0$6701a8c0@HPLaptop>
Message-ID: <43CC882F.3010902@san.rr.com>

There's no substitute for working with the client's own data.  For 
development or enhancement of existing apps. 

But if you need to make changes to the structure of the data then you 
have a coordination problem. 

I find the best way is to write a small app that makes those 
transformations to the back end database.  Then, as the client updates 
you with their latest data you can transform the old database to the new 
one.  And at the end, when you send them the new app, you can send them 
the transformation app as well so they can run it on their data.  It 
also has the side effect of consolidating all of your back end changes 
in one place. 

Hope that makes sense.  It's late.

Rocky


Joe Hecht wrote:
> As I develop the project I am working on, I am rudely
> reminded that the data I have been working with is from last
> September.
>
>  
>
> I may need to take the old tables with the current data and
> slice and dice them again to normalize.
>
>  
>
> How many of you while developing take clients data back end
> data so you are working with the most current data while
> doing pre lease builds?
>
>  
>
> Does this question make sense?
>
>  
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>  
>
>   


From stuart at lexacorp.com.pg  Tue Jan 17 00:29:24 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 17 Jan 2006 16:29:24 +1000
Subject: [AccessD] Development Cycle BE Question
In-Reply-To: <004501c61b29$f71fe6f0$6701a8c0@HPLaptop>
Message-ID: <43CD1B64.9381.5992485@stuart.lexacorp.com.pg>

On 16 Jan 2006 at 21:50, Joe Hecht wrote:

> 
> How many of you while developing take clients data back end
> data so you are working with the most current data while
> doing pre lease builds?
> 

I've been slicing and dicing current data all day while developing a new 
app to replace a piece of cr*p that is currently in use.  The existing app 
is one of the worst I've ever come across.  It's for monitoring palm oil 
mill production. It's totally denormalised - the names and number of 
presses, sterilisers, and estates supplying the mill etc are hard coded 
throughout in tables, queries, forms and reports.

It also stores daily raw values and  percentages plus MTD and YTD values 
and percentage for every item of interest.

As I create each new normalised set of tables, I  build  functions  to do 
the slicing and dicing (build and execute  append SQL  statements against 
the various fields in the existing tables).  I will move these functions 
over to another app later.  This app will have links to the old and new 
databases and the functions will be strung together so that it will do a 
one click update of the new tables from the latest available old data.



-- 
Stuart




From Gustav at cactus.dk  Tue Jan 17 04:02:58 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 11:02:58 +0100
Subject: [AccessD] Padding text values
Message-ID: <s3cccee8.067@cactus.dk>

Hi Susan

That something could be the AfterUpdate event of the control.
Insert here:

  Dim varValue  As Variant
  
  With Me.ActiveControl
    varValue = .Value
    If Not IsNull(varValue) Then
      .Value = Format(varValue, "000")
    End If
  End With

/gustav

>>> harkinsss at bellsouth.net 16-01-2006 22:57 >>>
Charlotte, Numeric fields are easy to pad -- in the Format property, you use
the 0 character for each character you want to force. I know that won't work
with a text field, but it just seems like I remember some kind of
expression/trick either in the Format or the Default property -- but I'm old
and I may be remembering something else. ;) 

Susan H. 




From Gustav at cactus.dk  Tue Jan 17 04:11:12 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 11:11:12 +0100
Subject: [AccessD] is it possible to rename many folders	via	access?
Message-ID: <s3ccd0eb.069@cactus.dk>

Hi Kostas

Well, thanks, but did it work for you?

/gustav

>>> kost36 at otenet.gr 17-01-2006 20:57 >>>
Jurgen and Gustav,
many thank's for your help.

/kostas




From carbonnb at sympatico.ca  Tue Jan 17 04:38:15 2006
From: carbonnb at sympatico.ca (Bryan Carbonnell)
Date: Tue, 17 Jan 2006 05:38:15 -0500
Subject: [AccessD] Development Cycle BE Question
In-Reply-To: <004501c61b29$f71fe6f0$6701a8c0@HPLaptop>
Message-ID: <BAYC1-PASMTP071F7004F6DDA458D06C20AE1A0@CEZ.ICE>

On 16 Jan 2006 at 21:50, Joe Hecht wrote:

> I may need to take the old tables with the current data and
> slice and dice them again to normalize.
>  
> How many of you while developing take clients data back end
> data so you are working with the most current data while
> doing pre lease builds?

I always try and use the most recent data. If it is available, I will 
update the data daily to use the most current one.

-- 
Bryan Carbonnell - carbonnb at sympatico.ca
Eat one live toad the first thing in the morning and nothing worse 
will happen to you the rest of the day. 




From Gustav at cactus.dk  Tue Jan 17 04:42:56 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 11:42:56 +0100
Subject: [AccessD] Ensuring FTP completion
Message-ID: <s3ccd860.070@cactus.dk>

Hi John

Didn't you test out 3D-FTP? Piece of cake:

  Const cintLocalDir    As Integer = 0
  Const clngNoError     As Long = 0

  <snip>

  ' Add the database file to the queue.
  Call .AddToQueue(cintLocalDir, cstrFileName, 0, 0)

  <snip>

  intFileCount = .GetQueueItemCount()
  If intFileCount > 0 Then
    lngReturn = .TransferQueue()
    DoCmd.Beep
    If lngReturn = clngNoError Then
      strMsgPrompt = "Transfer of files were successful."
      lngMsgStyle = vbInformation + vbOKOnly
    Else
      strMsgPrompt = "An error occured during transfer of files!"
      lngMsgStyle = vbExclamation + vbOKOnly
    End If
  Else
    strMsgPrompt = "No files to transfer."
    lngMsgStyle = vbExclamation + vbOKOnly
  End If

</snip

If you have to work with the command line FTP or similar you may pipe the screen output to a log file and parse that. No fun.
Or perform the ultimate test: Upload the file and download it right after. Then compare the two files. This, of course, doubles the effective transfer time.

If you are transferring one file only, you can also as Reuben use a small external util, wcl_ftp:

' WCL_FTP is freeware and is obtainable from
'   http://www.pacific.net/~ken/software/

which can be run by an excellent code module which is for download too.

/gustav

>>> jwcolby at ColbyConsulting.com 16-01-2006 21:15 >>>
I am working on a system to FTP an MDB file to a web directory.  I need to
know that the file got there correctly.  Does anyone do this, and if so,
what tools do you use for the FTP up/down and how do you check to ensure
that the transfer completed?  I am going to need to do something like FTP up
under one name, then rename / delete the existing and rename the new to the
filename of the existing.  This has to be bulletproof though so I need to
know that it worked.

John W. Colby
www.ColbyConsulting.com 




From carbonnb at sympatico.ca  Tue Jan 17 04:44:30 2006
From: carbonnb at sympatico.ca (Bryan Carbonnell)
Date: Tue, 17 Jan 2006 05:44:30 -0500
Subject: [AccessD] Development Cycle BE Question
Message-ID: <BAYC1-PASMTP06852616533B5C48B3B0FCAE1A0@CEZ.ICE>

On 16 Jan 2006 at 22:01, Rocky Smolin - Beach Access S wrote:

> There's no substitute for working with the client's own data.  For 
> development or enhancement of existing apps. 
> 
> But if you need to make changes to the structure of the data then you 
> have a coordination problem. 
> 
> I find the best way is to write a small app that makes those 
> transformations to the back end database.  Then, as the client updates 
> you with their latest data you can transform the old database to the new 
> one.  And at the end, when you send them the new app, you can send them 
> the transformation app as well so they can run it on their data.  It 
> also has the side effect of consolidating all of your back end changes 
> in one place. 

No need to write your own app, that's what the BackEnd Upgrader is 
for.

"The Backend Upgrader (BEU) is a utility that will allow developers 
to map out changes to their mdb Back End (BE) databases and deploy 
them remotely and automatically. .... This utility will allow the 
developer to avoid making changes to the BE by hand, on-site, or by 
remote link, and then possibly forgetting some vital change."

I have used the BEU to totally rebuild a BE that was denormalized, 
poorly named and bad data. It took 70 different versions of the BE 
and 200+ changes IIRC all done through the BEU.

You can get the BEU from 
http://www.databaseadvisors.com/downloads.htm

-- 
Bryan Carbonnell - carbonnb at sympatico.ca
Never put both feet in your mouth at the same time, because you won't 
have a leg to stand on. 




From jwcolby at ColbyConsulting.com  Tue Jan 17 06:44:25 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Tue, 17 Jan 2006 07:44:25 -0500
Subject: [AccessD] Ensuring FTP completion
In-Reply-To: <s3ccd860.070@cactus.dk>
Message-ID: <00cd01c61b63$bff45190$647aa8c0@ColbyM6805>

Gustav,

No, I purchased 3d-ftp but I did so for it's user interface ftp (very nice
and reliable), I never tried automating it.  I have just downloaded the docs
and the api and will look at it.  I LOVE 3d-FTP for just using it from the
desktop.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, January 17, 2006 5:43 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Ensuring FTP completion

Hi John

Didn't you test out 3D-FTP? Piece of cake:

  Const cintLocalDir    As Integer = 0
  Const clngNoError     As Long = 0

  <snip>

  ' Add the database file to the queue.
  Call .AddToQueue(cintLocalDir, cstrFileName, 0, 0)

  <snip>

  intFileCount = .GetQueueItemCount()
  If intFileCount > 0 Then
    lngReturn = .TransferQueue()
    DoCmd.Beep
    If lngReturn = clngNoError Then
      strMsgPrompt = "Transfer of files were successful."
      lngMsgStyle = vbInformation + vbOKOnly
    Else
      strMsgPrompt = "An error occured during transfer of files!"
      lngMsgStyle = vbExclamation + vbOKOnly
    End If
  Else
    strMsgPrompt = "No files to transfer."
    lngMsgStyle = vbExclamation + vbOKOnly
  End If

</snip

If you have to work with the command line FTP or similar you may pipe the
screen output to a log file and parse that. No fun.
Or perform the ultimate test: Upload the file and download it right after.
Then compare the two files. This, of course, doubles the effective transfer
time.

If you are transferring one file only, you can also as Reuben use a small
external util, wcl_ftp:

' WCL_FTP is freeware and is obtainable from
'   http://www.pacific.net/~ken/software/

which can be run by an excellent code module which is for download too.

/gustav

>>> jwcolby at ColbyConsulting.com 16-01-2006 21:15 >>>
I am working on a system to FTP an MDB file to a web directory.  I need to
know that the file got there correctly.  Does anyone do this, and if so,
what tools do you use for the FTP up/down and how do you check to ensure
that the transfer completed?  I am going to need to do something like FTP up
under one name, then rename / delete the existing and rename the new to the
filename of the existing.  This has to be bulletproof though so I need to
know that it worked.

John W. Colby
www.ColbyConsulting.com 


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



From bheid at appdevgrp.com  Tue Jan 17 06:52:05 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Tue, 17 Jan 2006 07:52:05 -0500
Subject: [AccessD] Compact by code
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D1E4A3@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30ABF65E@ADGSERVER>

Hi Arthur,

This is what we use in Access XP:

Public Function GetFilePath(lstrFileName) As String
'Returns the directory of the passed file name.
'Expects the full path and file name as input.

   GetFilePath = Left(lstrFileName, InStrRev(lstrFileName, "\"))

End Function

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: Saturday, January 14, 2006 7:16 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Compact by code


Where is the code for GetFilePath()? I have something vaguely similar but I
figured rather than experiment with making mine and yours compatible, I
would simply ask for it.
Arthur
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Monday, November 21, 2005 12:54 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Compact by code

Sorry, GetFilePath() returns the path of a given file name string.
Bobby

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



From papparuff at comcast.net  Tue Jan 17 07:00:31 2006
From: papparuff at comcast.net (papparuff at comcast.net)
Date: Tue, 17 Jan 2006 13:00:31 +0000
Subject: [AccessD] OT - FileZilla - A free FTP program
Message-ID: <011720061300.10379.43CCEA6F00076C1C0000288B220075109000009A9D0E9F9F0E9F@comcast.net>

I have been using FileZilla for about six months and I  have found it to be excellent. Not only is it free, but it is open source. You can check it out at 

http://sourceforge.net/projects/filezilla

John

--
John V. Ruff ? The Eternal Optimist :-) 

?Commit to the Lord whatever you do, 
and your plans will succeed.? Proverbs 16:3

From carbonnb at gmail.com  Tue Jan 17 07:13:54 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Tue, 17 Jan 2006 08:13:54 -0500
Subject: [AccessD] OT - FileZilla - A free FTP program
In-Reply-To: <011720061300.10379.43CCEA6F00076C1C0000288B220075109000009A9D0E9F9F0E9F@comcast.net>
References: <011720061300.10379.43CCEA6F00076C1C0000288B220075109000009A9D0E9F9F0E9F@comcast.net>
Message-ID: <e04a6c920601170513y981de61t@mail.gmail.com>

On 17/01/06, papparuff at comcast.net <papparuff at comcast.net> wrote:
> I have been using FileZilla for about six months and I  have found it to be excellent. Not only is it free, but it is open source. You can check it out at
>
> http://sourceforge.net/projects/filezilla

I'll second that. I've been using it for about 18 months now and it's
only getting better.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From Gustav at cactus.dk  Tue Jan 17 07:13:36 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 14:13:36 +0100
Subject: [AccessD] Ensuring FTP completion
Message-ID: <s3ccfbaa.084@cactus.dk>

Hi John

Oh my ... the API is the gold nugget!

I'll send you a function offline for you to peruse. Should give you an idea ...

/gustav

>>> jwcolby at ColbyConsulting.com 17-01-2006 13:44 >>>
Gustav,

No, I purchased 3d-ftp but I did so for it's user interface ftp (very nice
and reliable), I never tried automating it.  I have just downloaded the docs
and the api and will look at it.  I LOVE 3d-FTP for just using it from the
desktop.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, January 17, 2006 5:43 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Ensuring FTP completion

Hi John

Didn't you test out 3D-FTP? Piece of cake:

  Const cintLocalDir    As Integer = 0
  Const clngNoError     As Long = 0

  <snip>

  ' Add the database file to the queue.
  Call .AddToQueue(cintLocalDir, cstrFileName, 0, 0)

  <snip>

  intFileCount = .GetQueueItemCount()
  If intFileCount > 0 Then
    lngReturn = .TransferQueue()
    DoCmd.Beep
    If lngReturn = clngNoError Then
      strMsgPrompt = "Transfer of files were successful."
      lngMsgStyle = vbInformation + vbOKOnly
    Else
      strMsgPrompt = "An error occured during transfer of files!"
      lngMsgStyle = vbExclamation + vbOKOnly
    End If
  Else
    strMsgPrompt = "No files to transfer."
    lngMsgStyle = vbExclamation + vbOKOnly
  End If

</snip

If you have to work with the command line FTP or similar you may pipe the
screen output to a log file and parse that. No fun.
Or perform the ultimate test: Upload the file and download it right after.
Then compare the two files. This, of course, doubles the effective transfer
time.

If you are transferring one file only, you can also as Reuben use a small
external util, wcl_ftp:

' WCL_FTP is freeware and is obtainable from
'   http://www.pacific.net/~ken/software/ 

which can be run by an excellent code module which is for download too.

/gustav

>>> jwcolby at ColbyConsulting.com 16-01-2006 21:15 >>>
I am working on a system to FTP an MDB file to a web directory.  I need to
know that the file got there correctly.  Does anyone do this, and if so,
what tools do you use for the FTP up/down and how do you check to ensure
that the transfer completed?  I am going to need to do something like FTP up
under one name, then rename / delete the existing and rename the new to the
filename of the existing.  This has to be bulletproof though so I need to
know that it worked.

John W. Colby
www.ColbyConsulting.com 




From wdhindman at bellsouth.net  Tue Jan 17 07:52:34 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Tue, 17 Jan 2006 08:52:34 -0500
Subject: [AccessD] Ensuring FTP completion
References: <s3ccfbaa.084@cactus.dk>
Message-ID: <001f01c61b6d$44d012b0$6101a8c0@JISREGISTRATION.local>

Gustav

...I'm curious as to what a third party ftp product allows you to do that 
you can't do from vba? ...I've been using Access to ftp files for several 
years now without a hitch ...why would I want to complicate that?

...I realize that you get bells and whistles ...but what basic functionality 
is added that vba won't give you?

...while I've never found it necessary to check file integrity after ftping 
it as JC needs to do, if the need arose I'd use vba to ftp the file back and 
check it locally ...certainly that is a longer process but compared to what? 
...and using vba I'm not subject to all the myriad of problems I've had 
using 3rd party anything.

...there are times when 3rd party tools are essential ...but ftp seems to be 
such a straight forward proposition in vba that I'm curious as to what you 
find it won't allow you to do that is really necessary?

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, January 17, 2006 8:13 AM
Subject: Re: [AccessD] Ensuring FTP completion


> Hi John
>
> Oh my ... the API is the gold nugget!
>
> I'll send you a function offline for you to peruse. Should give you an 
> idea ...
>
> /gustav
>
>>>> jwcolby at ColbyConsulting.com 17-01-2006 13:44 >>>
> Gustav,
>
> No, I purchased 3d-ftp but I did so for it's user interface ftp (very nice
> and reliable), I never tried automating it.  I have just downloaded the 
> docs
> and the api and will look at it.  I LOVE 3d-FTP for just using it from the
> desktop.
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
> Sent: Tuesday, January 17, 2006 5:43 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Ensuring FTP completion
>
> Hi John
>
> Didn't you test out 3D-FTP? Piece of cake:
>
>  Const cintLocalDir    As Integer = 0
>  Const clngNoError     As Long = 0
>
>  <snip>
>
>  ' Add the database file to the queue.
>  Call .AddToQueue(cintLocalDir, cstrFileName, 0, 0)
>
>  <snip>
>
>  intFileCount = .GetQueueItemCount()
>  If intFileCount > 0 Then
>    lngReturn = .TransferQueue()
>    DoCmd.Beep
>    If lngReturn = clngNoError Then
>      strMsgPrompt = "Transfer of files were successful."
>      lngMsgStyle = vbInformation + vbOKOnly
>    Else
>      strMsgPrompt = "An error occured during transfer of files!"
>      lngMsgStyle = vbExclamation + vbOKOnly
>    End If
>  Else
>    strMsgPrompt = "No files to transfer."
>    lngMsgStyle = vbExclamation + vbOKOnly
>  End If
>
> </snip
>
> If you have to work with the command line FTP or similar you may pipe the
> screen output to a log file and parse that. No fun.
> Or perform the ultimate test: Upload the file and download it right after.
> Then compare the two files. This, of course, doubles the effective 
> transfer
> time.
>
> If you are transferring one file only, you can also as Reuben use a small
> external util, wcl_ftp:
>
> ' WCL_FTP is freeware and is obtainable from
> '   http://www.pacific.net/~ken/software/
>
> which can be run by an excellent code module which is for download too.
>
> /gustav
>
>>>> jwcolby at ColbyConsulting.com 16-01-2006 21:15 >>>
> I am working on a system to FTP an MDB file to a web directory.  I need to
> know that the file got there correctly.  Does anyone do this, and if so,
> what tools do you use for the FTP up/down and how do you check to ensure
> that the transfer completed?  I am going to need to do something like FTP 
> up
> under one name, then rename / delete the existing and rename the new to 
> the
> filename of the existing.  This has to be bulletproof though so I need to
> know that it worked.
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From Gustav at cactus.dk  Tue Jan 17 08:55:46 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 15:55:46 +0100
Subject: [AccessD] Ensuring FTP completion
Message-ID: <s3cd1391.000@cactus.dk>

Hi William

For a single or few files transfer most solutions will work - mostly a matter of taste.

For a specific client the task was to upload up to 3000 picture files.
If this is not going to take "forever" you need a multithreaded transfer client.
As the transfer still can take some time, a high quality user interface for monitoring the process was needed as well.
Further, I prefer an API, not building command lines.
Finally, the solution had to work from day one at the client.
All this for $40 and enough trial time to test everything out ... just the fact that you do not need to create a single form - decent design takes a lot of time - justifies the amount multiple times.

We are not using 3D-FTP for everything. Quite often only a single file are to be uploaded, say for backup, and then we mostly use wcl_ftp which is free but still offers a tiny user interface (not a DOS box which users find extremely primitive) to monitor the progress and success. I donated a complete code module for the purpose, and both you can download and use for zero cost.

Sometimes the command line is fine as you can be sure FTP.EXE exists on any Windows machine. A substitute, MoveIt, with similar command syntax is available in a free extended version - as well as for secure transfers - here, a little gem:

http://www.stdnet.com/products/?category_number=7&subcategory_number=1

/gustav

>>> wdhindman at bellsouth.net 17-01-2006 14:52 >>>
Gustav

...I'm curious as to what a third party ftp product allows you to do that 
you can't do from vba? ...I've been using Access to ftp files for several 
years now without a hitch ...why would I want to complicate that?

...I realize that you get bells and whistles ...but what basic functionality 
is added that vba won't give you?

...while I've never found it necessary to check file integrity after ftping 
it as JC needs to do, if the need arose I'd use vba to ftp the file back and 
check it locally ...certainly that is a longer process but compared to what? 
...and using vba I'm not subject to all the myriad of problems I've had 
using 3rd party anything.

...there are times when 3rd party tools are essential ...but ftp seems to be 
such a straight forward proposition in vba that I'm curious as to what you 
find it won't allow you to do that is really necessary?

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, January 17, 2006 8:13 AM
Subject: Re: [AccessD] Ensuring FTP completion


> Hi John
>
> Oh my ... the API is the gold nugget!
>
> I'll send you a function offline for you to peruse. Should give you an 
> idea ...
>
> /gustav
>
>>>> jwcolby at ColbyConsulting.com 17-01-2006 13:44 >>>
> Gustav,
>
> No, I purchased 3d-ftp but I did so for it's user interface ftp (very nice
> and reliable), I never tried automating it.  I have just downloaded the 
> docs
> and the api and will look at it.  I LOVE 3d-FTP for just using it from the
> desktop.
>
> John W. Colby
> www.ColbyConsulting.com 




From jwcolby at ColbyConsulting.com  Tue Jan 17 08:57:49 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Tue, 17 Jan 2006 09:57:49 -0500
Subject: [AccessD] Ensuring FTP completion
In-Reply-To: <s3ccfbaa.084@cactus.dk>
Message-ID: <00de01c61b76$62ba8680$647aa8c0@ColbyM6805>

Gustav,

What object are you programming to when you use the API?  I like to use
intellisense and so I set a reference to FtpXObj, but a lot of the methods
then are not valid so I think that is not the right object. 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, January 17, 2006 8:14 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Ensuring FTP completion

Hi John

Oh my ... the API is the gold nugget!

I'll send you a function offline for you to peruse. Should give you an idea
...

/gustav

>>> jwcolby at ColbyConsulting.com 17-01-2006 13:44 >>>
Gustav,

No, I purchased 3d-ftp but I did so for it's user interface ftp (very nice
and reliable), I never tried automating it.  I have just downloaded the docs
and the api and will look at it.  I LOVE 3d-FTP for just using it from the
desktop.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Tuesday, January 17, 2006 5:43 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Ensuring FTP completion

Hi John

Didn't you test out 3D-FTP? Piece of cake:

  Const cintLocalDir    As Integer = 0
  Const clngNoError     As Long = 0

  <snip>

  ' Add the database file to the queue.
  Call .AddToQueue(cintLocalDir, cstrFileName, 0, 0)

  <snip>

  intFileCount = .GetQueueItemCount()
  If intFileCount > 0 Then
    lngReturn = .TransferQueue()
    DoCmd.Beep
    If lngReturn = clngNoError Then
      strMsgPrompt = "Transfer of files were successful."
      lngMsgStyle = vbInformation + vbOKOnly
    Else
      strMsgPrompt = "An error occured during transfer of files!"
      lngMsgStyle = vbExclamation + vbOKOnly
    End If
  Else
    strMsgPrompt = "No files to transfer."
    lngMsgStyle = vbExclamation + vbOKOnly
  End If

</snip

If you have to work with the command line FTP or similar you may pipe the
screen output to a log file and parse that. No fun.
Or perform the ultimate test: Upload the file and download it right after.
Then compare the two files. This, of course, doubles the effective transfer
time.

If you are transferring one file only, you can also as Reuben use a small
external util, wcl_ftp:

' WCL_FTP is freeware and is obtainable from
'   http://www.pacific.net/~ken/software/ 

which can be run by an excellent code module which is for download too.

/gustav

>>> jwcolby at ColbyConsulting.com 16-01-2006 21:15 >>>
I am working on a system to FTP an MDB file to a web directory.  I need to
know that the file got there correctly.  Does anyone do this, and if so,
what tools do you use for the FTP up/down and how do you check to ensure
that the transfer completed?  I am going to need to do something like FTP up
under one name, then rename / delete the existing and rename the new to the
filename of the existing.  This has to be bulletproof though so I need to
know that it worked.

John W. Colby
www.ColbyConsulting.com 


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



From Jdemarco at hudsonhealthplan.org  Tue Jan 17 09:25:18 2006
From: Jdemarco at hudsonhealthplan.org (Jim DeMarco)
Date: Tue, 17 Jan 2006 10:25:18 -0500
Subject: [AccessD] Slipstick code
Message-ID: <08F823FD83787D4BA0B99CA580AD3C74016C43D1@TTNEXCHCL2.hshhp.com>

Try www.koders.com for code searches.  

Jim DeMarco

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of John Colby
Sent: Monday, January 16, 2006 7:58 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Slipstick code


Does Slipstick still share code?  I am not finding any demo code out there.

John W. Colby
www.ColbyConsulting.com 


-- 
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".
***********************************************************************************



From harkinsss at bellsouth.net  Tue Jan 17 09:28:01 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Tue, 17 Jan 2006 10:28:01 -0500
Subject: [AccessD] Padding text values
In-Reply-To: <s3cccee8.067@cactus.dk>
Message-ID: <001901c61b7a$9aec3810$d2b3d6d1@SUSANONE>

Thanks Gustav -- I'm already using a Format() expression.  

Like I said, I guess I'm just remembering something incorrectly. 

Susan H. 

Hi Susan

That something could be the AfterUpdate event of the control.
Insert here:

  Dim varValue  As Variant
  
  With Me.ActiveControl
    varValue = .Value
    If Not IsNull(varValue) Then
      .Value = Format(varValue, "000")
    End If
  End With

/gustav




From Lambert.Heenan at AIG.com  Tue Jan 17 09:33:55 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Tue, 17 Jan 2006 10:33:55 -0500
Subject: [AccessD] Tying Outlook appointments into Access
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6DB48@xlivmbx21.aig.com>


Take a look at...

http://www.helenfeddema.com/access.htm

Item # 67 "Working with the Outlook Object Model"

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Monday, January 16, 2006 3:26 PM
To: 'Access Developers discussion and problem solving'; Tech - Database
Advisors Inc.
Subject: [AccessD] Tying Outlook appointments into Access


I have finally broken down and decided to make a major push to use outlook
appointments for scheduling my client work.  In order to make this work
however I need to be able to create the appointment in Outlook and have it
create a dummy billing (time) record in my billing database, and if I delete
or drag the edges of the appointment around, have it modify my billing
records.  I know how to automate outlook, get it instantiated and watch
events etc, but I have never fiddled with anything but messages and
attachments.  

Does anyone have example code for doing this kind of stuff, particularly the
"dragging of appointment times".  Done correctly I could make appointments,
then as the time comes to do the work, I could go in to the appointment and
fill in the work done right in outlook and have the data transferred to my
billing program.

Anyone?

John W. Colby
www.ColbyConsulting.com 


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


From jmhecht at earthlink.net  Tue Jan 17 09:35:29 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 17 Jan 2006 07:35:29 -0800
Subject: [AccessD] Development Cycle BE Question
In-Reply-To: <BAYC1-PASMTP06852616533B5C48B3B0FCAE1A0@CEZ.ICE>
Message-ID: <003001c61b7b$a5c3fc90$6701a8c0@HPLaptop>

So this will take one table and slice it to about 8, with
the correct fields and rename them each time?

What happens to queries while tables are being redone?
Normally queries die if tables involved are removed or
renamed?

Thanks

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]   Behalf Of
Bryan Carbonnell
Sent: Tuesday, January 17, 2006 2:45 AM
To: access Developers discussion and problem solving
Subject: Re: [AccessD] Development Cycle BE Question

 

No need to write your own app, that's what the BackEnd
Upgrader is for.

"The Backend Upgrader (BEU) is a utility that will allow
developers to map out changes to their mdb Back End (BE)
databases and deploy them remotely and automatically. ....
This utility will allow the developer to avoid making
changes to the BE by hand, on-site, or by 
remote link, and then possibly forgetting some vital
change."




From carbonnb at gmail.com  Tue Jan 17 09:49:18 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Tue, 17 Jan 2006 10:49:18 -0500
Subject: [AccessD] Development Cycle BE Question
In-Reply-To: <003001c61b7b$a5c3fc90$6701a8c0@HPLaptop>
References: <BAYC1-PASMTP06852616533B5C48B3B0FCAE1A0@CEZ.ICE>
	<003001c61b7b$a5c3fc90$6701a8c0@HPLaptop>
Message-ID: <e04a6c920601170749k59fdd3e7j@mail.gmail.com>

On 17/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> So this will take one table and slice it to about 8, with
> the correct fields and rename them each time?

It will do that, but you have to tell it to.

The steps you would tell the BEU to do, in a very general sense are:

Create the table(s)
Add the fields to the new table
Copy the data from the old to the new
Delete the old table when everything is done.

> What happens to queries while tables are being redone?

Nothing. The queries stay untouched. You will need to recreate the
queries in the FE once the table structure(s) have been
updated/upgraded.

> Normally queries die if tables involved are removed or
> renamed?

And they still will.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From cfoust at infostatsystems.com  Tue Jan 17 09:58:05 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 17 Jan 2006 07:58:05 -0800
Subject: [AccessD] Development Cycle BE Question
Message-ID: <F55048AF7E974F429BB24597D7355EEABF2C@INFOSERVER04.infostat.local>

Part of our applications's capabilities is import and export of data, so
we get the client to export data for us, or we get the file from him and
export it ourselves with the appropriate version of the app.  Then we
import it into the latest build for testing.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Monday, January 16, 2006 9:51 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Development Cycle BE Question


As I develop the project I am working on, I am rudely
reminded that the data I have been working with is from last September.

 

I may need to take the old tables with the current data and slice and
dice them again to normalize.

 

How many of you while developing take clients data back end data so you
are working with the most current data while doing pre lease builds?

 

Does this question make sense?

 

Joe Hecht

jmhecht at earthlink.net

 

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


From jmhecht at earthlink.net  Tue Jan 17 10:09:11 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 17 Jan 2006 08:09:11 -0800
Subject: [AccessD] Development Cycle BE Question
In-Reply-To: <e04a6c920601170749k59fdd3e7j@mail.gmail.com>
Message-ID: <003e01c61b80$5b345d00$6701a8c0@HPLaptop>

I just tested.

Make sure I have SQL stored. Drop into empty query. Query
rebuilt.

One issue handled. Just downloaded BEU. I will look at that
after work tonight.


Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bryan Carbonnell
Sent: Tuesday, January 17, 2006 7:49 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Development Cycle BE Question

On 17/01/06, Joe Hecht <jmhecht at earthlink.net> wrote:
> So this will take one table and slice it to about 8, with
> the correct fields and rename them each time?

It will do that, but you have to tell it to.

The steps you would tell the BEU to do, in a very general
sense are:

Create the table(s)
Add the fields to the new table
Copy the data from the old to the new
Delete the old table when everything is done.

> What happens to queries while tables are being redone?

Nothing. The queries stay untouched. You will need to
recreate the
queries in the FE once the table structure(s) have been
updated/upgraded.

> Normally queries die if tables involved are removed or
> renamed?

And they still will.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a
well
preserved body, but rather to skid in sideways, totally worn
out,
shouting "What a great ride!"
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Tue Jan 17 10:08:44 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 17:08:44 +0100
Subject: [AccessD] Padding text values
Message-ID: <s3cd24b7.004@cactus.dk>

Hi Susan

Yes, but you didn't use it in the AfterUpdate event, so what did it do for you?
As Stuart told, you cannot format a text that way using the Format property ...

/gustav

>>> harkinsss at bellsouth.net 17-01-2006 16:28 >>>
Thanks Gustav -- I'm already using a Format() expression.  

Like I said, I guess I'm just remembering something incorrectly. 

Susan H. 

Hi Susan

That something could be the AfterUpdate event of the control.
Insert here:

  Dim varValue  As Variant
  
  With Me.ActiveControl
    varValue = .Value
    If Not IsNull(varValue) Then
      .Value = Format(varValue, "000")
    End If
  End With

/gustav




From jmhecht at earthlink.net  Tue Jan 17 10:09:51 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 17 Jan 2006 08:09:51 -0800
Subject: [AccessD] BE Relinker
Message-ID: <003f01c61b80$72b3aee0$6701a8c0@HPLaptop>

Did some kind, generous and way smarter then me soul create
at BE relinker?

 

 

Joe Hecht

jmhecht at earthlink.net

 



From jmhecht at earthlink.net  Tue Jan 17 10:31:24 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 17 Jan 2006 08:31:24 -0800
Subject: [AccessD] 2000 FE xp/2k3be
Message-ID: <004a01c61b83$772d96e0$6701a8c0@HPLaptop>

Can a 2000 front end read xk/2003 be?

 

Joe Hecht

jmhecht at earthlink.net

 



From cfoust at infostatsystems.com  Tue Jan 17 10:43:33 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 17 Jan 2006 08:43:33 -0800
Subject: [AccessD] 2000 FE xp/2k3be
Message-ID: <F55048AF7E974F429BB24597D7355EEABF2D@INFOSERVER04.infostat.local>

Depends on the file format.  It should be able to read a 2000 format
file, but not XP or 2003 format.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Tuesday, January 17, 2006 8:31 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] 2000 FE xp/2k3be


Can a 2000 front end read xk/2003 be?

 

Joe Hecht

jmhecht at earthlink.net

 

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


From darsant at gmail.com  Tue Jan 17 10:49:14 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Tue, 17 Jan 2006 10:49:14 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF26@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF26@INFOSERVER04.infostat.local>
Message-ID: <53c8e05a0601170849t8017286n99dc0d65238b4910@mail.gmail.com>

On 1/16/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> I don't know what you mean, Josh, but I suspect you haven't had actual
> experience with SourceSafe.  We use SourceSafe with Access and with
> VB.Net and have no problems comparing versions.  With Access, you do
> need the add-in that allows you to work with Source Safe from within
> Access (comes with the ODE, if I remember correctly).  This maintains
> each object as a separate sourcesafe file, not the entire database.  Nor
> have we had the corruption issues you describe.  ANY file can and will
> corrupt.  It isn't peculiar to any particular product or program.

I haven't used SourceSafe in Access personally, only C++ projects. I
find it interesting that they've worked out code to diff Access DBs,
but cannot make it compatible with Word for diffing.

Granted, everything can be corrupt, but source-safe has a very very
bad track record with corruption, even on simple things. I can't find
the link now, but once I hit my work computer I'll post it.

When it's all said and done, I still prefer a stability and safety
over easy integration with Office / Visual Studio.

--
Josh McFarlane
"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From cfoust at infostatsystems.com  Tue Jan 17 11:28:35 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 17 Jan 2006 09:28:35 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF2F@INFOSERVER04.infostat.local>

The sourcesafe handling of Access is completely different from Word
because unless you try to add it from outside, as you do with other
application files.  I've heard all the horror stories about sourcesafe,
but for many, if not most, independent developers, it is the cheapest
alternative because it comes with the ODE, and I personally have not
seen the corruption problems more than once in the years I've worked
with it.  In that case, that's what backups were for. <g>

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Tuesday, January 17, 2006 8:49 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/16/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> I don't know what you mean, Josh, but I suspect you haven't had actual

> experience with SourceSafe.  We use SourceSafe with Access and with 
> VB.Net and have no problems comparing versions.  With Access, you do 
> need the add-in that allows you to work with Source Safe from within 
> Access (comes with the ODE, if I remember correctly).  This maintains 
> each object as a separate sourcesafe file, not the entire database.  
> Nor have we had the corruption issues you describe.  ANY file can and 
> will corrupt.  It isn't peculiar to any particular product or program.

I haven't used SourceSafe in Access personally, only C++ projects. I
find it interesting that they've worked out code to diff Access DBs, but
cannot make it compatible with Word for diffing.

Granted, everything can be corrupt, but source-safe has a very very bad
track record with corruption, even on simple things. I can't find the
link now, but once I hit my work computer I'll post it.

When it's all said and done, I still prefer a stability and safety over
easy integration with Office / Visual Studio.

--
Josh McFarlane
"Peace cannot be kept by force. It can only be achieved by
understanding." -Albert Einstein
-- 


From artful at rogers.com  Tue Jan 17 11:30:13 2006
From: artful at rogers.com (Arthur Fuller)
Date: Tue, 17 Jan 2006 12:30:13 -0500
Subject: [AccessD] Refreshing values on a form
Message-ID: <06e001c61b8b$ac74fcf0$8e01a8c0@rock>

I have a form in an inherited app that posits two ways to search: a) you can
select from several listboxes, each cascading to the child until finally you
end up with an invoice number; b) if you know the invoice number, you can
select this option and go directly to the invoice.
I enclosed the options in an option frame whose code disables the choice you
didn't make and enables the choice you did make. (i.e. you can then enter
the values for a) or b)). 
This all works, but what I want to happen is that if you choose search
method b) then the listboxes in choice a) all move to the corresponding
locations within the listbox. I am assigning the values correctly, according
to debug.print anyway, but the listboxes are not rotating to the
corresponding items. In my code I assign the values obtained via selection
b) and then requery the listboxes but they do not move to the selected item.
I want the current value to appear topmost on the listbox. What am I doing
wrong or not doing?
TIA,
Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks
 




From Gustav at cactus.dk  Tue Jan 17 12:18:53 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 19:18:53 +0100
Subject: [AccessD] Ensuring FTP completion
Message-ID: <s3cd4333.008@cactus.dk>

Hi John

Well, that's a good question. I've only used late binding for this as shown in the docs and the example code, and basically all I've done is to expand on the example code.
However, I believe you need the FtpXObjLib.FtpXObj and/or FtpXObjNotify.
What confuses me is RegisterEventListener and UnregisterEventListener for enabling/disabling the events which I cannot find in the Object browser.

Maybe someone else could chime in?

/gustav

>>> jwcolby at ColbyConsulting.com 17-01-2006 15:57 >>>
Gustav,

What object are you programming to when you use the API?  I like to use
intellisense and so I set a reference to FtpXObj, but a lot of the methods
then are not valid so I think that is not the right object. 


John W. Colby
www.ColbyConsulting.com 




From Gustav at cactus.dk  Tue Jan 17 12:33:15 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 17 Jan 2006 19:33:15 +0100
Subject: [AccessD] Refreshing values on a form
Message-ID: <s3cd46a2.009@cactus.dk>

Hi Arthur the Mighty

That should work. If I requery a listbox and assign it a value:

  Forms(0).lstSome.Value = 2200

it rolls at once to that line. 
If I browse away without selecting another line and then requery, it rolls to the line with the assigned value.

So something else must be going on ...

/gustav

>>> artful at rogers.com 17-01-2006 18:30 >>>
I have a form in an inherited app that posits two ways to search: a) you can
select from several listboxes, each cascading to the child until finally you
end up with an invoice number; b) if you know the invoice number, you can
select this option and go directly to the invoice.
I enclosed the options in an option frame whose code disables the choice you
didn't make and enables the choice you did make. (i.e. you can then enter
the values for a) or b)). 
This all works, but what I want to happen is that if you choose search
method b) then the listboxes in choice a) all move to the corresponding
locations within the listbox. I am assigning the values correctly, according
to debug.print anyway, but the listboxes are not rotating to the
corresponding items. In my code I assign the values obtained via selection
b) and then requery the listboxes but they do not move to the selected item.
I want the current value to appear topmost on the listbox. What am I doing
wrong or not doing?
TIA,
Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks




From DWUTKA at marlow.com  Tue Jan 17 12:34:45 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Tue, 17 Jan 2006 12:34:45 -0600
Subject: [AccessD] BE Relinker
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD56A@main2.marlow.com>

I posted a while back, on something that would be a 'seamless' relinker.
You can 'search' a subnet with UDP, which is very fast (split second on a
subnet with over a thousand IPs on it), and have a 'service' that listens
for that UDP broadcast, and replies with requested information.  ie, FE on
home network, broadcasts and hits the service on your home network, which
tells the FE where the backends on your home network are.  FE relinks to
backend.  You modify the FE, send it to client.  Client opens FE, again, FE
finds the service on clients network, which tells the FE where to relink
it's tables too.  

Would be pretty easy to setup, let me know if you would be interested.

Drew

-----Original Message-----
From: Joe Hecht [mailto:jmhecht at earthlink.net]
Sent: Tuesday, January 17, 2006 10:10 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] BE Relinker


Did some kind, generous and way smarter then me soul create
at BE relinker?

 

 

Joe Hecht

jmhecht at earthlink.net

 

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


From darsant at gmail.com  Tue Jan 17 13:11:39 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Tue, 17 Jan 2006 13:11:39 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF2F@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF2F@INFOSERVER04.infostat.local>
Message-ID: <53c8e05a0601171111j32699ba2ga06459a24364682c@mail.gmail.com>

On 1/17/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> The sourcesafe handling of Access is completely different from Word
> because unless you try to add it from outside, as you do with other
> application files.  I've heard all the horror stories about sourcesafe,
> but for many, if not most, independent developers, it is the cheapest
> alternative because it comes with the ODE, and I personally have not
> seen the corruption problems more than once in the years I've worked
> with it.  In that case, that's what backups were for. <g>

I'm confused, so it only allows diff'ing if you have the plug-in to
Access, but if you add it from explorer it still acts like a binary
file?

You really should try out SubVersion. I like it ALOT and it's really
easy to create branches and other things for multiple development
stems from one base file.

--
Josh McFarlane
"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From accessd at shaw.ca  Tue Jan 17 14:06:05 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Tue, 17 Jan 2006 12:06:05 -0800
Subject: [AccessD] VB Scripts
In-Reply-To: <43CC79B5.9060506@shaw.ca>
Message-ID: <001201c61ba1$731071e0$017ba8c0@xpserver>

Hi All:

Here is a simple question. 

Does MS require MS Office products to be able to run VB Scripts or VS to be
able to compile these scripts in order to have them run on a system or is
the capability just built into any version of Windows? ...like IE.

Can the ability of running of VB scripts be easily turned off and on?

A client is requesting specific details so they can balance security against
functionality and I just do not know enough about the subject.

MTIA
Jim  



From stuart at lexacorp.com.pg  Tue Jan 17 15:43:55 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Wed, 18 Jan 2006 07:43:55 +1000
Subject: [AccessD] BE Relinker
In-Reply-To: <003f01c61b80$72b3aee0$6701a8c0@HPLaptop>
Message-ID: <43CDF1BB.18971.14D2DE2@stuart.lexacorp.com.pg>

On 17 Jan 2006 at 8:09, Joe Hecht wrote:

> Did some kind, generous and way smarter then me soul create
> at BE relinker?
> 

Here's my standard module that I use when the BE and FE are in the same 
directory.  Not that it if your BE is password protected, you will need to 
modify this slightly since "tdfloop.Connect" will contain additional info 
before the first semicolon. 


Function RelinkTables() As Long
Dim tdfloop As TableDef
With CurrentDb
        For Each tdfloop In .TableDefs
            If Left$(tdfloop.Connect, 10) = ";DATABASE=" Then
               tdfloop.Connect = ";DATABASE=" & ApplDir & 
FileBasename(Mid$(tdfloop.Connect, 11))
               tdfloop.RefreshLink
            End If
        Next tdfloop
End With
End Function

Static Function ApplDir() As String
   Dim strApplDir As String
   Dim strTemp As String
   If strApplDir = "" Then
    strTemp = DBEngine(0)(0).Name
    strApplDir = Left$(strTemp, InStrRev(strTemp, "\"))
   End If
   ApplDir = strApplDir
End Function

Function FileBasename(fullpath As String) As String
    FileBasename = Right$(fullpath, Len(fullpath) - InStrRev(fullpath, 
"\"))
End Function-- 
Stuart




From stuart at lexacorp.com.pg  Tue Jan 17 15:56:18 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Wed, 18 Jan 2006 07:56:18 +1000
Subject: [AccessD] VB Scripts
In-Reply-To: <001201c61ba1$731071e0$017ba8c0@xpserver>
References: <43CC79B5.9060506@shaw.ca>
Message-ID: <43CDF4A2.13293.158837E@stuart.lexacorp.com.pg>

On 17 Jan 2006 at 12:06, Jim Lawrence wrote:

> Hi All:
> 
> Here is a simple question. 
> 
> Does MS require MS Office products to be able to run VB Scripts or VS to be
> able to compile these scripts in order to have them run on a system or is
> the capability just built into any version of Windows? ...like IE.
> 
> Can the ability of running of VB scripts be easily turned off and on?
> 
> A client is requesting specific details so they can balance security against
> functionality and I just do not know enough about the subject.
> 
VB Scripts can be executed by the Windows Scripting Host (WSH) on any 
Windows machine (W95 and onwards) as long as WSH has not been disabled and 
it isn't blocked by an AV product.  

Take a look at 
http://www.sarc.com/avcenter/venc/data/win.script.hosting.html
for info on the security aspects.

What does your client think they need VBScript for? There are probably 
better and more secure options available.



-- 
Stuart




From martyconnelly at shaw.ca  Tue Jan 17 16:11:54 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Tue, 17 Jan 2006 14:11:54 -0800
Subject: [AccessD] VB Scripts
References: <001201c61ba1$731071e0$017ba8c0@xpserver>
Message-ID: <43CD6BAA.3040101@shaw.ca>

Well with Win 2000 + you get vbscript.dll with the OS.
You can rewrite necessary vbs script files to run from Access VBA
I do this for WMI vbs script files

Included the following code in your Login Script:
It still allows legitimate need for executing VBScript files by
right-clicking and selecting Open.


Sub DisableVBScript()
' Make Default Action of .VBS and .VBE files "Edit" instead of "Open"
' This will cause the script file to open in notepad when double-clicked
instead of running.


    On Error Resume Next


    Dim WshShell
    Set WshShell = WScript.CreateObject("WScript.Shell")


 WshShell.RegWrite "HKCR\VBSFile\Shell\", "Edit"
 WshShell.RegWrite "HKCR\VBEFile\Shell\", "Edit"

'Instead of the above .RegWrite  use the following:


'    WshShell.RegDelete "HKCR\.vbs\"
'    WshShell.RegDelete "HKCR\.vbe\"

'This will remove the extensions from the registry.  This is more
'drastic, but may be better for some organizations.
'I wont allow vbs files to be executed at all.

End Sub

The above code is similar to doing the following excerise
------------------------
WSH is installed by default.
To prevent scripts with a .VBS extension from being run:
without running code

Log on as an Administrator.
On the 'Desktop', or in 'Windows Explorer', right-click on
'My Computer'. Select 'Open' from the menu.
In the 'My Computer' window, open the 'Tools' menu
and select 'Folder Options'. Open the 'File Types'
tabbed page.


Look for 'VBScript Script File' in the list of file types
(if you can't find it, your machine is safe and you don't
need to do anything else). Click on the 'Delete' button.
If you see a dialog asking you to confirm removal, click
'Yes'.
-----------


There are ways via Tools -- Options to indivually disallow vbscript from 
running
in programs like IE and Outlook

The most drastic way to disable scripting is the following deregister 
commands
be advised, some features of the OS may depend on these DLL's being
registered.

Start, Run and enter
REGSVR32  - U  VBSCRIPT.DLL
REGSVR32  -U   JSCRIPT.DLL
 





Jim Lawrence wrote:

>Hi All:
>
>Here is a simple question. 
>
>Does MS require MS Office products to be able to run VB Scripts or VS to be
>able to compile these scripts in order to have them run on a system or is
>the capability just built into any version of Windows? ...like IE.
>
>Can the ability of running of VB scripts be easily turned off and on?
>
>A client is requesting specific details so they can balance security against
>functionality and I just do not know enough about the subject.
>
>MTIA
>Jim  
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From cfoust at infostatsystems.com  Tue Jan 17 16:13:17 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 17 Jan 2006 14:13:17 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local>

Yes, the behavior is different is you use the add-in.  The shop I work
in uses SourceSafe, so I'm not likely to switch to something else.  I'm
not sure I would like creating multiple stems from a base file.  Sounds
to me like an even better way to get versions screwed up.  At least the
way we have SourceSafe set up, only one person can have an object
checked out at a time, and all project that use that object will get the
same version when it's checked back in.  If we've branched it for a
particular project, then the changes don't get applied to that version.
Works for us, and it works nicely with VS.Net, so we're happy.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Tuesday, January 17, 2006 11:12 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/17/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> The sourcesafe handling of Access is completely different from Word 
> because unless you try to add it from outside, as you do with other 
> application files.  I've heard all the horror stories about 
> sourcesafe, but for many, if not most, independent developers, it is 
> the cheapest alternative because it comes with the ODE, and I 
> personally have not seen the corruption problems more than once in the

> years I've worked with it.  In that case, that's what backups were 
> for. <g>

I'm confused, so it only allows diff'ing if you have the plug-in to
Access, but if you add it from explorer it still acts like a binary
file?

You really should try out SubVersion. I like it ALOT and it's really
easy to create branches and other things for multiple development stems
from one base file.

--
Josh McFarlane
"Peace cannot be kept by force. It can only be achieved by
understanding." -Albert Einstein
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From robert at servicexp.com  Tue Jan 17 16:50:59 2006
From: robert at servicexp.com (Robert Gracie)
Date: Tue, 17 Jan 2006 17:50:59 -0500
Subject: [AccessD] Ok,
	Let me ask it a different way.. (was: Subform colummn adjustment?)
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CE1@gbsserver.GBS.local>

 
Is there any way to capture the user adjusting a column or row? I don't
see any events for such, but is there a different way...

The more I think about this, maybe using a right click function for a
"save dimensions" in a table type thing....????



******************************************
Is there ANY way to allow a user to set the column width and row height
(datasheet view) to their choice and SAVE that choice in an MDE?


Robert Gracie
www.gbsysnow.com
******************************************


From accessd at shaw.ca  Tue Jan 17 18:12:12 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Tue, 17 Jan 2006 16:12:12 -0800
Subject: [AccessD] VB Scripts
In-Reply-To: <43CD6BAA.3040101@shaw.ca>
Message-ID: <001101c61bc3$d4eb4940$017ba8c0@xpserver>

Thanks Stuart and Marty:

Along with my basic understanding and your extended knowledge I will be able
to assist the client in coming to an objective decision.

Jim


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: January 17, 2006 2:12 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] VB Scripts

Well with Win 2000 + you get vbscript.dll with the OS.
You can rewrite necessary vbs script files to run from Access VBA
I do this for WMI vbs script files

Included the following code in your Login Script:
It still allows legitimate need for executing VBScript files by
right-clicking and selecting Open.


Sub DisableVBScript()
' Make Default Action of .VBS and .VBE files "Edit" instead of "Open"
' This will cause the script file to open in notepad when double-clicked
instead of running.


    On Error Resume Next


    Dim WshShell
    Set WshShell = WScript.CreateObject("WScript.Shell")


 WshShell.RegWrite "HKCR\VBSFile\Shell\", "Edit"
 WshShell.RegWrite "HKCR\VBEFile\Shell\", "Edit"

'Instead of the above .RegWrite  use the following:


'    WshShell.RegDelete "HKCR\.vbs\"
'    WshShell.RegDelete "HKCR\.vbe\"

'This will remove the extensions from the registry.  This is more
'drastic, but may be better for some organizations.
'I wont allow vbs files to be executed at all.

End Sub

The above code is similar to doing the following excerise
------------------------
WSH is installed by default.
To prevent scripts with a .VBS extension from being run:
without running code

Log on as an Administrator.
On the 'Desktop', or in 'Windows Explorer', right-click on
'My Computer'. Select 'Open' from the menu.
In the 'My Computer' window, open the 'Tools' menu
and select 'Folder Options'. Open the 'File Types'
tabbed page.


Look for 'VBScript Script File' in the list of file types
(if you can't find it, your machine is safe and you don't
need to do anything else). Click on the 'Delete' button.
If you see a dialog asking you to confirm removal, click
'Yes'.
-----------


There are ways via Tools -- Options to indivually disallow vbscript from 
running
in programs like IE and Outlook

The most drastic way to disable scripting is the following deregister 
commands
be advised, some features of the OS may depend on these DLL's being
registered.

Start, Run and enter
REGSVR32  - U  VBSCRIPT.DLL
REGSVR32  -U   JSCRIPT.DLL
 





Jim Lawrence wrote:

>Hi All:
>
>Here is a simple question. 
>
>Does MS require MS Office products to be able to run VB Scripts or VS to be
>able to compile these scripts in order to have them run on a system or is
>the capability just built into any version of Windows? ...like IE.
>
>Can the ability of running of VB scripts be easily turned off and on?
>
>A client is requesting specific details so they can balance security
against
>functionality and I just do not know enough about the subject.
>
>MTIA
>Jim  
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada



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



From newsgrps at dalyn.co.nz  Tue Jan 17 20:48:57 2006
From: newsgrps at dalyn.co.nz (David Emerson)
Date: Wed, 18 Jan 2006 15:48:57 +1300
Subject: [AccessD] OT - Progs Using Internet Connection
Message-ID: <7.0.0.16.0.20060118154529.01a31530@dalyn.co.nz>

This is way off topic but does anyone know how I can find out what 
programs are sending packets over my internet connection?  Some of 
them will be valid (eg virus protection updating) but it would be 
nice to know if I have something sending info out that shouldn't be).

Regards

David Emerson
Dalyn Software Ltd
New Zealand 



From developer at ultradnt.com  Tue Jan 17 20:59:04 2006
From: developer at ultradnt.com (Steve Conklin)
Date: Tue, 17 Jan 2006 21:59:04 -0500
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <7.0.0.16.0.20060118154529.01a31530@dalyn.co.nz>
Message-ID: <200601180259.k0I2x2c19239@ultradnt.com>

Install ZoneAlarm ? 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
Sent: Tuesday, January 17, 2006 9:49 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT - Progs Using Internet Connection

This is way off topic but does anyone know how I can find out what programs
are sending packets over my internet connection?  Some of them will be valid
(eg virus protection updating) but it would be nice to know if I have
something sending info out that shouldn't be).

Regards

David Emerson
Dalyn Software Ltd
New Zealand 

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




From newsgrps at dalyn.co.nz  Tue Jan 17 21:06:37 2006
From: newsgrps at dalyn.co.nz (David Emerson)
Date: Wed, 18 Jan 2006 16:06:37 +1300
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <200601180259.k0I2x2c19239@ultradnt.com>
References: <7.0.0.16.0.20060118154529.01a31530@dalyn.co.nz>
	<200601180259.k0I2x2c19239@ultradnt.com>
Message-ID: <7.0.0.16.0.20060118160550.01a8e108@dalyn.co.nz>

Thanks Steve,  I was kind of hoping that Windows has something built 
in.  I have XP professional.

David

At 18/01/2006, you wrote:
>Install ZoneAlarm ?
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
>Sent: Tuesday, January 17, 2006 9:49 PM
>To: accessd at databaseadvisors.com
>Subject: [AccessD] OT - Progs Using Internet Connection
>
>This is way off topic but does anyone know how I can find out what programs
>are sending packets over my internet connection?  Some of them will be valid
>(eg virus protection updating) but it would be nice to know if I have
>something sending info out that shouldn't be).
>
>Regards
>
>David Emerson
>Dalyn Software Ltd
>New Zealand
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com



From developer at ultradnt.com  Tue Jan 17 21:23:49 2006
From: developer at ultradnt.com (Steve Conklin)
Date: Tue, 17 Jan 2006 22:23:49 -0500
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <7.0.0.16.0.20060118160550.01a8e108@dalyn.co.nz>
Message-ID: <200601180323.k0I3Nlc22060@ultradnt.com>

If I recall correctly, that's the major piece missing from Windows built-in
firewall - it only checks inbound.  ZA free version is very good.


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
Sent: Tuesday, January 17, 2006 10:07 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT - Progs Using Internet Connection

Thanks Steve,  I was kind of hoping that Windows has something built in.  I
have XP professional.

David

At 18/01/2006, you wrote:
>Install ZoneAlarm ?
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David 
>Emerson
>Sent: Tuesday, January 17, 2006 9:49 PM
>To: accessd at databaseadvisors.com
>Subject: [AccessD] OT - Progs Using Internet Connection
>
>This is way off topic but does anyone know how I can find out what 
>programs are sending packets over my internet connection?  Some of them 
>will be valid (eg virus protection updating) but it would be nice to 
>know if I have something sending info out that shouldn't be).
>
>Regards
>
>David Emerson
>Dalyn Software Ltd
>New Zealand
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com

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




From bchacc at san.rr.com  Tue Jan 17 22:11:09 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Tue, 17 Jan 2006 20:11:09 -0800
Subject: [AccessD] BE Relinker
In-Reply-To: <43CDF1BB.18971.14D2DE2@stuart.lexacorp.com.pg>
References: <43CDF1BB.18971.14D2DE2@stuart.lexacorp.com.pg>
Message-ID: <43CDBFDD.30007@san.rr.com>

I use Tribble's relinker.  I'm not sure if it's still on the web 
somewhere.  But, if it can't find the BE tables in the FE folder it 
opens the file open dialog box and asks you to point to the back end and 
then relinks.  Very nice piece of code.

Rocky


Stuart McLachlan wrote:
> On 17 Jan 2006 at 8:09, Joe Hecht wrote:
>
>   
>> Did some kind, generous and way smarter then me soul create
>> at BE relinker?
>>
>>     
>
> Here's my standard module that I use when the BE and FE are in the same 
> directory.  Not that it if your BE is password protected, you will need to 
> modify this slightly since "tdfloop.Connect" will contain additional info 
> before the first semicolon. 
>
>
> Function RelinkTables() As Long
> Dim tdfloop As TableDef
> With CurrentDb
>         For Each tdfloop In .TableDefs
>             If Left$(tdfloop.Connect, 10) = ";DATABASE=" Then
>                tdfloop.Connect = ";DATABASE=" & ApplDir & 
> FileBasename(Mid$(tdfloop.Connect, 11))
>                tdfloop.RefreshLink
>             End If
>         Next tdfloop
> End With
> End Function
>
> Static Function ApplDir() As String
>    Dim strApplDir As String
>    Dim strTemp As String
>    If strApplDir = "" Then
>     strTemp = DBEngine(0)(0).Name
>     strApplDir = Left$(strTemp, InStrRev(strTemp, "\"))
>    End If
>    ApplDir = strApplDir
> End Function
>
> Function FileBasename(fullpath As String) As String
>     FileBasename = Right$(fullpath, Len(fullpath) - InStrRev(fullpath, 
> "\"))
> End Function-- 
> Stuart
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From jmhecht at earthlink.net  Tue Jan 17 22:11:49 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 17 Jan 2006 20:11:49 -0800
Subject: [AccessD] BE Relinker
In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD56A@main2.marlow.com>
Message-ID: <000001c61be5$50754040$6701a8c0@HPLaptop>

Drew, 

Always thanks first.

Would like to see yours if you do not mind.

This would be to two to five users with front ends hitting
BE on server.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Tuesday, January 17, 2006 10:35 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] BE Relinker

I posted a while back, on something that would be a
'seamless' relinker.
You can 'search' a subnet with UDP, which is very fast
(split second on a
subnet with over a thousand IPs on it), and have a 'service'
that listens
for that UDP broadcast, and replies with requested
information.  ie, FE on
home network, broadcasts and hits the service on your home
network, which
tells the FE where the backends on your home network are.
FE relinks to
backend.  You modify the FE, send it to client.  Client
opens FE, again, FE
finds the service on clients network, which tells the FE
where to relink
it's tables too.  

Would be pretty easy to setup, let me know if you would be
interested.

Drew

-----Original Message-----
From: Joe Hecht [mailto:jmhecht at earthlink.net]
Sent: Tuesday, January 17, 2006 10:10 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] BE Relinker


Did some kind, generous and way smarter then me soul create
at BE relinker?

 

 

Joe Hecht

jmhecht at earthlink.net

 

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



From bchacc at san.rr.com  Tue Jan 17 22:13:21 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Tue, 17 Jan 2006 20:13:21 -0800
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <200601180259.k0I2x2c19239@ultradnt.com>
References: <200601180259.k0I2x2c19239@ultradnt.com>
Message-ID: <43CDC061.3070506@san.rr.com>

I recently switched from Zone Alarm to Sygate Personal Firewall.  ZA was 
staring to cause problems.  Sygate will tell you when somethings sending 
out to the internet.

Rocky


Steve Conklin wrote:
> Install ZoneAlarm ? 
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
> Sent: Tuesday, January 17, 2006 9:49 PM
> To: accessd at databaseadvisors.com
> Subject: [AccessD] OT - Progs Using Internet Connection
>
> This is way off topic but does anyone know how I can find out what programs
> are sending packets over my internet connection?  Some of them will be valid
> (eg virus protection updating) but it would be nice to know if I have
> something sending info out that shouldn't be).
>
> Regards
>
> David Emerson
> Dalyn Software Ltd
> New Zealand 
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From stuart at lexacorp.com.pg  Tue Jan 17 22:37:31 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Wed, 18 Jan 2006 14:37:31 +1000
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <7.0.0.16.0.20060118154529.01a31530@dalyn.co.nz>
Message-ID: <43CE52AB.19185.2C7D762@stuart.lexacorp.com.pg>

On 18 Jan 2006 at 15:48, David Emerson wrote:

> This is way off topic but does anyone know how I can find out what 
> programs are sending packets over my internet connection?  Some of 
> them will be valid (eg virus protection updating) but it would be 
> nice to know if I have something sending info out that shouldn't be).
> 

I use Kerio Personal Firewall for this


-- 
Stuart




From Erwin.Craps at ithelps.be  Wed Jan 18 03:38:48 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Wed, 18 Jan 2006 10:38:48 +0100
Subject: [AccessD] OT - Progs Using Internet Connection
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62AC@stekelbes.ithelps.local>


http://www.protect-me.com/freeware.html 

Active ports, will monitor all your IP port activity, tell the from and
to IP address/port and which app is dooing it.

It is not a firewall or port blocker, just a realtime monitor, but very
efficiant.

Erwin




-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Wednesday, January 18, 2006 5:13 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT - Progs Using Internet Connection

I recently switched from Zone Alarm to Sygate Personal Firewall.  ZA was
staring to cause problems.  Sygate will tell you when somethings sending
out to the internet.

Rocky


Steve Conklin wrote:
> Install ZoneAlarm ? 
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David 
> Emerson
> Sent: Tuesday, January 17, 2006 9:49 PM
> To: accessd at databaseadvisors.com
> Subject: [AccessD] OT - Progs Using Internet Connection
>
> This is way off topic but does anyone know how I can find out what 
> programs are sending packets over my internet connection?  Some of 
> them will be valid (eg virus protection updating) but it would be nice

> to know if I have something sending info out that shouldn't be).
>
> Regards
>
> David Emerson
> Dalyn Software Ltd
> New Zealand
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>   

--
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

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


From Gustav at cactus.dk  Wed Jan 18 04:27:50 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 18 Jan 2006 11:27:50 +0100
Subject: [AccessD] Ok,
	Let me ask it a different way.. (was:	Subform colummn adjustment?)
Message-ID: <s3ce264b.024@cactus.dk>

Hi Robert

I don't think there is an event for this, but even so why not just loop the fields and record the current ColumnWidth when you close the form. Then, when opening the form, read and set the ColumnWidth for each field.
ColumnWidth contains the width in twips. Value -1 is for default width while -2 is for "fit to data" as if you double-click the header.

You could do the same for the RowHeight of the form (or reset it). This is in twips as well, and -1 for default height.

/gustav

>>> robert at servicexp.com 17-01-2006 23:50 >>>
 
Is there any way to capture the user adjusting a column or row? I don't
see any events for such, but is there a different way...

The more I think about this, maybe using a right click function for a
"save dimensions" in a table type thing....????



******************************************
Is there ANY way to allow a user to set the column width and row height
(datasheet view) to their choice and SAVE that choice in an MDE?


Robert Gracie
www.gbsysnow.com 
******************************************




From wdhindman at bellsouth.net  Wed Jan 18 04:59:46 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 18 Jan 2006 05:59:46 -0500
Subject: [AccessD] BE Relinker
References: <43CDF1BB.18971.14D2DE2@stuart.lexacorp.com.pg>
	<43CDBFDD.30007@san.rr.com>
Message-ID: <000d01c61c1e$4b935060$6101a8c0@JISREGISTRATION.local>

...JC keeps a copy available here:
http://www.colbyconsulting.com/UsefulFiles/tabid/126/Default.aspx

William

----- Original Message ----- 
From: "Rocky Smolin - Beach Access Software" <bchacc at san.rr.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Tuesday, January 17, 2006 11:11 PM
Subject: Re: [AccessD] BE Relinker


>I use Tribble's relinker.  I'm not sure if it's still on the web
> somewhere.  But, if it can't find the BE tables in the FE folder it
> opens the file open dialog box and asks you to point to the back end and
> then relinks.  Very nice piece of code.
>
> Rocky
>
>
> Stuart McLachlan wrote:
>> On 17 Jan 2006 at 8:09, Joe Hecht wrote:
>>
>>
>>> Did some kind, generous and way smarter then me soul create
>>> at BE relinker?
>>>
>>>
>>
>> Here's my standard module that I use when the BE and FE are in the same
>> directory.  Not that it if your BE is password protected, you will need 
>> to
>> modify this slightly since "tdfloop.Connect" will contain additional info
>> before the first semicolon.
>>
>>
>> Function RelinkTables() As Long
>> Dim tdfloop As TableDef
>> With CurrentDb
>>         For Each tdfloop In .TableDefs
>>             If Left$(tdfloop.Connect, 10) = ";DATABASE=" Then
>>                tdfloop.Connect = ";DATABASE=" & ApplDir &
>> FileBasename(Mid$(tdfloop.Connect, 11))
>>                tdfloop.RefreshLink
>>             End If
>>         Next tdfloop
>> End With
>> End Function
>>
>> Static Function ApplDir() As String
>>    Dim strApplDir As String
>>    Dim strTemp As String
>>    If strApplDir = "" Then
>>     strTemp = DBEngine(0)(0).Name
>>     strApplDir = Left$(strTemp, InStrRev(strTemp, "\"))
>>    End If
>>    ApplDir = strApplDir
>> End Function
>>
>> Function FileBasename(fullpath As String) As String
>>     FileBasename = Right$(fullpath, Len(fullpath) - InStrRev(fullpath,
>> "\"))
>> End Function-- 
>> Stuart
>>
>>
>>
>
> -- 
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From accessd at shaw.ca  Wed Jan 18 06:29:01 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Wed, 18 Jan 2006 04:29:01 -0800
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <7.0.0.16.0.20060118154529.01a31530@dalyn.co.nz>
Message-ID: <000e01c61c2a$c36ad340$017ba8c0@xpserver>

Hi David:

You can use a network packet sniffer. On most networks this type of product
tends to be considered in poor form at the least and security threat at the
most. (Windows does not encrypt its intranet passwords.) Here is a link to a
free sniffer:
http://netsecurity.about.com/cs/hackertools/a/aafreepacsniff.htm

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
Sent: January 17, 2006 6:49 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] OT - Progs Using Internet Connection

This is way off topic but does anyone know how I can find out what 
programs are sending packets over my internet connection?  Some of 
them will be valid (eg virus protection updating) but it would be 
nice to know if I have something sending info out that shouldn't be).

Regards

David Emerson
Dalyn Software Ltd
New Zealand 

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



From robert at servicexp.com  Wed Jan 18 06:57:24 2006
From: robert at servicexp.com (Robert Gracie)
Date: Wed, 18 Jan 2006 07:57:24 -0500
Subject: [AccessD] Ok,
	Let me ask it a different way.. (was:	Subform colummn adjustment?)
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CE2@gbsserver.GBS.local>

Hello Gustav,

 Thank you VERY much for the directional help, It's appreciated. I wound
up doing exactly what you described. I found a small project on Access
Advisors, that used two classes and a table to do exactly what you
described.

  With a little tweaking, I now have full control (allow, disallow,
record and update changes) over column width, column order, column
visible and row height. It accomplishes this in real time with the use
of WithEvents. 

  My only concern is with bloating, on exiting of the form the
procedures deletes the records (field settings for that subform) and re
writes the existing settings to the table.


 Thanks Again Gustav!!


Robert Gracie
www.gbsysnow.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 18, 2006 6:01 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Ok,Let me ask it a different way.. (was: Subform
colummn adjustment?)

Hi Robert

I don't think there is an event for this, but even so why not just loop
the fields and record the current ColumnWidth when you close the form.
Then, when opening the form, read and set the ColumnWidth for each
field.
ColumnWidth contains the width in twips. Value -1 is for default width
while -2 is for "fit to data" as if you double-click the header.

You could do the same for the RowHeight of the form (or reset it). This
is in twips as well, and -1 for default height.

/gustav

>>> robert at servicexp.com 17-01-2006 23:50 >>>
 
Is there any way to capture the user adjusting a column or row? I don't
see any events for such, but is there a different way...

The more I think about this, maybe using a right click function for a
"save dimensions" in a table type thing....????



******************************************
Is there ANY way to allow a user to set the column width and row height
(datasheet view) to their choice and SAVE that choice in an MDE?


Robert Gracie
www.gbsysnow.com
******************************************


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




From Gustav at cactus.dk  Wed Jan 18 06:58:23 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 18 Jan 2006 13:58:23 +0100
Subject: [AccessD] Ok,
	Let me ask it a different way..	(was:	Subform colummn adjustment?)
Message-ID: <s3ce498d.032@cactus.dk>

Hi Robert

Fine!
As for the bloating, perhaps you could rewrite the code to perform an update of existing records and append if missing. Deleting all records sounds a bit primitive in this case.

/gustav

>>> robert at servicexp.com 18-01-2006 13:57 >>>
Hello Gustav,

 Thank you VERY much for the directional help, It's appreciated. I wound
up doing exactly what you described. I found a small project on Access
Advisors, that used two classes and a table to do exactly what you
described.

  With a little tweaking, I now have full control (allow, disallow,
record and update changes) over column width, column order, column
visible and row height. It accomplishes this in real time with the use
of WithEvents. 

  My only concern is with bloating, on exiting of the form the
procedures deletes the records (field settings for that subform) and re
writes the existing settings to the table.


 Thanks Again Gustav!!


Robert Gracie
www.gbsysnow.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 18, 2006 6:01 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Ok,Let me ask it a different way.. (was: Subform
colummn adjustment?)

Hi Robert

I don't think there is an event for this, but even so why not just loop
the fields and record the current ColumnWidth when you close the form.
Then, when opening the form, read and set the ColumnWidth for each
field.
ColumnWidth contains the width in twips. Value -1 is for default width
while -2 is for "fit to data" as if you double-click the header.

You could do the same for the RowHeight of the form (or reset it). This
is in twips as well, and -1 for default height.

/gustav

>>> robert at servicexp.com 17-01-2006 23:50 >>>
 
Is there any way to capture the user adjusting a column or row? I don't
see any events for such, but is there a different way...

The more I think about this, maybe using a right click function for a
"save dimensions" in a table type thing....????



******************************************
Is there ANY way to allow a user to set the column width and row height
(datasheet view) to their choice and SAVE that choice in an MDE?


Robert Gracie
www.gbsysnow.com 
******************************************




From wdhindman at bellsouth.net  Wed Jan 18 08:01:48 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 18 Jan 2006 09:01:48 -0500
Subject: [AccessD] ...close open forms
References: <43CE52AB.19185.2C7D762@stuart.lexacorp.com.pg>
Message-ID: <000a01c61c37$b9ba4850$6101a8c0@JISREGISTRATION.local>

...I need to close any open forms ...other than designated forms ...and save 
their data ...before opening a called form ...from the called form.

...ie call a form open from a switchboard ...the called form checks for any 
other forms open, other than the sb, and closes them, saving their data, 
before it opens.

William 




From Gustav at cactus.dk  Wed Jan 18 08:22:20 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 18 Jan 2006 15:22:20 +0100
Subject: [AccessD] ...close open forms
Message-ID: <s3ce5d48.039@cactus.dk>

Hi William

How about:

  ' Close all forms except this first opened form.
  For lngF = Forms.Count - 1 To 1 Step -1
    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
  Next

/gustav

>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
...I need to close any open forms ...other than designated forms ...and save 
their data ...before opening a called form ...from the called form.

...ie call a form open from a switchboard ...the called form checks for any 
other forms open, other than the sb, and closes them, saving their data, 
before it opens.

William 




From Lambert.Heenan at AIG.com  Wed Jan 18 08:42:36 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 18 Jan 2006 09:42:36 -0500
Subject: [AccessD] ...close open forms
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6DEB8@xlivmbx21.aig.com>

Could this be a problem?...

"For lngF = Forms.Count - 1 To 1 Step -1"  if form n is closed, does
Forms.Count not simultaneously decrease? In which case might the loop miss
an open form?

An alternative would be

Sub CloseEm(strKeepOpen as String)
Dim f as Form

For Each f In Forms
	If f.Name <> strKeepOpen Then  DoCmd.Close acForm. F.Name, acSaveYes
Next f
End Sub


Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 18, 2006 9:22 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] ...close open forms


Hi William

How about:

  ' Close all forms except this first opened form.
  For lngF = Forms.Count - 1 To 1 Step -1
    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
  Next

/gustav

>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
...I need to close any open forms ...other than designated forms ...and save

their data ...before opening a called form ...from the called form.

...ie call a form open from a switchboard ...the called form checks for any 
other forms open, other than the sb, and closes them, saving their data, 
before it opens.

William 


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


From shamil at users.mns.ru  Wed Jan 18 08:53:13 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 18 Jan 2006 17:53:13 +0300
Subject: [AccessD] ...close open forms
References: <43CE52AB.19185.2C7D762@stuart.lexacorp.com.pg>
	<000a01c61c37$b9ba4850$6101a8c0@JISREGISTRATION.local>
Message-ID: <001501c61c3e$e9657b90$6401a8c0@fincomplex.spb.ru>

William,

It's unclear what do you mean by saving data before closing form - do you
have unbound forms?

For bound forms this code should work well:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
    ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    lParam As Any) As Long
Private Const WM_CLOSE = &H10

Public Sub CloseForms( _
   ByRef robjApp As Access.Application, _
   Optional ByRef rcolFormNames2Skip As Collection = Nothing)
Dim lngIdx As Long
Dim efrm As Access.Form
    With robjApp.Forms
        If .Count > 0 Then
            For lngIdx = .Count - 1 To 0 Step -1
               Set efrm = .Item(lngIdx)
               If Not SkipThisForm(rcolFormNames2Skip, efrm) Then
                  ' force to save data in bound form before
                  '  closing it
                  efrm.SetFocus
                  DoEvents
                  SendKeys "+{Enter}", True
                  ' close form
                  SendMessage efrm.hWnd, WM_CLOSE, 0, 0
                  DoEvents
               End If
            Next lngIdx
        End If
    End With
End Sub

Private Function SkipThisForm( _
         ByRef rcolFormNames2Skip As Collection, _
         ByRef rfrm As Access.Form) As Boolean
Dim evar As Variant
    If Not rcolFormNames2Skip Is Nothing Then
       For Each evar In rcolFormNames2Skip
          If StrComp(CStr(evar), rfrm.Name, vbTextCompare) = 0 Then
             SkipThisForm = True
             Exit Function
          End If
       Next evar
    End If
    SkipThisForm = False
End Function

It can be called this way from Switchboard form:

Dim col As New Collection
    col.Add Me.Name
    CloseForms Access.Application, col


You can also implement a special predefined public method in all your forms,
which can be called to save data before closing the form etc....

Shamil

----- Original Message ----- 
From: "William Hindman" <wdhindman at bellsouth.net>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 5:01 PM
Subject: [AccessD] ...close open forms


> ...I need to close any open forms ...other than designated forms ...and
save
> their data ...before opening a called form ...from the called form.
>
> ...ie call a form open from a switchboard ...the called form checks for
any
> other forms open, other than the sb, and closes them, saving their data,
> before it opens.
>
> William
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From jwcolby at ColbyConsulting.com  Wed Jan 18 10:40:00 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 18 Jan 2006 11:40:00 -0500
Subject: [AccessD] First/last day of week
Message-ID: <001801c61c4d$d5139e10$647aa8c0@ColbyM6805>

Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 




From papparuff at comcast.net  Wed Jan 18 10:56:22 2006
From: papparuff at comcast.net (papparuff at comcast.net)
Date: Wed, 18 Jan 2006 16:56:22 +0000
Subject: [AccessD] First/last day of week
Message-ID: <011820061656.17492.43CE733600089C2000004454220922992700009A9D0E9F9F0E9F@comcast.net>

FirstDayOfWeek = datDateToCheck - (Weekday(datDateToCheck )-1)
LastDayOfWeek = datDateToCheck  + (7-(Weekday(datDateToCheck ))

--
John V. Ruff ? The Eternal Optimist :-) 

?Commit to the Lord whatever you do, 
and your plans will succeed.? Proverbs 16:3

-------------- Original message -------------- 
From: "John Colby" <jwcolby at ColbyConsulting.com> 

> Does anyone have these functions? 
> 
> John W. Colby 
> www.ColbyConsulting.com 
> 
> 
> -- 
> AccessD mailing list 
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 

From Gustav at cactus.dk  Wed Jan 18 10:57:15 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 18 Jan 2006 17:57:15 +0100
Subject: [AccessD] First/last day of week
Message-ID: <s3ce8198.043@cactus.dk>

Hi John

Busy multitasking week ..?
Anyway, here are the functions we use:

Public Function DateWeekFirst( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the first date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
  
  DateWeekFirst = DateAdd("d", vbSunday - WeekDay(datDate, lngFirstDayOfWeek), datDate)
    
End Function

Public Function DateWeekLast( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the last date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
      
  DateWeekLast = DateAdd("d", vbSaturday - WeekDay(datDate, lngFirstDayOfWeek), datDate)
    
End Function

/gustav

>>> jwcolby at ColbyConsulting.com 18-01-2006 17:40:00 >>>
Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 




From darsant at gmail.com  Wed Jan 18 11:31:22 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Wed, 18 Jan 2006 11:31:22 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local>
Message-ID: <53c8e05a0601180931u68d8b307s8c0c35dcff5ee91c@mail.gmail.com>

On 1/17/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> Yes, the behavior is different is you use the add-in.  The shop I work
> in uses SourceSafe, so I'm not likely to switch to something else.  I'm
> not sure I would like creating multiple stems from a base file.  Sounds
> to me like an even better way to get versions screwed up.  At least the
> way we have SourceSafe set up, only one person can have an object
> checked out at a time, and all project that use that object will get the
> same version when it's checked back in.  If we've branched it for a
> particular project, then the changes don't get applied to that version.
> Works for us, and it works nicely with VS.Net, so we're happy.

Well, branching is made to be unintusive. Most other versions of
source control use merging rather than single-user checkouts. This
way, multiple people can work on the same source, and then when they
go to check back in, if changes collide, the second person reviews the
new code and modifies the version they are checking in accordingly.
Otherwise, if it's the same file but non-related functions, the merge
is seamless.

Branching is used if you're working on a major change, say adding a
new module to the program, but don't want to disrupt other people's
work. You work on your change, and then once it's finished, you can
rejoin your branch to the main version and merge changes accordingly.

Oh, another thing I like is in Subversion you can create tags. They
basically make a little marker with a title that you have that pulls
all files down from a certain revision, so when we send software to
our customer, we tag it with the date and name, and then if they ever
have a version, we can pull the exact code they used down with a
simple click.

--
Josh McFarlane
"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From Lambert.Heenan at AIG.com  Wed Jan 18 11:36:50 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 18 Jan 2006 11:36:50 -0600
Subject: [AccessD] First/last day of week
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6DFD1@xlivmbx21.aig.com>

How about...

FirstDOW="Monday"
LastDOW="Friday"

:-)

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Wednesday, January 18, 2006 11:40 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] First/last day of week


Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 


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


From jwcolby at ColbyConsulting.com  Wed Jan 18 11:56:03 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 18 Jan 2006 12:56:03 -0500
Subject: [AccessD] First/last day of week
In-Reply-To: <s3ce8198.043@cactus.dk>
Message-ID: <002401c61c58$7433f620$647aa8c0@ColbyM6805>

>Busy multitasking week ..?

OMG, you can't believe! I am to the point where I am using Outlook to
schedule blocks of my time for specific client tasks.  0800-1700 filled with
1/2 hr lunch and then 2100-midnight as well.  And that for the next couple
of weeks, and possibly beyond.

Thanks for the functions.  I integrated them into my Date Range selector
class and now have a "This week" selection.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 18, 2006 11:57 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] First/last day of week

Hi John

Busy multitasking week ..?
Anyway, here are the functions we use:

Public Function DateWeekFirst( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the first date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
  
  DateWeekFirst = DateAdd("d", vbSunday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

Public Function DateWeekLast( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the last date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
      
  DateWeekLast = DateAdd("d", vbSaturday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

/gustav

>>> jwcolby at ColbyConsulting.com 18-01-2006 17:40:00 >>>
Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 


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



From cfoust at infostatsystems.com  Wed Jan 18 11:58:07 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 18 Jan 2006 09:58:07 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF36@INFOSERVER04.infostat.local>

All I can say, is that I would NOT want to work with merging rather than
single-user checkouts.  SourceSafe can be set up that way, but it keeps
everything a lot cleaner when two people aren't even trying to modify
the same object at the same time.  Since we don't have one huge file to
deal with, I'd rather err on the side of caution.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Wednesday, January 18, 2006 9:31 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/17/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> Yes, the behavior is different is you use the add-in.  The shop I work

> in uses SourceSafe, so I'm not likely to switch to something else.  
> I'm not sure I would like creating multiple stems from a base file.  
> Sounds to me like an even better way to get versions screwed up.  At 
> least the way we have SourceSafe set up, only one person can have an 
> object checked out at a time, and all project that use that object 
> will get the same version when it's checked back in.  If we've 
> branched it for a particular project, then the changes don't get 
> applied to that version. Works for us, and it works nicely with 
> VS.Net, so we're happy.

Well, branching is made to be unintusive. Most other versions of source
control use merging rather than single-user checkouts. This way,
multiple people can work on the same source, and then when they go to
check back in, if changes collide, the second person reviews the new
code and modifies the version they are checking in accordingly.
Otherwise, if it's the same file but non-related functions, the merge is
seamless.

Branching is used if you're working on a major change, say adding a new
module to the program, but don't want to disrupt other people's work.
You work on your change, and then once it's finished, you can rejoin
your branch to the main version and merge changes accordingly.

Oh, another thing I like is in Subversion you can create tags. They
basically make a little marker with a title that you have that pulls all
files down from a certain revision, so when we send software to our
customer, we tag it with the date and name, and then if they ever have a
version, we can pull the exact code they used down with a simple click.

--
Josh McFarlane
"Peace cannot be kept by force. It can only be achieved by
understanding." -Albert Einstein
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From cfoust at infostatsystems.com  Wed Jan 18 11:58:50 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 18 Jan 2006 09:58:50 -0800
Subject: [AccessD] First/last day of week
Message-ID: <F55048AF7E974F429BB24597D7355EEABF37@INFOSERVER04.infostat.local>

Short week, Lambert? ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan,
Lambert
Sent: Wednesday, January 18, 2006 9:37 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


How about...

FirstDOW="Monday"
LastDOW="Friday"

:-)

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Wednesday, January 18, 2006 11:40 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] First/last day of week


Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 


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


From wdhindman at bellsouth.net  Wed Jan 18 12:01:18 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 18 Jan 2006 13:01:18 -0500
Subject: [AccessD] ...close open forms
Message-ID: <001a01c61c59$2ee36780$6101a8c0@JISREGISTRATION.local>


----- Original Message ----- 
From: "William Hindman" <wdhindman at bellsouth.net>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 12:58 PM
Subject: Re: [AccessD] ...close open forms


> Shamil
>
> ...I use both now ...I generally prefer bound forms ...but in apps with 
> several users I've run into problems with record locking ...so for those 
> forms where this is happening I've gradually been converting to unbound 
> forms.
>
> ...but what I'm looking for here is a generic plug-in that will work 
> equally well with both ...I'm building a new user interface that uses a 
> treeview switchboard form that is always in view ...one of the problems 
> being of course that a user can select from the switchboard at any time 
> even when a form is already open ...there are a number of ways to cover 
> that but what I was hoping someone had was a function that I could simply 
> call on form open that would iterate through all open forms, except those 
> I want left open, saving any dirty data, and closing them before opening 
> the new form.
>
> ...I'll try the approaches you and Gustav have posted and let you know 
> ...thanks for the quick replies :)
>
> William
>
> ----- Original Message ----- 
> From: "Shamil Salakhetdinov" <shamil at users.mns.ru>
> To: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> Sent: Wednesday, January 18, 2006 9:53 AM
> Subject: Re: [AccessD] ...close open forms
>
>
>> William,
>>
>> It's unclear what do you mean by saving data before closing form - do you
>> have unbound forms?
>>
>> For bound forms this code should work well:
>>
>> Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" 
>> ( _
>>    ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
>>    lParam As Any) As Long
>> Private Const WM_CLOSE = &H10
>>
>> Public Sub CloseForms( _
>>   ByRef robjApp As Access.Application, _
>>   Optional ByRef rcolFormNames2Skip As Collection = Nothing)
>> Dim lngIdx As Long
>> Dim efrm As Access.Form
>>    With robjApp.Forms
>>        If .Count > 0 Then
>>            For lngIdx = .Count - 1 To 0 Step -1
>>               Set efrm = .Item(lngIdx)
>>               If Not SkipThisForm(rcolFormNames2Skip, efrm) Then
>>                  ' force to save data in bound form before
>>                  '  closing it
>>                  efrm.SetFocus
>>                  DoEvents
>>                  SendKeys "+{Enter}", True
>>                  ' close form
>>                  SendMessage efrm.hWnd, WM_CLOSE, 0, 0
>>                  DoEvents
>>               End If
>>            Next lngIdx
>>        End If
>>    End With
>> End Sub
>>
>> Private Function SkipThisForm( _
>>         ByRef rcolFormNames2Skip As Collection, _
>>         ByRef rfrm As Access.Form) As Boolean
>> Dim evar As Variant
>>    If Not rcolFormNames2Skip Is Nothing Then
>>       For Each evar In rcolFormNames2Skip
>>          If StrComp(CStr(evar), rfrm.Name, vbTextCompare) = 0 Then
>>             SkipThisForm = True
>>             Exit Function
>>          End If
>>       Next evar
>>    End If
>>    SkipThisForm = False
>> End Function
>>
>> It can be called this way from Switchboard form:
>>
>> Dim col As New Collection
>>    col.Add Me.Name
>>    CloseForms Access.Application, col
>>
>>
>> You can also implement a special predefined public method in all your 
>> forms,
>> which can be called to save data before closing the form etc....
>>
>> Shamil
>>
>> ----- Original Message ----- 
>> From: "William Hindman" <wdhindman at bellsouth.net>
>> To: "Access Developers discussion and problem solving"
>> <accessd at databaseadvisors.com>
>> Sent: Wednesday, January 18, 2006 5:01 PM
>> Subject: [AccessD] ...close open forms
>>
>>
>>> ...I need to close any open forms ...other than designated forms ...and
>> save
>>> their data ...before opening a called form ...from the called form.
>>>
>>> ...ie call a form open from a switchboard ...the called form checks for
>> any
>>> other forms open, other than the sb, and closes them, saving their data,
>>> before it opens.
>>>
>>> William
>>>
>>>
>>> -- 
>>> AccessD mailing list
>>> AccessD at databaseadvisors.com
>>> http://databaseadvisors.com/mailman/listinfo/accessd
>>> Website: http://www.databaseadvisors.com
>>
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
> 




From shamil at users.mns.ru  Wed Jan 18 12:11:10 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 18 Jan 2006 21:11:10 +0300
Subject: [AccessD] Source Code Control
References: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local>
	<53c8e05a0601180931u68d8b307s8c0c35dcff5ee91c@mail.gmail.com>
Message-ID: <001901c61c5a$925a8cc0$6401a8c0@fincomplex.spb.ru>

Josh,

Is there somewhere a short step-by-step tutorial/instruction how to install
Subversion with Visual Studio?

I have heard a lot of good references about it but I didn't use it yet.

Is it possible to encrypt transparently for client development tools source
files stored in Subversion database? Reason is to use commercial software
sources stored on a public Web server running Subversion.

Thank you,
Shamil

----- Original Message ----- 
From: "Josh McFarlane" <darsant at gmail.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 8:31 PM
Subject: Re: [AccessD] Source Code Control


> On 1/17/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> > Yes, the behavior is different is you use the add-in.  The shop I work
> > in uses SourceSafe, so I'm not likely to switch to something else.  I'm
> > not sure I would like creating multiple stems from a base file.  Sounds
> > to me like an even better way to get versions screwed up.  At least the
> > way we have SourceSafe set up, only one person can have an object
> > checked out at a time, and all project that use that object will get the
> > same version when it's checked back in.  If we've branched it for a
> > particular project, then the changes don't get applied to that version.
> > Works for us, and it works nicely with VS.Net, so we're happy.
>
> Well, branching is made to be unintusive. Most other versions of
> source control use merging rather than single-user checkouts. This
> way, multiple people can work on the same source, and then when they
> go to check back in, if changes collide, the second person reviews the
> new code and modifies the version they are checking in accordingly.
> Otherwise, if it's the same file but non-related functions, the merge
> is seamless.
>
> Branching is used if you're working on a major change, say adding a
> new module to the program, but don't want to disrupt other people's
> work. You work on your change, and then once it's finished, you can
> rejoin your branch to the main version and merge changes accordingly.
>
> Oh, another thing I like is in Subversion you can create tags. They
> basically make a little marker with a title that you have that pulls
> all files down from a certain revision, so when we send software to
> our customer, we tag it with the date and name, and then if they ever
> have a version, we can pull the exact code they used down with a
> simple click.
>
> --
> Josh McFarlane
> "Peace cannot be kept by force. It can only be achieved by understanding."
> -Albert Einstein
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Lambert.Heenan at AIG.com  Wed Jan 18 12:27:32 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 18 Jan 2006 13:27:32 -0500
Subject: [AccessD] First/last day of week
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6E00B@xlivmbx21.aig.com>

Not short enough!!!! :-)

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Wednesday, January 18, 2006 12:59 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] First/last day of week


Short week, Lambert? ;o}

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Wednesday, January 18, 2006 9:37 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


How about...

FirstDOW="Monday"
LastDOW="Friday"

:-)

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Wednesday, January 18, 2006 11:40 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] First/last day of week


Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 


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


From newsgrps at dalyn.co.nz  Wed Jan 18 13:14:03 2006
From: newsgrps at dalyn.co.nz (David Emerson)
Date: Thu, 19 Jan 2006 08:14:03 +1300
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <46B976F2B698FF46A4FE7636509B22DF1B62AC@stekelbes.ithelps.l ocal>
References: <46B976F2B698FF46A4FE7636509B22DF1B62AC@stekelbes.ithelps.local>
Message-ID: <7.0.0.16.0.20060119081241.01a44e18@dalyn.co.nz>

Thanks all.  I already had a firewall in my router so didn't want to 
upset that by installing another one.  I went for Erwin's suggestion.

David

At 18/01/2006, you wrote:

>http://www.protect-me.com/freeware.html
>
>Active ports, will monitor all your IP port activity, tell the from and
>to IP address/port and which app is dooing it.
>
>It is not a firewall or port blocker, just a realtime monitor, but very
>efficiant.
>
>Erwin
>
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
>- Beach Access Software
>Sent: Wednesday, January 18, 2006 5:13 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] OT - Progs Using Internet Connection
>
>I recently switched from Zone Alarm to Sygate Personal Firewall.  ZA was
>staring to cause problems.  Sygate will tell you when somethings sending
>out to the internet.
>
>Rocky
>
>
>Steve Conklin wrote:
> > Install ZoneAlarm ?
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David
> > Emerson
> > Sent: Tuesday, January 17, 2006 9:49 PM
> > To: accessd at databaseadvisors.com
> > Subject: [AccessD] OT - Progs Using Internet Connection
> >
> > This is way off topic but does anyone know how I can find out what
> > programs are sending packets over my internet connection?  Some of
> > them will be valid (eg virus protection updating) but it would be nice
>
> > to know if I have something sending info out that shouldn't be).
> >
> > Regards
> >
> > David Emerson
> > Dalyn Software Ltd
> > New Zealand



From cfoust at infostatsystems.com  Wed Jan 18 13:23:33 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 18 Jan 2006 11:23:33 -0800
Subject: [AccessD] OT - Progs Using Internet Connection
Message-ID: <F55048AF7E974F429BB24597D7355EEABF38@INFOSERVER04.infostat.local>

Hardware firewalls, as in your router, aren't enough.  You still need a
software firewall to protect you from nasties that phone home.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
Sent: Wednesday, January 18, 2006 11:14 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT - Progs Using Internet Connection


Thanks all.  I already had a firewall in my router so didn't want to 
upset that by installing another one.  I went for Erwin's suggestion.

David

At 18/01/2006, you wrote:

>http://www.protect-me.com/freeware.html
>
>Active ports, will monitor all your IP port activity, tell the from and

>to IP address/port and which app is dooing it.
>
>It is not a firewall or port blocker, just a realtime monitor, but very

>efficiant.
>
>Erwin
>
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
>- Beach Access Software
>Sent: Wednesday, January 18, 2006 5:13 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] OT - Progs Using Internet Connection
>
>I recently switched from Zone Alarm to Sygate Personal Firewall.  ZA 
>was staring to cause problems.  Sygate will tell you when somethings 
>sending out to the internet.
>
>Rocky
>
>
>Steve Conklin wrote:
> > Install ZoneAlarm ?
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David 
> > Emerson
> > Sent: Tuesday, January 17, 2006 9:49 PM
> > To: accessd at databaseadvisors.com
> > Subject: [AccessD] OT - Progs Using Internet Connection
> >
> > This is way off topic but does anyone know how I can find out what 
> > programs are sending packets over my internet connection?  Some of 
> > them will be valid (eg virus protection updating) but it would be 
> > nice
>
> > to know if I have something sending info out that shouldn't be).
> >
> > Regards
> >
> > David Emerson
> > Dalyn Software Ltd
> > New Zealand

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


From Lambert.Heenan at AIG.com  Wed Jan 18 13:26:14 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 18 Jan 2006 14:26:14 -0500
Subject: [AccessD] OT - Progs Using Internet Connection
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6E052@xlivmbx21.aig.com>

Your router's firewall will only do what the Windows XP firewall does -
prevent your system from being invaded from "outside", but it will do
nothing about programs "calling home". That's why you install a software
firewall, and it will not interfere with your router.

Active Ports will monitor the activity, but will it block unwanted access to
the outside? I don't think so, that's the Software firewall's task.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
Sent: Wednesday, January 18, 2006 2:14 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT - Progs Using Internet Connection


Thanks all.  I already had a firewall in my router so didn't want to 
upset that by installing another one.  I went for Erwin's suggestion.

David

At 18/01/2006, you wrote:

>http://www.protect-me.com/freeware.html
>
>Active ports, will monitor all your IP port activity, tell the from and 
>to IP address/port and which app is dooing it.
>
>It is not a firewall or port blocker, just a realtime monitor, but very 
>efficiant.
>
>Erwin
>
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
>- Beach Access Software
>Sent: Wednesday, January 18, 2006 5:13 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] OT - Progs Using Internet Connection
>
>I recently switched from Zone Alarm to Sygate Personal Firewall.  ZA 
>was staring to cause problems.  Sygate will tell you when somethings 
>sending out to the internet.
>
>Rocky
>
>
>Steve Conklin wrote:
> > Install ZoneAlarm ?
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David 
> > Emerson
> > Sent: Tuesday, January 17, 2006 9:49 PM
> > To: accessd at databaseadvisors.com
> > Subject: [AccessD] OT - Progs Using Internet Connection
> >
> > This is way off topic but does anyone know how I can find out what 
> > programs are sending packets over my internet connection?  Some of 
> > them will be valid (eg virus protection updating) but it would be 
> > nice
>
> > to know if I have something sending info out that shouldn't be).
> >
> > Regards
> >
> > David Emerson
> > Dalyn Software Ltd
> > New Zealand

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


From jmhecht at earthlink.net  Wed Jan 18 13:33:43 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 18 Jan 2006 11:33:43 -0800
Subject: [AccessD] OT: Software firewalls ( was RE: OT - Progs Using
	Internet Connection )
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6E052@xlivmbx21.aig.com>
Message-ID: <000f01c61c66$17ff7f60$6701a8c0@HPLaptop>

Late to the party.

I was taught software firewalls were not good because they
tied up system resources.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Heenan, Lambert
Sent: Wednesday, January 18, 2006 11:26 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT - Progs Using Internet Connection

Your router's firewall will only do what the Windows XP
firewall does -
prevent your system from being invaded from "outside", but
it will do
nothing about programs "calling home". That's why you
install a software
firewall, and it will not interfere with your router.

Active Ports will monitor the activity, but will it block
unwanted access to
the outside? I don't think so, that's the Software
firewall's task.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
David Emerson
Sent: Wednesday, January 18, 2006 2:14 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT - Progs Using Internet Connection


Thanks all.  I already had a firewall in my router so didn't
want to 
upset that by installing another one.  I went for Erwin's
suggestion.

David

At 18/01/2006, you wrote:

>http://www.protect-me.com/freeware.html
>
>Active ports, will monitor all your IP port activity, tell
the from and 
>to IP address/port and which app is dooing it.
>
>It is not a firewall or port blocker, just a realtime
monitor, but very 
>efficiant.
>
>Erwin
>
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Rocky Smolin
>- Beach Access Software
>Sent: Wednesday, January 18, 2006 5:13 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] OT - Progs Using Internet Connection
>
>I recently switched from Zone Alarm to Sygate Personal
Firewall.  ZA 
>was staring to cause problems.  Sygate will tell you when
somethings 
>sending out to the internet.
>
>Rocky
>
>
>Steve Conklin wrote:
> > Install ZoneAlarm ?
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf
Of David 
> > Emerson
> > Sent: Tuesday, January 17, 2006 9:49 PM
> > To: accessd at databaseadvisors.com
> > Subject: [AccessD] OT - Progs Using Internet Connection
> >
> > This is way off topic but does anyone know how I can
find out what 
> > programs are sending packets over my internet
connection?  Some of 
> > them will be valid (eg virus protection updating) but it
would be 
> > nice
>
> > to know if I have something sending info out that
shouldn't be).
> >
> > Regards
> >
> > David Emerson
> > Dalyn Software Ltd
> > New Zealand

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



From martyconnelly at shaw.ca  Wed Jan 18 13:51:51 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Wed, 18 Jan 2006 11:51:51 -0800
Subject: [AccessD] OT - Progs Using Internet Connection
References: <46B976F2B698FF46A4FE7636509B22DF1B62AC@stekelbes.ithelps.local>
	<7.0.0.16.0.20060119081241.01a44e18@dalyn.co.nz>
Message-ID: <43CE9C57.7050202@shaw.ca>

Your router might not protect against outgoing packets unless you 
directly set its outgoing packet rule set.
or this might not be available at all on older or less expensive routers.
To protect against invalid outgoing packets use something like ZoneAlarm.
This extra software might add a extra second or two to a one meg download
This might be considered a belt and suspenders defence.

See Gibson's site http://www.grc.com  
Faqs and tests for more info.

David Emerson wrote:

>Thanks all.  I already had a firewall in my router so didn't want to 
>upset that by installing another one.  I went for Erwin's suggestion.
>
>David
>
>At 18/01/2006, you wrote:
>
>  
>
>>http://www.protect-me.com/freeware.html
>>
>>Active ports, will monitor all your IP port activity, tell the from and
>>to IP address/port and which app is dooing it.
>>
>>It is not a firewall or port blocker, just a realtime monitor, but very
>>efficiant.
>>
>>Erwin
>>
>>
>>
>>
>>-----Original Message-----
>>From: accessd-bounces at databaseadvisors.com
>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
>>- Beach Access Software
>>Sent: Wednesday, January 18, 2006 5:13 AM
>>To: Access Developers discussion and problem solving
>>Subject: Re: [AccessD] OT - Progs Using Internet Connection
>>
>>I recently switched from Zone Alarm to Sygate Personal Firewall.  ZA was
>>staring to cause problems.  Sygate will tell you when somethings sending
>>out to the internet.
>>
>>Rocky
>>
>>
>>Steve Conklin wrote:
>>    
>>
>>>Install ZoneAlarm ?
>>>
>>>-----Original Message-----
>>>From: accessd-bounces at databaseadvisors.com
>>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David
>>>Emerson
>>>Sent: Tuesday, January 17, 2006 9:49 PM
>>>To: accessd at databaseadvisors.com
>>>Subject: [AccessD] OT - Progs Using Internet Connection
>>>
>>>This is way off topic but does anyone know how I can find out what
>>>programs are sending packets over my internet connection?  Some of
>>>them will be valid (eg virus protection updating) but it would be nice
>>>      
>>>
>>>to know if I have something sending info out that shouldn't be).
>>>
>>>Regards
>>>
>>>David Emerson
>>>Dalyn Software Ltd
>>>New Zealand
>>>      
>>>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From Jim.Hale at FleetPride.com  Wed Jan 18 13:58:54 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Wed, 18 Jan 2006 13:58:54 -0600
Subject: [AccessD] First/last day of week
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD996@corp-es01.fleetpride.com>

A date range selector class? Now that sounds cool.
Jim

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 18, 2006 11:56 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


>Busy multitasking week ..?

OMG, you can't believe! I am to the point where I am using Outlook to
schedule blocks of my time for specific client tasks.  0800-1700 filled with
1/2 hr lunch and then 2100-midnight as well.  And that for the next couple
of weeks, and possibly beyond.

Thanks for the functions.  I integrated them into my Date Range selector
class and now have a "This week" selection.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 18, 2006 11:57 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] First/last day of week

Hi John

Busy multitasking week ..?
Anyway, here are the functions we use:

Public Function DateWeekFirst( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the first date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
  
  DateWeekFirst = DateAdd("d", vbSunday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

Public Function DateWeekLast( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the last date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
      
  DateWeekLast = DateAdd("d", vbSaturday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

/gustav

>>> jwcolby at ColbyConsulting.com 18-01-2006 17:40:00 >>>
Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 


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

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

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From Lambert.Heenan at AIG.com  Wed Jan 18 14:08:10 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 18 Jan 2006 14:08:10 -0600
Subject: [AccessD] OT: Software firewalls ( was RE: OT - Progs Using
	I	nternet Connection )
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6E087@xlivmbx21.aig.com>

So do anti-virus software packages. But with today's fast CPUs and well
written S/W you'd hardly notice.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 18, 2006 2:34 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] OT: Software firewalls ( was RE: OT - Progs Using
Internet Connection )


Late to the party.

I was taught software firewalls were not good because they
tied up system resources.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Wednesday, January 18, 2006 11:26 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] OT - Progs Using Internet Connection

Your router's firewall will only do what the Windows XP firewall does -
prevent your system from being invaded from "outside", but it will do
nothing about programs "calling home". That's why you install a software
firewall, and it will not interfere with your router.

Active Ports will monitor the activity, but will it block unwanted access to
the outside? I don't think so, that's the Software firewall's task.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David Emerson
Sent: Wednesday, January 18, 2006 2:14 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT - Progs Using Internet Connection


Thanks all.  I already had a firewall in my router so didn't want to 
upset that by installing another one.  I went for Erwin's suggestion.

David

At 18/01/2006, you wrote:

>http://www.protect-me.com/freeware.html
>
>Active ports, will monitor all your IP port activity, tell
the from and 
>to IP address/port and which app is dooing it.
>
>It is not a firewall or port blocker, just a realtime
monitor, but very 
>efficiant.
>
>Erwin
>
>
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Rocky Smolin
>- Beach Access Software
>Sent: Wednesday, January 18, 2006 5:13 AM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] OT - Progs Using Internet Connection
>
>I recently switched from Zone Alarm to Sygate Personal
Firewall.  ZA 
>was staring to cause problems.  Sygate will tell you when
somethings 
>sending out to the internet.
>
>Rocky
>
>
>Steve Conklin wrote:
> > Install ZoneAlarm ?
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf
Of David 
> > Emerson
> > Sent: Tuesday, January 17, 2006 9:49 PM
> > To: accessd at databaseadvisors.com
> > Subject: [AccessD] OT - Progs Using Internet Connection
> >
> > This is way off topic but does anyone know how I can
find out what 
> > programs are sending packets over my internet
connection?  Some of 
> > them will be valid (eg virus protection updating) but it
would be 
> > nice
>
> > to know if I have something sending info out that
shouldn't be).
> >
> > Regards
> >
> > David Emerson
> > Dalyn Software Ltd
> > New Zealand

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

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


From harkinsss at bellsouth.net  Wed Jan 18 14:08:29 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Wed, 18 Jan 2006 15:08:29 -0500
Subject: [AccessD] more on that Format() to pad text values question
Message-ID: <000001c61c6a$f3f5a130$b3b3d6d1@SUSANONE>

A small problem that I've notices is that if the string being formatted is
empty or null, Format() returns empty or null, which I understand. However,
is there anyway to force Format() to return something? What if you need 000
instead of empty or null? I can come up with a function or expression
myself, I'm just wondering if I can use Format() to force the digits
instead? 
 
Susan H. 


From cfoust at infostatsystems.com  Wed Jan 18 14:23:38 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 18 Jan 2006 12:23:38 -0800
Subject: [AccessD] more on that Format() to pad text values question
Message-ID: <F55048AF7E974F429BB24597D7355EEABF39@INFOSERVER04.infostat.local>

You can concatenate an empty string to the value being formatted.  That
will always result in at least a zero length string, as long as you use
the & for concatenation.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Wednesday, January 18, 2006 12:08 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] more on that Format() to pad text values question


A small problem that I've notices is that if the string being formatted
is empty or null, Format() returns empty or null, which I understand.
However, is there anyway to force Format() to return something? What if
you need 000 instead of empty or null? I can come up with a function or
expression myself, I'm just wondering if I can use Format() to force the
digits instead? 
 
Susan H. 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From Donald.A.McGillivray at sprint.com  Wed Jan 18 14:23:45 2006
From: Donald.A.McGillivray at sprint.com (Mcgillivray, Don [IT])
Date: Wed, 18 Jan 2006 14:23:45 -0600
Subject: [AccessD] more on that Format() to pad text values question
Message-ID: <EC829B33DF5B5B48A956B7A2E894AA9A03F98C05@PLSWB06C.ad.sprint.com>

Susan,

How about something like Format(Nz(YourValue,0),"000")  Uses more than
just the Format() function, but should do the trick. 

HTH,
Don

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Wednesday, January 18, 2006 12:08 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] more on that Format() to pad text values question

A small problem that I've notices is that if the string being formatted
is
empty or null, Format() returns empty or null, which I understand.
However,
is there anyway to force Format() to return something? What if you need
000
instead of empty or null? I can come up with a function or expression
myself, I'm just wondering if I can use Format() to force the digits
instead? 
 
Susan H. 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From shamil at users.mns.ru  Wed Jan 18 14:44:44 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Wed, 18 Jan 2006 23:44:44 +0300
Subject: [AccessD] more on that Format() to pad text values question
References: <000001c61c6a$f3f5a130$b3b3d6d1@SUSANONE>
Message-ID: <002601c61c70$189b8cc0$6401a8c0@fincomplex.spb.ru>

Format function call may have four parts of its second parameter - format
expression:

Positive;Negative;Zero;Null

?format(503.21,"#0.00;(#0.00);---;(NONE)")
503.21
?format(-503.21,"#0.00;(#0.00);---;(NONE)")
(503.21)
?format(0,"#0.00;(#0.00);---;(NONE)")
---
?format(Null,"#0.00;(#0.00);---;(NONE)")
(NONE)

Shamil

----- Original Message ----- 
From: "Susan Harkins" <harkinsss at bellsouth.net>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 11:08 PM
Subject: [AccessD] more on that Format() to pad text values question


> A small problem that I've notices is that if the string being formatted is
> empty or null, Format() returns empty or null, which I understand.
However,
> is there anyway to force Format() to return something? What if you need
000
> instead of empty or null? I can come up with a function or expression
> myself, I'm just wondering if I can use Format() to force the digits
> instead?
>
> Susan H.
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Steven.Peterson at qwest.com  Wed Jan 18 14:41:02 2006
From: Steven.Peterson at qwest.com (Peterson, Steve)
Date: Wed, 18 Jan 2006 13:41:02 -0700
Subject: [AccessD] more on that Format() to pad text values question
Message-ID: <5E6C0F4B8C8601448942896366748A541AB939@ITDENE2KM03.AD.QINTRA.COM>

Susan,

I may be missing the point entirely, but I usually pad with zero like
this:

Right("000" & YourValue, 3)

YourValue sometimes needs a good trimming first.

Steve

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Wednesday, January 18, 2006 1:08 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] more on that Format() to pad text values question

A small problem that I've notices is that if the string being formatted
is empty or null, Format() returns empty or null, which I understand.
However, is there anyway to force Format() to return something? What if
you need 000 instead of empty or null? I can come up with a function or
expression myself, I'm just wondering if I can use Format() to force the
digits instead? 
 
Susan H. 
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From newsgrps at dalyn.co.nz  Wed Jan 18 15:06:50 2006
From: newsgrps at dalyn.co.nz (David Emerson)
Date: Thu, 19 Jan 2006 10:06:50 +1300
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <43CE9C57.7050202@shaw.ca>
References: <46B976F2B698FF46A4FE7636509B22DF1B62AC@stekelbes.ithelps.local>
	<7.0.0.16.0.20060119081241.01a44e18@dalyn.co.nz>
	<43CE9C57.7050202@shaw.ca>
Message-ID: <7.0.0.16.0.20060119100212.01af3e80@dalyn.co.nz>

Thanks for the heads up everyone.

The router I have is a Dynalink RTA220 ADSL Router. I have the 
firewall option set to advanced which allows me to block/allow both 
inward and outward packets.  Is this enough (assuming it is set 
correctly), or do I still need a software firewall?

David

At 19/01/2006, you wrote:
>Your router might not protect against outgoing packets unless you
>directly set its outgoing packet rule set.
>or this might not be available at all on older or less expensive routers.
>To protect against invalid outgoing packets use something like ZoneAlarm.
>This extra software might add a extra second or two to a one meg download
>This might be considered a belt and suspenders defence.
>
>See Gibson's site http://www.grc.com
>Faqs and tests for more info.
>
>David Emerson wrote:
>
> >Thanks all.  I already had a firewall in my router so didn't want to
> >upset that by installing another one.  I went for Erwin's suggestion.
> >
> >David
> >
> >At 18/01/2006, you wrote:
> >
> >
> >
> >>http://www.protect-me.com/freeware.html
> >>
> >>Active ports, will monitor all your IP port activity, tell the from and
> >>to IP address/port and which app is dooing it.
> >>
> >>It is not a firewall or port blocker, just a realtime monitor, but very
> >>efficiant.
> >>
> >>Erwin
> >>
> >>
> >>
> >>
> >>-----Original Message-----
> >>From: accessd-bounces at databaseadvisors.com
> >>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> >>- Beach Access Software
> >>Sent: Wednesday, January 18, 2006 5:13 AM
> >>To: Access Developers discussion and problem solving
> >>Subject: Re: [AccessD] OT - Progs Using Internet Connection
> >>
> >>I recently switched from Zone Alarm to Sygate Personal Firewall.  ZA was
> >>staring to cause problems.  Sygate will tell you when somethings sending
> >>out to the internet.
> >>
> >>Rocky
> >>
> >>
> >>Steve Conklin wrote:
> >>
> >>
> >>>Install ZoneAlarm ?
> >>>
> >>>-----Original Message-----
> >>>From: accessd-bounces at databaseadvisors.com
> >>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David
> >>>Emerson
> >>>Sent: Tuesday, January 17, 2006 9:49 PM
> >>>To: accessd at databaseadvisors.com
> >>>Subject: [AccessD] OT - Progs Using Internet Connection
> >>>
> >>>This is way off topic but does anyone know how I can find out what
> >>>programs are sending packets over my internet connection?  Some of
> >>>them will be valid (eg virus protection updating) but it would be nice
> >>>
> >>>
> >>>to know if I have something sending info out that shouldn't be).
> >>>
> >>>Regards
> >>>
> >>>David Emerson
> >>>Dalyn Software Ltd
> >>>New Zealand
> >>>
> >>>
> >
> >
> >
>
>--
>Marty Connelly
>Victoria, B.C.
>Canada
>
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com



From stuart at lexacorp.com.pg  Wed Jan 18 15:14:46 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Thu, 19 Jan 2006 07:14:46 +1000
Subject: [AccessD] OT - Progs Using Internet Connection
In-Reply-To: <7.0.0.16.0.20060119100212.01af3e80@dalyn.co.nz>
References: <43CE9C57.7050202@shaw.ca>
Message-ID: <43CF3C66.3795.658D892@stuart.lexacorp.com.pg>

On 19 Jan 2006 at 10:06, David Emerson wrote:

> Thanks for the heads up everyone.
> 
> The router I have is a Dynalink RTA220 ADSL Router. I have the 
> firewall option set to advanced which allows me to block/allow both 
> inward and outward packets.  Is this enough (assuming it is set 
> correctly), or do I still need a software firewall?
> 

I'd definitely go with software firewall as well.

I use Kerio Personal Firewall.

It warns if any application tries to access the internet and lets you allow 
or deny on a on-off or permanent basis.

It also warns if an application tries to launch another application 
(trojans can launch IE, telnet etc and use them as a proxy to  access the 
internet)

Instal KPF (or ZoneAlarm) and you will be surprised at how many 
applications try to "phone home" -- 
Stuart




From DWUTKA at marlow.com  Wed Jan 18 15:32:40 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Wed, 18 Jan 2006 15:32:40 -0600
Subject: [AccessD] BE Relinker
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD587@main2.marlow.com>

I didn't build it.  I've had a couple of requests off list, but I posted
that I posted code to build something like that.  I honestly don't have the
time to build one.  Look through the archives for UDP.  I know I posted code
on how to use the UDP protocol to broadcast and receive information.

Drew

-----Original Message-----
From: Joe Hecht [mailto:jmhecht at earthlink.net]
Sent: Tuesday, January 17, 2006 10:12 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] BE Relinker


Drew, 

Always thanks first.

Would like to see yours if you do not mind.

This would be to two to five users with front ends hitting
BE on server.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Tuesday, January 17, 2006 10:35 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] BE Relinker

I posted a while back, on something that would be a
'seamless' relinker.
You can 'search' a subnet with UDP, which is very fast
(split second on a
subnet with over a thousand IPs on it), and have a 'service'
that listens
for that UDP broadcast, and replies with requested
information.  ie, FE on
home network, broadcasts and hits the service on your home
network, which
tells the FE where the backends on your home network are.
FE relinks to
backend.  You modify the FE, send it to client.  Client
opens FE, again, FE
finds the service on clients network, which tells the FE
where to relink
it's tables too.  

Would be pretty easy to setup, let me know if you would be
interested.

Drew

-----Original Message-----
From: Joe Hecht [mailto:jmhecht at earthlink.net]
Sent: Tuesday, January 17, 2006 10:10 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] BE Relinker


Did some kind, generous and way smarter then me soul create
at BE relinker?

 

 

Joe Hecht

jmhecht at earthlink.net

 

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

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


From jwcolby at ColbyConsulting.com  Wed Jan 18 15:52:44 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 18 Jan 2006 16:52:44 -0500
Subject: [AccessD] First/last day of week
In-Reply-To: <6A6AA9DF57E4F046BDA1E273BDDB67727DD996@corp-es01.fleetpride.com>
Message-ID: <000101c61c79$83bed4e0$647aa8c0@ColbyM6805>

It is very cool.  A combo where you select things like:

Last year
Last quarter
Last month
This year
This quarter
This month 

Etc etc.

Then when you select something in the combo, it sets a date range in a pair
of (typically unbound) text boxes, which you then use for queries.  The
class raises an after update event for the combo (and the same event for the
text boxes as well - you can do a custom date range) so that the form that
is using the class can then set filters, copy the dates somewhere etc.

This all started with the code by one Julie Schwalm, Backroads Data, circa
1999.  I of course changed it into a class and changed her list to a combo.

I have just added "This week" and "Today" to the list because I need to be
able to see those ranges as well.

If you want this thing:

1) Go to www.colbyconsulting.com
1a) Register if you haven't already
1b) Login
2) Click Example Code / Withevent Demos
3) Down about the middle you will see DateRangeWithEvents.zip.  Download
that.
4) Unzip it and open the file.  An example form should open.
5) play with the combo selecting different date ranges and watching the
To/From text boxes change
6) open the form to see how to use it in a form.

Notice that it uses events.  The class raises an event, and the form CAN (if
you need it to) sink that event and do something with the event.  The
example does sink the event and displays a message.  Simply delete the event
handler from the form to not have the event sunk in the form.

Enjoy.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 18, 2006 2:59 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week

A date range selector class? Now that sounds cool.
Jim

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 18, 2006 11:56 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


>Busy multitasking week ..?

OMG, you can't believe! I am to the point where I am using Outlook to
schedule blocks of my time for specific client tasks.  0800-1700 filled with
1/2 hr lunch and then 2100-midnight as well.  And that for the next couple
of weeks, and possibly beyond.

Thanks for the functions.  I integrated them into my Date Range selector
class and now have a "This week" selection.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 18, 2006 11:57 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] First/last day of week

Hi John

Busy multitasking week ..?
Anyway, here are the functions we use:

Public Function DateWeekFirst( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the first date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
  
  DateWeekFirst = DateAdd("d", vbSunday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

Public Function DateWeekLast( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the last date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
      
  DateWeekLast = DateAdd("d", vbSaturday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

/gustav

>>> jwcolby at ColbyConsulting.com 18-01-2006 17:40:00 >>>
Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 


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

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

***********************************************************************
The information transmitted is intended solely for the individual or entity
to which it is addressed and may contain confidential and/or privileged
material. Any review, retransmission, dissemination or other use of or
taking action in reliance upon this information by persons or entities other
than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email, you are
responsible for screening its contents and the contents of any attachments
for the presence of viruses. No liability is accepted for any damages caused
by any virus transmitted by this email.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jwcolby at ColbyConsulting.com  Wed Jan 18 16:03:09 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 18 Jan 2006 17:03:09 -0500
Subject: [AccessD] First/last day of week
In-Reply-To: <000101c61c79$83bed4e0$647aa8c0@ColbyM6805>
Message-ID: <000501c61c7a$f824d8b0$647aa8c0@ColbyM6805>

>6) open the form to see how to use it in a form.

Sorry, 

6) Open in DESIGN view and go into the code module to see how to use the
class. 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Wednesday, January 18, 2006 4:53 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week

It is very cool.  A combo where you select things like:

Last year
Last quarter
Last month
This year
This quarter
This month 

Etc etc.

Then when you select something in the combo, it sets a date range in a pair
of (typically unbound) text boxes, which you then use for queries.  The
class raises an after update event for the combo (and the same event for the
text boxes as well - you can do a custom date range) so that the form that
is using the class can then set filters, copy the dates somewhere etc.

This all started with the code by one Julie Schwalm, Backroads Data, circa
1999.  I of course changed it into a class and changed her list to a combo.

I have just added "This week" and "Today" to the list because I need to be
able to see those ranges as well.

If you want this thing:

1) Go to www.colbyconsulting.com
1a) Register if you haven't already
1b) Login
2) Click Example Code / Withevent Demos
3) Down about the middle you will see DateRangeWithEvents.zip.  Download
that.
4) Unzip it and open the file.  An example form should open.
5) play with the combo selecting different date ranges and watching the
To/From text boxes change
6) open the form to see how to use it in a form.

Notice that it uses events.  The class raises an event, and the form CAN (if
you need it to) sink that event and do something with the event.  The
example does sink the event and displays a message.  Simply delete the event
handler from the form to not have the event sunk in the form.

Enjoy.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 18, 2006 2:59 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week

A date range selector class? Now that sounds cool.
Jim

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 18, 2006 11:56 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


>Busy multitasking week ..?

OMG, you can't believe! I am to the point where I am using Outlook to
schedule blocks of my time for specific client tasks.  0800-1700 filled with
1/2 hr lunch and then 2100-midnight as well.  And that for the next couple
of weeks, and possibly beyond.

Thanks for the functions.  I integrated them into my Date Range selector
class and now have a "This week" selection.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Wednesday, January 18, 2006 11:57 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] First/last day of week

Hi John

Busy multitasking week ..?
Anyway, here are the functions we use:

Public Function DateWeekFirst( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the first date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
  
  DateWeekFirst = DateAdd("d", vbSunday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

Public Function DateWeekLast( _
  ByVal datDate As Date, _
  Optional ByVal lngFirstDayOfWeek As Long = vbMonday) _
  As Date

' Returns the last date of the week of datDate.
' lngFirstDayOfWeek defines the first weekday of the week.
' 2000-09-07. Cactus Data ApS.
    
  ' No special error handling.
  On Error Resume Next
  
  ' Validate lngFirstDayOfWeek.
  Select Case lngFirstDayOfWeek
    Case _
      vbMonday, _
      vbTuesday, _
      vbWednesday, _
      vbThursday, _
      vbFriday, _
      vbSaturday, _
      vbSunday, _
      vbUseSystemDayOfWeek
    Case Else
      lngFirstDayOfWeek = vbMonday
  End Select
      
  DateWeekLast = DateAdd("d", vbSaturday - WeekDay(datDate,
lngFirstDayOfWeek), datDate)
    
End Function

/gustav

>>> jwcolby at ColbyConsulting.com 18-01-2006 17:40:00 >>>
Does anyone have these functions?

John W. Colby
www.ColbyConsulting.com 


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

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

***********************************************************************
The information transmitted is intended solely for the individual or entity
to which it is addressed and may contain confidential and/or privileged
material. Any review, retransmission, dissemination or other use of or
taking action in reliance upon this information by persons or entities other
than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email, you are
responsible for screening its contents and the contents of any attachments
for the presence of viruses. No liability is accepted for any damages caused
by any virus transmitted by this email.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

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



From wdhindman at bellsouth.net  Wed Jan 18 16:15:07 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 18 Jan 2006 17:15:07 -0500
Subject: [AccessD] ...close open forms
References: <s3ce5d48.039@cactus.dk>
Message-ID: <000301c61c7c$aa254710$6101a8c0@JISREGISTRATION.local>

Gustav

...thanks ...wish it was that easy ...it does what you say but not what I 
need :(

...probably didn't explain it well enough ...it happens :)

...two or more forms open including the switchboard ...need it to close 
everything BUT the swb AND the opening form.

...your code ...in the on open event of opening form ...closes all but the 
swb ...including the opening form.

...suggestions welcome.

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 9:22 AM
Subject: Re: [AccessD] ...close open forms


> Hi William
>
> How about:
>
>  ' Close all forms except this first opened form.
>  For lngF = Forms.Count - 1 To 1 Step -1
>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>  Next
>
> /gustav
>
>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
> ...I need to close any open forms ...other than designated forms ...and 
> save
> their data ...before opening a called form ...from the called form.
>
> ...ie call a form open from a switchboard ...the called form checks for 
> any
> other forms open, other than the sb, and closes them, saving their data,
> before it opens.
>
> William
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From Jim.Hale at FleetPride.com  Wed Jan 18 16:28:49 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Wed, 18 Jan 2006 16:28:49 -0600
Subject: [AccessD] First/last day of week
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD99B@corp-es01.fleetpride.com>

Muchas Gracias! I still use Julie's code so this is going to be pretty much
plug and play.
Jim Hale

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 18, 2006 3:53 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


It is very cool.  A combo where you select things like:

Last year
Last quarter
Last month
This year
This quarter
This month 

Etc etc.

Then when you select something in the combo, it sets a date range in a pair
of (typically unbound) text boxes, which you then use for queries.  The
class raises an after update event for the combo (and the same event for the
text boxes as well - you can do a custom date range) so that the form that
is using the class can then set filters, copy the dates somewhere etc.

This all started with the code by one Julie Schwalm, Backroads Data, circa
1999.  I of course changed it into a class and changed her list to a combo.

I have just added "This week" and "Today" to the list because I need to be
able to see those ranges as well.

If you want this thing:

1) Go to www.colbyconsulting.com
1a) Register if you haven't already
1b) Login
2) Click Example Code / Withevent Demos
3) Down about the middle you will see DateRangeWithEvents.zip.  Download
that.
4) Unzip it and open the file.  An example form should open.
5) play with the combo selecting different date ranges and watching the
To/From text boxes change
6) open the form to see how to use it in a form.

Notice that it uses events.  The class raises an event, and the form CAN (if
you need it to) sink that event and do something with the event.  The
example does sink the event and displays a message.  Simply delete the event
handler from the form to not have the event sunk in the form.

Enjoy.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 18, 2006 2:59 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week

A date range selector class? Now that sounds cool.
Jim

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 18, 2006 11:56 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


>Busy multitasking week ..?

OMG, you can't believe! I am to the point where I am using Outlook to
schedule blocks of my time for specific client tasks.  0800-1700 filled with
1/2 hr lunch and then 2100-midnight as well.  And that for the next couple
of weeks, and possibly beyond.

Thanks for the functions.  I integrated them into my Date Range selector
class and now have a "This week" selection.

John W. Colby
www.ColbyConsulting.com 


***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From Donald.A.McGillivray at sprint.com  Wed Jan 18 16:47:41 2006
From: Donald.A.McGillivray at sprint.com (Mcgillivray, Don [IT])
Date: Wed, 18 Jan 2006 16:47:41 -0600
Subject: [AccessD] ...close open forms
Message-ID: <EC829B33DF5B5B48A956B7A2E894AA9A03F98EF0@PLSWB06C.ad.sprint.com>

Expanding on Lambert's suggestion:

In the OnOpen event of the called form, try

Dim f as Form

For Each f In Forms
	If f.Name <> Me.Form.Name and f.Name <> "frmSwitchBoard" Then
DoCmd.Close acForm. F.Name, acSaveYes
Next f

Don

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
Hindman
Sent: Wednesday, January 18, 2006 2:15 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] ...close open forms

Gustav

...thanks ...wish it was that easy ...it does what you say but not what
I 
need :(

...probably didn't explain it well enough ...it happens :)

...two or more forms open including the switchboard ...need it to close 
everything BUT the swb AND the opening form.

...your code ...in the on open event of opening form ...closes all but
the 
swb ...including the opening form.

...suggestions welcome.

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 9:22 AM
Subject: Re: [AccessD] ...close open forms


> Hi William
>
> How about:
>
>  ' Close all forms except this first opened form.
>  For lngF = Forms.Count - 1 To 1 Step -1
>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>  Next
>
> /gustav
>
>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
> ...I need to close any open forms ...other than designated forms
...and 
> save
> their data ...before opening a called form ...from the called form.
>
> ...ie call a form open from a switchboard ...the called form checks
for 
> any
> other forms open, other than the sb, and closes them, saving their
data,
> before it opens.
>
> William
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 


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




From Lambert.Heenan at AIG.com  Wed Jan 18 16:50:25 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Wed, 18 Jan 2006 16:50:25 -0600
Subject: [AccessD] ...close open forms
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6E14D@xlivmbx21.aig.com>

Sub CloseForms(arrKeepers as Variant)
Dim F as Form
Dim n As Long
Dim bKeep as Boolean

	For Each F in Forms
		bKeep = False
		For n = lBound(arrKeepers) to Ubound(arrKeepers)
			If F.Name =  arrKeepers(n) Then bKeep=True
		Next n
		If Not bKeep Then DoCmd.Close acForm, F.Name,acSaveYes
	Next F
End Sub

Useage

CloseForms Array("NameOfSwitchBoardForm","FormBeingOpened")

HTH

Lambert
		

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman
Sent: Wednesday, January 18, 2006 5:15 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] ...close open forms


Gustav

...thanks ...wish it was that easy ...it does what you say but not what I 
need :(

...probably didn't explain it well enough ...it happens :)

...two or more forms open including the switchboard ...need it to close 
everything BUT the swb AND the opening form.

...your code ...in the on open event of opening form ...closes all but the 
swb ...including the opening form.

...suggestions welcome.

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 9:22 AM
Subject: Re: [AccessD] ...close open forms


> Hi William
>
> How about:
>
>  ' Close all forms except this first opened form.
>  For lngF = Forms.Count - 1 To 1 Step -1
>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>  Next
>
> /gustav
>
>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
> ...I need to close any open forms ...other than designated forms 
> ...and
> save
> their data ...before opening a called form ...from the called form.
>
> ...ie call a form open from a switchboard ...the called form checks 
> for
> any
> other forms open, other than the sb, and closes them, saving their data,
> before it opens.
>
> William
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 


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


From tinanfields at torchlake.com  Wed Jan 18 17:11:05 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Wed, 18 Jan 2006 18:11:05 -0500
Subject: [AccessD] My form has a little problem
Message-ID: <43CECB09.90602@torchlake.com>

Hi all,

I have a form for either creating a new student profile, or editing an 
existing one.  To create a new profile, the user clicks a button that 
opens the student information form in add mode.  To edit an existing 
profile, the user selects the student's name from an unbound combo box, 
and then clicks the button to open the student information form for that 
student in edit mode.

When I first made this little form, it all worked well, but it no longer 
works just right.  If I select a student's name from the combo box, and 
I try to click the button to open the student information fomr, the 
button does not get the focus - it does not respond.  If I wait around 
for a while, eventually the button will let me click it.  If I tab out 
of the combo box, the focus will shift to the the buttons in their 
established tab sequence.  

I remember there have been heated discussions on this list about unbound 
controls.  I am ready to learn - do I have a problem because I'm using 
an unbound control?  

This is what my button does when I can get it clicked:
==========
Private Sub cmdEditExistingStudentProfile_Click()
On Error GoTo Err_cmdEditExistingStudentProfile_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmStudentInformation"
    stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdEditExistingStudentProfile_Click:
    Exit Sub

Err_cmdEditExistingStudentProfile_Click:
    MsgBox Err.Description
    Resume Exit_cmdEditExistingStudentProfile_Click
   
End Sub
===========

Should I be adding an After Update event procedure to my unbound combo 
box - to set the focus on the button to get the student information form?

Thanks for whatever lessons you will send my way.

Tina



From darsant at gmail.com  Wed Jan 18 17:30:10 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Wed, 18 Jan 2006 17:30:10 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <001901c61c5a$925a8cc0$6401a8c0@fincomplex.spb.ru>
References: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local>
	<53c8e05a0601180931u68d8b307s8c0c35dcff5ee91c@mail.gmail.com>
	<001901c61c5a$925a8cc0$6401a8c0@fincomplex.spb.ru>
Message-ID: <53c8e05a0601181530o39babe2cwb329c0e2ab9375d9@mail.gmail.com>

On 1/18/06, Shamil Salakhetdinov <shamil at users.mns.ru> wrote:
> Josh,
>
> Is there somewhere a short step-by-step tutorial/instruction how to install
> Subversion with Visual Studio?

Basically, the way we use it is with a freeware program called
TortoiseSVN. It integrates into Windows Explorer for the folders that
you check out and provides an easy right click interface for
everything you need to do (Explains when files are changed with icons,
etc)

Microsoft basically doesn't integrate with anything but SourceSafe.
There's a few "plugins" out there to kinda-sorta interface with other
SCS like CVS, but I haven't looked up anything about Subversion

> I have heard a lot of good references about it but I didn't use it yet.
>
> Is it possible to encrypt transparently for client development tools source
> files stored in Subversion database? Reason is to use commercial software
> sources stored on a public Web server running Subversion.

I've used two different types of subversion servers:

The first and easiest is linking it in with Apache. They have
instructions on how to do that on the website, and user security goes
through a custom passwd file so you can restrict access.

The second is through a program they have called svnserve, basically
works as a server program and runs on it's own. You can set up user
access per repository.

As far as actual encryption of the data passed, I haven't looked into
it much. I'll see what I can find out and let you know.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From darsant at gmail.com  Wed Jan 18 17:31:47 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Wed, 18 Jan 2006 17:31:47 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF36@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF36@INFOSERVER04.infostat.local>
Message-ID: <53c8e05a0601181531m25c5ce17naf1a554b76ba1a0d@mail.gmail.com>

On 1/18/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> All I can say, is that I would NOT want to work with merging rather than
> single-user checkouts.  SourceSafe can be set up that way, but it keeps
> everything a lot cleaner when two people aren't even trying to modify
> the same object at the same time.  Since we don't have one huge file to
> deal with, I'd rather err on the side of caution.

Well, you can set up Subversion to use single-locking checkouts that
way too, it just gets to be a pain when one person needs to make a
change to file X, along with 20 other files to get feature Y working,
while another person just wants to make a typo fix in file X but has
to wait 3 days to do so. Merging will generally take care of things
automatically, and when people tend to work on the same line, well, it
warns you and lets you fix.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From cfoust at infostatsystems.com  Wed Jan 18 18:06:25 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 18 Jan 2006 16:06:25 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF3A@INFOSERVER04.infostat.local>

LOL  In our shop, we just yell over the cubicles, "hey, who has objectX
checked out?  I need to modify it!"

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Wednesday, January 18, 2006 3:32 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/18/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> All I can say, is that I would NOT want to work with merging rather 
> than single-user checkouts.  SourceSafe can be set up that way, but it

> keeps everything a lot cleaner when two people aren't even trying to 
> modify the same object at the same time.  Since we don't have one huge

> file to deal with, I'd rather err on the side of caution.

Well, you can set up Subversion to use single-locking checkouts that way
too, it just gets to be a pain when one person needs to make a change to
file X, along with 20 other files to get feature Y working, while
another person just wants to make a typo fix in file X but has to wait 3
days to do so. Merging will generally take care of things automatically,
and when people tend to work on the same line, well, it warns you and
lets you fix.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by
understanding." -Albert Einstein
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From shamil at users.mns.ru  Wed Jan 18 18:13:50 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 19 Jan 2006 03:13:50 +0300
Subject: [AccessD] Source Code Control
References: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local><53c8e05a0601180931u68d8b307s8c0c35dcff5ee91c@mail.gmail.com><001901c61c5a$925a8cc0$6401a8c0@fincomplex.spb.ru>
	<53c8e05a0601181530o39babe2cwb329c0e2ab9375d9@mail.gmail.com>
Message-ID: <004f01c61c8d$3b15f8e0$6401a8c0@fincomplex.spb.ru>

> As far as actual encryption of the data passed, I haven't looked into
> it much. I'll see what I can find out and let you know.
Thank you and thank in advance, Josh!

Shamil

----- Original Message ----- 
From: "Josh McFarlane" <darsant at gmail.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 2:30 AM
Subject: Re: [AccessD] Source Code Control


> On 1/18/06, Shamil Salakhetdinov <shamil at users.mns.ru> wrote:
> > Josh,
> >
> > Is there somewhere a short step-by-step tutorial/instruction how to
install
> > Subversion with Visual Studio?
>
> Basically, the way we use it is with a freeware program called
> TortoiseSVN. It integrates into Windows Explorer for the folders that
> you check out and provides an easy right click interface for
> everything you need to do (Explains when files are changed with icons,
> etc)
>
> Microsoft basically doesn't integrate with anything but SourceSafe.
> There's a few "plugins" out there to kinda-sorta interface with other
> SCS like CVS, but I haven't looked up anything about Subversion
>
> > I have heard a lot of good references about it but I didn't use it yet.
> >
> > Is it possible to encrypt transparently for client development tools
source
> > files stored in Subversion database? Reason is to use commercial
software
> > sources stored on a public Web server running Subversion.
>
> I've used two different types of subversion servers:
>
> The first and easiest is linking it in with Apache. They have
> instructions on how to do that on the website, and user security goes
> through a custom passwd file so you can restrict access.
>
> The second is through a program they have called svnserve, basically
> works as a server program and runs on it's own. You can set up user
> access per repository.
>
> As far as actual encryption of the data passed, I haven't looked into
> it much. I'll see what I can find out and let you know.
>
> --
> Josh McFarlane
>
> "Peace cannot be kept by force. It can only be achieved by understanding."
> -Albert Einstein
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From wdhindman at bellsouth.net  Wed Jan 18 18:10:22 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 18 Jan 2006 19:10:22 -0500
Subject: [AccessD] My form has a little problem
References: <43CECB09.90602@torchlake.com>
Message-ID: <009f01c61c8c$be0b2b40$6101a8c0@JISREGISTRATION.local>

...sounds more like a problem with the table or query on which the combo is 
based.

William

----- Original Message ----- 
From: "Tina Norris Fields" <tinanfields at torchlake.com>
To: <accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 6:11 PM
Subject: [AccessD] My form has a little problem


> Hi all,
>
> I have a form for either creating a new student profile, or editing an
> existing one.  To create a new profile, the user clicks a button that
> opens the student information form in add mode.  To edit an existing
> profile, the user selects the student's name from an unbound combo box,
> and then clicks the button to open the student information form for that
> student in edit mode.
>
> When I first made this little form, it all worked well, but it no longer
> works just right.  If I select a student's name from the combo box, and
> I try to click the button to open the student information fomr, the
> button does not get the focus - it does not respond.  If I wait around
> for a while, eventually the button will let me click it.  If I tab out
> of the combo box, the focus will shift to the the buttons in their
> established tab sequence.
>
> I remember there have been heated discussions on this list about unbound
> controls.  I am ready to learn - do I have a problem because I'm using
> an unbound control?
>
> This is what my button does when I can get it clicked:
> ==========
> Private Sub cmdEditExistingStudentProfile_Click()
> On Error GoTo Err_cmdEditExistingStudentProfile_Click
>
>    Dim stDocName As String
>    Dim stLinkCriteria As String
>
>    stDocName = "frmStudentInformation"
>    stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>    DoCmd.OpenForm stDocName, , , stLinkCriteria
>
> Exit_cmdEditExistingStudentProfile_Click:
>    Exit Sub
>
> Err_cmdEditExistingStudentProfile_Click:
>    MsgBox Err.Description
>    Resume Exit_cmdEditExistingStudentProfile_Click
>
> End Sub
> ===========
>
> Should I be adding an After Update event procedure to my unbound combo
> box - to set the focus on the button to get the student information form?
>
> Thanks for whatever lessons you will send my way.
>
> Tina
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From jwcolby at ColbyConsulting.com  Wed Jan 18 18:14:46 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 18 Jan 2006 19:14:46 -0500
Subject: [AccessD] First/last day of week
In-Reply-To: <6A6AA9DF57E4F046BDA1E273BDDB67727DD99B@corp-es01.fleetpride.com>
Message-ID: <000601c61c8d$5b5d85a0$647aa8c0@ColbyM6805>

Yea, it just makes the huge selector set (a bunch of radio buttons?) into a
little combo box.  As long as your to/from text boxes are named the same as
I use you can just cut and paste the code in the form (the dim and the form
open) to get the class instantiated and running, otherwise you need to feed
in the names of your combo and to/from text boxes.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 18, 2006 5:29 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week

Muchas Gracias! I still use Julie's code so this is going to be pretty much
plug and play.
Jim Hale

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 18, 2006 3:53 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


It is very cool.  A combo where you select things like:

Last year
Last quarter
Last month
This year
This quarter
This month 

Etc etc.

Then when you select something in the combo, it sets a date range in a pair
of (typically unbound) text boxes, which you then use for queries.  The
class raises an after update event for the combo (and the same event for the
text boxes as well - you can do a custom date range) so that the form that
is using the class can then set filters, copy the dates somewhere etc.

This all started with the code by one Julie Schwalm, Backroads Data, circa
1999.  I of course changed it into a class and changed her list to a combo.

I have just added "This week" and "Today" to the list because I need to be
able to see those ranges as well.

If you want this thing:

1) Go to www.colbyconsulting.com
1a) Register if you haven't already
1b) Login
2) Click Example Code / Withevent Demos
3) Down about the middle you will see DateRangeWithEvents.zip.  Download
that.
4) Unzip it and open the file.  An example form should open.
5) play with the combo selecting different date ranges and watching the
To/From text boxes change
6) open the form to see how to use it in a form.

Notice that it uses events.  The class raises an event, and the form CAN (if
you need it to) sink that event and do something with the event.  The
example does sink the event and displays a message.  Simply delete the event
handler from the form to not have the event sunk in the form.

Enjoy.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Wednesday, January 18, 2006 2:59 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week

A date range selector class? Now that sounds cool.
Jim

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Wednesday, January 18, 2006 11:56 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] First/last day of week


>Busy multitasking week ..?

OMG, you can't believe! I am to the point where I am using Outlook to
schedule blocks of my time for specific client tasks.  0800-1700 filled with
1/2 hr lunch and then 2100-midnight as well.  And that for the next couple
of weeks, and possibly beyond.

Thanks for the functions.  I integrated them into my Date Range selector
class and now have a "This week" selection.

John W. Colby
www.ColbyConsulting.com 


***********************************************************************
The information transmitted is intended solely for the individual or entity
to which it is addressed and may contain confidential and/or privileged
material. Any review, retransmission, dissemination or other use of or
taking action in reliance upon this information by persons or entities other
than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email, you are
responsible for screening its contents and the contents of any attachments
for the presence of viruses. No liability is accepted for any damages caused
by any virus transmitted by this email.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From darsant at gmail.com  Wed Jan 18 18:28:43 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Wed, 18 Jan 2006 18:28:43 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <004f01c61c8d$3b15f8e0$6401a8c0@fincomplex.spb.ru>
References: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local>
	<53c8e05a0601180931u68d8b307s8c0c35dcff5ee91c@mail.gmail.com>
	<001901c61c5a$925a8cc0$6401a8c0@fincomplex.spb.ru>
	<53c8e05a0601181530o39babe2cwb329c0e2ab9375d9@mail.gmail.com>
	<004f01c61c8d$3b15f8e0$6401a8c0@fincomplex.spb.ru>
Message-ID: <53c8e05a0601181628x7450a906l9a81b1d1476fca37@mail.gmail.com>

On 1/18/06, Shamil Salakhetdinov <shamil at users.mns.ru> wrote:
> > As far as actual encryption of the data passed, I haven't looked into
> > it much. I'll see what I can find out and let you know.
> Thank you and thank in advance, Josh!

OK, I can't find anywhere that says it has any built in encryption
support for data transport, however, you can use their server service
and SSH.

Basically it equates to tunneling through SSH and then using SSH to
perform your checkout.

See http://subversion.tigris.org/faq.html#paranoid

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From darsant at gmail.com  Wed Jan 18 18:30:04 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Wed, 18 Jan 2006 18:30:04 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF3A@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF3A@INFOSERVER04.infostat.local>
Message-ID: <53c8e05a0601181630j5d80dc60w6508c744e466de46@mail.gmail.com>

On 1/18/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> LOL  In our shop, we just yell over the cubicles, "hey, who has objectX
> checked out?  I need to modify it!"

See, in our shop I try to enforce a "no bother" policy. From previous
studies and personal experience, it seems like interrupts will knock
programmers out of efficient-coding land for 15-30 minutes before they
get back into the groove. YMMV though.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From dwaters at usinternet.com  Wed Jan 18 18:37:53 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Wed, 18 Jan 2006 18:37:53 -0600
Subject: [AccessD] Read External File for Path String
Message-ID: <001f01c61c90$96529260$0200a8c0@danwaters>

Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters





From carbonnb at gmail.com  Wed Jan 18 18:47:47 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Wed, 18 Jan 2006 19:47:47 -0500
Subject: [AccessD] Read External File for Path String
In-Reply-To: <001f01c61c90$96529260$0200a8c0@danwaters>
References: <001f01c61c90$96529260$0200a8c0@danwaters>
Message-ID: <e04a6c920601181647v9282babt@mail.gmail.com>

On 18/01/06, Dan Waters <dwaters at usinternet.com> wrote:

> I just spent half the day struggling with the movement of a system from one
> server to another.  The server path is hardcoded in one place in a startup
> form.  What would have helped me a lot is to have the path in a text file or
> ini file external to the database and stored in the same folder.
>
> Security is not an issue here, just my convenience, as my plans for the day
> were pretty much blown up!
>
> Using a file for information like this sounds like it might be a fairly
> typical solution.  Does anyone do this or something like it?

I ust a Global constant to store the path. That way, all I need to do
is change it in one place whne the server changes.

I have considered using an INI file, but decided that a constant was a
better route to go for me.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From stuart at lexacorp.com.pg  Wed Jan 18 19:59:30 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Thu, 19 Jan 2006 11:59:30 +1000
Subject: [AccessD] Read External File for Path String
In-Reply-To: <001f01c61c90$96529260$0200a8c0@danwaters>
Message-ID: <43CF7F22.15689.75D875F@stuart.lexacorp.com.pg>

On 18 Jan 2006 at 18:37, Dan Waters wrote:

> Hello Everyone,
> 
> I just spent half the day struggling with the movement of a system from one
> server to another.  The server path is hardcoded in one place in a startup
> form.  What would have helped me a lot is to have the path in a text file or
> ini file external to the database and stored in the same folder.
> 
> Security is not an issue here, just my convenience, as my plans for the day
> were pretty much blown up!
> 
> Using a file for information like this sounds like it might be a fairly
> typical solution.  Does anyone do this or something like it?
> 

Either an INI file  or store it in a System table  in the FE.

Two common approaches to a System Table are:
1.a table with only one record which stores each parameters in a separate 
field. 
2. A table with one record per parameter. Each record  consisting of PName, 
DataType and Value fields.  


If you use an INI file, you should use the standard Windows INI file format 
and  write/read  using API calls:

Option Compare Database
Option Explicit

Declare Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringA" ( _
        ByVal lpApplicationName As String, _
        ByVal lpKeyName As Any, _
        ByVal lpDefault As String, _
        ByVal lpReturnedString As String, _
        ByVal nSize As Long, _
        ByVal lpFileName As String) As Long

Declare Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringA" ( _
        ByVal lpApplicationName As String, _
        ByVal lpKeyName As Any, _
        ByVal lpString As Any, _
        ByVal lpFileName As String) As Long

Const cstrIniFilename As String = "MyApp.Ini"

''****************************
'' Write to INI file
''****************************
Public Function WriteIniFileString( _
        ByVal Sect As String, _
        ByVal Key As String, _
        ByVal Value As String) As Boolean

Dim intCharsReturned As Integer
If Sect = "" Or Key = "" Then
    MsgBox "Section Or Key To Write Not Specified !!!", _
        vbExclamation, "INI"
Else
    WriteIniFileString = WritePrivateProfileString(Sect, _
        Key, Value, ApplDir() & "\" & cstrIniFilename)
End If
End Function

'"****************************
'' Read from INI file
''****************************
Public Function ReadIniFileString( _
        ByVal Sect As String, _
        ByVal Key As String) As String

Dim strReturned As String * 128
Dim intSize As Integer
Dim intCharsReturned As Integer

If Sect = "" Or Key = "" Then
    MsgBox "Section Or Key To Read Not Specified !!!", _
        vbExclamation, "INI"
Else
    strRet = Space$(128)
    intSize = Len(strRet)
    intCharsReturned = GetPrivateProfileString(Sect, Key, "", _
        strReturned, intSize, ApplDir() & "\" & cstrIniFilename)
   If intCharsReturned Then
       ReadIniFileString = Left$(strRet, intCharsReturned)
   End If
End If
End Function

'"****************************
'' Get the application directory
''****************************
Static Function ApplDir() As String
Dim strApplDir As String
Dim strTemp As String
If strApplDir = "" Then
    strTemp = DBEngine(0)(0).Name
    strApplDir = Left$(strTemp, InStrRev(strTemp, "\"))
   End If
   ApplDir = strApplDir
End Function

-- 
Stuart




From stuart at lexacorp.com.pg  Wed Jan 18 20:00:42 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Thu, 19 Jan 2006 12:00:42 +1000
Subject: [AccessD] Read External File for Path String
In-Reply-To: <e04a6c920601181647v9282babt@mail.gmail.com>
References: <001f01c61c90$96529260$0200a8c0@danwaters>
Message-ID: <43CF7F6A.12062.75EA090@stuart.lexacorp.com.pg>

On 18 Jan 2006 at 19:47, Bryan Carbonnell wrote:

> 
> I ust a Global constant to store the path. That way, all I need to do
> is change it in one place whne the server changes.
> 

That's OK until you turn it into an MDE :-(

-- 
Stuart




From demulling at centurytel.net  Wed Jan 18 20:20:09 2006
From: demulling at centurytel.net (Demulling Family)
Date: Wed, 18 Jan 2006 20:20:09 -0600
Subject: [AccessD] Read External File for Path String
In-Reply-To: <001f01c61c90$96529260$0200a8c0@danwaters>
References: <001f01c61c90$96529260$0200a8c0@danwaters>
Message-ID: <43CEF759.5070701@centurytel.net>

Dan Waters wrote:

>Hello Everyone,
>
>I just spent half the day struggling with the movement of a system from one
>server to another.  The server path is hardcoded in one place in a startup
>form.  What would have helped me a lot is to have the path in a text file or
>ini file external to the database and stored in the same folder.
>
>Security is not an issue here, just my convenience, as my plans for the day
>were pretty much blown up!
>
>Using a file for information like this sounds like it might be a fairly
>typical solution.  Does anyone do this or something like it?
>
>Thanks!
>Dan Waters
>
>
>
>  
>
I have used ini files on occasions to store the location of a back-end 
database with the ini file stored in the same directory as FE.  I will 
look for some of the code tomorrow at work.


From bchacc at san.rr.com  Wed Jan 18 20:20:18 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Wed, 18 Jan 2006 18:20:18 -0800
Subject: [AccessD] My form has a little problem
In-Reply-To: <43CECB09.90602@torchlake.com>
References: <43CECB09.90602@torchlake.com>
Message-ID: <43CEF762.6020609@san.rr.com>

"Should I be adding an After Update event procedure to my unbound combo 
box - to set the focus on the button to get the student information form? "

That's the first thing I'd try, Tina.

Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

Tina Norris Fields wrote:
> Hi all,
>
> I have a form for either creating a new student profile, or editing an 
> existing one.  To create a new profile, the user clicks a button that 
> opens the student information form in add mode.  To edit an existing 
> profile, the user selects the student's name from an unbound combo box, 
> and then clicks the button to open the student information form for that 
> student in edit mode.
>
> When I first made this little form, it all worked well, but it no longer 
> works just right.  If I select a student's name from the combo box, and 
> I try to click the button to open the student information fomr, the 
> button does not get the focus - it does not respond.  If I wait around 
> for a while, eventually the button will let me click it.  If I tab out 
> of the combo box, the focus will shift to the the buttons in their 
> established tab sequence.  
>
> I remember there have been heated discussions on this list about unbound 
> controls.  I am ready to learn - do I have a problem because I'm using 
> an unbound control?  
>
> This is what my button does when I can get it clicked:
> ==========
> Private Sub cmdEditExistingStudentProfile_Click()
> On Error GoTo Err_cmdEditExistingStudentProfile_Click
>
>     Dim stDocName As String
>     Dim stLinkCriteria As String
>
>     stDocName = "frmStudentInformation"
>     stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>     DoCmd.OpenForm stDocName, , , stLinkCriteria
>
> Exit_cmdEditExistingStudentProfile_Click:
>     Exit Sub
>
> Err_cmdEditExistingStudentProfile_Click:
>     MsgBox Err.Description
>     Resume Exit_cmdEditExistingStudentProfile_Click
>    
> End Sub
> ===========
>
> Should I be adding an After Update event procedure to my unbound combo 
> box - to set the focus on the button to get the student information form?
>
> Thanks for whatever lessons you will send my way.
>
> Tina
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From wdhindman at bellsouth.net  Wed Jan 18 20:10:47 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Wed, 18 Jan 2006 21:10:47 -0500
Subject: [AccessD] ...close open forms
References: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6E14D@xlivmbx21.aig.com>
Message-ID: <00c201c61c9d$9028e440$6101a8c0@JISREGISTRATION.local>

...tks Lambert, that works like a charm.

William

----- Original Message ----- 
From: "Heenan, Lambert" <Lambert.Heenan at AIG.com>
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 5:50 PM
Subject: Re: [AccessD] ...close open forms


> Sub CloseForms(arrKeepers as Variant)
> Dim F as Form
> Dim n As Long
> Dim bKeep as Boolean
>
> For Each F in Forms
> bKeep = False
> For n = lBound(arrKeepers) to Ubound(arrKeepers)
> If F.Name =  arrKeepers(n) Then bKeep=True
> Next n
> If Not bKeep Then DoCmd.Close acForm, F.Name,acSaveYes
> Next F
> End Sub
>
> Useage
>
> CloseForms Array("NameOfSwitchBoardForm","FormBeingOpened")
>
> HTH
>
> Lambert
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman
> Sent: Wednesday, January 18, 2006 5:15 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] ...close open forms
>
>
> Gustav
>
> ...thanks ...wish it was that easy ...it does what you say but not what I
> need :(
>
> ...probably didn't explain it well enough ...it happens :)
>
> ...two or more forms open including the switchboard ...need it to close
> everything BUT the swb AND the opening form.
>
> ...your code ...in the on open event of opening form ...closes all but the
> swb ...including the opening form.
>
> ...suggestions welcome.
>
> William
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Wednesday, January 18, 2006 9:22 AM
> Subject: Re: [AccessD] ...close open forms
>
>
>> Hi William
>>
>> How about:
>>
>>  ' Close all forms except this first opened form.
>>  For lngF = Forms.Count - 1 To 1 Step -1
>>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>>  Next
>>
>> /gustav
>>
>>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
>> ...I need to close any open forms ...other than designated forms
>> ...and
>> save
>> their data ...before opening a called form ...from the called form.
>>
>> ...ie call a form open from a switchboard ...the called form checks
>> for
>> any
>> other forms open, other than the sb, and closes them, saving their data,
>> before it opens.
>>
>> William
>>
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From carbonnb at gmail.com  Wed Jan 18 20:44:57 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Wed, 18 Jan 2006 21:44:57 -0500
Subject: [AccessD] Read External File for Path String
In-Reply-To: <43CF7F6A.12062.75EA090@stuart.lexacorp.com.pg>
References: <001f01c61c90$96529260$0200a8c0@danwaters>
	<e04a6c920601181647v9282babt@mail.gmail.com>
	<43CF7F6A.12062.75EA090@stuart.lexacorp.com.pg>
Message-ID: <e04a6c920601181844ya44960bt@mail.gmail.com>

On 18/01/06, Stuart McLachlan <stuart at lexacorp.com.pg> wrote:
> On 18 Jan 2006 at 19:47, Bryan Carbonnell wrote:
>
> >
> > I ust a Global constant to store the path. That way, all I need to do
> > is change it in one place whne the server changes.
> >
>
> That's OK until you turn it into an MDE :-(

True, but since I don't use MDEs it's not an issue. Or at least it
hasn't been an issue.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From jwelz at hotmail.com  Wed Jan 18 21:42:38 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Wed, 18 Jan 2006 20:42:38 -0700
Subject: [AccessD] Read External File for Path String
In-Reply-To: <001f01c61c90$96529260$0200a8c0@danwaters>
Message-ID: <BAY113-F9F8A5D777CBE9B28C3273A11C0@phx.gbl>

I have used both a global constant and a property appended to the database 
properties collection to store this kind of information.  As an example of a 
property defined by a user, I create a property called 'CompactDate' and use 
it to create a back up and automatically back up a BE every fourth day 
(people are forced out after midnight after two hours of inactivity).  If 
the property doesn't exist, the error handler creates the property by 
calling the AddProperty sub routine.  The Compact routine compacts the 
linked database containing a specific named table and creates a backup 
prefixed with the backup date and the BE name.  You could easily create a 
'ServerPath' property.

Private Sub Compact()
'  Opens BE db exclusive (to preempt other users) and inspects a custom db 
property "CompactDate"
'  Compares "CompactDate" property to current date and if more than 4 day 
disparity, needs to compact
'  Closes BE so that compact may take place.
'  Backs Up database before compacting
'  Compacts BE to new file.
'  If successful, deletes old file and renames the compacted BE to the BE in 
the connect string
    On Error GoTo ErrorHandler

    Dim NewDBName As String
    Dim strDBName As String
    Dim db As DAO.Database
    Dim strProp As String
    Dim strDate As String
    Dim strPropertyName As String

    Set db = CurrentDb
    strDBName = Mid$(db.TableDefs("tblCompany").Connect, 11)
    If Dir(Left$(strDBName, Len(strDBName) - 3) & "ldb") = "" Then
        'then the ldb file isn't present so the mdb is not open and can be 
compacted
        Set db = OpenDatabase(strDBName, True) ' true places it in 
'exclusive mode
        strPropertyName = "CompactDate"
        strProp = db.Properties(strPropertyName)
        'get the compactDate property
        strDate = Format$(Date, "yymmdd")
        If Format$(Date - 4, "yymmdd") > strProp Then
            'if it's more than 4 days since last compact
            db.Close
            'it was open exclusive.  Must close to work with it
            Set db = Nothing
           If Copy(strDBName, Left$(strDBName, Len(strDBName) - 4) & "BackUp 
" & strDate & ".mdb", _
             False) Then
                'backup successful
                NewDBName = Left$(strDBName, Len(strDBName) - 4) & strDate & 
".mdb"
                If Dir(NewDBName) <> "" Then Kill NewDBName
                DBEngine.CompactDatabase strDBName, NewDBName
                Kill strDBName
                Name NewDBName As strDBName
                Set db = OpenDatabase(strDBName)
                db.Properties(strPropertyName) = strDate
            End If
        End If
    End If

ExitRoutine:
    On Error Resume Next
    db.Close
    Set db = Nothing
    Exit Sub
ErrorHandler:
    With Err
        Select Case .Number
            Case 76, 68
                Resume ExitRoutine
            Case 3270
                AddProperty strPropertyName, db
                Resume
            Case Else
                MsgBox .Number & vbCrLf & .Description, vbInformation, 
"Error - Compact"
        End Select
    End With
    'Resume 0
    Resume ExitRoutine
End Sub

Private Sub AddProperty(strPropertyName As String, db As DAO.Database)
    Dim prp As Property

    Set prp = db.CreateProperty(strPropertyName, dbText, False)
    db.Properties.Append prp
End Sub



Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Dan Waters" <dwaters at usinternet.com>
>
>Hello Everyone,
>
>I just spent half the day struggling with the movement of a system from one
>server to another.  The server path is hardcoded in one place in a startup
>form.  What would have helped me a lot is to have the path in a text file 
>or
>ini file external to the database and stored in the same folder.
>
>Security is not an issue here, just my convenience, as my plans for the day
>were pretty much blown up!
>
>Using a file for information like this sounds like it might be a fairly
>typical solution.  Does anyone do this or something like it?
>
>Thanks!
>Dan Waters




From jwelz at hotmail.com  Wed Jan 18 22:01:55 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Wed, 18 Jan 2006 21:01:55 -0700
Subject: [AccessD] Read External File for Path String
In-Reply-To: <BAY113-F9F8A5D777CBE9B28C3273A11C0@phx.gbl>
Message-ID: <BAY113-F33FFF1F00CD19E591A2C34A11C0@phx.gbl>

I forgot the 'Copy' routine referenced in the example.  It uses the API copy 
routine because I like the option of specifying whether or not to overwrite 
an existing file.  NoOverWrite is passed as false, a double negative, so it 
guarantees that any file with the exact name will be overwritten.  Compact 
is one of the procedures called in my startup.

Private Declare Function CopyFileA Lib "kernel32" (ByVal ExistingFileName As 
String, _
    ByVal NewFileName As String, ByVal FailIfExists As Long) As Long

Public Function Copy(FileSrc As String, FileDst As String, Optional 
NoOverWrite As Boolean = True) _
  As Boolean
    On Error GoTo ErrorHandler

    Copy = CopyFileA(FileSrc, FileDst, NoOverWrite) = 1

ExitRoutine:
    On Error Resume Next
    Exit Function
ErrorHandler:
    With Err
        Select Case .Number
            Case Else
                MsgBox .Number & vbCrLf & .Description, vbInformation, 
"Error - Copy"
        End Select
    End With
    'Resume 0
    Resume ExitRoutine
End Function




Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "J?rgen Welz" <jwelz at hotmail.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] Read External File for Path String
>Date: Wed, 18 Jan 2006 20:42:38 -0700
>MIME-Version: 1.0
>X-Originating-IP: [198.53.207.165]
>X-Originating-Email: [jwelz at hotmail.com]
>X-Sender: jwelz at hotmail.com
>Received: from databaseadvisors.com ([209.135.140.44]) by 
>bay0-mc1-f5.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.211); Wed, 18 
>Jan 2006 19:43:10 -0800
>Received: from databaseadvisors.com (databaseadvisors.com 
>[209.135.140.44])by databaseadvisors.com (8.11.6/8.11.6) with ESMTP id 
>k0J3gaV22247;Wed, 18 Jan 2006 21:42:36 -0600
>Received: from hotmail.com (bay113-f9.bay113.hotmail.com [65.54.168.19])by 
>databaseadvisors.com (8.11.6/8.11.6) with ESMTP id k0J3gWV22171for 
><accessd at databaseadvisors.com>; Wed, 18 Jan 2006 21:42:32 -0600
>Received: from mail pickup service by hotmail.com with Microsoft 
>SMTPSVC;Wed, 18 Jan 2006 19:42:39 -0800
>Received: from 65.54.168.200 by by113fd.bay113.hotmail.msn.com with 
>HTTP;Thu, 19 Jan 2006 03:42:38 GMT
>X-Message-Info: N4u0pqWW+O2m+Q9YFz/olxxlTiooEfJ3vTshhc4HOUo=
>X-OriginalArrivalTime: 19 Jan 2006 03:42:39.0002 
>(UTC)FILETIME=[64EEAFA0:01C61CAA]
>X-BeenThere: accessd at databaseadvisors.com
>X-Mailman-Version: 2.1.6-xhtml
>Precedence: list
>List-Id: Access Developers discussion and problem 
>solving<accessd.databaseadvisors.com>
>List-Unsubscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=unsubscribe>
>List-Archive: <http://databaseadvisors.com/pipermail/accessd>
>List-Post: <mailto:accessd at databaseadvisors.com>
>List-Help: <mailto:accessd-request at databaseadvisors.com?subject=help>
>List-Subscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=subscribe>
>Errors-To: accessd-bounces at databaseadvisors.com
>Return-Path: accessd-bounces at databaseadvisors.com
>
>I have used both a global constant and a property appended to the database 
>properties collection to store this kind of information.  As an example of 
>a property defined by a user, I create a property called 'CompactDate' and 
>use it to create a back up and automatically back up a BE every fourth day 
>(people are forced out after midnight after two hours of inactivity).  If 
>the property doesn't exist, the error handler creates the property by 
>calling the AddProperty sub routine.  The Compact routine compacts the 
>linked database containing a specific named table and creates a backup 
>prefixed with the backup date and the BE name.  You could easily create a 
>'ServerPath' property.
>
>Private Sub Compact()
>'  Opens BE db exclusive (to preempt other users) and inspects a custom db 
>property "CompactDate"
>'  Compares "CompactDate" property to current date and if more than 4 day 
>disparity, needs to compact
>'  Closes BE so that compact may take place.
>'  Backs Up database before compacting
>'  Compacts BE to new file.
>'  If successful, deletes old file and renames the compacted BE to the BE 
>in the connect string
>    On Error GoTo ErrorHandler
>
>    Dim NewDBName As String
>    Dim strDBName As String
>    Dim db As DAO.Database
>    Dim strProp As String
>    Dim strDate As String
>    Dim strPropertyName As String
>
>    Set db = CurrentDb
>    strDBName = Mid$(db.TableDefs("tblCompany").Connect, 11)
>    If Dir(Left$(strDBName, Len(strDBName) - 3) & "ldb") = "" Then
>        'then the ldb file isn't present so the mdb is not open and can be 
>compacted
>        Set db = OpenDatabase(strDBName, True) ' true places it in 
>'exclusive mode
>        strPropertyName = "CompactDate"
>        strProp = db.Properties(strPropertyName)
>        'get the compactDate property
>        strDate = Format$(Date, "yymmdd")
>        If Format$(Date - 4, "yymmdd") > strProp Then
>            'if it's more than 4 days since last compact
>            db.Close
>            'it was open exclusive.  Must close to work with it
>            Set db = Nothing
>           If Copy(strDBName, Left$(strDBName, Len(strDBName) - 4) & 
>"BackUp " & strDate & ".mdb", _
>             False) Then
>                'backup successful
>                NewDBName = Left$(strDBName, Len(strDBName) - 4) & strDate 
>& ".mdb"
>                If Dir(NewDBName) <> "" Then Kill NewDBName
>                DBEngine.CompactDatabase strDBName, NewDBName
>                Kill strDBName
>                Name NewDBName As strDBName
>                Set db = OpenDatabase(strDBName)
>                db.Properties(strPropertyName) = strDate
>            End If
>        End If
>    End If
>
>ExitRoutine:
>    On Error Resume Next
>    db.Close
>    Set db = Nothing
>    Exit Sub
>ErrorHandler:
>    With Err
>        Select Case .Number
>            Case 76, 68
>                Resume ExitRoutine
>            Case 3270
>                AddProperty strPropertyName, db
>                Resume
>            Case Else
>                MsgBox .Number & vbCrLf & .Description, vbInformation, 
>"Error - Compact"
>        End Select
>    End With
>    'Resume 0
>    Resume ExitRoutine
>End Sub
>
>Private Sub AddProperty(strPropertyName As String, db As DAO.Database)
>    Dim prp As Property
>
>    Set prp = db.CreateProperty(strPropertyName, dbText, False)
>    db.Properties.Append prp
>End Sub
>
>
>
>Ciao
>J?rgen Welz
>Edmonton, Alberta
>jwelz at hotmail.com
>
>
>
>
>
>>From: "Dan Waters" <dwaters at usinternet.com>
>>
>>Hello Everyone,
>>
>>I just spent half the day struggling with the movement of a system from 
>>one
>>server to another.  The server path is hardcoded in one place in a startup
>>form.  What would have helped me a lot is to have the path in a text file 
>>or
>>ini file external to the database and stored in the same folder.
>>
>>Security is not an issue here, just my convenience, as my plans for the 
>>day
>>were pretty much blown up!
>>
>>Using a file for information like this sounds like it might be a fairly
>>typical solution.  Does anyone do this or something like it?
>>
>>Thanks!
>>Dan Waters
>
>


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




From jwcolby at ColbyConsulting.com  Wed Jan 18 22:09:22 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 18 Jan 2006 23:09:22 -0500
Subject: [AccessD] Setting Jet record locking via code
Message-ID: <001901c61cae$2138b6d0$647aa8c0@ColbyM6805>

Someone posted a link to a kb article discussing setting record locking via
ADO code IIRC.  Could I get that again?  I went looking but am not finding
it.

John W. Colby
www.ColbyConsulting.com 




From darsant at gmail.com  Wed Jan 18 22:22:58 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Wed, 18 Jan 2006 22:22:58 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <53c8e05a0601170849t8017286n99dc0d65238b4910@mail.gmail.com>
References: <F55048AF7E974F429BB24597D7355EEABF26@INFOSERVER04.infostat.local>
	<53c8e05a0601170849t8017286n99dc0d65238b4910@mail.gmail.com>
Message-ID: <53c8e05a0601182022s256c2196yf042ab7cc7bcffb@mail.gmail.com>

On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> I haven't used SourceSafe in Access personally, only C++ projects. I
> find it interesting that they've worked out code to diff Access DBs,
> but cannot make it compatible with Word for diffing.
>
> Granted, everything can be corrupt, but source-safe has a very very
> bad track record with corruption, even on simple things. I can't find
> the link now, but once I hit my work computer I'll post it.
>
> When it's all said and done, I still prefer a stability and safety
> over easy integration with Office / Visual Studio.

OK, looked a little more into this, and supposedly if you run their
analyze.exe tool at least weekly, it will drastically reduce the
"fail" corruption rate (as it fixes the small corruptions before they
propigate).

Some other interesting things that I hadn't heard before:

Large binary files often had to have their version history cleared with 3.1

File locks were frequently left behind and had to be manually removed.

Then there's the dreaded \data\a\aaaaaaaa.a error message that
everyone seems to end up dealing with (For some reason, I swear there
was a KB article dealing with all the possible ways this could pop up,
but I can't find it)

Also, if you delete a file, and then later recreate a file with the
same name, the previous file history is gone forever (You can't check
out previous complete builds anymore)

I mean, honestly, it works for a little side project, but for anything
a business is depending on, I don't trust my weight on it when there's
free open-source products out there that do much much better in terms
of both reliability and interface.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From jwcolby at ColbyConsulting.com  Wed Jan 18 22:50:10 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 18 Jan 2006 23:50:10 -0500
Subject: [AccessD] SQL Server express
Message-ID: <001a01c61cb3$d4617bc0$647aa8c0@ColbyM6805>

I stumbled across this (via the Database Advisor's website)

http://blogs.msdn.com/sqlexpress/archive/2004/07/23/192044.aspx

It has a good discussion of how to get SQL Server express running, the
browser service running, and all set to go for running the upsize wizard in
order to use SQL Server Express from Access.

John W. Colby
www.ColbyConsulting.com 




From jmhecht at earthlink.net  Thu Jan 19 01:14:29 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 18 Jan 2006 23:14:29 -0800
Subject: [AccessD] OT IE Font Size
Message-ID: <004901c61cc7$fd6d34a0$6701a8c0@HPLaptop>

How can I change it?

 

Need display change, not the magnifying glass.

 

Thanks

 

 

Joe Hecht

jmhecht at earthlink.net

 



From andy at minstersystems.co.uk  Thu Jan 19 01:45:02 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Thu, 19 Jan 2006 07:45:02 -0000
Subject: [AccessD] OT IE Font Size
In-Reply-To: <004901c61cc7$fd6d34a0$6701a8c0@HPLaptop>
Message-ID: <003a01c61ccc$41ade7a0$851c0c54@minster33c3r25>

Hi Joe
Do you mean Tools, Internet Options, Fonts?

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
> Sent: 19 January 2006 07:14
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] OT IE Font Size
> 
> 
> How can I change it?
> 
>  
> 
> Need display change, not the magnifying glass.
> 
>  
> 
> Thanks
> 
>  
> 
>  
> 
> Joe Hecht
> 
> jmhecht at earthlink.net
> 
>  
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From stuart at lexacorp.com.pg  Thu Jan 19 01:53:59 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Thu, 19 Jan 2006 17:53:59 +1000
Subject: [AccessD] OT IE Font Size
In-Reply-To: <004901c61cc7$fd6d34a0$6701a8c0@HPLaptop>
Message-ID: <43CFD237.22564.8A21290@stuart.lexacorp.com.pg>

On 18 Jan 2006 at 23:14, Joe Hecht wrote:

> How can I change it?
> Need display change, not the magnifying glass.
> 

Ctrl + Scrollwheel generally works for me.


-- 
Stuart




From shamil at users.mns.ru  Thu Jan 19 01:57:07 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 19 Jan 2006 10:57:07 +0300
Subject: [AccessD] Source Code Control
References: <F55048AF7E974F429BB24597D7355EEABF26@INFOSERVER04.infostat.local><53c8e05a0601170849t8017286n99dc0d65238b4910@mail.gmail.com>
	<53c8e05a0601182022s256c2196yf042ab7cc7bcffb@mail.gmail.com>
Message-ID: <008a01c61ccf$19638b80$6401a8c0@fincomplex.spb.ru>

> I mean, honestly, it works for a little side project
Josh,

I guess MS uses VSS by themselves ...

I did use VSS in a huge MSVC++ project of my colleague with thouzands of
source files and a half of a hundred projects - it worked well, no problems
at all...

I think most of the "horror stories" about VSS are in the past now.

Yes, I liked SubVersion for the features you describe and because it's open
source...

If there is no need in these SubVersion features then VSS looks good enough
and stable.

Shamil

----- Original Message ----- 
From: "Josh McFarlane" <darsant at gmail.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 7:22 AM
Subject: Re: [AccessD] Source Code Control


> On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> > I haven't used SourceSafe in Access personally, only C++ projects. I
> > find it interesting that they've worked out code to diff Access DBs,
> > but cannot make it compatible with Word for diffing.
> >
> > Granted, everything can be corrupt, but source-safe has a very very
> > bad track record with corruption, even on simple things. I can't find
> > the link now, but once I hit my work computer I'll post it.
> >
> > When it's all said and done, I still prefer a stability and safety
> > over easy integration with Office / Visual Studio.
>
> OK, looked a little more into this, and supposedly if you run their
> analyze.exe tool at least weekly, it will drastically reduce the
> "fail" corruption rate (as it fixes the small corruptions before they
> propigate).
>
> Some other interesting things that I hadn't heard before:
>
> Large binary files often had to have their version history cleared with
3.1
>
> File locks were frequently left behind and had to be manually removed.
>
> Then there's the dreaded \data\a\aaaaaaaa.a error message that
> everyone seems to end up dealing with (For some reason, I swear there
> was a KB article dealing with all the possible ways this could pop up,
> but I can't find it)
>
> Also, if you delete a file, and then later recreate a file with the
> same name, the previous file history is gone forever (You can't check
> out previous complete builds anymore)
>
> I mean, honestly, it works for a little side project, but for anything
> a business is depending on, I don't trust my weight on it when there's
> free open-source products out there that do much much better in terms
> of both reliability and interface.
>
> --
> Josh McFarlane
>
> "Peace cannot be kept by force. It can only be achieved by understanding."
> -Albert Einstein
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From shamil at users.mns.ru  Thu Jan 19 02:05:18 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 19 Jan 2006 11:05:18 +0300
Subject: [AccessD] Source Code Control
References: <F55048AF7E974F429BB24597D7355EEABF32@INFOSERVER04.infostat.local><53c8e05a0601180931u68d8b307s8c0c35dcff5ee91c@mail.gmail.com><001901c61c5a$925a8cc0$6401a8c0@fincomplex.spb.ru><53c8e05a0601181530o39babe2cwb329c0e2ab9375d9@mail.gmail.com><004f01c61c8d$3b15f8e0$6401a8c0@fincomplex.spb.ru>
	<53c8e05a0601181628x7450a906l9a81b1d1476fca37@mail.gmail.com>
Message-ID: <008d01c61ccf$19828530$6401a8c0@fincomplex.spb.ru>

> Basically it equates to tunneling through SSH and then using SSH to
> perform your checkout.
Thank you, Josh!

I will check the ref - but this could be not what I wanted.
What I wanted is to keep SubVersion running on a public Web server and to
store source files in it encrypted.
And to encrypt/decrypt them on client side transparently to the development
tools during check-in/check-out.

Please dont' spend time to look for this feature - just post info about it
here if you ever see it occasionally somewhere ....

Shamil

----- Original Message ----- 
From: "Josh McFarlane" <darsant at gmail.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 3:28 AM
Subject: Re: [AccessD] Source Code Control


> On 1/18/06, Shamil Salakhetdinov <shamil at users.mns.ru> wrote:
> > > As far as actual encryption of the data passed, I haven't looked into
> > > it much. I'll see what I can find out and let you know.
> > Thank you and thank in advance, Josh!
>
> OK, I can't find anywhere that says it has any built in encryption
> support for data transport, however, you can use their server service
> and SSH.
>
> Basically it equates to tunneling through SSH and then using SSH to
> perform your checkout.
>
> See http://subversion.tigris.org/faq.html#paranoid
>
> --
> Josh McFarlane
>
> "Peace cannot be kept by force. It can only be achieved by understanding."
> -Albert Einstein
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Erwin.Craps at ithelps.be  Thu Jan 19 03:02:47 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Thu, 19 Jan 2006 10:02:47 +0100
Subject: [AccessD] OT IE Font Size
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62B9@stekelbes.ithelps.local>

In ie, goto view and  there is an option. Don't know the correct word in
the Enlgish version.
But is must be something like lettersize or fontsize.
You can choose between normal, small big etc..

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Thursday, January 19, 2006 8:54 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT IE Font Size

On 18 Jan 2006 at 23:14, Joe Hecht wrote:

> How can I change it?
> Need display change, not the magnifying glass.
> 

Ctrl + Scrollwheel generally works for me.


--
Stuart


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


From joeget at vgernet.net  Thu Jan 19 03:05:48 2006
From: joeget at vgernet.net (John Eget)
Date: Thu, 19 Jan 2006 04:05:48 -0500
Subject: [AccessD] transfer table code
Message-ID: <004c01c61cd7$8ea3be80$d3c2f63f@JOHN>

I am trying to transfer a table (with the same name) from a different access database to the access database that I have presently open.  I have stored the location of the different access database name in a table.  I display and select the table on the form I have open in a combo box titled cboImportTable.  The bound column is correctly identified and displayed as 1.  Table name to transfer is KeyProcessAreas  

I am using the following code but keep getting a popup that states  "error number 424" and further states "error desc: object required"    I am using the following code 

DoCmd.TransferDatabase acImport, "Microsoft Access", Me.cboImportTable.Column(1), acTable, Me.cboImportTable.Column(1).[KeyProcessAreas], Me.cboImportTable.Column(1).[KeyProcessAreas1]

Column 1 of the table has the full name of the table location in it.

Have an idea what I am doing wrong?

Thanks

John  

From joeget at vgernet.net  Thu Jan 19 03:07:52 2006
From: joeget at vgernet.net (John Eget)
Date: Thu, 19 Jan 2006 04:07:52 -0500
Subject: [AccessD] Table Transfer Issue
Message-ID: <006101c61cd7$d74138c0$d3c2f63f@JOHN>

 am trying to transfer a table (with the same name) from a different access database to the access database that I have presently open.  I have stored the location of the different access database name in a table.  I display and select the table on the form I have open in a combo box titled cboImportTable.  The bound column is correctly identified and displayed as 1.  Table name to transfer is KeyProcessAreas  

I am using the following code but keep getting a popup that states  "error number 424" and further states "error desc: object required"    I am using the following code 

DoCmd.TransferDatabase acImport, "Microsoft Access", Me.cboImportTable.Column(1), acTable, Me.cboImportTable.Column(1).[KeyProcessAreas], Me.cboImportTable.Column(1).[KeyProcessAreas1]

Column 1 of the table has the full name of the table location in it.

Have an idea what I am doing wrong?

Thanks

John  

From Gustav at cactus.dk  Thu Jan 19 03:20:01 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 19 Jan 2006 10:20:01 +0100
Subject: [AccessD] Table Transfer Issue
Message-ID: <s3cf67ea.059@cactus.dk>

Hi John

Try with:

DoCmd.TransferDatabase acImport, "Microsoft Access", Me.cboImportTable.Column(1), acTable, "KeyProcessAreas", "KeyProcessAreas1"

/gustav

>>> joeget at vgernet.net 19-01-2006 10:07 >>>
 am trying to transfer a table (with the same name) from a different access database to the access database that I have presently open.  I have stored the location of the different access database name in a table.  I display and select the table on the form I have open in a combo box titled cboImportTable.  The bound column is correctly identified and displayed as 1.  Table name to transfer is KeyProcessAreas  

I am using the following code but keep getting a popup that states  "error number 424" and further states "error desc: object required"    I am using the following code 

DoCmd.TransferDatabase acImport, "Microsoft Access", Me.cboImportTable.Column(1), acTable, Me.cboImportTable.Column(1).[KeyProcessAreas], Me.cboImportTable.Column(1).[KeyProcessAreas1]

Column 1 of the table has the full name of the table location in it.

Have an idea what I am doing wrong?

Thanks

John  




From Gustav at cactus.dk  Thu Jan 19 03:42:07 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 19 Jan 2006 10:42:07 +0100
Subject: [AccessD] ...close open forms
Message-ID: <s3cf6d26.061@cactus.dk>

Hi William

OK, then adjust to skip the last opened (the opening) form:

 ' Close all forms except the first and last opened form.
  For lngF = Forms.Count - 2 To 1 Step -1
    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
  Next

/gustav

>>> wdhindman at bellsouth.net 18-01-2006 23:15:07 >>>
Gustav

...thanks ...wish it was that easy ...it does what you say but not what I 
need :(

...probably didn't explain it well enough ...it happens :)

...two or more forms open including the switchboard ...need it to close 
everything BUT the swb AND the opening form.

...your code ...in the on open event of opening form ...closes all but the 
swb ...including the opening form.

...suggestions welcome.

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Wednesday, January 18, 2006 9:22 AM
Subject: Re: [AccessD] ...close open forms


> Hi William
>
> How about:
>
>  ' Close all forms except this first opened form.
>  For lngF = Forms.Count - 1 To 1 Step -1
>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>  Next
>
> /gustav
>
>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
> ...I need to close any open forms ...other than designated forms ...and 
> save
> their data ...before opening a called form ...from the called form.
>
> ...ie call a form open from a switchboard ...the called form checks for 
> any
> other forms open, other than the sb, and closes them, saving their data,
> before it opens.




From andy at minstersystems.co.uk  Thu Jan 19 04:08:51 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Thu, 19 Jan 2006 10:08:51 +0000
Subject: [AccessD] OT IE Font Size
Message-ID: <20060119100849.84B84254AAD@smtp.nildram.co.uk>

It's View then Textsize.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] OT IE Font Size
Date: 19/01/06 09:04


In ie, goto view and there is an option. Don't know the correct word in
the Enlgish version.
But is must be something like lettersize or fontsize.
You can choose between normal, small big etc..

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Thursday, January 19, 2006 8:54 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] OT IE Font Size

On 18 Jan 2006 at 23:14, Joe Hecht wrote:

> How can I change it?
> Need display change, not the magnifying glass.
>

Ctrl + Scrollwheel generally works for me.


--
Stuart


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

________________________________________________
Message sent using UebiMiau 2.7.2



From Gustav at cactus.dk  Thu Jan 19 04:10:08 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 19 Jan 2006 11:10:08 +0100
Subject: [AccessD] Read External File for Path String
Message-ID: <s3cf73a3.063@cactus.dk>

Hi Dan

Or use the registry. This is what it is for.
Susan just wrote an article on this (hidden somewhere for the public, I guess) but it's quite easy if you use:

SaveSetting(..) and GetSetting(..)

/gustav

>>> dwaters at usinternet.com 19-01-2006 01:37:53 >>>
Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters




From accessd666 at yahoo.com  Thu Jan 19 04:42:59 2006
From: accessd666 at yahoo.com (Sad Der)
Date: Thu, 19 Jan 2006 02:42:59 -0800 (PST)
Subject: [AccessD] Access security?
Message-ID: <20060119104259.25321.qmail@web31606.mail.mud.yahoo.com>

Hi group,

Murphy came along, big time!! 

The administrator of an Access database I created back
in 2002 passed away and nobody knows anything about
the users/passwords stuff.

However in my documentation (!! I CREATED
DOCUMENTATION !! GO FIGURE) I saw that I written down
the adminuser + pincode!!!!!

Can I do anything with that?
I really need to get in.

Tia

Sander

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 


From accessd at shaw.ca  Thu Jan 19 06:11:40 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Thu, 19 Jan 2006 04:11:40 -0800
Subject: [AccessD] Source Code Control
In-Reply-To: <008a01c61ccf$19638b80$6401a8c0@fincomplex.spb.ru>
Message-ID: <000301c61cf1$821024f0$017ba8c0@xpserver>

Hi Shamil:

MS uses TeamServer for all their projects. 

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: January 18, 2006 11:57 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control

> I mean, honestly, it works for a little side project
Josh,

I guess MS uses VSS by themselves ...

I did use VSS in a huge MSVC++ project of my colleague with thouzands of
source files and a half of a hundred projects - it worked well, no problems
at all...

I think most of the "horror stories" about VSS are in the past now.

Yes, I liked SubVersion for the features you describe and because it's open
source...

If there is no need in these SubVersion features then VSS looks good enough
and stable.

Shamil

----- Original Message ----- 
From: "Josh McFarlane" <darsant at gmail.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 7:22 AM
Subject: Re: [AccessD] Source Code Control


> On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> > I haven't used SourceSafe in Access personally, only C++ projects. I
> > find it interesting that they've worked out code to diff Access DBs,
> > but cannot make it compatible with Word for diffing.
> >
> > Granted, everything can be corrupt, but source-safe has a very very
> > bad track record with corruption, even on simple things. I can't find
> > the link now, but once I hit my work computer I'll post it.
> >
> > When it's all said and done, I still prefer a stability and safety
> > over easy integration with Office / Visual Studio.
>
> OK, looked a little more into this, and supposedly if you run their
> analyze.exe tool at least weekly, it will drastically reduce the
> "fail" corruption rate (as it fixes the small corruptions before they
> propigate).
>
> Some other interesting things that I hadn't heard before:
>
> Large binary files often had to have their version history cleared with
3.1
>
> File locks were frequently left behind and had to be manually removed.
>
> Then there's the dreaded \data\a\aaaaaaaa.a error message that
> everyone seems to end up dealing with (For some reason, I swear there
> was a KB article dealing with all the possible ways this could pop up,
> but I can't find it)
>
> Also, if you delete a file, and then later recreate a file with the
> same name, the previous file history is gone forever (You can't check
> out previous complete builds anymore)
>
> I mean, honestly, it works for a little side project, but for anything
> a business is depending on, I don't trust my weight on it when there's
> free open-source products out there that do much much better in terms
> of both reliability and interface.
>
> --
> Josh McFarlane
>
> "Peace cannot be kept by force. It can only be achieved by understanding."
> -Albert Einstein
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com

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



From wdhindman at bellsouth.net  Thu Jan 19 06:31:46 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 19 Jan 2006 07:31:46 -0500
Subject: [AccessD] ...close open forms
References: <s3cf6d26.061@cactus.dk>
Message-ID: <000a01c61cf4$50028c20$6101a8c0@JISREGISTRATION.local>

Gustav, Don, Lambert, Shamil, et al

...thanks to all who responded ...four different solutions all of which 
worked in different ways.
...why do I love AccessD? ...let me count the ways! :)

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 4:42 AM
Subject: Re: [AccessD] ...close open forms


> Hi William
>
> OK, then adjust to skip the last opened (the opening) form:
>
> ' Close all forms except the first and last opened form.
>  For lngF = Forms.Count - 2 To 1 Step -1
>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>  Next
>
> /gustav
>
>>>> wdhindman at bellsouth.net 18-01-2006 23:15:07 >>>
> Gustav
>
> ...thanks ...wish it was that easy ...it does what you say but not what I
> need :(
>
> ...probably didn't explain it well enough ...it happens :)
>
> ...two or more forms open including the switchboard ...need it to close
> everything BUT the swb AND the opening form.
>
> ...your code ...in the on open event of opening form ...closes all but the
> swb ...including the opening form.
>
> ...suggestions welcome.
>
> William
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Wednesday, January 18, 2006 9:22 AM
> Subject: Re: [AccessD] ...close open forms
>
>
>> Hi William
>>
>> How about:
>>
>>  ' Close all forms except this first opened form.
>>  For lngF = Forms.Count - 1 To 1 Step -1
>>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>>  Next
>>
>> /gustav
>>
>>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
>> ...I need to close any open forms ...other than designated forms ...and
>> save
>> their data ...before opening a called form ...from the called form.
>>
>> ...ie call a form open from a switchboard ...the called form checks for
>> any
>> other forms open, other than the sb, and closes them, saving their data,
>> before it opens.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From Jdemarco at hudsonhealthplan.org  Thu Jan 19 07:03:52 2006
From: Jdemarco at hudsonhealthplan.org (Jim DeMarco)
Date: Thu, 19 Jan 2006 08:03:52 -0500
Subject: [AccessD] Read External File for Path String
Message-ID: <08F823FD83787D4BA0B99CA580AD3C74016C43FC@TTNEXCHCL2.hshhp.com>

You could use an XML file.  I posted an article on using XML to store configuration data in the list newsletter a year or so ago.

Jim DeMarco

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Dan Waters
Sent: Wednesday, January 18, 2006 7:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



-- 
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".
***********************************************************************************



From shamil at users.mns.ru  Thu Jan 19 07:18:04 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 19 Jan 2006 16:18:04 +0300
Subject: [AccessD] Source Code Control
References: <000301c61cf1$821024f0$017ba8c0@xpserver>
Message-ID: <003901c61cfa$cbae7e50$6501a8c0@fincomplex.spb.ru>

Hi Jim,

And TeamServer uses VSS Server - Yes/No?

Shamil

----- Original Message ----- 
From: "Jim Lawrence" <accessd at shaw.ca>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 3:11 PM
Subject: Re: [AccessD] Source Code Control


> Hi Shamil:
>
> MS uses TeamServer for all their projects.
>
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> Salakhetdinov
> Sent: January 18, 2006 11:57 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Source Code Control
>
> > I mean, honestly, it works for a little side project
> Josh,
>
> I guess MS uses VSS by themselves ...
>
> I did use VSS in a huge MSVC++ project of my colleague with thouzands of
> source files and a half of a hundred projects - it worked well, no
problems
> at all...
>
> I think most of the "horror stories" about VSS are in the past now.
>
> Yes, I liked SubVersion for the features you describe and because it's
open
> source...
>
> If there is no need in these SubVersion features then VSS looks good
enough
> and stable.
>
> Shamil
>
> ----- Original Message ----- 
> From: "Josh McFarlane" <darsant at gmail.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 19, 2006 7:22 AM
> Subject: Re: [AccessD] Source Code Control
>
>
> > On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> > > I haven't used SourceSafe in Access personally, only C++ projects. I
> > > find it interesting that they've worked out code to diff Access DBs,
> > > but cannot make it compatible with Word for diffing.
> > >
> > > Granted, everything can be corrupt, but source-safe has a very very
> > > bad track record with corruption, even on simple things. I can't find
> > > the link now, but once I hit my work computer I'll post it.
> > >
> > > When it's all said and done, I still prefer a stability and safety
> > > over easy integration with Office / Visual Studio.
> >
> > OK, looked a little more into this, and supposedly if you run their
> > analyze.exe tool at least weekly, it will drastically reduce the
> > "fail" corruption rate (as it fixes the small corruptions before they
> > propigate).
> >
> > Some other interesting things that I hadn't heard before:
> >
> > Large binary files often had to have their version history cleared with
> 3.1
> >
> > File locks were frequently left behind and had to be manually removed.
> >
> > Then there's the dreaded \data\a\aaaaaaaa.a error message that
> > everyone seems to end up dealing with (For some reason, I swear there
> > was a KB article dealing with all the possible ways this could pop up,
> > but I can't find it)
> >
> > Also, if you delete a file, and then later recreate a file with the
> > same name, the previous file history is gone forever (You can't check
> > out previous complete builds anymore)
> >
> > I mean, honestly, it works for a little side project, but for anything
> > a business is depending on, I don't trust my weight on it when there's
> > free open-source products out there that do much much better in terms
> > of both reliability and interface.
> >
> > --
> > Josh McFarlane
> >
> > "Peace cannot be kept by force. It can only be achieved by
understanding."
> > -Albert Einstein
> > -- 



From lmrazek at lcm-res.com  Thu Jan 19 09:50:10 2006
From: lmrazek at lcm-res.com (Lawrence Mrazek)
Date: Thu, 19 Jan 2006 10:50:10 -0500
Subject: [AccessD] Scheduling Application - Changing Sort Order of
	Individual Items
Message-ID: <24bfdd13bb5340ec967cf97a14d343f7@lcm-res.com>

Hi:

I'm in the process of adapting a scheduling program for a manufacturer to Access (they currently do this in Excel).

Basically, the application will have a list of products on a form, and the user must be able to move the individual products up and down in the sort order via drag and drop or button click. Is this possible in Access?

ProductName?????????Scheduled Order
Widget 1????????????????1st
Widget 3????????????????2nd
Widget 5????????????????3rd
Widget 8????????????????4th

For example, I need to be able to quickly move Widget 8 to 2nd, and have Widget 3 and Widget 5 automatically slide down to 3rd and 4th respectively.

Thanks in advance.

Larry Mrazek
lmrazek at lcm-res.com
http://www.lcm-res.com/

 


From cfoust at infostatsystems.com  Thu Jan 19 09:53:40 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 19 Jan 2006 07:53:40 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF3C@INFOSERVER04.infostat.local>

Glad I don't work in your shop, Josh.  I understand the problem, but it
would feel more like solitary confinement to me than a good working
environment.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Wednesday, January 18, 2006 4:30 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/18/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> LOL  In our shop, we just yell over the cubicles, "hey, who has 
> objectX checked out?  I need to modify it!"

See, in our shop I try to enforce a "no bother" policy. From previous
studies and personal experience, it seems like interrupts will knock
programmers out of efficient-coding land for 15-30 minutes before they
get back into the groove. YMMV though.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by
understanding." -Albert Einstein
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From cfoust at infostatsystems.com  Thu Jan 19 10:04:57 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 19 Jan 2006 08:04:57 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF3D@INFOSERVER04.infostat.local>

YMMV, etc.  Our shop has been trusting it for much longer than I've
worked here.  As far as your dreaded error message, never heard of it or
experienced it.  Truly, Josh, it's a good idea to thoroughly explore
something before you decide it's no good based on hearsay.  Sure, you
can keep finding other things that are "wrong" with SourceSafe, but when
it comes right down to it, whether the product is useful depends on how
you use it.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh
McFarlane
Sent: Wednesday, January 18, 2006 8:23 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> I haven't used SourceSafe in Access personally, only C++ projects. I 
> find it interesting that they've worked out code to diff Access DBs, 
> but cannot make it compatible with Word for diffing.
>
> Granted, everything can be corrupt, but source-safe has a very very 
> bad track record with corruption, even on simple things. I can't find 
> the link now, but once I hit my work computer I'll post it.
>
> When it's all said and done, I still prefer a stability and safety 
> over easy integration with Office / Visual Studio.

OK, looked a little more into this, and supposedly if you run their
analyze.exe tool at least weekly, it will drastically reduce the "fail"
corruption rate (as it fixes the small corruptions before they
propigate).

Some other interesting things that I hadn't heard before:

Large binary files often had to have their version history cleared with
3.1

File locks were frequently left behind and had to be manually removed.

Then there's the dreaded \data\a\aaaaaaaa.a error message that everyone
seems to end up dealing with (For some reason, I swear there was a KB
article dealing with all the possible ways this could pop up, but I
can't find it)

Also, if you delete a file, and then later recreate a file with the same
name, the previous file history is gone forever (You can't check out
previous complete builds anymore)

I mean, honestly, it works for a little side project, but for anything a
business is depending on, I don't trust my weight on it when there's
free open-source products out there that do much much better in terms of
both reliability and interface.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by
understanding." -Albert Einstein
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From harkinsss at bellsouth.net  Thu Jan 19 10:05:45 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Thu, 19 Jan 2006 11:05:45 -0500
Subject: [AccessD] more on that Format() to pad text values question
In-Reply-To: <002601c61c70$189b8cc0$6401a8c0@fincomplex.spb.ru>
Message-ID: <000001c61d12$39234f30$d7b3d6d1@SUSANONE>

 
?format(Null,"#0.00;(#0.00);---;(NONE)")
(NONE)

=======That's what I was looking for. Thanks Shamil. I was using the
expression, but it just wasn't working and I discovered a really stupid
mistake on part. <groan> Seeing your syntax, I knew I was using the right
syntax and that sent me looking for another problem, which I found. :) 

Susan H. 



From darsant at gmail.com  Thu Jan 19 10:07:21 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Thu, 19 Jan 2006 10:07:21 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF3C@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF3C@INFOSERVER04.infostat.local>
Message-ID: <53c8e05a0601190807v5265fe71h146205de8dd472cc@mail.gmail.com>

On 1/19/06, Charlotte Foust <cfoust at infostatsystems.com> wrote:
> Glad I don't work in your shop, Josh.  I understand the problem, but it
> would feel more like solitary confinement to me than a good working
> environment.

Oh, we still talk and chit chat, but when someone's wanting to get
work done, and has their headphones on, we tend to not bother each
other. Granted, the no bother policy only applies to questions that
can be answered quickly or the information is on the web (What's the
command to do foo? Where's foo?), things that take 10 seconds to ask
the guy next to you, but take 30 seconds to look up online. For things
such as program design, we still will sit down and interrupt work to
have a 15 minute discussion.

--
Josh McFarlane
"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From tinanfields at torchlake.com  Thu Jan 19 10:07:59 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Thu, 19 Jan 2006 11:07:59 -0500
Subject: [AccessD] My form has a little problem
References: <43CECB09.90602@torchlake.com>
	<009f01c61c8c$be0b2b40$6101a8c0@JISREGISTRATION.local>
Message-ID: <43CFB95F.4080108@torchlake.com>

Hello William,

The row source for the combo box is:
SELECT qselStudentName.StuID, qselStudentName.Name
FROM qselStudentName
ORDER BY qselStudentName.StuLname;

The query qselStudentName looks like this:
SELECT tblStudent.StuID, tblStudent.StuLname, tblStudent.StuFname, 
tblStudent!StuLname & ", " & tblStudent!StuFname AS Name
FROM tblStudent;

So, from the table tblStudent, I have selected the PK, last name and 
first name, and added a field called Name which chains together the last 
and first names - creating my query qselStudentName.  For the combo box 
I have selected the PK and the Name field, from my query and ordered the 
display by last name.  Do you see something here I have screwed up?

Thanks for looking,
Tina

William Hindman wrote:

>...sounds more like a problem with the table or query on which the combo is 
>based.
>
>William
>
>----- Original Message ----- 
>From: "Tina Norris Fields" <tinanfields at torchlake.com>
>To: <accessd at databaseadvisors.com>
>Sent: Wednesday, January 18, 2006 6:11 PM
>Subject: [AccessD] My form has a little problem
>
>
>  
>
>>Hi all,
>>
>>I have a form for either creating a new student profile, or editing an
>>existing one.  To create a new profile, trhe user clicks a button that
>>opens the student information form in add mode.  To edit an existing
>>profile, the user selects the student's name from an unbound combo box,
>>and then clicks the button to open the student information form for that
>>student in edit mode.
>>
>>When I first made this little form, it all worked well, but it no longer
>>works just right.  If I select a student's name from the combo box, and
>>I try to click the button to open the student information fomr, the
>>button does not get the focus - it does not respond.  If I wait around
>>for a while, eventually the button will let me click it.  If I tab out
>>of the combo box, the focus will shift to the the buttons in their
>>established tab sequence.
>>
>>I remember there have been heated discussions on this list about unbound
>>controls.  I am ready to learn - do I have a problem because I'm using
>>an unbound control?
>>
>>This is what my button does when I can get it clicked:
>>==========
>>Private Sub cmdEditExistingStudentProfile_Click()
>>On Error GoTo Err_cmdEditExistingStudentProfile_Click
>>
>>   Dim stDocName As String
>>   Dim stLinkCriteria As String
>>
>>   stDocName = "frmStudentInformation"
>>   stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>>   DoCmd.OpenForm stDocName, , , stLinkCriteria
>>
>>Exit_cmdEditExistingStudentProfile_Click:
>>   Exit Sub
>>
>>Err_cmdEditExistingStudentProfile_Click:
>>   MsgBox Err.Description
>>   Resume Exit_cmdEditExistingStudentProfile_Click
>>
>>End Sub
>>===========
>>
>>Should I be adding an After Update event procedure to my unbound combo
>>box - to set the focus on the button to get the student information form?
>>
>>Thanks for whatever lessons you will send my way.
>>
>>Tina
>>
>>-- 
>>AccessD mailing list
>>AccessD at databaseadvisors.com
>>http://databaseadvisors.com/mailman/listinfo/accessd
>>Website: http://www.databaseadvisors.com
>>
>>    
>>
>
>
>  
>




From cfoust at infostatsystems.com  Thu Jan 19 10:08:42 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 19 Jan 2006 08:08:42 -0800
Subject: [AccessD] Read External File for Path String
Message-ID: <F55048AF7E974F429BB24597D7355EEABF3E@INFOSERVER04.infostat.local>

That works if you have permission to write to the registry, Gustav.
We're running into more and more situations where the user does  NOT
have permission to read and write the registry.  Apparently the "new"
approach is to use an xml file in documents and settings.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 19, 2006 2:10 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String


Hi Dan

Or use the registry. This is what it is for.
Susan just wrote an article on this (hidden somewhere for the public, I
guess) but it's quite easy if you use:

SaveSetting(..) and GetSetting(..)

/gustav

>>> dwaters at usinternet.com 19-01-2006 01:37:53 >>>
Hello Everyone,

I just spent half the day struggling with the movement of a system from
one server to another.  The server path is hardcoded in one place in a
startup form.  What would have helped me a lot is to have the path in a
text file or ini file external to the database and stored in the same
folder.

Security is not an issue here, just my convenience, as my plans for the
day were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters


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


From darsant at gmail.com  Thu Jan 19 10:09:18 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Thu, 19 Jan 2006 10:09:18 -0600
Subject: [AccessD] Source Code Control
In-Reply-To: <008a01c61ccf$19638b80$6401a8c0@fincomplex.spb.ru>
References: <F55048AF7E974F429BB24597D7355EEABF26@INFOSERVER04.infostat.local>
	<53c8e05a0601170849t8017286n99dc0d65238b4910@mail.gmail.com>
	<53c8e05a0601182022s256c2196yf042ab7cc7bcffb@mail.gmail.com>
	<008a01c61ccf$19638b80$6401a8c0@fincomplex.spb.ru>
Message-ID: <53c8e05a0601190809n1f829383ob509806a1f91f365@mail.gmail.com>

On 1/19/06, Shamil Salakhetdinov <shamil at users.mns.ru> wrote:
> > I mean, honestly, it works for a little side project
> Josh,
>
> I guess MS uses VSS by themselves ...

Actually, pre-2005 many departments didn't even use it. The large ones
because VSS or CVS for that matter, was not designed for that size,
and the smaller ones because... well, they just didn't like it.

> I did use VSS in a huge MSVC++ project of my colleague with thouzands of
> source files and a half of a hundred projects - it worked well, no problems
> at all...
>
> I think most of the "horror stories" about VSS are in the past now.

I hope at least with 2005 they fixed most of the issues. If so, then I
can let the horror stories start to die with the rest of them.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From cfoust at infostatsystems.com  Thu Jan 19 10:11:48 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 19 Jan 2006 08:11:48 -0800
Subject: [AccessD] Source Code Control
Message-ID: <F55048AF7E974F429BB24597D7355EEABF3F@INFOSERVER04.infostat.local>

Good question, Shamil.  I don't think so, and of course that has fueled
the "VSS is junk" argument.  Personally, I've never had problems with
VSS aside from the kind of problems you also get occasionally with SQL
Server or any other server product.  I'm for whatever works, it isn't a
big emotional issue for me.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: Thursday, January 19, 2006 5:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control


Hi Jim,

And TeamServer uses VSS Server - Yes/No?

Shamil

----- Original Message ----- 
From: "Jim Lawrence" <accessd at shaw.ca>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 3:11 PM
Subject: Re: [AccessD] Source Code Control


> Hi Shamil:
>
> MS uses TeamServer for all their projects.
>
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil 
> Salakhetdinov
> Sent: January 18, 2006 11:57 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Source Code Control
>
> > I mean, honestly, it works for a little side project
> Josh,
>
> I guess MS uses VSS by themselves ...
>
> I did use VSS in a huge MSVC++ project of my colleague with thouzands 
> of source files and a half of a hundred projects - it worked well, no
problems
> at all...
>
> I think most of the "horror stories" about VSS are in the past now.
>
> Yes, I liked SubVersion for the features you describe and because it's
open
> source...
>
> If there is no need in these SubVersion features then VSS looks good
enough
> and stable.
>
> Shamil
>
> ----- Original Message -----
> From: "Josh McFarlane" <darsant at gmail.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 19, 2006 7:22 AM
> Subject: Re: [AccessD] Source Code Control
>
>
> > On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> > > I haven't used SourceSafe in Access personally, only C++ projects.

> > > I find it interesting that they've worked out code to diff Access 
> > > DBs, but cannot make it compatible with Word for diffing.
> > >
> > > Granted, everything can be corrupt, but source-safe has a very 
> > > very bad track record with corruption, even on simple things. I 
> > > can't find the link now, but once I hit my work computer I'll post

> > > it.
> > >
> > > When it's all said and done, I still prefer a stability and safety

> > > over easy integration with Office / Visual Studio.
> >
> > OK, looked a little more into this, and supposedly if you run their 
> > analyze.exe tool at least weekly, it will drastically reduce the 
> > "fail" corruption rate (as it fixes the small corruptions before 
> > they propigate).
> >
> > Some other interesting things that I hadn't heard before:
> >
> > Large binary files often had to have their version history cleared 
> > with
> 3.1
> >
> > File locks were frequently left behind and had to be manually 
> > removed.
> >
> > Then there's the dreaded \data\a\aaaaaaaa.a error message that 
> > everyone seems to end up dealing with (For some reason, I swear 
> > there was a KB article dealing with all the possible ways this could

> > pop up, but I can't find it)
> >
> > Also, if you delete a file, and then later recreate a file with the 
> > same name, the previous file history is gone forever (You can't 
> > check out previous complete builds anymore)
> >
> > I mean, honestly, it works for a little side project, but for 
> > anything a business is depending on, I don't trust my weight on it 
> > when there's free open-source products out there that do much much 
> > better in terms of both reliability and interface.
> >
> > --
> > Josh McFarlane
> >
> > "Peace cannot be kept by force. It can only be achieved by
understanding."
> > -Albert Einstein
> > --

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


From jeffrey.demulling at usbank.com  Thu Jan 19 10:21:43 2006
From: jeffrey.demulling at usbank.com (jeffrey.demulling at usbank.com)
Date: Thu, 19 Jan 2006 10:21:43 -0600
Subject: [AccessD] Read External File for Path String
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF3E@INFOSERVER04.infostat.local>
Message-ID: <OFFE1FB8B8.01EF4ED2-ON862570FB.0059B615-862570FB.0059E129@usbank.com>

I have run into that problem here at work.  That is why I went back to ini
files and have also played with XML files.  Proved to be easier (using an
ini file) than trying to fight an uphill battle to get the workstation
image for 60 of the 350 plus users for one of my apps changed.

Jeffrey F. Demulling
Project Manager
U.S. Bank Corporate Trust Services
60 Livingston Avenue
EP-MN-WS3C
St. Paul, MN  55107-2292
Ph: 651-495-3925
Fax: 651-495-8103
email: jeffrey.demulling at usbank.com


                                                                           
             "Charlotte Foust"                                             
             <cfoust at infostats                                             
             ystems.com>                                                To 
             Sent by:                  "Access Developers discussion and   
             accessd-bounces at d         problem solving"                    
             atabaseadvisors.c         <accessd at databaseadvisors.com>      
             om                                                         cc 
                                                                           
                                                                   Subject 
             01/19/2006 10:08          Re: [AccessD] Read External File    
             AM                        for Path String                     
                                                                           
                                                                           
             Please respond to                                             
                  "Access                                                  
                Developers                                                 
              discussion and                                               
             problem solving"                                              
             <accessd at database                                             
               advisors.com>                                               
                                                                           
                                                                           




That works if you have permission to write to the registry, Gustav.
We're running into more and more situations where the user does  NOT
have permission to read and write the registry.  Apparently the "new"
approach is to use an xml file in documents and settings.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 19, 2006 2:10 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String


Hi Dan

Or use the registry. This is what it is for.
Susan just wrote an article on this (hidden somewhere for the public, I
guess) but it's quite easy if you use:

SaveSetting(..) and GetSetting(..)

/gustav

>>> dwaters at usinternet.com 19-01-2006 01:37:53 >>>
Hello Everyone,

I just spent half the day struggling with the movement of a system from
one server to another.  The server path is hardcoded in one place in a
startup form.  What would have helped me a lot is to have the path in a
text file or ini file external to the database and stored in the same
folder.

Security is not an issue here, just my convenience, as my plans for the
day were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters


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




------------------------------------------------------------------------------
Electronic Privacy Notice. This e-mail, and any attachments, contains information that is, or may be, covered by electronic communications privacy laws, and is also confidential and proprietary in nature. If you are not the intended recipient, please be advised that you are legally prohibited from retaining, using, copying, distributing, or otherwise disclosing this information in any manner. Instead, please reply to the sender that you have received this communication in error, and then immediately delete it. Thank you in advance for your cooperation.
==============================================================================



From DWUTKA at marlow.com  Thu Jan 19 10:25:04 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Thu, 19 Jan 2006 10:25:04 -0600
Subject: [AccessD] My form has a little problem
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD593@main2.marlow.com>

How are you populating the unbound combobox?

Drew

-----Original Message-----
From: Tina Norris Fields [mailto:tinanfields at torchlake.com]
Sent: Wednesday, January 18, 2006 5:11 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] My form has a little problem


Hi all,

I have a form for either creating a new student profile, or editing an 
existing one.  To create a new profile, the user clicks a button that 
opens the student information form in add mode.  To edit an existing 
profile, the user selects the student's name from an unbound combo box, 
and then clicks the button to open the student information form for that 
student in edit mode.

When I first made this little form, it all worked well, but it no longer 
works just right.  If I select a student's name from the combo box, and 
I try to click the button to open the student information fomr, the 
button does not get the focus - it does not respond.  If I wait around 
for a while, eventually the button will let me click it.  If I tab out 
of the combo box, the focus will shift to the the buttons in their 
established tab sequence.  

I remember there have been heated discussions on this list about unbound 
controls.  I am ready to learn - do I have a problem because I'm using 
an unbound control?  

This is what my button does when I can get it clicked:
==========
Private Sub cmdEditExistingStudentProfile_Click()
On Error GoTo Err_cmdEditExistingStudentProfile_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmStudentInformation"
    stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdEditExistingStudentProfile_Click:
    Exit Sub

Err_cmdEditExistingStudentProfile_Click:
    MsgBox Err.Description
    Resume Exit_cmdEditExistingStudentProfile_Click
   
End Sub
===========

Should I be adding an After Update event procedure to my unbound combo 
box - to set the focus on the button to get the student information form?

Thanks for whatever lessons you will send my way.

Tina

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


From wdhindman at bellsouth.net  Thu Jan 19 10:31:26 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 19 Jan 2006 11:31:26 -0500
Subject: [AccessD] My form has a little problem
References: <43CECB09.90602@torchlake.com><009f01c61c8c$be0b2b40$6101a8c0@JISREGISTRATION.local>
	<43CFB95F.4080108@torchlake.com>
Message-ID: <004801c61d15$cb5630e0$6101a8c0@JISREGISTRATION.local>

Tina

...I'm just working off the basis that it was working fine before and you've 
made no changes to the code ...and the symptom is that when selecting a name 
from the combo, it now takes an inordinate amount of time for the process to 
complete ...from your post the problem would appear to be the list selection 
process rather than the command button ...and that implies that a table 
record may be corrupt or possibly an index ...if you've not changed the code 
I would look at the source data for the list first rather than your code 
...delete your indexes and reindex ...if that doesn't work bu your data, 
then empty the source table and fill a few records with dummy data to see if 
that fixes the problem ...then at least you'll know where to look.

...this is working on the assumption that you've already gone the compact, 
repair, and decompile routes without fixing it.

William

----- Original Message ----- 
From: "Tina Norris Fields" <tinanfields at torchlake.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 11:07 AM
Subject: Re: [AccessD] My form has a little problem


> Hello William,
>
> The row source for the combo box is:
> SELECT qselStudentName.StuID, qselStudentName.Name
> FROM qselStudentName
> ORDER BY qselStudentName.StuLname;
>
> The query qselStudentName looks like this:
> SELECT tblStudent.StuID, tblStudent.StuLname, tblStudent.StuFname,
> tblStudent!StuLname & ", " & tblStudent!StuFname AS Name
> FROM tblStudent;
>
> So, from the table tblStudent, I have selected the PK, last name and
> first name, and added a field called Name which chains together the last
> and first names - creating my query qselStudentName.  For the combo box
> I have selected the PK and the Name field, from my query and ordered the
> display by last name.  Do you see something here I have screwed up?
>
> Thanks for looking,
> Tina
>
> William Hindman wrote:
>
>>...sounds more like a problem with the table or query on which the combo 
>>is
>>based.
>>
>>William
>>
>>----- Original Message ----- 
>>From: "Tina Norris Fields" <tinanfields at torchlake.com>
>>To: <accessd at databaseadvisors.com>
>>Sent: Wednesday, January 18, 2006 6:11 PM
>>Subject: [AccessD] My form has a little problem
>>
>>
>>
>>
>>>Hi all,
>>>
>>>I have a form for either creating a new student profile, or editing an
>>>existing one.  To create a new profile, trhe user clicks a button that
>>>opens the student information form in add mode.  To edit an existing
>>>profile, the user selects the student's name from an unbound combo box,
>>>and then clicks the button to open the student information form for that
>>>student in edit mode.
>>>
>>>When I first made this little form, it all worked well, but it no longer
>>>works just right.  If I select a student's name from the combo box, and
>>>I try to click the button to open the student information fomr, the
>>>button does not get the focus - it does not respond.  If I wait around
>>>for a while, eventually the button will let me click it.  If I tab out
>>>of the combo box, the focus will shift to the the buttons in their
>>>established tab sequence.
>>>
>>>I remember there have been heated discussions on this list about unbound
>>>controls.  I am ready to learn - do I have a problem because I'm using
>>>an unbound control?
>>>
>>>This is what my button does when I can get it clicked:
>>>==========
>>>Private Sub cmdEditExistingStudentProfile_Click()
>>>On Error GoTo Err_cmdEditExistingStudentProfile_Click
>>>
>>>   Dim stDocName As String
>>>   Dim stLinkCriteria As String
>>>
>>>   stDocName = "frmStudentInformation"
>>>   stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>>>   DoCmd.OpenForm stDocName, , , stLinkCriteria
>>>
>>>Exit_cmdEditExistingStudentProfile_Click:
>>>   Exit Sub
>>>
>>>Err_cmdEditExistingStudentProfile_Click:
>>>   MsgBox Err.Description
>>>   Resume Exit_cmdEditExistingStudentProfile_Click
>>>
>>>End Sub
>>>===========
>>>
>>>Should I be adding an After Update event procedure to my unbound combo
>>>box - to set the focus on the button to get the student information form?
>>>
>>>Thanks for whatever lessons you will send my way.
>>>
>>>Tina
>>>
>>>-- 
>>>AccessD mailing list
>>>AccessD at databaseadvisors.com
>>>http://databaseadvisors.com/mailman/listinfo/accessd
>>>Website: http://www.databaseadvisors.com
>>>
>>>
>>>
>>
>>
>>
>>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From DWUTKA at marlow.com  Thu Jan 19 10:28:29 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Thu, 19 Jan 2006 10:28:29 -0600
Subject: [AccessD] Read External File for Path String
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD594@main2.marlow.com>

I do that all the time, though it's usually for my VB projects.  I create a
dbpath.dat file, and put it in the same folder as my .exe, so when I go to
connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



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


From tinanfields at torchlake.com  Thu Jan 19 10:35:31 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Thu, 19 Jan 2006 11:35:31 -0500
Subject: [AccessD] My form has a little problem
References: <43CECB09.90602@torchlake.com> <43CEF762.6020609@san.rr.com>
Message-ID: <43CFBFD3.5050002@torchlake.com>

Hi Rocky,

Thanks - that fixed it.  The simple generosity of spirit I find in this 
list always amazes and delights me.  

This next part of my message is OT and personal - but here goes, anyway. 
 A year ago, on January 29, my mother died - she had been dying for some 
long time, slowly, from a vascular demntia that robbed her of her 
ability to think and to act for herself.  We grieve the loss - the long 
term loss and the final loss - and grief is amazing in its ability to 
disrupt.  My father is also in bad shape, because of life-long habits 
that did him great harm, but also because two years ago he fell getting 
down from a speaker's platform - he had just presented an environmental 
excellence award and was descending steps that had no hand-rail.  The 
fall broke his right leg where it goes into the hip joint.  That had to 
be surgically repaired.  As he was convalescing, he had other things go 
wrong - a virulent infection we had a really hard time stopping, for 
example.  By July 12 it was clear something awful was happening - we 
thought it might be stroke - it turned out to be a subdural hematoma 
(blood clot on the brain) - actually two, but only one looked active to 
the neurosurgeon.  Craniotomy on July 14 to save his life.  Well, the 
second one gave us the next two emergencies August 3 and October 2. 
 Since then, he has worked on recovering his strength, learning to walk, 
learning to think, and becoming active again in his passion - clean 
water.  (And, he lost his wife, you may recall).  We have seen his 
valiant effort, and also witnessed his continuing intellectual decline. 
 It is heart-breaking, but also encouraging to see a man keep on trying. 
 Recently, his only sibling, my uncle, was diagnosed with kidney cancer 
- and we are all in the throes of doing the necessary - surgery to 
remove the diseased organ, strategy to heal enough to begin a medication 
regimen to help fight the cancer, which has, of course, metastisized to 
the lungs.  Now, we're struggling with the acculmulation of fluid in the 
pleural space around his lungs - and it looks as though we are  winning 
this round.  The whole family is cheering for him to fight back - and he 
does have a strong, cheerful, optimistic will to live.  I ache for these 
loved ones.  Any of you given to prayers - know that I welcome your 
prayers for my dad Jack Norris, and my uncle Brad Norris..

Thanks for everything,
Tina

Rocky Smolin - Beach Access Software wrote:

>"Should I be adding an After Update event procedure to my unbound combo 
>box - to set the focus on the button to get the student information form? "
>
>That's the first thing I'd try, Tina.
>
>Rocky Smolin
>Beach Access Software
>858-259-4334
>www.e-z-mrp.com
>
>Tina Norris Fields wrote:
>  
>
>>Hi all,
>>
>>I have a form for either creating a new student profile, or editing an 
>>existing one.  To create a new profile, the user clicks a button that 
>>opens the student information form in add mode.  To edit an existing 
>>profile, the user selects the student's name from an unbound combo box, 
>>and then clicks the button to open the student information form for that 
>>student in edit mode.
>>
>>When I first made this little form, it all worked well, but it no longer 
>>works just right.  If I select a student's name from the combo box, and 
>>I try to click the button to open the student information fomr, the 
>>button does not get the focus - it does not respond.  If I wait around 
>>for a while, eventually the button will let me click it.  If I tab out 
>>of the combo box, the focus will shift to the the buttons in their 
>>established tab sequence.  
>>
>>I remember there have been heated discussions on this list about unbound 
>>controls.  I am ready to learn - do I have a problem because I'm using 
>>an unbound control?  
>>
>>This is what my button does when I can get it clicked:
>>==========
>>Private Sub cmdEditExistingStudentProfile_Click()
>>On Error GoTo Err_cmdEditExistingStudentProfile_Click
>>
>>    Dim stDocName As String
>>    Dim stLinkCriteria As String
>>
>>    stDocName = "frmStudentInformation"
>>    stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>>    DoCmd.OpenForm stDocName, , , stLinkCriteria
>>
>>Exit_cmdEditExistingStudentProfile_Click:
>>    Exit Sub
>>
>>Err_cmdEditExistingStudentProfile_Click:
>>    MsgBox Err.Description
>>    Resume Exit_cmdEditExistingStudentProfile_Click
>>   
>>End Sub
>>===========
>>
>>Should I be adding an After Update event procedure to my unbound combo 
>>box - to set the focus on the button to get the student information form?
>>
>>Thanks for whatever lessons you will send my way.
>>
>>Tina
>>
>>  
>>    
>>
>
>  
>




From DWUTKA at marlow.com  Thu Jan 19 10:33:02 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Thu, 19 Jan 2006 10:33:02 -0600
Subject: [AccessD] Access security?
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD595@main2.marlow.com>

Yes, create a new .mdw.  Join it.  Create the Admin user using the same PIN
code.  Open Access, put in the Admin user name (the password will start
blank, but that is okay), and then open your database.  The .mdb only stores
what the account has permission too, not what the password or user name is.
It gets a 'hash', which is generated by the User Name and the PIN you put in
when you create the account.  So recreating it in another .mdw should work
just fine.

Drew

-----Original Message-----
From: Sad Der [mailto:accessd666 at yahoo.com]
Sent: Thursday, January 19, 2006 4:43 AM
To: Acces User Group
Subject: [AccessD] Access security?


Hi group,

Murphy came along, big time!! 

The administrator of an Access database I created back
in 2002 passed away and nobody knows anything about
the users/passwords stuff.

However in my documentation (!! I CREATED
DOCUMENTATION !! GO FIGURE) I saw that I written down
the adminuser + pincode!!!!!

Can I do anything with that?
I really need to get in.

Tia

Sander

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From DWUTKA at marlow.com  Thu Jan 19 10:33:48 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Thu, 19 Jan 2006 10:33:48 -0600
Subject: [AccessD] ...close open forms
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD596@main2.marlow.com>

Just curious, is this for the project with the Hidden Access functionality?

Drew

-----Original Message-----
From: William Hindman [mailto:wdhindman at bellsouth.net]
Sent: Thursday, January 19, 2006 6:32 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] ...close open forms


Gustav, Don, Lambert, Shamil, et al

...thanks to all who responded ...four different solutions all of which 
worked in different ways.
...why do I love AccessD? ...let me count the ways! :)

William

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 4:42 AM
Subject: Re: [AccessD] ...close open forms


> Hi William
>
> OK, then adjust to skip the last opened (the opening) form:
>
> ' Close all forms except the first and last opened form.
>  For lngF = Forms.Count - 2 To 1 Step -1
>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>  Next
>
> /gustav
>
>>>> wdhindman at bellsouth.net 18-01-2006 23:15:07 >>>
> Gustav
>
> ...thanks ...wish it was that easy ...it does what you say but not what I
> need :(
>
> ...probably didn't explain it well enough ...it happens :)
>
> ...two or more forms open including the switchboard ...need it to close
> everything BUT the swb AND the opening form.
>
> ...your code ...in the on open event of opening form ...closes all but the
> swb ...including the opening form.
>
> ...suggestions welcome.
>
> William
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Wednesday, January 18, 2006 9:22 AM
> Subject: Re: [AccessD] ...close open forms
>
>
>> Hi William
>>
>> How about:
>>
>>  ' Close all forms except this first opened form.
>>  For lngF = Forms.Count - 1 To 1 Step -1
>>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>>  Next
>>
>> /gustav
>>
>>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
>> ...I need to close any open forms ...other than designated forms ...and
>> save
>> their data ...before opening a called form ...from the called form.
>>
>> ...ie call a form open from a switchboard ...the called form checks for
>> any
>> other forms open, other than the sb, and closes them, saving their data,
>> before it opens.
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 


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


From DWUTKA at marlow.com  Thu Jan 19 10:35:31 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Thu, 19 Jan 2006 10:35:31 -0600
Subject: [AccessD] My form has a little problem
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD597@main2.marlow.com>

I'm curious, why have the combobox query a query, instead of simply
querrying the table?  That's an extra step...

Drew

-----Original Message-----
From: Tina Norris Fields [mailto:tinanfields at torchlake.com]
Sent: Thursday, January 19, 2006 10:08 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] My form has a little problem


Hello William,

The row source for the combo box is:
SELECT qselStudentName.StuID, qselStudentName.Name
FROM qselStudentName
ORDER BY qselStudentName.StuLname;

The query qselStudentName looks like this:
SELECT tblStudent.StuID, tblStudent.StuLname, tblStudent.StuFname, 
tblStudent!StuLname & ", " & tblStudent!StuFname AS Name
FROM tblStudent;

So, from the table tblStudent, I have selected the PK, last name and 
first name, and added a field called Name which chains together the last 
and first names - creating my query qselStudentName.  For the combo box 
I have selected the PK and the Name field, from my query and ordered the 
display by last name.  Do you see something here I have screwed up?

Thanks for looking,
Tina

William Hindman wrote:

>...sounds more like a problem with the table or query on which the combo is

>based.
>
>William
>
>----- Original Message ----- 
>From: "Tina Norris Fields" <tinanfields at torchlake.com>
>To: <accessd at databaseadvisors.com>
>Sent: Wednesday, January 18, 2006 6:11 PM
>Subject: [AccessD] My form has a little problem
>
>
>  
>
>>Hi all,
>>
>>I have a form for either creating a new student profile, or editing an
>>existing one.  To create a new profile, trhe user clicks a button that
>>opens the student information form in add mode.  To edit an existing
>>profile, the user selects the student's name from an unbound combo box,
>>and then clicks the button to open the student information form for that
>>student in edit mode.
>>
>>When I first made this little form, it all worked well, but it no longer
>>works just right.  If I select a student's name from the combo box, and
>>I try to click the button to open the student information fomr, the
>>button does not get the focus - it does not respond.  If I wait around
>>for a while, eventually the button will let me click it.  If I tab out
>>of the combo box, the focus will shift to the the buttons in their
>>established tab sequence.
>>
>>I remember there have been heated discussions on this list about unbound
>>controls.  I am ready to learn - do I have a problem because I'm using
>>an unbound control?
>>
>>This is what my button does when I can get it clicked:
>>==========
>>Private Sub cmdEditExistingStudentProfile_Click()
>>On Error GoTo Err_cmdEditExistingStudentProfile_Click
>>
>>   Dim stDocName As String
>>   Dim stLinkCriteria As String
>>
>>   stDocName = "frmStudentInformation"
>>   stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>>   DoCmd.OpenForm stDocName, , , stLinkCriteria
>>
>>Exit_cmdEditExistingStudentProfile_Click:
>>   Exit Sub
>>
>>Err_cmdEditExistingStudentProfile_Click:
>>   MsgBox Err.Description
>>   Resume Exit_cmdEditExistingStudentProfile_Click
>>
>>End Sub
>>===========
>>
>>Should I be adding an After Update event procedure to my unbound combo
>>box - to set the focus on the button to get the student information form?
>>
>>Thanks for whatever lessons you will send my way.
>>
>>Tina
>>
>>-- 
>>AccessD mailing list
>>AccessD at databaseadvisors.com
>>http://databaseadvisors.com/mailman/listinfo/accessd
>>Website: http://www.databaseadvisors.com
>>
>>    
>>
>
>
>  
>


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


From dwaters at usinternet.com  Thu Jan 19 10:44:52 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Thu, 19 Jan 2006 10:44:52 -0600
Subject: [AccessD] Read External File for Path String
In-Reply-To: <24486303.1137688620022.JavaMail.root@sniper22>
Message-ID: <000501c61d17$abe36e60$0200a8c0@danwaters>

Hi Drew!

I assume you can create the dbpath.dat file by starting with a text file?

What code do you use to read from the dbpath.dat file?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 10:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

I do that all the time, though it's usually for my VB projects.  I create a
dbpath.dat file, and put it in the same folder as my .exe, so when I go to
connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



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



From bchacc at san.rr.com  Thu Jan 19 10:54:41 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Thu, 19 Jan 2006 08:54:41 -0800
Subject: [AccessD] My form has a little problem
In-Reply-To: <43CFBFD3.5050002@torchlake.com>
References: <43CECB09.90602@torchlake.com> <43CEF762.6020609@san.rr.com>
	<43CFBFD3.5050002@torchlake.com>
Message-ID: <43CFC451.1010706@san.rr.com>

Tina:

I understand.  My father died two years ago.  But he was almost 88.  So 
he had a good run, but that doesn't make any difference in the 
difficulty of the process.  It wasn't quick for him, either.  couple of 
years of very bad health. 

We are contemporaries, I assume, so we see more and more of our friends 
are going through this. It's inevitable and unstoppable.  I guess we 
just have to accept it.  It's hard to see the people we love decline 
especially our parents.  We'll keep you in our thoughts and hope that 
there are some bright moments among the sadness.

Rocky


Tina Norris Fields wrote:
> Hi Rocky,
>
> Thanks - that fixed it.  The simple generosity of spirit I find in this 
> list always amazes and delights me.  
>
> This next part of my message is OT and personal - but here goes, anyway. 
>  A year ago, on January 29, my mother died - she had been dying for some 
> long time, slowly, from a vascular demntia that robbed her of her 
> ability to think and to act for herself.  We grieve the loss - the long 
> term loss and the final loss - and grief is amazing in its ability to 
> disrupt.  My father is also in bad shape, because of life-long habits 
> that did him great harm, but also because two years ago he fell getting 
> down from a speaker's platform - he had just presented an environmental 
> excellence award and was descending steps that had no hand-rail.  The 
> fall broke his right leg where it goes into the hip joint.  That had to 
> be surgically repaired.  As he was convalescing, he had other things go 
> wrong - a virulent infection we had a really hard time stopping, for 
> example.  By July 12 it was clear something awful was happening - we 
> thought it might be stroke - it turned out to be a subdural hematoma 
> (blood clot on the brain) - actually two, but only one looked active to 
> the neurosurgeon.  Craniotomy on July 14 to save his life.  Well, the 
> second one gave us the next two emergencies August 3 and October 2. 
>  Since then, he has worked on recovering his strength, learning to walk, 
> learning to think, and becoming active again in his passion - clean 
> water.  (And, he lost his wife, you may recall).  We have seen his 
> valiant effort, and also witnessed his continuing intellectual decline. 
>  It is heart-breaking, but also encouraging to see a man keep on trying. 
>  Recently, his only sibling, my uncle, was diagnosed with kidney cancer 
> - and we are all in the throes of doing the necessary - surgery to 
> remove the diseased organ, strategy to heal enough to begin a medication 
> regimen to help fight the cancer, which has, of course, metastisized to 
> the lungs.  Now, we're struggling with the acculmulation of fluid in the 
> pleural space around his lungs - and it looks as though we are  winning 
> this round.  The whole family is cheering for him to fight back - and he 
> does have a strong, cheerful, optimistic will to live.  I ache for these 
> loved ones.  Any of you given to prayers - know that I welcome your 
> prayers for my dad Jack Norris, and my uncle Brad Norris..
>
> Thanks for everything,
> Tina
>
> Rocky Smolin - Beach Access Software wrote:
>
>   
>> "Should I be adding an After Update event procedure to my unbound combo 
>> box - to set the focus on the button to get the student information form? "
>>
>> That's the first thing I'd try, Tina.
>>
>> Rocky Smolin
>> Beach Access Software
>> 858-259-4334
>> www.e-z-mrp.com
>>
>> Tina Norris Fields wrote:
>>  
>>
>>     
>>> Hi all,
>>>
>>> I have a form for either creating a new student profile, or editing an 
>>> existing one.  To create a new profile, the user clicks a button that 
>>> opens the student information form in add mode.  To edit an existing 
>>> profile, the user selects the student's name from an unbound combo box, 
>>> and then clicks the button to open the student information form for that 
>>> student in edit mode.
>>>
>>> When I first made this little form, it all worked well, but it no longer 
>>> works just right.  If I select a student's name from the combo box, and 
>>> I try to click the button to open the student information fomr, the 
>>> button does not get the focus - it does not respond.  If I wait around 
>>> for a while, eventually the button will let me click it.  If I tab out 
>>> of the combo box, the focus will shift to the the buttons in their 
>>> established tab sequence.  
>>>
>>> I remember there have been heated discussions on this list about unbound 
>>> controls.  I am ready to learn - do I have a problem because I'm using 
>>> an unbound control?  
>>>
>>> This is what my button does when I can get it clicked:
>>> ==========
>>> Private Sub cmdEditExistingStudentProfile_Click()
>>> On Error GoTo Err_cmdEditExistingStudentProfile_Click
>>>
>>>    Dim stDocName As String
>>>    Dim stLinkCriteria As String
>>>
>>>    stDocName = "frmStudentInformation"
>>>    stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>>>    DoCmd.OpenForm stDocName, , , stLinkCriteria
>>>
>>> Exit_cmdEditExistingStudentProfile_Click:
>>>    Exit Sub
>>>
>>> Err_cmdEditExistingStudentProfile_Click:
>>>    MsgBox Err.Description
>>>    Resume Exit_cmdEditExistingStudentProfile_Click
>>>   
>>> End Sub
>>> ===========
>>>
>>> Should I be adding an After Update event procedure to my unbound combo 
>>> box - to set the focus on the button to get the student information form?
>>>
>>> Thanks for whatever lessons you will send my way.
>>>
>>> Tina
>>>
>>>  
>>>    
>>>
>>>       
>>  
>>
>>     
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From jwcolby at ColbyConsulting.com  Thu Jan 19 11:14:42 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 19 Jan 2006 12:14:42 -0500
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <005101c61d1b$d7467800$647aa8c0@ColbyM6805>

Does anyone know the syntax in an SQL statement for seeing a named range in
an excel spreadsheet?

I have a spreadsheet DocumentRequestTemplate.xls, which has a sheet
xlsReqForDocuments which has a named range Sec_DocWithHdr, Sec_DocNoHdr etc.

I assume that the syntax would look something like 

SELECT * from SEC_DocWithHdr IN DocumentRequestTemplate.xls

Doing this gets me "unrecognized database format" however.

Anyone know what the real answer is?

John W. Colby
www.ColbyConsulting.com 




From artful at rogers.com  Thu Jan 19 11:20:44 2006
From: artful at rogers.com (Arthur Fuller)
Date: Thu, 19 Jan 2006 12:20:44 -0500
Subject: [AccessD] Default font for forms etc.
Message-ID: <097801c61d1c$ae5650e0$8e01a8c0@rock>

Where can I instruct Access to change the default font from Arial 8 to Arial
10 (or something else)? I have wandered through the Options dialog and
cannot find this setting. I have need to change this to Arial 10 at least
and have it affect every form I create.
TIA,
Arthur
 




From Donald.A.McGillivray at sprint.com  Thu Jan 19 11:27:57 2006
From: Donald.A.McGillivray at sprint.com (Mcgillivray, Don [IT])
Date: Thu, 19 Jan 2006 11:27:57 -0600
Subject: [AccessD] Scheduling Application - Changing Sort Order
	ofIndividual Items
Message-ID: <EC829B33DF5B5B48A956B7A2E894AA9A03F994EC@PLSWB06C.ad.sprint.com>

Larry,

I have something that may get you where you need to go.  I'm sure that by the standards of many listers it's a bit kludgey, but it works in the context where I need it.  I can send you a small sample DB off list with a couple of tables and a form that demonstrates my solution.

Don

-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lawrence Mrazek
Sent: Thursday, January 19, 2006 7:50 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Scheduling Application - Changing Sort Order ofIndividual Items

Hi:

I'm in the process of adapting a scheduling program for a manufacturer to Access (they currently do this in Excel).

Basically, the application will have a list of products on a form, and the user must be able to move the individual products up and down in the sort order via drag and drop or button click. Is this possible in Access?

ProductName?????????Scheduled Order
Widget 1????????????????1st
Widget 3????????????????2nd
Widget 5????????????????3rd
Widget 8????????????????4th

For example, I need to be able to quickly move Widget 8 to 2nd, and have Widget 3 and Widget 5 automatically slide down to 3rd and 4th respectively.

Thanks in advance.

Larry Mrazek
lmrazek at lcm-res.com
http://www.lcm-res.com/

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




From jmhecht at earthlink.net  Thu Jan 19 11:29:56 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 19 Jan 2006 09:29:56 -0800
Subject: [AccessD] Default font for forms etc.
In-Reply-To: <097801c61d1c$ae5650e0$8e01a8c0@rock>
Message-ID: <001401c61d1d$f79fcd20$6701a8c0@HPLaptop>

Arthur,

I do not recall how to get to it but you are looking for
information on "Normal Form" Edit that to your needs and
save it.

All new forms are based on this.  Same for reports.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Arthur Fuller
Sent: Thursday, January 19, 2006 9:21 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Default font for forms etc.

Where can I instruct Access to change the default font from
Arial 8 to Arial
10 (or something else)? I have wandered through the Options
dialog and
cannot find this setting. I have need to change this to
Arial 10 at least
and have it affect every form I create.
TIA,
Arthur
 


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



From Gustav at cactus.dk  Thu Jan 19 11:44:06 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 19 Jan 2006 18:44:06 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3cfde07.077@cactus.dk>

Hi John

You miss the Excel header. Two options exist:

 SELECT
    NameOfField1,
    NameOfField2
  FROM
    [Range] AS T IN '' [Excel 5.0;DATABASE=c:\windows\temp\some.xls;];

In the second syntax the trick is the brackets. They can be omitted in this example but are mandatory if you deal with filenames containing spaces.

This should be changed to:

  SELECT
    NameOfFiels1,
    NameOfField2
  FROM
    [Excel 5.0;DATABASE=c:\windows\temp\some.xls;HDR=YES].[Range] AS T;


>>> jwcolby at ColbyConsulting.com 19-01-2006 18:14:42 >>>
Does anyone know the syntax in an SQL statement for seeing a named range in
an excel spreadsheet?

I have a spreadsheet DocumentRequestTemplate.xls, which has a sheet
xlsReqForDocuments which has a named range Sec_DocWithHdr, Sec_DocNoHdr etc.

I assume that the syntax would look something like 

SELECT * from SEC_DocWithHdr IN DocumentRequestTemplate.xls

Doing this gets me "unrecognized database format" however.

Anyone know what the real answer is?

John W. Colby
www.ColbyConsulting.com 




From accessd at shaw.ca  Thu Jan 19 11:43:55 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Thu, 19 Jan 2006 09:43:55 -0800
Subject: [AccessD] Source Code Control
In-Reply-To: <003901c61cfa$cbae7e50$6501a8c0@fincomplex.spb.ru>
Message-ID: <000c01c61d1f$eb776560$017ba8c0@xpserver>

Hi Shamil:

I do not know. I went to an intro session on the product and after an hour
of listening to the apps features and capabilities I realized it was far
beyond anything I or small (medium?) company would ever need so did not
investigate it further. (I have a full unlimited legal copy of TeamServer
but would have to re-build my server to get it installed, so there it sits.)

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
Salakhetdinov
Sent: January 19, 2006 5:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Source Code Control

Hi Jim,

And TeamServer uses VSS Server - Yes/No?

Shamil

----- Original Message ----- 
From: "Jim Lawrence" <accessd at shaw.ca>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 3:11 PM
Subject: Re: [AccessD] Source Code Control


> Hi Shamil:
>
> MS uses TeamServer for all their projects.
>
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> Salakhetdinov
> Sent: January 18, 2006 11:57 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Source Code Control
>
> > I mean, honestly, it works for a little side project
> Josh,
>
> I guess MS uses VSS by themselves ...
>
> I did use VSS in a huge MSVC++ project of my colleague with thouzands of
> source files and a half of a hundred projects - it worked well, no
problems
> at all...
>
> I think most of the "horror stories" about VSS are in the past now.
>
> Yes, I liked SubVersion for the features you describe and because it's
open
> source...
>
> If there is no need in these SubVersion features then VSS looks good
enough
> and stable.
>
> Shamil
>
> ----- Original Message ----- 
> From: "Josh McFarlane" <darsant at gmail.com>
> To: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 19, 2006 7:22 AM
> Subject: Re: [AccessD] Source Code Control
>
>
> > On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> > > I haven't used SourceSafe in Access personally, only C++ projects. I
> > > find it interesting that they've worked out code to diff Access DBs,
> > > but cannot make it compatible with Word for diffing.
> > >
> > > Granted, everything can be corrupt, but source-safe has a very very
> > > bad track record with corruption, even on simple things. I can't find
> > > the link now, but once I hit my work computer I'll post it.
> > >
> > > When it's all said and done, I still prefer a stability and safety
> > > over easy integration with Office / Visual Studio.
> >
> > OK, looked a little more into this, and supposedly if you run their
> > analyze.exe tool at least weekly, it will drastically reduce the
> > "fail" corruption rate (as it fixes the small corruptions before they
> > propigate).
> >
> > Some other interesting things that I hadn't heard before:
> >
> > Large binary files often had to have their version history cleared with
> 3.1
> >
> > File locks were frequently left behind and had to be manually removed.
> >
> > Then there's the dreaded \data\a\aaaaaaaa.a error message that
> > everyone seems to end up dealing with (For some reason, I swear there
> > was a KB article dealing with all the possible ways this could pop up,
> > but I can't find it)
> >
> > Also, if you delete a file, and then later recreate a file with the
> > same name, the previous file history is gone forever (You can't check
> > out previous complete builds anymore)
> >
> > I mean, honestly, it works for a little side project, but for anything
> > a business is depending on, I don't trust my weight on it when there's
> > free open-source products out there that do much much better in terms
> > of both reliability and interface.
> >
> > --
> > Josh McFarlane
> >
> > "Peace cannot be kept by force. It can only be achieved by
understanding."
> > -Albert Einstein
> > -- 

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



From accessd at shaw.ca  Thu Jan 19 11:59:06 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Thu, 19 Jan 2006 09:59:06 -0800
Subject: [AccessD] My form has a little problem
In-Reply-To: <43CFBFD3.5050002@torchlake.com>
Message-ID: <000d01c61d22$0a619a20$017ba8c0@xpserver>

Tina:

My prayers go out to you.... I know where you are coming from having lost
two parents, a father-in-law, an aunt, an uncle and three close friends in
quick secession (a warning to you fanatic programmers out there to lay off
the all-nighters, coke, coffee, potato chips and smokes). These will be very
tough times for you and five years seems like yesterday,

Best Regards
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tina Norris
Fields
Sent: January 19, 2006 8:36 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] My form has a little problem

Hi Rocky,

Thanks - that fixed it.  The simple generosity of spirit I find in this 
list always amazes and delights me.  

This next part of my message is OT and personal - but here goes, anyway. 
 A year ago, on January 29, my mother died - she had been dying for some 
long time, slowly, from a vascular demntia that robbed her of her 
ability to think and to act for herself.  We grieve the loss - the long 
term loss and the final loss - and grief is amazing in its ability to 
disrupt.  My father is also in bad shape, because of life-long habits 
that did him great harm, but also because two years ago he fell getting 
down from a speaker's platform - he had just presented an environmental 
excellence award and was descending steps that had no hand-rail.  The 
fall broke his right leg where it goes into the hip joint.  That had to 
be surgically repaired.  As he was convalescing, he had other things go 
wrong - a virulent infection we had a really hard time stopping, for 
example.  By July 12 it was clear something awful was happening - we 
thought it might be stroke - it turned out to be a subdural hematoma 
(blood clot on the brain) - actually two, but only one looked active to 
the neurosurgeon.  Craniotomy on July 14 to save his life.  Well, the 
second one gave us the next two emergencies August 3 and October 2. 
 Since then, he has worked on recovering his strength, learning to walk, 
learning to think, and becoming active again in his passion - clean 
water.  (And, he lost his wife, you may recall).  We have seen his 
valiant effort, and also witnessed his continuing intellectual decline. 
 It is heart-breaking, but also encouraging to see a man keep on trying. 
 Recently, his only sibling, my uncle, was diagnosed with kidney cancer 
- and we are all in the throes of doing the necessary - surgery to 
remove the diseased organ, strategy to heal enough to begin a medication 
regimen to help fight the cancer, which has, of course, metastisized to 
the lungs.  Now, we're struggling with the acculmulation of fluid in the 
pleural space around his lungs - and it looks as though we are  winning 
this round.  The whole family is cheering for him to fight back - and he 
does have a strong, cheerful, optimistic will to live.  I ache for these 
loved ones.  Any of you given to prayers - know that I welcome your 
prayers for my dad Jack Norris, and my uncle Brad Norris..

Thanks for everything,
Tina

Rocky Smolin - Beach Access Software wrote:

>"Should I be adding an After Update event procedure to my unbound combo 
>box - to set the focus on the button to get the student information form? "
>
>That's the first thing I'd try, Tina.
>
>Rocky Smolin
>Beach Access Software
>858-259-4334
>www.e-z-mrp.com
>
>Tina Norris Fields wrote:
>  
>
>>Hi all,
>>
>>I have a form for either creating a new student profile, or editing an 
>>existing one.  To create a new profile, the user clicks a button that 
>>opens the student information form in add mode.  To edit an existing 
>>profile, the user selects the student's name from an unbound combo box, 
>>and then clicks the button to open the student information form for that 
>>student in edit mode.
>>
>>When I first made this little form, it all worked well, but it no longer 
>>works just right.  If I select a student's name from the combo box, and 
>>I try to click the button to open the student information fomr, the 
>>button does not get the focus - it does not respond.  If I wait around 
>>for a while, eventually the button will let me click it.  If I tab out 
>>of the combo box, the focus will shift to the the buttons in their 
>>established tab sequence.  
>>
>>I remember there have been heated discussions on this list about unbound 
>>controls.  I am ready to learn - do I have a problem because I'm using 
>>an unbound control?  
>>
>>This is what my button does when I can get it clicked:
>>==========
>>Private Sub cmdEditExistingStudentProfile_Click()
>>On Error GoTo Err_cmdEditExistingStudentProfile_Click
>>
>>    Dim stDocName As String
>>    Dim stLinkCriteria As String
>>
>>    stDocName = "frmStudentInformation"
>>    stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
>>    DoCmd.OpenForm stDocName, , , stLinkCriteria
>>
>>Exit_cmdEditExistingStudentProfile_Click:
>>    Exit Sub
>>
>>Err_cmdEditExistingStudentProfile_Click:
>>    MsgBox Err.Description
>>    Resume Exit_cmdEditExistingStudentProfile_Click
>>   
>>End Sub
>>===========
>>
>>Should I be adding an After Update event procedure to my unbound combo 
>>box - to set the focus on the button to get the student information form?
>>
>>Thanks for whatever lessons you will send my way.
>>
>>Tina
>>
>>  
>>    
>>
>
>  
>


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



From jwelz at hotmail.com  Thu Jan 19 12:14:21 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Thu, 19 Jan 2006 11:14:21 -0700
Subject: [AccessD] My form has a little problem
In-Reply-To: <43CFB95F.4080108@torchlake.com>
Message-ID: <BAY113-F6AFA8EDCE0EE11716125BA11C0@phx.gbl>

Your alias 'Name' for the concatenated fields in the query is questionable 
practice that may lead to unpredictable results.



Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: Tina Norris Fields <tinanfields at torchlake.com>
>
>Hello William,
>
>The row source for the combo box is:
>SELECT qselStudentName.StuID, qselStudentName.Name
>FROM qselStudentName
>ORDER BY qselStudentName.StuLname;
>
>The query qselStudentName looks like this:
>SELECT tblStudent.StuID, tblStudent.StuLname, tblStudent.StuFname,
>tblStudent!StuLname & ", " & tblStudent!StuFname AS Name
>FROM tblStudent;
>
>So, from the table tblStudent, I have selected the PK, last name and
>first name, and added a field called Name which chains together the last
>and first names - creating my query qselStudentName.  For the combo box
>I have selected the PK and the Name field, from my query and ordered the
>display by last name.  Do you see something here I have screwed up?
>
>Thanks for looking,
>Tina
>
>William Hindman wrote:
>
> >...sounds more like a problem with the table or query on which the combo 
>is
> >based.
> >
> >William
> >
> >----- Original Message -----
> >From: "Tina Norris Fields" <tinanfields at torchlake.com>
> >To: <accessd at databaseadvisors.com>
> >Sent: Wednesday, January 18, 2006 6:11 PM
> >Subject: [AccessD] My form has a little problem
> >
> >
> >
> >
> >>Hi all,
> >>
> >>I have a form for either creating a new student profile, or editing an
> >>existing one.  To create a new profile, trhe user clicks a button that
> >>opens the student information form in add mode.  To edit an existing
> >>profile, the user selects the student's name from an unbound combo box,
> >>and then clicks the button to open the student information form for that
> >>student in edit mode.
> >>
> >>When I first made this little form, it all worked well, but it no longer
> >>works just right.  If I select a student's name from the combo box, and
> >>I try to click the button to open the student information fomr, the
> >>button does not get the focus - it does not respond.  If I wait around
> >>for a while, eventually the button will let me click it.  If I tab out
> >>of the combo box, the focus will shift to the the buttons in their
> >>established tab sequence.
> >>
> >>I remember there have been heated discussions on this list about unbound
> >>controls.  I am ready to learn - do I have a problem because I'm using
> >>an unbound control?
> >>
> >>This is what my button does when I can get it clicked:
> >>==========
> >>Private Sub cmdEditExistingStudentProfile_Click()
> >>On Error GoTo Err_cmdEditExistingStudentProfile_Click
> >>
> >>   Dim stDocName As String
> >>   Dim stLinkCriteria As String
> >>
> >>   stDocName = "frmStudentInformation"
> >>   stLinkCriteria = "[StuID]=" & Me![cboFindStudent]
> >>   DoCmd.OpenForm stDocName, , , stLinkCriteria
> >>
> >>Exit_cmdEditExistingStudentProfile_Click:
> >>   Exit Sub
> >>
> >>Err_cmdEditExistingStudentProfile_Click:
> >>   MsgBox Err.Description
> >>   Resume Exit_cmdEditExistingStudentProfile_Click
> >>
> >>End Sub
> >>===========
> >>
> >>Should I be adding an After Update event procedure to my unbound combo
> >>box - to set the focus on the button to get the student information 
>form?
> >>
> >>Thanks for whatever lessons you will send my way.
> >>
> >>Tina




From DWUTKA at marlow.com  Thu Jan 19 12:12:58 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Thu, 19 Jan 2006 12:12:58 -0600
Subject: [AccessD] Read External File for Path String
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD59C@main2.marlow.com>

Dim f as Long
dim strTemp as string
f=freefile
Open App.Path & "\dbpath.dat" for binary access read as f
strtemp=space(lof(f))
get f,,strtemp
close f


Now strTemp is the contents of dbpath.dat

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 10:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Hi Drew!

I assume you can create the dbpath.dat file by starting with a text file?

What code do you use to read from the dbpath.dat file?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 10:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

I do that all the time, though it's usually for my VB projects.  I create a
dbpath.dat file, and put it in the same folder as my .exe, so when I go to
connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



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

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


From jwcolby at ColbyConsulting.com  Thu Jan 19 12:33:21 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 19 Jan 2006 13:33:21 -0500
Subject: [AccessD] Syntax for seeing named range in excel
In-Reply-To: <s3cfde07.077@cactus.dk>
Message-ID: <005901c61d26$d38ffeb0$647aa8c0@ColbyM6805>

Gustav,

Which is why you're one of my heroes.

Syntax 2 works, I couldn't get syntax one to work, though now I might be
able to.

The final SQL (after Access rearranged it) was:

"SELECT ['T'].Section, ['T'].DocName, ['T'].EFA, ['T'].PCDT, ['T'].DSL,
['T'].CRF, ['T'].[UseDocNo] FROM [Excel
5.0;DATABASE=X:\DocumentRequestTemplate.xls].SecDocWithHdr AS ['T'];" 

I was wondering what the heck T was for until I saw the rearranged version.

Thanks again.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 19, 2006 12:44 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

You miss the Excel header. Two options exist:

 SELECT
    NameOfField1,
    NameOfField2
  FROM
    [Range] AS T IN '' [Excel 5.0;DATABASE=c:\windows\temp\some.xls;];

In the second syntax the trick is the brackets. They can be omitted in this
example but are mandatory if you deal with filenames containing spaces.

This should be changed to:

  SELECT
    NameOfFiels1,
    NameOfField2
  FROM
    [Excel 5.0;DATABASE=c:\windows\temp\some.xls;HDR=YES].[Range] AS T;


>>> jwcolby at ColbyConsulting.com 19-01-2006 18:14:42 >>>
Does anyone know the syntax in an SQL statement for seeing a named range in
an excel spreadsheet?

I have a spreadsheet DocumentRequestTemplate.xls, which has a sheet
xlsReqForDocuments which has a named range Sec_DocWithHdr, Sec_DocNoHdr etc.

I assume that the syntax would look something like 

SELECT * from SEC_DocWithHdr IN DocumentRequestTemplate.xls

Doing this gets me "unrecognized database format" however.

Anyone know what the real answer is?

John W. Colby
www.ColbyConsulting.com 


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



From martyconnelly at shaw.ca  Thu Jan 19 12:39:34 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Thu, 19 Jan 2006 10:39:34 -0800
Subject: [AccessD] Scheduling Application - Changing Sort
	Order	ofIndividual Items
References: <EC829B33DF5B5B48A956B7A2E894AA9A03F994EC@PLSWB06C.ad.sprint.com>
Message-ID: <43CFDCE6.3010502@shaw.ca>

This Drag and Drop method should get you halfway there
http://support.microsoft.com/kb/287642/en-us

see also in frmsmp97.mdb
Simulating Drag n Drop Form --- Example 2 form

ACC97: Microsoft Access 97 Sample Forms Available in Download Center
http://support.microsoft.com/?scid=http%3a%2f%2fwww.support.microsoft.com%2fkb%2f175066%2fen-us%2f

Mcgillivray, Don [IT] wrote:

>Larry,
>
>I have something that may get you where you need to go.  I'm sure that by the standards of many listers it's a bit kludgey, but it works in the context where I need it.  I can send you a small sample DB off list with a couple of tables and a form that demonstrates my solution.
>
>Don
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lawrence Mrazek
>Sent: Thursday, January 19, 2006 7:50 AM
>To: accessd at databaseadvisors.com
>Subject: [AccessD] Scheduling Application - Changing Sort Order ofIndividual Items
>
>Hi:
>
>I'm in the process of adapting a scheduling program for a manufacturer to Access (they currently do this in Excel).
>
>Basically, the application will have a list of products on a form, and the user must be able to move the individual products up and down in the sort order via drag and drop or button click. Is this possible in Access?
>
>ProductName         Scheduled Order
>Widget 1                1st
>Widget 3                2nd
>Widget 5                3rd
>Widget 8                4th
>
>For example, I need to be able to quickly move Widget 8 to 2nd, and have Widget 3 and Widget 5 automatically slide down to 3rd and 4th respectively.
>
>Thanks in advance.
>
>Larry Mrazek
>lmrazek at lcm-res.com
>http://www.lcm-res.com/
>
> 
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From martyconnelly at shaw.ca  Thu Jan 19 12:44:36 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Thu, 19 Jan 2006 10:44:36 -0800
Subject: [AccessD] Scheduling Application - Changing Sort
	Order	ofIndividual Items
References: <EC829B33DF5B5B48A956B7A2E894AA9A03F994EC@PLSWB06C.ad.sprint.com>
Message-ID: <43CFDE14.8060406@shaw.ca>

Ahh I knew I had seen a $25 solution from Peter's Software it also 
handles sort reordering
http://www.peterssoftware.com/dd.htm


Mcgillivray, Don [IT] wrote:

>Larry,
>
>I have something that may get you where you need to go.  I'm sure that by the standards of many listers it's a bit kludgey, but it works in the context where I need it.  I can send you a small sample DB off list with a couple of tables and a form that demonstrates my solution.
>
>Don
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Lawrence Mrazek
>Sent: Thursday, January 19, 2006 7:50 AM
>To: accessd at databaseadvisors.com
>Subject: [AccessD] Scheduling Application - Changing Sort Order ofIndividual Items
>
>Hi:
>
>I'm in the process of adapting a scheduling program for a manufacturer to Access (they currently do this in Excel).
>
>Basically, the application will have a list of products on a form, and the user must be able to move the individual products up and down in the sort order via drag and drop or button click. Is this possible in Access?
>
>ProductName         Scheduled Order
>Widget 1                1st
>Widget 3                2nd
>Widget 5                3rd
>Widget 8                4th
>
>For example, I need to be able to quickly move Widget 8 to 2nd, and have Widget 3 and Widget 5 automatically slide down to 3rd and 4th respectively.
>
>Thanks in advance.
>
>Larry Mrazek
>lmrazek at lcm-res.com
>http://www.lcm-res.com/
>
> 
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From shamil at users.mns.ru  Thu Jan 19 12:53:13 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Thu, 19 Jan 2006 21:53:13 +0300
Subject: [AccessD] Source Code Control
References: <000c01c61d1f$eb776560$017ba8c0@xpserver>
Message-ID: <007e01c61d29$9c193480$6501a8c0@fincomplex.spb.ru>

OK, I did check the Source Control options for VS.NET 2005 - there are at
least two proposed by MS:

1. "Good" old VSS - it's improved, has remote Web access and it's called
VSS2005 now - relatively inexpensive option.
2. TeamSystem SS based on MS SQL - usd5000 per seat license cost(!?).

http://msdn.microsoft.com/vstudio/previous/ssafe/default.aspx?pull=/library/en-us/dnvsent/html/vssmap.asp

http://dotnetjunkies.com/WebLog/kenbrubaker/archive/2004/06/18/vss2005.aspx

http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=150514&SiteID=1

Shamil

----- Original Message ----- 
From: "Jim Lawrence" <accessd at shaw.ca>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 8:43 PM
Subject: Re: [AccessD] Source Code Control


> Hi Shamil:
>
> I do not know. I went to an intro session on the product and after an hour
> of listening to the apps features and capabilities I realized it was far
> beyond anything I or small (medium?) company would ever need so did not
> investigate it further. (I have a full unlimited legal copy of TeamServer
> but would have to re-build my server to get it installed, so there it
sits.)
>
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> Salakhetdinov
> Sent: January 19, 2006 5:18 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Source Code Control
>
> Hi Jim,
>
> And TeamServer uses VSS Server - Yes/No?
>
> Shamil
>
> ----- Original Message ----- 
> From: "Jim Lawrence" <accessd at shaw.ca>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Sent: Thursday, January 19, 2006 3:11 PM
> Subject: Re: [AccessD] Source Code Control
>
>
> > Hi Shamil:
> >
> > MS uses TeamServer for all their projects.
> >
> > Jim
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Shamil
> > Salakhetdinov
> > Sent: January 18, 2006 11:57 PM
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] Source Code Control
> >
> > > I mean, honestly, it works for a little side project
> > Josh,
> >
> > I guess MS uses VSS by themselves ...
> >
> > I did use VSS in a huge MSVC++ project of my colleague with thouzands of
> > source files and a half of a hundred projects - it worked well, no
> problems
> > at all...
> >
> > I think most of the "horror stories" about VSS are in the past now.
> >
> > Yes, I liked SubVersion for the features you describe and because it's
> open
> > source...
> >
> > If there is no need in these SubVersion features then VSS looks good
> enough
> > and stable.
> >
> > Shamil
> >
> > ----- Original Message ----- 
> > From: "Josh McFarlane" <darsant at gmail.com>
> > To: "Access Developers discussion and problem solving"
> > <accessd at databaseadvisors.com>
> > Sent: Thursday, January 19, 2006 7:22 AM
> > Subject: Re: [AccessD] Source Code Control
> >
> >
> > > On 1/17/06, Josh McFarlane <darsant at gmail.com> wrote:
> > > > I haven't used SourceSafe in Access personally, only C++ projects. I
> > > > find it interesting that they've worked out code to diff Access DBs,
> > > > but cannot make it compatible with Word for diffing.
> > > >
> > > > Granted, everything can be corrupt, but source-safe has a very very
> > > > bad track record with corruption, even on simple things. I can't
find
> > > > the link now, but once I hit my work computer I'll post it.
> > > >
> > > > When it's all said and done, I still prefer a stability and safety
> > > > over easy integration with Office / Visual Studio.
> > >
> > > OK, looked a little more into this, and supposedly if you run their
> > > analyze.exe tool at least weekly, it will drastically reduce the
> > > "fail" corruption rate (as it fixes the small corruptions before they
> > > propigate).
> > >
> > > Some other interesting things that I hadn't heard before:
> > >
> > > Large binary files often had to have their version history cleared
with
> > 3.1
> > >
> > > File locks were frequently left behind and had to be manually removed.
> > >
> > > Then there's the dreaded \data\a\aaaaaaaa.a error message that
> > > everyone seems to end up dealing with (For some reason, I swear there
> > > was a KB article dealing with all the possible ways this could pop up,
> > > but I can't find it)
> > >
> > > Also, if you delete a file, and then later recreate a file with the
> > > same name, the previous file history is gone forever (You can't check
> > > out previous complete builds anymore)
> > >
> > > I mean, honestly, it works for a little side project, but for anything
> > > a business is depending on, I don't trust my weight on it when there's
> > > free open-source products out there that do much much better in terms
> > > of both reliability and interface.
> > >
> > > --
> > > Josh McFarlane
> > >
> > > "Peace cannot be kept by force. It can only be achieved by
> understanding."
> > > -Albert Einstein
> > > -- 
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From jwcolby at ColbyConsulting.com  Thu Jan 19 12:53:42 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 19 Jan 2006 13:53:42 -0500
Subject: [AccessD] Syntax for seeing named range in excel
In-Reply-To: <s3cfde07.077@cactus.dk>
Message-ID: <005a01c61d29$ab5cfb20$647aa8c0@ColbyM6805>

OK oh hero, now is it possible to update the named range through a query?  I
tried saving the working select query, then opening that and modifying the
data but that definitely does not work.  Is this part of the "patent
lawsuit" changes or am I just doing something wrong?  

If a "Update" syntax would work that would be fine.  I am running code
anyway, not manually updating the data as I was trying to do in the test
above.

As I mentioned, I have a template with the named ranges all set up.  I would
like to be able to update that spreadsheet (append data into it) rather than
have to build up a new spreadsheet.  I can create the spreadsheet but then I
would need the syntax to create named ranges so I can get the data later -
using the syntax I just got from you.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 19, 2006 12:44 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

You miss the Excel header. Two options exist:

 SELECT
    NameOfField1,
    NameOfField2
  FROM
    [Range] AS T IN '' [Excel 5.0;DATABASE=c:\windows\temp\some.xls;];

In the second syntax the trick is the brackets. They can be omitted in this
example but are mandatory if you deal with filenames containing spaces.

This should be changed to:

  SELECT
    NameOfFiels1,
    NameOfField2
  FROM
    [Excel 5.0;DATABASE=c:\windows\temp\some.xls;HDR=YES].[Range] AS T;


>>> jwcolby at ColbyConsulting.com 19-01-2006 18:14:42 >>>
Does anyone know the syntax in an SQL statement for seeing a named range in
an excel spreadsheet?

I have a spreadsheet DocumentRequestTemplate.xls, which has a sheet
xlsReqForDocuments which has a named range Sec_DocWithHdr, Sec_DocNoHdr etc.

I assume that the syntax would look something like 

SELECT * from SEC_DocWithHdr IN DocumentRequestTemplate.xls

Doing this gets me "unrecognized database format" however.

Anyone know what the real answer is?

John W. Colby
www.ColbyConsulting.com 


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



From dwaters at usinternet.com  Thu Jan 19 13:11:40 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Thu, 19 Jan 2006 13:11:40 -0600
Subject: [AccessD] Read External File for Path String
In-Reply-To: <31110973.1137695784521.JavaMail.root@sniper38>
Message-ID: <000b01c61d2c$2e114c90$0200a8c0@danwaters>

Thanks to everyone who responded to this post.  In less than a day, I have
multiple ways to skin this cat!

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 12:13 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

Dim f as Long
dim strTemp as string
f=freefile
Open App.Path & "\dbpath.dat" for binary access read as f
strtemp=space(lof(f))
get f,,strtemp
close f


Now strTemp is the contents of dbpath.dat

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 10:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Hi Drew!

I assume you can create the dbpath.dat file by starting with a text file?

What code do you use to read from the dbpath.dat file?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 10:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

I do that all the time, though it's usually for my VB projects.  I create a
dbpath.dat file, and put it in the same folder as my .exe, so when I go to
connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



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

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



From andy at minstersystems.co.uk  Thu Jan 19 13:25:51 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Thu, 19 Jan 2006 19:25:51 -0000
Subject: [AccessD] Default font for forms etc.
In-Reply-To: <097801c61d1c$ae5650e0$8e01a8c0@rock>
Message-ID: <007001c61d2e$28e168c0$851c0c54@minster33c3r25>

Arthur
There may be other ways but the way I know is this.

1.First create a blank form called 'normal'.
2.Open 'normal' in design view, and make sure the Toolbox is in view
3.Also make sure you have the Properties dialog set to display for whatever
you're on
4.Highlight each of the items in the toolbox. As you highlight each one the
Properties dialog will show for it, and be called something like 'Default
label', 'Default textbox' and so on. This is where you alter the defaults
for each, changing fonts etc. 
5.Save the form

Create a new form and it should work.

Note though that this will not affect any existing forms. They will have
their own 'Default text' and so on. These can be changed as above but only
affect that form.

HTH

-- Andy Lacey
http://www.minstersystems.co.uk 


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Arthur Fuller
> Sent: 19 January 2006 17:21
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Default font for forms etc.
> 
> 
> Where can I instruct Access to change the default font from 
> Arial 8 to Arial 10 (or something else)? I have wandered 
> through the Options dialog and cannot find this setting. I 
> have need to change this to Arial 10 at least and have it 
> affect every form I create. TIA, Arthur
>  
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From stuart at lexacorp.com.pg  Thu Jan 19 16:13:45 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Fri, 20 Jan 2006 08:13:45 +1000
Subject: [AccessD] Read External File for Path String
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF3E@INFOSERVER04.infostat.local>
Message-ID: <43D09BB9.7193.BB534D9@stuart.lexacorp.com.pg>

On 19 Jan 2006 at 8:08, Charlotte Foust wrote:

> That works if you have permission to write to the registry, Gustav.
> We're running into more and more situations where the user does  NOT
> have permission to read and write the registry.  Apparently the "new"
> approach is to use an xml file in documents and settings.
> 

And the advantages of using XML over the classic plain text WIndows INI and 
the standard API calls file would be?

FWIW, I've always avoided using the registry and persisted with INI files 
despite it being "old fashioned".  It makes applications portable.
-- 
Stuart




From stuart at lexacorp.com.pg  Thu Jan 19 16:20:25 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Fri, 20 Jan 2006 08:20:25 +1000
Subject: [AccessD] My form has a little problem
In-Reply-To: <43CFB95F.4080108@torchlake.com>
Message-ID: <43D09D49.24671.BBB4F59@stuart.lexacorp.com.pg>

On 19 Jan 2006 at 11:07, Tina Norris Fields wrote:

> The query qselStudentName looks like this:
> SELECT tblStudent.StuID, tblStudent.StuLname, tblStudent.StuFname, 
> tblStudent!StuLname & ", " & tblStudent!StuFname AS Name

It's a very dangerous practice to use Name as a fieldname.

Name is a reserved word and you can run into all sorts of problems using it 
for a fieldname. Use FullName or similar.



 

-- 
Stuart




From cfoust at infostatsystems.com  Thu Jan 19 17:00:20 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 19 Jan 2006 15:00:20 -0800
Subject: [AccessD] Read External File for Path String
Message-ID: <F55048AF7E974F429BB24597D7355EEABF42@INFOSERVER04.infostat.local>

Actually, the XML files wind up with a structure very similar to the ini
files but you don't need API calls to read them.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Thursday, January 19, 2006 2:14 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Read External File for Path String


On 19 Jan 2006 at 8:08, Charlotte Foust wrote:

> That works if you have permission to write to the registry, Gustav. 
> We're running into more and more situations where the user does  NOT 
> have permission to read and write the registry.  Apparently the "new" 
> approach is to use an xml file in documents and settings.
> 

And the advantages of using XML over the classic plain text WIndows INI
and 
the standard API calls file would be?

FWIW, I've always avoided using the registry and persisted with INI
files 
despite it being "old fashioned".  It makes applications portable.
-- 
Stuart


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


From dwaters at usinternet.com  Thu Jan 19 17:43:09 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Thu, 19 Jan 2006 17:43:09 -0600
Subject: [AccessD] Read External File for Path String
In-Reply-To: <31110973.1137695784521.JavaMail.root@sniper38>
Message-ID: <000001c61d52$1ae92a90$0200a8c0@danwaters>

Drew,

I tried this, but strTemp remains an empty string.

Could you review?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 12:13 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

Dim f as Long
dim strTemp as string
f=freefile
Open App.Path & "\dbpath.dat" for binary access read as f
strtemp=space(lof(f))
get f,,strtemp
close f


Now strTemp is the contents of dbpath.dat

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 10:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Hi Drew!

I assume you can create the dbpath.dat file by starting with a text file?

What code do you use to read from the dbpath.dat file?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 10:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

I do that all the time, though it's usually for my VB projects.  I create a
dbpath.dat file, and put it in the same folder as my .exe, so when I go to
connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



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

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



From stuart at lexacorp.com.pg  Thu Jan 19 17:48:00 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Fri, 20 Jan 2006 09:48:00 +1000
Subject: [AccessD] Read External File for Path String
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF42@INFOSERVER04.infostat.local>
Message-ID: <43D0B1D0.2471.C0B7E06@stuart.lexacorp.com.pg>

On 19 Jan 2006 at 15:00, Charlotte Foust wrote:

> Actually, the XML files wind up with a structure very similar to the ini
> files but you don't need API calls to read them.
> 

So how  would you create, then read an XML file to store a backend server 
path?
-- 
Stuart




From stuart at lexacorp.com.pg  Thu Jan 19 17:53:17 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Fri, 20 Jan 2006 09:53:17 +1000
Subject: [AccessD] Read External File for Path String
In-Reply-To: <000001c61d52$1ae92a90$0200a8c0@danwaters>
References: <31110973.1137695784521.JavaMail.root@sniper38>
Message-ID: <43D0B30D.4308.C105651@stuart.lexacorp.com.pg>

On 19 Jan 2006 at 17:43, Dan Waters wrote:

> I tried this, but strTemp remains an empty string.
> 
...
> Open App.Path & "\dbpath.dat" for binary access read as f

What do you get from "? App.Path" in an immediate window? 

Try replacing it with CurrentProject.path


-- 
Stuart




From cfoust at infostatsystems.com  Thu Jan 19 17:58:41 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 19 Jan 2006 15:58:41 -0800
Subject: [AccessD] Read External File for Path String
Message-ID: <F55048AF7E974F429BB24597D7355EEABF43@INFOSERVER04.infostat.local>

Stuart, I don't do it in Access, I use it in dot net.  Supposedly Access
2003 can read/write XML, but I don't have it so I can't try it out.

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Thursday, January 19, 2006 3:48 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Read External File for Path String


On 19 Jan 2006 at 15:00, Charlotte Foust wrote:

> Actually, the XML files wind up with a structure very similar to the 
> ini files but you don't need API calls to read them.
> 

So how  would you create, then read an XML file to store a backend
server 
path?
-- 
Stuart


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


From dwaters at usinternet.com  Thu Jan 19 18:26:49 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Thu, 19 Jan 2006 18:26:49 -0600
Subject: [AccessD] Read External File for Path String
In-Reply-To: <9085005.1137715331294.JavaMail.root@sniper39>
Message-ID: <000001c61d58$34b4ceb0$0200a8c0@danwaters>

Stuart,

I had done that already.  The path string is correct.

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: Thursday, January 19, 2006 5:53 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Read External File for Path String

On 19 Jan 2006 at 17:43, Dan Waters wrote:

> I tried this, but strTemp remains an empty string.
> 
...
> Open App.Path & "\dbpath.dat" for binary access read as f

What do you get from "? App.Path" in an immediate window? 

Try replacing it with CurrentProject.path


-- 
Stuart


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



From wdhindman at bellsouth.net  Thu Jan 19 18:47:27 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Thu, 19 Jan 2006 19:47:27 -0500
Subject: [AccessD] ...close open forms
References: <17724746D360394AA3BFE5B8D40A9C1BD596@main2.marlow.com>
Message-ID: <004401c61d5b$43e66580$6101a8c0@JISREGISTRATION.local>

...yes, that's a base feature of the gui.

William

----- Original Message ----- 
From: <DWUTKA at marlow.com>
To: <accessd at databaseadvisors.com>
Sent: Thursday, January 19, 2006 11:33 AM
Subject: Re: [AccessD] ...close open forms


> Just curious, is this for the project with the Hidden Access 
> functionality?
>
> Drew
>
> -----Original Message-----
> From: William Hindman [mailto:wdhindman at bellsouth.net]
> Sent: Thursday, January 19, 2006 6:32 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] ...close open forms
>
>
> Gustav, Don, Lambert, Shamil, et al
>
> ...thanks to all who responded ...four different solutions all of which
> worked in different ways.
> ...why do I love AccessD? ...let me count the ways! :)
>
> William
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Thursday, January 19, 2006 4:42 AM
> Subject: Re: [AccessD] ...close open forms
>
>
>> Hi William
>>
>> OK, then adjust to skip the last opened (the opening) form:
>>
>> ' Close all forms except the first and last opened form.
>>  For lngF = Forms.Count - 2 To 1 Step -1
>>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>>  Next
>>
>> /gustav
>>
>>>>> wdhindman at bellsouth.net 18-01-2006 23:15:07 >>>
>> Gustav
>>
>> ...thanks ...wish it was that easy ...it does what you say but not what I
>> need :(
>>
>> ...probably didn't explain it well enough ...it happens :)
>>
>> ...two or more forms open including the switchboard ...need it to close
>> everything BUT the swb AND the opening form.
>>
>> ...your code ...in the on open event of opening form ...closes all but 
>> the
>> swb ...including the opening form.
>>
>> ...suggestions welcome.
>>
>> William
>>
>> ----- Original Message ----- 
>> From: "Gustav Brock" <Gustav at cactus.dk>
>> To: <accessd at databaseadvisors.com>
>> Sent: Wednesday, January 18, 2006 9:22 AM
>> Subject: Re: [AccessD] ...close open forms
>>
>>
>>> Hi William
>>>
>>> How about:
>>>
>>>  ' Close all forms except this first opened form.
>>>  For lngF = Forms.Count - 1 To 1 Step -1
>>>    DoCmd.Close acForm, Forms(lngF).Name, acSaveYes
>>>  Next
>>>
>>> /gustav
>>>
>>>>>> wdhindman at bellsouth.net 18-01-2006 15:01:48 >>>
>>> ...I need to close any open forms ...other than designated forms ...and
>>> save
>>> their data ...before opening a called form ...from the called form.
>>>
>>> ...ie call a form open from a switchboard ...the called form checks for
>>> any
>>> other forms open, other than the sb, and closes them, saving their data,
>>> before it opens.
>>
>>
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From stuart at lexacorp.com.pg  Thu Jan 19 21:13:21 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Fri, 20 Jan 2006 13:13:21 +1000
Subject: [AccessD] Read External File for Path String
In-Reply-To: <000001c61d58$34b4ceb0$0200a8c0@danwaters>
References: <9085005.1137715331294.JavaMail.root@sniper39>
Message-ID: <43D0E1F1.26549.CC781FB@stuart.lexacorp.com.pg>

On 19 Jan 2006 at 18:26, Dan Waters wrote:

>> Try replacing it with CurrentProject.path
...
> I had done that already.  The path string is correct.

Here's an alternative, how does this one work:

Dim f as Long
dim strTemp as string
f=freefile
Open CurrentProject.Path & "\dbpath.dat" for input as f
line input f,strtemp
close f
-- 
Stuart




From jwcolby at ColbyConsulting.com  Thu Jan 19 22:23:28 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Thu, 19 Jan 2006 23:23:28 -0500
Subject: [AccessD] Preparing for upsizing
Message-ID: <00aa01c61d79$440a1e80$647aa8c0@ColbyM6805>

I am preparing for upsizing a client's access database.  In order to do this
I needed to search all the objects looking for SQL statements and save them
as saved queries.  In order to do this with forms I created the following
two functions:

FindSQL opens each form in the database in design view, then passes the name
of the form and the form's RecordSource off to a function BldSavedQuery.  It
then looks for all controls in the form's control collection looking for
combos and list boxes, and does the same with them.

BldSavedQuery looks for issues like nothing in the SQL statement passed in,
the "QryName" already being the name of a query or table, and if neither of
those conditions exist, then it tries to build a named query def.  If it
succeeds (the SQL passed in is valid and the name passed in is not already a
saved query) it creates a saved query and passes the name back to FindSQL
which then stores the saved query name back in place of the SQL statement.
When all processing is finished, the form is then saved and closed.

It works reasonably well.  The only things found so far are delimited lists
instead of SQL statements and what appear to be saved query names where the
saved query was deleted.  Only about 17 of those, all but one are delimited
lists.  It took me ~ 2 hours to write / debug this code and saved me who
knows how much time manually hunting for these things.

I now have to do the same thing for reports, though there are so few I might
just do them manually.

Function BldSavedQuery(strQryName As String, strSQL As String) As String
On Error GoTo Err_BldSavedQuery
Dim tdf As DAO.TableDef
Dim qdf As DAO.QueryDef
Dim qdfs As DAO.QueryDefs
Dim db As DAO.Database
Dim lstrQryName As String
    
    '
    'This object has nothing in the rowsource/recordsource (probably an
unbound form)
    '
    If strSQL = "" Then
        BldSavedQuery = ""
        GoTo Exit_BldSavedQuery
    End If
    Set db = CurrentDb
    '
    'Check to see if the strsql is the name of a table
    '
    On Error Resume Next
    Set tdf = db.TableDefs(strSQL)
    If Err = 0 Then
        GoTo Exit_BldSavedQuery
    End If
    Err.Clear
    '
    'Check if the strSQL is a query name
    '
    Set qdf = db.QueryDefs(strSQL)
    If Err = 0 Then
        GoTo Exit_BldSavedQuery
    End If
    Err.Clear
On Error GoTo Err_BldSavedQuery
    
    lstrQryName = "q" & strQryName
    Set qdfs = db.QueryDefs
    Set qdf = New QueryDef
    With qdf
        .SQL = strSQL
        .Name = lstrQryName
    End With
    qdfs.Append qdf
    qdfs.Refresh
    BldSavedQuery = qdf.Name
Exit_BldSavedQuery:
On Error Resume Next
    If Not (qdf Is Nothing) Then qdf.Close: Set qdf = Nothing
    Set qdfs = Nothing
    If Not (db Is Nothing) Then db.Close: Set db = Nothing
Exit Function
Err_BldSavedQuery:
    Select Case Err
    Case 3012   'Query already exists
        BldSavedQuery = ""
        Debug.Print "ERROR: " & lstrQryName & " already exists, but this
control has a SQL statement in the rowsource"
        Resume Exit_BldSavedQuery
    Case 3129   'Not an SQL statement - mostly delimited lists or deleted
saved query names
        BldSavedQuery = ""
        Debug.Print "ERROR: " & lstrQryName & " not a sql statement in the
rowsource but not a saved query or table either"
        Debug.Print vbTab & "Rowsource: " & strSQL
        Resume Exit_BldSavedQuery
    Case Else
        MsgBox Err.Description, , "Error in Function
basFindSQL.BldSavedQuery"
        Resume Exit_BldSavedQuery
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function
'
'This module will find all sql statements in objects such as forms, combos
and list boxes
'and save them as saved queries in the name format:
'
'qfrmName
'qfrmname-CboName
'qfrmName-LstName
'
Function FindSQL()
On Error GoTo Err_FindSQL
Dim db As DAO.Database
Dim doc As DAO.Document
Dim frm As Form
Dim ctl As Control
Dim strQryName As String
    Set db = CurrentDb
    For Each doc In db.Containers(2).Documents
        DoCmd.OpenForm doc.Name, acDesign
        Set frm = Forms(doc.Name)
        strQryName = BldSavedQuery(frm.Name, frm.RecordSource)
        If Len(strQryName) > 0 Then
            frm.RecordSource = strQryName
        End If
        For Each ctl In frm.Controls
            Select Case ctl.ControlType
            Case acComboBox, acListBox
                strQryName = BldSavedQuery(frm.Name & "-" & ctl.Name,
ctl.RowSource)
                If Len(strQryName) > 0 Then
                    ctl.RowSource = strQryName
                End If
            Case Else
            End Select
            
        Next ctl
        DoCmd.Close acForm, doc.Name, acSaveYes
    Next doc
Exit_FindSQL:
On Error Resume Next
    If Not (frm Is Nothing) Then frm.Close: Set frm = Nothing
    If Not (db Is Nothing) Then db.Close: Set db = Nothing
Exit Function
Err_FindSQL:
        MsgBox Err.Description, , "Error in Function basFindSQL.FindSQL"
        Resume Exit_FindSQL
    Resume 0    '.FOR TROUBLESHOOTING
End Function

John W. Colby
www.ColbyConsulting.com 




From DWUTKA at marlow.com  Thu Jan 19 23:46:05 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Thu, 19 Jan 2006 23:46:05 -0600
Subject: [AccessD] Read External File for Path String
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD5A7@main2.marlow.com>

app.path may not work in Access.  

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 5:43 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Drew,

I tried this, but strTemp remains an empty string.

Could you review?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 12:13 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

Dim f as Long
dim strTemp as string
f=freefile
Open App.Path & "\dbpath.dat" for binary access read as f
strtemp=space(lof(f))
get f,,strtemp
close f


Now strTemp is the contents of dbpath.dat

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 10:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Hi Drew!

I assume you can create the dbpath.dat file by starting with a text file?

What code do you use to read from the dbpath.dat file?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 10:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

I do that all the time, though it's usually for my VB projects.  I create a
dbpath.dat file, and put it in the same folder as my .exe, so when I go to
connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from one
server to another.  The server path is hardcoded in one place in a startup
form.  What would have helped me a lot is to have the path in a text file or
ini file external to the database and stored in the same folder.

Security is not an issue here, just my convenience, as my plans for the day
were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



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

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

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


From Gustav at cactus.dk  Fri Jan 20 05:47:14 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 20 Jan 2006 12:47:14 +0100
Subject: [AccessD] Read External File for Path String
Message-ID: <s3d0dbec.094@cactus.dk>

Hi Stuart

Use A2002+.
Have an internal table with your path, tblPath.

To export:
Application.ExportXML acExportTable , "tblPath", "c:\mypath.xml"

To import:
CurrentDb.Execute "Delete * From tblPath"
Application.ImportXML "c:\mypath.xml", acAppendData

To read:
strPath = DLookup("Path", "tblPath")

Not quite sure how "easy" that is, though in total only four code lines net are needed.
However, if you need to store a bunch of user or app settings it might be a nice method with all the advantages of XML storage and exchange possibilities.

/gustav

>>> stuart at lexacorp.com.pg 20-01-2006 00:48 >>>
On 19 Jan 2006 at 15:00, Charlotte Foust wrote:

> Actually, the XML files wind up with a structure very similar to the ini
> files but you don't need API calls to read them.

So how  would you create, then read an XML file to store a backend server 
path?
-- 
Stuart




From bheid at appdevgrp.com  Fri Jan 20 06:25:23 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Fri, 20 Jan 2006 07:25:23 -0500
Subject: [AccessD] Default printer for a report... (cross posted to Access-L)
Message-ID: <916187228923D311A6FE00A0CC3FAA30ABF6AE@ADGSERVER>

Hey,

I have noticed that when a printer is designed and set to use the default
printer, that if it is printed to the PDF printer, it will then be set to
use the PDF printer instead of the default printer.  Even though the report
is not edited and does not ask to save any changes.

I just got an email from one of our clients this morning asking about this
happening from an MDE.  

What is the cause of this and is there anyway to prevent it from permanently
modifying the default printer?

Thanks,
Bobby



From stuart at lexacorp.com.pg  Fri Jan 20 06:30:34 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Fri, 20 Jan 2006 22:30:34 +1000
Subject: [AccessD] Read External File for Path String
In-Reply-To: <s3d0dbec.094@cactus.dk>
Message-ID: <43D1648A.9662.EC5A496@stuart.lexacorp.com.pg>

On 20 Jan 2006 at 12:47, Gustav Brock wrote:

> Hi Stuart
> 
> Use A2002+.
> Have an internal table with your path, tblPath.
> 
> To export:
> Application.ExportXML acExportTable , "tblPath", "c:\mypath.xml"
> 
> To import:
> CurrentDb.Execute "Delete * From tblPath"
> Application.ImportXML "c:\mypath.xml", acAppendData
> 
> To read:
> strPath = DLookup("Path", "tblPath")
> 
> Not quite sure how "easy" that is, though in total only four code lines net
> are needed. However, if you need to store a bunch of user or app settings it
> might be a nice method with all the advantages of XML storage and exchange
> possibilities.
> 

You generally don't need to exchange user/app settings between 
applications.

If you have to store you settings in a table in the database to use an XML 
file, why bother? You can just read/write to the table itself.


 -- 
Stuart




From Gustav at cactus.dk  Fri Jan 20 07:02:49 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 20 Jan 2006 14:02:49 +0100
Subject: [AccessD] Read External File for Path String
Message-ID: <s3d0eda6.096@cactus.dk>

Hi Stuart

Well, sometimes yes. That depends. 

We have several apps where we store user settings like window size and position and other preferences. Right now we use an INI file but it could as well be an XML file.
The data are written just before the app closes and read back when it opens.
The advantage is that we can update the app (the frontend) without losing the user's preferences. I think this is important and a quite common scenario.

We could use the registry. There really is no reason to be afraid of that as some are (just use a scanner and watch how many data are read/written to the registry while using a standard app like Word, you hardly believe it) but it has some limitations as mentioned by Charlotte.
Using an external file like an XML file allows you to easily copy standard settings or settings from a similar user to a new user's machine after installation of the app.
Further, XML files have the advantage that they are easier to maintain from external sources and very high quality tools exist for the purpose; INI files are mostly modified by a simple editor.

/gustav

>>> stuart at lexacorp.com.pg 20-01-2006 13:30 >>>
On 20 Jan 2006 at 12:47, Gustav Brock wrote:

> Hi Stuart
> 
> Use A2002+.
> Have an internal table with your path, tblPath.
> 
> To export:
> Application.ExportXML acExportTable , "tblPath", "c:\mypath.xml"
> 
> To import:
> CurrentDb.Execute "Delete * From tblPath"
> Application.ImportXML "c:\mypath.xml", acAppendData
> 
> To read:
> strPath = DLookup("Path", "tblPath")
> 
> Not quite sure how "easy" that is, though in total only four code lines net
> are needed. However, if you need to store a bunch of user or app settings it
> might be a nice method with all the advantages of XML storage and exchange
> possibilities.
> 

You generally don't need to exchange user/app settings between 
applications.

If you have to store you settings in a table in the database to use an XML 
file, why bother? You can just read/write to the table itself.


 -- 
Stuart




From dwaters at usinternet.com  Fri Jan 20 09:07:45 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Fri, 20 Jan 2006 09:07:45 -0600
Subject: [AccessD] Read External File for Path String
In-Reply-To: <2361782.1137727147672.JavaMail.root@sniper21>
Message-ID: <000601c61dd3$45107810$0200a8c0@danwaters>

Yes!  This worked.

Per Help, I placed a number sign (#) in front of 'f' after line input.  

Thanks!
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: Thursday, January 19, 2006 9:13 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Read External File for Path String

On 19 Jan 2006 at 18:26, Dan Waters wrote:

>> Try replacing it with CurrentProject.path
...
> I had done that already.  The path string is correct.

Here's an alternative, how does this one work:

Dim f as Long
dim strTemp as string
f=freefile
Open CurrentProject.Path & "\dbpath.dat" for input as f
line input f,strtemp
close f
-- 
Stuart


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



From Gustav at cactus.dk  Fri Jan 20 09:30:56 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 20 Jan 2006 16:30:56 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d11049.003@cactus.dk>

Hi John

Yes, it is possible to update a linked xls sheet/range - except if you have applied the latest servicepack. 

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

/gustav

>>> jwcolby at ColbyConsulting.com 19-01-2006 19:53 >>>
OK oh hero, now is it possible to update the named range through a query?  I
tried saving the working select query, then opening that and modifying the
data but that definitely does not work.  Is this part of the "patent
lawsuit" changes or am I just doing something wrong?  

If a "Update" syntax would work that would be fine.  I am running code
anyway, not manually updating the data as I was trying to do in the test
above.

As I mentioned, I have a template with the named ranges all set up.  I would
like to be able to update that spreadsheet (append data into it) rather than
have to build up a new spreadsheet.  I can create the spreadsheet but then I
would need the syntax to create named ranges so I can get the data later -
using the syntax I just got from you.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 19, 2006 12:44 PM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

You miss the Excel header. Two options exist:

 SELECT
    NameOfField1,
    NameOfField2
  FROM
    [Range] AS T IN '' [Excel 5.0;DATABASE=c:\windows\temp\some.xls;];

In the second syntax the trick is the brackets. They can be omitted in this
example but are mandatory if you deal with filenames containing spaces.

This should be changed to:

  SELECT
    NameOfFiels1,
    NameOfField2
  FROM
    [Excel 5.0;DATABASE=c:\windows\temp\some.xls;HDR=YES].[Range] AS T;


>>> jwcolby at ColbyConsulting.com 19-01-2006 18:14:42 >>>
Does anyone know the syntax in an SQL statement for seeing a named range in
an excel spreadsheet?

I have a spreadsheet DocumentRequestTemplate.xls, which has a sheet
xlsReqForDocuments which has a named range Sec_DocWithHdr, Sec_DocNoHdr etc.

I assume that the syntax would look something like 

SELECT * from SEC_DocWithHdr IN DocumentRequestTemplate.xls

Doing this gets me "unrecognized database format" however.

Anyone know what the real answer is?

John W. Colby
www.ColbyConsulting.com 




From artful at rogers.com  Fri Jan 20 10:02:16 2006
From: artful at rogers.com (Arthur Fuller)
Date: Fri, 20 Jan 2006 11:02:16 -0500
Subject: [AccessD] Unlock an MDE
Message-ID: <00a801c61dda$e2906df0$8e01a8c0@rock>

A client has an MDE and has lost its corresponding MDB. I vaguely recall
that there is some sort of rescue technique. It wouldn't mattered if what
came back was obfuscated code; that could be dealt with.
Any tips or pointers? A commercial package would be OK if that's the only
method. The alternative is reverse-engineering it, which in the
circumstances wouldn't be all that terrible. Like most apps, it contains a
lot of obvious code and a little rocket science.
TIA,
Arthur
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks
 



From cfoust at infostatsystems.com  Fri Jan 20 10:18:11 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 20 Jan 2006 08:18:11 -0800
Subject: [AccessD] Read External File for Path String
Message-ID: <F55048AF7E974F429BB24597D7355EEABF44@INFOSERVER04.infostat.local>

That's VB syntax.  Doesn't work in Access.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 9:46 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String


app.path may not work in Access.  

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 5:43 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Drew,

I tried this, but strTemp remains an empty string.

Could you review?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 12:13 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

Dim f as Long
dim strTemp as string
f=freefile
Open App.Path & "\dbpath.dat" for binary access read as f
strtemp=space(lof(f))
get f,,strtemp
close f


Now strTemp is the contents of dbpath.dat

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 10:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Hi Drew!

I assume you can create the dbpath.dat file by starting with a text
file?

What code do you use to read from the dbpath.dat file?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 10:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

I do that all the time, though it's usually for my VB projects.  I
create a dbpath.dat file, and put it in the same folder as my .exe, so
when I go to connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from
one server to another.  The server path is hardcoded in one place in a
startup form.  What would have helped me a lot is to have the path in a
text file or ini file external to the database and stored in the same
folder.

Security is not an issue here, just my convenience, as my plans for the
day were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From cfoust at infostatsystems.com  Fri Jan 20 10:20:12 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 20 Jan 2006 08:20:12 -0800
Subject: [AccessD] Default printer for a report... (cross posted to
	Access-L)
Message-ID: <F55048AF7E974F429BB24597D7355EEABF45@INFOSERVER04.infostat.local>

PDF printers do seem to grab and hold the default like that.  Have you
tried code that sets the printer back to the original value?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Friday, January 20, 2006 4:25 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Default printer for a report... (cross posted to
Access-L)


Hey,

I have noticed that when a printer is designed and set to use the
default printer, that if it is printed to the PDF printer, it will then
be set to use the PDF printer instead of the default printer.  Even
though the report is not edited and does not ask to save any changes.

I just got an email from one of our clients this morning asking about
this happening from an MDE.  

What is the cause of this and is there anyway to prevent it from
permanently modifying the default printer?

Thanks,
Bobby

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From cfoust at infostatsystems.com  Fri Jan 20 10:21:34 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 20 Jan 2006 08:21:34 -0800
Subject: [AccessD] Unlock an MDE
Message-ID: <F55048AF7E974F429BB24597D7355EEABF46@INFOSERVER04.infostat.local>

Check the archives.  I think Shamil came up with a method for extracting
the objects.  The code of course is unavailable.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: Friday, January 20, 2006 8:02 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Unlock an MDE


A client has an MDE and has lost its corresponding MDB. I vaguely recall
that there is some sort of rescue technique. It wouldn't mattered if
what came back was obfuscated code; that could be dealt with. Any tips
or pointers? A commercial package would be OK if that's the only method.
The alternative is reverse-engineering it, which in the circumstances
wouldn't be all that terrible. Like most apps, it contains a lot of
obvious code and a little rocket science. TIA, Arthur Son of Uther
Pendragon, Defeater of the Saxons, Lord Over Alllll England, and King of
the Dorks
 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From DWUTKA at marlow.com  Fri Jan 20 10:20:51 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Fri, 20 Jan 2006 10:20:51 -0600
Subject: [AccessD] Read External File for Path String
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD5B8@main2.marlow.com>

I know that, it's just habit when writing code in an email to use the format
I use more often... ;)

Drew

-----Original Message-----
From: Charlotte Foust [mailto:cfoust at infostatsystems.com]
Sent: Friday, January 20, 2006 10:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Read External File for Path String


That's VB syntax.  Doesn't work in Access.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 9:46 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String


app.path may not work in Access.  

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 5:43 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Drew,

I tried this, but strTemp remains an empty string.

Could you review?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 12:13 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

Dim f as Long
dim strTemp as string
f=freefile
Open App.Path & "\dbpath.dat" for binary access read as f
strtemp=space(lof(f))
get f,,strtemp
close f


Now strTemp is the contents of dbpath.dat

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Thursday, January 19, 2006 10:45 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


Hi Drew!

I assume you can create the dbpath.dat file by starting with a text
file?

What code do you use to read from the dbpath.dat file?

Thanks,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
DWUTKA at marlow.com
Sent: Thursday, January 19, 2006 10:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Read External File for Path String

I do that all the time, though it's usually for my VB projects.  I
create a dbpath.dat file, and put it in the same folder as my .exe, so
when I go to connect to a database, I look the path up in dbpath.dat.

Drew

-----Original Message-----
From: Dan Waters [mailto:dwaters at usinternet.com]
Sent: Wednesday, January 18, 2006 6:38 PM
To: 'AccessD'
Subject: [AccessD] Read External File for Path String


Hello Everyone,

I just spent half the day struggling with the movement of a system from
one server to another.  The server path is hardcoded in one place in a
startup form.  What would have helped me a lot is to have the path in a
text file or ini file external to the database and stored in the same
folder.

Security is not an issue here, just my convenience, as my plans for the
day were pretty much blown up!

Using a file for information like this sounds like it might be a fairly
typical solution.  Does anyone do this or something like it?

Thanks!
Dan Waters



-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From artful at rogers.com  Fri Jan 20 10:27:01 2006
From: artful at rogers.com (Arthur Fuller)
Date: Fri, 20 Jan 2006 11:27:01 -0500
Subject: [AccessD] Friday Humour
Message-ID: <00cd01c61dde$5804e9a0$8e01a8c0@rock>

A little girl with blonde curls and blue eyes walks into a pet shop and asks
in the sweetest little lisp, "Excuthe me, mithter, do you keep widdle
wabbits?"
 
The shopkeeper's heart melts and he gets down on his knees, so that he's on
her level, and asks, "Do you want a widdle white wabbit or a thoft and furwy
bwack wabbit or maybe one like that cute widdle bwown wabbit over there?"
 
She, blushing, rocks on her heels, puts her hands on her knees, leans
forward and says in a quiet voice, "I don't fink my pyfon weally gives a
thuck."

Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks
 




From dwaters at usinternet.com  Fri Jan 20 10:28:20 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Fri, 20 Jan 2006 10:28:20 -0600
Subject: [AccessD] Unlock an MDE
In-Reply-To: <20834365.1137773452628.JavaMail.root@sniper40>
Message-ID: <000201c61dde$86fc6170$0200a8c0@danwaters>

Dear King,

What I've read in a few places is that there is a technique where a
developer could 'add' capability to an mde, but not change what was already
there.  The capability addition must use Access macros, because the code is
unavailable.  

I was looking for a way to 'defeat' an mde to see if I could claim to a
customer that it really was permanently locked, and I from what I found an
mde will not reveal its secrets!

Best of Luck,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: Friday, January 20, 2006 10:02 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Unlock an MDE

A client has an MDE and has lost its corresponding MDB. I vaguely recall
that there is some sort of rescue technique. It wouldn't mattered if what
came back was obfuscated code; that could be dealt with.
Any tips or pointers? A commercial package would be OK if that's the only
method. The alternative is reverse-engineering it, which in the
circumstances wouldn't be all that terrible. Like most apps, it contains a
lot of obvious code and a little rocket science.
TIA,
Arthur
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks
 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jmhecht at earthlink.net  Fri Jan 20 10:41:24 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 20 Jan 2006 08:41:24 -0800
Subject: [AccessD] MDE & Otter package installers
Message-ID: <003901c61de0$5a3ced60$6701a8c0@HPLaptop>

How locked is my project when I make an MDE or use VSTO or
other install packages.

 

If I make a label for a text box and caption it auto, can
they come back & change the caption to car as an example?

 

Joe Hecht

jmhecht at earthlink.net

 



From bheid at appdevgrp.com  Fri Jan 20 10:42:15 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Fri, 20 Jan 2006 11:42:15 -0500
Subject: [AccessD] [SPAM SUSPECT] Re: Default printer for a report...
	(cross posted to	Access-L)
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D29951@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30ABF6CB@ADGSERVER>

Hi Charlotte,

Thanks for looking at my post.

No, I have not tried anything in code yet.  I was fishing to see if it was a
common issue and if there were any suggested solutions.

Thanks,
Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Friday, January 20, 2006 11:20 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Default printer for a report... (cross
posted to Access-L)
Importance: Low


PDF printers do seem to grab and hold the default like that.  Have you
tried code that sets the printer back to the original value?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Friday, January 20, 2006 4:25 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Default printer for a report... (cross posted to
Access-L)


Hey,

I have noticed that when a printer is designed and set to use the
default printer, that if it is printed to the PDF printer, it will then
be set to use the PDF printer instead of the default printer.  Even
though the report is not edited and does not ask to save any changes.

I just got an email from one of our clients this morning asking about
this happening from an MDE.  

What is the cause of this and is there anyway to prevent it from
permanently modifying the default printer?

Thanks,
Bobby



From jimdettman at earthlink.net  Fri Jan 20 10:59:04 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Fri, 20 Jan 2006 11:59:04 -0500
Subject: [AccessD] Unlock an MDE
In-Reply-To: <00a801c61dda$e2906df0$8e01a8c0@rock>
Message-ID: <NDEALJOEGMMPCDKIFGNFIEIDICAA.jimdettman@earthlink.net>

Arthur,

  I've seen code floating around to extract the properties of objects via
OLE, but nothing to create those objects in a new MDB.

  As for the code, technically it's feasible to get it, but I don't know
anyone who's ever done it.  There was a company a little while back that
claimed to have a recovery tool, but if you read through their descriptions,
they were just recovering the objects and then recoding by hand.  Looked
like they could decipher enough of the p-code to take a guess at what it was
doing.

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Arthur Fuller
Sent: Friday, January 20, 2006 11:02 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Unlock an MDE


A client has an MDE and has lost its corresponding MDB. I vaguely recall
that there is some sort of rescue technique. It wouldn't mattered if what
came back was obfuscated code; that could be dealt with.
Any tips or pointers? A commercial package would be OK if that's the only
method. The alternative is reverse-engineering it, which in the
circumstances wouldn't be all that terrible. Like most apps, it contains a
lot of obvious code and a little rocket science.
TIA,
Arthur
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From bchacc at san.rr.com  Fri Jan 20 11:21:33 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Fri, 20 Jan 2006 09:21:33 -0800
Subject: [AccessD] MDE & Otter package installers
In-Reply-To: <003901c61de0$5a3ced60$6701a8c0@HPLaptop>
References: <003901c61de0$5a3ced60$6701a8c0@HPLaptop>
Message-ID: <43D11C1D.40405@san.rr.com>

Joe:

SOme of the objects, like queries, are still visible unless you do more 
locking:

You can add some locking code like :

Sub SetStartupProperties(TheOpeningForm As String)

If boolTrapErrors = True Then On Error GoTo Err_SetStartupProperties


    ChangeProperty "StartupForm", dbText, TheOpeningForm
    ChangeProperty "StartupShowDBWindow", dbBoolean, False
    ChangeProperty "StartupShowStatusBar", dbBoolean, False
    ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
    ChangeProperty "AllowFullMenus", dbBoolean, False
    ChangeProperty "AllowBreakIntoCode", dbBoolean, False
    ChangeProperty "AllowSpecialKeys", dbBoolean, False
    ChangeProperty "AllowBypassKey", dbBoolean, False
    ChangeProperty "MenuBar", dbBoolean, False
   

Exit_SetStartupProperties:
Exit Sub

Err_SetStartupProperties:

    Select Case Err
    Case 0      '.insert Errors you wish to ignore here
        Resume Next
    Case Else   '.All other errors will trap
        Beep
        DoCmd.OpenForm "frmErrorMessage ", , , , , , "Error: " & 
Err.Number & " - " & Err.Description & vbCrLf & "In: 
ezmrp-opener.SetStartupProperties"
        Resume Exit_SetStartupProperties
    End Select

    Resume 0    '.FOR TROUBLESHOOTING

End Sub

where the change property function:

Function ChangeProperty(strPropName As String, varPropType As Variant, 
varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

Not my code.  I cribbed it from somewhere - the ADH I think.  But you 
also need unlocking code and a back door to get back into your mde.


Rocky


Joe Hecht wrote:
> How locked is my project when I make an MDE or use VSTO or
> other install packages.
>
>  
>
> If I make a label for a text box and caption it auto, can
> they come back & change the caption to car as an example?
>
>  
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>  
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From jwcolby at ColbyConsulting.com  Fri Jan 20 11:25:46 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 20 Jan 2006 12:25:46 -0500
Subject: [AccessD] Syntax for seeing named range in excel
In-Reply-To: <s3d11049.003@cactus.dk>
Message-ID: <00d401c61de6$8e0ce090$647aa8c0@ColbyM6805>

LOL, all service packs applied so I guess I build a brand new workbook.

Does anyone have a library of functions for doing things out in a
spreadsheet?  I need to do things like name ranges, lock ranges, format
ranges etc.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 10:31 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

Yes, it is possible to update a linked xls sheet/range - except if you have
applied the latest servicepack. 

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

/gustav

>>> jwcolby at ColbyConsulting.com 19-01-2006 19:53 >>>
OK oh hero, now is it possible to update the named range through a query?  I
tried saving the working select query, then opening that and modifying the
data but that definitely does not work.  Is this part of the "patent
lawsuit" changes or am I just doing something wrong?  

If a "Update" syntax would work that would be fine.  I am running code
anyway, not manually updating the data as I was trying to do in the test
above.

As I mentioned, I have a template with the named ranges all set up.  I would
like to be able to update that spreadsheet (append data into it) rather than
have to build up a new spreadsheet.  I can create the spreadsheet but then I
would need the syntax to create named ranges so I can get the data later -
using the syntax I just got from you.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 19, 2006 12:44 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

You miss the Excel header. Two options exist:

 SELECT
    NameOfField1,
    NameOfField2
  FROM
    [Range] AS T IN '' [Excel 5.0;DATABASE=c:\windows\temp\some.xls;];

In the second syntax the trick is the brackets. They can be omitted in this
example but are mandatory if you deal with filenames containing spaces.

This should be changed to:

  SELECT
    NameOfFiels1,
    NameOfField2
  FROM
    [Excel 5.0;DATABASE=c:\windows\temp\some.xls;HDR=YES].[Range] AS T;


>>> jwcolby at ColbyConsulting.com 19-01-2006 18:14:42 >>>
Does anyone know the syntax in an SQL statement for seeing a named range in
an excel spreadsheet?

I have a spreadsheet DocumentRequestTemplate.xls, which has a sheet
xlsReqForDocuments which has a named range Sec_DocWithHdr, Sec_DocNoHdr etc.

I assume that the syntax would look something like 

SELECT * from SEC_DocWithHdr IN DocumentRequestTemplate.xls

Doing this gets me "unrecognized database format" however.

Anyone know what the real answer is?

John W. Colby
www.ColbyConsulting.com 


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From martyconnelly at shaw.ca  Fri Jan 20 11:25:02 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 20 Jan 2006 09:25:02 -0800
Subject: [AccessD] Unlock an MDE
References: <00a801c61dda$e2906df0$8e01a8c0@rock>
Message-ID: <43D11CEE.3060002@shaw.ca>

 MDE forms/reports extractor v2.2 MS Access 2000 add-in 
  This free utility is designed to allow you to extract the forms, 
reports and macros from mde file to mdb (without the form/report class 
module code). 
Serge Gavrilov has a couple of other useful gems here.
http://accesstools.narod.ru/index.html

These guys convert the compiled p-code but you are probably looking at a 
couple of thousand depending on complexity.

http://www.access.qbuilt.com/html/faq.html#Cost

Arthur Fuller wrote:

>A client has an MDE and has lost its corresponding MDB. I vaguely recall
>that there is some sort of rescue technique. It wouldn't mattered if what
>came back was obfuscated code; that could be dealt with.
>Any tips or pointers? A commercial package would be OK if that's the only
>method. The alternative is reverse-engineering it, which in the
>circumstances wouldn't be all that terrible. Like most apps, it contains a
>lot of obvious code and a little rocket science.
>TIA,
>Arthur
>Son of Uther Pendragon,
>Defeater of the Saxons,
>Lord Over Alllll England, and
>King of the Dorks
> 
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From Gustav at cactus.dk  Fri Jan 20 12:26:55 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 20 Jan 2006 19:26:55 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d139a5.010@cactus.dk>

Hi John

That's an Excel book you are asking for ...
Didn't you once work with a fellow fluid in Excel? Or was that in your Mexico days?

I'm certainly no expert in Excel but I've found that if you define everything you touch as ranges and define and use Named Ranges to a degree where you may find it ridiculous (for a single row or column or even a cell) you are pretty well off, as your code becomes much easier to read and maintain. Also, if you are working on an existing file - you can easily adjust the layout of worksheet without changing any code as the Named Ranges will persist.

Further, don't take anything for granted; a worksheet used to be no. 2, one day it is no. 1, so always move it to position 2 if that is important, and so on.

And never ever use Selection unless, of course, you wish to highlight an area for the user in interactive mode.

For your entertainment, I have a single function which has proven extremely useful for me as Excel lookup in a range behaves in a way you - with a database background - would not expect. Not like DLookup. It has in-line documentation as it otherwise for non Excel gurus like me is nearly impossible to understand what it does and why:

Function RLookup( _
  ByVal rngLookup As Range, _
  ByVal strField As String, _
  Optional intSearchOrder As Integer = xlByRows, _
  Optional intOffset As Integer = 1) _
  As Variant

' Looks up a value in the named range rngLookup from the cell,
' offset intOffset rows below or columns right from the found cell.
'
' 2000-07-30.
' Cactus Data ApS, Gustav Brock

' Default intSearchOrder is xlByRows, as named ranges built this way are
' easily attached by Access.
  
  Dim rng As Range
  Dim intRow As Integer
  Dim intColumn As Integer
  
  ' No special error handling.
  On Error Resume Next

  If intSearchOrder = xlByRows Then
    ' Search by rows.
    ' Read from found row, offset intOffset rows, and found column.
  Else
    ' Search by columns.
    ' Read from found row and found column, offset intOffset columns.
    intSearchOrder = xlByColumns
  End If
  
  With rngLookup
    ' Start search from upper left cell in range by starting in lower right cell.
    ' Search case sensitive for whole words in values only.
    Set rng = .Find(strField, .Cells(.Rows.Count, .Columns.Count), xlValues, xlWhole, intSearchOrder, , True)
  End With
  If Not rng Is Nothing Then
    ' Searched value found.
    ' Lookup value to retrieve.
    With rng
      intRow = .Row - (intOffset * (intSearchOrder = xlByRows))
      intColumn = .Column - (intOffset * (intSearchOrder = xlByColumns))
      ' Return value, offset intOffset rows or columns from cell with found value.
      RLookup = .Worksheet.Cells(intRow, intColumn).Value
    End With
    Set rng = Nothing
  End If

End Function

/gustav

>>> jwcolby at ColbyConsulting.com 20-01-2006 18:25:46 >>>
LOL, all service packs applied so I guess I build a brand new workbook.

Does anyone have a library of functions for doing things out in a
spreadsheet?  I need to do things like name ranges, lock ranges, format
ranges etc.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 10:31 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

Yes, it is possible to update a linked xls sheet/range - except if you have
applied the latest servicepack. 

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

/gustav

>>> jwcolby at ColbyConsulting.com 19-01-2006 19:53 >>>
OK oh hero, now is it possible to update the named range through a query?  I
tried saving the working select query, then opening that and modifying the
data but that definitely does not work.  Is this part of the "patent
lawsuit" changes or am I just doing something wrong?  

If a "Update" syntax would work that would be fine.  I am running code
anyway, not manually updating the data as I was trying to do in the test
above.

As I mentioned, I have a template with the named ranges all set up.  I would
like to be able to update that spreadsheet (append data into it) rather than
have to build up a new spreadsheet.  I can create the spreadsheet but then I
would need the syntax to create named ranges so I can get the data later -
using the syntax I just got from you.


John W. Colby
www.ColbyConsulting.com 



From jwcolby at ColbyConsulting.com  Fri Jan 20 12:40:29 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 20 Jan 2006 13:40:29 -0500
Subject: [AccessD] Syntax for seeing named range in excel
In-Reply-To: <s3d139a5.010@cactus.dk>
Message-ID: <00f301c61df0$fe251f00$647aa8c0@ColbyM6805>

>Didn't you once work with a fellow fluid in Excel? Or was that in your
Mexico days?

That was in Mexico.

I just really discovered named ranges and boy is THAT cool, even inside the
spreadsheet.

I'm not really a spreadsheet kinda guy but I am running into a bunch of
"need to export to" and a little "need to import from".  Luckily the "import
from" is from my own exported workbooks so I know that it is good data. 

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 1:27 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

That's an Excel book you are asking for ...
Didn't you once work with a fellow fluid in Excel? Or was that in your
Mexico days?

I'm certainly no expert in Excel but I've found that if you define
everything you touch as ranges and define and use Named Ranges to a degree
where you may find it ridiculous (for a single row or column or even a cell)
you are pretty well off, as your code becomes much easier to read and
maintain. Also, if you are working on an existing file - you can easily
adjust the layout of worksheet without changing any code as the Named Ranges
will persist.

Further, don't take anything for granted; a worksheet used to be no. 2, one
day it is no. 1, so always move it to position 2 if that is important, and
so on.

And never ever use Selection unless, of course, you wish to highlight an
area for the user in interactive mode.

For your entertainment, I have a single function which has proven extremely
useful for me as Excel lookup in a range behaves in a way you - with a
database background - would not expect. Not like DLookup. It has in-line
documentation as it otherwise for non Excel gurus like me is nearly
impossible to understand what it does and why:

Function RLookup( _
  ByVal rngLookup As Range, _
  ByVal strField As String, _
  Optional intSearchOrder As Integer = xlByRows, _
  Optional intOffset As Integer = 1) _
  As Variant

' Looks up a value in the named range rngLookup from the cell, ' offset
intOffset rows below or columns right from the found cell.
'
' 2000-07-30.
' Cactus Data ApS, Gustav Brock

' Default intSearchOrder is xlByRows, as named ranges built this way are '
easily attached by Access.
  
  Dim rng As Range
  Dim intRow As Integer
  Dim intColumn As Integer
  
  ' No special error handling.
  On Error Resume Next

  If intSearchOrder = xlByRows Then
    ' Search by rows.
    ' Read from found row, offset intOffset rows, and found column.
  Else
    ' Search by columns.
    ' Read from found row and found column, offset intOffset columns.
    intSearchOrder = xlByColumns
  End If
  
  With rngLookup
    ' Start search from upper left cell in range by starting in lower right
cell.
    ' Search case sensitive for whole words in values only.
    Set rng = .Find(strField, .Cells(.Rows.Count, .Columns.Count), xlValues,
xlWhole, intSearchOrder, , True)
  End With
  If Not rng Is Nothing Then
    ' Searched value found.
    ' Lookup value to retrieve.
    With rng
      intRow = .Row - (intOffset * (intSearchOrder = xlByRows))
      intColumn = .Column - (intOffset * (intSearchOrder = xlByColumns))
      ' Return value, offset intOffset rows or columns from cell with found
value.
      RLookup = .Worksheet.Cells(intRow, intColumn).Value
    End With
    Set rng = Nothing
  End If

End Function

/gustav

>>> jwcolby at ColbyConsulting.com 20-01-2006 18:25:46 >>>
LOL, all service packs applied so I guess I build a brand new workbook.

Does anyone have a library of functions for doing things out in a
spreadsheet?  I need to do things like name ranges, lock ranges, format
ranges etc.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 10:31 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

Yes, it is possible to update a linked xls sheet/range - except if you have
applied the latest servicepack. 

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

/gustav

>>> jwcolby at ColbyConsulting.com 19-01-2006 19:53 >>>
OK oh hero, now is it possible to update the named range through a query?  I
tried saving the working select query, then opening that and modifying the
data but that definitely does not work.  Is this part of the "patent
lawsuit" changes or am I just doing something wrong?  

If a "Update" syntax would work that would be fine.  I am running code
anyway, not manually updating the data as I was trying to do in the test
above.

As I mentioned, I have a template with the named ranges all set up.  I would
like to be able to update that spreadsheet (append data into it) rather than
have to build up a new spreadsheet.  I can create the spreadsheet but then I
would need the syntax to create named ranges so I can get the data later -
using the syntax I just got from you.


John W. Colby
www.ColbyConsulting.com 

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Fri Jan 20 13:05:15 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 20 Jan 2006 20:05:15 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d14287.011@cactus.dk>

Hi John

Nice to hear. Please let me leave that as the quote of the week!

However, I haven't missed an opportunity to mention this through the years(!) - speaking for deaf ears?

So, everyone else, Named Ranges are so simple to apply and use, the feature has been there since "forever", but still most users and many programmers don't know about it, thus wasting time hammering primitive cell coordinates into formulas and code.

/gustav

>>> jwcolby at ColbyConsulting.com 20-01-2006 19:40:29 >>>

I just really discovered named ranges and boy is THAT cool, even inside the spreadsheet.




From cfoust at infostatsystems.com  Fri Jan 20 13:11:40 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 20 Jan 2006 11:11:40 -0800
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <F55048AF7E974F429BB24597D7355EEABF47@INFOSERVER04.infostat.local>

It's funny, but named ranges have been around since at least Excel 5
that I can remember, maybe longer, and yet they seem to be so obscure.
I don't use Excel much, but I did at one time, and I couldn't have built
the pseudo-databases I did (for Macs at the time, which didn't have much
of the real thing) without making extensive use of named ranges.
They're so EASY!!

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 11:05 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel


Hi John

Nice to hear. Please let me leave that as the quote of the week!

However, I haven't missed an opportunity to mention this through the
years(!) - speaking for deaf ears?

So, everyone else, Named Ranges are so simple to apply and use, the
feature has been there since "forever", but still most users and many
programmers don't know about it, thus wasting time hammering primitive
cell coordinates into formulas and code.

/gustav

>>> jwcolby at ColbyConsulting.com 20-01-2006 19:40:29 >>>

I just really discovered named ranges and boy is THAT cool, even inside
the spreadsheet.


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From Gustav at cactus.dk  Fri Jan 20 13:21:25 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 20 Jan 2006 20:21:25 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d1464e.012@cactus.dk>

Hi Charlotte

Music in my ears!

/gustav

>>> cfoust at infostatsystems.com 20-01-2006 20:11:40 >>>
It's funny, but named ranges have been around since at least Excel 5
that I can remember, maybe longer, and yet they seem to be so obscure.
I don't use Excel much, but I did at one time, and I couldn't have built
the pseudo-databases I did (for Macs at the time, which didn't have much
of the real thing) without making extensive use of named ranges.
They're so EASY!!

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 11:05 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Syntax for seeing named range in excel


Hi John

Nice to hear. Please let me leave that as the quote of the week!

However, I haven't missed an opportunity to mention this through the
years(!) - speaking for deaf ears?

So, everyone else, Named Ranges are so simple to apply and use, the
feature has been there since "forever", but still most users and many
programmers don't know about it, thus wasting time hammering primitive
cell coordinates into formulas and code.

/gustav

>>> jwcolby at ColbyConsulting.com 20-01-2006 19:40:29 >>>

I just really discovered named ranges and boy is THAT cool, even inside
the spreadsheet.




From jwcolby at ColbyConsulting.com  Fri Jan 20 14:08:20 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 20 Jan 2006 15:08:20 -0500
Subject: [AccessD] Syntax for seeing named range in excel
In-Reply-To: <s3d14287.011@cactus.dk>
Message-ID: <00fa01c61dfd$4326b760$647aa8c0@ColbyM6805>

Gustav,

>Nice to hear. Please let me leave that as the quote of the week!

Well, you know how it goes with this list, there is so much traffic that you
have to ignore what you don't use.

I just don't use Excel much for my own purposes.  I am moving this summer to
North Carolina and have to get real about my money so this last week I did a
"Income/Expense" workbook with three worksheets for income, expenses and
credit.  It wasn't until I started naming ranges there and then using the
names that I discovered just how cool they are.

>So, everyone else, Named Ranges are so simple to apply and use, the feature
has been there since "forever", but still most users and many programmers
don't know about it, thus wasting time hammering primitive cell coordinates
into formulas and code.

Amen Brother!  

Now I need to figure out how to CREATE named ranges when I build a
spreadsheet in VBA.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 2:05 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

Nice to hear. Please let me leave that as the quote of the week!

However, I haven't missed an opportunity to mention this through the
years(!) - speaking for deaf ears?

So, everyone else, Named Ranges are so simple to apply and use, the feature
has been there since "forever", but still most users and many programmers
don't know about it, thus wasting time hammering primitive cell coordinates
into formulas and code.

/gustav

>>> jwcolby at ColbyConsulting.com 20-01-2006 19:40:29 >>>

I just really discovered named ranges and boy is THAT cool, even inside the
spreadsheet.


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From martyconnelly at shaw.ca  Fri Jan 20 14:55:23 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 20 Jan 2006 12:55:23 -0800
Subject: [AccessD] Read External File for Path String
References: <s3d0dbec.094@cactus.dk>
Message-ID: <43D14E3B.30501@shaw.ca>

If you don't have that high a version of Access here is method of using 
xmldom to read xml file.
rather than ImportXML method.

'?LoadXMLFile("C:\XML\AdviserDetails.xml")
Public Function LoadXMLFile(ByRef AdviserXML As String)

    'On Error GoTo ErrorHandler
    'needs reference set to XML 4.0 and maybe ADO 2.8
    Dim oDOMDocument As MSXML2.DOMDocument40
    Dim oNodeList As IXMLDOMNodeList
    Dim oAdviserDetailsNode As IXMLDOMNode
    Dim oLowestLevelNode As IXMLDOMElement
    Dim objXMLDOMNamedNodeMap As IXMLDOMNamedNodeMap
     Dim xPError As IXMLDOMParseError
    Dim Mydb As Database
    Dim myrs As ADODB.Recordset
    Dim sTempValue As String
    Dim lrec As Long
    Dim lnorec As Long
    Set oDOMDocument = New MSXML2.DOMDocument40

    oDOMDocument.async = False
    oDOMDocument.validateOnParse = True 'you may want to parse for errors
    oDOMDocument.resolveExternals = False
    oDOMDocument.preserveWhiteSpace = True
 
    'use if xml disk file
      If Not oDOMDocument.Load(AdviserXML) Then
        MsgBox ("XML File error")
             Set xPError = oDOMDocument.parseError
        DOMParseError xPError
      
       End If
    Set oAdviserDetailsNode = oDOMDocument.documentElement
     Debug.Print oDOMDocument.xml
    
  
    'Set Mydb = CurrentDb
    'Set myrs = Mydb.OpenRecordset("NewTable")
 

   'use appropriate XPath expression to select nodes
  
   Set oNodeList = oAdviserDetailsNode.selectNodes("//BusinessDetails/*")
 
     lnorec = 0
     lrec = 0
     Debug.Print oNodeList.length
     '   myrs.AddNew
    For Each oLowestLevelNode In oNodeList
        sTempValue = oLowestLevelNode.Text
         lrec = lrec + 1
        Select Case oLowestLevelNode.nodeName
            Case "BusinessName"
                   Debug.Print "Business " & sTempValue
                'myrs!BusinessName = sTempValue
            Case "AddressLine1"
                'myrs!AddressLine1 = sTempValue
            Case "AddressLine2"
                'myrs!AddressLine2 = sTempValue
            Case "Suburb"
                'myrs!Suburb = sTempValue
            Case "State"
                'myrs!State = sTempValue
                Debug.Print sTempValue
            Case "Postcode"
                'myrs!Postcode = sTempValue
            Case "PhoneNumber"
             Debug.Print "Phone " & sTempValue
                'myrs!PhoneNumber = sTempValue
            Case "Email"
                'myrs!Email = sTempValue
            Case "FaxNumber"
                'myrs!FaxNumber = sTempValue
        End Select
        If lrec = 9 Then '9 elements in business details
       ' myrs.Update
        lnorec = lnorec + 1
        lrec = 0
       ' myrs.AddNew
        End If
      Next
     
     MsgBox "Records Added=" & lnorec
     ' Set myrs = Nothing
    'Set Mydb = Nothing
    Set oDOMDocument = Nothing
    Set oAdviserDetailsNode = Nothing
    Set objXMLDOMNamedNodeMap = Nothing
    Exit Function

ErrorHandler:

  '  Call NewError.Raise(Err.Number, Err.Source, Err.Description)

End Function
Sub DOMParseError(xPE As IXMLDOMParseError)

    ' The document failed to load.
    Dim strErrText As String
    ' Obtain the ParseError object
    With xPE
    strErrText = "Your XML Document failed to load" & _
        "due the following error." & vbCrLf & _
        "Error #: " & .errorCode & ": " & xPE.reason & _
        "Line #: " & .Line & vbCrLf & _
        "Line Position: " & .linepos & vbCrLf & _
        "Position In File: " & .filepos & vbCrLf & _
        "Source Text: " & .srcText & vbCrLf & _
        "Document URL: " & .url
    End With
    Debug.Print strErrText

  Dim s As String
  Dim r As String
  Dim i As Long
 
   s = ""
  For i = 1 To xPE.linepos - 1
    s = s & " "
  Next
  r = "XML Error loading " & xPE.url & " * " & xPE.reason
  Debug.Print r
    'show character postion of error; tired of counting chars in xml file
  If (xPE.Line > 0) Then
    r = "at line " & xPE.Line & ", character " & xPE.linepos & vbCrLf & _
         xPE.srcText & vbCrLf & s & "^"
  End If
  Debug.Print r
    MsgBox strErrText, vbExclamation
End Sub




--------  "C:\XML\AdviserDetails.xml"  save as UTF-8 not ANSI in notepad

<?xml version="1.0" encoding="UTF-8"?>
<AdviserDetails ID="AD12345">
    <BusinessDetails>
        <BusinessName>"AD Business Name" </BusinessName>
        <AddressLine1>"AD Address Line 1" </AddressLine1>
        <AddressLine2>"AD Address Line 2" </AddressLine2>
        <Suburb>"AD Suburb" </Suburb>
        <State>"AD State" </State>
        <Postcode>"AD PostCode" </Postcode>
        <PhoneNumber>"AD Phone Number" </PhoneNumber>
        <Email>"AD Email" </Email>
        <FaxNumber>"AD Fax Number" </FaxNumber>
    </BusinessDetails>
</AdviserDetails>

Gustav Brock wrote:

>Hi Stuart
>
>Use A2002+.
>Have an internal table with your path, tblPath.
>
>To export:
>Application.ExportXML acExportTable , "tblPath", "c:\mypath.xml"
>
>To import:
>CurrentDb.Execute "Delete * From tblPath"
>Application.ImportXML "c:\mypath.xml", acAppendData
>
>To read:
>strPath = DLookup("Path", "tblPath")
>
>Not quite sure how "easy" that is, though in total only four code lines net are needed.
>However, if you need to store a bunch of user or app settings it might be a nice method with all the advantages of XML storage and exchange possibilities.
>
>/gustav
>
>  
>
>>>>stuart at lexacorp.com.pg 20-01-2006 00:48 >>>
>>>>        
>>>>
>On 19 Jan 2006 at 15:00, Charlotte Foust wrote:
>
>  
>
>>Actually, the XML files wind up with a structure very similar to the ini
>>files but you don't need API calls to read them.
>>    
>>
>
>So how  would you create, then read an XML file to store a backend server 
>path?
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From Lambert.Heenan at AIG.com  Fri Jan 20 15:22:23 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Fri, 20 Jan 2006 16:22:23 -0500
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1BC6E804@xlivmbx21.aig.com>

Here's an example of creating named ranges....

Sub Excel_CreateNamedRange(sPath As String, sRangeName As String,  _  
	sSheetName As String, Optional sRegionStart As String = "A1")
' Creates a named range (sRangeName) in the given spreadsheet (sPath)
' on the given worksheet (sSheetName).
' The region of data to include in the named range includes the cell address
in sRegionStart
    Dim xlApp As Excel.Application

    Dim rng As String
    
    'Check to see if the file name passed in to
    'the procedure is valid
    If Not FileExists(sPath) Then '
        MsgBox sPath & " isn't a valid path!"
        Exit Sub
    Else
        Set xlApp = CreateObject("Excel.Application")
        'xlApp.Visible = True
        xlApp.Workbooks.Open sPath
        xlApp.Worksheets(sSheetName).Activate
        xlApp.ActiveSheet.Range(sRegionStart).Select
        rng = xlApp.Selection.CurrentRegion.Address

        xlApp.ActiveWorkbook.Names.Add sRangeName, "=" & sSheetName & "!" &
rng
    End If
    Excel_CloseWorkBook xlApp, True
    Set xlApp = Nothing
End Sub

And the routines it uses...

Function FileExists(strFile As String) As Boolean
  ' Comments  : Determines if the file exists
  '             Works for hidden files and folders
  ' Parameters: strFile - file to check
  ' Returns   : True if the file exists, otherwise false
  Dim intAttr As Integer
  Dim errnum As Long
  On Error Resume Next
  intAttr = GetAttr(strFile)
  errnum = Err.Number
  FileExists = (Err.Number = 0)
End Function


Sub Excel_CloseWorkBook(xlApp As Excel.Application, Optional bSaveChanges As
Boolean = False)
Dim wb As Excel.Workbook
    On Error Resume Next
    If xlApp.Name > "" Then ' forces an error if the xlApp object is not set
    End If
    If Err.Number <> 0 Then Exit Sub
    On Error GoTo 0
        For Each wb In xlApp.Workbooks         'Close all open workbooks
            wb.Close bSaveChanges
        Next wb
    xlApp.UserControl = False
    Set xlApp = Nothing
End Sub



HTH

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 20, 2006 3:08 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Syntax for seeing named range in excel


Gustav,

>Nice to hear. Please let me leave that as the quote of the week!

Well, you know how it goes with this list, there is so much traffic that you
have to ignore what you don't use.

I just don't use Excel much for my own purposes.  I am moving this summer to
North Carolina and have to get real about my money so this last week I did a
"Income/Expense" workbook with three worksheets for income, expenses and
credit.  It wasn't until I started naming ranges there and then using the
names that I discovered just how cool they are.

>So, everyone else, Named Ranges are so simple to apply and use, the 
>feature
has been there since "forever", but still most users and many programmers
don't know about it, thus wasting time hammering primitive cell coordinates
into formulas and code.

Amen Brother!  

Now I need to figure out how to CREATE named ranges when I build a
spreadsheet in VBA.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Friday, January 20, 2006 2:05 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

Nice to hear. Please let me leave that as the quote of the week!

However, I haven't missed an opportunity to mention this through the
years(!) - speaking for deaf ears?

So, everyone else, Named Ranges are so simple to apply and use, the feature
has been there since "forever", but still most users and many programmers
don't know about it, thus wasting time hammering primitive cell coordinates
into formulas and code.

/gustav

>>> jwcolby at ColbyConsulting.com 20-01-2006 19:40:29 >>>

I just really discovered named ranges and boy is THAT cool, even inside the
spreadsheet.


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From robert at servicexp.com  Fri Jan 20 16:26:36 2006
From: robert at servicexp.com (Robert Gracie)
Date: Fri, 20 Jan 2006 17:26:36 -0500
Subject: [AccessD] MDE & Otter package installers
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CE4@gbsserver.GBS.local>

Hey Rocky, 
 Be careful, unless you set the DDL property to True when creating the
property, It's fairly simple to bypass the properties.  


Robert Gracie
www.gbsysnow.com


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Friday, January 20, 2006 12:45 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] MDE & Otter package installers

Joe:

SOme of the objects, like queries, are still visible unless you do more
locking:

You can add some locking code like :

Sub SetStartupProperties(TheOpeningForm As String)

If boolTrapErrors = True Then On Error GoTo Err_SetStartupProperties


    ChangeProperty "StartupForm", dbText, TheOpeningForm
    ChangeProperty "StartupShowDBWindow", dbBoolean, False
    ChangeProperty "StartupShowStatusBar", dbBoolean, False
    ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
    ChangeProperty "AllowFullMenus", dbBoolean, False
    ChangeProperty "AllowBreakIntoCode", dbBoolean, False
    ChangeProperty "AllowSpecialKeys", dbBoolean, False
    ChangeProperty "AllowBypassKey", dbBoolean, False
    ChangeProperty "MenuBar", dbBoolean, False
   

Exit_SetStartupProperties:
Exit Sub

Err_SetStartupProperties:

    Select Case Err
    Case 0      '.insert Errors you wish to ignore here
        Resume Next
    Case Else   '.All other errors will trap
        Beep
        DoCmd.OpenForm "frmErrorMessage ", , , , , , "Error: " &
Err.Number & " - " & Err.Description & vbCrLf & "In: 
ezmrp-opener.SetStartupProperties"
        Resume Exit_SetStartupProperties
    End Select

    Resume 0    '.FOR TROUBLESHOOTING

End Sub

where the change property function:

Function ChangeProperty(strPropName As String, varPropType As Variant,
varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

Not my code.  I cribbed it from somewhere - the ADH I think.  But you
also need unlocking code and a back door to get back into your mde.


Rocky


Joe Hecht wrote:
> How locked is my project when I make an MDE or use VSTO or
> other install packages.
>
>  
>
> If I make a label for a text box and caption it auto, can
> they come back & change the caption to car as an example?
>
>  
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>  
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From andy at minstersystems.co.uk  Fri Jan 20 16:06:31 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 20 Jan 2006 22:06:31 -0000
Subject: [AccessD] Syntax for seeing named range in excel
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF47@INFOSERVER04.infostat.local>
Message-ID: <004201c61e0d$c4eafb20$851c0c54@minster33c3r25>

They were even in early versions of 123 when I was doing major stuff with
that decades ago. /Range Name .... Aaaah, memories!

-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Charlotte Foust
> Sent: 20 January 2006 19:12
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Syntax for seeing named range in excel
> 
> 
> It's funny, but named ranges have been around since at least 
> Excel 5 that I can remember, maybe longer, and yet they seem 
> to be so obscure. I don't use Excel much, but I did at one 
> time, and I couldn't have built the pseudo-databases I did 
> (for Macs at the time, which didn't have much of the real 
> thing) without making extensive use of named ranges. They're so EASY!!
> 
> Charlotte Foust
> 
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gustav Brock
> Sent: Friday, January 20, 2006 11:05 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Syntax for seeing named range in excel
> 
> 
> Hi John
> 
> Nice to hear. Please let me leave that as the quote of the week!
> 
> However, I haven't missed an opportunity to mention this through the
> years(!) - speaking for deaf ears?
> 
> So, everyone else, Named Ranges are so simple to apply and 
> use, the feature has been there since "forever", but still 
> most users and many programmers don't know about it, thus 
> wasting time hammering primitive cell coordinates into 
> formulas and code.
> 
> /gustav
> 
> >>> jwcolby at ColbyConsulting.com 20-01-2006 19:40:29 >>>
> 
> I just really discovered named ranges and boy is THAT cool, 
> even inside the spreadsheet.
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From bchacc at san.rr.com  Fri Jan 20 17:00:37 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Fri, 20 Jan 2006 15:00:37 -0800
Subject: [AccessD] MDE & Otter package installers
In-Reply-To: <3C6BD610FA11044CADFC8C13E6D5508F042CE4@gbsserver.GBS.local>
References: <3C6BD610FA11044CADFC8C13E6D5508F042CE4@gbsserver.GBS.local>
Message-ID: <43D16B95.4090905@san.rr.com>

What?  What?!  What's the DDL property?  I wonder if I sent you my mde 
you could see if you could crack it?  I thought I was being so careful.  
At worst it would expose the queries, yes?  The back end is an mdb and 
deliberately exposed. I'm just trying to protect the front end.

TIA

Rocky


Robert Gracie wrote:
> Hey Rocky, 
>  Be careful, unless you set the DDL property to True when creating the
> property, It's fairly simple to bypass the properties.  
>
>
> Robert Gracie
> www.gbsysnow.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Friday, January 20, 2006 12:45 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] MDE & Otter package installers
>
> Joe:
>
> SOme of the objects, like queries, are still visible unless you do more
> locking:
>
> You can add some locking code like :
>
> Sub SetStartupProperties(TheOpeningForm As String)
>
> If boolTrapErrors = True Then On Error GoTo Err_SetStartupProperties
>
>
>     ChangeProperty "StartupForm", dbText, TheOpeningForm
>     ChangeProperty "StartupShowDBWindow", dbBoolean, False
>     ChangeProperty "StartupShowStatusBar", dbBoolean, False
>     ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
>     ChangeProperty "AllowFullMenus", dbBoolean, False
>     ChangeProperty "AllowBreakIntoCode", dbBoolean, False
>     ChangeProperty "AllowSpecialKeys", dbBoolean, False
>     ChangeProperty "AllowBypassKey", dbBoolean, False
>     ChangeProperty "MenuBar", dbBoolean, False
>    
>
> Exit_SetStartupProperties:
> Exit Sub
>
> Err_SetStartupProperties:
>
>     Select Case Err
>     Case 0      '.insert Errors you wish to ignore here
>         Resume Next
>     Case Else   '.All other errors will trap
>         Beep
>         DoCmd.OpenForm "frmErrorMessage ", , , , , , "Error: " &
> Err.Number & " - " & Err.Description & vbCrLf & "In: 
> ezmrp-opener.SetStartupProperties"
>         Resume Exit_SetStartupProperties
>     End Select
>
>     Resume 0    '.FOR TROUBLESHOOTING
>
> End Sub
>
> where the change property function:
>
> Function ChangeProperty(strPropName As String, varPropType As Variant,
> varPropValue As Variant) As Integer
>     Dim dbs As Object, prp As Variant
>     Const conPropNotFoundError = 3270
>
>     Set dbs = CurrentDb
>     On Error GoTo Change_Err
>     dbs.Properties(strPropName) = varPropValue
>     ChangeProperty = True
>
> Change_Bye:
>     Exit Function
>
> Change_Err:
>     If Err = conPropNotFoundError Then    ' Property not found.
>         Set prp = dbs.CreateProperty(strPropName, _
>             varPropType, varPropValue)
>         dbs.Properties.Append prp
>         Resume Next
>     Else
>         ' Unknown error.
>         ChangeProperty = False
>         Resume Change_Bye
>     End If
> End Function
>
> Not my code.  I cribbed it from somewhere - the ADH I think.  But you
> also need unlocking code and a back door to get back into your mde.
>
>
> Rocky
>
>
> Joe Hecht wrote:
>   
>> How locked is my project when I make an MDE or use VSTO or
>> other install packages.
>>
>>  
>>
>> If I make a label for a text box and caption it auto, can
>> they come back & change the caption to car as an example?
>>
>>  
>>
>> Joe Hecht
>>
>> jmhecht at earthlink.net
>>
>>  
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From robert at servicexp.com  Fri Jan 20 17:53:03 2006
From: robert at servicexp.com (Robert Gracie)
Date: Fri, 20 Jan 2006 18:53:03 -0500
Subject: [AccessD] MDE & Otter package installers
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CE5@gbsserver.GBS.local>

Rocky
 I'm fairly certain I could open your mde and expose at the very least
the database container.

>From Help...

Optional. A Variant (Boolean subtype) that indicates whether or not the
Property is a DDL object. The default is False. If DDL is True, users
can't change or delete this Property object unless they have
dbSecWriteDef permission.

Check this out also:

http://www.mvps.org/access/general/gen0040.htm

 


Robert Gracie
www.gbsysnow.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Friday, January 20, 2006 6:46 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] MDE & Otter package installers

What?  What?!  What's the DDL property?  I wonder if I sent you my mde
you could see if you could crack it?  I thought I was being so careful.

At worst it would expose the queries, yes?  The back end is an mdb and
deliberately exposed. I'm just trying to protect the front end.

TIA

Rocky


Robert Gracie wrote:
> Hey Rocky,
>  Be careful, unless you set the DDL property to True when creating the

> property, It's fairly simple to bypass the properties.
>
>
> Robert Gracie
> www.gbsysnow.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
Smolin
> - Beach Access Software
> Sent: Friday, January 20, 2006 12:45 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] MDE & Otter package installers
>
> Joe:
>
> SOme of the objects, like queries, are still visible unless you do
more
> locking:
>
> You can add some locking code like :
>
> Sub SetStartupProperties(TheOpeningForm As String)
>
> If boolTrapErrors = True Then On Error GoTo Err_SetStartupProperties
>
>
>     ChangeProperty "StartupForm", dbText, TheOpeningForm
>     ChangeProperty "StartupShowDBWindow", dbBoolean, False
>     ChangeProperty "StartupShowStatusBar", dbBoolean, False
>     ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
>     ChangeProperty "AllowFullMenus", dbBoolean, False
>     ChangeProperty "AllowBreakIntoCode", dbBoolean, False
>     ChangeProperty "AllowSpecialKeys", dbBoolean, False
>     ChangeProperty "AllowBypassKey", dbBoolean, False
>     ChangeProperty "MenuBar", dbBoolean, False
>    
>
> Exit_SetStartupProperties:
> Exit Sub
>
> Err_SetStartupProperties:
>
>     Select Case Err
>     Case 0      '.insert Errors you wish to ignore here
>         Resume Next
>     Case Else   '.All other errors will trap
>         Beep
>         DoCmd.OpenForm "frmErrorMessage ", , , , , , "Error: " &
> Err.Number & " - " & Err.Description & vbCrLf & "In: 
> ezmrp-opener.SetStartupProperties"
>         Resume Exit_SetStartupProperties
>     End Select
>
>     Resume 0    '.FOR TROUBLESHOOTING
>
> End Sub
>
> where the change property function:
>
> Function ChangeProperty(strPropName As String, varPropType As Variant,
> varPropValue As Variant) As Integer
>     Dim dbs As Object, prp As Variant
>     Const conPropNotFoundError = 3270
>
>     Set dbs = CurrentDb
>     On Error GoTo Change_Err
>     dbs.Properties(strPropName) = varPropValue
>     ChangeProperty = True
>
> Change_Bye:
>     Exit Function
>
> Change_Err:
>     If Err = conPropNotFoundError Then    ' Property not found.
>         Set prp = dbs.CreateProperty(strPropName, _
>             varPropType, varPropValue)
>         dbs.Properties.Append prp
>         Resume Next
>     Else
>         ' Unknown error.
>         ChangeProperty = False
>         Resume Change_Bye
>     End If
> End Function
>
> Not my code.  I cribbed it from somewhere - the ADH I think.  But you
> also need unlocking code and a back door to get back into your mde.
>
>
> Rocky
>
>
> Joe Hecht wrote:
>   
>> How locked is my project when I make an MDE or use VSTO or
>> other install packages.
>>
>>  
>>
>> If I make a label for a text box and caption it auto, can
>> they come back & change the caption to car as an example?
>>
>>  
>>
>> Joe Hecht
>>
>> jmhecht at earthlink.net
>>
>>  
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From bchacc at san.rr.com  Fri Jan 20 17:45:19 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Fri, 20 Jan 2006 15:45:19 -0800
Subject: [AccessD] MDE & Otter package installers
In-Reply-To: <3C6BD610FA11044CADFC8C13E6D5508F042CE5@gbsserver.GBS.local>
References: <3C6BD610FA11044CADFC8C13E6D5508F042CE5@gbsserver.GBS.local>
Message-ID: <43D1760F.9050107@san.rr.com>

Robert:

So if I change

Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)

to 

Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue, True)

will that prevent users from deleting and changing the property?

However, the link says: " If /DDL/ is *True*, users can't change or delete this *Property* object unless they have *dbSecWriteDef*          permission."

Do you know what dbSecWriteDef is and how a user gets it?

TIA

Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com





Robert Gracie wrote:
> Rocky
>  I'm fairly certain I could open your mde and expose at the very least
> the database container.
>
> >From Help...
>
> Optional. A Variant (Boolean subtype) that indicates whether or not the
> Property is a DDL object. The default is False. If DDL is True, users
> can't change or delete this Property object unless they have
> dbSecWriteDef permission.
>
> Check this out also:
>
> http://www.mvps.org/access/general/gen0040.htm
>
>  
>
>
> Robert Gracie
> www.gbsysnow.com
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Friday, January 20, 2006 6:46 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] MDE & Otter package installers
>
> What?  What?!  What's the DDL property?  I wonder if I sent you my mde
> you could see if you could crack it?  I thought I was being so careful.
>
> At worst it would expose the queries, yes?  The back end is an mdb and
> deliberately exposed. I'm just trying to protect the front end.
>
> TIA
>
> Rocky
>
>
> Robert Gracie wrote:
>   
>> Hey Rocky,
>>  Be careful, unless you set the DDL property to True when creating the
>>     
>
>   
>> property, It's fairly simple to bypass the properties.
>>
>>
>> Robert Gracie
>> www.gbsysnow.com
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>     
> Smolin
>   
>> - Beach Access Software
>> Sent: Friday, January 20, 2006 12:45 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] MDE & Otter package installers
>>
>> Joe:
>>
>> SOme of the objects, like queries, are still visible unless you do
>>     
> more
>   
>> locking:
>>
>> You can add some locking code like :
>>
>> Sub SetStartupProperties(TheOpeningForm As String)
>>
>> If boolTrapErrors = True Then On Error GoTo Err_SetStartupProperties
>>
>>
>>     ChangeProperty "StartupForm", dbText, TheOpeningForm
>>     ChangeProperty "StartupShowDBWindow", dbBoolean, False
>>     ChangeProperty "StartupShowStatusBar", dbBoolean, False
>>     ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
>>     ChangeProperty "AllowFullMenus", dbBoolean, False
>>     ChangeProperty "AllowBreakIntoCode", dbBoolean, False
>>     ChangeProperty "AllowSpecialKeys", dbBoolean, False
>>     ChangeProperty "AllowBypassKey", dbBoolean, False
>>     ChangeProperty "MenuBar", dbBoolean, False
>>    
>>
>> Exit_SetStartupProperties:
>> Exit Sub
>>
>> Err_SetStartupProperties:
>>
>>     Select Case Err
>>     Case 0      '.insert Errors you wish to ignore here
>>         Resume Next
>>     Case Else   '.All other errors will trap
>>         Beep
>>         DoCmd.OpenForm "frmErrorMessage ", , , , , , "Error: " &
>> Err.Number & " - " & Err.Description & vbCrLf & "In: 
>> ezmrp-opener.SetStartupProperties"
>>         Resume Exit_SetStartupProperties
>>     End Select
>>
>>     Resume 0    '.FOR TROUBLESHOOTING
>>
>> End Sub
>>
>> where the change property function:
>>
>> Function ChangeProperty(strPropName As String, varPropType As Variant,
>> varPropValue As Variant) As Integer
>>     Dim dbs As Object, prp As Variant
>>     Const conPropNotFoundError = 3270
>>
>>     Set dbs = CurrentDb
>>     On Error GoTo Change_Err
>>     dbs.Properties(strPropName) = varPropValue
>>     ChangeProperty = True
>>
>> Change_Bye:
>>     Exit Function
>>
>> Change_Err:
>>     If Err = conPropNotFoundError Then    ' Property not found.
>>         Set prp = dbs.CreateProperty(strPropName, _
>>             varPropType, varPropValue)
>>         dbs.Properties.Append prp
>>         Resume Next
>>     Else
>>         ' Unknown error.
>>         ChangeProperty = False
>>         Resume Change_Bye
>>     End If
>> End Function
>>
>> Not my code.  I cribbed it from somewhere - the ADH I think.  But you
>> also need unlocking code and a back door to get back into your mde.
>>
>>
>> Rocky
>>
>>
>> Joe Hecht wrote:
>>   
>>     
>>> How locked is my project when I make an MDE or use VSTO or
>>> other install packages.
>>>
>>>  
>>>
>>> If I make a label for a text box and caption it auto, can
>>> they come back & change the caption to car as an example?
>>>
>>>  
>>>
>>> Joe Hecht
>>>
>>> jmhecht at earthlink.net
>>>
>>>  
>>>
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From robert at servicexp.com  Fri Jan 20 18:24:56 2006
From: robert at servicexp.com (Robert Gracie)
Date: Fri, 20 Jan 2006 19:24:56 -0500
Subject: [AccessD] MDE & Otter package installers
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CE7@gbsserver.GBS.local>

Rocky,
 You need to first delete the properties, then using an account that has
administrative privileges (Dev mdw.) recreate the properties, setting
the fourth property (DDL) to True.  This way, ONLY users with
Administrative (or dbSecWriteDef) can "set the properties". 

 If you are protecting the front end, then I would image that you are
shipping a an mdw file that has all administrative privileges removed.
You should ALWAYS build a "Dev" mdw to work with your object and ship
the FE with a user mdw.


Robert Gracie
www.gbsysnow.com



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Friday, January 20, 2006 7:16 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] MDE & Otter package installers

Robert:

So if I change

Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)

to 

Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue, True)

will that prevent users from deleting and changing the property?

However, the link says: " If /DDL/ is *True*, users can't change or
delete this *Property* object unless they have *dbSecWriteDef*
permission."

Do you know what dbSecWriteDef is and how a user gets it?

TIA

Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com





Robert Gracie wrote:
> Rocky
>  I'm fairly certain I could open your mde and expose at the very least

> the database container.
>
> >From Help...
>
> Optional. A Variant (Boolean subtype) that indicates whether or not 
> the Property is a DDL object. The default is False. If DDL is True, 
> users can't change or delete this Property object unless they have 
> dbSecWriteDef permission.
>
> Check this out also:
>
> http://www.mvps.org/access/general/gen0040.htm
>
>  
>
>
> Robert Gracie
> www.gbsysnow.com
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Friday, January 20, 2006 6:46 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] MDE & Otter package installers
>
> What?  What?!  What's the DDL property?  I wonder if I sent you my mde

> you could see if you could crack it?  I thought I was being so
careful.
>
> At worst it would expose the queries, yes?  The back end is an mdb and

> deliberately exposed. I'm just trying to protect the front end.
>
> TIA
>
> Rocky
>
>
> Robert Gracie wrote:
>   
>> Hey Rocky,
>>  Be careful, unless you set the DDL property to True when creating 
>> the
>>     
>
>   
>> property, It's fairly simple to bypass the properties.
>>
>>
>> Robert Gracie
>> www.gbsysnow.com
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>     
> Smolin
>   
>> - Beach Access Software
>> Sent: Friday, January 20, 2006 12:45 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] MDE & Otter package installers
>>
>> Joe:
>>
>> SOme of the objects, like queries, are still visible unless you do
>>     
> more
>   
>> locking:
>>
>> You can add some locking code like :
>>
>> Sub SetStartupProperties(TheOpeningForm As String)
>>
>> If boolTrapErrors = True Then On Error GoTo Err_SetStartupProperties
>>
>>
>>     ChangeProperty "StartupForm", dbText, TheOpeningForm
>>     ChangeProperty "StartupShowDBWindow", dbBoolean, False
>>     ChangeProperty "StartupShowStatusBar", dbBoolean, False
>>     ChangeProperty "AllowBuiltInToolbars", dbBoolean, False
>>     ChangeProperty "AllowFullMenus", dbBoolean, False
>>     ChangeProperty "AllowBreakIntoCode", dbBoolean, False
>>     ChangeProperty "AllowSpecialKeys", dbBoolean, False
>>     ChangeProperty "AllowBypassKey", dbBoolean, False
>>     ChangeProperty "MenuBar", dbBoolean, False
>>    
>>
>> Exit_SetStartupProperties:
>> Exit Sub
>>
>> Err_SetStartupProperties:
>>
>>     Select Case Err
>>     Case 0      '.insert Errors you wish to ignore here
>>         Resume Next
>>     Case Else   '.All other errors will trap
>>         Beep
>>         DoCmd.OpenForm "frmErrorMessage ", , , , , , "Error: " & 
>> Err.Number & " - " & Err.Description & vbCrLf & "In:
>> ezmrp-opener.SetStartupProperties"
>>         Resume Exit_SetStartupProperties
>>     End Select
>>
>>     Resume 0    '.FOR TROUBLESHOOTING
>>
>> End Sub
>>
>> where the change property function:
>>
>> Function ChangeProperty(strPropName As String, varPropType As 
>> Variant, varPropValue As Variant) As Integer
>>     Dim dbs As Object, prp As Variant
>>     Const conPropNotFoundError = 3270
>>
>>     Set dbs = CurrentDb
>>     On Error GoTo Change_Err
>>     dbs.Properties(strPropName) = varPropValue
>>     ChangeProperty = True
>>
>> Change_Bye:
>>     Exit Function
>>
>> Change_Err:
>>     If Err = conPropNotFoundError Then    ' Property not found.
>>         Set prp = dbs.CreateProperty(strPropName, _
>>             varPropType, varPropValue)
>>         dbs.Properties.Append prp
>>         Resume Next
>>     Else
>>         ' Unknown error.
>>         ChangeProperty = False
>>         Resume Change_Bye
>>     End If
>> End Function
>>
>> Not my code.  I cribbed it from somewhere - the ADH I think.  But you

>> also need unlocking code and a back door to get back into your mde.
>>
>>
>> Rocky
>>
>>
>> Joe Hecht wrote:
>>   
>>     
>>> How locked is my project when I make an MDE or use VSTO or other 
>>> install packages.
>>>
>>>  
>>>
>>> If I make a label for a text box and caption it auto, can they come 
>>> back & change the caption to car as an example?
>>>
>>>  
>>>
>>> Joe Hecht
>>>
>>> jmhecht at earthlink.net
>>>
>>>  
>>>
>>>   
>>>     
>>>       
>>   
>>     
>
>   

--
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jmhecht at earthlink.net  Fri Jan 20 18:07:23 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 20 Jan 2006 16:07:23 -0800
Subject: [AccessD] Read External File for Path String
In-Reply-To: <43D14E3B.30501@shaw.ca>
Message-ID: <000001c61e1e$a864fa80$6701a8c0@HPLaptop>

I have so much to learn I have just ruled out xml for now.
My projects are too small to take advantage of it.

Thanks for the info though.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
MartyConnelly
Sent: Friday, January 20, 2006 12:55 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Read External File for Path String

If you don't have that high a version of Access here is
method of using 
xmldom to read xml file.
rather than ImportXML method.

'?LoadXMLFile("C:\XML\AdviserDetails.xml")
Public Function LoadXMLFile(ByRef AdviserXML As String)

    'On Error GoTo ErrorHandler
    'needs reference set to XML 4.0 and maybe ADO 2.8
    Dim oDOMDocument As MSXML2.DOMDocument40
    Dim oNodeList As IXMLDOMNodeList
    Dim oAdviserDetailsNode As IXMLDOMNode
    Dim oLowestLevelNode As IXMLDOMElement
    Dim objXMLDOMNamedNodeMap As IXMLDOMNamedNodeMap
     Dim xPError As IXMLDOMParseError
    Dim Mydb As Database
    Dim myrs As ADODB.Recordset
    Dim sTempValue As String
    Dim lrec As Long
    Dim lnorec As Long
    Set oDOMDocument = New MSXML2.DOMDocument40

    oDOMDocument.async = False
    oDOMDocument.validateOnParse = True 'you may want to
parse for errors
    oDOMDocument.resolveExternals = False
    oDOMDocument.preserveWhiteSpace = True
 
    'use if xml disk file
      If Not oDOMDocument.Load(AdviserXML) Then
        MsgBox ("XML File error")
             Set xPError = oDOMDocument.parseError
        DOMParseError xPError
      
       End If
    Set oAdviserDetailsNode = oDOMDocument.documentElement
     Debug.Print oDOMDocument.xml
    
  
    'Set Mydb = CurrentDb
    'Set myrs = Mydb.OpenRecordset("NewTable")
 

   'use appropriate XPath expression to select nodes
  
   Set oNodeList =
oAdviserDetailsNode.selectNodes("//BusinessDetails/*")
 
     lnorec = 0
     lrec = 0
     Debug.Print oNodeList.length
     '   myrs.AddNew
    For Each oLowestLevelNode In oNodeList
        sTempValue = oLowestLevelNode.Text
         lrec = lrec + 1
        Select Case oLowestLevelNode.nodeName
            Case "BusinessName"
                   Debug.Print "Business " & sTempValue
                'myrs!BusinessName = sTempValue
            Case "AddressLine1"
                'myrs!AddressLine1 = sTempValue
            Case "AddressLine2"
                'myrs!AddressLine2 = sTempValue
            Case "Suburb"
                'myrs!Suburb = sTempValue
            Case "State"
                'myrs!State = sTempValue
                Debug.Print sTempValue
            Case "Postcode"
                'myrs!Postcode = sTempValue
            Case "PhoneNumber"
             Debug.Print "Phone " & sTempValue
                'myrs!PhoneNumber = sTempValue
            Case "Email"
                'myrs!Email = sTempValue
            Case "FaxNumber"
                'myrs!FaxNumber = sTempValue
        End Select
        If lrec = 9 Then '9 elements in business details
       ' myrs.Update
        lnorec = lnorec + 1
        lrec = 0
       ' myrs.AddNew
        End If
      Next
     
     MsgBox "Records Added=" & lnorec
     ' Set myrs = Nothing
    'Set Mydb = Nothing
    Set oDOMDocument = Nothing
    Set oAdviserDetailsNode = Nothing
    Set objXMLDOMNamedNodeMap = Nothing
    Exit Function

ErrorHandler:

  '  Call NewError.Raise(Err.Number, Err.Source,
Err.Description)

End Function
Sub DOMParseError(xPE As IXMLDOMParseError)

    ' The document failed to load.
    Dim strErrText As String
    ' Obtain the ParseError object
    With xPE
    strErrText = "Your XML Document failed to load" & _
        "due the following error." & vbCrLf & _
        "Error #: " & .errorCode & ": " & xPE.reason & _
        "Line #: " & .Line & vbCrLf & _
        "Line Position: " & .linepos & vbCrLf & _
        "Position In File: " & .filepos & vbCrLf & _
        "Source Text: " & .srcText & vbCrLf & _
        "Document URL: " & .url
    End With
    Debug.Print strErrText

  Dim s As String
  Dim r As String
  Dim i As Long
 
   s = ""
  For i = 1 To xPE.linepos - 1
    s = s & " "
  Next
  r = "XML Error loading " & xPE.url & " * " & xPE.reason
  Debug.Print r
    'show character postion of error; tired of counting
chars in xml file
  If (xPE.Line > 0) Then
    r = "at line " & xPE.Line & ", character " & xPE.linepos
& vbCrLf & _
         xPE.srcText & vbCrLf & s & "^"
  End If
  Debug.Print r
    MsgBox strErrText, vbExclamation
End Sub




--------  "C:\XML\AdviserDetails.xml"  save as UTF-8 not
ANSI in notepad

<?xml version="1.0" encoding="UTF-8"?>
<AdviserDetails ID="AD12345">
    <BusinessDetails>
        <BusinessName>"AD Business Name" </BusinessName>
        <AddressLine1>"AD Address Line 1" </AddressLine1>
        <AddressLine2>"AD Address Line 2" </AddressLine2>
        <Suburb>"AD Suburb" </Suburb>
        <State>"AD State" </State>
        <Postcode>"AD PostCode" </Postcode>
        <PhoneNumber>"AD Phone Number" </PhoneNumber>
        <Email>"AD Email" </Email>
        <FaxNumber>"AD Fax Number" </FaxNumber>
    </BusinessDetails>
</AdviserDetails>

Gustav Brock wrote:

>Hi Stuart
>
>Use A2002+.
>Have an internal table with your path, tblPath.
>
>To export:
>Application.ExportXML acExportTable , "tblPath",
"c:\mypath.xml"
>
>To import:
>CurrentDb.Execute "Delete * From tblPath"
>Application.ImportXML "c:\mypath.xml", acAppendData
>
>To read:
>strPath = DLookup("Path", "tblPath")
>
>Not quite sure how "easy" that is, though in total only
four code lines net are needed.
>However, if you need to store a bunch of user or app
settings it might be a nice method with all the advantages
of XML storage and exchange possibilities.
>
>/gustav
>
>  
>
>>>>stuart at lexacorp.com.pg 20-01-2006 00:48 >>>
>>>>        
>>>>
>On 19 Jan 2006 at 15:00, Charlotte Foust wrote:
>
>  
>
>>Actually, the XML files wind up with a structure very
similar to the ini
>>files but you don't need API calls to read them.
>>    
>>
>
>So how  would you create, then read an XML file to store a
backend server 
>path?
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada



-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jwcolby at ColbyConsulting.com  Fri Jan 20 18:08:02 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 20 Jan 2006 19:08:02 -0500
Subject: [AccessD] Upsize wizard and named queries
Message-ID: <00fc01c61e1e$bf4bb5e0$647aa8c0@ColbyM6805>

I thought that someone said I needed to pull all SQL out of properties and
create named queries so that the upsize wizard could upsize them.  I did so
but I am not seeing any indication that the saved queries are being upsized?
Are they supposed to?  If so, what will happen?  Will the queries be deleted
from the query tab?  What happens to the object properties
(form/combo/list)?  Or is this only for ADPs?  If it is only for ADPs how do
I manually upsize the queries and then how do I replace the queries in the
object properties with the SPs or whatever the equivalent is in SQL Server.

Confused in CT

John W. Colby
www.ColbyConsulting.com 




From vchas at comcast.net  Fri Jan 20 20:24:07 2006
From: vchas at comcast.net (Vinnie Chas)
Date: Fri, 20 Jan 2006 18:24:07 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
Message-ID: <003f01c61e31$c1e26bb0$014bbd43@flagg>

Hi Group,
Access XP mde on windows XP machine
Is there a way to change a reports print margin at runtime? I have a custom
print job to print W2's, W3's 1099's. On the development machine all text
aligns correctly on preprinted forms. When I roll out the mde to clients I'm
finding that depending on their printer, it doesn't line up correctly. I
then have to a just the reports margins for each individual customer. I know
I can do this in a mdb but a mde? Is this possible?

TIA

Vinnie

Vinnie Chas
www.vinniechas.com




From bill_Patten at earthlink.net  Fri Jan 20 20:40:56 2006
From: bill_Patten at earthlink.net (Bill Patten)
Date: Fri, 20 Jan 2006 18:40:56 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
References: <003f01c61e31$c1e26bb0$014bbd43@flagg>
Message-ID: <00da01c61e34$1ba94a90$6501a8c0@BPCS>

I can set the margins on my MDE's but the setting doesn't remain after I 
close the program. It does remain as long as the application is open 
however.

Bill
----- Original Message ----- 
From: "Vinnie Chas" <vchas at comcast.net>
To: <accessd at databaseadvisors.com>
Sent: Friday, January 20, 2006 6:24 PM
Subject: [AccessD] Change report marprint margins at runtime (Access XP )


Hi Group,
Access XP mde on windows XP machine
Is there a way to change a reports print margin at runtime? I have a custom
print job to print W2's, W3's 1099's. On the development machine all text
aligns correctly on preprinted forms. When I roll out the mde to clients I'm
finding that depending on their printer, it doesn't line up correctly. I
then have to a just the reports margins for each individual customer. I know
I can do this in a mdb but a mde? Is this possible?

TIA

Vinnie

Vinnie Chas
www.vinniechas.com


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From bill_Patten at earthlink.net  Fri Jan 20 20:43:27 2006
From: bill_Patten at earthlink.net (Bill Patten)
Date: Fri, 20 Jan 2006 18:43:27 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
References: <003f01c61e31$c1e26bb0$014bbd43@flagg>
Message-ID: <00de01c61e34$75329620$6501a8c0@BPCS>

Oh yes the particular report needs to be in preview mode, then set and it 
will remain as long as the app is open.

Bill
----- Original Message ----- 
From: "Vinnie Chas" <vchas at comcast.net>
To: <accessd at databaseadvisors.com>
Sent: Friday, January 20, 2006 6:24 PM
Subject: [AccessD] Change report marprint margins at runtime (Access XP )


Hi Group,
Access XP mde on windows XP machine
Is there a way to change a reports print margin at runtime? I have a custom
print job to print W2's, W3's 1099's. On the development machine all text
aligns correctly on preprinted forms. When I roll out the mde to clients I'm
finding that depending on their printer, it doesn't line up correctly. I
then have to a just the reports margins for each individual customer. I know
I can do this in a mdb but a mde? Is this possible?

TIA

Vinnie

Vinnie Chas
www.vinniechas.com


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From vchas at comcast.net  Fri Jan 20 21:08:39 2006
From: vchas at comcast.net (Vinnie Chas)
Date: Fri, 20 Jan 2006 19:08:39 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <00de01c61e34$75329620$6501a8c0@BPCS>
Message-ID: <004801c61e37$fabc3230$014bbd43@flagg>

 Currently I have the report to print straight to the printer. I can change
it to preview to accomplish this. But is it possible to save the margin
settings to a table and then have the report use those so?



>>Oh yes the particular report needs to be in preview mode, then set and it
will remain as 
>>long as the app is open.

>>Bill



>Hi Group,
>Access XP mde on windows XP machine
>Is there a way to change a reports print margin at runtime? I have a custom
>print job to print W2's, W3's 1099's. On the development machine all text
>aligns correctly on preprinted forms. When I roll out the mde to clients
I'm
>finding that depending on their printer, it doesn't line up correctly. I
>then have to a just the reports margins for each individual customer. I
know
>I can do this in a mdb but a mde? Is this possible?

>TIA






From jwcolby at ColbyConsulting.com  Fri Jan 20 21:42:33 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Fri, 20 Jan 2006 22:42:33 -0500
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <003f01c61e31$c1e26bb0$014bbd43@flagg>
Message-ID: <00ff01c61e3c$b8f4cd80$647aa8c0@ColbyM6805>

Vinnie, a name from the past.  Haven't seen you around in awhile!

Welcome back.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Vinnie Chas
Sent: Friday, January 20, 2006 9:24 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] Change report marprint margins at runtime (Access XP )

Hi Group,
Access XP mde on windows XP machine
Is there a way to change a reports print margin at runtime? I have a custom
print job to print W2's, W3's 1099's. On the development machine all text
aligns correctly on preprinted forms. When I roll out the mde to clients I'm
finding that depending on their printer, it doesn't line up correctly. I
then have to a just the reports margins for each individual customer. I know
I can do this in a mdb but a mde? Is this possible?

TIA

Vinnie

Vinnie Chas
www.vinniechas.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From artful at rogers.com  Fri Jan 20 22:51:04 2006
From: artful at rogers.com (Arthur Fuller)
Date: Fri, 20 Jan 2006 23:51:04 -0500
Subject: [AccessD] Upsize wizard and named queries
In-Reply-To: <00fc01c61e1e$bf4bb5e0$647aa8c0@ColbyM6805>
Message-ID: <01bd01c61e46$48f07520$8e01a8c0@rock>

It may have been me that suggested this move prior to upsizing. What happens
is a little bit complex:
1. Queries named jc_query1 will arrive in the upsized database as is,
unless:
2. Queries containing an ORDER BY clause will arrive as two queries (since a
view cannot contain an ORDER BY clause).
An ADP is already upsized, since it is already talking to the SQL Server
installation. For better or worse, you got what you get, already.
HTH,
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: January 20, 2006 7:08 PM
To: 'Access Developers discussion and problem solving';
dba-sqlserver at databaseadvisors.com
Subject: [AccessD] Upsize wizard and named queries

I thought that someone said I needed to pull all SQL out of properties and
create named queries so that the upsize wizard could upsize them.  I did so
but I am not seeing any indication that the saved queries are being upsized?
Are they supposed to?  If so, what will happen?  Will the queries be deleted
from the query tab?  What happens to the object properties
(form/combo/list)?  Or is this only for ADPs?  If it is only for ADPs how do
I manually upsize the queries and then how do I replace the queries in the
object properties with the SPs or whatever the equivalent is in SQL Server.

Confused in CT

John W. Colby
www.ColbyConsulting.com 


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From robert at servicexp.com  Fri Jan 20 23:33:41 2006
From: robert at servicexp.com (Robert Gracie)
Date: Sat, 21 Jan 2006 00:33:41 -0500
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CE8@gbsserver.GBS.local>

The best approach is to allow the users to set up the print formatting
requirements, and store those settings in a table... Something like this

Pulled from my Reports class, so hopefully you will get the idea.... Oh
and there is a BUNCH more you can do, this is just a very small example

Public Function BuildAccessReport() As Boolean
Dim RecordSuccBol           As Boolean
Dim ePrintTo                As acView

On Error GoTo HandleErr
If AccessReport = True Then
 If m_ePrintTo <> cOutputToPrinter Then
   ePrintTo = acViewPreview
 End If

   DoCmd.OpenReport m_sReportName, acViewPreview, "", SQL, acHidden
   Set A2KReport = Access.Reports(m_sReportName)
   With Access.Reports(m_sReportName)
    'If printing to the default printer, there is no need to set the
property
      If m_sPrinterName <> "{System Default}" Then
       Set A2KReport.Printer = Application.Printers(m_sPrinterName)
      End If
      
    .Printer.LeftMargin = m_dLeftMargin * TwipsPerInch
    .Printer.RightMargin = m_dRightMargin * TwipsPerInch
    .Printer.TopMargin = m_dTopMargin * TwipsPerInch
    .Printer.BottomMargin = m_dBottomMargin * TwipsPerInch
    
      If m_eOrientation = cLandscape Then
       .Printer.Orientation = acPRORLandscape
      Else
       .Printer.Orientation = acPRORPortrait
      End If
      
    .Printer.Copies = m_lCopies
    
   End With
   DoCmd.OpenReport m_sReportName, ePrintTo
   
   If ePrintTo <> acViewPreview Then
    DoCmd.Close acReport, m_sReportName
   End If

If m_bPrintSuc = True Then
  If PrintRecords(Now, 0, "Printed From: " & m_sCallingForm, m_lRN,
m_lCID) = False Then
    Call ErrorRecordSystem(0, "Print Error", Now, "Failed Record Print
Un-Expected Error In Proc; " & m_sCallingForm, CurrentUser)
  End If
End If
 
End If
ExitHere:
    Exit Function
HandleErr:
  Select Case Err.Number
   Case Else
      'MsgBox Err.BuildError("clsrptReport","BuildAccessReport"),
vbCritical, "Un-Expected Error"
       MsgBox "There has been an error in Procedure:
clsrptReport:BuildAccessReport " & vbCrLf & _
          "Error Number: " & Err.Number & vbCrLf & "Error Description: "
& Err.Description & vbCrLf & _
          "Please Contact " & "The SoftwareVendor" & " for more help
regarding this error. ", vbCritical, "Un-Expected Error"
       Call ErrorRecordSystem(Err.Number, Err.Description, Now,
"Un-Expected Error In Proc; " & "clsrptReport:BuildAccessReport ",
CurrentUser)
  End Select
End Function 


Robert Gracie
www.servicexp.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Vinnie Chas
Sent: Friday, January 20, 2006 10:45 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Change report marprint margins at runtime (Access
XP )

 Currently I have the report to print straight to the printer. I can
change it to preview to accomplish this. But is it possible to save the
margin settings to a table and then have the report use those so?



>>Oh yes the particular report needs to be in preview mode, then set and

>>it
will remain as 
>>long as the app is open.

>>Bill



>Hi Group,
>Access XP mde on windows XP machine
>Is there a way to change a reports print margin at runtime? I have a 
>custom print job to print W2's, W3's 1099's. On the development machine

>all text aligns correctly on preprinted forms. When I roll out the mde 
>to clients
I'm
>finding that depending on their printer, it doesn't line up correctly. 
>I then have to a just the reports margins for each individual customer.

>I
know
>I can do this in a mdb but a mde? Is this possible?

>TIA




--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From max at sherman.org.uk  Sat Jan 21 02:23:08 2006
From: max at sherman.org.uk (Max Sherman)
Date: Sat, 21 Jan 2006 08:23:08 -0000
Subject: [AccessD] Default font for forms etc.
In-Reply-To: <097801c61d1c$ae5650e0$8e01a8c0@rock>
Message-ID: <!&!AAAAAAAAAAAYAAAAAAAAAFuw6yFL/EpPgQyLGek9BtaiSQYAEAAAADxB90RohM5Bs6D7hTduo6YBAAAAAA==@sherman.org.uk>

Arthur,
In Ken Getz, et al (Vol 1), it says that you can set the default global
options.  The one you want is "Default Font Size" (any value between 1 and
127).
There are many other properties you can set, incl "Default Font Color",
"Default Font Name", etc.

It is called with Application.SetOption optionName, Setting
And
Setting = Application.GetOption(optionName).

If you have this publication (mine is for A2000) then it is on p1356 et seq
(Controlling Global Options).  They are all there - billions of them!


Regards
Max
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: 19 January 2006 17:21
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Default font for forms etc.

Where can I instruct Access to change the default font from Arial 8 to Arial
10 (or something else)? I have wandered through the Options dialog and
cannot find this setting. I have need to change this to Arial 10 at least
and have it affect every form I create.
TIA,
Arthur
 


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From Gustav at cactus.dk  Sat Jan 21 06:03:44 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 21 Jan 2006 13:03:44 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d23148.016@cactus.dk>

Hi John

>>> jwcolby at ColbyConsulting.com 20-01-2006 21:08:20 >>>
> Now I need to figure out how to CREATE named ranges when I build a spreadsheet in VBA.

Eh? Isn't this VBA:

-----Original Message-----
Sent: Friday, January 20, 2006 10:31 AM
Subject: Re: [AccessD] Syntax for seeing named range in excel

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

---

Or have you something else in mind?

/gustav



From jwcolby at ColbyConsulting.com  Sat Jan 21 06:48:20 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sat, 21 Jan 2006 07:48:20 -0500
Subject: [AccessD] Syntax for seeing named range in excel
In-Reply-To: <s3d23148.016@cactus.dk>
Message-ID: <010e01c61e88$f605ab30$647aa8c0@ColbyM6805>

I guess my confusion now is how does this whole process work in practice.  

I thought that the "patent" issue was one of "linking to spreadsheets was
illegal", but manipulating them programmatically was OK.  Thus I could not
create a link, it just wouldn't even let me do it, but I could write a
program to open a spreadsheet and do whatever I wanted to it in code.  If
that is true then I can open / update / close / open / update / close a
spreadsheet all I wanted to IN CODE.  If that is NOT true then the first
time I close it I am screwed and have to start all over.

What is the truth here?

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 7:04 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

>>> jwcolby at ColbyConsulting.com 20-01-2006 21:08:20 >>>
> Now I need to figure out how to CREATE named ranges when I build a
spreadsheet in VBA.

Eh? Isn't this VBA:

-----Original Message-----
Sent: Friday, January 20, 2006 10:31 AM
Subject: Re: [AccessD] Syntax for seeing named range in excel

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

---

Or have you something else in mind?

/gustav

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Sat Jan 21 07:26:02 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 21 Jan 2006 14:26:02 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d24491.017@cactus.dk>

Hi Lambert

I've found that you don't need Select for anything else than if the worksheet operates in interactive mode and you wish to display a range for the user. 
Select exists in much code as it is what you get when you use the macro recorder for creating what you may call rough code.

Thus, you can reduce your central code lines like this:

        xlApp.Worksheets(sSheetName).Activate
        rng = Range(sRegionStart).Address
        xlApp.ActiveWorkbook.Names.Add sRangeName, "=" & sSheetName & "!" & rng

Can you specify the range including the $ signs, like:

  $F$5:$J$7

you don't even need Range:

        xlApp.Worksheets(sSheetName).Activate
        xlApp.ActiveWorkbook.Names.Add sRangeName, "=" & sSheetName & "!" & sRegionStart

/gustav

>>> Lambert.Heenan at AIG.com 20-01-2006 22:22:23 >>>
Here's an example of creating named ranges....

Sub Excel_CreateNamedRange(sPath As String, sRangeName As String,  _  
	sSheetName As String, Optional sRegionStart As String = "A1")
' Creates a named range (sRangeName) in the given spreadsheet (sPath)
' on the given worksheet (sSheetName).
' The region of data to include in the named range includes the cell address
in sRegionStart
    Dim xlApp As Excel.Application

    Dim rng As String
    
    'Check to see if the file name passed in to
    'the procedure is valid
    If Not FileExists(sPath) Then '
        MsgBox sPath & " isn't a valid path!"
        Exit Sub
    Else
        Set xlApp = CreateObject("Excel.Application")
        'xlApp.Visible = True
        xlApp.Workbooks.Open sPath
        xlApp.Worksheets(sSheetName).Activate
        xlApp.ActiveSheet.Range(sRegionStart).Select
        rng = xlApp.Selection.CurrentRegion.Address

        xlApp.ActiveWorkbook.Names.Add sRangeName, "=" & sSheetName & "!" &
rng
    End If
    Excel_CloseWorkBook xlApp, True
    Set xlApp = Nothing
End Sub




From Gustav at cactus.dk  Sat Jan 21 07:42:02 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 21 Jan 2006 14:42:02 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d24858.018@cactus.dk>

Hi John

I think it is only the update/append feature the patent covers. 
Though I'm not sure ... I've managed not to install the latest servicepacks and have no intention to do so.

But did you check this class module out:

Can't write to an Excel spreadsheet
http://databaseadvisors.com/mailman/htdig/accessd/2006-January/040857.html 

I haven't tested it as I have no current Excel projects.

/gustav

>>> jwcolby at ColbyConsulting.com 21-01-2006 13:48:20 >>>
I guess my confusion now is how does this whole process work in practice.  

I thought that the "patent" issue was one of "linking to spreadsheets was
illegal", but manipulating them programmatically was OK.  Thus I could not
create a link, it just wouldn't even let me do it, but I could write a
program to open a spreadsheet and do whatever I wanted to it in code.  If
that is true then I can open / update / close / open / update / close a
spreadsheet all I wanted to IN CODE.  If that is NOT true then the first
time I close it I am screwed and have to start all over.

What is the truth here?

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 7:04 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

>>> jwcolby at ColbyConsulting.com 20-01-2006 21:08:20 >>>
> Now I need to figure out how to CREATE named ranges when I build a
spreadsheet in VBA.

Eh? Isn't this VBA:

-----Original Message-----
Sent: Friday, January 20, 2006 10:31 AM
Subject: Re: [AccessD] Syntax for seeing named range in excel

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

---

Or have you something else in mind?

/gustav



From jimdettman at earthlink.net  Sat Jan 21 08:40:43 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Sat, 21 Jan 2006 09:40:43 -0500
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <004801c61e37$fabc3230$014bbd43@flagg>
Message-ID: <NDEALJOEGMMPCDKIFGNFAEMNICAA.jimdettman@earthlink.net>

<<But is it possible to save the margin
settings to a table and then have the report use those so?>>

  Yes.  On The Fly Printing from ATTAC consulting works exactly that way for
MDE's.  They provide their own print dialog and capture all the settings to
a usys<> table to hold all the settings.

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Vinnie Chas
Sent: Friday, January 20, 2006 10:09 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Change report marprint margins at runtime (Access
XP )


 Currently I have the report to print straight to the printer. I can change
it to preview to accomplish this. But is it possible to save the margin
settings to a table and then have the report use those so?



>>Oh yes the particular report needs to be in preview mode, then set and it
will remain as
>>long as the app is open.

>>Bill



>Hi Group,
>Access XP mde on windows XP machine
>Is there a way to change a reports print margin at runtime? I have a custom
>print job to print W2's, W3's 1099's. On the development machine all text
>aligns correctly on preprinted forms. When I roll out the mde to clients
I'm
>finding that depending on their printer, it doesn't line up correctly. I
>then have to a just the reports margins for each individual customer. I
know
>I can do this in a mdb but a mde? Is this possible?

>TIA




--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From Gustav at cactus.dk  Sat Jan 21 09:20:46 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 21 Jan 2006 16:20:46 +0100
Subject: [AccessD] Web designers. Why don't they stick with design?
Message-ID: <s3d25f80.020@cactus.dk>

Hi all, late Friday humour, sort of ...

Look what I've found.
This guy (I'll state his name just as a warning: Bill Gearhart) seems to be one in an endless row of web designers with no knowledge about how Access works, thus he doesn't know what he is talking about:

http://www.aspemporium.com/aspEmporium/tutorials/dontUseMSAccess.asp 

No doubt, Access is not intended for use as backend database for high-volume web sites but this blurb is so full of factual errors and bad coding examples that it should be abandoned.

/gustav



From harkinsss at bellsouth.net  Sat Jan 21 09:45:40 2006
From: harkinsss at bellsouth.net (Susan Harkins)
Date: Sat, 21 Jan 2006 10:45:40 -0500
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <3C6BD610FA11044CADFC8C13E6D5508F042CE8@gbsserver.GBS.local>
Message-ID: <001401c61ea1$c308a750$dfb3d6d1@SUSANONE>

Did you guys know you could store custom settings in the Registry? Easy as
pie -- just wrote about it. I can't believe I didn't know about it years
ago. 

Susan H. 

The best approach is to allow the users to set up the print formatting
requirements, and store those settings in a table... Something like this

Pulled from my Reports class, so hopefully you will get the idea.... Oh and
there is a BUNCH more you can do, this is just a very small example



From tinanfields at torchlake.com  Sat Jan 21 10:02:03 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Sat, 21 Jan 2006 11:02:03 -0500
Subject: [AccessD] Syntax for seeing named range in excel
References: <s3d139a5.010@cactus.dk>
Message-ID: <43D25AFB.4030900@torchlake.com>

John,

Also be sure to name the individual sheets - so much better than getting 
blown away by the change of position of a sheet.  

Named ranges have been around since Lotus 123 - way back.  They really 
make things easier.  A long time ago, I needed to create a tax 
computation for payroll for my church, using whatever software was 
already on the church computer - used a spreadsheet with named ranges 
for all the tax rates and all the minimums, so I could write an IF 
formula, seven layers deep, to compute the deductions for social 
security, fica, medicare.  Each year, all I had to change for the new 
computations were the contents of the named ranges.  It took a while to 
create - and of course, these days, the church has switched to 
QuickBooks for accounting - but, at the time. . . . .

Tina

Gustav Brock wrote:

>Hi John
>
>That's an Excel book you are asking for ...
>Didn't you once work with a fellow fluid in Excel? Or was that in your Mexico days?
>
>I'm certainly no expert in Excel but I've found that if you define everything you touch as ranges and define and use Named Ranges to a degree where you may find it ridiculous (for a single row or column or even a cell) you are pretty well off, as your code becomes much easier to read and maintain. Also, if you are working on an existing file - you can easily adjust the layout of worksheet without changing any code as the Named Ranges will persist.
>
>Further, don't take anything for granted; a worksheet used to be no. 2, one day it is no. 1, so always move it to position 2 if that is important, and so on.
>
>And never ever use Selection unless, of course, you wish to highlight an area for the user in interactive mode.
>
>For your entertainment, I have a single function which has proven extremely useful for me as Excel lookup in a range behaves in a way you - with a database background - would not expect. Not like DLookup. It has in-line documentation as it otherwise for non Excel gurus like me is nearly impossible to understand what it does and why:
>
>Function RLookup( _
>  ByVal rngLookup As Range, _
>  ByVal strField As String, _
>  Optional intSearchOrder As Integer = xlByRows, _
>  Optional intOffset As Integer = 1) _
>  As Variant
>
>' Looks up a value in the named range rngLookup from the cell,
>' offset intOffset rows below or columns right from the found cell.
>'
>' 2000-07-30.
>' Cactus Data ApS, Gustav Brock
>
>' Default intSearchOrder is xlByRows, as named ranges built this way are
>' easily attached by Access.
>  
>  Dim rng As Range
>  Dim intRow As Integer
>  Dim intColumn As Integer
>  
>  ' No special error handling.
>  On Error Resume Next
>
>  If intSearchOrder = xlByRows Then
>    ' Search by rows.
>    ' Read from found row, offset intOffset rows, and found column.
>  Else
>    ' Search by columns.
>    ' Read from found row and found column, offset intOffset columns.
>    intSearchOrder = xlByColumns
>  End If
>  
>  With rngLookup
>    ' Start search from upper left cell in range by starting in lower right cell.
>    ' Search case sensitive for whole words in values only.
>    Set rng = .Find(strField, .Cells(.Rows.Count, .Columns.Count), xlValues, xlWhole, intSearchOrder, , True)
>  End With
>  If Not rng Is Nothing Then
>    ' Searched value found.
>    ' Lookup value to retrieve.
>    With rng
>      intRow = .Row - (intOffset * (intSearchOrder = xlByRows))
>      intColumn = .Column - (intOffset * (intSearchOrder = xlByColumns))
>      ' Return value, offset intOffset rows or columns from cell with found value.
>      RLookup = .Worksheet.Cells(intRow, intColumn).Value
>    End With
>    Set rng = Nothing
>  End If
>
>End Function
>
>/gustav
>
>  
>
>>>>jwcolby at ColbyConsulting.com 20-01-2006 18:25:46 >>>
>>>>        
>>>>
>LOL, all service packs applied so I guess I build a brand new workbook.
>
>Does anyone have a library of functions for doing things out in a
>spreadsheet?  I need to do things like name ranges, lock ranges, format
>ranges etc.
>
>John W. Colby
>www.ColbyConsulting.com 
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com 
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
>Sent: Friday, January 20, 2006 10:31 AM
>To: accessd at databaseadvisors.com 
>Subject: Re: [AccessD] Syntax for seeing named range in excel
>
>Hi John
>
>Yes, it is possible to update a linked xls sheet/range - except if you have
>applied the latest servicepack. 
>
>A Named Range can be created like this:
>
>  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 
>
>or more specific:
>
>  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 
>
>If that Named Range exists, it will be adjusted to the new range settings.
>
>/gustav
>
>  
>
>>>>jwcolby at ColbyConsulting.com 19-01-2006 19:53 >>>
>>>>        
>>>>
>OK oh hero, now is it possible to update the named range through a query?  I
>tried saving the working select query, then opening that and modifying the
>data but that definitely does not work.  Is this part of the "patent
>lawsuit" changes or am I just doing something wrong?  
>
>If a "Update" syntax would work that would be fine.  I am running code
>anyway, not manually updating the data as I was trying to do in the test
>above.
>
>As I mentioned, I have a template with the named ranges all set up.  I would
>like to be able to update that spreadsheet (append data into it) rather than
>have to build up a new spreadsheet.  I can create the spreadsheet but then I
>would need the syntax to create named ranges so I can get the data later -
>using the syntax I just got from you.
>
>
>John W. Colby
>www.ColbyConsulting.com 
>
>  
>




From jwcolby at ColbyConsulting.com  Sat Jan 21 10:44:14 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sat, 21 Jan 2006 11:44:14 -0500
Subject: [AccessD] New excel workbooks
Message-ID: <011201c61ea9$ea5c6d70$647aa8c0@ColbyM6805>

Are workbooks "named" when they are saved in the Workbooks() collection, and
if so does it use the filespec as the name?  If not, how do you specify
switching to a specific new workbook if there are several workbooks in the
workbook collection?

John W. Colby
www.ColbyConsulting.com 




From Gustav at cactus.dk  Sat Jan 21 11:10:27 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 21 Jan 2006 18:10:27 +0100
Subject: [AccessD] New excel workbooks
Message-ID: <s3d27921.022@cactus.dk>

Hi John

  Workbooks.Add 

A new workbook gets the id equal to the count of workbooks.

  lngWorkbooks = Workbooks.Count
  strWorkbookNewName = Workbooks.Item(lngWorkbooks).Name

That's a default localized name like "Book2" etc. until you save it.

/gustav

>>> jwcolby at ColbyConsulting.com 21-01-2006 17:44:14 >>>
Are workbooks "named" when they are saved in the Workbooks() collection, and
if so does it use the filespec as the name?  If not, how do you specify
switching to a specific new workbook if there are several workbooks in the
workbook collection?

John W. Colby
www.ColbyConsulting.com 




From tinanfields at torchlake.com  Sat Jan 21 11:10:49 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Sat, 21 Jan 2006 12:10:49 -0500
Subject: [AccessD] My form has a little problem
References: <17724746D360394AA3BFE5B8D40A9C1BD597@main2.marlow.com>
Message-ID: <43D26B19.2020206@torchlake.com>

First of all, thanks to everyone who responded.  Of course it is 
dangerous to use Name - duh!  I just overlooked that - thanks for 
pointing it out, I have fixed it.  And, yes, I do feel pretty stupid for 
that one.

Second, why did I use a query instead of just querying the table for the 
combo box - it has been my habit to write query of the underlying table 
or tables and use that specific query for such controls.  Sometimes that 
feels like extra work, and I am willing to reconsider my habit - but the 
query gives me just the fields I want for the combo box, and is easy for 
me to understand six months from now when I am trying to figure out how 
I did something and why.  

Drew, perhaps you can teach me something good, here.  The combo box is 
an unbound control,  I can set the Row Source property to:

 SELECT tblStudent!StuLname & ", " & tblStudent!StuFname AS FullName
FROM tblStudent ORDER BY tblStudent.StuLname;

But, I get nothing in the combo box when I do that.

Using the query, my Row Source property is:

SELECT qselStudentName.StuID, qselStudentName.FullName
FROM qselStudentName ORDER BY qselStudentName.StuLname;

My combo box is correctly populated.

So, what is it I need to learn to do in order to directly query the 
underlying table and populate my combobox?  Thanks for taking the time 
to teach me.

Tina

DWUTKA at marlow.com wrote:

>I'm curious, why have the combobox query a query, instead of simply
>querrying the table?  That's an extra step...
>
>Drew
>  
>




From robert at servicexp.com  Sat Jan 21 11:38:02 2006
From: robert at servicexp.com (Robert Gracie)
Date: Sat, 21 Jan 2006 12:38:02 -0500
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CE9@gbsserver.GBS.local>

Susan, 
  Can you share??? I know how to write reg keys, but the way I know how
I would not call it "Easy as pie".... :-)


Robert Gracie
www.gbsysnow.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Saturday, January 21, 2006 11:15 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Change report marprint margins at runtime (Access
XP )

Did you guys know you could store custom settings in the Registry? Easy
as pie -- just wrote about it. I can't believe I didn't know about it
years ago. 

Susan H. 

The best approach is to allow the users to set up the print formatting
requirements, and store those settings in a table... Something like this

Pulled from my Reports class, so hopefully you will get the idea.... Oh
and there is a BUNCH more you can do, this is just a very small example

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From carbonnb at sympatico.ca  Sat Jan 21 11:23:50 2006
From: carbonnb at sympatico.ca (Bryan Carbonnell)
Date: Sat, 21 Jan 2006 12:23:50 -0500
Subject: [AccessD] New excel workbooks
Message-ID: <BAYC1-PASMTP06E349E6656ACD0598DEE3AE1E0@CEZ.ICE>

On 21 Jan 2006 at 18:10, Gustav Brock wrote:

> Hi John
> 
>   Workbooks.Add 
> 
> A new workbook gets the id equal to the count of workbooks.
> 
>   lngWorkbooks = Workbooks.Count
>   strWorkbookNewName = Workbooks.Item(lngWorkbooks).Name
> 
> That's a default localized name like "Book2" etc. until you save it.

You could set a workbook variable to the new workbook when you create 
it.

dim wbkNew as Excel.Workbook

wbkNew = Workbooks.Add

-- 
Bryan Carbonnell - carbonnb at sympatico.ca
Never test for a bug you don't know how to fix.




From Gustav at cactus.dk  Sat Jan 21 11:30:50 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 21 Jan 2006 18:30:50 +0100
Subject: [AccessD] New excel workbooks
Message-ID: <s3d27df4.023@cactus.dk>

Hi Bryan

Oh, of course, much easier.

/gustav

>>> carbonnb at sympatico.ca 21-01-2006 18:23:50 >>>
You could set a workbook variable to the new workbook when you create it.

dim wbkNew as Excel.Workbook

wbkNew = Workbooks.Add

-- 
Bryan Carbonnell - carbonnb at sympatico.ca 
Never test for a bug you don't know how to fix.




From bchacc at san.rr.com  Sat Jan 21 11:32:21 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 21 Jan 2006 09:32:21 -0800
Subject: [AccessD] Sequence number in query
Message-ID: <43D27025.8090308@san.rr.com>

Dear List:

There is a trick to creating a column in a query with a sequence number 
1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?

MTIA

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Sat Jan 21 11:37:53 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 21 Jan 2006 09:37:53 -0800
Subject: [AccessD] A simple graph
Message-ID: <43D27171.9000300@san.rr.com>

My client wants a simple graph displayed on a form.  I don't really want 
to use Excel automation.  Does anyone know if  there something already 
out there which can do this?  A control?  Or a chunk of code on an 
Access library site?

MTIA

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From lmrazek at lcm-res.com  Sat Jan 21 11:53:35 2006
From: lmrazek at lcm-res.com (Lawrence Mrazek)
Date: Sat, 21 Jan 2006 11:53:35 -0600
Subject: [AccessD] A simple graph
In-Reply-To: <43D27171.9000300@san.rr.com>
Message-ID: <013601c61eb3$9a044c30$036fa8c0@hplaptop>

Hi Rocky:

Have you looked into the built-in charting capabilities of Access? I believe
it is Insert | Chart from the form design menu. 

Larry Mrazek
LCM Research, Inc.
www.lcm-res.com
lmrazek at lcm-res.com
ph. 314-432-5886
fx. 314-432-3304

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
Beach Access Software
Sent: Saturday, January 21, 2006 11:38 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] A simple graph

My client wants a simple graph displayed on a form.  I don't really want to
use Excel automation.  Does anyone know if  there something already out
there which can do this?  A control?  Or a chunk of code on an Access
library site?

MTIA

--
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com





From bchacc at san.rr.com  Sat Jan 21 11:57:35 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 21 Jan 2006 09:57:35 -0800
Subject: [AccessD] A simple graph
In-Reply-To: <013601c61eb3$9a044c30$036fa8c0@hplaptop>
References: <013601c61eb3$9a044c30$036fa8c0@hplaptop>
Message-ID: <43D2760F.5020409@san.rr.com>

No.  Thanks.  I'll check that now.

Rocky


Lawrence Mrazek wrote:
> Hi Rocky:
>
> Have you looked into the built-in charting capabilities of Access? I believe
> it is Insert | Chart from the form design menu. 
>
> Larry Mrazek
> LCM Research, Inc.
> www.lcm-res.com
> lmrazek at lcm-res.com
> ph. 314-432-5886
> fx. 314-432-3304
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
> Beach Access Software
> Sent: Saturday, January 21, 2006 11:38 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] A simple graph
>
> My client wants a simple graph displayed on a form.  I don't really want to
> use Excel automation.  Does anyone know if  there something already out
> there which can do this?  A control?  Or a chunk of code on an Access
> library site?
>
> MTIA
>
> --
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From Gustav at cactus.dk  Sat Jan 21 12:26:31 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sat, 21 Jan 2006 19:26:31 +0100
Subject: [AccessD] Sequence number in query
Message-ID: <s3d28b07.024@cactus.dk>

Hi Rocky

If you don't have that many records this simple method may do if you have some unique key:

  SELECT 
    *,
      (SELECT 
        COUNT(*) 
      FROM 
        tblTable AS T 
      WHERE 
        T.[key] <= tblTable.[key];) AS 
    SeqID
  FROM 
    tblTable
  GROUP BY 
    tblTable.[key]
  ORDER BY 
    tblTable.[key];

/gustav

>>> bchacc at san.rr.com 21-01-2006 18:32:21 >>>
Dear List:

There is a trick to creating a column in a query with a sequence number 
1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?

MTIA

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com 




From jwcolby at ColbyConsulting.com  Sat Jan 21 12:40:02 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sat, 21 Jan 2006 13:40:02 -0500
Subject: [AccessD] New excel workbooks
In-Reply-To: <BAYC1-PASMTP06E349E6656ACD0598DEE3AE1E0@CEZ.ICE>
Message-ID: <011901c61eba$17e594f0$647aa8c0@ColbyM6805>

This does assume a reference to Excel however.  I am attempting to make my
code run with the reference (use early binding if available) or not (use
late binding).  I am very meticulously using

#Const EarlyBind = True
#If EarlyBind Then
Private mxlApp As excel.Application
Private mxlBook As Workbook
Private mxlSheet As Worksheet
#Else
Private mxlApp As Object
Private mxlBook As Object
Private mxlSheet As Object
#End If

Etc.

dim wbkNew as Excel.Workbook

Will fail when EarlyBind is false (no reference to the excel lib is
available)

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell
Sent: Saturday, January 21, 2006 12:24 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] New excel workbooks

On 21 Jan 2006 at 18:10, Gustav Brock wrote:

> Hi John
> 
>   Workbooks.Add
> 
> A new workbook gets the id equal to the count of workbooks.
> 
>   lngWorkbooks = Workbooks.Count
>   strWorkbookNewName = Workbooks.Item(lngWorkbooks).Name
> 
> That's a default localized name like "Book2" etc. until you save it.

You could set a workbook variable to the new workbook when you create it.

dim wbkNew as Excel.Workbook

wbkNew = Workbooks.Add

--
Bryan Carbonnell - carbonnb at sympatico.ca Never test for a bug you don't know
how to fix.


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From carbonnb at sympatico.ca  Sat Jan 21 12:46:27 2006
From: carbonnb at sympatico.ca (Bryan Carbonnell)
Date: Sat, 21 Jan 2006 13:46:27 -0500
Subject: [AccessD] New excel workbooks
In-Reply-To: <011901c61eba$17e594f0$647aa8c0@ColbyM6805>
References: <BAYC1-PASMTP06E349E6656ACD0598DEE3AE1E0@CEZ.ICE>
Message-ID: <BAYC1-PASMTP082E7E4E04AF3E3CF52DE5AE1E0@CEZ.ICE>

On 21 Jan 2006 at 13:40, John Colby wrote:

> This does assume a reference to Excel however.  I am attempting to make my
> code run with the reference (use early binding if available) or not (use
> late binding).  I am very meticulously using
> 
> #Const EarlyBind = True
> #If EarlyBind Then
> Private mxlApp As excel.Application
> Private mxlBook As Workbook
> Private mxlSheet As Worksheet
> #Else
> Private mxlApp As Object
> Private mxlBook As Object
> Private mxlSheet As Object
> #End If
> 
> Etc.
> 
> dim wbkNew as Excel.Workbook
> 
> Will fail when EarlyBind is false (no reference to the excel lib is
> available)

True the dim will fail with late binding, but you can still do the 
variable assignment. (using your variables listed above)

dim wbkNew as Object
....
set wbkNew = mxlApp.Workbooks.Add


-- 
Bryan Carbonnell - carbonnb at sympatico.ca
Needing someone is like needing a parachute. If he isn't there the 
first time, chances are you won't be needing him again.




From martyconnelly at shaw.ca  Sat Jan 21 12:52:49 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Sat, 21 Jan 2006 10:52:49 -0800
Subject: [AccessD] A simple graph
References: <013601c61eb3$9a044c30$036fa8c0@hplaptop>
	<43D2760F.5020409@san.rr.com>
Message-ID: <43D28301.9020100@shaw.ca>

If your graph isn't that simple you might want to try this graphing OCX
TeeChart around $300 for developers license.
http://www.steema.com/products/teechart/ax/overview.html

Rocky Smolin - Beach Access Software wrote:

>No.  Thanks.  I'll check that now.
>
>Rocky
>
>
>Lawrence Mrazek wrote:
>  
>
>>Hi Rocky:
>>
>>Have you looked into the built-in charting capabilities of Access? I believe
>>it is Insert | Chart from the form design menu. 
>>
>>Larry Mrazek
>>LCM Research, Inc.
>>www.lcm-res.com
>>lmrazek at lcm-res.com
>>ph. 314-432-5886
>>fx. 314-432-3304
>>
>>-----Original Message-----
>>From: accessd-bounces at databaseadvisors.com
>>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
>>Beach Access Software
>>Sent: Saturday, January 21, 2006 11:38 AM
>>To: Access Developers discussion and problem solving
>>Subject: [AccessD] A simple graph
>>
>>My client wants a simple graph displayed on a form.  I don't really want to
>>use Excel automation.  Does anyone know if  there something already out
>>there which can do this?  A control?  Or a chunk of code on an Access
>>library site?
>>
>>MTIA
>>
>>--
>>Rocky Smolin
>>Beach Access Software
>>858-259-4334
>>www.e-z-mrp.com
>>
>>--
>>AccessD mailing list
>>AccessD at databaseadvisors.com
>>http://databaseadvisors.com/mailman/listinfo/accessd
>>Website: http://www.databaseadvisors.com
>>
>>
>>
>>  
>>    
>>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From jwcolby at ColbyConsulting.com  Sat Jan 21 13:01:17 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sat, 21 Jan 2006 14:01:17 -0500
Subject: [AccessD] New excel workbooks
In-Reply-To: <s3d27921.022@cactus.dk>
Message-ID: <011a01c61ebd$0f6187a0$647aa8c0@ColbyM6805>

Gustav,

Actually, after testing I have determined that workbooks are stored using
the file name minus the path.  Thus X:\test.XLS would create a workbook that
you could access using app.workbooks("test.xls").  This is a little
inconvenient since it means that if I need to access a workbook in the
collection by name, I need to have code that strips out the filename, so I
can feed that in.  Nothing beyond my ability or anything, just extra work to
handle it.

The consumer of my class always knows the FILESPEC of the workbook (because
the filespec is passed in to open it originally), but may not know the
FILENAME of the workbook, thus it would be convenient to allow the user to
apss in the FILESPEC and get at a workbook that way.  In fact my class needs
to handle either the filename or the filespec passed in to the parameter
when requesting a workbook.

This is when the .NET ability to create signatures is handy.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 12:10 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] New excel workbooks

Hi John

  Workbooks.Add 

A new workbook gets the id equal to the count of workbooks.

  lngWorkbooks = Workbooks.Count
  strWorkbookNewName = Workbooks.Item(lngWorkbooks).Name

That's a default localized name like "Book2" etc. until you save it.

/gustav

>>> jwcolby at ColbyConsulting.com 21-01-2006 17:44:14 >>>
Are workbooks "named" when they are saved in the Workbooks() collection, and
if so does it use the filespec as the name?  If not, how do you specify
switching to a specific new workbook if there are several workbooks in the
workbook collection?

John W. Colby
www.ColbyConsulting.com 


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jwcolby at ColbyConsulting.com  Sat Jan 21 13:04:13 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sat, 21 Jan 2006 14:04:13 -0500
Subject: [AccessD] What are templates really?
Message-ID: <011b01c61ebd$787b0c20$647aa8c0@ColbyM6805>

I understand the concept of placing a bunch of code/formatting etc in a
file, calling it a template, and then opening that to "start" a new object
of that type.  But is the template write protected, i.e. if I open one and
attempt to save it it will prompt for a file name or something?  How are
they used by us programmers?

John W. Colby
www.ColbyConsulting.com 




From bheygood at abestsystems.com  Sat Jan 21 13:05:23 2006
From: bheygood at abestsystems.com (Bob Heygood)
Date: Sat, 21 Jan 2006 11:05:23 -0800
Subject: [AccessD] A simple graph
In-Reply-To: <43D27171.9000300@san.rr.com>
Message-ID: <AIEKKBIAKDJNAFGABNJKIEKMDOAA.bheygood@abestsystems.com>

Rocky
If you would have made the last user's group meeting you would have more
info about graphs (charts really) than you could want.
Both myself and Romney did presentations on that very subject.
See our group's site for her excellent code.

bob Heygood



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Rocky Smolin -
Beach Access Software
Sent: Saturday, January 21, 2006 9:38 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] A simple graph


My client wants a simple graph displayed on a form.  I don't really want
to use Excel automation.  Does anyone know if  there something already
out there which can do this?  A control?  Or a chunk of code on an
Access library site?

MTIA

--
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From accessd at shaw.ca  Sat Jan 21 13:24:10 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Sat, 21 Jan 2006 11:24:10 -0800
Subject: [AccessD] Web designers. Why don't they stick with design?
In-Reply-To: <s3d25f80.020@cactus.dk>
Message-ID: <000101c61ec0$41d1cb20$017ba8c0@xpserver>

Amazing... some graduate of the Mary Jo Foley school of computer technology.

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: January 21, 2006 7:21 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Web designers. Why don't they stick with design?

Hi all, late Friday humour, sort of ...

Look what I've found.
This guy (I'll state his name just as a warning: Bill Gearhart) seems to be
one in an endless row of web designers with no knowledge about how Access
works, thus he doesn't know what he is talking about:

http://www.aspemporium.com/aspEmporium/tutorials/dontUseMSAccess.asp 

No doubt, Access is not intended for use as backend database for high-volume
web sites but this blurb is so full of factual errors and bad coding
examples that it should be abandoned.

/gustav

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From accessd at shaw.ca  Sat Jan 21 13:29:37 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Sat, 21 Jan 2006 11:29:37 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <001401c61ea1$c308a750$dfb3d6d1@SUSANONE>
Message-ID: <000201c61ec1$0479a440$017ba8c0@xpserver>

As a matter of fact Susan; 

...found a coding sample somewhere on the web and have been using it for
years (VB4 days/Access97). I traditionally use it to store my applications
local settings so when the user logs in again they are back where they left
off. It is like a cookie for desktops.

Jim  

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: January 21, 2006 7:46 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Change report marprint margins at runtime (Access XP
)

Did you guys know you could store custom settings in the Registry? Easy as
pie -- just wrote about it. I can't believe I didn't know about it years
ago. 

Susan H. 

The best approach is to allow the users to set up the print formatting
requirements, and store those settings in a table... Something like this

Pulled from my Reports class, so hopefully you will get the idea.... Oh and
there is a BUNCH more you can do, this is just a very small example

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From accessd at shaw.ca  Sat Jan 21 13:41:19 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Sat, 21 Jan 2006 11:41:19 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <43D27025.8090308@san.rr.com>
Message-ID: <000301c61ec2$a71137d0$017ba8c0@xpserver>

Hi Rocky:

You mean drop a place holder like this?

SELECT "" AS AddedField1, "" AS AddedField2
FROM MyTable;

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
Beach Access Software
Sent: January 21, 2006 9:32 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Sequence number in query

Dear List:

There is a trick to creating a column in a query with a sequence number 
1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?

MTIA

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jmhecht at earthlink.net  Sat Jan 21 14:38:13 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Sat, 21 Jan 2006 12:38:13 -0800 (GMT-08:00)
Subject: [AccessD] What are templates really?
Message-ID: <22203156.1137875893725.JavaMail.root@elwamui-ovcar.atl.sa.earthlink.net>

John,

In Excel and Word if something is saved as a template with a .dot or .xlt extension you can not save the file as the template.

In Excel if you have a weekly sales report you might each week open sales.xlt and then save as sales week of 01212006 as an example.

-----Original Message-----
>From: John Colby <jwcolby at ColbyConsulting.com>
>Sent: Jan 21, 2006 11:04 AM
>To: 'Access Developers discussion and problem solving' <accessd at databaseadvisors.com>
>Subject: [AccessD] What are templates really?
>
>I understand the concept of placing a bunch of code/formatting etc in a
>file, calling it a template, and then opening that to "start" a new object
>of that type.  But is the template write protected, i.e. if I open one and
>attempt to save it it will prompt for a file name or something?  How are
>they used by us programmers?
>
>John W. Colby
>www.ColbyConsulting.com 
>
>
>-- 
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com



From darsant at gmail.com  Sat Jan 21 15:49:47 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Sat, 21 Jan 2006 15:49:47 -0600
Subject: [AccessD] What are templates really?
In-Reply-To: <011b01c61ebd$787b0c20$647aa8c0@ColbyM6805>
References: <011b01c61ebd$787b0c20$647aa8c0@ColbyM6805>
Message-ID: <53c8e05a0601211349w1f6aa120n820adb04b2fd193a@mail.gmail.com>

On 1/21/06, John Colby <jwcolby at colbyconsulting.com> wrote:
> I understand the concept of placing a bunch of code/formatting etc in a
> file, calling it a template, and then opening that to "start" a new object
> of that type.  But is the template write protected, i.e. if I open one and
> attempt to save it it will prompt for a file name or something?  How are
> they used by us programmers?

Templating in that fashion is more something on the word / excel side,
I'm not sure how much VBA uses templates, but let me explain to you
how the C++ side of templates work:

Say you want a simple function that compares two objects of the same type.

You could go through and define this two ways, IE you could do:

CompareInt
CompareFloat
CompareDouble
etc

Or instead, if you wanted to think about it as a template, you make
one function, and just have it compare type T (user defined when they
call the function)

This way, if you call the function on ints, it compares types of ints,
if you call it with doubles, it compares types of doubles. The
function serves as a template for any type of variable you call on it,
as long as A > B means something for that type.
--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From bchacc at san.rr.com  Sat Jan 21 16:13:33 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 21 Jan 2006 14:13:33 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <s3d28b07.024@cactus.dk>
References: <s3d28b07.024@cactus.dk>
Message-ID: <43D2B20D.4080306@san.rr.com>

Gustav:

I'm trying to recall some trick that I've used before in the QBE grid to 
creating a column which numbers the records retrieved from 1. 

Rocky


Gustav Brock wrote:
> Hi Rocky
>
> If you don't have that many records this simple method may do if you have some unique key:
>
>   SELECT 
>     *,
>       (SELECT 
>         COUNT(*) 
>       FROM 
>         tblTable AS T 
>       WHERE 
>         T.[key] <= tblTable.[key];) AS 
>     SeqID
>   FROM 
>     tblTable
>   GROUP BY 
>     tblTable.[key]
>   ORDER BY 
>     tblTable.[key];
>
> /gustav
>
>   
>>>> bchacc at san.rr.com 21-01-2006 18:32:21 >>>
>>>>         
> Dear List:
>
> There is a trick to creating a column in a query with a sequence number 
> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?
>
> MTIA
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Sat Jan 21 16:17:34 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 21 Jan 2006 14:17:34 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <000301c61ec2$a71137d0$017ba8c0@xpserver>
References: <000301c61ec2$a71137d0$017ba8c0@xpserver>
Message-ID: <43D2B2FE.10203@san.rr.com>

Jim:

No, it was some clever trick in the QBE that would neatly number the 
rows retrieved by the query.  I think using -1 for something had 
something to do with it but I'm not sure.

Rocky


Jim Lawrence wrote:
> Hi Rocky:
>
> You mean drop a place holder like this?
>
> SELECT "" AS AddedField1, "" AS AddedField2
> FROM MyTable;
>
> HTH
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
> Beach Access Software
> Sent: January 21, 2006 9:32 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Sequence number in query
>
> Dear List:
>
> There is a trick to creating a column in a query with a sequence number 
> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?
>
> MTIA
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From wdhindman at bellsouth.net  Sat Jan 21 16:36:42 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Sat, 21 Jan 2006 17:36:42 -0500
Subject: [AccessD] What are templates really?
References: <011b01c61ebd$787b0c20$647aa8c0@ColbyM6805>
Message-ID: <000f01c61edb$270c0c90$6101a8c0@JISREGISTRATION.local>

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/off2000/html/acconExamplesTemplatesFormsReportsS.asp

William

----- Original Message ----- 
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'" 
<accessd at databaseadvisors.com>
Sent: Saturday, January 21, 2006 2:04 PM
Subject: [AccessD] What are templates really?


>I understand the concept of placing a bunch of code/formatting etc in a
> file, calling it a template, and then opening that to "start" a new object
> of that type.  But is the template write protected, i.e. if I open one and
> attempt to save it it will prompt for a file name or something?  How are
> they used by us programmers?
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From wdhindman at bellsouth.net  Sat Jan 21 17:18:41 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Sat, 21 Jan 2006 18:18:41 -0500
Subject: [AccessD] Sequence number in query
References: <000301c61ec2$a71137d0$017ba8c0@xpserver>
	<43D2B2FE.10203@san.rr.com>
Message-ID: <001f01c61ee1$04ae3b40$6101a8c0@JISREGISTRATION.local>

http://ourworld.compuserve.com/homepages/attac-cg/AqryTip.htm#AUTONUM

William

----- Original Message ----- 
From: "Rocky Smolin - Beach Access Software" <bchacc at san.rr.com>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Saturday, January 21, 2006 5:17 PM
Subject: Re: [AccessD] Sequence number in query


> Jim:
>
> No, it was some clever trick in the QBE that would neatly number the
> rows retrieved by the query.  I think using -1 for something had
> something to do with it but I'm not sure.
>
> Rocky
>
>
> Jim Lawrence wrote:
>> Hi Rocky:
>>
>> You mean drop a place holder like this?
>>
>> SELECT "" AS AddedField1, "" AS AddedField2
>> FROM MyTable;
>>
>> HTH
>> Jim
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
>> Beach Access Software
>> Sent: January 21, 2006 9:32 AM
>> To: Access Developers discussion and problem solving
>> Subject: [AccessD] Sequence number in query
>>
>> Dear List:
>>
>> There is a trick to creating a column in a query with a sequence number
>> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?
>>
>> MTIA
>>
>>
>
> -- 
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 




From hkotsch at arcor.de  Sat Jan 21 17:33:57 2006
From: hkotsch at arcor.de (Helmut Kotsch)
Date: Sun, 22 Jan 2006 00:33:57 +0100
Subject: [AccessD] Sequence number in query
In-Reply-To: <43D2B2FE.10203@san.rr.com>
Message-ID: <PKEDLCDKMFCKJDAENFKBGEBDFAAA.hkotsch@arcor.de>

Rocky,
just go to this page and click on download.


http://www.microsoft.com/downloads/release.asp?releaseid=29437

Even though the sample database is in German it should be self-explanatory.

Helmut 







-----Ursprungliche Nachricht-----
Von: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]Im Auftrag von Rocky Smolin
- Beach Access Software
Gesendet: Samstag, 21. Januar 2006 23:18
An: Access Developers discussion and problem solving
Betreff: Re: [AccessD] Sequence number in query


Jim:

No, it was some clever trick in the QBE that would neatly number the 
rows retrieved by the query.  I think using -1 for something had 
something to do with it but I'm not sure.

Rocky


Jim Lawrence wrote:
> Hi Rocky:
>
> You mean drop a place holder like this?
>
> SELECT "" AS AddedField1, "" AS AddedField2
> FROM MyTable;
>
> HTH
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
> Beach Access Software
> Sent: January 21, 2006 9:32 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Sequence number in query
>
> Dear List:
>
> There is a trick to creating a column in a query with a sequence number 
> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?
>
> MTIA
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From stuart at lexacorp.com.pg  Sat Jan 21 18:00:34 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Sun, 22 Jan 2006 10:00:34 +1000
Subject: [AccessD] New excel workbooks
In-Reply-To: <011a01c61ebd$0f6187a0$647aa8c0@ColbyM6805>
References: <s3d27921.022@cactus.dk>
Message-ID: <43D357C2.31627.21BE6D@stuart.lexacorp.com.pg>

On 21 Jan 2006 at 14:01, John Colby wrote:

> Actually, after testing I have determined that workbooks are stored using
> the file name minus the path.  Thus X:\test.XLS would create a workbook that
> you could access using app.workbooks("test.xls").  This is a little
> inconvenient since it means that if I need to access a workbook in the
> collection by name, I need to have code that strips out the filename, so I
> can feed that in.  Nothing beyond my ability or anything, just extra work to
> handle it.
> 

To save you a bit of time, here are my standard filename functions:

Function Directory(Fullpath As String) As String
Directory = Left$(Fullpath, InStrRev(Fullpath, "\"))
End Function
Function FileName(Fullpath As String) As String
    FileName = Right$(Fullpath, Len(Fullpath) - InStrRev(Fullpath, "\"))
End Function
Function FileRoot(FileNm As String) As String
If InStr(FileName(FileNm), ".") > 0 Then
    FileRoot = Left$(FileNm, InStrRev(FileNm, ".") - 1)
Else
  FileRoot = FileName(FileNm)
End If
End Function
Function FileExt(FileNm As String) As String
If InStr(FileName(FileNm), ".") > 0 Then
    FileExt = Right$(FileNm, Len(FileNm) - InStrRev(FileNm, "."))
Else
    FileExt = ""
End If
End Function-- 
Stuart




From vchas at comcast.net  Sat Jan 21 21:53:41 2006
From: vchas at comcast.net (Vinnie Chas)
Date: Sat, 21 Jan 2006 19:53:41 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <3C6BD610FA11044CADFC8C13E6D5508F042CE8@gbsserver.GBS.local>
Message-ID: <006601c61f07$6fc6f5e0$014bbd43@flagg>

Hi Robert ,
Thanks so much for the direction. The following is what I ended up with.
Thanks so much for your help!

Public Function BuildAccessReport() As Boolean
    Dim stDocName As String
   
   'The printer is scaled in twips
   TwipsPerInch = 1440

   stDocName = "rpt1099"
   
   DoCmd.OpenReport stDocName, acViewPreview, , , acHidden

   Set XPReport = Access.Reports(stDocName)
   With Access.Reports(stDocName)
 
    .Printer.LeftMargin = DLookup("LeftMargin", "ReportList") * TwipsPerInch
    .Printer.RightMargin = DLookup("RightMargin", "ReportList") *
TwipsPerInch
    .Printer.TopMargin = DLookup("TopMargin", "ReportList") * TwipsPerInch
    .Printer.BottomMargin = DLookup("BottomMargin", "[ReportList]") *
TwipsPerInch

      
   End With
   DoCmd.OpenReport stDocName, PrintTo
   
   If PrintTo <> acViewPreview Then
    DoCmd.Close acReport, stDocName
   End If

End Function 

Vinnie Chas
www.vinniechas.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Robert Gracie
Sent: Friday, January 20, 2006 9:34 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Change report marprint margins at runtime (Access XP
)

The best approach is to allow the users to set up the print formatting
requirements, and store those settings in a table... Something like this

Pulled from my Reports class, so hopefully you will get the idea.... Oh and
there is a BUNCH more you can do, this is just a very small example

Public Function BuildAccessReport() As Boolean
Dim RecordSuccBol           As Boolean
Dim ePrintTo                As acView

On Error GoTo HandleErr
If AccessReport = True Then
 If m_ePrintTo <> cOutputToPrinter Then
   ePrintTo = acViewPreview
 End If

   DoCmd.OpenReport m_sReportName, acViewPreview, "", SQL, acHidden
   Set A2KReport = Access.Reports(m_sReportName)
   With Access.Reports(m_sReportName)
    'If printing to the default printer, there is no need to set the
property
      If m_sPrinterName <> "{System Default}" Then
       Set A2KReport.Printer = Application.Printers(m_sPrinterName)
      End If
      
    .Printer.LeftMargin = m_dLeftMargin * TwipsPerInch
    .Printer.RightMargin = m_dRightMargin * TwipsPerInch
    .Printer.TopMargin = m_dTopMargin * TwipsPerInch
    .Printer.BottomMargin = m_dBottomMargin * TwipsPerInch
    
      If m_eOrientation = cLandscape Then
       .Printer.Orientation = acPRORLandscape
      Else
       .Printer.Orientation = acPRORPortrait
      End If
      
    .Printer.Copies = m_lCopies
    
   End With
   DoCmd.OpenReport m_sReportName, ePrintTo
   
   If ePrintTo <> acViewPreview Then
    DoCmd.Close acReport, m_sReportName
   End If

If m_bPrintSuc = True Then
  If PrintRecords(Now, 0, "Printed From: " & m_sCallingForm, m_lRN,
m_lCID) = False Then
    Call ErrorRecordSystem(0, "Print Error", Now, "Failed Record Print
Un-Expected Error In Proc; " & m_sCallingForm, CurrentUser)
  End If
End If
 
End If
ExitHere:
    Exit Function
HandleErr:
  Select Case Err.Number
   Case Else
      'MsgBox Err.BuildError("clsrptReport","BuildAccessReport"),
vbCritical, "Un-Expected Error"
       MsgBox "There has been an error in Procedure:
clsrptReport:BuildAccessReport " & vbCrLf & _
          "Error Number: " & Err.Number & vbCrLf & "Error Description: "
& Err.Description & vbCrLf & _
          "Please Contact " & "The SoftwareVendor" & " for more help
regarding this error. ", vbCritical, "Un-Expected Error"
       Call ErrorRecordSystem(Err.Number, Err.Description, Now, "Un-Expected
Error In Proc; " & "clsrptReport:BuildAccessReport ",
CurrentUser)
  End Select
End Function 


Robert Gracie
www.servicexp.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Vinnie Chas
Sent: Friday, January 20, 2006 10:45 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Change report marprint margins at runtime (Access XP
)

 Currently I have the report to print straight to the printer. I can change
it to preview to accomplish this. But is it possible to save the margin
settings to a table and then have the report use those so?



>>Oh yes the particular report needs to be in preview mode, then set and

>>it
will remain as 
>>long as the app is open.

>>Bill



>Hi Group,
>Access XP mde on windows XP machine
>Is there a way to change a reports print margin at runtime? I have a 
>custom print job to print W2's, W3's 1099's. On the development machine

>all text aligns correctly on preprinted forms. When I roll out the mde 
>to clients
I'm
>finding that depending on their printer, it doesn't line up correctly. 
>I then have to a just the reports margins for each individual customer.

>I
know
>I can do this in a mdb but a mde? Is this possible?

>TIA




--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.14.21/236 - Release Date: 1/20/2006




From vchas at comcast.net  Sat Jan 21 22:02:02 2006
From: vchas at comcast.net (Vinnie Chas)
Date: Sat, 21 Jan 2006 20:02:02 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <00ff01c61e3c$b8f4cd80$647aa8c0@ColbyM6805>
Message-ID: <007401c61f08$9a03d660$014bbd43@flagg>

Thanks John.
Nice to know your still here! You'll be seeing more of me here and hopefully
I can give back more than I receive!


Vinnie Chas
www.vinniechas.com 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Friday, January 20, 2006 7:43 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Change report marprint margins at runtime (Access XP
)

Vinnie, a name from the past.  Haven't seen you around in awhile!

Welcome back.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Vinnie Chas
Sent: Friday, January 20, 2006 9:24 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] Change report marprint margins at runtime (Access XP )

Hi Group,
Access XP mde on windows XP machine
Is there a way to change a reports print margin at runtime? I have a custom
print job to print W2's, W3's 1099's. On the development machine all text
aligns correctly on preprinted forms. When I roll out the mde to clients I'm
finding that depending on their printer, it doesn't line up correctly. I
then have to a just the reports margins for each individual customer. I know
I can do this in a mdb but a mde? Is this possible?

TIA

Vinnie

Vinnie Chas
www.vinniechas.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.375 / Virus Database: 267.14.21/236 - Release Date: 1/20/2006




From vchas at comcast.net  Sat Jan 21 22:10:04 2006
From: vchas at comcast.net (Vinnie Chas)
Date: Sat, 21 Jan 2006 20:10:04 -0800
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <001401c61ea1$c308a750$dfb3d6d1@SUSANONE>
Message-ID: <007501c61f09$b9242bc0$014bbd43@flagg>

 Hi Susan,
I would like to learn more about storing custom settings in the Registry. Do
you have a link?

Vinnie Chas
www.vinniechas.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
Sent: Saturday, January 21, 2006 7:46 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Change report marprint margins at runtime (Access XP
)

Did you guys know you could store custom settings in the Registry? Easy as
pie -- just wrote about it. I can't believe I didn't know about it years
ago. 

Susan H. 

The best approach is to allow the users to set up the print formatting
requirements, and store those settings in a table... Something like this

Pulled from my Reports class, so hopefully you will get the idea.... Oh and
there is a BUNCH more you can do, this is just a very small example

--



From adtp at hotmail.com  Sat Jan 21 22:11:25 2006
From: adtp at hotmail.com (A.D.Tejpal)
Date: Sun, 22 Jan 2006 09:41:25 +0530
Subject: [AccessD] A simple graph
References: <43D27171.9000300@san.rr.com>
Message-ID: <BAY12-DAV545BC27895606045C7518CE110@phx.gbl>

Rocky,

    My sample db named ChartsDemo might be of interest to you. It is available at Rogers Access Library (other developers library). Link - http://www.rogersaccesslibrary.com

    It demonstrates a chart displaying blood pressure, pulse and temperature for patients. 

    You could adapt the underlying approach suitably, for your specific needs.

Best wishes,
A.D.Tejpal
--------------

  ----- Original Message ----- 
  From: Rocky Smolin - Beach Access Software 
  To: Access Developers discussion and problem solving 
  Sent: Saturday, January 21, 2006 23:07
  Subject: [AccessD] A simple graph


  My client wants a simple graph displayed on a form.  I don't really want to use Excel automation.  Does anyone know if  there something already out there which can do this?  A control?  Or a chunk of code on an Access library site?

  MTIA
  -- 
  Rocky Smolin
  Beach Access Software
  858-259-4334
  www.e-z-mrp.com


From stuart at lexacorp.com.pg  Sat Jan 21 22:17:42 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Sun, 22 Jan 2006 14:17:42 +1000
Subject: [AccessD] Change report marprint margins at runtime (Access XP )
In-Reply-To: <007501c61f09$b9242bc0$014bbd43@flagg>
References: <001401c61ea1$c308a750$dfb3d6d1@SUSANONE>
Message-ID: <43D39406.16629.10D286B@stuart.lexacorp.com.pg>

On 21 Jan 2006 at 20:10, Vinnie Chas wrote:

>  Hi Susan,
> I would like to learn more about storing custom settings in the Registry. Do
> you have a link?
> 

Try looking at SaveSetting and GetSetting() in Help.

-- 
Stuart




From Gustav at cactus.dk  Sun Jan 22 05:00:33 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sun, 22 Jan 2006 12:00:33 +0100
Subject: [AccessD] Sequence number in query
Message-ID: <s3d373ef.031@cactus.dk>

Hi Rocky

Well, yes, this _is_ the "trick". No magic though, just a modification of your query. Should be piece of apple pie for you ...

There are variations, of course, one using DCount() which basically does the same.

Another one, much faster for large recordsets, is using an external function to generate the running number. Most of these, however, fail if you use the query for viewing or somehow else browse the records or move backwards. 
If this is a problem for you, I have a function (published here some years ago) using a Static which overcomes this limitation.

/gustav

>>> bchacc at san.rr.com 21-01-2006 23:13 >>>
Gustav:

I'm trying to recall some trick that I've used before in the QBE grid to 
creating a column which numbers the records retrieved from 1. 

Rocky


Gustav Brock wrote:
> Hi Rocky
>
> If you don't have that many records this simple method may do if you have some unique key:
>
>   SELECT 
>     *,
>       (SELECT 
>         COUNT(*) 
>       FROM 
>         tblTable AS T 
>       WHERE 
>         T.[key] <= tblTable.[key];) AS 
>     SeqID
>   FROM 
>     tblTable
>   GROUP BY 
>     tblTable.[key]
>   ORDER BY 
>     tblTable.[key];
>
> /gustav
>
>   
>>>> bchacc at san.rr.com 21-01-2006 18:32:21 >>>
>>>>         
> Dear List:
>
> There is a trick to creating a column in a query with a sequence number 
> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?




From Gustav at cactus.dk  Sun Jan 22 05:38:57 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Sun, 22 Jan 2006 12:38:57 +0100
Subject: [AccessD] What are templates really?
Message-ID: <s3d37cff.032@cactus.dk>

Hi John

I guess you are still in Excel world ...

I do it the way you describe.

All Excel code is kept in one Excel write protected "macro" workbook which will never corrupt.
This has code to open a data template, read and manipulate data.
When done, a formatted template is opened, and data is copied from the data workbook.
Finally, some minor data dependant formatting is carried out and the finished (correctly formatted) template is saved as a clean normal xls file.
The data workbook is trashed and the macro workbook is closed.

This is controlled from Access using the RunMacro feature of Excel.

The main advantages are that no corruption of the source Excel files will happen, and that all formatting can be done and maintained outside your code in Access.

/gustav

>>> jwcolby at ColbyConsulting.com 21-01-2006 20:04 >>>
I understand the concept of placing a bunch of code/formatting etc in a
file, calling it a template, and then opening that to "start" a new object
of that type.  But is the template write protected, i.e. if I open one and
attempt to save it it will prompt for a file name or something?  How are
they used by us programmers?

John W. Colby
www.ColbyConsulting.com 




From jwcolby at ColbyConsulting.com  Sun Jan 22 16:59:27 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sun, 22 Jan 2006 17:59:27 -0500
Subject: [AccessD] New excel workbooks
In-Reply-To: <43D357C2.31627.21BE6D@stuart.lexacorp.com.pg>
Message-ID: <018901c61fa7$7f9af8e0$647aa8c0@ColbyM6805>

Thanks, I used them! 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: Saturday, January 21, 2006 7:01 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] New excel workbooks

On 21 Jan 2006 at 14:01, John Colby wrote:

> Actually, after testing I have determined that workbooks are stored 
> using the file name minus the path.  Thus X:\test.XLS would create a 
> workbook that you could access using app.workbooks("test.xls").  This 
> is a little inconvenient since it means that if I need to access a 
> workbook in the collection by name, I need to have code that strips 
> out the filename, so I can feed that in.  Nothing beyond my ability or 
> anything, just extra work to handle it.
> 

To save you a bit of time, here are my standard filename functions:

Function Directory(Fullpath As String) As String Directory = Left$(Fullpath,
InStrRev(Fullpath, "\")) End Function Function FileName(Fullpath As String)
As String
    FileName = Right$(Fullpath, Len(Fullpath) - InStrRev(Fullpath, "\")) End
Function Function FileRoot(FileNm As String) As String If
InStr(FileName(FileNm), ".") > 0 Then
    FileRoot = Left$(FileNm, InStrRev(FileNm, ".") - 1) Else
  FileRoot = FileName(FileNm)
End If
End Function
Function FileExt(FileNm As String) As String If InStr(FileName(FileNm), ".")
> 0 Then
    FileExt = Right$(FileNm, Len(FileNm) - InStrRev(FileNm, ".")) Else
    FileExt = ""
End If
End Function--
Stuart


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From viner at EUnet.yu  Mon Jan 23 04:26:24 2006
From: viner at EUnet.yu (Ervin Brindza)
Date: Mon, 23 Jan 2006 11:26:24 +0100
Subject: [AccessD] Virtual library management database
Message-ID: <0b8101c62007$eaf0d730$0100a8c0@RazvojErvin>

<second attempt>
I was asked to do some voluntary work for some community. I need some ideas in designing a virtual library management database. The database will manage various matherial for amatheur folk dancers, mostly with their home made videos and sound matherial, books, magazines, video tapes, CDs(with many short video films), DVD discs, sound recordings(LP discs, sound casettes etc.) etc. 
So there are two types of entities: "simple"entity(e.g. books or DVD discs with one film) and "complex" (e.g. magazines with articles of various category, CD or DVD discs with more than one video film). The last entity need a main table in a 1 to many relationship with the "sub" table, but the first will have nothing on many side, if I put all of them into these two tables.
For books and DVD discs are important: Title, Author and Category
For video tapes and sound cassettes are important(for each short film): Order No., Name of the film(or song), Lenghth, Category
For magazines(for each article): Title, Author and Category
The main goal of the system is to search on category, so when the user "ask" the system for e.g. Irish step to get all the book, videos, books, articles in one report.
So, my question is: is it clever to put all those various types of entities into one table(and connected table) or to separate each type of entity into own table.
Many thanks for suggestions,
    Ervin

From jwcolby at ColbyConsulting.com  Mon Jan 23 07:12:09 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 23 Jan 2006 08:12:09 -0500
Subject: [AccessD] Setting data into and getting data from Named Ranges
Message-ID: <01ac01c6201e$9e32b9b0$647aa8c0@ColbyM6805>

I am moving right along with my Excel stuff but now I need to watch as data
is poked into named ranges.  But first I have to discover how to poke stuff
into named ranges.  I am finding a lot of code for setting up the named
ranges but not a lot about actually setting a single value into the (single
cell) range, setting a table of data (from Access) into a named range
(multiple cells), and then of course, reading a value from a single cell
named range, or getting data back out of a named range (multiple cells) into
a table.

Does anyone have example code for this?

John W. Colby
www.ColbyConsulting.com 




From Gustav at cactus.dk  Mon Jan 23 07:50:26 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 23 Jan 2006 14:50:26 +0100
Subject: [AccessD] Setting data into and getting data from Named	Ranges
Message-ID: <s3d4ed41.057@cactus.dk>

Hi John

I prefer to setup queries outside Excel to pull data from. If so it is very easy with DAO to pull data into a range:

  Set dbs = DBEngine(0).OpenDatabase(<databasefilename>, , True)
  Set qdf = dbs.QueryDefs(<queryname>)
  qdf.Parameters(0) = lngID
  Set rst = qdf.OpenRecordset
  lngRows = rng.CopyFromRecordset(rst)
  rst.Close
  qdf.Close

To copy data values from one range to another:

  rngDestination = rngSource.Values

To set value of a single cell range:

  rng.Value = varValue

To set the value of a single cell in a multicell range (row and column is relative to the range):

  rng.Cells(lngRows, lngColumns).Value = varValue

You may go beyond that. Study Range.Offset.

Reading is along the same lines:

  varValue = rng.Cells(lngRows, lngColumns).Value

/gustav

>>> jwcolby at ColbyConsulting.com 23-01-2006 14:12:09 >>>
I am moving right along with my Excel stuff but now I need to watch as data
is poked into named ranges.  But first I have to discover how to poke stuff
into named ranges.  I am finding a lot of code for setting up the named
ranges but not a lot about actually setting a single value into the (single
cell) range, setting a table of data (from Access) into a named range
(multiple cells), and then of course, reading a value from a single cell
named range, or getting data back out of a named range (multiple cells) into
a table.

Does anyone have example code for this?

John W. Colby
www.ColbyConsulting.com 




From Lambert.Heenan at AIG.com  Mon Jan 23 08:31:54 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Mon, 23 Jan 2006 08:31:54 -0600
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1C1E5DA5@xlivmbx21.aig.com>

Thanks for your feedback Gustav.

I think what you are saying is that if you know in advance what cells the
named range covers you can pass a range address in in the parameter
sRegionStart  with a value like "F5:J7" of "$G$5:$J$7" and then your
variation on the code will assign a name to that range.

However, my routine was written to handle the situation where you do not
know the extent of the range in advance. Instead you only know for sure that
some cell is within the range. Thus my code passes in an address in
sRegionStart like "A1", and then the execution of the line

xlApp.ActiveSheet.Range(sRegionStart).Select

causes Excel to highlight all the cells in the continuous (strictly -
'contiguous') region that includes the cell already selected (A1). The
subsequent line of code

 rng = xlApp.Selection.CurrentRegion.Address

Then retrieves the address of the complete region and uses this to set the
named range address.

All the highlighting and selecting usually takes place while  the workbook
is opened in hidden mode.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 8:26 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel


Hi Lambert

I've found that you don't need Select for anything else than if the
worksheet operates in interactive mode and you wish to display a range for
the user. 
Select exists in much code as it is what you get when you use the macro
recorder for creating what you may call rough code.

Thus, you can reduce your central code lines like this:

        xlApp.Worksheets(sSheetName).Activate
        rng = Range(sRegionStart).Address
        xlApp.ActiveWorkbook.Names.Add sRangeName, "=" & sSheetName & "!" &
rng

Can you specify the range including the $ signs, like:

  $F$5:$J$7

you don't even need Range:

        xlApp.Worksheets(sSheetName).Activate
        xlApp.ActiveWorkbook.Names.Add sRangeName, "=" & sSheetName & "!" &
sRegionStart

/gustav

>>> Lambert.Heenan at AIG.com 20-01-2006 22:22:23 >>>
Here's an example of creating named ranges....

Sub Excel_CreateNamedRange(sPath As String, sRangeName As String,  _  
	sSheetName As String, Optional sRegionStart As String = "A1") '
Creates a named range (sRangeName) in the given spreadsheet (sPath) ' on the
given worksheet (sSheetName). ' The region of data to include in the named
range includes the cell address in sRegionStart
    Dim xlApp As Excel.Application

    Dim rng As String
    
    'Check to see if the file name passed in to
    'the procedure is valid
    If Not FileExists(sPath) Then '
        MsgBox sPath & " isn't a valid path!"
        Exit Sub
    Else
        Set xlApp = CreateObject("Excel.Application")
        'xlApp.Visible = True
        xlApp.Workbooks.Open sPath
        xlApp.Worksheets(sSheetName).Activate
        xlApp.ActiveSheet.Range(sRegionStart).Select
        rng = xlApp.Selection.CurrentRegion.Address

        xlApp.ActiveWorkbook.Names.Add sRangeName, "=" & sSheetName & "!" &
rng
    End If
    Excel_CloseWorkBook xlApp, True
    Set xlApp = Nothing
End Sub


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From Lambert.Heenan at AIG.com  Mon Jan 23 08:40:47 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Mon, 23 Jan 2006 09:40:47 -0500
Subject: [AccessD] Setting data into and getting data from Named Range	s
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1C1E5DAD@xlivmbx21.aig.com>

John,

Here's some more examples. Feel free to optimize any way you wish..

Setting the value of a single cell. This is pretty inefficient as the
workbook is opened, a cell set and the workbook closed. The code could
easily be modified to just set the cell in an already opened workbook, by
passing in the Workbook object...

Sub Excel_SetCellValue(sFileName As String, nWkSheetNumber As Integer,
strCellAddress As String, varData As Variant, Optional strFormat As String =
"")
Dim xlFile As Excel.Application
Dim xlwb As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim oRng As Excel.Range

        Set xlFile = Excel_OpenWorkBookHidden(sFileName)
        With xlFile
            Set xlwb = .Workbooks(GetFileName(sFileName))
            Set xlSheet = xlwb.Worksheets(nWkSheetNumber)
            .Range(strCellAddress) = varData
            Set oRng = .Range(strCellAddress)
            If strFormat & "" > "" Then oRng.NumberFormat = strFormat
            Set oRng = Nothing
            Set xlSheet = Nothing
            Set xlwb = Nothing
        End With
        Excel_CloseWorkBook xlFile, True

End Sub

Retrieving the value of a single cell. A touch more efficient the workbook
being already opened....

Function Excel_CellData(xls As Excel.Worksheet, nRow As Long, nCol As Long)
As Variant
    With xls
        Excel_CellData = Trim(Nz(.Cells(nRow, nCol), ""))
    End With
End Function


Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Monday, January 23, 2006 8:12 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Setting data into and getting data from Named Ranges


I am moving right along with my Excel stuff but now I need to watch as data
is poked into named ranges.  But first I have to discover how to poke stuff
into named ranges.  I am finding a lot of code for setting up the named
ranges but not a lot about actually setting a single value into the (single
cell) range, setting a table of data (from Access) into a named range
(multiple cells), and then of course, reading a value from a single cell
named range, or getting data back out of a named range (multiple cells) into
a table.

Does anyone have example code for this?

John W. Colby
www.ColbyConsulting.com 


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From Gustav at cactus.dk  Mon Jan 23 08:52:08 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 23 Jan 2006 15:52:08 +0100
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <s3d4fbbb.060@cactus.dk>

Hi Lambert

Well, that's what I thought, but I ran the code for "A1" where A1 to B4 were filled in, but only A1 itself was selected. Tried both in E97 and E2003.

/gustav

>>> Lambert.Heenan at AIG.com 23-01-2006 15:31:54 >>>
Thanks for your feedback Gustav.

I think what you are saying is that if you know in advance what cells the
named range covers you can pass a range address in in the parameter
sRegionStart  with a value like "F5:J7" of "$G$5:$J$7" and then your
variation on the code will assign a name to that range.

However, my routine was written to handle the situation where you do not
know the extent of the range in advance. Instead you only know for sure that
some cell is within the range. Thus my code passes in an address in
sRegionStart like "A1", and then the execution of the line

xlApp.ActiveSheet.Range(sRegionStart).Select

causes Excel to highlight all the cells in the continuous (strictly -
'contiguous') region that includes the cell already selected (A1). The
subsequent line of code

 rng = xlApp.Selection.CurrentRegion.Address

Then retrieves the address of the complete region and uses this to set the
named range address.

All the highlighting and selecting usually takes place while  the workbook
is opened in hidden mode.

Lambert




From jwcolby at ColbyConsulting.com  Mon Jan 23 09:34:22 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 23 Jan 2006 10:34:22 -0500
Subject: [AccessD] Setting data into and getting data from Named Range	s
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1C1E5DAD@xlivmbx21.aig.com>
Message-ID: <000001c62032$7cbbbd90$647aa8c0@ColbyM6805>

Lambert,

But I am trying to work with NAMED RANGES, not cell references.

Function Excel_NamedRangeDataGet(xlwb As Excel.WorkWorkbook, strRangeName)
As Variant
Function Excel_NamedRangeDataSet(xlwb As Excel.WorkWorkbook, strRangeName,
varData)

As opposed to

Function Excel_CellData(xls As Excel.Worksheet, nRow As Long, nCol As Long)
As Variant 

Everyone is waxing poetic over how cool Named Ranges are, and I am too - for
working IN a spreadsheet/book directly.  OTOH, no one is offering code for
using them from VBA running out in Access.  That is what I am trying to
figure out.  I have (finally) figured out how to get/set a single cell named
range.  I can even write the same (single) value to a "table" named range
(to initialize to blank for example).  Now I need to do the same with
reading / writing "tables" from/to named ranges that refer to cell ranges
(square areas of a spreadsheet).

I have a worksheet that I need to fill in with data.  The worksheet has
single cell things such as Contractor name, system name, RFD Number etc.  It
then has AREAS that represent multi-column tables in Access.  I need to
write a 7 column table, up to 200 records, into a named range for that area
in the spreadsheet.  I then need to read back that "table" from the
spreadsheet when it comes back from the contractor.  There is another little
two column / 20 record table I need to write out, then read back when the
(same) spreadsheet comes back.

It is just frustrating, the total lack of information out there for using
named ranges from VBA.  I have found code galore for CREATING the named
ranges via VBA, but a deafening silence on USING the named ranges.  Why in
the world would I want to create them if I can't read/write to them?

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: Monday, January 23, 2006 9:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Setting data into and getting data from Named Range s

John,

Here's some more examples. Feel free to optimize any way you wish..

Setting the value of a single cell. This is pretty inefficient as the
workbook is opened, a cell set and the workbook closed. The code could
easily be modified to just set the cell in an already opened workbook, by
passing in the Workbook object...

Sub Excel_SetCellValue(sFileName As String, nWkSheetNumber As Integer,
strCellAddress As String, varData As Variant, Optional strFormat As String =
"")
Dim xlFile As Excel.Application
Dim xlwb As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim oRng As Excel.Range

        Set xlFile = Excel_OpenWorkBookHidden(sFileName)
        With xlFile
            Set xlwb = .Workbooks(GetFileName(sFileName))
            Set xlSheet = xlwb.Worksheets(nWkSheetNumber)
            .Range(strCellAddress) = varData
            Set oRng = .Range(strCellAddress)
            If strFormat & "" > "" Then oRng.NumberFormat = strFormat
            Set oRng = Nothing
            Set xlSheet = Nothing
            Set xlwb = Nothing
        End With
        Excel_CloseWorkBook xlFile, True

End Sub

Retrieving the value of a single cell. A touch more efficient the workbook
being already opened....

Function Excel_CellData(xls As Excel.Worksheet, nRow As Long, nCol As Long)
As Variant
    With xls
        Excel_CellData = Trim(Nz(.Cells(nRow, nCol), ""))
    End With
End Function


Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Monday, January 23, 2006 8:12 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Setting data into and getting data from Named Ranges


I am moving right along with my Excel stuff but now I need to watch as data
is poked into named ranges.  But first I have to discover how to poke stuff
into named ranges.  I am finding a lot of code for setting up the named
ranges but not a lot about actually setting a single value into the (single
cell) range, setting a table of data (from Access) into a named range
(multiple cells), and then of course, reading a value from a single cell
named range, or getting data back out of a named range (multiple cells) into
a table.

Does anyone have example code for this?

John W. Colby
www.ColbyConsulting.com 


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jwcolby at ColbyConsulting.com  Mon Jan 23 09:34:57 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 23 Jan 2006 10:34:57 -0500
Subject: [AccessD] Setting data into and getting data from Named Ranges
In-Reply-To: <01ac01c6201e$9e32b9b0$647aa8c0@ColbyM6805>
Message-ID: <000101c62032$91664490$647aa8c0@ColbyM6805>

OK, to SET a value:

SomeBook.Names(strRangeName).RefersToRange = val 

To read a value:

SomeBook.Names(strRangeName).RefersToRange

Only tested for single cell ranges, and setting the SAME VALUE into square
ranges ("tables").

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Monday, January 23, 2006 8:12 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Setting data into and getting data from Named Ranges

I am moving right along with my Excel stuff but now I need to watch as data
is poked into named ranges.  But first I have to discover how to poke stuff
into named ranges.  I am finding a lot of code for setting up the named
ranges but not a lot about actually setting a single value into the (single
cell) range, setting a table of data (from Access) into a named range
(multiple cells), and then of course, reading a value from a single cell
named range, or getting data back out of a named range (multiple cells) into
a table.

Does anyone have example code for this?

John W. Colby
www.ColbyConsulting.com 


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Mon Jan 23 10:12:29 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 23 Jan 2006 17:12:29 +0100
Subject: [AccessD] Setting data into and getting data from Named	Range	s
Message-ID: <s3d50ea3.064@cactus.dk>

Hi John

  Set rng = wks.Range(strRangeName)

/gustav

>>> jwcolby at ColbyConsulting.com 23-01-2006 16:34:22 >>>

Everyone is waxing poetic over how cool Named Ranges are, and I am too - for working IN a spreadsheet/book directly. 



From sgeller at cce.umn.edu  Mon Jan 23 10:31:17 2006
From: sgeller at cce.umn.edu (Susan Geller)
Date: Mon, 23 Jan 2006 10:31:17 -0600
Subject: [AccessD] Can't create ADE file b/c of file size -- need
	"lightweight" forms?
Message-ID: <89934FC7BFD7AC40AC64F2A29B0C2D6374CF2F@mail.cce.local>

I have an application that I create as an adp and release as an ade
(same concept as mde) about 2-3 times per year. With this latest
version, I can't create an ADE file.  In searching the MS KB, I found
this article:

http://support.microsoft.com/kb/289686/EN-US/

which suggests that the reason is b/c the file as grown too large. I'm
sure that is the reason.  One suggested workaround is to use
"lightweight" forms and reports.  What does that mean?  Any other work
arounds?

--Susan


Susan B. Geller
Office of Information Systems
College of Continuing Education
University of Minnesota
306 Wesbrook Hall
77 Pleasant Street SE
Minneapolis, MN 55455
Phone:  612-626-4785
Fax:  612-625-2568




From cfoust at infostatsystems.com  Mon Jan 23 10:41:00 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 23 Jan 2006 08:41:00 -0800
Subject: [AccessD] Web designers. Why don't they stick with design?
Message-ID: <F55048AF7E974F429BB24597D7355EEABF48@INFOSERVER04.infostat.local>

I couldn't resist sending him some feedback on the more egregious errors
(like the remark about Access 2000 only supporting simple stored
procedures ...) and I'm sure his extreme spam filter will junk it, but
it felt good to nail him on a couple of points anyhow, including the
need to use different code for Access and SQL Server in .Net. <g>

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 7:21 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Web designers. Why don't they stick with design?


Hi all, late Friday humour, sort of ...

Look what I've found.
This guy (I'll state his name just as a warning: Bill Gearhart) seems to
be one in an endless row of web designers with no knowledge about how
Access works, thus he doesn't know what he is talking about:

http://www.aspemporium.com/aspEmporium/tutorials/dontUseMSAccess.asp 

No doubt, Access is not intended for use as backend database for
high-volume web sites but this blurb is so full of factual errors and
bad coding examples that it should be abandoned.

/gustav

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From bill_Patten at earthlink.net  Mon Jan 23 10:43:27 2006
From: bill_Patten at earthlink.net (Bill Patten)
Date: Mon, 23 Jan 2006 08:43:27 -0800
Subject: [AccessD] Can't create ADE file b/c of file size --
	need"lightweight" forms?
References: <89934FC7BFD7AC40AC64F2A29B0C2D6374CF2F@mail.cce.local>
Message-ID: <001901c6203c$23965860$6501a8c0@BPCS>

Susan,

Since and adp/ade is designed to work with a SQL Server backend, that KB 
probably doesn't apply to you, as it is talking about an MDE that is also 
storing data. I suspect a different problem.


----- Original Message ----- 
From: "Susan Geller" <sgeller at cce.umn.edu>
To: <accessD at databaseadvisors.com>
Sent: Monday, January 23, 2006 8:31 AM
Subject: [AccessD] Can't create ADE file b/c of file size --  
need"lightweight" forms?


I have an application that I create as an adp and release as an ade
(same concept as mde) about 2-3 times per year. With this latest
version, I can't create an ADE file.  In searching the MS KB, I found
this article:

http://support.microsoft.com/kb/289686/EN-US/

which suggests that the reason is b/c the file as grown too large. I'm
sure that is the reason.  One suggested workaround is to use
"lightweight" forms and reports.  What does that mean?  Any other work
arounds?

--Susan


Susan B. Geller
Office of Information Systems
College of Continuing Education
University of Minnesota
306 Wesbrook Hall
77 Pleasant Street SE
Minneapolis, MN 55455
Phone:  612-626-4785
Fax:  612-625-2568


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From cfoust at infostatsystems.com  Mon Jan 23 10:47:43 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 23 Jan 2006 08:47:43 -0800
Subject: [AccessD] Sequence number in query
Message-ID: <F55048AF7E974F429BB24597D7355EEABF49@INFOSERVER04.infostat.local>

Jim Dettman posted a trick several years ago.  Look up Qcntr in the
archives.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Saturday, January 21, 2006 2:18 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Sequence number in query


Jim:

No, it was some clever trick in the QBE that would neatly number the 
rows retrieved by the query.  I think using -1 for something had 
something to do with it but I'm not sure.

Rocky


Jim Lawrence wrote:
> Hi Rocky:
>
> You mean drop a place holder like this?
>
> SELECT "" AS AddedField1, "" AS AddedField2
> FROM MyTable;
>
> HTH
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin - Beach Access Software
> Sent: January 21, 2006 9:32 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Sequence number in query
>
> Dear List:
>
> There is a trick to creating a column in a query with a sequence 
> number
> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall
this?
>
> MTIA
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From Gustav at cactus.dk  Mon Jan 23 11:10:46 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 23 Jan 2006 18:10:46 +0100
Subject: [AccessD] Web designers. Why don't they stick with design?
Message-ID: <s3d51c3e.065@cactus.dk>

Thank you Charlotte, he deserved that.

/gustav

>>> cfoust at infostatsystems.com 23-01-2006 17:41:00 >>>
I couldn't resist sending him some feedback on the more egregious errors
(like the remark about Access 2000 only supporting simple stored
procedures ...) and I'm sure his extreme spam filter will junk it, but
it felt good to nail him on a couple of points anyhow, including the
need to use different code for Access and SQL Server in .Net. <g>

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 7:21 AM
To: accessd at databaseadvisors.com 
Subject: [AccessD] Web designers. Why don't they stick with design?


Hi all, late Friday humour, sort of ...

Look what I've found.
This guy (I'll state his name just as a warning: Bill Gearhart) seems to
be one in an endless row of web designers with no knowledge about how
Access works, thus he doesn't know what he is talking about:

http://www.aspemporium.com/aspEmporium/tutorials/dontUseMSAccess.asp 

No doubt, Access is not intended for use as backend database for
high-volume web sites but this blurb is so full of factual errors and
bad coding examples that it should be abandoned.

/gustav




From jwcolby at ColbyConsulting.com  Mon Jan 23 11:24:30 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 23 Jan 2006 12:24:30 -0500
Subject: [AccessD] Can't create ADE file b/c of file size --
	need"lightweight" forms?
In-Reply-To: <89934FC7BFD7AC40AC64F2A29B0C2D6374CF2F@mail.cce.local>
Message-ID: <001901c62041$df1eab50$647aa8c0@ColbyM6805>

Lightweight means get rid of the code module if there is no code behind
forms.  Forms and reports also open faster if you do that.  

For programmers there are darned few forms where this works however. 


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Geller
Sent: Monday, January 23, 2006 11:31 AM
To: accessD at databaseadvisors.com
Subject: [AccessD] Can't create ADE file b/c of file size --
need"lightweight" forms?

I have an application that I create as an adp and release as an ade (same
concept as mde) about 2-3 times per year. With this latest version, I can't
create an ADE file.  In searching the MS KB, I found this article:

http://support.microsoft.com/kb/289686/EN-US/

which suggests that the reason is b/c the file as grown too large. I'm sure
that is the reason.  One suggested workaround is to use "lightweight" forms
and reports.  What does that mean?  Any other work arounds?

--Susan


Susan B. Geller
Office of Information Systems
College of Continuing Education
University of Minnesota
306 Wesbrook Hall
77 Pleasant Street SE
Minneapolis, MN 55455
Phone:  612-626-4785
Fax:  612-625-2568


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Mon Jan 23 11:38:44 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 23 Jan 2006 18:38:44 +0100
Subject: [AccessD] Setting data into and getting data from Named	Ranges
Message-ID: <s3d522c4.066@cactus.dk>

Hi John

Don't do it that way. Set a range object and read/write from/to it.

  Set wkb = <yourworkbook>
  Set rng = wkb.Range(strRangeName)

Read from a range into an array:

  avarValues = rng.Value

Write from an array into a range:

  rng.Value = avarValues

/gustav

>>> jwcolby at ColbyConsulting.com 23-01-2006 16:34:57 >>>
OK, to SET a value:

SomeBook.Names(strRangeName).RefersToRange = val 

To read a value:

SomeBook.Names(strRangeName).RefersToRange

Only tested for single cell ranges, and setting the SAME VALUE into square
ranges ("tables").

John W. Colby
www.ColbyConsulting.com 




From jwelz at hotmail.com  Mon Jan 23 11:50:19 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Mon, 23 Jan 2006 10:50:19 -0700
Subject: [AccessD] Virtual library management database
In-Reply-To: <0b8101c62007$eaf0d730$0100a8c0@RazvojErvin>
Message-ID: <BAY113-F6E698077799FA18CDB2C8A1100@phx.gbl>

Ervin:

This is a subject on which opinions will vary along lines of what people 
perceive the priorities are.  A flatter file will generally provide better 
performance and a more normalized one will ordinarilly be be both slower and 
more complex to query yet provide greater flexibility.

Generally, it is easier to query if you include general items such as Title 
and Author in a single table that encompasses all categories and types of 
media.  Where a object may not have an attribute  not universal to other 
objects, it makes sense to use an unequal join to such tables to return 
those attributes.  A user search could then return all medai types and all 
relevant attributes on a generic search on a word in the title.  You can 
normalize this as much as necessary by joining tables containing attributes 
of specific media categories.

For example, if you store information about an article in a magazine, your 
base table containing an periodical article name and author could easily be 
queried and be joined to a magazine article table that stores the containing 
Magazine information and page references.  This would allow the user to be 
able to include all types of media in a single search.

If you break your tables along media type lines, it would be necessary to 
union your search results across all the tables to provide an encompassing 
search.  Union queries cannot (in versions of Access I am familiar with) 
include memo fields that may be necessary to contain descriptive informaion.

Using a report as output simplifes things in that you can use a sub report 
for each category, each with its own SQL source.  However, my preference is 
to always provide a list output where a user can click on an item and have 
it open the appropriate form that contains all relevant information with 
appropriate joins, perhaps with the foreign keyed data in subforms.  
Although the Union restriction on memo types will not apply in the case of 
search results in a list box, I find it easier to return results from a 
single table and show the media type and allow futher filtering on type of 
media in the list result.

Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com


>From: "Ervin Brindza" <viner at EUnet.yu>
>
><second attempt>
>I was asked to do some voluntary work for some community. I need some ideas 
>in designing a virtual library management database. The database will 
>manage various matherial for amatheur folk dancers, mostly with their home 
>made videos and sound matherial, books, magazines, video tapes, CDs(with 
>many short video films), DVD discs, sound recordings(LP discs, sound 
>casettes etc.) etc.
>So there are two types of entities: "simple"entity(e.g. books or DVD discs 
>with one film) and "complex" (e.g. magazines with articles of various 
>category, CD or DVD discs with more than one video film). The last entity 
>need a main table in a 1 to many relationship with the "sub" table, but the 
>first will have nothing on many side, if I put all of them into these two 
>tables.
>For books and DVD discs are important: Title, Author and Category
>For video tapes and sound cassettes are important(for each short film): 
>Order No., Name of the film(or song), Lenghth, Category
>For magazines(for each article): Title, Author and Category
>The main goal of the system is to search on category, so when the user 
>"ask" the system for e.g. Irish step to get all the book, videos, books, 
>articles in one report.
>So, my question is: is it clever to put all those various types of entities 
>into one table(and connected table) or to separate each type of entity into 
>own table.
>Many thanks for suggestions,
>     Ervin




From sgeller at cce.umn.edu  Mon Jan 23 11:57:17 2006
From: sgeller at cce.umn.edu (Susan Geller)
Date: Mon, 23 Jan 2006 11:57:17 -0600
Subject: [AccessD]  Can't create ADE file b/c of file size
Message-ID: <89934FC7BFD7AC40AC64F2A29B0C2D6374D132@mail.cce.local>

Update: Yup, size was not the problem at all.  Problem was the code
didn't compile. I fixed the errors and now I can make an ADE. Thanks!

--Susan

Susan, Since and adp/ade is designed to work with a SQL Server backend,
that KB probably doesn't apply to you, as it is talking about an MDE
that is also storing data. I suspect a different problem. 
----- Original Message ----- 
From: "Susan Geller" <sgeller at cce.umn.edu
<http://databaseadvisors.com/mailman/listinfo/accessd> > 
To: <accessD at databaseadvisors.com
<http://databaseadvisors.com/mailman/listinfo/accessd> >
 Sent: Monday, January 23, 2006 8:31 AM 
Subject: [AccessD] Can't create ADE file b/c of file size --
need"lightweight" forms? 
I have an application that I create as an adp and release as an ade
(same concept as mde) about 2-3 times per year. With this latest
version, I can't create an ADE file. In searching the MS KB, I found
this article: http://support.microsoft.com/kb/289686/EN-US/ which
suggests that the reason is b/c the file as grown too large. I'm sure
that is the reason. One suggested workaround is to use "lightweight"
forms and reports. What does that mean? Any other work arounds? --

Susan B. Geller
Office of Information Systems
College of Continuing Education
University of Minnesota
306 Wesbrook Hall
77 Pleasant Street SE
Minneapolis, MN 55455
Phone:  612-626-4785
Fax:  612-625-2568




From Gustav at cactus.dk  Mon Jan 23 11:57:58 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Mon, 23 Jan 2006 18:57:58 +0100
Subject: [AccessD] Setting data into and getting data from Named	Range	s
Message-ID: <s3d52740.067@cactus.dk>

Hi John

Note that Areas in Excel is a property of Range.

A range defaults to have one area.
However, if you use Union to set one range from several ranges, such a range will have as many Areas as it was assembled from. Each area will have its own row and column count. If you just refer to row and column of the range it will be the row and column relative to area 1!

This can turn into great fun.

/gustav

>>> jwcolby at ColbyConsulting.com 23-01-2006 16:34:22 >>>
Lambert,

But I am trying to work with NAMED RANGES, not cell references.

Function Excel_NamedRangeDataGet(xlwb As Excel.WorkWorkbook, strRangeName)
As Variant
Function Excel_NamedRangeDataSet(xlwb As Excel.WorkWorkbook, strRangeName,
varData)

As opposed to

Function Excel_CellData(xls As Excel.Worksheet, nRow As Long, nCol As Long)
As Variant 

Everyone is waxing poetic over how cool Named Ranges are, and I am too - for
working IN a spreadsheet/book directly.  OTOH, no one is offering code for
using them from VBA running out in Access.  That is what I am trying to
figure out.  I have (finally) figured out how to get/set a single cell named
range.  I can even write the same (single) value to a "table" named range
(to initialize to blank for example).  Now I need to do the same with
reading / writing "tables" from/to named ranges that refer to cell ranges
(square areas of a spreadsheet).

I have a worksheet that I need to fill in with data.  The worksheet has
single cell things such as Contractor name, system name, RFD Number etc.  It
then has AREAS that represent multi-column tables in Access.  I need to
write a 7 column table, up to 200 records, into a named range for that area
in the spreadsheet.  I then need to read back that "table" from the
spreadsheet when it comes back from the contractor.  There is another little
two column / 20 record table I need to write out, then read back when the
(same) spreadsheet comes back.

It is just frustrating, the total lack of information out there for using
named ranges from VBA.  I have found code galore for CREATING the named
ranges via VBA, but a deafening silence on USING the named ranges.  Why in
the world would I want to create them if I can't read/write to them?

John W. Colby
www.ColbyConsulting.com 




From martyconnelly at shaw.ca  Mon Jan 23 12:01:53 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 23 Jan 2006 10:01:53 -0800
Subject: [AccessD] Virtual library management database
References: <0b8101c62007$eaf0d730$0100a8c0@RazvojErvin>
Message-ID: <43D51A11.3000002@shaw.ca>

Have a look at the the data models here
http://www.databaseanswers.org/data_models/
This one seperates books by format
http://www.databaseanswers.org/data_models/bookstore_and_warehouses/index.htm
I would have each entity into its own table unless there is some 
commonality.

Ervin Brindza wrote:

><second attempt>
>I was asked to do some voluntary work for some community. I need some ideas in designing a virtual library management database. The database will manage various matherial for amatheur folk dancers, mostly with their home made videos and sound matherial, books, magazines, video tapes, CDs(with many short video films), DVD discs, sound recordings(LP discs, sound casettes etc.) etc. 
>So there are two types of entities: "simple"entity(e.g. books or DVD discs with one film) and "complex" (e.g. magazines with articles of various category, CD or DVD discs with more than one video film). The last entity need a main table in a 1 to many relationship with the "sub" table, but the first will have nothing on many side, if I put all of them into these two tables.
>For books and DVD discs are important: Title, Author and Category
>For video tapes and sound cassettes are important(for each short film): Order No., Name of the film(or song), Lenghth, Category
>For magazines(for each article): Title, Author and Category
>The main goal of the system is to search on category, so when the user "ask" the system for e.g. Irish step to get all the book, videos, books, articles in one report.
>So, my question is: is it clever to put all those various types of entities into one table(and connected table) or to separate each type of entity into own table.
>Many thanks for suggestions,
>    Ervin
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From accessd at shaw.ca  Mon Jan 23 12:24:21 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Mon, 23 Jan 2006 10:24:21 -0800
Subject: [AccessD] Web designers. Why don't they stick with design?
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF48@INFOSERVER04.infostat.local>
Message-ID: <001001c6204a$3acf9830$017ba8c0@xpserver>

Charlotte, I was very tempted to respond, but given the depth and breath of
his lack of knowledge, it seemed like such a waste of time. But I am glad
you did.

I was indirectly involved in an email fire-fight with Fabian Pascal, the
self claimed SQL guru and fundamentalist. I understand, as I bailed early,
that the fight went on for over a year and degenerated into just passing
insults. (The standard battle over absolutely adherence to the laws of
normalization versus database performance.)  

...But Good work; someone just had to say something.

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: January 23, 2006 8:41 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Web designers. Why don't they stick with design?

I couldn't resist sending him some feedback on the more egregious errors
(like the remark about Access 2000 only supporting simple stored
procedures ...) and I'm sure his extreme spam filter will junk it, but
it felt good to nail him on a couple of points anyhow, including the
need to use different code for Access and SQL Server in .Net. <g>

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 7:21 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Web designers. Why don't they stick with design?


Hi all, late Friday humour, sort of ...

Look what I've found.
This guy (I'll state his name just as a warning: Bill Gearhart) seems to
be one in an endless row of web designers with no knowledge about how
Access works, thus he doesn't know what he is talking about:

http://www.aspemporium.com/aspEmporium/tutorials/dontUseMSAccess.asp 

No doubt, Access is not intended for use as backend database for
high-volume web sites but this blurb is so full of factual errors and
bad coding examples that it should be abandoned.

/gustav

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From Jim.Hale at FleetPride.com  Mon Jan 23 12:44:36 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Mon, 23 Jan 2006 12:44:36 -0600
Subject: [AccessD] Setting data into and getting data from Named Range	s
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD9AA@corp-es01.fleetpride.com>

John,
I sent you an email, did you get it?
Jim Hale

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Monday, January 23, 2006 7:12 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Setting data into and getting data from Named Ranges


I am moving right along with my Excel stuff but now I need to watch as data
is poked into named ranges.  But first I have to discover how to poke stuff
into named ranges.  I am finding a lot of code for setting up the named
ranges but not a lot about actually setting a single value into the (single
cell) range, setting a table of data (from Access) into a named range
(multiple cells), and then of course, reading a value from a single cell
named range, or getting data back out of a named range (multiple cells) into
a table.

Does anyone have example code for this?

John W. Colby
www.ColbyConsulting.com 


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From Jim.Hale at FleetPride.com  Mon Jan 23 12:47:24 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Mon, 23 Jan 2006 12:47:24 -0600
Subject: [AccessD] Syntax for seeing named range in excel
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD9AB@corp-es01.fleetpride.com>

You can do pretty much anything in code that you can do manually to a
spreadsheet.
Jim Hale

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Saturday, January 21, 2006 6:48 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Syntax for seeing named range in excel


I guess my confusion now is how does this whole process work in practice.  

I thought that the "patent" issue was one of "linking to spreadsheets was
illegal", but manipulating them programmatically was OK.  Thus I could not
create a link, it just wouldn't even let me do it, but I could write a
program to open a spreadsheet and do whatever I wanted to it in code.  If
that is true then I can open / update / close / open / update / close a
spreadsheet all I wanted to IN CODE.  If that is NOT true then the first
time I close it I am screwed and have to start all over.

What is the truth here?

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Saturday, January 21, 2006 7:04 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Syntax for seeing named range in excel

Hi John

>>> jwcolby at ColbyConsulting.com 20-01-2006 21:08:20 >>>
> Now I need to figure out how to CREATE named ranges when I build a
spreadsheet in VBA.

Eh? Isn't this VBA:

-----Original Message-----
Sent: Friday, January 20, 2006 10:31 AM
Subject: Re: [AccessD] Syntax for seeing named range in excel

A Named Range can be created like this:

  ActiveWorkbook.Names.Add "John", "=$C1:$D4" 

or more specific:

  ActiveWorkbook.Names.Add "John", "=NameOfWorksheet!$C1:$D4" 

If that Named Range exists, it will be adjusted to the new range settings.

---

Or have you something else in mind?

/gustav

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From jwcolby at ColbyConsulting.com  Mon Jan 23 12:52:24 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 23 Jan 2006 13:52:24 -0500
Subject: [AccessD] Setting data into and getting data from Named	Range	s
In-Reply-To: <s3d52740.067@cactus.dk>
Message-ID: <002301c6204e$26850eb0$647aa8c0@ColbyM6805>

I have it WORKING!!!

Yea!!!

What a learning experience this has been.

In order to understand the code snippet you have to know that I open a
workbook and set a class global Workbook and Worksheet object called
respectively mXLWB and mXLWS.  Thus this function simply passes in a name
range and a recordset typcast as an object.  It then translates that named
range into a range object, which then calls the CopyFromRecordset method
passing in the RS object.  The CopyFromRecordset is perfectly happy getting
an object, and apparently can handle either a DAO or an ADO recordset passed
in.  I am currently passing in a DAO recordset but will switch to ADO.

What I have not accomplished is CopyTORecordset (read the data back out of
the range INTO a recordset object).  I think I can accomplish that back in
Access however without calling the Excel objects.

Function mXLWBNameDataCopyFromRS(strName As String, RS As Object)
On Error GoTo Err_mXLWBNameDataCopyFromRS
Dim lRange As Range
    Set lRange = mXLWS.Range(strName)
    lRange.CopyFromRecordset RS
Exit_mXLWBNameDataCopyFromRS:
On Error Resume Next
    If Not (lRange Is Nothing) Then lRange.Close: Set lRange = Nothing
Exit Function
Err_mXLWBNameDataCopyFromRS:
        MsgBox Err.Description, , "Error in Function
clsExcel.mXLWBNameDataCopyFromRS"
        Resume Exit_mXLWBNameDataCopyFromRS
    Resume 0    '.FOR TROUBLESHOOTING
End Function 

I now have an entire (largish) Excel class which handles opening / saving /
closing the Excel Application, workbooks, setting references to worksheets,
passing back pointers to OPEN workbooks and worksheets, getting and setting
data from named ranges, and copying data from a recordset into a named
range.  Also little things like setting visibility, running macros and so
forth.

My application now opens Excel, opens a "template" workbook, immediately
saves it back to a different location, updates a handful of single cell
ranges, and two multi-cell ranges, then closes the spreadsheet, attaches it
to an email, and sends it off to a recipient.

Sometime when I get a few minutes I will create a demo to put up on my web
site.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Monday, January 23, 2006 12:58 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Setting data into and getting data from Named Range s

Hi John

Note that Areas in Excel is a property of Range.

A range defaults to have one area.
However, if you use Union to set one range from several ranges, such a range
will have as many Areas as it was assembled from. Each area will have its
own row and column count. If you just refer to row and column of the range
it will be the row and column relative to area 1!

This can turn into great fun.

/gustav



From mboyd at deloitte.com  Mon Jan 23 12:59:39 2006
From: mboyd at deloitte.com (Boyd, Mark Thomas (US - Philadelphia))
Date: Mon, 23 Jan 2006 13:59:39 -0500
Subject: [AccessD] Tree View Control
Message-ID: <EB062E528F7B964281EB0F83CFDA3B4334B308@usndc0419.us.deloitte.com>

I have the need to use a Tree View control on a form.
Basically, I have a continuous form, with a number of records containing
Account #'s.  I want the user to be able to click a tree node "+"
button, and have detail records for this Account # displayed below.
Within this detail data, the user will need to update specific fields
(combo boxes and checkboxes).
 
Is the Microsoft Tree View control capable of this?  If not, are there
other controls that have this capability?
Any sample code would be greatly appreciated.
 
Thanks.
 

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com <http://www.deloitte.com/> 


This message (including any attachments) contains confidential information intended for a specific individual and purpose, and is protected by law.  If you are not the intended recipient, you should delete this message. 


Any disclosure, copying, or distribution of this message, or the taking of any action based on it, is strictly prohibited. [v.E.1]


From martyconnelly at shaw.ca  Mon Jan 23 13:36:15 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 23 Jan 2006 11:36:15 -0800
Subject: [AccessD] Tree View Control
References: <EB062E528F7B964281EB0F83CFDA3B4334B308@usndc0419.us.deloitte.com>
Message-ID: <43D5302F.5040307@shaw.ca>

Arthur has a sample treeview mdb click on node or sub node to open a sub 
form

treeview sample zip Access 97 should be a 2000 version somewhere

Adding a TreeView Control tos in Your an Access Applications
http://www.databaseadvisors.com/newletters/newsletter092001/0109UsingTreeViews.htm
http://www.databaseadvisors.com/downloads.htm

Boyd, Mark Thomas (US - Philadelphia) wrote:

>I have the need to use a Tree View control on a form.
>Basically, I have a continuous form, with a number of records containing
>Account #'s.  I want the user to be able to click a tree node "+"
>button, and have detail records for this Account # displayed below.
>Within this detail data, the user will need to update specific fields
>(combo boxes and checkboxes).
> 
>Is the Microsoft Tree View control capable of this?  If not, are there
>other controls that have this capability?
>Any sample code would be greatly appreciated.
> 
>Thanks.
> 
>
>Mark Boyd 
>Senior Consultant 
>Enterprise Risk Services 
>Deloitte & Touche LLP 
>  
>Tel: +1 215 405 5576
>mboyd at deloitte.com 
>www.deloitte.com <http://www.deloitte.com/> 
>
>
>This message (including any attachments) contains confidential information intended for a specific individual and purpose, and is protected by law.  If you are not the intended recipient, you should delete this message. 
>
>
>Any disclosure, copying, or distribution of this message, or the taking of any action based on it, is strictly prohibited. [v.E.1]
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From Jdemarco at hudsonhealthplan.org  Mon Jan 23 13:56:41 2006
From: Jdemarco at hudsonhealthplan.org (Jim DeMarco)
Date: Mon, 23 Jan 2006 14:56:41 -0500
Subject: [AccessD] Read External File for Path String
Message-ID: <08F823FD83787D4BA0B99CA580AD3C74016C442B@TTNEXCHCL2.hshhp.com>

Joe,

This is not true.  Grab the class from my article and you're doing XML as soon as you've added it to your mdb.  Not trying to push it on you but suggesting you give it a shot.

Jim DeMarco

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Joe Hecht
Sent: Friday, January 20, 2006 7:07 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Read External File for Path String


I have so much to learn I have just ruled out xml for now.
My projects are too small to take advantage of it.

Thanks for the info though.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
MartyConnelly
Sent: Friday, January 20, 2006 12:55 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Read External File for Path String

If you don't have that high a version of Access here is
method of using 
xmldom to read xml file.
rather than ImportXML method.

'?LoadXMLFile("C:\XML\AdviserDetails.xml")
Public Function LoadXMLFile(ByRef AdviserXML As String)

    'On Error GoTo ErrorHandler
    'needs reference set to XML 4.0 and maybe ADO 2.8
    Dim oDOMDocument As MSXML2.DOMDocument40
    Dim oNodeList As IXMLDOMNodeList
    Dim oAdviserDetailsNode As IXMLDOMNode
    Dim oLowestLevelNode As IXMLDOMElement
    Dim objXMLDOMNamedNodeMap As IXMLDOMNamedNodeMap
     Dim xPError As IXMLDOMParseError
    Dim Mydb As Database
    Dim myrs As ADODB.Recordset
    Dim sTempValue As String
    Dim lrec As Long
    Dim lnorec As Long
    Set oDOMDocument = New MSXML2.DOMDocument40

    oDOMDocument.async = False
    oDOMDocument.validateOnParse = True 'you may want to
parse for errors
    oDOMDocument.resolveExternals = False
    oDOMDocument.preserveWhiteSpace = True
 
    'use if xml disk file
      If Not oDOMDocument.Load(AdviserXML) Then
        MsgBox ("XML File error")
             Set xPError = oDOMDocument.parseError
        DOMParseError xPError
      
       End If
    Set oAdviserDetailsNode = oDOMDocument.documentElement
     Debug.Print oDOMDocument.xml
    
  
    'Set Mydb = CurrentDb
    'Set myrs = Mydb.OpenRecordset("NewTable")
 

   'use appropriate XPath expression to select nodes
  
   Set oNodeList =
oAdviserDetailsNode.selectNodes("//BusinessDetails/*")
 
     lnorec = 0
     lrec = 0
     Debug.Print oNodeList.length
     '   myrs.AddNew
    For Each oLowestLevelNode In oNodeList
        sTempValue = oLowestLevelNode.Text
         lrec = lrec + 1
        Select Case oLowestLevelNode.nodeName
            Case "BusinessName"
                   Debug.Print "Business " & sTempValue
                'myrs!BusinessName = sTempValue
            Case "AddressLine1"
                'myrs!AddressLine1 = sTempValue
            Case "AddressLine2"
                'myrs!AddressLine2 = sTempValue
            Case "Suburb"
                'myrs!Suburb = sTempValue
            Case "State"
                'myrs!State = sTempValue
                Debug.Print sTempValue
            Case "Postcode"
                'myrs!Postcode = sTempValue
            Case "PhoneNumber"
             Debug.Print "Phone " & sTempValue
                'myrs!PhoneNumber = sTempValue
            Case "Email"
                'myrs!Email = sTempValue
            Case "FaxNumber"
                'myrs!FaxNumber = sTempValue
        End Select
        If lrec = 9 Then '9 elements in business details
       ' myrs.Update
        lnorec = lnorec + 1
        lrec = 0
       ' myrs.AddNew
        End If
      Next
     
     MsgBox "Records Added=" & lnorec
     ' Set myrs = Nothing
    'Set Mydb = Nothing
    Set oDOMDocument = Nothing
    Set oAdviserDetailsNode = Nothing
    Set objXMLDOMNamedNodeMap = Nothing
    Exit Function

ErrorHandler:

  '  Call NewError.Raise(Err.Number, Err.Source,
Err.Description)

End Function
Sub DOMParseError(xPE As IXMLDOMParseError)

    ' The document failed to load.
    Dim strErrText As String
    ' Obtain the ParseError object
    With xPE
    strErrText = "Your XML Document failed to load" & _
        "due the following error." & vbCrLf & _
        "Error #: " & .errorCode & ": " & xPE.reason & _
        "Line #: " & .Line & vbCrLf & _
        "Line Position: " & .linepos & vbCrLf & _
        "Position In File: " & .filepos & vbCrLf & _
        "Source Text: " & .srcText & vbCrLf & _
        "Document URL: " & .url
    End With
    Debug.Print strErrText

  Dim s As String
  Dim r As String
  Dim i As Long
 
   s = ""
  For i = 1 To xPE.linepos - 1
    s = s & " "
  Next
  r = "XML Error loading " & xPE.url & " * " & xPE.reason
  Debug.Print r
    'show character postion of error; tired of counting
chars in xml file
  If (xPE.Line > 0) Then
    r = "at line " & xPE.Line & ", character " & xPE.linepos
& vbCrLf & _
         xPE.srcText & vbCrLf & s & "^"
  End If
  Debug.Print r
    MsgBox strErrText, vbExclamation
End Sub




--------  "C:\XML\AdviserDetails.xml"  save as UTF-8 not
ANSI in notepad

<?xml version="1.0" encoding="UTF-8"?>
<AdviserDetails ID="AD12345">
    <BusinessDetails>
        <BusinessName>"AD Business Name" </BusinessName>
        <AddressLine1>"AD Address Line 1" </AddressLine1>
        <AddressLine2>"AD Address Line 2" </AddressLine2>
        <Suburb>"AD Suburb" </Suburb>
        <State>"AD State" </State>
        <Postcode>"AD PostCode" </Postcode>
        <PhoneNumber>"AD Phone Number" </PhoneNumber>
        <Email>"AD Email" </Email>
        <FaxNumber>"AD Fax Number" </FaxNumber>
    </BusinessDetails>
</AdviserDetails>

Gustav Brock wrote:

>Hi Stuart
>
>Use A2002+.
>Have an internal table with your path, tblPath.
>
>To export:
>Application.ExportXML acExportTable , "tblPath",
"c:\mypath.xml"
>
>To import:
>CurrentDb.Execute "Delete * From tblPath"
>Application.ImportXML "c:\mypath.xml", acAppendData
>
>To read:
>strPath = DLookup("Path", "tblPath")
>
>Not quite sure how "easy" that is, though in total only
four code lines net are needed.
>However, if you need to store a bunch of user or app
settings it might be a nice method with all the advantages
of XML storage and exchange possibilities.
>
>/gustav
>
>  
>
>>>>stuart at lexacorp.com.pg 20-01-2006 00:48 >>>
>>>>        
>>>>
>On 19 Jan 2006 at 15:00, Charlotte Foust wrote:
>
>  
>
>>Actually, the XML files wind up with a structure very
similar to the ini
>>files but you don't need API calls to read them.
>>    
>>
>
>So how  would you create, then read an XML file to store a
backend server 
>path?
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada



-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
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".
***********************************************************************************



From jwcolby at ColbyConsulting.com  Mon Jan 23 14:40:03 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 23 Jan 2006 15:40:03 -0500
Subject: [AccessD] Setting data into and getting data from Named Range	s
In-Reply-To: <6A6AA9DF57E4F046BDA1E273BDDB67727DD9AA@corp-es01.fleetpride.com>
Message-ID: <002501c6205d$307a0bf0$647aa8c0@ColbyM6805>

Jim,

I did, and thanks for the offer.  I think that understanding that it is the
range object that actually does the work kind of removed my mental
roadblocks.  I was thinking that the name object should have abilities that
it doesn't have.  I sent an email re "success" to the group.  

Again, thanks for the offer.  If I run into any more roadblocks I will keep
you in mind.  Kind of the last piece for right now is reading data back out
of a named range.  I have code for doing that, though it is kind of rough
ATM.

This is for a client who is documenting construction of a hospital.
Apparently federal law requires that they collect documents for each and
every one of certain kinds of systems, paper and electronic, and store them.
My client did not understand the size of the job when he got involved, nor
when he got me involved.  

I am of course building a database to track all of the documents, request
them (electronically) from each contractor (via this Request For Document
spreadsheet, attached to emails) for each document, then as the electronic
documents are returned via attachments to the email I send, strip the
attachments off and file them in an intricate directory structure out on the
hard disk.  There will be literally thousands of documents, perhaps tens of
thousands.  6 contractors, 91 systems (though some are "copies", i.e. 7 "Air
handling units"), and ~150 documents, although all docs are not required for
all systems.  My db has to track what has been requested, store "proof" that
we did request them (each Excel RFD is saved in the same directory
structure), track which docs are received back, report which docs are "owed"
by which contractors for which systems, and report which system's documents
have been completely received.

We are trying to convince all the contractors to work with us in naming the
documents to a standard so that as the attachments come in I can parse the
doc name to see what system/document it is and "count it as received".
There are just so many documents that to do this stuff manually would invite
chaos.

On top of all that, the requirement is for both paper copies as well as
electronic copies, so the db has to track both.  My client has to make paper
copies from Electronics where no paper exists, and make electronic from
paper where no electronic exist, and get it all entered in the db each time.

And finally, the main company (Pfizer) in charge of construction, had the
unfortunate experience of having their paper copies burned to the ground one
time.  As a result I also have to ensure that the electronic copies get
automatically written to a local and offsite location, which I will be doing
via high speed internet.  I have to track that each electronic document gets
written to the back up location as well - a usb hard disk on a computer
somewhere out on the internet.  Since the internet can be unavailable, I
have to handle that as well, performing the write when the internet becomes
available.

The paper in this case will completely fill a single wide trailer when all
is said and done, and in fact they have a single wide trailer that they are
using to collect the paper.  When they are done they will hook up a truck
and haul the paper... Somewhere... Hopefully fireproof.  ;-)

This is where "time and expenses" really takes on meaning!  I quoted 40
hours to do what my client originally asked for - and DELIVERED that.  Of
course my client did not understand the scope and so we soldier on.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
Sent: Monday, January 23, 2006 1:45 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Setting data into and getting data from Named Range s

John,
I sent you an email, did you get it?
Jim Hale



From Jim.Hale at FleetPride.com  Mon Jan 23 15:04:26 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Mon, 23 Jan 2006 15:04:26 -0600
Subject: [AccessD] Setting data into and getting data from Named Range		s
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD9AF@corp-es01.fleetpride.com>

John,
The most effective way I've found to load data from Excel spreadsheets is to
create a hidden sheet linked to the data you wish to read, in essence
creating a flatfile. Then you can "load" the flatfile into Access with
something like this:

Set rstbase = dbs.OpenRecordset("tblOutPut_Data", dbOpenTable)
On Error Resume Next
.Range("A2").Select 'select first cell of first record to read
Dim x As Integer

Do While Not IsEmpty(ActiveCell)
    rstbase.AddNew 'create records in output table
    For x = 0 To 16
    If x < 4 Then rstbase.Fields(x) = .ActiveCell.Offset(0, x)
        'change sign on Jan-Dec revenue
        If x > 3 Then
        If rstbase.Fields("rptline") = 4100 Then
            rstbase.Fields(x) = -Round(.ActiveCell.Offset(0, x), 3)
        ElseIf rstbase.Fields("rptline") = 4130 Then
            rstbase.Fields(x) = -Round(.ActiveCell.Offset(0, x), 3)
        ElseIf rstbase.Fields("rptline") = 15000 Then
           rstbase.Fields(x) = Round(.ActiveCell.Offset(0, x), 3)
        Else
             rstbase.Fields(x) = Round(.ActiveCell.Offset(0, x), 3)
        End If
    End If
        
    Next x
    If Not rstbase.Fields("rptline") = 0 Then rstbase.Update
    
'This error occurs if duplicate Business Unit are loaded into the table.
'Business Unit is a primary key so duplicates are not allowed
        If Err.Number = 3022 Then
            MsgBox "Error #: " & Err.Number & " This record is already in
the Database!", 16, "Error"
            Err.Clear   ' Clear Err object fields
        End If
            
    .ActiveCell.Offset(1, 0).Select 'find first cell of next record
Loop

If your data is a table that is already in record format (ie with the fields
you want to populate in the Access table) you can make the upper left corner
of the range the active cell then use  offset to load the data from the
proper cell  as in the ex above. HTH

Jim Hale

-----Original Message-----
From: John Colby [mailto:jwcolby at colbyconsulting.com]
Sent: Monday, January 23, 2006 2:40 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Setting data into and getting data from Named
Range s


Jim,

I did, and thanks for the offer.  I think that understanding that it is the
range object that actually does the work kind of removed my mental
roadblocks.  I was thinking that the name object should have abilities that
it doesn't have.  I sent an email re "success" to the group.  

Again, thanks for the offer.  If I run into any more roadblocks I will keep
you in mind.  Kind of the last piece for right now is reading data back out
of a named range.  I have code for doing that, though it is kind of rough
ATM.

This is for a client who is documenting construction of a hospital.
Apparently federal law requires that they collect documents for each and
every one of certain kinds of systems, paper and electronic, and store them.
My client did not understand the size of the job when he got involved, nor
when he got me involved.  

I am of course building a database to track all of the documents, request
them (electronically) from each contractor (via this Request For Document
spreadsheet, attached to emails) for each document, then as the electronic
documents are returned via attachments to the email I send, strip the
attachments off and file them in an intricate directory structure out on the
hard disk.  There will be literally thousands of documents, perhaps tens of
thousands.  6 contractors, 91 systems (though some are "copies", i.e. 7 "Air
handling units"), and ~150 documents, although all docs are not required for
all systems.  My db has to track what has been requested, store "proof" that
we did request them (each Excel RFD is saved in the same directory
structure), track which docs are received back, report which docs are "owed"
by which contractors for which systems, and report which system's documents
have been completely received.

We are trying to convince all the contractors to work with us in naming the
documents to a standard so that as the attachments come in I can parse the
doc name to see what system/document it is and "count it as received".
There are just so many documents that to do this stuff manually would invite
chaos.


***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From stuart at lexacorp.com.pg  Mon Jan 23 16:03:32 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 24 Jan 2006 08:03:32 +1000
Subject: [AccessD] Tree View Control
In-Reply-To: <EB062E528F7B964281EB0F83CFDA3B4334B308@usndc0419.us.deloitte.com>
Message-ID: <43D5DF54.8719.A034DA0@stuart.lexacorp.com.pg>

On 23 Jan 2006 at 13:59, Boyd, Mark Thomas (US - Phila wrote:

> I have the need to use a Tree View control on a form.
> Basically, I have a continuous form, with a number of records containing
> Account #'s.  I want the user to be able to click a tree node "+" button,
> and have detail records for this Account # displayed below. Within this
> detail data, the user will need to update specific fields (combo boxes and
> checkboxes).
> 
> Is the Microsoft Tree View control capable of this?  If not, are there
> other controls that have this capability?
> Any sample code would be greatly appreciated.
> 

If you need to update child records, I would not try to use a treeview, I 
would use linked forms 

Depending on the visual requirements you can do either of the following:

1.
A continuous form (frmsubDetails) in the form_footer of your Accounts form 
with its parent set to the key field in the main form.

2.
An unbound main form with two sub forms side by side.
A continous subform (frmsubAccounts) on the left which lists all of the 
accounts.
A hidden text box (txtAccountLink) with a control source of 
"=frmSubAccounts.Key"
A continuous subform (frmsubDetails) on the right containing the detail 
records.
Set the Parent Field of frmsubDetails to "txtAccountLink"

In either case, when you click on an Account record, the appropriate 
records will be displayed in frmsubDetails and can be edited.







-- 
Stuart




From bchacc at san.rr.com  Mon Jan 23 16:11:36 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 23 Jan 2006 14:11:36 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF49@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF49@INFOSERVER04.infostat.local>
Message-ID: <43D55498.7070307@san.rr.com>

Charlotte:

I came up with no matches on qcntr search.  Do you get any hits on that 
search? I think I might have been thinking of running sum on a report. 

Rocky


Charlotte Foust wrote:
> Jim Dettman posted a trick several years ago.  Look up Qcntr in the
> archives.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Saturday, January 21, 2006 2:18 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Sequence number in query
>
>
> Jim:
>
> No, it was some clever trick in the QBE that would neatly number the 
> rows retrieved by the query.  I think using -1 for something had 
> something to do with it but I'm not sure.
>
> Rocky
>
>
> Jim Lawrence wrote:
>   
>> Hi Rocky:
>>
>> You mean drop a place holder like this?
>>
>> SELECT "" AS AddedField1, "" AS AddedField2
>> FROM MyTable;
>>
>> HTH
>> Jim
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin - Beach Access Software
>> Sent: January 21, 2006 9:32 AM
>> To: Access Developers discussion and problem solving
>> Subject: [AccessD] Sequence number in query
>>
>> Dear List:
>>
>> There is a trick to creating a column in a query with a sequence 
>> number
>> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall
>>     
> this?
>   
>> MTIA
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Mon Jan 23 16:13:30 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 23 Jan 2006 14:13:30 -0800
Subject: [AccessD] A simple graph
In-Reply-To: <BAY12-DAV545BC27895606045C7518CE110@phx.gbl>
References: <43D27171.9000300@san.rr.com>
	<BAY12-DAV545BC27895606045C7518CE110@phx.gbl>
Message-ID: <43D5550A.3080905@san.rr.com>

A.D.:

Checked it out. But I don't understand the code.  I'm actually still 
stuck on making the chart with one column of a table or query as the x 
axis and one as the y axis.  The chart wizard seems intent on doing 
series. 

Rocky


A.D.Tejpal wrote:
> Rocky,
>
>     My sample db named ChartsDemo might be of interest to you. It is available at Rogers Access Library (other developers library). Link - http://www.rogersaccesslibrary.com
>
>     It demonstrates a chart displaying blood pressure, pulse and temperature for patients. 
>
>     You could adapt the underlying approach suitably, for your specific needs.
>
> Best wishes,
> A.D.Tejpal
> --------------
>
>   ----- Original Message ----- 
>   From: Rocky Smolin - Beach Access Software 
>   To: Access Developers discussion and problem solving 
>   Sent: Saturday, January 21, 2006 23:07
>   Subject: [AccessD] A simple graph
>
>
>   My client wants a simple graph displayed on a form.  I don't really want to use Excel automation.  Does anyone know if  there something already out there which can do this?  A control?  Or a chunk of code on an Access library site?
>
>   MTIA
>   -- 
>   Rocky Smolin
>   Beach Access Software
>   858-259-4334
>   www.e-z-mrp.com
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Mon Jan 23 16:16:20 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 23 Jan 2006 14:16:20 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <001f01c61ee1$04ae3b40$6101a8c0@JISREGISTRATION.local>
References: <000301c61ec2$a71137d0$017ba8c0@xpserver>
	<43D2B2FE.10203@san.rr.com>
	<001f01c61ee1$04ae3b40$6101a8c0@JISREGISTRATION.local>
Message-ID: <43D555B4.3030904@san.rr.com>

Unfortunately, it's an aggregate query with no field I can use for the < 
factor.  But thanks anyway.

Rocky


William Hindman wrote:
> http://ourworld.compuserve.com/homepages/attac-cg/AqryTip.htm#AUTONUM
>
> William
>
> ----- Original Message ----- 
> From: "Rocky Smolin - Beach Access Software" <bchacc at san.rr.com>
> To: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> Sent: Saturday, January 21, 2006 5:17 PM
> Subject: Re: [AccessD] Sequence number in query
>
>
>   
>> Jim:
>>
>> No, it was some clever trick in the QBE that would neatly number the
>> rows retrieved by the query.  I think using -1 for something had
>> something to do with it but I'm not sure.
>>
>> Rocky
>>
>>
>> Jim Lawrence wrote:
>>     
>>> Hi Rocky:
>>>
>>> You mean drop a place holder like this?
>>>
>>> SELECT "" AS AddedField1, "" AS AddedField2
>>> FROM MyTable;
>>>
>>> HTH
>>> Jim
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
>>> Beach Access Software
>>> Sent: January 21, 2006 9:32 AM
>>> To: Access Developers discussion and problem solving
>>> Subject: [AccessD] Sequence number in query
>>>
>>> Dear List:
>>>
>>> There is a trick to creating a column in a query with a sequence number
>>> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall this?
>>>
>>> MTIA
>>>
>>>
>>>       
>> -- 
>> Rocky Smolin
>> Beach Access Software
>> 858-259-4334
>> www.e-z-mrp.com
>>
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>>     
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From mboyd at deloitte.com  Mon Jan 23 16:24:32 2006
From: mboyd at deloitte.com (Boyd, Mark Thomas (US - Philadelphia))
Date: Mon, 23 Jan 2006 17:24:32 -0500
Subject: [AccessD] Tree View Control
Message-ID: <EB062E528F7B964281EB0F83CFDA3B4334B4EA@usndc0419.us.deloitte.com>

Thanks Stuart.  
I agree, I probably don't want to use the Tree View control.  I'm using
linked forms, but I'd like for the child data to display directly
underneath the parent record on the continuous form.  Placing the child
data in the form footer is a nice concept, but displays too far down on
the form.
Again, what I hope to do is make the data display a certain way.  If
there isn't a clean way of doing it, I have no problem using one of your
suggestions.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Monday, January 23, 2006 5:04 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

On 23 Jan 2006 at 13:59, Boyd, Mark Thomas (US - Phila wrote:

> I have the need to use a Tree View control on a form.
> Basically, I have a continuous form, with a number of records
containing
> Account #'s.  I want the user to be able to click a tree node "+"
button,
> and have detail records for this Account # displayed below. Within
this
> detail data, the user will need to update specific fields (combo boxes
and
> checkboxes).
> 
> Is the Microsoft Tree View control capable of this?  If not, are there
> other controls that have this capability?
> Any sample code would be greatly appreciated.
> 

If you need to update child records, I would not try to use a treeview,
I 
would use linked forms 

Depending on the visual requirements you can do either of the following:

1.
A continuous form (frmsubDetails) in the form_footer of your Accounts
form 
with its parent set to the key field in the main form.

2.
An unbound main form with two sub forms side by side.
A continous subform (frmsubAccounts) on the left which lists all of the 
accounts.
A hidden text box (txtAccountLink) with a control source of 
"=frmSubAccounts.Key"
A continuous subform (frmsubDetails) on the right containing the detail 
records.
Set the Parent Field of frmsubDetails to "txtAccountLink"

In either case, when you click on an Account record, the appropriate 
records will be displayed in frmsubDetails and can be edited.







-- 
Stuart


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com 


This message (including any attachments) contains confidential information intended for a specific individual and purpose, and is protected by law.  If you are not the intended recipient, you should delete this message. 


Any disclosure, copying, or distribution of this message, or the taking of any action based on it, is strictly prohibited. [v.E.1]


From dwaters at usinternet.com  Mon Jan 23 16:42:47 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Mon, 23 Jan 2006 16:42:47 -0600
Subject: [AccessD] Tree View Control
In-Reply-To: <26753389.1138055380670.JavaMail.root@sniper15>
Message-ID: <000001c6206e$55dbfe10$0200a8c0@danwaters>

Mark,

Could you put your continuous form into the left side of a subform control,
then include another form into another subform control on the right side of
the parent form that would show the detail for the selected record on the
left side?  Once you've selected the record in your continuous form, I think
you can pass a recordset as the source for the form on the right.

Ok - that's just a vision I had . . . !

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Boyd, Mark Thomas
(US - Philadelphia)
Sent: Monday, January 23, 2006 4:25 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

Thanks Stuart.  
I agree, I probably don't want to use the Tree View control.  I'm using
linked forms, but I'd like for the child data to display directly
underneath the parent record on the continuous form.  Placing the child
data in the form footer is a nice concept, but displays too far down on
the form.
Again, what I hope to do is make the data display a certain way.  If
there isn't a clean way of doing it, I have no problem using one of your
suggestions.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Monday, January 23, 2006 5:04 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

On 23 Jan 2006 at 13:59, Boyd, Mark Thomas (US - Phila wrote:

> I have the need to use a Tree View control on a form.
> Basically, I have a continuous form, with a number of records
containing
> Account #'s.  I want the user to be able to click a tree node "+"
button,
> and have detail records for this Account # displayed below. Within
this
> detail data, the user will need to update specific fields (combo boxes
and
> checkboxes).
> 
> Is the Microsoft Tree View control capable of this?  If not, are there
> other controls that have this capability?
> Any sample code would be greatly appreciated.
> 

If you need to update child records, I would not try to use a treeview,
I 
would use linked forms 

Depending on the visual requirements you can do either of the following:

1.
A continuous form (frmsubDetails) in the form_footer of your Accounts
form 
with its parent set to the key field in the main form.

2.
An unbound main form with two sub forms side by side.
A continous subform (frmsubAccounts) on the left which lists all of the 
accounts.
A hidden text box (txtAccountLink) with a control source of 
"=frmSubAccounts.Key"
A continuous subform (frmsubDetails) on the right containing the detail 
records.
Set the Parent Field of frmsubDetails to "txtAccountLink"

In either case, when you click on an Account record, the appropriate 
records will be displayed in frmsubDetails and can be edited.







-- 
Stuart


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com 


This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  If
you are not the intended recipient, you should delete this message. 


Any disclosure, copying, or distribution of this message, or the taking of
any action based on it, is strictly prohibited. [v.E.1]
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From mboyd at deloitte.com  Mon Jan 23 16:53:41 2006
From: mboyd at deloitte.com (Boyd, Mark Thomas (US - Philadelphia))
Date: Mon, 23 Jan 2006 17:53:41 -0500
Subject: [AccessD] Tree View Control
Message-ID: <EB062E528F7B964281EB0F83CFDA3B4334B512@usndc0419.us.deloitte.com>

Thanks Dan.  I'm sure that would work great, but I'm really trying to
imitate the "drill-down" and "drill-up" behavior that is similar to the
tree view control.  I want the user to click a "+" control next to the
record, and the child data appears below this record.  If the user
clicks the control again, now a "-" symbol, the child data disappears.

I appreciate the insight, as this solution would work, but the client
would like it displayed a specific way.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: Monday, January 23, 2006 5:43 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Tree View Control

Mark,

Could you put your continuous form into the left side of a subform
control,
then include another form into another subform control on the right side
of
the parent form that would show the detail for the selected record on
the
left side?  Once you've selected the record in your continuous form, I
think
you can pass a recordset as the source for the form on the right.

Ok - that's just a vision I had . . . !

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Boyd, Mark
Thomas
(US - Philadelphia)
Sent: Monday, January 23, 2006 4:25 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

Thanks Stuart.  
I agree, I probably don't want to use the Tree View control.  I'm using
linked forms, but I'd like for the child data to display directly
underneath the parent record on the continuous form.  Placing the child
data in the form footer is a nice concept, but displays too far down on
the form.
Again, what I hope to do is make the data display a certain way.  If
there isn't a clean way of doing it, I have no problem using one of your
suggestions.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Monday, January 23, 2006 5:04 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

On 23 Jan 2006 at 13:59, Boyd, Mark Thomas (US - Phila wrote:

> I have the need to use a Tree View control on a form.
> Basically, I have a continuous form, with a number of records
containing
> Account #'s.  I want the user to be able to click a tree node "+"
button,
> and have detail records for this Account # displayed below. Within
this
> detail data, the user will need to update specific fields (combo boxes
and
> checkboxes).
> 
> Is the Microsoft Tree View control capable of this?  If not, are there
> other controls that have this capability?
> Any sample code would be greatly appreciated.
> 

If you need to update child records, I would not try to use a treeview,
I 
would use linked forms 

Depending on the visual requirements you can do either of the following:

1.
A continuous form (frmsubDetails) in the form_footer of your Accounts
form 
with its parent set to the key field in the main form.

2.
An unbound main form with two sub forms side by side.
A continous subform (frmsubAccounts) on the left which lists all of the 
accounts.
A hidden text box (txtAccountLink) with a control source of 
"=frmSubAccounts.Key"
A continuous subform (frmsubDetails) on the right containing the detail 
records.
Set the Parent Field of frmsubDetails to "txtAccountLink"

In either case, when you click on an Account record, the appropriate 
records will be displayed in frmsubDetails and can be edited.







-- 
Stuart


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com 


This message (including any attachments) contains confidential
information
intended for a specific individual and purpose, and is protected by law.
If
you are not the intended recipient, you should delete this message. 


Any disclosure, copying, or distribution of this message, or the taking
of
any action based on it, is strictly prohibited. [v.E.1]
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From stuart at lexacorp.com.pg  Mon Jan 23 16:52:46 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 24 Jan 2006 08:52:46 +1000
Subject: [AccessD] Tree View Control
In-Reply-To: <000001c6206e$55dbfe10$0200a8c0@danwaters>
References: <26753389.1138055380670.JavaMail.root@sniper15>
Message-ID: <43D5EADE.5755.A306321@stuart.lexacorp.com.pg>

On 23 Jan 2006 at 16:42, Dan Waters wrote:

> Mark,
> 
> Could you put your continuous form into the left side of a subform control,
> then include another form into another subform control on the right side of
> the parent form that would show the detail for the selected record on the
> left side?  Once you've selected the record in your continuous form, I think
> you can pass a recordset as the source for the form on the right.
> 
> Ok - that's just a vision I had . . . !
> 

That's effectively what my second suggestion did (but no need to pass a 
recordset, it all happens automagically).

-- 
Stuart




From cfoust at infostatsystems.com  Mon Jan 23 17:01:33 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 23 Jan 2006 15:01:33 -0800
Subject: [AccessD] Sequence number in query
Message-ID: <F55048AF7E974F429BB24597D7355EEABF4C@INFOSERVER04.infostat.local>

Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
Counter to Query Count Records"

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Monday, January 23, 2006 2:12 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Sequence number in query


Charlotte:

I came up with no matches on qcntr search.  Do you get any hits on that 
search? I think I might have been thinking of running sum on a report. 

Rocky


Charlotte Foust wrote:
> Jim Dettman posted a trick several years ago.  Look up Qcntr in the 
> archives.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Saturday, January 21, 2006 2:18 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Sequence number in query
>
>
> Jim:
>
> No, it was some clever trick in the QBE that would neatly number the
> rows retrieved by the query.  I think using -1 for something had 
> something to do with it but I'm not sure.
>
> Rocky
>
>
> Jim Lawrence wrote:
>   
>> Hi Rocky:
>>
>> You mean drop a place holder like this?
>>
>> SELECT "" AS AddedField1, "" AS AddedField2
>> FROM MyTable;
>>
>> HTH
>> Jim
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>> Smolin - Beach Access Software
>> Sent: January 21, 2006 9:32 AM
>> To: Access Developers discussion and problem solving
>> Subject: [AccessD] Sequence number in query
>>
>> Dear List:
>>
>> There is a trick to creating a column in a query with a sequence
>> number
>> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall
>>     
> this?
>   
>> MTIA
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From stuart at lexacorp.com.pg  Mon Jan 23 17:18:22 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 24 Jan 2006 09:18:22 +1000
Subject: [AccessD] Tree View Control
In-Reply-To: <EB062E528F7B964281EB0F83CFDA3B4334B512@usndc0419.us.deloitte.com>
Message-ID: <43D5F0DE.22697.A47D321@stuart.lexacorp.com.pg>

On 23 Jan 2006 at 17:53, Boyd, Mark Thomas (US - Philadelphia) wrote:

> Thanks Dan.  I'm sure that would work great, but I'm really trying to
> imitate the "drill-down" and "drill-up" behavior that is similar to the tree
> view control.  I want the user to click a "+" control next to the record,
> and the child data appears below this record.  If the user clicks the
> control again, now a "-" symbol, the child data disappears.
> 

You probably need a datasheet/subdatasheet view.

I've just knocked up a quick and dirty demo (A2K) to show how it can work. 
Download it from:
http://www.lexacorp.com.pg/Demos/SubDataSheetDemo.zip


-- 
Stuart




From artful at rogers.com  Mon Jan 23 17:47:53 2006
From: artful at rogers.com (Arthur Fuller)
Date: Mon, 23 Jan 2006 18:47:53 -0500
Subject: [AccessD] Refreshing values on a form
In-Reply-To: <s3cd46a2.009@cactus.dk>
Message-ID: <026101c62077$6d83f780$8e01a8c0@rock>

I hereby reaffirm that I am King of the Dorks. I was assigning the values to
my lists in the incorrect order. DOH! I think that perhaps a name change to
"Homer" is in order... and I don't mean the Greek. 
Now that I have corrected this stupidity, the code works as originally
intended.
Thanks for the slap on the side of the head, Gustav. As always, you point
fools in the right direction.
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: January 17, 2006 1:33 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Refreshing values on a form

Hi Arthur the Mighty

That should work. If I requery a listbox and assign it a value:

  Forms(0).lstSome.Value = 2200

it rolls at once to that line. 
If I browse away without selecting another line and then requery, it rolls
to the line with the assigned value.

So something else must be going on ...

/gustav
>>> artful at rogers.com 17-01-2006 18:30 >>>
I have a form in an inherited app that posits two ways to search: a) you can
select from several listboxes, each cascading to the child until finally you
end up with an invoice number; b) if you know the invoice number, you can
select this option and go directly to the invoice.
I enclosed the options in an option frame whose code disables the choice you
didn't make and enables the choice you did make. (i.e. you can then enter
the values for a) or b)). 
This all works, but what I want to happen is that if you choose search
method b) then the listboxes in choice a) all move to the corresponding
locations within the listbox. I am assigning the values correctly, according
to debug.print anyway, but the listboxes are not rotating to the
corresponding items. In my code I assign the values obtained via selection
b) and then requery the listboxes but they do not move to the selected item.
I want the current value to appear topmost on the listbox. What am I doing
wrong or not doing?
TIA,
Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From shamil at users.mns.ru  Mon Jan 23 18:03:20 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 24 Jan 2006 03:03:20 +0300
Subject: [AccessD] Setting data into and getting data from Named Range	s
References: <002501c6205d$307a0bf0$647aa8c0@ColbyM6805>
Message-ID: <00d901c62079$bc91ef10$0201a8c0@PARIS>

John,

Have a look here is a generic code to get data to ms excel worksheet
from MS Access database and to save data to MS Access db from ms excel
worksheet using disconnected ADO recordsets. This sample uses arrays
because an MS Excel range value is in fact a variant array. It shouldn't
be used with very large source recordsets but as far as I understood you
will not have such recordsets...

Private Const mcstrMdbFullPath As String = _
    "<Your sample mdb fullpath here>"
Private Const mcstrSql As String = _
   "select [CategoryID],[CategoryName],[Description] from [Categories]"
Private Const mcstrDelSql1 As String = _
   "delete * from [Categories1]"
Private Const mcstrSql1 As String = _
   "select [CategoryID],[CategoryName],[Description] from [Categories1]"
'Note: Categories1.CategoryId is assumed to be long integer not
autonumber

Public Sub Tests()
' sample code for MS Excel
Dim xlApp As Excel.Application
Dim wks As Excel.Worksheet
Dim rng As Excel.Range
    Set xlApp = Excel.Application
    Set wks = xlApp.ActiveWorkbook.Worksheets(1)
    Set rng = wks.Cells(2, 2) ' just a top left cell of a test range
    Set rng = GetRowsSample(xlApp, wks, rng)
    SaveRowsSample rng
End Sub

Public Function GetRowsSample( _
   ByRef rxlApp As Excel.Application, _
   ByRef rwks As Excel.Worksheet, _
   ByRef rrng As Excel.Range)
Dim cnn As ADODB.Connection
Dim strCnn As String
Dim rstSrc As ADODB.Recordset
Dim avarSrcValues As Variant
Dim avarSrcValuesT As Variant
Dim rng As Excel.Range

   strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "User ID=Admin;" & _
         "Data Source=" & mcstrMdbFullPath & ";" & _
         "Mode=Share Deny None"
   Set cnn = New ADODB.Connection
   cnn.Open strCnn
   Set rstSrc = New ADODB.Recordset
   rstSrc.Open mcstrSql, cnn, adOpenStatic, adLockOptimistic, adCmdText
   avarSrcValues = rstSrc.GetRows
   rstSrc.Close

   avarSrcValuesT = TransposeMatrixArray(avarSrcValues)
   Set rng = rwks.Range(rrng, _
             rwks.Cells(rrng.Row + UBound(avarSrcValuesT, 1), _
                       rrng.Column + UBound(avarSrcValuesT, 2)))
   rng.Value = avarSrcValuesT
   cnn.Close

   Set GetRowsSample = rng
End Function

Private Function TransposeMatrixArray(ByRef ravar As Variant) As Variant
Dim avar As Variant
Dim lngRowIdx As Long
Dim lngColIdx As Long
   ReDim avar(0 To UBound(ravar, 2), 0 To UBound(ravar, 1))

   For lngColIdx = LBound(ravar, 1) To UBound(ravar, 1)
      For lngRowIdx = LBound(ravar, 2) To UBound(ravar, 2)
         avar(lngRowIdx, lngColIdx) = ravar(lngColIdx, lngRowIdx)
      Next lngRowIdx
   Next lngColIdx

   TransposeMatrixArray = avar
End Function

Public Function SaveRowsSample(ByRef rrng As Excel.Range)
Dim cnn As ADODB.Connection
Dim strCnn As String
Dim rstDst As ADODB.Recordset
Dim lngIdx As Long
Dim lngRowIdx As Long
Dim lngColIdx As Long
Dim avarSrcValues As Variant
Dim avarNames As Variant
Dim avarValues As Variant

   strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "User ID=Admin;" & _
         "Data Source=" & mcstrMdbFullPath & ";" & _
         "Mode=Share Deny None"
   Set cnn = New ADODB.Connection
   cnn.Open strCnn
   cnn.Execute mcstrDelSql1
   Set rstDst = New ADODB.Recordset
   With rstDst
      .CursorLocation = adUseClient
      .Open mcstrSql1, cnn, adOpenStatic, adLockBatchOptimistic,
adCmdText
      Set .ActiveConnection = Nothing
   End With

   avarSrcValues = rrng.Value
   ReDim avarNames(0 To rstDst.Fields.Count - 1)
   ReDim avarValues(0 To rstDst.Fields.Count - 1)

   For lngIdx = 0 To rstDst.Fields.Count - 1
      avarNames(lngIdx) = rstDst.Fields(lngIdx).Name
   Next lngIdx

   For lngRowIdx = 1 To rrng.Rows.Count
        For lngIdx = 0 To rstDst.Fields.Count - 1
           avarValues(lngIdx) = avarSrcValues(lngRowIdx, lngIdx + 1)
        Next lngIdx
        rstDst.AddNew avarNames, avarValues
   Next lngRowIdx

   Set rstDst.ActiveConnection = cnn
   rstDst.UpdateBatch

   rstDst.Close
   cnn.Close
End Function

BTW,  if you'll find your customer wants a lot but doesn't have enough
resources then you may consider to use these 4TOPS Add-ns:

- 4TOPS Excel Link(http://www.4tops.com/excel_link.htm) - to export data
into MS Excel templates and to send these data;
- 4TOPS Excel Import Assistant (http://www.4tops.com/excelimport.htm) -
to import excel worksheets' data into MS Access databases
and even maybe 4TOPS Document Mangement
(http://www.4tops.com/downloaddocumentmanagement.htm).

These are stable software products and they were used in real life large
apps (one of them replaced big Oracle based app).
They are rather generic to fit your current customer tasks but of course
they may have limitations, which will not let you to use them.
And they export data from/import data to normalized databases. Useful
feature and implemented generic way.
They can be used as Add-ins by powerusers and even "weak"users.
They have simple APIs for developers and can be used as library
databases. (One test was to import 3000 MS Excel workbooks with several
worksheets with many source rows in one run - it worked well and it
would work well more - no memory leakage etc. problems - well tested -
and that's is so time consuming activity...)

BTW, when importing data from MS Excel worksheet forms, maybe having
additionally several "subforms", you may consider to create in your
templates special additional "worksheet(s) records reference
templates" - every cell of these templates rows' will have a reference
to the actual value of worksheet form/subform - then you will not need
to use named ranges to get data imported piece by piece (cell by cell -
it's slow) - you will be able to get whole source ranges' values at
once....

etc.

Shamil

----- Original Message ----- 
From: "John Colby" <jwcolby at ColbyConsulting.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Monday, January 23, 2006 11:40 PM
Subject: Re: [AccessD] Setting data into and getting data from Named
Range s


> Jim,
>
> I did, and thanks for the offer.  I think that understanding that it
is the
> range object that actually does the work kind of removed my mental
> roadblocks.  I was thinking that the name object should have abilities
that
> it doesn't have.  I sent an email re "success" to the group.
>
> Again, thanks for the offer.  If I run into any more roadblocks I will
keep
> you in mind.  Kind of the last piece for right now is reading data
back out
> of a named range.  I have code for doing that, though it is kind of
rough
> ATM.
>
> This is for a client who is documenting construction of a hospital.
> Apparently federal law requires that they collect documents for each
and
> every one of certain kinds of systems, paper and electronic, and store
them.
> My client did not understand the size of the job when he got involved,
nor
> when he got me involved.
>
> I am of course building a database to track all of the documents,
request
> them (electronically) from each contractor (via this Request For
Document
> spreadsheet, attached to emails) for each document, then as the
electronic
> documents are returned via attachments to the email I send, strip the
> attachments off and file them in an intricate directory structure out
on the
> hard disk.  There will be literally thousands of documents, perhaps
tens of
> thousands.  6 contractors, 91 systems (though some are "copies", i.e.
7 "Air
> handling units"), and ~150 documents, although all docs are not
required for
> all systems.  My db has to track what has been requested, store
"proof" that
> we did request them (each Excel RFD is saved in the same directory
> structure), track which docs are received back, report which docs are
"owed"
> by which contractors for which systems, and report which system's
documents
> have been completely received.
>
> We are trying to convince all the contractors to work with us in
naming the
> documents to a standard so that as the attachments come in I can parse
the
> doc name to see what system/document it is and "count it as received".
> There are just so many documents that to do this stuff manually would
invite
> chaos.
>
> On top of all that, the requirement is for both paper copies as well
as
> electronic copies, so the db has to track both.  My client has to make
paper
> copies from Electronics where no paper exists, and make electronic
from
> paper where no electronic exist, and get it all entered in the db each
time.
>
> And finally, the main company (Pfizer) in charge of construction, had
the
> unfortunate experience of having their paper copies burned to the
ground one
> time.  As a result I also have to ensure that the electronic copies
get
> automatically written to a local and offsite location, which I will be
doing
> via high speed internet.  I have to track that each electronic
document gets
> written to the back up location as well - a usb hard disk on a
computer
> somewhere out on the internet.  Since the internet can be unavailable,
I
> have to handle that as well, performing the write when the internet
becomes
> available.
>
> The paper in this case will completely fill a single wide trailer when
all
> is said and done, and in fact they have a single wide trailer that
they are
> using to collect the paper.  When they are done they will hook up a
truck
> and haul the paper... Somewhere... Hopefully fireproof.  ;-)
>
> This is where "time and expenses" really takes on meaning!  I quoted
40
> hours to do what my client originally asked for - and DELIVERED that.
Of
> course my client did not understand the scope and so we soldier on.
>
> John W. Colby
> www.ColbyConsulting.com
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hale, Jim
> Sent: Monday, January 23, 2006 1:45 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Setting data into and getting data from Named
Range s
>
> John,
> I sent you an email, did you get it?
> Jim Hale
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From dwaters at usinternet.com  Mon Jan 23 18:16:11 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Mon, 23 Jan 2006 18:16:11 -0600
Subject: [AccessD] Tree View Control
In-Reply-To: <10781989.1138057021966.JavaMail.root@sniper40>
Message-ID: <000901c6207b$6238e580$0200a8c0@danwaters>

You're welcome!  Stuart's suggestion and mine were the same - must be an
Access thing.

If you could talk your client into a drill-right and drill-left scenario,
you'd be there!

Good luck,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Boyd, Mark Thomas
(US - Philadelphia)
Sent: Monday, January 23, 2006 4:54 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

Thanks Dan.  I'm sure that would work great, but I'm really trying to
imitate the "drill-down" and "drill-up" behavior that is similar to the
tree view control.  I want the user to click a "+" control next to the
record, and the child data appears below this record.  If the user
clicks the control again, now a "-" symbol, the child data disappears.

I appreciate the insight, as this solution would work, but the client
would like it displayed a specific way.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: Monday, January 23, 2006 5:43 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Tree View Control

Mark,

Could you put your continuous form into the left side of a subform
control,
then include another form into another subform control on the right side
of
the parent form that would show the detail for the selected record on
the
left side?  Once you've selected the record in your continuous form, I
think
you can pass a recordset as the source for the form on the right.

Ok - that's just a vision I had . . . !

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Boyd, Mark
Thomas
(US - Philadelphia)
Sent: Monday, January 23, 2006 4:25 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

Thanks Stuart.  
I agree, I probably don't want to use the Tree View control.  I'm using
linked forms, but I'd like for the child data to display directly
underneath the parent record on the continuous form.  Placing the child
data in the form footer is a nice concept, but displays too far down on
the form.
Again, what I hope to do is make the data display a certain way.  If
there isn't a clean way of doing it, I have no problem using one of your
suggestions.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Monday, January 23, 2006 5:04 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

On 23 Jan 2006 at 13:59, Boyd, Mark Thomas (US - Phila wrote:

> I have the need to use a Tree View control on a form.
> Basically, I have a continuous form, with a number of records
containing
> Account #'s.  I want the user to be able to click a tree node "+"
button,
> and have detail records for this Account # displayed below. Within
this
> detail data, the user will need to update specific fields (combo boxes
and
> checkboxes).
> 
> Is the Microsoft Tree View control capable of this?  If not, are there
> other controls that have this capability?
> Any sample code would be greatly appreciated.
> 

If you need to update child records, I would not try to use a treeview,
I 
would use linked forms 

Depending on the visual requirements you can do either of the following:

1.
A continuous form (frmsubDetails) in the form_footer of your Accounts
form 
with its parent set to the key field in the main form.

2.
An unbound main form with two sub forms side by side.
A continous subform (frmsubAccounts) on the left which lists all of the 
accounts.
A hidden text box (txtAccountLink) with a control source of 
"=frmSubAccounts.Key"
A continuous subform (frmsubDetails) on the right containing the detail 
records.
Set the Parent Field of frmsubDetails to "txtAccountLink"

In either case, when you click on an Account record, the appropriate 
records will be displayed in frmsubDetails and can be edited.







-- 
Stuart


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com 


This message (including any attachments) contains confidential
information
intended for a specific individual and purpose, and is protected by law.
If
you are not the intended recipient, you should delete this message. 


Any disclosure, copying, or distribution of this message, or the taking
of
any action based on it, is strictly prohibited. [v.E.1]
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From bchacc at san.rr.com  Mon Jan 23 19:14:33 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 23 Jan 2006 17:14:33 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF4C@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF4C@INFOSERVER04.infostat.local>
Message-ID: <43D57F79.9020107@san.rr.com>

Aha!  Thank you.  I thought there was something one could do in the 
query like the running sum trick but a function with a global should do 
nicely.

Thanks again

Rocky


Charlotte Foust wrote:
> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
> Counter to Query Count Records"
>
> Charlotte
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Monday, January 23, 2006 2:12 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Sequence number in query
>
>
> Charlotte:
>
> I came up with no matches on qcntr search.  Do you get any hits on that 
> search? I think I might have been thinking of running sum on a report. 
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> Jim Dettman posted a trick several years ago.  Look up Qcntr in the 
>> archives.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Saturday, January 21, 2006 2:18 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] Sequence number in query
>>
>>
>> Jim:
>>
>> No, it was some clever trick in the QBE that would neatly number the
>> rows retrieved by the query.  I think using -1 for something had 
>> something to do with it but I'm not sure.
>>
>> Rocky
>>
>>
>> Jim Lawrence wrote:
>>   
>>     
>>> Hi Rocky:
>>>
>>> You mean drop a place holder like this?
>>>
>>> SELECT "" AS AddedField1, "" AS AddedField2
>>> FROM MyTable;
>>>
>>> HTH
>>> Jim
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>> Smolin - Beach Access Software
>>> Sent: January 21, 2006 9:32 AM
>>> To: Access Developers discussion and problem solving
>>> Subject: [AccessD] Sequence number in query
>>>
>>> Dear List:
>>>
>>> There is a trick to creating a column in a query with a sequence
>>> number
>>> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall
>>>     
>>>       
>> this?
>>   
>>     
>>> MTIA
>>>
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Mon Jan 23 19:21:25 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 23 Jan 2006 17:21:25 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF4C@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF4C@INFOSERVER04.infostat.local>
Message-ID: <43D58115.5040504@san.rr.com>

Charlotte:

I just tried it - put the function into a module, put Expr1: qcntr(0) in 
the QBE of a query but the function only gets called once so each 
retrieved record has the same value - Cntr.  I was hoping for a sequence 
number.  Am I doing this wrong or is that the way it's supposed to work. 

Rocky


Charlotte Foust wrote:
> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
> Counter to Query Count Records"
>
> Charlotte
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Monday, January 23, 2006 2:12 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Sequence number in query
>
>
> Charlotte:
>
> I came up with no matches on qcntr search.  Do you get any hits on that 
> search? I think I might have been thinking of running sum on a report. 
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> Jim Dettman posted a trick several years ago.  Look up Qcntr in the 
>> archives.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Saturday, January 21, 2006 2:18 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] Sequence number in query
>>
>>
>> Jim:
>>
>> No, it was some clever trick in the QBE that would neatly number the
>> rows retrieved by the query.  I think using -1 for something had 
>> something to do with it but I'm not sure.
>>
>> Rocky
>>
>>
>> Jim Lawrence wrote:
>>   
>>     
>>> Hi Rocky:
>>>
>>> You mean drop a place holder like this?
>>>
>>> SELECT "" AS AddedField1, "" AS AddedField2
>>> FROM MyTable;
>>>
>>> HTH
>>> Jim
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>> Smolin - Beach Access Software
>>> Sent: January 21, 2006 9:32 AM
>>> To: Access Developers discussion and problem solving
>>> Subject: [AccessD] Sequence number in query
>>>
>>> Dear List:
>>>
>>> There is a trick to creating a column in a query with a sequence
>>> number
>>> 1, 2, 3, 4... but I can't remember what it is.  Does anyone recall
>>>     
>>>       
>> this?
>>   
>>     
>>> MTIA
>>>
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From cfoust at infostatsystems.com  Mon Jan 23 19:38:20 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 23 Jan 2006 17:38:20 -0800
Subject: [AccessD] Sequence number in query
Message-ID: <F55048AF7E974F429BB24597D7355EEABF4E@INFOSERVER04.infostat.local>

No, you put Qcnt([myField]) in the query and base it on a field that
changes between records, like the PK.  You need to call SetToZero before
you run the query or you'll get an ongoing sequence of numbers.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Monday, January 23, 2006 5:21 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Sequence number in query


Charlotte:

I just tried it - put the function into a module, put Expr1: qcntr(0) in

the QBE of a query but the function only gets called once so each 
retrieved record has the same value - Cntr.  I was hoping for a sequence

number.  Am I doing this wrong or is that the way it's supposed to work.


Rocky


Charlotte Foust wrote:
> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic

> Counter to Query Count Records"
>
> Charlotte
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Monday, January 23, 2006 2:12 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Sequence number in query
>
>
> Charlotte:
>
> I came up with no matches on qcntr search.  Do you get any hits on 
> that
> search? I think I might have been thinking of running sum on a report.

>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> Jim Dettman posted a trick several years ago.  Look up Qcntr in the
>> archives.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>> Smolin
>> - Beach Access Software
>> Sent: Saturday, January 21, 2006 2:18 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] Sequence number in query
>>
>>
>> Jim:
>>
>> No, it was some clever trick in the QBE that would neatly number the 
>> rows retrieved by the query.  I think using -1 for something had 
>> something to do with it but I'm not sure.
>>
>> Rocky
>>
>>
>> Jim Lawrence wrote:
>>   
>>     
>>> Hi Rocky:
>>>
>>> You mean drop a place holder like this?
>>>
>>> SELECT "" AS AddedField1, "" AS AddedField2
>>> FROM MyTable;
>>>
>>> HTH
>>> Jim
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>> Smolin - Beach Access Software
>>> Sent: January 21, 2006 9:32 AM
>>> To: Access Developers discussion and problem solving
>>> Subject: [AccessD] Sequence number in query
>>>
>>> Dear List:
>>>
>>> There is a trick to creating a column in a query with a sequence 
>>> number 1, 2, 3, 4... but I can't remember what it is.  Does anyone 
>>> recall
>>>     
>>>       
>> this?
>>   
>>     
>>> MTIA
>>>
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From dw-murphy at cox.net  Mon Jan 23 19:48:35 2006
From: dw-murphy at cox.net (Doug Murphy)
Date: Mon, 23 Jan 2006 17:48:35 -0800
Subject: [AccessD] Outlook automation - use a template for a message
In-Reply-To: <00d901c62079$bc91ef10$0201a8c0@PARIS>
Message-ID: <001f01c62088$4a5344d0$0200a8c0@murphyf3vdfepi>

Folks,

I am trying to set up Access and outlook to send an RTF formatted e-mail and
use a template for the body of the e-mail.  Ultimately there will be many
templates.  I am using automation of Outlook from Access.  The problem I am
having is that the e-mails need to be personalized with the recipients name
in the body of the e-mail.  The kicker here is that the template for the
message has an image at the top, the ultimate users logo.  I can get
everything to work but after all the manipulation is done to insert the name
the logo ends up at the bottom of the message.  I am using the body property
of the message item to find the tag I have in the template to insert the
recipients name.  Any thoughts?

Thanks in advance.

Doug



From artful at rogers.com  Mon Jan 23 20:22:19 2006
From: artful at rogers.com (Arthur Fuller)
Date: Mon, 23 Jan 2006 21:22:19 -0500
Subject: [AccessD] Dynamic Report Headers (Huh?)
In-Reply-To: <BAY113-F6E698077799FA18CDB2C8A1100@phx.gbl>
Message-ID: <029601c6208d$009f3830$8e01a8c0@rock>

Very interesting, Jurgen, as always! I am working on an inherited app in
which a table is constructed to bang out the details of interest, and there
is a bunch of code that I don't really understand that examines what the
current group header is and then makes decisions, banging this or that text
into the group header as the code sees fit. I have never in lots of years
developing in Access approached a problem in this fashion, and to be frank I
have no idea what is going on in this code. It seems to work but I cannot
fathom what is occurring. I have always chosen the path that a query does
the grouping etc., but this approach is totally new to me. I have no idea
what the code is doing, except to say that it walks a recordset (accumulated
from several tables) and then decides what the group header should be. It
makes NO sense to me. I seem to live on another planet. My choice would have
been to create one or more queries that do the groups and then proceed, but
this was not the previous developer's choice, and his code works, so what
can I say except that I have no idea what he is doing. He is walking
recordsets and examining what rs1's value is, then making decisions about
what to print as the group header, then printing the detail rows for that
header, and so on. I have read the code about 110 times and I still don't
get it. I was under the impression that this is why we created
relationships.
Stuff like this is the bane of my life as a developer. I was raised under
the wing that whenever possible, one should construct a query that does what
you intend, and that the last possible resort (necessary now and then
admittedly) is that you construct a strSQL statement on the fly and then run
it... but that is IMO the last possible resort. I HATE going in that
direction. My choice is to create a query (assuming MDB) that invokes as
many static functions (or using JC's method, class-methods) that return the
values of interest. I HATE HATE HATE dynamically constructed SQL statements.
They are hard to read, hard to debug, and take no advantage of the SQL
optimizer. Nuff said.
IMO, this is even more true if the BE is SQL rather than MDB, but in both
cases I think that my argument is correct. Building SQL statements, IMO, is
asinine. I want the statement to live on its own, wanting only a few
arguments. That way I can test the statement without relying on a form or
report to invoke it. I want to create a named query that accepts some
arguments (my choice is statics but c.f. JC for class-based alternatives),
such that any given query can be invoked from the immediate window, supplied
with some arguments, and run to see if it works.
Now, back to your immediate response. Depending on file size, I am
definitely in favour of creating a Results table: gather the data and then
create a stupid flat file report that lists said results. I have no problem
at all with approaching a problem in that fashion. In fact I have benchmarks
that demonstrate that this approach results in much quicker reporting. No
problem at all with that. My argument is against dynamic SQL. I think that
in most cases constructing the SQL statement in Access or any other front
end is foolish. (Admittedly there are a few cases in which it is almost
impossible to fire a stored query or a stored sproc/UDF, but I think that
those cases number a very, very few.)
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of J?rgen Welz
Sent: January 23, 2006 12:50 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Virtual library management database

Ervin:

This is a subject on which opinions will vary along lines of what people 
perceive the priorities are.  A flatter file will generally provide better 
performance and a more normalized one will ordinarilly be be both slower and

more complex to query yet provide greater flexibility.

Generally, it is easier to query if you include general items such as Title 
and Author in a single table that encompasses all categories and types of 
media.  Where a object may not have an attribute  not universal to other 
objects, it makes sense to use an unequal join to such tables to return 
those attributes.  A user search could then return all medai types and all 
relevant attributes on a generic search on a word in the title.  You can 
normalize this as much as necessary by joining tables containing attributes 
of specific media categories.

For example, if you store information about an article in a magazine, your 
base table containing an periodical article name and author could easily be 
queried and be joined to a magazine article table that stores the containing

Magazine information and page references.  This would allow the user to be 
able to include all types of media in a single search.

If you break your tables along media type lines, it would be necessary to 
union your search results across all the tables to provide an encompassing 
search.  Union queries cannot (in versions of Access I am familiar with) 
include memo fields that may be necessary to contain descriptive informaion.

Using a report as output simplifes things in that you can use a sub report 
for each category, each with its own SQL source.  However, my preference is 
to always provide a list output where a user can click on an item and have 
it open the appropriate form that contains all relevant information with 
appropriate joins, perhaps with the foreign keyed data in subforms.  
Although the Union restriction on memo types will not apply in the case of 
search results in a list box, I find it easier to return results from a 
single table and show the media type and allow futher filtering on type of 
media in the list result.

Ciao
J|rgen Welz
Edmonton, Alberta
jwelz at hotmail.com



From artful at rogers.com  Mon Jan 23 20:54:37 2006
From: artful at rogers.com (Arthur Fuller)
Date: Mon, 23 Jan 2006 21:54:37 -0500
Subject: [AccessD] Tree View Control
In-Reply-To: <EB062E528F7B964281EB0F83CFDA3B4334B4EA@usndc0419.us.deloitte.com>
Message-ID: <02a201c62091$83e3d0d0$8e01a8c0@rock>

Thank you to those who pointed you at my previous efforts to solve the
treeview problem, but IMO that code is obsolete and there is a much slicker
way to skin this particular cat. I have not yet written it up formally, but
here is the skinny:
Assuming that you have 3 tables or queries (GrandParent, Parent and Child),
try this:
1. Set up the relationships as above, with Referential Integrity;
2. Create an AutoForm for each table (this to be replaced/enhanced when
you're ready); do this inside out (i.e. start at Child then work your way
out).
3. The Parent form should have an embedded subform which refers to the Child
table itself. Switch this to refer to the form you created for the Child.
4. Do the same on the Grandparent level, switching its subform reference to
the Parent form.
5. Change the default display of the Parent form to Databasheet.
6. Change the default display of the Grandparent form to Datasheet.
7. Run the Grandparent form.
This should result in a treeview. Expanding its nodes should take you to
each sublevel. Each level will appear in DataSheet format, which admittedly
is a problem.
To fix this: 
1. Make each of these forms read-only.
2. Write code for each double-click event on each level that pops open a
form in dialog mode. (i.e. suppose top level is Customers; create a form
Customers_Edit_frm that opens an edit form using the selected CustomerID as
its parameter, allowing no navigation; and so on, down the tree).
You will end up with a much smarter treeview that you might have coded using
the treeview object. Trust me. Been there, done it. It works a treat.
You will end up with a very smart UI that knows which node you just selected
and opens the corresponding form, pointed at the node you just selected, no
matter how many levels deep you choose to go. With almost no code, it will
work just as you dreamed it might.
When I get around to it, I will write this up formally, but in the interim
this ought to be enough to get you there.
I have delivered this UI twice recently, to two different clients, and both
were totally wowed. Why? Not because of my slick code, of which there is
almost none, but because it works exactly like Windows Explorer, Outlook and
a dozen other apps they like. I didn't invent this, I just emulated it.
HTH,
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Boyd, Mark Thomas
(US - Philadelphia)
Sent: January 23, 2006 5:25 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

Thanks Stuart.  
I agree, I probably don't want to use the Tree View control.  I'm using
linked forms, but I'd like for the child data to display directly
underneath the parent record on the continuous form.  Placing the child
data in the form footer is a nice concept, but displays too far down on
the form.
Again, what I hope to do is make the data display a certain way.  If
there isn't a clean way of doing it, I have no problem using one of your
suggestions.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 
  
Tel: +1 215 405 5576
mboyd at deloitte.com 
www.deloitte.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart
McLachlan
Sent: Monday, January 23, 2006 5:04 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

On 23 Jan 2006 at 13:59, Boyd, Mark Thomas (US - Phila wrote:

> I have the need to use a Tree View control on a form.
> Basically, I have a continuous form, with a number of records
containing
> Account #'s.  I want the user to be able to click a tree node "+"
button,
> and have detail records for this Account # displayed below. Within
this
> detail data, the user will need to update specific fields (combo boxes
and
> checkboxes).
> 
> Is the Microsoft Tree View control capable of this?  If not, are there
> other controls that have this capability?
> Any sample code would be greatly appreciated.
> 

If you need to update child records, I would not try to use a treeview,
I 
would use linked forms 

Depending on the visual requirements you can do either of the following:

1.
A continuous form (frmsubDetails) in the form_footer of your Accounts
form 
with its parent set to the key field in the main form.

2.
An unbound main form with two sub forms side by side.
A continous subform (frmsubAccounts) on the left which lists all of the 
accounts.
A hidden text box (txtAccountLink) with a control source of 
"=frmSubAccounts.Key"
A continuous subform (frmsubDetails) on the right containing the detail 
records.
Set the Parent Field of frmsubDetails to "txtAccountLink"

In either case, when you click on an Account record, the appropriate 
records will be displayed in frmsubDetails and can be edited.







-- 
Stuart


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com 


This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  If
you are not the intended recipient, you should delete this message. 


Any disclosure, copying, or distribution of this message, or the taking of
any action based on it, is strictly prohibited. [v.E.1]
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From artful at rogers.com  Mon Jan 23 20:55:30 2006
From: artful at rogers.com (Arthur Fuller)
Date: Mon, 23 Jan 2006 21:55:30 -0500
Subject: [AccessD] Tree View Control
In-Reply-To: <EB062E528F7B964281EB0F83CFDA3B4334B512@usndc0419.us.deloitte.com>
Message-ID: <02a301c62091$a329f320$8e01a8c0@rock>

See the message I just sent.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Boyd, Mark Thomas
(US - Philadelphia)
Sent: January 23, 2006 5:54 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Tree View Control

Thanks Dan.  I'm sure that would work great, but I'm really trying to
imitate the "drill-down" and "drill-up" behavior that is similar to the
tree view control.  I want the user to click a "+" control next to the
record, and the child data appears below this record.  If the user
clicks the control again, now a "-" symbol, the child data disappears.

I appreciate the insight, as this solution would work, but the client
would like it displayed a specific way.

Thanks again.

Mark Boyd 
Senior Consultant 
Enterprise Risk Services 
Deloitte & Touche LLP 



From stuart at lexacorp.com.pg  Mon Jan 23 21:24:13 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 24 Jan 2006 13:24:13 +1000
Subject: [AccessD] Tree View Control
In-Reply-To: <02a201c62091$83e3d0d0$8e01a8c0@rock>
References: <EB062E528F7B964281EB0F83CFDA3B4334B4EA@usndc0419.us.deloitte.com>
Message-ID: <43D62A7D.25982.B28E924@stuart.lexacorp.com.pg>

On 23 Jan 2006 at 21:54, Arthur Fuller wrote:

> Thank you to those who pointed you at my previous efforts to solve the
> treeview problem, but IMO that code is obsolete and there is a much slicker
> way to skin this particular cat. I have not yet written it up formally, but
> here is the skinny:

Sounds like an extension of the subdatasheet demo I knocked up and posted a 
few hours ago :-)

-- 
Stuart




From bchacc at san.rr.com  Mon Jan 23 21:33:43 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 23 Jan 2006 19:33:43 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF4E@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF4E@INFOSERVER04.infostat.local>
Message-ID: <43D5A017.3070807@san.rr.com>

Works!  (Of course, you knew that).  Curiously, it starts numbering at 
2.  If I change

   Cntr = Cntr + 1
   QCntr = Cntr

to
   QCntr = Cntr
   Cntr = Cntr + 1

it starts numbering at 1.

But...whatever works...

Thanks again.

Rocky


Charlotte Foust wrote:
> No, you put Qcnt([myField]) in the query and base it on a field that
> changes between records, like the PK.  You need to call SetToZero before
> you run the query or you'll get an ongoing sequence of numbers.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Monday, January 23, 2006 5:21 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Sequence number in query
>
>
> Charlotte:
>
> I just tried it - put the function into a module, put Expr1: qcntr(0) in
>
> the QBE of a query but the function only gets called once so each 
> retrieved record has the same value - Cntr.  I was hoping for a sequence
>
> number.  Am I doing this wrong or is that the way it's supposed to work.
>
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
>>     
>
>   
>> Counter to Query Count Records"
>>
>> Charlotte
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Monday, January 23, 2006 2:12 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] Sequence number in query
>>
>>
>> Charlotte:
>>
>> I came up with no matches on qcntr search.  Do you get any hits on 
>> that
>> search? I think I might have been thinking of running sum on a report.
>>     
>
>   
>> Rocky
>>
>>
>> Charlotte Foust wrote:
>>   
>>     
>>> Jim Dettman posted a trick several years ago.  Look up Qcntr in the
>>> archives.
>>>
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>> Smolin
>>> - Beach Access Software
>>> Sent: Saturday, January 21, 2006 2:18 PM
>>> To: Access Developers discussion and problem solving
>>> Subject: Re: [AccessD] Sequence number in query
>>>
>>>
>>> Jim:
>>>
>>> No, it was some clever trick in the QBE that would neatly number the 
>>> rows retrieved by the query.  I think using -1 for something had 
>>> something to do with it but I'm not sure.
>>>
>>> Rocky
>>>
>>>
>>> Jim Lawrence wrote:
>>>   
>>>     
>>>       
>>>> Hi Rocky:
>>>>
>>>> You mean drop a place holder like this?
>>>>
>>>> SELECT "" AS AddedField1, "" AS AddedField2
>>>> FROM MyTable;
>>>>
>>>> HTH
>>>> Jim
>>>>
>>>> -----Original Message-----
>>>> From: accessd-bounces at databaseadvisors.com
>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>>> Smolin - Beach Access Software
>>>> Sent: January 21, 2006 9:32 AM
>>>> To: Access Developers discussion and problem solving
>>>> Subject: [AccessD] Sequence number in query
>>>>
>>>> Dear List:
>>>>
>>>> There is a trick to creating a column in a query with a sequence 
>>>> number 1, 2, 3, 4... but I can't remember what it is.  Does anyone 
>>>> recall
>>>>     
>>>>       
>>>>         
>>> this?
>>>   
>>>     
>>>       
>>>> MTIA
>>>>
>>>>   
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From jwelz at hotmail.com  Tue Jan 24 00:28:01 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Mon, 23 Jan 2006 23:28:01 -0700
Subject: [AccessD] Dynamic Report Headers (Huh?)
In-Reply-To: <029601c6208d$009f3830$8e01a8c0@rock>
Message-ID: <BAY113-F18487BDDBD728D6AAC7F11A1130@phx.gbl>

Arthur:

I wasn't suggesting that one dynamically set the SQL of each subreport.  
Each subreport, when it has data, displays the data appropriate to its 
relation to the parent record.  A parent result that cuts across all 
subcategories is what I am advocating.

I recently did a database for a law office and I wound up creating a single 
entity table that held the names of all people and corporate bodies in a 
single table.  After all, a Client could be a corporate body or an 
individual.  The corporate body may be a municpality.  A person who is a 
lawyer, who would have lawyer attributes could also be a client with the 
attributes of a client.  Similarly I had a single address table that 
represented addresses of corporate bodies, law firms, and properties in 
respect of which we were handling transactions such as sales, liens in a law 
suit and places to which mail might be sent by mail or delivered by hand.  
An address may belong to several categories at a single time, but, if I have 
a client's address as a mailing address and he sells the property, I do not 
wish to have to re-enter the address of the property, but merely add the 
related details of legal description, tax assessment and encumbrances.

If I were shooting for raw speed, I could have denormalized by keeping 
addresses with a table of properties and and with a table of entities.  
However, I wanted to be able to enter an address and find out what 
connections the data had to that address no matter what the relationship.  
If you open the address, there is a subform on a tab with which files are 
related to it and a tab with parties related to the address, as husband & 
wife, as lawyer and his lawfirm, legal assistant.

Items related to a file may be clients that include corporate bodies, other 
lawyers, legal assistants, realtors, municipalities, court file information, 
properties, each of which may require particular information in a subform 
for that kind of information.

None of this requires dynamic SQL to fill a form with data, and the same 
applies to subreports.

I am quite content to use dynamic SQL to build search criteria to populate a 
list box.  I also have no problem running 5 or 6 separate queries in 
sequence, appending the results to an array, sorting the array and throwing 
the results into a list box of hits.  If you use the latter approach, it is 
enough to use as many simple paramaterized queries as needed without any 
need for dynamic SQL.  You can select a literal as one of the fields to 
indicate in which category a particular result was returned to provide a 
means to navigate to an appropriate type of form upon click of an item in 
the list.

For example, if I enter 'Edm' as a 'starts with' name criteria, I may get a 
lawyers, municipalities and clients, both corporate and individual, and 
clicking on a particular result should navigate to a form that hold the data 
particular to the appropriate kind of parent record.  I like to allow a 
client to choose which categories are included and excluded in the search 
results list and it is easy enough, using a series of rst.getrows against 
each chosen category to populate an array for sorting and then use a 
callback to fill the list.

In my opinion, searching a library of books and media for results that cut 
across all categories seems a natural for this general kind of approach.  I 
always prefer to show results in a list box to allow quick navigation to 
more information about the data and do not like to wait for a report to open 
and use that screen or printout as the basis for examining a variety of 
potential items of interest.

Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Arthur Fuller" <artful at rogers.com>
>
>Very interesting, Jurgen, as always! I am working on an inherited app in
>which a table is constructed to bang out the details of interest, and there
>is a bunch of code that I don't really understand that examines what the
>current group header is and then makes decisions, banging this or that text
>into the group header as the code sees fit. I have never in lots of years
>developing in Access approached a problem in this fashion, and to be frank 
>I
>have no idea what is going on in this code. It seems to work but I cannot
>fathom what is occurring. I have always chosen the path that a query does
>the grouping etc., but this approach is totally new to me. I have no idea
>what the code is doing, except to say that it walks a recordset 
>(accumulated
>from several tables) and then decides what the group header should be. It
>makes NO sense to me. I seem to live on another planet. My choice would 
>have
>been to create one or more queries that do the groups and then proceed, but
>this was not the previous developer's choice, and his code works, so what
>can I say except that I have no idea what he is doing. He is walking
>recordsets and examining what rs1's value is, then making decisions about
>what to print as the group header, then printing the detail rows for that
>header, and so on. I have read the code about 110 times and I still don't
>get it. I was under the impression that this is why we created
>relationships.
>Stuff like this is the bane of my life as a developer. I was raised under
>the wing that whenever possible, one should construct a query that does 
>what
>you intend, and that the last possible resort (necessary now and then
>admittedly) is that you construct a strSQL statement on the fly and then 
>run
>it... but that is IMO the last possible resort. I HATE going in that
>direction. My choice is to create a query (assuming MDB) that invokes as
>many static functions (or using JC's method, class-methods) that return the
>values of interest. I HATE HATE HATE dynamically constructed SQL 
>statements.
>They are hard to read, hard to debug, and take no advantage of the SQL
>optimizer. Nuff said.
>IMO, this is even more true if the BE is SQL rather than MDB, but in both
>cases I think that my argument is correct. Building SQL statements, IMO, is
>asinine. I want the statement to live on its own, wanting only a few
>arguments. That way I can test the statement without relying on a form or
>report to invoke it. I want to create a named query that accepts some
>arguments (my choice is statics but c.f. JC for class-based alternatives),
>such that any given query can be invoked from the immediate window, 
>supplied
>with some arguments, and run to see if it works.
>Now, back to your immediate response. Depending on file size, I am
>definitely in favour of creating a Results table: gather the data and then
>create a stupid flat file report that lists said results. I have no problem
>at all with approaching a problem in that fashion. In fact I have 
>benchmarks
>that demonstrate that this approach results in much quicker reporting. No
>problem at all with that. My argument is against dynamic SQL. I think that
>in most cases constructing the SQL statement in Access or any other front
>end is foolish. (Admittedly there are a few cases in which it is almost
>impossible to fire a stored query or a stored sproc/UDF, but I think that
>those cases number a very, very few.)
>Arthur
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of J?rgen Welz
>Sent: January 23, 2006 12:50 PM
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] Virtual library management database
>
>Ervin:
>
>This is a subject on which opinions will vary along lines of what people
>perceive the priorities are.  A flatter file will generally provide better
>performance and a more normalized one will ordinarilly be be both slower 
>and
>
>more complex to query yet provide greater flexibility.
>
>Generally, it is easier to query if you include general items such as Title
>and Author in a single table that encompasses all categories and types of
>media.  Where a object may not have an attribute  not universal to other
>objects, it makes sense to use an unequal join to such tables to return
>those attributes.  A user search could then return all medai types and all
>relevant attributes on a generic search on a word in the title.  You can
>normalize this as much as necessary by joining tables containing attributes
>of specific media categories.
>
>For example, if you store information about an article in a magazine, your
>base table containing an periodical article name and author could easily be
>queried and be joined to a magazine article table that stores the 
>containing
>
>Magazine information and page references.  This would allow the user to be
>able to include all types of media in a single search.
>
>If you break your tables along media type lines, it would be necessary to
>union your search results across all the tables to provide an encompassing
>search.  Union queries cannot (in versions of Access I am familiar with)
>include memo fields that may be necessary to contain descriptive 
>informaion.
>
>Using a report as output simplifes things in that you can use a sub report
>for each category, each with its own SQL source.  However, my preference is
>to always provide a list output where a user can click on an item and have
>it open the appropriate form that contains all relevant information with
>appropriate joins, perhaps with the foreign keyed data in subforms.
>Although the Union restriction on memo types will not apply in the case of
>search results in a list box, I find it easier to return results from a
>single table and show the media type and allow futher filtering on type of
>media in the list result.
>
>Ciao
>J|rgen Welz
>Edmonton, Alberta
>jwelz at hotmail.com




From jwelz at hotmail.com  Tue Jan 24 00:28:32 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Mon, 23 Jan 2006 23:28:32 -0700
Subject: [AccessD] Dynamic Report Headers (Huh?)
In-Reply-To: <029601c6208d$009f3830$8e01a8c0@rock>
Message-ID: <BAY113-F7FD1C5F3979120BDF1C08A1130@phx.gbl>

Arthur:

I wasn't suggesting that one dynamically set the SQL of each subreport.  
Each subreport, when it has data, displays the data appropriate to its 
relation to the parent record.  A parent result that cuts across all 
subcategories is what I am advocating.

I recently did a database for a law office and I wound up creating a single 
entity table that held the names of all people and corporate bodies in a 
single table.  After all, a Client could be a corporate body or an 
individual.  The corporate body may be a municpality.  A person who is a 
lawyer, who would have lawyer attributes could also be a client with the 
attributes of a client.  Similarly I had a single address table that 
represented addresses of corporate bodies, law firms, and properties in 
respect of which we were handling transactions such as sales, liens in a law 
suit and places to which mail might be sent by mail or delivered by hand.  
An address may belong to several categories at a single time, but, if I have 
a client's address as a mailing address and he sells the property, I do not 
wish to have to re-enter the address of the property, but merely add the 
related details of legal description, tax assessment and encumbrances.

If I were shooting for raw speed, I could have denormalized by keeping 
addresses with a table of properties and and with a table of entities.  
However, I wanted to be able to enter an address and find out what 
connections the data had to that address no matter what the relationship.  
If you open the address, there is a subform on a tab with which files are 
related to it and a tab with parties related to the address, as husband & 
wife, as lawyer and his lawfirm, legal assistant.

Items related to a file may be clients that include corporate bodies, other 
lawyers, legal assistants, realtors, municipalities, court file information, 
properties, each of which may require particular information in a subform 
for that kind of information.

None of this requires dynamic SQL to fill a form with data, and the same 
applies to subreports.

I am quite content to use dynamic SQL to build search criteria to populate a 
list box.  I also have no problem running 5 or 6 separate queries in 
sequence, appending the results to an array, sorting the array and throwing 
the results into a list box of hits.  If you use the latter approach, it is 
enough to use as many simple paramaterized queries as needed without any 
need for dynamic SQL.  You can select a literal as one of the fields to 
indicate in which category a particular result was returned to provide a 
means to navigate to an appropriate type of form upon click of an item in 
the list.

For example, if I enter 'Edm' as a 'starts with' name criteria, I may get a 
lawyers, municipalities and clients, both corporate and individual, and 
clicking on a particular result should navigate to a form that hold the data 
particular to the appropriate kind of parent record.  I like to allow a 
client to choose which categories are included and excluded in the search 
results list and it is easy enough, using a series of rst.getrows against 
each chosen category to populate an array for sorting and then use a 
callback to fill the list.

In my opinion, searching a library of books and media for results that cut 
across all categories seems a natural for this general kind of approach.  I 
always prefer to show results in a list box to allow quick navigation to 
more information about the data and do not like to wait for a report to open 
and use that screen or printout as the basis for examining a variety of 
potential items of interest.

Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Arthur Fuller" <artful at rogers.com>
>
>Very interesting, Jurgen, as always! I am working on an inherited app in
>which a table is constructed to bang out the details of interest, and there
>is a bunch of code that I don't really understand that examines what the
>current group header is and then makes decisions, banging this or that text
>into the group header as the code sees fit. I have never in lots of years
>developing in Access approached a problem in this fashion, and to be frank 
>I
>have no idea what is going on in this code. It seems to work but I cannot
>fathom what is occurring. I have always chosen the path that a query does
>the grouping etc., but this approach is totally new to me. I have no idea
>what the code is doing, except to say that it walks a recordset 
>(accumulated
>from several tables) and then decides what the group header should be. It
>makes NO sense to me. I seem to live on another planet. My choice would 
>have
>been to create one or more queries that do the groups and then proceed, but
>this was not the previous developer's choice, and his code works, so what
>can I say except that I have no idea what he is doing. He is walking
>recordsets and examining what rs1's value is, then making decisions about
>what to print as the group header, then printing the detail rows for that
>header, and so on. I have read the code about 110 times and I still don't
>get it. I was under the impression that this is why we created
>relationships.
>Stuff like this is the bane of my life as a developer. I was raised under
>the wing that whenever possible, one should construct a query that does 
>what
>you intend, and that the last possible resort (necessary now and then
>admittedly) is that you construct a strSQL statement on the fly and then 
>run
>it... but that is IMO the last possible resort. I HATE going in that
>direction. My choice is to create a query (assuming MDB) that invokes as
>many static functions (or using JC's method, class-methods) that return the
>values of interest. I HATE HATE HATE dynamically constructed SQL 
>statements.
>They are hard to read, hard to debug, and take no advantage of the SQL
>optimizer. Nuff said.
>IMO, this is even more true if the BE is SQL rather than MDB, but in both
>cases I think that my argument is correct. Building SQL statements, IMO, is
>asinine. I want the statement to live on its own, wanting only a few
>arguments. That way I can test the statement without relying on a form or
>report to invoke it. I want to create a named query that accepts some
>arguments (my choice is statics but c.f. JC for class-based alternatives),
>such that any given query can be invoked from the immediate window, 
>supplied
>with some arguments, and run to see if it works.
>Now, back to your immediate response. Depending on file size, I am
>definitely in favour of creating a Results table: gather the data and then
>create a stupid flat file report that lists said results. I have no problem
>at all with approaching a problem in that fashion. In fact I have 
>benchmarks
>that demonstrate that this approach results in much quicker reporting. No
>problem at all with that. My argument is against dynamic SQL. I think that
>in most cases constructing the SQL statement in Access or any other front
>end is foolish. (Admittedly there are a few cases in which it is almost
>impossible to fire a stored query or a stored sproc/UDF, but I think that
>those cases number a very, very few.)
>Arthur
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of J?rgen Welz
>Sent: January 23, 2006 12:50 PM
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] Virtual library management database
>
>Ervin:
>
>This is a subject on which opinions will vary along lines of what people
>perceive the priorities are.  A flatter file will generally provide better
>performance and a more normalized one will ordinarilly be be both slower 
>and
>
>more complex to query yet provide greater flexibility.
>
>Generally, it is easier to query if you include general items such as Title
>and Author in a single table that encompasses all categories and types of
>media.  Where a object may not have an attribute  not universal to other
>objects, it makes sense to use an unequal join to such tables to return
>those attributes.  A user search could then return all medai types and all
>relevant attributes on a generic search on a word in the title.  You can
>normalize this as much as necessary by joining tables containing attributes
>of specific media categories.
>
>For example, if you store information about an article in a magazine, your
>base table containing an periodical article name and author could easily be
>queried and be joined to a magazine article table that stores the 
>containing
>
>Magazine information and page references.  This would allow the user to be
>able to include all types of media in a single search.
>
>If you break your tables along media type lines, it would be necessary to
>union your search results across all the tables to provide an encompassing
>search.  Union queries cannot (in versions of Access I am familiar with)
>include memo fields that may be necessary to contain descriptive 
>informaion.
>
>Using a report as output simplifes things in that you can use a sub report
>for each category, each with its own SQL source.  However, my preference is
>to always provide a list output where a user can click on an item and have
>it open the appropriate form that contains all relevant information with
>appropriate joins, perhaps with the foreign keyed data in subforms.
>Although the Union restriction on memo types will not apply in the case of
>search results in a list box, I find it easier to return results from a
>single table and show the media type and allow futher filtering on type of
>media in the list result.
>
>Ciao
>J|rgen Welz
>Edmonton, Alberta
>jwelz at hotmail.com




From Erwin.Craps at ithelps.be  Tue Jan 24 01:50:48 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Tue, 24 Jan 2006 08:50:48 +0100
Subject: [AccessD] Outlook automation - use a template for a message
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62D9@stekelbes.ithelps.local>

I'm not really sure about what the problem is (language prob).

Anyway I wish to warn you that RTF is no longer supported in Outlook
2003 and posibly 2002.
I know it still is in 2000. 
RTF is quiete pointless when having HTML.
Maybe you should retry your code with HTML first.

I have written some personalized promo newsletter e-mail to, so maybe I
can help you.
Maybe you should post some of the code that is giving you troubles.

Erwin

-----Oorspronkelijk bericht-----
Van: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] Namens Doug Murphy
Verzonden: dinsdag 24 januari 2006 2:49
Aan: 'Access Developers discussion and problem solving'
Onderwerp: [AccessD] Outlook automation - use a template for a message

Folks,

I am trying to set up Access and outlook to send an RTF formatted e-mail
and use a template for the body of the e-mail.  Ultimately there will be
many templates.  I am using automation of Outlook from Access.  The
problem I am having is that the e-mails need to be personalized with the
recipients name in the body of the e-mail.  The kicker here is that the
template for the message has an image at the top, the ultimate users
logo.  I can get everything to work but after all the manipulation is
done to insert the name the logo ends up at the bottom of the message.
I am using the body property of the message item to find the tag I have
in the template to insert the recipients name.  Any thoughts?

Thanks in advance.

Doug

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From Gustav at cactus.dk  Tue Jan 24 03:59:03 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 24 Jan 2006 10:59:03 +0100
Subject: [AccessD] Refreshing values on a form
Message-ID: <s3d60889.077@cactus.dk>

Hi Arthur

Glad you found out. But I certainly didn't mean to slap you on the side of the head, and I don't think I'ver used the word stupid in relation to our fellow listmembers or their doings. We are all learning, and making a mistake or not knowing isn't the same as being stupid. 
You know that, I'm sure - it's just for the records.

/gustav

>>> artful at rogers.com 24-01-2006 00:47 >>>
I hereby reaffirm that I am King of the Dorks. I was assigning the values to
my lists in the incorrect order. DOH! I think that perhaps a name change to
"Homer" is in order... and I don't mean the Greek. 
Now that I have corrected this stupidity, the code works as originally
intended.
Thanks for the slap on the side of the head, Gustav. As always, you point
fools in the right direction.
Arthur

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: January 17, 2006 1:33 PM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Refreshing values on a form

Hi Arthur the Mighty

That should work. If I requery a listbox and assign it a value:

  Forms(0).lstSome.Value = 2200

it rolls at once to that line. 
If I browse away without selecting another line and then requery, it rolls
to the line with the assigned value.

So something else must be going on ...

/gustav
>>> artful at rogers.com 17-01-2006 18:30 >>>
I have a form in an inherited app that posits two ways to search: a) you can
select from several listboxes, each cascading to the child until finally you
end up with an invoice number; b) if you know the invoice number, you can
select this option and go directly to the invoice.
I enclosed the options in an option frame whose code disables the choice you
didn't make and enables the choice you did make. (i.e. you can then enter
the values for a) or b)). 
This all works, but what I want to happen is that if you choose search
method b) then the listboxes in choice a) all move to the corresponding
locations within the listbox. I am assigning the values correctly, according
to debug.print anyway, but the listboxes are not rotating to the
corresponding items. In my code I assign the values obtained via selection
b) and then requery the listboxes but they do not move to the selected item.
I want the current value to appear topmost on the listbox. What am I doing
wrong or not doing?
TIA,
Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks




From Gustav at cactus.dk  Tue Jan 24 04:14:20 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 24 Jan 2006 11:14:20 +0100
Subject: [AccessD] Setting data into and getting data from Named	Range	s
Message-ID: <s3d60c15.078@cactus.dk>

Hi Shamil

That's a nice and clean solution with the disconnected dataset. Thanks.

But what is a "large recordset"? Isn't Excel limited to 65536 rows?
Would it be faster to link such a large range as a table in Access? That's what I use but I've never handled recordsets this way with more 100 rows.

/gustav

>>> shamil at users.mns.ru 24-01-2006 01:03 >>>
John,

Have a look here is a generic code to get data to ms excel worksheet
from MS Access database and to save data to MS Access db from ms excel
worksheet using disconnected ADO recordsets. This sample uses arrays
because an MS Excel range value is in fact a variant array. It shouldn't
be used with very large source recordsets but as far as I understood you
will not have such recordsets...




From stuart at lexacorp.com.pg  Tue Jan 24 04:25:07 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Tue, 24 Jan 2006 20:25:07 +1000
Subject: [AccessD] Tree View Control
In-Reply-To: <43D5F0DE.22697.A47D321@stuart.lexacorp.com.pg>
References: <EB062E528F7B964281EB0F83CFDA3B4334B512@usndc0419.us.deloitte.com>
Message-ID: <43D68D23.21096.1771770@stuart.lexacorp.com.pg>

On 24 Jan 2006 at 9:18, Stuart McLachlan wrote:

> 
> You probably need a datasheet/subdatasheet view.
> 
> I've just knocked up a quick and dirty demo (A2K) to show how it can work.
> Download it from: http://www.lexacorp.com.pg/Demos/SubDataSheetDemo.zip
> 

Correction:
http://www.lexacorp.com.pg/Demo/SubDataSheetDemo.zip
( no "s" in "Demo")

-- 
Stuart




From Gustav at cactus.dk  Tue Jan 24 04:26:29 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 24 Jan 2006 11:26:29 +0100
Subject: [AccessD] Sequence number in query
Message-ID: <s3d60f0a.079@cactus.dk>

Hi Rocky

It won't work for a select query you display and browse.
Don't know it that is your case.

How many records do you have?
Did you try out "my" SQL only trick? Not invented by me and not very fast but fast enough for small recordset and very reliable. And no reset code needed.

/gustav


>>> bchacc at san.rr.com 24-01-2006 02:14 >>>
Aha!  Thank you.  I thought there was something one could do in the 
query like the running sum trick but a function with a global should do 
nicely.

Thanks again

Rocky


Charlotte Foust wrote:
> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
> Counter to Query Count Records"
>
> Charlotte




From viner at EUnet.yu  Tue Jan 24 07:44:33 2006
From: viner at EUnet.yu (Ervin Brindza)
Date: Tue, 24 Jan 2006 14:44:33 +0100
Subject: [AccessD] Virtual library management database
References: <BAY113-F6E698077799FA18CDB2C8A1100@phx.gbl>
Message-ID: <004e01c620ec$b0cc2f60$0100a8c0@RazvojErvin>

J?rgen,
many thanks for your kind reply. I'll consider your words of wisdom ;-)
Ervin
----- Original Message ----- 
From: "J?rgen Welz" <jwelz at hotmail.com>
To: <accessd at databaseadvisors.com>
Sent: Monday, January 23, 2006 6:50 PM
Subject: Re: [AccessD] Virtual library management database


> Ervin:
>
> This is a subject on which opinions will vary along lines of what people
> perceive the priorities are.  A flatter file will generally provide better
> performance and a more normalized one will ordinarilly be be both slower 
> and
> more complex to query yet provide greater flexibility.
>
> Generally, it is easier to query if you include general items such as 
> Title
> and Author in a single table that encompasses all categories and types of
> media.  Where a object may not have an attribute  not universal to other
> objects, it makes sense to use an unequal join to such tables to return
> those attributes.  A user search could then return all medai types and all
> relevant attributes on a generic search on a word in the title.  You can
> normalize this as much as necessary by joining tables containing 
> attributes
> of specific media categories.
>
> For example, if you store information about an article in a magazine, your
> base table containing an periodical article name and author could easily 
> be
> queried and be joined to a magazine article table that stores the 
> containing
> Magazine information and page references.  This would allow the user to be
> able to include all types of media in a single search.
>
> If you break your tables along media type lines, it would be necessary to
> union your search results across all the tables to provide an encompassing
> search.  Union queries cannot (in versions of Access I am familiar with)
> include memo fields that may be necessary to contain descriptive 
> informaion.
>
> Using a report as output simplifes things in that you can use a sub report
> for each category, each with its own SQL source.  However, my preference 
> is
> to always provide a list output where a user can click on an item and have
> it open the appropriate form that contains all relevant information with
> appropriate joins, perhaps with the foreign keyed data in subforms.
> Although the Union restriction on memo types will not apply in the case of
> search results in a list box, I find it easier to return results from a
> single table and show the media type and allow futher filtering on type of
> media in the list result.
>
> Ciao
> J?rgen Welz
> Edmonton, Alberta
> jwelz at hotmail.com
>
>
>>From: "Ervin Brindza" <viner at EUnet.yu>
>>
>><second attempt>
>>I was asked to do some voluntary work for some community. I need some 
>>ideas
>>in designing a virtual library management database. The database will
>>manage various matherial for amatheur folk dancers, mostly with their home
>>made videos and sound matherial, books, magazines, video tapes, CDs(with
>>many short video films), DVD discs, sound recordings(LP discs, sound
>>casettes etc.) etc.
>>So there are two types of entities: "simple"entity(e.g. books or DVD discs
>>with one film) and "complex" (e.g. magazines with articles of various
>>category, CD or DVD discs with more than one video film). The last entity
>>need a main table in a 1 to many relationship with the "sub" table, but 
>>the
>>first will have nothing on many side, if I put all of them into these two
>>tables.
>>For books and DVD discs are important: Title, Author and Category
>>For video tapes and sound cassettes are important(for each short film):
>>Order No., Name of the film(or song), Lenghth, Category
>>For magazines(for each article): Title, Author and Category
>>The main goal of the system is to search on category, so when the user
>>"ask" the system for e.g. Irish step to get all the book, videos, books,
>>articles in one report.
>>So, my question is: is it clever to put all those various types of 
>>entities
>>into one table(and connected table) or to separate each type of entity 
>>into
>>own table.
>>Many thanks for suggestions,
>>     Ervin
>
>
>


--------------------------------------------------------------------------------


> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 



From viner at EUnet.yu  Tue Jan 24 07:45:02 2006
From: viner at EUnet.yu (Ervin Brindza)
Date: Tue, 24 Jan 2006 14:45:02 +0100
Subject: [AccessD] Virtual library management database
References: <0b8101c62007$eaf0d730$0100a8c0@RazvojErvin>
	<43D51A11.3000002@shaw.ca>
Message-ID: <004f01c620ec$b31de790$0100a8c0@RazvojErvin>

Marty,
many thanks for sharing that resource!
Ervin
----- Original Message ----- 
From: "MartyConnelly" <martyconnelly at shaw.ca>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Monday, January 23, 2006 7:01 PM
Subject: Re: [AccessD] Virtual library management database


> Have a look at the the data models here
> http://www.databaseanswers.org/data_models/
> This one seperates books by format
> http://www.databaseanswers.org/data_models/bookstore_and_warehouses/index.htm
> I would have each entity into its own table unless there is some
> commonality.
>
> Ervin Brindza wrote:
>
>><second attempt>
>>I was asked to do some voluntary work for some community. I need some 
>>ideas in designing a virtual library management database. The database 
>>will manage various matherial for amatheur folk dancers, mostly with their 
>>home made videos and sound matherial, books, magazines, video tapes, 
>>CDs(with many short video films), DVD discs, sound recordings(LP discs, 
>>sound casettes etc.) etc.
>>So there are two types of entities: "simple"entity(e.g. books or DVD discs 
>>with one film) and "complex" (e.g. magazines with articles of various 
>>category, CD or DVD discs with more than one video film). The last entity 
>>need a main table in a 1 to many relationship with the "sub" table, but 
>>the first will have nothing on many side, if I put all of them into these 
>>two tables.
>>For books and DVD discs are important: Title, Author and Category
>>For video tapes and sound cassettes are important(for each short film): 
>>Order No., Name of the film(or song), Lenghth, Category
>>For magazines(for each article): Title, Author and Category
>>The main goal of the system is to search on category, so when the user 
>>"ask" the system for e.g. Irish step to get all the book, videos, books, 
>>articles in one report.
>>So, my question is: is it clever to put all those various types of 
>>entities into one table(and connected table) or to separate each type of 
>>entity into own table.
>>Many thanks for suggestions,
>>    Ervin
>>
>>
>
> -- 
> Marty Connelly
> Victoria, B.C.
> Canada
>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com 



From bchacc at san.rr.com  Tue Jan 24 08:07:16 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Tue, 24 Jan 2006 06:07:16 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <s3d60f0a.079@cactus.dk>
References: <s3d60f0a.079@cactus.dk>
Message-ID: <43D63494.6090601@san.rr.com>

Gustav:

I'm trying to create a column for the x axis of a graph, so it's for a 
report.  I think I may do what I usually do which is to whip up some 
code to create a temp table rather than trying to make a query do tricks. 

I did use the Qcntr thing and it worked.   Now I've got to start 
fiddling with the chart thingy to see if I can get it to behave. 

This is for a Preventive Maintenance application that I am developing in 
partnership with a guy in Bangalore.  There's not a very big market for 
the application but it's fun trying to do a joint venture at that 
distance with someone you've never met.  I actually don't think that the 
graph will be all that useful but it's part of his design so I'm going 
to do it.  He knows the user's needs. 


Rocky


Gustav Brock wrote:
> Hi Rocky
>
> It won't work for a select query you display and browse.
> Don't know it that is your case.
>
> How many records do you have?
> Did you try out "my" SQL only trick? Not invented by me and not very fast but fast enough for small recordset and very reliable. And no reset code needed.
>
> /gustav
>
>
>   
>>>> bchacc at san.rr.com 24-01-2006 02:14 >>>
>>>>         
> Aha!  Thank you.  I thought there was something one could do in the 
> query like the running sum trick but a function with a global should do 
> nicely.
>
> Thanks again
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
>> Counter to Query Count Records"
>>
>> Charlotte
>>     
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From tinanfields at torchlake.com  Tue Jan 24 10:16:30 2006
From: tinanfields at torchlake.com (Tina Norris Fields)
Date: Tue, 24 Jan 2006 11:16:30 -0500
Subject: [AccessD] Refreshing values on a form
References: <s3d60889.077@cactus.dk>
Message-ID: <43D652DE.2030401@torchlake.com>

Gustav - I honor you for that statement!  It is very easy for us to 
confuse our mistakes and our "Swiss cheese" holes in our knowledge with 
stupidity.  Thanks for making the difference crystal clear.
Tina

Gustav Brock wrote:

>Hi Arthur
>
>Glad you found out. But I certainly didn't mean to slap you on the side of the head, and I don't think I'ver used the word stupid in relation to our fellow listmembers or their doings. We are all learning, and making a mistake or not knowing isn't the same as being stupid. 
>You know that, I'm sure - it's just for the records.
>
>/gustav
>
>  
>




From wdhindman at bellsouth.net  Tue Jan 24 10:28:47 2006
From: wdhindman at bellsouth.net (William Hindman)
Date: Tue, 24 Jan 2006 11:28:47 -0500
Subject: [AccessD] Image List views
References: <s3d60889.077@cactus.dk> <43D652DE.2030401@torchlake.com>
Message-ID: <000401c62103$41b3d1c0$6101a8c0@JISREGISTRATION.local>

...given an image list on a form, I need to pull the image index and the 
images into a separate user viewable form ...in this particular instance I'm 
looking to populate a treeview switchboard table with the index value from 
the treeview's imagelist of the image I want to associate with a particular 
node.

...any ideas, code, samples, etc.?

William 




From markamatte at hotmail.com  Tue Jan 24 11:28:20 2006
From: markamatte at hotmail.com (Mark A Matte)
Date: Tue, 24 Jan 2006 17:28:20 +0000
Subject: [AccessD] Sequence number in query
In-Reply-To: <43D63494.6090601@san.rr.com>
Message-ID: <BAY114-F25A1AE9CF8FF5368D4F091D2130@phx.gbl>

Rocky,

I can't remember where I got this...but I used it to generate a number 
sequence in a query...the problem was displaying and scrolling through the 
records...but it did work using an append query and saving the results.  I 
did have to reset the counter after each time, but no big deal.  I just 
called the foolowing function from my query:

Option Compare Database
Option Explicit
Global lngTableCounter As Long

Function MyAutoCtr(prmAny)
'Trick is to pass a field from the input table(s) so that function called 
for each record
'otherwise Access thinks that the function will always return the same value 
and
'only calls it once, and every output record gets the same value
MyAutoCtr = lngTableCounter
lngTableCounter = lngTableCounter + 1
End Function

Hope it helps...

Mark A. Matte

>From: Rocky Smolin - Beach Access Software <bchacc at san.rr.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>Subject: Re: [AccessD] Sequence number in query
>Date: Tue, 24 Jan 2006 06:07:16 -0800
>
>Gustav:
>
>I'm trying to create a column for the x axis of a graph, so it's for a
>report.  I think I may do what I usually do which is to whip up some
>code to create a temp table rather than trying to make a query do tricks.
>
>I did use the Qcntr thing and it worked.   Now I've got to start
>fiddling with the chart thingy to see if I can get it to behave.
>
>This is for a Preventive Maintenance application that I am developing in
>partnership with a guy in Bangalore.  There's not a very big market for
>the application but it's fun trying to do a joint venture at that
>distance with someone you've never met.  I actually don't think that the
>graph will be all that useful but it's part of his design so I'm going
>to do it.  He knows the user's needs.
>
>
>Rocky
>
>
>Gustav Brock wrote:
> > Hi Rocky
> >
> > It won't work for a select query you display and browse.
> > Don't know it that is your case.
> >
> > How many records do you have?
> > Did you try out "my" SQL only trick? Not invented by me and not very 
>fast but fast enough for small recordset and very reliable. And no reset 
>code needed.
> >
> > /gustav
> >
> >
> >
> >>>> bchacc at san.rr.com 24-01-2006 02:14 >>>
> >>>>
> > Aha!  Thank you.  I thought there was something one could do in the
> > query like the running sum trick but a function with a global should do
> > nicely.
> >
> > Thanks again
> >
> > Rocky
> >
> >
> > Charlotte Foust wrote:
> >
> >> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
> >> Counter to Query Count Records"
> >>
> >> Charlotte
> >>
> >
> >
> >
>
>--
>Rocky Smolin
>Beach Access Software
>858-259-4334
>www.e-z-mrp.com
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From bchacc at san.rr.com  Tue Jan 24 11:31:07 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Tue, 24 Jan 2006 09:31:07 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <43D6645B.9070104@san.rr.com>



Dear List:

A guy in India with whom I'm developing a preventive maintenance app is 
using A4 paper.  The report I sent him apparently doesn't print the 
whole footer unless he changes the printer.  He writes:

"The problem still persisted of the report saying only "page no 1 of " 
and not showing the total no of pages and of the second page being a 
blank, but third page showing the second page (all this only in the mtce 
sch. report). I have found the cause. I found that the page set up was 
landscape and letter size. I changed the letter size to A4 and 
everything became ok! But I am not able to make it permanent - when I 
ask for the report the next time, the same problem. I had to again reset 
the page size. How do I make it stick?"

But the other reports in the system apparently work OK.  The File-->Page 
Setup parameters are the as the other reports - default printer is 
checked - except this one is landscape.  Any ideas?

MTIA

Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com


----- Original Message -----

    *From:* Rocky Smolin - Beach Access Software <mailto:bchacc at san.rr.com>
    *To:* R Ramamurthy <mailto:rram22 at dataone.in>
    *Sent:* Saturday, January 21, 2006 8:57 PM
    *Subject:* Re: PM?

    Ram:

    The graph can be done but it's not real easy in Access.  On the X
    axis you would also lose visibility of what machines were creating
    the scores on the Y axis.  The X axis would just be a sequence
    number.  Wouldn't seeing the list of machines with description be
    more helpful.  >From an information standpoint the graph will only
    show the user that the scores of the machines run from m to n.  So
    they will be picking an arbitrary point between the lowest and
    highest value without much visibility over the nature of the
    equipment that's being included and excluded.

    I will do a bit of research to see if there's a graphing control I
    can find so I don't have to reinvent the wheel.  Then maybe put an
    button on the form to let the user choose tabular of graphic format.

    Requiring administrator access to change the cutoff point is easy. 
    I'll attend to that.  What's the next step?

    Best,

    Rocky

     


-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com


-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Tue Jan 24 11:33:18 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Tue, 24 Jan 2006 09:33:18 -0800
Subject: [AccessD] Sequence number in query
In-Reply-To: <BAY114-F25A1AE9CF8FF5368D4F091D2130@phx.gbl>
References: <BAY114-F25A1AE9CF8FF5368D4F091D2130@phx.gbl>
Message-ID: <43D664DE.2030308@san.rr.com>

Mark:

Thanks.  Similar to the routine in the link Charlotte posted.  Guess 
that's the best way to do it.

Best,

Rocky


Mark A Matte wrote:
> Rocky,
>
> I can't remember where I got this...but I used it to generate a number 
> sequence in a query...the problem was displaying and scrolling through the 
> records...but it did work using an append query and saving the results.  I 
> did have to reset the counter after each time, but no big deal.  I just 
> called the foolowing function from my query:
>
> Option Compare Database
> Option Explicit
> Global lngTableCounter As Long
>
> Function MyAutoCtr(prmAny)
> 'Trick is to pass a field from the input table(s) so that function called 
> for each record
> 'otherwise Access thinks that the function will always return the same value 
> and
> 'only calls it once, and every output record gets the same value
> MyAutoCtr = lngTableCounter
> lngTableCounter = lngTableCounter + 1
> End Function
>
> Hope it helps...
>
> Mark A. Matte
>
>   
>> From: Rocky Smolin - Beach Access Software <bchacc at san.rr.com>
>> Reply-To: Access Developers discussion and problem 
>> solving<accessd at databaseadvisors.com>
>> To: Access Developers discussion and problem 
>> solving<accessd at databaseadvisors.com>
>> Subject: Re: [AccessD] Sequence number in query
>> Date: Tue, 24 Jan 2006 06:07:16 -0800
>>
>> Gustav:
>>
>> I'm trying to create a column for the x axis of a graph, so it's for a
>> report.  I think I may do what I usually do which is to whip up some
>> code to create a temp table rather than trying to make a query do tricks.
>>
>> I did use the Qcntr thing and it worked.   Now I've got to start
>> fiddling with the chart thingy to see if I can get it to behave.
>>
>> This is for a Preventive Maintenance application that I am developing in
>> partnership with a guy in Bangalore.  There's not a very big market for
>> the application but it's fun trying to do a joint venture at that
>> distance with someone you've never met.  I actually don't think that the
>> graph will be all that useful but it's part of his design so I'm going
>> to do it.  He knows the user's needs.
>>
>>
>> Rocky
>>
>>
>> Gustav Brock wrote:
>>     
>>> Hi Rocky
>>>
>>> It won't work for a select query you display and browse.
>>> Don't know it that is your case.
>>>
>>> How many records do you have?
>>> Did you try out "my" SQL only trick? Not invented by me and not very 
>>>       
>> fast but fast enough for small recordset and very reliable. And no reset 
>> code needed.
>>     
>>> /gustav
>>>
>>>
>>>
>>>       
>>>>>> bchacc at san.rr.com 24-01-2006 02:14 >>>
>>>>>>
>>>>>>             
>>> Aha!  Thank you.  I thought there was something one could do in the
>>> query like the running sum trick but a function with a global should do
>>> nicely.
>>>
>>> Thanks again
>>>
>>> Rocky
>>>
>>>
>>> Charlotte Foust wrote:
>>>
>>>       
>>>> Take a look at http://support.microsoft.com/?id=94397  "Adding Dynamic
>>>> Counter to Query Count Records"
>>>>
>>>> Charlotte
>>>>
>>>>         
>>>
>>>       
>> --
>> Rocky Smolin
>> Beach Access Software
>> 858-259-4334
>> www.e-z-mrp.com
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>     
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From shamil at users.mns.ru  Tue Jan 24 11:36:28 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 24 Jan 2006 20:36:28 +0300
Subject: [AccessD] Setting data into and getting data from Named	Range	s
References: <s3d60c15.078@cactus.dk>
Message-ID: <001d01c6210c$b76e6f70$0201a8c0@PARIS>

Hi Gustav,

Yes, MS Excel worksheet is limited to have 65536 rows and 256 columns
AFAIK...

"large recordset" is a relative term - it all depends of course - it
should be small enough to fit a certain application reqirements for
processing speed - for one application it can be 10 rows, for another -
10000 rows....

As for linking MS Excel worksheet range as an MS Access table - as far
as I understood the main question/task to solve of this thread was to
NOT use linked MS Excel worksheets because of licensing troubles...

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, January 24, 2006 1:14 PM
Subject: Re: [AccessD] Setting data into and getting data from Named
Range s


> Hi Shamil
>
> That's a nice and clean solution with the disconnected dataset.
Thanks.
>
> But what is a "large recordset"? Isn't Excel limited to 65536 rows?
> Would it be faster to link such a large range as a table in Access?
That's what I use but I've never handled recordsets this way with more
100 rows.
>
> /gustav
>
> >>> shamil at users.mns.ru 24-01-2006 01:03 >>>
> John,
>
> Have a look here is a generic code to get data to ms excel worksheet
> from MS Access database and to save data to MS Access db from ms excel
> worksheet using disconnected ADO recordsets. This sample uses arrays
> because an MS Excel range value is in fact a variant array. It
shouldn't
> be used with very large source recordsets but as far as I understood
you
> will not have such recordsets...
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From cfoust at infostatsystems.com  Tue Jan 24 12:13:20 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 24 Jan 2006 10:13:20 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <F55048AF7E974F429BB24597D7355EEABF4F@INFOSERVER04.infostat.local>

Rocky,

What kind of code are you using to set the paper size?  There are
actually papersize constants you can use to make it easier.  We use
these in our Access apps to make the code easier to read:  

Public Const PAPER_LETTER As Integer = 1
Public Const PAPER_A4 As Integer = 9
Public Const PAPER_LEGAL As Integer = 5

If you check the Access.Printer class, you'll get a list of the built in
constants for AcPrintPaperSize, including acPRPSA4, acPRPSLetter, and
acPRPSLegal, which have the same values as we use (our code was built
before the Printer object became part of Access).  Whichever you use,
it's what you have to pass to the printer to get the setting right.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Tuesday, January 24, 2006 9:31 AM
To: access Developers discussion and problem solving
Subject: [AccessD] [Fwd: Default Page Size]




Dear List:

A guy in India with whom I'm developing a preventive maintenance app is 
using A4 paper.  The report I sent him apparently doesn't print the 
whole footer unless he changes the printer.  He writes:

"The problem still persisted of the report saying only "page no 1 of " 
and not showing the total no of pages and of the second page being a 
blank, but third page showing the second page (all this only in the mtce

sch. report). I have found the cause. I found that the page set up was 
landscape and letter size. I changed the letter size to A4 and 
everything became ok! But I am not able to make it permanent - when I 
ask for the report the next time, the same problem. I had to again reset

the page size. How do I make it stick?"

But the other reports in the system apparently work OK.  The File-->Page

Setup parameters are the as the other reports - default printer is 
checked - except this one is landscape.  Any ideas?

MTIA

Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com


----- Original Message -----

    *From:* Rocky Smolin - Beach Access Software
<mailto:bchacc at san.rr.com>
    *To:* R Ramamurthy <mailto:rram22 at dataone.in>
    *Sent:* Saturday, January 21, 2006 8:57 PM
    *Subject:* Re: PM?

    Ram:

    The graph can be done but it's not real easy in Access.  On the X
    axis you would also lose visibility of what machines were creating
    the scores on the Y axis.  The X axis would just be a sequence
    number.  Wouldn't seeing the list of machines with description be
    more helpful.  >From an information standpoint the graph will only
    show the user that the scores of the machines run from m to n.  So
    they will be picking an arbitrary point between the lowest and
    highest value without much visibility over the nature of the
    equipment that's being included and excluded.

    I will do a bit of research to see if there's a graphing control I
    can find so I don't have to reinvent the wheel.  Then maybe put an
    button on the form to let the user choose tabular of graphic format.

    Requiring administrator access to change the cutoff point is easy. 
    I'll attend to that.  What's the next step?

    Best,

    Rocky

     


-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com


-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From lembit.dbamail at t-online.de  Tue Jan 24 12:16:14 2006
From: lembit.dbamail at t-online.de (Lembit Soobik)
Date: Tue, 24 Jan 2006 19:16:14 +0100
Subject: [AccessD] [Fwd: Default Page Size]
References: <43D6645B.9070104@san.rr.com>
Message-ID: <000601c62112$438b2c00$1400a8c0@v1000>

Rocky,
dont use default printer.

Lembit

----- Original Message ----- 
From: "Rocky Smolin - Beach Access Software" <bchacc at san.rr.com>
To: "access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Tuesday, January 24, 2006 6:31 PM
Subject: [AccessD] [Fwd: Default Page Size]


>
>
> Dear List:
>
> A guy in India with whom I'm developing a preventive maintenance app is
> using A4 paper.  The report I sent him apparently doesn't print the
> whole footer unless he changes the printer.  He writes:
>
> "The problem still persisted of the report saying only "page no 1 of "
> and not showing the total no of pages and of the second page being a
> blank, but third page showing the second page (all this only in the mtce
> sch. report). I have found the cause. I found that the page set up was
> landscape and letter size. I changed the letter size to A4 and
> everything became ok! But I am not able to make it permanent - when I
> ask for the report the next time, the same problem. I had to again reset
> the page size. How do I make it stick?"
>
> But the other reports in the system apparently work OK.  The File-->Page
> Setup parameters are the as the other reports - default printer is
> checked - except this one is landscape.  Any ideas?
>
> MTIA
>
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
>
> ----- Original Message -----
>
>    *From:* Rocky Smolin - Beach Access Software <mailto:bchacc at san.rr.com>
>    *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>    *Sent:* Saturday, January 21, 2006 8:57 PM
>    *Subject:* Re: PM?
>
>    Ram:
>
>    The graph can be done but it's not real easy in Access.  On the X
>    axis you would also lose visibility of what machines were creating
>    the scores on the Y axis.  The X axis would just be a sequence
>    number.  Wouldn't seeing the list of machines with description be
>    more helpful.  >From an information standpoint the graph will only
>    show the user that the scores of the machines run from m to n.  So
>    they will be picking an arbitrary point between the lowest and
>    highest value without much visibility over the nature of the
>    equipment that's being included and excluded.
>
>    I will do a bit of research to see if there's a graphing control I
>    can find so I don't have to reinvent the wheel.  Then maybe put an
>    button on the form to let the user choose tabular of graphic format.
>
>    Requiring administrator access to change the cutoff point is easy.
>    I'll attend to that.  What's the next step?
>
>    Best,
>
>    Rocky
>
>
>
>
> -- 
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
>
> -- 
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
> -- 
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.375 / Virus Database: 267.14.22/238 - Release Date: 
> 23.01.2006
>
> 



From dw-murphy at cox.net  Tue Jan 24 12:23:26 2006
From: dw-murphy at cox.net (Doug Murphy)
Date: Tue, 24 Jan 2006 10:23:26 -0800
Subject: [AccessD] Outlook automation - use a template for a message
In-Reply-To: <46B976F2B698FF46A4FE7636509B22DF1B62D9@stekelbes.ithelps.local>
Message-ID: <001601c62113$44c675b0$0200a8c0@murphyf3vdfepi>

Hello Erwin,

I was not aware of RTF being dropped.  I thought there was some pretty stiff
resistance to using html formated e-mail.  I tried a quick test using a
simple html document and sendobject but the page just came through as text
with the html tags in it.  How do you automate sending of html formated
e-mail?  I'd like for the client to be able to see the message in Outlook
before it is sent so they can personalize it.

The test I did with using automation used the following code.  As I said the
formating of the text stayed as it should but the logo image that started
out at the top of the template ended up at the bottom of the e-mail.  Any
suggestions?

Private Sub cmdSend_Click()
Dim oOut As Outlook.Application
Dim Item As MailItem

   On Error GoTo cmdSend_Click_Error
    
    Set oOut = New Outlook.Application
    Set Item = oOut.CreateItemFromTemplate("C:\Documents and
Settings\Doug\Application Data\Microsoft\Templates\SampleVideo2.oft")
    With Item
        .To = "dw-murphy at cox.net"
        .Subject = "New Video"

        .Body = Replace(.Body, "<NAME>", Nz(Me.txtName, ""))
        .Body = Replace(.Body, "<DATE>", Date)
        .Body = Replace(.Body, "<ADDRESS>", Nz(Me.txtStreet, ""))
        .Body = Replace(.Body, "<CITY_STATE_ZIP>", Nz(Me.txtCSZ, ""))
        .Body = Replace(.Body, "<FIRSTNAME>", Nz(Me.txtFirst, ""))
        .Send
    End With

cmdSend_Click_Exit:
   On Error GoTo 0
    Set Item = Nothing
    Set oOut = Nothing
   Exit Sub

Doug



From Gustav at cactus.dk  Tue Jan 24 12:32:49 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 24 Jan 2006 19:32:49 +0100
Subject: [AccessD] Setting data into and getting data from	Named	Range	s
Message-ID: <s3d68102.003@cactus.dk>

Hi Shamil

Well, I just wondered .. 65K records isn't much for ADO and Access.

Yes, to avoid linking is the goal as the servicepacks blocks update and append.
However, reading is still possible and if that is, say, 10 fold faster than reading a range from Excel with your class it could be considered an option to mix the two techniques. I have no idea .. perhaps it is the other way around: For reading, your class is faster than linking??

/gustav

>>> shamil at users.mns.ru 24-01-2006 18:36:28 >>>
Hi Gustav,

Yes, MS Excel worksheet is limited to have 65536 rows and 256 columns
AFAIK...

"large recordset" is a relative term - it all depends of course - it
should be small enough to fit a certain application reqirements for
processing speed - for one application it can be 10 rows, for another -
10000 rows....

As for linking MS Excel worksheet range as an MS Access table - as far
as I understood the main question/task to solve of this thread was to
NOT use linked MS Excel worksheets because of licensing troubles...

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, January 24, 2006 1:14 PM
Subject: Re: [AccessD] Setting data into and getting data from Named
Range s


> Hi Shamil
>
> That's a nice and clean solution with the disconnected dataset.
Thanks.
>
> But what is a "large recordset"? Isn't Excel limited to 65536 rows?
> Would it be faster to link such a large range as a table in Access?
That's what I use but I've never handled recordsets this way with more
100 rows.
>
> /gustav
>
> >>> shamil at users.mns.ru 24-01-2006 01:03 >>>
> John,
>
> Have a look here is a generic code to get data to ms excel worksheet
> from MS Access database and to save data to MS Access db from ms excel
> worksheet using disconnected ADO recordsets. This sample uses arrays
> because an MS Excel range value is in fact a variant array. It
shouldn't
> be used with very large source recordsets but as far as I understood
you
> will not have such recordsets...




From bchacc at san.rr.com  Tue Jan 24 12:43:37 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Tue, 24 Jan 2006 10:43:37 -0800
Subject: [AccessD] [Fwd: Default Page Size]
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF4F@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF4F@INFOSERVER04.infostat.local>
Message-ID: <43D67559.1000207@san.rr.com>

Charlotte:

I'm not using any code.  I just use default printer.  This app could be 
running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to tie the 
app to one size or another.  Apparently I'm going to have to put in some 
kind of preference for the user to select their paper size then?

Rocky


Charlotte Foust wrote:
> Rocky,
>
> What kind of code are you using to set the paper size?  There are
> actually papersize constants you can use to make it easier.  We use
> these in our Access apps to make the code easier to read:  
>
> Public Const PAPER_LETTER As Integer = 1
> Public Const PAPER_A4 As Integer = 9
> Public Const PAPER_LEGAL As Integer = 5
>
> If you check the Access.Printer class, you'll get a list of the built in
> constants for AcPrintPaperSize, including acPRPSA4, acPRPSLetter, and
> acPRPSLegal, which have the same values as we use (our code was built
> before the Printer object became part of Access).  Whichever you use,
> it's what you have to pass to the printer to get the setting right.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Tuesday, January 24, 2006 9:31 AM
> To: access Developers discussion and problem solving
> Subject: [AccessD] [Fwd: Default Page Size]
>
>
>
>
> Dear List:
>
> A guy in India with whom I'm developing a preventive maintenance app is 
> using A4 paper.  The report I sent him apparently doesn't print the 
> whole footer unless he changes the printer.  He writes:
>
> "The problem still persisted of the report saying only "page no 1 of " 
> and not showing the total no of pages and of the second page being a 
> blank, but third page showing the second page (all this only in the mtce
>
> sch. report). I have found the cause. I found that the page set up was 
> landscape and letter size. I changed the letter size to A4 and 
> everything became ok! But I am not able to make it permanent - when I 
> ask for the report the next time, the same problem. I had to again reset
>
> the page size. How do I make it stick?"
>
> But the other reports in the system apparently work OK.  The File-->Page
>
> Setup parameters are the as the other reports - default printer is 
> checked - except this one is landscape.  Any ideas?
>
> MTIA
>
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
>
> ----- Original Message -----
>
>     *From:* Rocky Smolin - Beach Access Software
> <mailto:bchacc at san.rr.com>
>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>     *Sent:* Saturday, January 21, 2006 8:57 PM
>     *Subject:* Re: PM?
>
>     Ram:
>
>     The graph can be done but it's not real easy in Access.  On the X
>     axis you would also lose visibility of what machines were creating
>     the scores on the Y axis.  The X axis would just be a sequence
>     number.  Wouldn't seeing the list of machines with description be
>     more helpful.  >From an information standpoint the graph will only
>     show the user that the scores of the machines run from m to n.  So
>     they will be picking an arbitrary point between the lowest and
>     highest value without much visibility over the nature of the
>     equipment that's being included and excluded.
>
>     I will do a bit of research to see if there's a graphing control I
>     can find so I don't have to reinvent the wheel.  Then maybe put an
>     button on the form to let the user choose tabular of graphic format.
>
>     Requiring administrator access to change the cutoff point is easy. 
>     I'll attend to that.  What's the next step?
>
>     Best,
>
>     Rocky
>
>      
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From cfoust at infostatsystems.com  Tue Jan 24 12:54:01 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 24 Jan 2006 10:54:01 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <F55048AF7E974F429BB24597D7355EEABF50@INFOSERVER04.infostat.local>

We format most of our reports to fit either now, which means we use
paper length and A4 width when designing the report.  If you use default
printer, that's your only choice.  Otherwise, yes, you'd have to allow
them to specify the paper size and you'd have to create some specially
formatted A4 reports if they needed the longer paper length.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Tuesday, January 24, 2006 10:44 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] [Fwd: Default Page Size]


Charlotte:

I'm not using any code.  I just use default printer.  This app could be 
running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to tie the

app to one size or another.  Apparently I'm going to have to put in some

kind of preference for the user to select their paper size then?

Rocky


Charlotte Foust wrote:
> Rocky,
>
> What kind of code are you using to set the paper size?  There are 
> actually papersize constants you can use to make it easier.  We use 
> these in our Access apps to make the code easier to read:
>
> Public Const PAPER_LETTER As Integer = 1
> Public Const PAPER_A4 As Integer = 9
> Public Const PAPER_LEGAL As Integer = 5
>
> If you check the Access.Printer class, you'll get a list of the built 
> in constants for AcPrintPaperSize, including acPRPSA4, acPRPSLetter, 
> and acPRPSLegal, which have the same values as we use (our code was 
> built before the Printer object became part of Access).  Whichever you

> use, it's what you have to pass to the printer to get the setting 
> right.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Tuesday, January 24, 2006 9:31 AM
> To: access Developers discussion and problem solving
> Subject: [AccessD] [Fwd: Default Page Size]
>
>
>
>
> Dear List:
>
> A guy in India with whom I'm developing a preventive maintenance app 
> is
> using A4 paper.  The report I sent him apparently doesn't print the 
> whole footer unless he changes the printer.  He writes:
>
> "The problem still persisted of the report saying only "page no 1 of "
> and not showing the total no of pages and of the second page being a 
> blank, but third page showing the second page (all this only in the
mtce
>
> sch. report). I have found the cause. I found that the page set up was
> landscape and letter size. I changed the letter size to A4 and 
> everything became ok! But I am not able to make it permanent - when I 
> ask for the report the next time, the same problem. I had to again
reset
>
> the page size. How do I make it stick?"
>
> But the other reports in the system apparently work OK.  The 
> File-->Page
>
> Setup parameters are the as the other reports - default printer is
> checked - except this one is landscape.  Any ideas?
>
> MTIA
>
> Rocky Smolin
> Beach Access Software
> 858-259-4334
> www.e-z-mrp.com
>
>
> ----- Original Message -----
>
>     *From:* Rocky Smolin - Beach Access Software 
> <mailto:bchacc at san.rr.com>
>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>     *Sent:* Saturday, January 21, 2006 8:57 PM
>     *Subject:* Re: PM?
>
>     Ram:
>
>     The graph can be done but it's not real easy in Access.  On the X
>     axis you would also lose visibility of what machines were creating
>     the scores on the Y axis.  The X axis would just be a sequence
>     number.  Wouldn't seeing the list of machines with description be
>     more helpful.  >From an information standpoint the graph will only
>     show the user that the scores of the machines run from m to n.  So
>     they will be picking an arbitrary point between the lowest and
>     highest value without much visibility over the nature of the
>     equipment that's being included and excluded.
>
>     I will do a bit of research to see if there's a graphing control I
>     can find so I don't have to reinvent the wheel.  Then maybe put an
>     button on the form to let the user choose tabular of graphic 
> format.
>
>     Requiring administrator access to change the cutoff point is easy.

>     I'll attend to that.  What's the next step?
>
>     Best,
>
>     Rocky
>
>      
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From shamil at users.mns.ru  Tue Jan 24 13:12:17 2006
From: shamil at users.mns.ru (Shamil Salakhetdinov)
Date: Tue, 24 Jan 2006 22:12:17 +0300
Subject: [AccessD] Setting data into and getting data from	Named	Range	s
References: <s3d68102.003@cactus.dk>
Message-ID: <000801c6211a$198a05e0$0201a8c0@PARIS>

Gustav,

My guess is that linking an MS Excel range and then reading it row by
row will be slower than getting whole range into array at once.

Another question is what is more suitable for a certain task:

- flexibility of reading MS Excel worksheet's range data using DAO/ADO
recordsets or
- speed of getting all the data of an MS Excel range into an in memory
array?

Of course for small data sets MS Excel instance start-up and workbook
opening will "eat" all the gains of getting MS Excel range into in
memory array...

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, January 24, 2006 9:32 PM
Subject: Re: [AccessD] Setting data into and getting data from Named
Range s


> Hi Shamil
>
> Well, I just wondered .. 65K records isn't much for ADO and Access.
>
> Yes, to avoid linking is the goal as the servicepacks blocks update
and append.
> However, reading is still possible and if that is, say, 10 fold faster
than reading a range from Excel with your class it could be considered
an option to mix the two techniques. I have no idea .. perhaps it is the
other way around: For reading, your class is faster than linking??
>
> /gustav
>
> >>> shamil at users.mns.ru 24-01-2006 18:36:28 >>>
> Hi Gustav,
>
> Yes, MS Excel worksheet is limited to have 65536 rows and 256 columns
> AFAIK...
>
> "large recordset" is a relative term - it all depends of course - it
> should be small enough to fit a certain application reqirements for
> processing speed - for one application it can be 10 rows, for
another -
> 10000 rows....
>
> As for linking MS Excel worksheet range as an MS Access table - as far
> as I understood the main question/task to solve of this thread was to
> NOT use linked MS Excel worksheets because of licensing troubles...
>
> Shamil
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Tuesday, January 24, 2006 1:14 PM
> Subject: Re: [AccessD] Setting data into and getting data from Named
> Range s
>
>
> > Hi Shamil
> >
> > That's a nice and clean solution with the disconnected dataset.
> Thanks.
> >
> > But what is a "large recordset"? Isn't Excel limited to 65536 rows?
> > Would it be faster to link such a large range as a table in Access?
> That's what I use but I've never handled recordsets this way with more
> 100 rows.
> >
> > /gustav
> >
> > >>> shamil at users.mns.ru 24-01-2006 01:03 >>>
> > John,
> >
> > Have a look here is a generic code to get data to ms excel worksheet
> > from MS Access database and to save data to MS Access db from ms
excel
> > worksheet using disconnected ADO recordsets. This sample uses arrays
> > because an MS Excel range value is in fact a variant array. It
> shouldn't
> > be used with very large source recordsets but as far as I understood
> you
> > will not have such recordsets...
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Tue Jan 24 13:47:21 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 24 Jan 2006 20:47:21 +0100
Subject: [AccessD] Setting data into and getting data	from	Named	Range	s
Message-ID: <s3d69266.006@cactus.dk>

Hi Shamil

If I should guess your class is more suitable.
As I see it, it also overcomes the trouble when linking an Excel range containing varying or unknown data where the isam driver tries to guess for each column if it will contain text or numeric data. When you read the range directly to an array, you can do all sorts of validation before writing the array or use Variant datatype and validate after.

/gustav

>>> shamil at users.mns.ru 24-01-2006 20:12:17 >>>
Gustav,

My guess is that linking an MS Excel range and then reading it row by
row will be slower than getting whole range into array at once.

Another question is what is more suitable for a certain task:

- flexibility of reading MS Excel worksheet's range data using DAO/ADO
recordsets or
- speed of getting all the data of an MS Excel range into an in memory
array?

Of course for small data sets MS Excel instance start-up and workbook
opening will "eat" all the gains of getting MS Excel range into in
memory array...

Shamil

----- Original Message ----- 
From: "Gustav Brock" <Gustav at cactus.dk>
To: <accessd at databaseadvisors.com>
Sent: Tuesday, January 24, 2006 9:32 PM
Subject: Re: [AccessD] Setting data into and getting data from Named
Range s


> Hi Shamil
>
> Well, I just wondered .. 65K records isn't much for ADO and Access.
>
> Yes, to avoid linking is the goal as the servicepacks blocks update
and append.
> However, reading is still possible and if that is, say, 10 fold faster
than reading a range from Excel with your class it could be considered
an option to mix the two techniques. I have no idea .. perhaps it is the
other way around: For reading, your class is faster than linking??
>
> /gustav
>
> >>> shamil at users.mns.ru 24-01-2006 18:36:28 >>>
> Hi Gustav,
>
> Yes, MS Excel worksheet is limited to have 65536 rows and 256 columns
> AFAIK...
>
> "large recordset" is a relative term - it all depends of course - it
> should be small enough to fit a certain application reqirements for
> processing speed - for one application it can be 10 rows, for
another -
> 10000 rows....
>
> As for linking MS Excel worksheet range as an MS Access table - as far
> as I understood the main question/task to solve of this thread was to
> NOT use linked MS Excel worksheets because of licensing troubles...
>
> Shamil
>
> ----- Original Message ----- 
> From: "Gustav Brock" <Gustav at cactus.dk>
> To: <accessd at databaseadvisors.com>
> Sent: Tuesday, January 24, 2006 1:14 PM
> Subject: Re: [AccessD] Setting data into and getting data from Named
> Range s
>
>
> > Hi Shamil
> >
> > That's a nice and clean solution with the disconnected dataset.
> Thanks.
> >
> > But what is a "large recordset"? Isn't Excel limited to 65536 rows?
> > Would it be faster to link such a large range as a table in Access?
> That's what I use but I've never handled recordsets this way with more
> 100 rows.
> >
> > /gustav
> >
> > >>> shamil at users.mns.ru 24-01-2006 01:03 >>>
> > John,
> >
> > Have a look here is a generic code to get data to ms excel worksheet
> > from MS Access database and to save data to MS Access db from ms
excel
> > worksheet using disconnected ADO recordsets. This sample uses arrays
> > because an MS Excel range value is in fact a variant array. It
> shouldn't
> > be used with very large source recordsets but as far as I understood
> you
> > will not have such recordsets...




From martyconnelly at shaw.ca  Tue Jan 24 16:42:51 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Tue, 24 Jan 2006 14:42:51 -0800
Subject: [AccessD] Read External File for Path String
References: <08F823FD83787D4BA0B99CA580AD3C74016C442B@TTNEXCHCL2.hshhp.com>
Message-ID: <43D6AD6B.5040103@shaw.ca>

Just in case anyone is wondering how it is done in VB.Net
using xml and an App.config file

My Feature in VS 2005: Storing Application and User Settings

http://www.developer.com/net/vb/article.php/3578726

Jim DeMarco wrote:

>Joe,
>
>This is not true.  Grab the class from my article and you're doing XML as soon as you've added it to your mdb.  Not trying to push it on you but suggesting you give it a shot.
>
>Jim DeMarco
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Joe Hecht
>Sent: Friday, January 20, 2006 7:07 PM
>To: 'Access Developers discussion and problem solving'
>Subject: Re: [AccessD] Read External File for Path String
>
>
>I have so much to learn I have just ruled out xml for now.
>My projects are too small to take advantage of it.
>
>Thanks for the info though.
>
>Joe Hecht
>jmhecht at earthlink.net
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>MartyConnelly
>Sent: Friday, January 20, 2006 12:55 PM
>To: Access Developers discussion and problem solving
>Subject: Re: [AccessD] Read External File for Path String
>
>If you don't have that high a version of Access here is
>method of using 
>xmldom to read xml file.
>rather than ImportXML method.
>
>'?LoadXMLFile("C:\XML\AdviserDetails.xml")
>Public Function LoadXMLFile(ByRef AdviserXML As String)
>
>    'On Error GoTo ErrorHandler
>    'needs reference set to XML 4.0 and maybe ADO 2.8
>    Dim oDOMDocument As MSXML2.DOMDocument40
>    Dim oNodeList As IXMLDOMNodeList
>    Dim oAdviserDetailsNode As IXMLDOMNode
>    Dim oLowestLevelNode As IXMLDOMElement
>    Dim objXMLDOMNamedNodeMap As IXMLDOMNamedNodeMap
>     Dim xPError As IXMLDOMParseError
>    Dim Mydb As Database
>    Dim myrs As ADODB.Recordset
>    Dim sTempValue As String
>    Dim lrec As Long
>    Dim lnorec As Long
>    Set oDOMDocument = New MSXML2.DOMDocument40
>
>    oDOMDocument.async = False
>    oDOMDocument.validateOnParse = True 'you may want to
>parse for errors
>    oDOMDocument.resolveExternals = False
>    oDOMDocument.preserveWhiteSpace = True
> 
>    'use if xml disk file
>      If Not oDOMDocument.Load(AdviserXML) Then
>        MsgBox ("XML File error")
>             Set xPError = oDOMDocument.parseError
>        DOMParseError xPError
>      
>       End If
>    Set oAdviserDetailsNode = oDOMDocument.documentElement
>     Debug.Print oDOMDocument.xml
>    
>  
>    'Set Mydb = CurrentDb
>    'Set myrs = Mydb.OpenRecordset("NewTable")
> 
>
>   'use appropriate XPath expression to select nodes
>  
>   Set oNodeList =
>oAdviserDetailsNode.selectNodes("//BusinessDetails/*")
> 
>     lnorec = 0
>     lrec = 0
>     Debug.Print oNodeList.length
>     '   myrs.AddNew
>    For Each oLowestLevelNode In oNodeList
>        sTempValue = oLowestLevelNode.Text
>         lrec = lrec + 1
>        Select Case oLowestLevelNode.nodeName
>            Case "BusinessName"
>                   Debug.Print "Business " & sTempValue
>                'myrs!BusinessName = sTempValue
>            Case "AddressLine1"
>                'myrs!AddressLine1 = sTempValue
>            Case "AddressLine2"
>                'myrs!AddressLine2 = sTempValue
>            Case "Suburb"
>                'myrs!Suburb = sTempValue
>            Case "State"
>                'myrs!State = sTempValue
>                Debug.Print sTempValue
>            Case "Postcode"
>                'myrs!Postcode = sTempValue
>            Case "PhoneNumber"
>             Debug.Print "Phone " & sTempValue
>                'myrs!PhoneNumber = sTempValue
>            Case "Email"
>                'myrs!Email = sTempValue
>            Case "FaxNumber"
>                'myrs!FaxNumber = sTempValue
>        End Select
>        If lrec = 9 Then '9 elements in business details
>       ' myrs.Update
>        lnorec = lnorec + 1
>        lrec = 0
>       ' myrs.AddNew
>        End If
>      Next
>     
>     MsgBox "Records Added=" & lnorec
>     ' Set myrs = Nothing
>    'Set Mydb = Nothing
>    Set oDOMDocument = Nothing
>    Set oAdviserDetailsNode = Nothing
>    Set objXMLDOMNamedNodeMap = Nothing
>    Exit Function
>
>ErrorHandler:
>
>  '  Call NewError.Raise(Err.Number, Err.Source,
>Err.Description)
>
>End Function
>Sub DOMParseError(xPE As IXMLDOMParseError)
>
>    ' The document failed to load.
>    Dim strErrText As String
>    ' Obtain the ParseError object
>    With xPE
>    strErrText = "Your XML Document failed to load" & _
>        "due the following error." & vbCrLf & _
>        "Error #: " & .errorCode & ": " & xPE.reason & _
>        "Line #: " & .Line & vbCrLf & _
>        "Line Position: " & .linepos & vbCrLf & _
>        "Position In File: " & .filepos & vbCrLf & _
>        "Source Text: " & .srcText & vbCrLf & _
>        "Document URL: " & .url
>    End With
>    Debug.Print strErrText
>
>  Dim s As String
>  Dim r As String
>  Dim i As Long
> 
>   s = ""
>  For i = 1 To xPE.linepos - 1
>    s = s & " "
>  Next
>  r = "XML Error loading " & xPE.url & " * " & xPE.reason
>  Debug.Print r
>    'show character postion of error; tired of counting
>chars in xml file
>  If (xPE.Line > 0) Then
>    r = "at line " & xPE.Line & ", character " & xPE.linepos
>& vbCrLf & _
>         xPE.srcText & vbCrLf & s & "^"
>  End If
>  Debug.Print r
>    MsgBox strErrText, vbExclamation
>End Sub
>
>
>
>
>--------  "C:\XML\AdviserDetails.xml"  save as UTF-8 not
>ANSI in notepad
>
><?xml version="1.0" encoding="UTF-8"?>
><AdviserDetails ID="AD12345">
>    <BusinessDetails>
>        <BusinessName>"AD Business Name" </BusinessName>
>        <AddressLine1>"AD Address Line 1" </AddressLine1>
>        <AddressLine2>"AD Address Line 2" </AddressLine2>
>        <Suburb>"AD Suburb" </Suburb>
>        <State>"AD State" </State>
>        <Postcode>"AD PostCode" </Postcode>
>        <PhoneNumber>"AD Phone Number" </PhoneNumber>
>        <Email>"AD Email" </Email>
>        <FaxNumber>"AD Fax Number" </FaxNumber>
>    </BusinessDetails>
></AdviserDetails>
>
>Gustav Brock wrote:
>
>  
>
>>Hi Stuart
>>
>>Use A2002+.
>>Have an internal table with your path, tblPath.
>>
>>To export:
>>Application.ExportXML acExportTable , "tblPath",
>>    
>>
>"c:\mypath.xml"
>  
>
>>To import:
>>CurrentDb.Execute "Delete * From tblPath"
>>Application.ImportXML "c:\mypath.xml", acAppendData
>>
>>To read:
>>strPath = DLookup("Path", "tblPath")
>>
>>Not quite sure how "easy" that is, though in total only
>>    
>>
>four code lines net are needed.
>  
>
>>However, if you need to store a bunch of user or app
>>    
>>
>settings it might be a nice method with all the advantages
>of XML storage and exchange possibilities.
>  
>
>>/gustav
>>
>> 
>>
>>    
>>
>>>>>stuart at lexacorp.com.pg 20-01-2006 00:48 >>>
>>>>>       
>>>>>
>>>>>          
>>>>>
>>On 19 Jan 2006 at 15:00, Charlotte Foust wrote:
>>
>> 
>>
>>    
>>
>>>Actually, the XML files wind up with a structure very
>>>      
>>>
>similar to the ini
>  
>
>>>files but you don't need API calls to read them.
>>>   
>>>
>>>      
>>>
>>So how  would you create, then read an XML file to store a
>>    
>>
>backend server 
>  
>
>>path?
>> 
>>
>>    
>>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada



From fhtapia at gmail.com  Tue Jan 24 18:50:05 2006
From: fhtapia at gmail.com (Francisco Tapia)
Date: Tue, 24 Jan 2006 16:50:05 -0800
Subject: [AccessD] bust out the math books
Message-ID: <b874372a0601241650q1fc359d8n58efa86c2cecb471@mail.gmail.com>

can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to why
I can't just average column C3 to get the 90%, instead I end up with 88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...


From fhtapia at gmail.com  Tue Jan 24 19:00:47 2006
From: fhtapia at gmail.com (Francisco Tapia)
Date: Tue, 24 Jan 2006 17:00:47 -0800
Subject: [AccessD] Peregrine PND
Message-ID: <b874372a0601241700w1c3ac252w85e67413d5bba61a@mail.gmail.com>

I'm going to be in a demo this friday on this system "Peregrine PND" I
googled but did not get any resonable hits, has anybody heard of this CRM or
DB system?  I hear that it's supposed to be for a helpdesk?

Thanks,

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...


From accessd at shaw.ca  Tue Jan 24 19:01:09 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Tue, 24 Jan 2006 17:01:09 -0800
Subject: [AccessD] bust out the math books
In-Reply-To: <b874372a0601241650q1fc359d8n58efa86c2cecb471@mail.gmail.com>
Message-ID: <001801c6214a$d47742c0$017ba8c0@xpserver>

Hi Francisco:

Are all the variables you are using and saving the values in are
double/floating point variables? I have had issues when mixing various
variable types like a Long and a Double involving any calculations. It can
blow up within a conversion process.

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco Tapia
Sent: January 24, 2006 4:50 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books

can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to why
I can't just average column C3 to get the 90%, instead I end up with 88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From stuart at lexacorp.com.pg  Tue Jan 24 19:13:26 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Wed, 25 Jan 2006 11:13:26 +1000
Subject: [AccessD] bust out the math books
In-Reply-To: <b874372a0601241650q1fc359d8n58efa86c2cecb471@mail.gmail.com>
Message-ID: <43D75D56.11540.4A4601F@stuart.lexacorp.com.pg>

On 24 Jan 2006 at 16:50, Francisco Tapia wrote:

> can someone answer me this:
>   C1 C2
> C3  1566 1770
> 0.884746  5130 5340
> 0.960674  1320 1800
> 0.733333  6440 7280
> 0.884615  1770 1800
> 0.983333
> 
> 
> 
>  16226 17990
> 0.901946
> If I take C1 / C2 I get C3... there must be a mathimaticall reason as to why
> I can't just average column C3 to get the 90%, instead I end up with 88.93%
> 

The larger a number, the more weight it needs to carry in the "averaging"
A clearer example to show why you can't just average averages to get an 
overall average.

Individual Averages:
1/1000 = .001
99999/1000 = 99.999

Overall average (weighted):
100000/1000 = 100

Average(?) average:
(.001 + 99.999)/2 = 50

The second "average" gives equal weight to the 1 occurence in the first 
calculation and the 999 occurences in the second calculation.

-- 
Stuart




From djkr at msn.com  Tue Jan 24 19:20:17 2006
From: djkr at msn.com (DJK(John) Robinson)
Date: Wed, 25 Jan 2006 01:20:17 -0000
Subject: [AccessD] bust out the math books
In-Reply-To: <b874372a0601241650q1fc359d8n58efa86c2cecb471@mail.gmail.com>
Message-ID: <BAY106-DAV88B81FEBABC727DBCE974D2120@phx.gbl>

No reason why they *should* be the same mathematically.  The ratio of the
sums is just not the same thing as the average of the ratios.

Question is - what are you trying to achieve?

Consider
   1	   2	0.5
 999	1000	0.999
----	----	-----
1000	1002	???
if that helps.

John


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco Tapia
Sent: 25 January 2006 00:50
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books


can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to why
I can't just average column C3 to get the 90%, instead I end up with 88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From stuart at lexacorp.com.pg  Tue Jan 24 19:23:35 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Wed, 25 Jan 2006 11:23:35 +1000
Subject: [AccessD] bust out the math books
In-Reply-To: <43D75D56.11540.4A4601F@stuart.lexacorp.com.pg>
References: <b874372a0601241650q1fc359d8n58efa86c2cecb471@mail.gmail.com>
Message-ID: <43D75FB7.7248.4ADA896@stuart.lexacorp.com.pg>

On 25 Jan 2006 at 11:13, Stuart McLachlan wrote:

> The larger a number, the more weight it needs to carry in the "averaging" A
> clearer example to show why you can't just average averages to get an
> overall average.
> 

OK, bad example. That's not exactly what you were doing.
Here's a more relevant one:

1/100 = .01
9999/10000 = .9999

Weighted average:
10000/10100 = .9909

Average(?) average:
(.01 + .9999)/2 = .50495

The 9999/10000 cases clearly needs to carry 100 time more "weight" that the 
1/100 cases.





-- 
Stuart




From john at winhaven.net  Tue Jan 24 22:23:38 2006
From: john at winhaven.net (John Bartow)
Date: Tue, 24 Jan 2006 22:23:38 -0600
Subject: [AccessD] bust out the math books
In-Reply-To: <b874372a0601241650q1fc359d8n58efa86c2cecb471@mail.gmail.com>
Message-ID: <021101c62167$1dd9f810$6f01a8c0@ScuzzPaq>

Hi Francisco,
What happened to you over on OT?

Rocky's converted to Thunderbird and we need some answers :o) 



From jwcolby at ColbyConsulting.com  Tue Jan 24 23:09:47 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Wed, 25 Jan 2006 00:09:47 -0500
Subject: [AccessD] Moving some object's recordsource to SQL Server
Message-ID: <00b201c6216d$9085fd90$647aa8c0@ColbyM6805>

I need a "step by step" if you will of moving some object to SQL Server -
combo or form - where the Access query was filtered and the filter won't
work in SQL Server.  For example a reference to a control on a form.

I know that I have to create a SP in SQL Server that accepts a parameter.
How do I "connect" to that query from Access?  Is it a n ODBC (or other?)
link, just like a table?  Then how do I feed the parameters to the SP out in
SQL server.

I am getting ready to do this and am way under prepared for this.  

Environment:

SQL Server Express 2005
Access (Office) XP or 2003
Fes now talking to the SQL Server BE using the standard (ODBC I think)
"links" that the upsize wizard created when it moved the tables.

The FE seems to work as it did before except slower.  Now if I can start
replacing the slow "Access Queries over ODBC" with "SQL Server SPs with
passed params????" I might be able to see what this is capable of.  I just
haven't a clue how to move to that "SP with Params".

John W. Colby
www.ColbyConsulting.com 




From bchacc at san.rr.com  Tue Jan 24 23:14:11 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Tue, 24 Jan 2006 21:14:11 -0800
Subject: [AccessD] [Fwd: Default Page Size]
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF50@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF50@INFOSERVER04.infostat.local>
Message-ID: <43D70923.8060805@san.rr.com>

So do you have two formats of the same report, selectable by the user? 

Rocky


Charlotte Foust wrote:
> We format most of our reports to fit either now, which means we use
> paper length and A4 width when designing the report.  If you use default
> printer, that's your only choice.  Otherwise, yes, you'd have to allow
> them to specify the paper size and you'd have to create some specially
> formatted A4 reports if they needed the longer paper length.  
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Tuesday, January 24, 2006 10:44 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> Charlotte:
>
> I'm not using any code.  I just use default printer.  This app could be 
> running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to tie the
>
> app to one size or another.  Apparently I'm going to have to put in some
>
> kind of preference for the user to select their paper size then?
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> Rocky,
>>
>> What kind of code are you using to set the paper size?  There are 
>> actually papersize constants you can use to make it easier.  We use 
>> these in our Access apps to make the code easier to read:
>>
>> Public Const PAPER_LETTER As Integer = 1
>> Public Const PAPER_A4 As Integer = 9
>> Public Const PAPER_LEGAL As Integer = 5
>>
>> If you check the Access.Printer class, you'll get a list of the built 
>> in constants for AcPrintPaperSize, including acPRPSA4, acPRPSLetter, 
>> and acPRPSLegal, which have the same values as we use (our code was 
>> built before the Printer object became part of Access).  Whichever you
>>     
>
>   
>> use, it's what you have to pass to the printer to get the setting 
>> right.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Tuesday, January 24, 2006 9:31 AM
>> To: access Developers discussion and problem solving
>> Subject: [AccessD] [Fwd: Default Page Size]
>>
>>
>>
>>
>> Dear List:
>>
>> A guy in India with whom I'm developing a preventive maintenance app 
>> is
>> using A4 paper.  The report I sent him apparently doesn't print the 
>> whole footer unless he changes the printer.  He writes:
>>
>> "The problem still persisted of the report saying only "page no 1 of "
>> and not showing the total no of pages and of the second page being a 
>> blank, but third page showing the second page (all this only in the
>>     
> mtce
>   
>> sch. report). I have found the cause. I found that the page set up was
>> landscape and letter size. I changed the letter size to A4 and 
>> everything became ok! But I am not able to make it permanent - when I 
>> ask for the report the next time, the same problem. I had to again
>>     
> reset
>   
>> the page size. How do I make it stick?"
>>
>> But the other reports in the system apparently work OK.  The 
>> File-->Page
>>
>> Setup parameters are the as the other reports - default printer is
>> checked - except this one is landscape.  Any ideas?
>>
>> MTIA
>>
>> Rocky Smolin
>> Beach Access Software
>> 858-259-4334
>> www.e-z-mrp.com
>>
>>
>> ----- Original Message -----
>>
>>     *From:* Rocky Smolin - Beach Access Software 
>> <mailto:bchacc at san.rr.com>
>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>     *Subject:* Re: PM?
>>
>>     Ram:
>>
>>     The graph can be done but it's not real easy in Access.  On the X
>>     axis you would also lose visibility of what machines were creating
>>     the scores on the Y axis.  The X axis would just be a sequence
>>     number.  Wouldn't seeing the list of machines with description be
>>     more helpful.  >From an information standpoint the graph will only
>>     show the user that the scores of the machines run from m to n.  So
>>     they will be picking an arbitrary point between the lowest and
>>     highest value without much visibility over the nature of the
>>     equipment that's being included and excluded.
>>
>>     I will do a bit of research to see if there's a graphing control I
>>     can find so I don't have to reinvent the wheel.  Then maybe put an
>>     button on the form to let the user choose tabular of graphic 
>> format.
>>
>>     Requiring administrator access to change the cutoff point is easy.
>>     
>
>   
>>     I'll attend to that.  What's the next step?
>>
>>     Best,
>>
>>     Rocky
>>
>>      
>>
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From developer at ultradnt.com  Tue Jan 24 23:45:43 2006
From: developer at ultradnt.com (Steve Conklin)
Date: Wed, 25 Jan 2006 00:45:43 -0500
Subject: [AccessD] Moving some object's recordsource to SQL Server
In-Reply-To: <00b201c6216d$9085fd90$647aa8c0@ColbyM6805>
Message-ID: <200601250545.k0P5jhL74317@ultradnt.com>

Short answer: Pass Through query.

I havent used 2005 yet, but using SQL 2000 BE's, I have had success with
using pass-thru queries as record source for Access forms.  Primary
advantage is that the returned recordset is DAO and form behaves as any
Access form.

1. Define an SP:
CREATE PROCEDURE sp_cust_order
@custid int
AS
SELECT * FROM tblOrder
WHERE customerid=@custid
GO 

2. Create an Access PT query "qry_pt_CustOrder", whose sql is
"sp_cust_order 13"
(You will be prompted for ODBC connect info) 

3. Use VBA code in calling/menu form to redefine the sql of that query, as
needed, to change the parameter, before opening form.
Currentdb.querydefs("qry_pt_CustOrder").sql="sp_cust_order 14"
Docmd.openform "frmCustOrder"

The qdef will have a connect property that should be refreshed whenver you
refresh the linked tables.

Hth
Steve


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Wednesday, January 25, 2006 12:10 AM
To: 'Access Developers discussion and problem solving';
dba-sqlserver at databaseadvisors.com
Subject: [AccessD] Moving some object's recordsource to SQL Server

I need a "step by step" if you will of moving some object to SQL Server -
combo or form - where the Access query was filtered and the filter won't
work in SQL Server.  For example a reference to a control on a form.

I know that I have to create a SP in SQL Server that accepts a parameter.
How do I "connect" to that query from Access?  Is it a n ODBC (or other?)
link, just like a table?  Then how do I feed the parameters to the SP out in
SQL server.

I am getting ready to do this and am way under prepared for this.  

Environment:

SQL Server Express 2005
Access (Office) XP or 2003
Fes now talking to the SQL Server BE using the standard (ODBC I think)
"links" that the upsize wizard created when it moved the tables.

The FE seems to work as it did before except slower.  Now if I can start
replacing the slow "Access Queries over ODBC" with "SQL Server SPs with
passed params????" I might be able to see what this is capable of.  I just
haven't a clue how to move to that "SP with Params".

John W. Colby
www.ColbyConsulting.com 


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From paul.hartland at isharp.co.uk  Wed Jan 25 03:14:04 2006
From: paul.hartland at isharp.co.uk (Paul Hartland (ISHARP))
Date: Wed, 25 Jan 2006 09:14:04 -0000
Subject: [AccessD] OT - Acessing File DSN Coonection String Using VB6
In-Reply-To: <200512221305.jBMD50V16983@databaseadvisors.com>
Message-ID: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAADoEkuIW2rYTr/ZPwhTm25NAQAAAAA=@isharp.co.uk>

To all,

Don't know if this is possible I have a File DSN on my machine and what I
want to do is access it using VB6 and get various properties of it like the
connection string etc.  Has anyone done this before or can point me in the
right direction on how to go about this if it is possible.

Thanks in advance.

Paul Hartland
Database Developer





From Gustav at cactus.dk  Wed Jan 25 04:15:06 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Wed, 25 Jan 2006 11:15:06 +0100
Subject: [AccessD] Memory usage at import of MySQL tables (DoEvents Magic)
Message-ID: <s3d75dc4.012@cactus.dk>

Hi all

Has anyone noticed how Access consumes memory if you importing data to a local table multiple times?
If you run the function below which empties and refills a local table with just 5000 records from a linked MySQL table, each run eats about 500K of memory. This is what the Task Manager shows.
That can quickly add up to a level where the app ceases to operate (flashing screen, loose of graphics, etc.). 

Public Function TestMem(ByVal lngRounds As Long)

  Dim dbs As DAO.Database
  Dim lngRound As Long
  
  Set dbs = CurrentDb
  
  With dbs
    For lngRound = 1 To lngRounds
      Debug.Print lngRound, Time
      .Execute "DeleteMessage"  ' empty local table.
      .Execute "AppendMessage"  ' append to local table.
    Next
  End With
  
  Set dbs = Nothing
  
End Function

However, if I call the function like this:

  DoEvents
  Result = TestMem(10)

the memory usage quickly stabilizes at some level.
Why that? DoEvents should do close to nothing _before_ you run the function ...

I haven't tried with import from other sources than MySQL.

/gustav



From stuart at lexacorp.com.pg  Wed Jan 25 04:59:07 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Wed, 25 Jan 2006 20:59:07 +1000
Subject: [AccessD] OT - Acessing File DSN Coonection String Using VB6
In-Reply-To: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAADoEkuIW2rYTr/ZPwhTm25NAQAAAAA=@isharp.co.uk>
References: <200512221305.jBMD50V16983@databaseadvisors.com>
Message-ID: <43D7E69B.18792.6BC95A7@stuart.lexacorp.com.pg>

On 25 Jan 2006 at 9:14, Paul Hartland (ISHARP) wrote:

> To all,
> 
> Don't know if this is possible I have a File DSN on my machine and what I
> want to do is access it using VB6 and get various properties of it like the
> connection string etc.  Has anyone done this before or can point me in the
> right direction on how to go about this if it is possible.
> 

A file DSN is a plain text file structured in the classic Windows INI file 
format.

Take a look at the recent thread "Read External File for Path String", 
specifically my posting where I gave the code for reading and writing 
values from an INI file.

The Section is always "ODBC".  Open any DSN in a text editor to see what 
Keys you need to query.


-- 
Stuart




From Erwin.Craps at ithelps.be  Wed Jan 25 05:18:01 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Wed, 25 Jan 2006 12:18:01 +0100
Subject: [AccessD] Outlook automation - use a template for a message
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62E0@stekelbes.ithelps.local>

The problem lies in the CreateItemFromTemplate.
I see after creating the item from template it also adds my regular
footer above the template. This is probably why your replacefields get
at the bottom.
In some occasions I simulated the problem, it also messes up the format
of my template.

I use a different approach using a HTML template, may I suggest you to
use this one?
The advantage is that you can use regular HTML editors, like Frontpage,
to create your template and you have access to both the design and HTML
source.
For what concerns stiff resistance against HTML, I find that a
discussion like between using DOS and Windows.
RTF is from a security point of view not that more secure and is
outdated by HTML.
Plain text e-mails is for what concerns me should dead a long time ago
pointless these days.
If you want to present something is a decent fashion, you gonna need
formatting and hyperlinks.
I am however against adding pictures (files) in mass E-mails to minimize
size.
I always use hyperlinks to my website where the pictures reside. As in
the example I give you.
Further more its better for statistics because I see in my weblog how
many users have opened my mail or even forwarded it to someone else
(depending on the situation).


To make this code work you need to download the HTML template and save
in into your C:\temp folder.
http://www.ithelps.be/temp/SampleVideo2.htm

To view the result after running the code see
http://www.ithelps.be/temp/NewVideo.msg


Beneath is the code I trimmed from my e-mail marketing function.
You can also download it from
http://www.ithelps.be/temp/TestHTMLBodyEmail.txt

Small note:
I use [[fieldtoreplace]] brackets instead of <fieldtoreplace>.
<> get's replaced by &something in HTML code. I also find that [[]] is
more unique than <> to avoid replacement problems.


Public Function TestHTMLBody()
    Dim strPromoTemplatePathAndFile  As String
    Dim strHTMLPromoTemplate As String
    Dim strHTMLPromoTemplateTEMP As String
    Dim lngLOF As Long
    Dim strFind As String
    Dim strReplace As String
    Dim strMailSubject As String
    Dim oOut As Outlook.Application
    Dim mItem As Outlook.MailItem
    
    'Path and filename to HTML template
    'Locate at your server so you only have one master file for all
users.
    strPromoTemplatePathAndFile = "C:\temp\SampleVideo2.htm"
    strMailSubject = "Some mail subject"
    
    'Open templatefile and load HTML code in a variable
    Open strPromoTemplatePathAndFile For Binary As #1
    lngLOF = LOF(1)
    strHTMLPromoTemplate = Space(lngLOF)
    Get #1, 1, strHTMLPromoTemplate
    Close #1
    
    'Copy HTML code in temporary variable
    strHTMLPromoTemplateTEMP = strHTMLPromoTemplate
    
    'Replace fields in HTML with real data
    strFind = "[[NAME]]"
    strReplace = "Craps"
    strHTMLPromoTemplateTEMP = Replace(strHTMLPromoTemplateTEMP,
strFind, strReplace, 1, , vbDatabaseCompare)
                
    strFind = "[[DATE]]"
    strReplace = Date
    strHTMLPromoTemplateTEMP = Replace(strHTMLPromoTemplateTEMP,
strFind, strReplace, 1, , vbDatabaseCompare)
    
    strFind = "[[FIRSTNAME]]"
    strReplace = "Erwin"
    strHTMLPromoTemplateTEMP = Replace(strHTMLPromoTemplateTEMP,
strFind, strReplace, 1, , vbDatabaseCompare)
    
                
                
    'create new e-mailitem and display without sending
    Set oOut = New Outlook.Application
    Set mItem = oOut.CreateItem(olMailItem)
    With mItem
        .To = "dw-murphy at cox.net"
        .Subject = "New Video"
        .HTMLBody = strHTMLPromoTemplateTEMP
        .Display
    End With
    
    Set mItem = Nothing
    Set oOut = Nothing
    
    
End Function


From marcus at tsstech.com  Wed Jan 25 06:50:58 2006
From: marcus at tsstech.com (Scott Marcus)
Date: Wed, 25 Jan 2006 07:50:58 -0500
Subject: [AccessD] bust out the math books
Message-ID: <B7B1803D6973C84F97D412AFCDA8EA7D016F6950@2003exchg.TSS.AD>

Mathematical answer...

C1 = Total
C2 = Sample Size
C3 = Average

C1  C2  C3
===========
A   B   A/B
C   D   C/D
E   F   E/F
G   H   G/H
I   J   I/J


Real average = (A+C+E+G+I)/BDFHJ

Average of averages = (A/B + C/D + E/F + G/H + I/J)/5

Which equals...
((ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/(BDFHJ))/5
                    

Which equals...
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


(A+C+E+G+I)/BDFHJ does not equal 
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


Scott Marcus                   

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco
Tapia
Sent: Tuesday, January 24, 2006 7:50 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books

can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to
why
I can't just average column C3 to get the 90%, instead I end up with
88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
 





NOTICE:  This electronic mail transmission is for the use of the named individual or entity to which it is directed and may contain information that is privileged or confidential.  If you are not the intended recipient, any disclosure, copying, distribution or use of the contents of any information contained herein is prohibited.  If you have received this electronic mail transmission in error, delete it from your system without copying or forwarding it, and notify the sender of the error by replying via email or calling TSS Technologies at (513) 772-7000, so that our address record can be corrected.  Any information included in this email is provided on an ?as is? and ?where as? basis, and TSS Technologies makes no representations or warranties of any kind with respect to the completeness or accuracy of the information contained in this email. 


From marcus at tsstech.com  Wed Jan 25 08:15:41 2006
From: marcus at tsstech.com (Scott Marcus)
Date: Wed, 25 Jan 2006 09:15:41 -0500
Subject: [AccessD] bust out the math books
Message-ID: <B7B1803D6973C84F97D412AFCDA8EA7D016F6951@2003exchg.TSS.AD>

Sorry Real Average should be...

(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/BDFHJ

Still, the two do not equal.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Scott Marcus
Sent: Wednesday, January 25, 2006 7:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] bust out the math books

Mathematical answer...

C1 = Total
C2 = Sample Size
C3 = Average

C1  C2  C3
===========
A   B   A/B
C   D   C/D
E   F   E/F
G   H   G/H
I   J   I/J


Real average = (A+C+E+G+I)/BDFHJ

Average of averages = (A/B + C/D + E/F + G/H + I/J)/5

Which equals...
((ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/(BDFHJ))/5
                    

Which equals...
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


(A+C+E+G+I)/BDFHJ does not equal 
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


Scott Marcus                   

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco
Tapia
Sent: Tuesday, January 24, 2006 7:50 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books

can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to
why
I can't just average column C3 to get the 90%, instead I end up with
88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
 





NOTICE:  This electronic mail transmission is for the use of the named
individual or entity to which it is directed and may contain information
that is privileged or confidential.  If you are not the intended
recipient, any disclosure, copying, distribution or use of the contents
of any information contained herein is prohibited.  If you have received
this electronic mail transmission in error, delete it from your system
without copying or forwarding it, and notify the sender of the error by
replying via email or calling TSS Technologies at (513) 772-7000, so
that our address record can be corrected.  Any information included in
this email is provided on an "as is" and "where as" basis, and TSS
Technologies makes no representations or warranties of any kind with
respect to the completeness or accuracy of the information contained in
this email. 


From accessd at shaw.ca  Wed Jan 25 09:24:47 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Wed, 25 Jan 2006 07:24:47 -0800
Subject: [AccessD] bust out the math books
In-Reply-To: <B7B1803D6973C84F97D412AFCDA8EA7D016F6950@2003exchg.TSS.AD>
Message-ID: <002201c621c3$7a125940$017ba8c0@xpserver>

Hi Scott:

There must be a round off error somewhere in the process. As I am just
finishing off an accounting system this problem has always been apparent.
There are a few ways that accounting applications resolve the round off
error.

1. Store all values as integers and perform any math using those integers.
Example (assuming 6 significant places are required.) 

Value 0.884746 would become 884746 with a mantissa of 6. All subsequent
calculations are performed in integer math or logs are used. (Adding instead
of multiple and subtract instead of dividing.)

2. In the case of a multiplication or division being required the
calculation is performed once and then the values are managed again as
integers. This is particularly true when applying taxes to invoicing.
Example (given that the state or provincial tax is 6.5% and the federal tax
is 7.0%.)

The taxes are applied immediately then added from there on. In appropriate
tax is generated per item: 

Given:
Subtotal 	PST		GST		Displayed/Saved Total
123.56	8.0314	8.6492 	
		8.03		8.65		140.24	
456.23	29.65495	31.9361
  		29.66		31.94		61.60
+
579.79	+37.69	+ 40.59	=658.07	right-way

579.79	* 1.135% (total tax)	=658.06	wrong-way

When tax totals are generated then all the tax subtotals are just added
together. In theory, all the subtotals could be added and the total tax
could be calculated but the answer would be wrong. This is the same problem
experience when trying to calculate the average by item and then expecting
the average for the whole group to add up. It never will.

HTH
Jim


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Scott Marcus
Sent: January 25, 2006 4:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] bust out the math books

Mathematical answer...

C1 = Total
C2 = Sample Size
C3 = Average

C1  C2  C3
===========
A   B   A/B
C   D   C/D
E   F   E/F
G   H   G/H
I   J   I/J


Real average = (A+C+E+G+I)/BDFHJ

Average of averages = (A/B + C/D + E/F + G/H + I/J)/5

Which equals...
((ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/(BDFHJ))/5
                    

Which equals...
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


(A+C+E+G+I)/BDFHJ does not equal 
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


Scott Marcus                   

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco
Tapia
Sent: Tuesday, January 24, 2006 7:50 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books

can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to
why
I can't just average column C3 to get the 90%, instead I end up with
88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
 





NOTICE:  This electronic mail transmission is for the use of the named
individual or entity to which it is directed and may contain information
that is privileged or confidential.  If you are not the intended recipient,
any disclosure, copying, distribution or use of the contents of any
information contained herein is prohibited.  If you have received this
electronic mail transmission in error, delete it from your system without
copying or forwarding it, and notify the sender of the error by replying via
email or calling TSS Technologies at (513) 772-7000, so that our address
record can be corrected.  Any information included in this email is provided
on an as is and where as basis, and TSS Technologies makes no
representations or warranties of any kind with respect to the completeness
or accuracy of the information contained in this email. 



From Donald.A.McGillivray at sprint.com  Wed Jan 25 09:35:42 2006
From: Donald.A.McGillivray at sprint.com (Mcgillivray, Don [IT])
Date: Wed, 25 Jan 2006 09:35:42 -0600
Subject: [AccessD] bust out the math books
Message-ID: <EC829B33DF5B5B48A956B7A2E894AA9A0410D8A2@PLSWB06C.ad.sprint.com>

 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco
Tapia
Sent: Tuesday, January 24, 2006 4:50 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books

can someone answer me this:
  C1 C2 C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to
why
I can't just average column C3 to get the 90%, instead I end up with
88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From cfoust at infostatsystems.com  Wed Jan 25 10:26:52 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 25 Jan 2006 08:26:52 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <F55048AF7E974F429BB24597D7355EEABF52@INFOSERVER04.infostat.local>

No, code selects the appropriate report format based on the paper
selection.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Tuesday, January 24, 2006 9:14 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] [Fwd: Default Page Size]


So do you have two formats of the same report, selectable by the user? 

Rocky


Charlotte Foust wrote:
> We format most of our reports to fit either now, which means we use 
> paper length and A4 width when designing the report.  If you use 
> default printer, that's your only choice.  Otherwise, yes, you'd have 
> to allow them to specify the paper size and you'd have to create some 
> specially formatted A4 reports if they needed the longer paper length.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Tuesday, January 24, 2006 10:44 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> Charlotte:
>
> I'm not using any code.  I just use default printer.  This app could 
> be
> running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to tie
the
>
> app to one size or another.  Apparently I'm going to have to put in 
> some
>
> kind of preference for the user to select their paper size then?
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> Rocky,
>>
>> What kind of code are you using to set the paper size?  There are
>> actually papersize constants you can use to make it easier.  We use 
>> these in our Access apps to make the code easier to read:
>>
>> Public Const PAPER_LETTER As Integer = 1
>> Public Const PAPER_A4 As Integer = 9
>> Public Const PAPER_LEGAL As Integer = 5
>>
>> If you check the Access.Printer class, you'll get a list of the built
>> in constants for AcPrintPaperSize, including acPRPSA4, acPRPSLetter, 
>> and acPRPSLegal, which have the same values as we use (our code was 
>> built before the Printer object became part of Access).  Whichever
you
>>     
>
>   
>> use, it's what you have to pass to the printer to get the setting
>> right.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>> Smolin
>> - Beach Access Software
>> Sent: Tuesday, January 24, 2006 9:31 AM
>> To: access Developers discussion and problem solving
>> Subject: [AccessD] [Fwd: Default Page Size]
>>
>>
>>
>>
>> Dear List:
>>
>> A guy in India with whom I'm developing a preventive maintenance app
>> is
>> using A4 paper.  The report I sent him apparently doesn't print the 
>> whole footer unless he changes the printer.  He writes:
>>
>> "The problem still persisted of the report saying only "page no 1 of 
>> " and not showing the total no of pages and of the second page being 
>> a blank, but third page showing the second page (all this only in the
>>     
> mtce
>   
>> sch. report). I have found the cause. I found that the page set up 
>> was landscape and letter size. I changed the letter size to A4 and 
>> everything became ok! But I am not able to make it permanent - when I

>> ask for the report the next time, the same problem. I had to again
>>     
> reset
>   
>> the page size. How do I make it stick?"
>>
>> But the other reports in the system apparently work OK.  The
>> File-->Page
>>
>> Setup parameters are the as the other reports - default printer is 
>> checked - except this one is landscape.  Any ideas?
>>
>> MTIA
>>
>> Rocky Smolin
>> Beach Access Software
>> 858-259-4334
>> www.e-z-mrp.com
>>
>>
>> ----- Original Message -----
>>
>>     *From:* Rocky Smolin - Beach Access Software
>> <mailto:bchacc at san.rr.com>
>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>     *Subject:* Re: PM?
>>
>>     Ram:
>>
>>     The graph can be done but it's not real easy in Access.  On the X
>>     axis you would also lose visibility of what machines were
creating
>>     the scores on the Y axis.  The X axis would just be a sequence
>>     number.  Wouldn't seeing the list of machines with description be
>>     more helpful.  >From an information standpoint the graph will
only
>>     show the user that the scores of the machines run from m to n.
So
>>     they will be picking an arbitrary point between the lowest and
>>     highest value without much visibility over the nature of the
>>     equipment that's being included and excluded.
>>
>>     I will do a bit of research to see if there's a graphing control
I
>>     can find so I don't have to reinvent the wheel.  Then maybe put
an
>>     button on the form to let the user choose tabular of graphic
>> format.
>>
>>     Requiring administrator access to change the cutoff point is 
>> easy.
>>     
>
>   
>>     I'll attend to that.  What's the next step?
>>
>>     Best,
>>
>>     Rocky
>>
>>      
>>
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From stuart at lexacorp.com.pg  Wed Jan 25 10:52:17 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Thu, 26 Jan 2006 02:52:17 +1000
Subject: [AccessD] bust out the math books
In-Reply-To: <002201c621c3$7a125940$017ba8c0@xpserver>
References: <B7B1803D6973C84F97D412AFCDA8EA7D016F6950@2003exchg.TSS.AD>
Message-ID: <43D83961.24003.7FFEAF7@stuart.lexacorp.com.pg>

On 25 Jan 2006 at 7:24, Jim Lawrence wrote:

 
> When tax totals are generated then all the tax subtotals are just added
> together. In theory, all the subtotals could be added and the total tax
> could be calculated but the answer would be wrong. This is the same problem
> experience when trying to calculate the average by item and then expecting
> the average for the whole group to add up. It never will.
> 

No, the two are completely separate problems.

Tax totalling problems are caused by rounding errors inherent in the 
process of working with currency which has a minimum sized unit (a cent or 
whatever).  Averaging problems are caused by false assumptions about the 
underlying maths by the  person writing the code.



-- 
Stuart




From bchacc at san.rr.com  Wed Jan 25 10:54:05 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Wed, 25 Jan 2006 08:54:05 -0800
Subject: [AccessD] [Fwd: Default Page Size]
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF52@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF52@INFOSERVER04.infostat.local>
Message-ID: <43D7AD2D.7040208@san.rr.com>

So you poll the printer class to see what paper was selected? Very slick.

Rocky


Charlotte Foust wrote:
> No, code selects the appropriate report format based on the paper
> selection.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Tuesday, January 24, 2006 9:14 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> So do you have two formats of the same report, selectable by the user? 
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> We format most of our reports to fit either now, which means we use 
>> paper length and A4 width when designing the report.  If you use 
>> default printer, that's your only choice.  Otherwise, yes, you'd have 
>> to allow them to specify the paper size and you'd have to create some 
>> specially formatted A4 reports if they needed the longer paper length.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Tuesday, January 24, 2006 10:44 AM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>
>>
>> Charlotte:
>>
>> I'm not using any code.  I just use default printer.  This app could 
>> be
>> running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to tie
>>     
> the
>   
>> app to one size or another.  Apparently I'm going to have to put in 
>> some
>>
>> kind of preference for the user to select their paper size then?
>>
>> Rocky
>>
>>
>> Charlotte Foust wrote:
>>   
>>     
>>> Rocky,
>>>
>>> What kind of code are you using to set the paper size?  There are
>>> actually papersize constants you can use to make it easier.  We use 
>>> these in our Access apps to make the code easier to read:
>>>
>>> Public Const PAPER_LETTER As Integer = 1
>>> Public Const PAPER_A4 As Integer = 9
>>> Public Const PAPER_LEGAL As Integer = 5
>>>
>>> If you check the Access.Printer class, you'll get a list of the built
>>> in constants for AcPrintPaperSize, including acPRPSA4, acPRPSLetter, 
>>> and acPRPSLegal, which have the same values as we use (our code was 
>>> built before the Printer object became part of Access).  Whichever
>>>       
> you
>   
>>>     
>>>       
>>   
>>     
>>> use, it's what you have to pass to the printer to get the setting
>>> right.
>>>
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>> Smolin
>>> - Beach Access Software
>>> Sent: Tuesday, January 24, 2006 9:31 AM
>>> To: access Developers discussion and problem solving
>>> Subject: [AccessD] [Fwd: Default Page Size]
>>>
>>>
>>>
>>>
>>> Dear List:
>>>
>>> A guy in India with whom I'm developing a preventive maintenance app
>>> is
>>> using A4 paper.  The report I sent him apparently doesn't print the 
>>> whole footer unless he changes the printer.  He writes:
>>>
>>> "The problem still persisted of the report saying only "page no 1 of 
>>> " and not showing the total no of pages and of the second page being 
>>> a blank, but third page showing the second page (all this only in the
>>>     
>>>       
>> mtce
>>   
>>     
>>> sch. report). I have found the cause. I found that the page set up 
>>> was landscape and letter size. I changed the letter size to A4 and 
>>> everything became ok! But I am not able to make it permanent - when I
>>>       
>
>   
>>> ask for the report the next time, the same problem. I had to again
>>>     
>>>       
>> reset
>>   
>>     
>>> the page size. How do I make it stick?"
>>>
>>> But the other reports in the system apparently work OK.  The
>>> File-->Page
>>>
>>> Setup parameters are the as the other reports - default printer is 
>>> checked - except this one is landscape.  Any ideas?
>>>
>>> MTIA
>>>
>>> Rocky Smolin
>>> Beach Access Software
>>> 858-259-4334
>>> www.e-z-mrp.com
>>>
>>>
>>> ----- Original Message -----
>>>
>>>     *From:* Rocky Smolin - Beach Access Software
>>> <mailto:bchacc at san.rr.com>
>>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>>     *Subject:* Re: PM?
>>>
>>>     Ram:
>>>
>>>     The graph can be done but it's not real easy in Access.  On the X
>>>     axis you would also lose visibility of what machines were
>>>       
> creating
>   
>>>     the scores on the Y axis.  The X axis would just be a sequence
>>>     number.  Wouldn't seeing the list of machines with description be
>>>     more helpful.  >From an information standpoint the graph will
>>>       
> only
>   
>>>     show the user that the scores of the machines run from m to n.
>>>       
> So
>   
>>>     they will be picking an arbitrary point between the lowest and
>>>     highest value without much visibility over the nature of the
>>>     equipment that's being included and excluded.
>>>
>>>     I will do a bit of research to see if there's a graphing control
>>>       
> I
>   
>>>     can find so I don't have to reinvent the wheel.  Then maybe put
>>>       
> an
>   
>>>     button on the form to let the user choose tabular of graphic
>>> format.
>>>
>>>     Requiring administrator access to change the cutoff point is 
>>> easy.
>>>     
>>>       
>>   
>>     
>>>     I'll attend to that.  What's the next step?
>>>
>>>     Best,
>>>
>>>     Rocky
>>>
>>>      
>>>
>>>
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From cfoust at infostatsystems.com  Wed Jan 25 11:05:58 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 25 Jan 2006 09:05:58 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <F55048AF7E974F429BB24597D7355EEABF54@INFOSERVER04.infostat.local>

No, Rocky.  Remember, this is older code that predates the Access
Printer object.  The user sets a paper option in the app configuration
to tell us whether he uses letter/legal or A4 paper.  

Charlotte


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Wednesday, January 25, 2006 8:54 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] [Fwd: Default Page Size]


So you poll the printer class to see what paper was selected? Very
slick.

Rocky


Charlotte Foust wrote:
> No, code selects the appropriate report format based on the paper 
> selection.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Tuesday, January 24, 2006 9:14 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> So do you have two formats of the same report, selectable by the user?
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> We format most of our reports to fit either now, which means we use
>> paper length and A4 width when designing the report.  If you use 
>> default printer, that's your only choice.  Otherwise, yes, you'd have

>> to allow them to specify the paper size and you'd have to create some

>> specially formatted A4 reports if they needed the longer paper
length.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>> Smolin
>> - Beach Access Software
>> Sent: Tuesday, January 24, 2006 10:44 AM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>
>>
>> Charlotte:
>>
>> I'm not using any code.  I just use default printer.  This app could
>> be
>> running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to tie
>>     
> the
>   
>> app to one size or another.  Apparently I'm going to have to put in
>> some
>>
>> kind of preference for the user to select their paper size then?
>>
>> Rocky
>>
>>
>> Charlotte Foust wrote:
>>   
>>     
>>> Rocky,
>>>
>>> What kind of code are you using to set the paper size?  There are 
>>> actually papersize constants you can use to make it easier.  We use 
>>> these in our Access apps to make the code easier to read:
>>>
>>> Public Const PAPER_LETTER As Integer = 1
>>> Public Const PAPER_A4 As Integer = 9
>>> Public Const PAPER_LEGAL As Integer = 5
>>>
>>> If you check the Access.Printer class, you'll get a list of the 
>>> built in constants for AcPrintPaperSize, including acPRPSA4, 
>>> acPRPSLetter, and acPRPSLegal, which have the same values as we use 
>>> (our code was built before the Printer object became part of 
>>> Access).  Whichever
>>>       
> you
>   
>>>     
>>>       
>>   
>>     
>>> use, it's what you have to pass to the printer to get the setting 
>>> right.
>>>
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>> Smolin
>>> - Beach Access Software
>>> Sent: Tuesday, January 24, 2006 9:31 AM
>>> To: access Developers discussion and problem solving
>>> Subject: [AccessD] [Fwd: Default Page Size]
>>>
>>>
>>>
>>>
>>> Dear List:
>>>
>>> A guy in India with whom I'm developing a preventive maintenance app

>>> is using A4 paper.  The report I sent him apparently doesn't print 
>>> the whole footer unless he changes the printer.  He writes:
>>>
>>> "The problem still persisted of the report saying only "page no 1 of
>>> " and not showing the total no of pages and of the second page being

>>> a blank, but third page showing the second page (all this only in
the
>>>     
>>>       
>> mtce
>>   
>>     
>>> sch. report). I have found the cause. I found that the page set up
>>> was landscape and letter size. I changed the letter size to A4 and 
>>> everything became ok! But I am not able to make it permanent - when
I
>>>       
>
>   
>>> ask for the report the next time, the same problem. I had to again
>>>     
>>>       
>> reset
>>   
>>     
>>> the page size. How do I make it stick?"
>>>
>>> But the other reports in the system apparently work OK.  The
>>> File-->Page
>>>
>>> Setup parameters are the as the other reports - default printer is
>>> checked - except this one is landscape.  Any ideas?
>>>
>>> MTIA
>>>
>>> Rocky Smolin
>>> Beach Access Software
>>> 858-259-4334
>>> www.e-z-mrp.com
>>>
>>>
>>> ----- Original Message -----
>>>
>>>     *From:* Rocky Smolin - Beach Access Software 
>>> <mailto:bchacc at san.rr.com>
>>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>>     *Subject:* Re: PM?
>>>
>>>     Ram:
>>>
>>>     The graph can be done but it's not real easy in Access.  On the
X
>>>     axis you would also lose visibility of what machines were
>>>       
> creating
>   
>>>     the scores on the Y axis.  The X axis would just be a sequence
>>>     number.  Wouldn't seeing the list of machines with description
be
>>>     more helpful.  >From an information standpoint the graph will
>>>       
> only
>   
>>>     show the user that the scores of the machines run from m to n.
>>>       
> So
>   
>>>     they will be picking an arbitrary point between the lowest and
>>>     highest value without much visibility over the nature of the
>>>     equipment that's being included and excluded.
>>>
>>>     I will do a bit of research to see if there's a graphing control
>>>       
> I
>   
>>>     can find so I don't have to reinvent the wheel.  Then maybe put
>>>       
> an
>   
>>>     button on the form to let the user choose tabular of graphic 
>>> format.
>>>
>>>     Requiring administrator access to change the cutoff point is
>>> easy.
>>>     
>>>       
>>   
>>     
>>>     I'll attend to that.  What's the next step?
>>>
>>>     Best,
>>>
>>>     Rocky
>>>
>>>      
>>>
>>>
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From bchacc at san.rr.com  Wed Jan 25 11:26:34 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Wed, 25 Jan 2006 09:26:34 -0800
Subject: [AccessD] [Fwd: Default Page Size]
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF54@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF54@INFOSERVER04.infostat.local>
Message-ID: <43D7B4CA.1000400@san.rr.com>

O.  But A2K has this printer object?  (Suppose I could go take a look 
for myself)

Rocky


Charlotte Foust wrote:
> No, Rocky.  Remember, this is older code that predates the Access
> Printer object.  The user sets a paper option in the app configuration
> to tell us whether he uses letter/legal or A4 paper.  
>
> Charlotte
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Wednesday, January 25, 2006 8:54 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> So you poll the printer class to see what paper was selected? Very
> slick.
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> No, code selects the appropriate report format based on the paper 
>> selection.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Tuesday, January 24, 2006 9:14 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>
>>
>> So do you have two formats of the same report, selectable by the user?
>>
>> Rocky
>>
>>
>> Charlotte Foust wrote:
>>   
>>     
>>> We format most of our reports to fit either now, which means we use
>>> paper length and A4 width when designing the report.  If you use 
>>> default printer, that's your only choice.  Otherwise, yes, you'd have
>>>       
>
>   
>>> to allow them to specify the paper size and you'd have to create some
>>>       
>
>   
>>> specially formatted A4 reports if they needed the longer paper
>>>       
> length.
>   
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>> Smolin
>>> - Beach Access Software
>>> Sent: Tuesday, January 24, 2006 10:44 AM
>>> To: Access Developers discussion and problem solving
>>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>>
>>>
>>> Charlotte:
>>>
>>> I'm not using any code.  I just use default printer.  This app could
>>> be
>>> running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to tie
>>>     
>>>       
>> the
>>   
>>     
>>> app to one size or another.  Apparently I'm going to have to put in
>>> some
>>>
>>> kind of preference for the user to select their paper size then?
>>>
>>> Rocky
>>>
>>>
>>> Charlotte Foust wrote:
>>>   
>>>     
>>>       
>>>> Rocky,
>>>>
>>>> What kind of code are you using to set the paper size?  There are 
>>>> actually papersize constants you can use to make it easier.  We use 
>>>> these in our Access apps to make the code easier to read:
>>>>
>>>> Public Const PAPER_LETTER As Integer = 1
>>>> Public Const PAPER_A4 As Integer = 9
>>>> Public Const PAPER_LEGAL As Integer = 5
>>>>
>>>> If you check the Access.Printer class, you'll get a list of the 
>>>> built in constants for AcPrintPaperSize, including acPRPSA4, 
>>>> acPRPSLetter, and acPRPSLegal, which have the same values as we use 
>>>> (our code was built before the Printer object became part of 
>>>> Access).  Whichever
>>>>       
>>>>         
>> you
>>   
>>     
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>>> use, it's what you have to pass to the printer to get the setting 
>>>> right.
>>>>
>>>> Charlotte Foust
>>>>
>>>>
>>>> -----Original Message-----
>>>> From: accessd-bounces at databaseadvisors.com
>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>>> Smolin
>>>> - Beach Access Software
>>>> Sent: Tuesday, January 24, 2006 9:31 AM
>>>> To: access Developers discussion and problem solving
>>>> Subject: [AccessD] [Fwd: Default Page Size]
>>>>
>>>>
>>>>
>>>>
>>>> Dear List:
>>>>
>>>> A guy in India with whom I'm developing a preventive maintenance app
>>>>         
>
>   
>>>> is using A4 paper.  The report I sent him apparently doesn't print 
>>>> the whole footer unless he changes the printer.  He writes:
>>>>
>>>> "The problem still persisted of the report saying only "page no 1 of
>>>> " and not showing the total no of pages and of the second page being
>>>>         
>
>   
>>>> a blank, but third page showing the second page (all this only in
>>>>         
> the
>   
>>>>     
>>>>       
>>>>         
>>> mtce
>>>   
>>>     
>>>       
>>>> sch. report). I have found the cause. I found that the page set up
>>>> was landscape and letter size. I changed the letter size to A4 and 
>>>> everything became ok! But I am not able to make it permanent - when
>>>>         
> I
>   
>>>>       
>>>>         
>>   
>>     
>>>> ask for the report the next time, the same problem. I had to again
>>>>     
>>>>       
>>>>         
>>> reset
>>>   
>>>     
>>>       
>>>> the page size. How do I make it stick?"
>>>>
>>>> But the other reports in the system apparently work OK.  The
>>>> File-->Page
>>>>
>>>> Setup parameters are the as the other reports - default printer is
>>>> checked - except this one is landscape.  Any ideas?
>>>>
>>>> MTIA
>>>>
>>>> Rocky Smolin
>>>> Beach Access Software
>>>> 858-259-4334
>>>> www.e-z-mrp.com
>>>>
>>>>
>>>> ----- Original Message -----
>>>>
>>>>     *From:* Rocky Smolin - Beach Access Software 
>>>> <mailto:bchacc at san.rr.com>
>>>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>>>     *Subject:* Re: PM?
>>>>
>>>>     Ram:
>>>>
>>>>     The graph can be done but it's not real easy in Access.  On the
>>>>         
> X
>   
>>>>     axis you would also lose visibility of what machines were
>>>>       
>>>>         
>> creating
>>   
>>     
>>>>     the scores on the Y axis.  The X axis would just be a sequence
>>>>     number.  Wouldn't seeing the list of machines with description
>>>>         
> be
>   
>>>>     more helpful.  >From an information standpoint the graph will
>>>>       
>>>>         
>> only
>>   
>>     
>>>>     show the user that the scores of the machines run from m to n.
>>>>       
>>>>         
>> So
>>   
>>     
>>>>     they will be picking an arbitrary point between the lowest and
>>>>     highest value without much visibility over the nature of the
>>>>     equipment that's being included and excluded.
>>>>
>>>>     I will do a bit of research to see if there's a graphing control
>>>>       
>>>>         
>> I
>>   
>>     
>>>>     can find so I don't have to reinvent the wheel.  Then maybe put
>>>>       
>>>>         
>> an
>>   
>>     
>>>>     button on the form to let the user choose tabular of graphic 
>>>> format.
>>>>
>>>>     Requiring administrator access to change the cutoff point is
>>>> easy.
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>>>     I'll attend to that.  What's the next step?
>>>>
>>>>     Best,
>>>>
>>>>     Rocky
>>>>
>>>>      
>>>>
>>>>
>>>>   
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From cfoust at infostatsystems.com  Wed Jan 25 11:57:12 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 25 Jan 2006 09:57:12 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <F55048AF7E974F429BB24597D7355EEABF56@INFOSERVER04.infostat.local>

I don't think so.  I know AXP does, but I don't recall it in A2k.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Wednesday, January 25, 2006 9:27 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] [Fwd: Default Page Size]


O.  But A2K has this printer object?  (Suppose I could go take a look 
for myself)

Rocky


Charlotte Foust wrote:
> No, Rocky.  Remember, this is older code that predates the Access 
> Printer object.  The user sets a paper option in the app configuration

> to tell us whether he uses letter/legal or A4 paper.
>
> Charlotte
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Wednesday, January 25, 2006 8:54 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> So you poll the printer class to see what paper was selected? Very 
> slick.
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> No, code selects the appropriate report format based on the paper
>> selection.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>> Smolin
>> - Beach Access Software
>> Sent: Tuesday, January 24, 2006 9:14 PM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>
>>
>> So do you have two formats of the same report, selectable by the 
>> user?
>>
>> Rocky
>>
>>
>> Charlotte Foust wrote:
>>   
>>     
>>> We format most of our reports to fit either now, which means we use 
>>> paper length and A4 width when designing the report.  If you use 
>>> default printer, that's your only choice.  Otherwise, yes, you'd 
>>> have
>>>       
>
>   
>>> to allow them to specify the paper size and you'd have to create 
>>> some
>>>       
>
>   
>>> specially formatted A4 reports if they needed the longer paper
>>>       
> length.
>   
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>> Smolin
>>> - Beach Access Software
>>> Sent: Tuesday, January 24, 2006 10:44 AM
>>> To: Access Developers discussion and problem solving
>>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>>
>>>
>>> Charlotte:
>>>
>>> I'm not using any code.  I just use default printer.  This app could

>>> be running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to 
>>> tie
>>>     
>>>       
>> the
>>   
>>     
>>> app to one size or another.  Apparently I'm going to have to put in 
>>> some
>>>
>>> kind of preference for the user to select their paper size then?
>>>
>>> Rocky
>>>
>>>
>>> Charlotte Foust wrote:
>>>   
>>>     
>>>       
>>>> Rocky,
>>>>
>>>> What kind of code are you using to set the paper size?  There are
>>>> actually papersize constants you can use to make it easier.  We use

>>>> these in our Access apps to make the code easier to read:
>>>>
>>>> Public Const PAPER_LETTER As Integer = 1
>>>> Public Const PAPER_A4 As Integer = 9
>>>> Public Const PAPER_LEGAL As Integer = 5
>>>>
>>>> If you check the Access.Printer class, you'll get a list of the
>>>> built in constants for AcPrintPaperSize, including acPRPSA4, 
>>>> acPRPSLetter, and acPRPSLegal, which have the same values as we use

>>>> (our code was built before the Printer object became part of 
>>>> Access).  Whichever
>>>>       
>>>>         
>> you
>>   
>>     
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>>> use, it's what you have to pass to the printer to get the setting
>>>> right.
>>>>
>>>> Charlotte Foust
>>>>
>>>>
>>>> -----Original Message-----
>>>> From: accessd-bounces at databaseadvisors.com
>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>>> Smolin
>>>> - Beach Access Software
>>>> Sent: Tuesday, January 24, 2006 9:31 AM
>>>> To: access Developers discussion and problem solving
>>>> Subject: [AccessD] [Fwd: Default Page Size]
>>>>
>>>>
>>>>
>>>>
>>>> Dear List:
>>>>
>>>> A guy in India with whom I'm developing a preventive maintenance 
>>>> app
>>>>         
>
>   
>>>> is using A4 paper.  The report I sent him apparently doesn't print
>>>> the whole footer unless he changes the printer.  He writes:
>>>>
>>>> "The problem still persisted of the report saying only "page no 1 
>>>> of " and not showing the total no of pages and of the second page 
>>>> being
>>>>         
>
>   
>>>> a blank, but third page showing the second page (all this only in
>>>>         
> the
>   
>>>>     
>>>>       
>>>>         
>>> mtce
>>>   
>>>     
>>>       
>>>> sch. report). I have found the cause. I found that the page set up 
>>>> was landscape and letter size. I changed the letter size to A4 and 
>>>> everything became ok! But I am not able to make it permanent - when
>>>>         
> I
>   
>>>>       
>>>>         
>>   
>>     
>>>> ask for the report the next time, the same problem. I had to again
>>>>     
>>>>       
>>>>         
>>> reset
>>>   
>>>     
>>>       
>>>> the page size. How do I make it stick?"
>>>>
>>>> But the other reports in the system apparently work OK.  The
>>>> File-->Page
>>>>
>>>> Setup parameters are the as the other reports - default printer is 
>>>> checked - except this one is landscape.  Any ideas?
>>>>
>>>> MTIA
>>>>
>>>> Rocky Smolin
>>>> Beach Access Software
>>>> 858-259-4334
>>>> www.e-z-mrp.com
>>>>
>>>>
>>>> ----- Original Message -----
>>>>
>>>>     *From:* Rocky Smolin - Beach Access Software
>>>> <mailto:bchacc at san.rr.com>
>>>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>>>     *Subject:* Re: PM?
>>>>
>>>>     Ram:
>>>>
>>>>     The graph can be done but it's not real easy in Access.  On the
>>>>         
> X
>   
>>>>     axis you would also lose visibility of what machines were
>>>>       
>>>>         
>> creating
>>   
>>     
>>>>     the scores on the Y axis.  The X axis would just be a sequence
>>>>     number.  Wouldn't seeing the list of machines with description
>>>>         
> be
>   
>>>>     more helpful.  >From an information standpoint the graph will
>>>>       
>>>>         
>> only
>>   
>>     
>>>>     show the user that the scores of the machines run from m to n.
>>>>       
>>>>         
>> So
>>   
>>     
>>>>     they will be picking an arbitrary point between the lowest and
>>>>     highest value without much visibility over the nature of the
>>>>     equipment that's being included and excluded.
>>>>
>>>>     I will do a bit of research to see if there's a graphing 
>>>> control
>>>>       
>>>>         
>> I
>>   
>>     
>>>>     can find so I don't have to reinvent the wheel.  Then maybe put
>>>>       
>>>>         
>> an
>>   
>>     
>>>>     button on the form to let the user choose tabular of graphic
>>>> format.
>>>>
>>>>     Requiring administrator access to change the cutoff point is 
>>>> easy.
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>>>     I'll attend to that.  What's the next step?
>>>>
>>>>     Best,
>>>>
>>>>     Rocky
>>>>
>>>>      
>>>>
>>>>
>>>>   
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From djkr at msn.com  Wed Jan 25 12:25:34 2006
From: djkr at msn.com (DJK(John) Robinson)
Date: Wed, 25 Jan 2006 18:25:34 -0000
Subject: [AccessD] bust out the math books
In-Reply-To: <002201c621c3$7a125940$017ba8c0@xpserver>
Message-ID: <BAY106-DAV96ADDB477776F790474B4D2120@phx.gbl>

But this is NOT a round-off problem!  Just a reminder.  :-)

J


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
Sent: 25 January 2006 15:25
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] bust out the math books


Hi Scott:

There must be a round off error somewhere in the process. As I am just
finishing off an accounting system this problem has always been apparent.
There are a few ways that accounting applications resolve the round off
error.

1. Store all values as integers and perform any math using those integers.
Example (assuming 6 significant places are required.) 

Value 0.884746 would become 884746 with a mantissa of 6. All subsequent
calculations are performed in integer math or logs are used. (Adding instead
of multiple and subtract instead of dividing.)

2. In the case of a multiplication or division being required the
calculation is performed once and then the values are managed again as
integers. This is particularly true when applying taxes to invoicing.
Example (given that the state or provincial tax is 6.5% and the federal tax
is 7.0%.)

The taxes are applied immediately then added from there on. In appropriate
tax is generated per item: 

Given:
Subtotal 	PST		GST		Displayed/Saved Total
123.56	8.0314	8.6492 	
		8.03		8.65		140.24	
456.23	29.65495	31.9361
  		29.66		31.94		61.60
+
579.79	+37.69	+ 40.59	=658.07	right-way

579.79	* 1.135% (total tax)	=658.06	wrong-way

When tax totals are generated then all the tax subtotals are just added
together. In theory, all the subtotals could be added and the total tax
could be calculated but the answer would be wrong. This is the same problem
experience when trying to calculate the average by item and then expecting
the average for the whole group to add up. It never will.

HTH
Jim


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Scott Marcus
Sent: January 25, 2006 4:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] bust out the math books

Mathematical answer...

C1 = Total
C2 = Sample Size
C3 = Average

C1  C2  C3
===========
A   B   A/B
C   D   C/D
E   F   E/F
G   H   G/H
I   J   I/J


Real average = (A+C+E+G+I)/BDFHJ

Average of averages = (A/B + C/D + E/F + G/H + I/J)/5

Which equals...
((ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/(BDFHJ))/5
                    

Which equals...
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


(A+C+E+G+I)/BDFHJ does not equal 
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


Scott Marcus                   

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco Tapia
Sent: Tuesday, January 24, 2006 7:50 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books

can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to why
I can't just average column C3 to get the 90%, instead I end up with 88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
 





NOTICE:  This electronic mail transmission is for the use of the named
individual or entity to which it is directed and may contain information
that is privileged or confidential.  If you are not the intended recipient,
any disclosure, copying, distribution or use of the contents of any
information contained herein is prohibited.  If you have received this
electronic mail transmission in error, delete it from your system without
copying or forwarding it, and notify the sender of the error by replying via
email or calling TSS Technologies at (513) 772-7000, so that our address
record can be corrected.  Any information included in this email is provided
on an as is and where as basis, and TSS Technologies makes no
representations or warranties of any kind with respect to the completeness
or accuracy of the information contained in this email. 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From dw-murphy at cox.net  Wed Jan 25 12:43:40 2006
From: dw-murphy at cox.net (Doug Murphy)
Date: Wed, 25 Jan 2006 10:43:40 -0800
Subject: [AccessD] Outlook automation - use a template for a message
In-Reply-To: <46B976F2B698FF46A4FE7636509B22DF1B62E0@stekelbes.ithelps.local>
Message-ID: <000001c621df$433eca90$0200a8c0@murphyf3vdfepi>

Erwin,

That is great.  Thank you!  I'll try it out.

Doug

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps - IT
Helps
Sent: Wednesday, January 25, 2006 3:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Outlook automation - use a template for a message


The problem lies in the CreateItemFromTemplate.
I see after creating the item from template it also adds my regular footer
above the template. This is probably why your replacefields get at the
bottom. In some occasions I simulated the problem, it also messes up the
format of my template.

I use a different approach using a HTML template, may I suggest you to use
this one? The advantage is that you can use regular HTML editors, like
Frontpage, to create your template and you have access to both the design
and HTML source. For what concerns stiff resistance against HTML, I find
that a discussion like between using DOS and Windows. RTF is from a security
point of view not that more secure and is outdated by HTML. Plain text
e-mails is for what concerns me should dead a long time ago pointless these
days. If you want to present something is a decent fashion, you gonna need
formatting and hyperlinks. I am however against adding pictures (files) in
mass E-mails to minimize size. I always use hyperlinks to my website where
the pictures reside. As in the example I give you. Further more its better
for statistics because I see in my weblog how many users have opened my mail
or even forwarded it to someone else (depending on the situation).


To make this code work you need to download the HTML template and save in
into your C:\temp folder. http://www.ithelps.be/temp/SampleVideo2.htm

To view the result after running the code see
http://www.ithelps.be/temp/NewVideo.msg


Beneath is the code I trimmed from my e-mail marketing function. You can
also download it from http://www.ithelps.be/temp/TestHTMLBodyEmail.txt

Small note:
I use [[fieldtoreplace]] brackets instead of <fieldtoreplace>. <> get's
replaced by &something in HTML code. I also find that [[]] is more unique
than <> to avoid replacement problems.


Public Function TestHTMLBody()
    Dim strPromoTemplatePathAndFile  As String
    Dim strHTMLPromoTemplate As String
    Dim strHTMLPromoTemplateTEMP As String
    Dim lngLOF As Long
    Dim strFind As String
    Dim strReplace As String
    Dim strMailSubject As String
    Dim oOut As Outlook.Application
    Dim mItem As Outlook.MailItem
    
    'Path and filename to HTML template
    'Locate at your server so you only have one master file for all users.
    strPromoTemplatePathAndFile = "C:\temp\SampleVideo2.htm"
    strMailSubject = "Some mail subject"
    
    'Open templatefile and load HTML code in a variable
    Open strPromoTemplatePathAndFile For Binary As #1
    lngLOF = LOF(1)
    strHTMLPromoTemplate = Space(lngLOF)
    Get #1, 1, strHTMLPromoTemplate
    Close #1
    
    'Copy HTML code in temporary variable
    strHTMLPromoTemplateTEMP = strHTMLPromoTemplate
    
    'Replace fields in HTML with real data
    strFind = "[[NAME]]"
    strReplace = "Craps"
    strHTMLPromoTemplateTEMP = Replace(strHTMLPromoTemplateTEMP, strFind,
strReplace, 1, , vbDatabaseCompare)
                
    strFind = "[[DATE]]"
    strReplace = Date
    strHTMLPromoTemplateTEMP = Replace(strHTMLPromoTemplateTEMP, strFind,
strReplace, 1, , vbDatabaseCompare)
    
    strFind = "[[FIRSTNAME]]"
    strReplace = "Erwin"
    strHTMLPromoTemplateTEMP = Replace(strHTMLPromoTemplateTEMP, strFind,
strReplace, 1, , vbDatabaseCompare)
    
                
                
    'create new e-mailitem and display without sending
    Set oOut = New Outlook.Application
    Set mItem = oOut.CreateItem(olMailItem)
    With mItem
        .To = "dw-murphy at cox.net"
        .Subject = "New Video"
        .HTMLBody = strHTMLPromoTemplateTEMP
        .Display
    End With
    
    Set mItem = Nothing
    Set oOut = Nothing
    
    
End Function
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From accessd at shaw.ca  Wed Jan 25 13:16:53 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Wed, 25 Jan 2006 11:16:53 -0800
Subject: [AccessD] bust out the math books
In-Reply-To: <43D83961.24003.7FFEAF7@stuart.lexacorp.com.pg>
Message-ID: <000301c621e3$e7285230$017ba8c0@xpserver>

Stuart:

Fortran resolved these sort of issues by using 64/128 byte floating numbers.
The values were so large that a round-off error would disappear if a result
was displayed with a mere 10 significant digits. 

Of course these errors may simply be the result of bad coding but I took the
stance that if the programming was correct then core round-off errors were
the logical culprit and whether the issue was displayed in 20 digits or 2 is
irrelevant. 

Regards
Jim 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
Sent: January 25, 2006 8:52 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] bust out the math books

On 25 Jan 2006 at 7:24, Jim Lawrence wrote:

 
> When tax totals are generated then all the tax subtotals are just added
> together. In theory, all the subtotals could be added and the total tax
> could be calculated but the answer would be wrong. This is the same
problem
> experience when trying to calculate the average by item and then expecting
> the average for the whole group to add up. It never will.
> 

No, the two are completely separate problems.

Tax totalling problems are caused by rounding errors inherent in the 
process of working with currency which has a minimum sized unit (a cent or 
whatever).  Averaging problems are caused by false assumptions about the 
underlying maths by the  person writing the code.



-- 
Stuart


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From martyconnelly at shaw.ca  Wed Jan 25 13:35:41 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Wed, 25 Jan 2006 11:35:41 -0800
Subject: [AccessD] OT - Acessing File DSN Coonection String Using VB6
References: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAADoEkuIW2rYTr/ZPwhTm25NAQAAAAA=@isharp.co.uk>
Message-ID: <43D7D30D.7050106@shaw.ca>

Any easy way to get the connection string if you know the DSN
Open an empty file in notepad then immediately save with a name MyDSN.udl
then double click on MyDSN.udl in explorer
This will bring up the Data Link Properties  essentialy one of the 
control applets
Select the Connections Tab
select 1. use data source names and from the combobox select the DSN
Now click OK
Now reopen MyDSN.udl in notepad and you will see the saved connection 
string.
This file is actually binary not text format

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnsqlmag2k/html/LinkAPI.asp

I believe there is some way to get at the DataLink API
via something like

Set dl = New MSDASC.DataLinks

Paul Hartland (ISHARP) wrote:

>To all,
>
>Don't know if this is possible I have a File DSN on my machine and what I
>want to do is access it using VB6 and get various properties of it like the
>connection string etc.  Has anyone done this before or can point me in the
>right direction on how to go about this if it is possible.
>
>Thanks in advance.
>
>Paul Hartland
>Database Developer
>
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From marcus at tsstech.com  Wed Jan 25 15:31:24 2006
From: marcus at tsstech.com (Scott Marcus)
Date: Wed, 25 Jan 2006 16:31:24 -0500
Subject: [AccessD] bust out the math books
Message-ID: <B7B1803D6973C84F97D412AFCDA8EA7D016F6955@2003exchg.TSS.AD>

Jim,

The problem is not a rounding error. The real average and the average of
averages are two distinct values. If they equal, it is only by
coincidence.

Scott Marcus

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Lawrence
Sent: Wednesday, January 25, 2006 10:25 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] bust out the math books

Hi Scott:

There must be a round off error somewhere in the process. As I am just
finishing off an accounting system this problem has always been
apparent.
There are a few ways that accounting applications resolve the round off
error.

1. Store all values as integers and perform any math using those
integers.
Example (assuming 6 significant places are required.) 

Value 0.884746 would become 884746 with a mantissa of 6. All subsequent
calculations are performed in integer math or logs are used. (Adding
instead
of multiple and subtract instead of dividing.)

2. In the case of a multiplication or division being required the
calculation is performed once and then the values are managed again as
integers. This is particularly true when applying taxes to invoicing.
Example (given that the state or provincial tax is 6.5% and the federal
tax
is 7.0%.)

The taxes are applied immediately then added from there on. In
appropriate
tax is generated per item: 

Given:
Subtotal 	PST		GST		Displayed/Saved Total
123.56	8.0314	8.6492 	
		8.03		8.65		140.24	
456.23	29.65495	31.9361
  		29.66		31.94		61.60
+
579.79	+37.69	+ 40.59	=658.07	right-way

579.79	* 1.135% (total tax)	=658.06	wrong-way

When tax totals are generated then all the tax subtotals are just added
together. In theory, all the subtotals could be added and the total tax
could be calculated but the answer would be wrong. This is the same
problem
experience when trying to calculate the average by item and then
expecting
the average for the whole group to add up. It never will.

HTH
Jim


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Scott Marcus
Sent: January 25, 2006 4:51 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] bust out the math books

Mathematical answer...

C1 = Total
C2 = Sample Size
C3 = Average

C1  C2  C3
===========
A   B   A/B
C   D   C/D
E   F   E/F
G   H   G/H
I   J   I/J


Real average = (A+C+E+G+I)/BDFHJ

Average of averages = (A/B + C/D + E/F + G/H + I/J)/5

Which equals...
((ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/(BDFHJ))/5
                    

Which equals...
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


(A+C+E+G+I)/BDFHJ does not equal 
(ADFHJ+CBFHJ+EBDHJ+GBDFJ+IBDFH)/5BDFHJ


Scott Marcus                   

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Francisco
Tapia
Sent: Tuesday, January 24, 2006 7:50 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] bust out the math books

can someone answer me this:
  C1 C2
C3  1566 1770
0.884746  5130 5340
0.960674  1320 1800
0.733333  6440 7280
0.884615  1770 1800
0.983333



 16226 17990
0.901946
If I take C1 / C2 I get C3... there must be a mathimaticall reason as to
why
I can't just average column C3 to get the 90%, instead I end up with
88.93%

any thoughts?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
 





NOTICE:  This electronic mail transmission is for the use of the named
individual or entity to which it is directed and may contain information
that is privileged or confidential.  If you are not the intended
recipient,
any disclosure, copying, distribution or use of the contents of any
information contained herein is prohibited.  If you have received this
electronic mail transmission in error, delete it from your system
without
copying or forwarding it, and notify the sender of the error by replying
via
email or calling TSS Technologies at (513) 772-7000, so that our address
record can be corrected.  Any information included in this email is
provided
on an as is and where as basis, and TSS Technologies makes no
representations or warranties of any kind with respect to the
completeness
or accuracy of the information contained in this email. 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From stuart at lexacorp.com.pg  Wed Jan 25 16:32:05 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Thu, 26 Jan 2006 08:32:05 +1000
Subject: [AccessD] OT - Acessing File DSN Coonection String Using VB6
In-Reply-To: <43D7D30D.7050106@shaw.ca>
Message-ID: <43D88905.17452.9370414@stuart.lexacorp.com.pg>

On 25 Jan 2006 at 11:35, MartyConnelly wrote:

> Any easy way to get the connection string if you know the DSN
> Open an empty file in notepad then immediately save with a name MyDSN.udl
> then double click on MyDSN.udl in explorer This will bring up the Data Link
> Properties  essentialy one of the control applets Select the Connections Tab
> select 1. use data source names and from the combobox select the DSN Now
> click OK Now reopen MyDSN.udl in notepad and you will see the saved
> connection string. This file is actually binary not text format
> 

No, it's another plain text file, just like a File DSN except that it 
stores the complete connection string in one line which is semi-colon 
delimited rather than as one value per line.  So it's harder to 
parse/manipulate that a File DSN, but easier to grab the complete 
ConnectionString.


-- 
Stuart




From martyconnelly at shaw.ca  Wed Jan 25 18:15:24 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Wed, 25 Jan 2006 16:15:24 -0800
Subject: [AccessD] OT - Acessing File DSN Coonection String Using VB6
References: <43D88905.17452.9370414@stuart.lexacorp.com.pg>
Message-ID: <43D8149C.3010007@shaw.ca>

Well the microsoft guys seem to write it as binary Unicode complete with 
a UTF-16 little-endian BOM marker.
It might look different opening it with the old Win95 notepad which 
can't handle saving in unicode.

http://msdn.microsoft.com/library/en-us/dnsqlmag2k/html/apilisting_02.txt

Look under paragraph   Saving the .udl File
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnsqlmag2k/html/LinkAPI.asp

Stuart McLachlan wrote:

>On 25 Jan 2006 at 11:35, MartyConnelly wrote:
>
>  
>
>>Any easy way to get the connection string if you know the DSN
>>Open an empty file in notepad then immediately save with a name MyDSN.udl
>>then double click on MyDSN.udl in explorer This will bring up the Data Link
>>Properties  essentialy one of the control applets Select the Connections Tab
>>select 1. use data source names and from the combobox select the DSN Now
>>click OK Now reopen MyDSN.udl in notepad and you will see the saved
>>connection string. This file is actually binary not text format
>>
>>    
>>
>
>No, it's another plain text file, just like a File DSN except that it 
>stores the complete connection string in one line which is semi-colon 
>delimited rather than as one value per line.  So it's harder to 
>parse/manipulate that a File DSN, but easier to grab the complete 
>ConnectionString.
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From stuart at lexacorp.com.pg  Wed Jan 25 19:09:50 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Thu, 26 Jan 2006 11:09:50 +1000
Subject: [AccessD] OT - Acessing File DSN Coonection String Using VB6
In-Reply-To: <43D8149C.3010007@shaw.ca>
Message-ID: <43D8ADFE.23571.9C7709D@stuart.lexacorp.com.pg>

On 25 Jan 2006 at 16:15, MartyConnelly wrote:

> Well the microsoft guys seem to write it as binary Unicode complete with a
> UTF-16 little-endian BOM marker. It might look different opening it with the
> old Win95 notepad which can't handle saving in unicode.
> 

It's still a text file, it's just that  it's UTF-16 not  ASCII encoded.   

To quote Joel Spolsky in his article "The Absolute Minimum Every Software 
Developer Absolutely, Positively Must Know About Unicode and Character Sets 
(No Excuses!)" http://www.joelonsoftware.com/articles/Unicode.html :

<quote>
It does not make sense to have a string without knowing what encoding it 
uses. You can no longer stick your head in the sand and pretend that 
"plain" text is ASCII.
</quote>

As long as you use a Unicode capable text editor, such as the freeware 
Crimson Editor which I use, you can create/edit a UDL in it.  

The INI file routines that I posted a few days ago also work to read/write 
to the file - as long as you create the UDL first as a Unicode encoded text 
file with the correct second line comment.)




-- 
Stuart




From cfoust at infostatsystems.com  Wed Jan 25 19:34:49 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Wed, 25 Jan 2006 17:34:49 -0800
Subject: [AccessD] Access 2003 SourceSafe Plugin
Message-ID: <F55048AF7E974F429BB24597D7355EEABF59@INFOSERVER04.infostat.local>

To anyone interested, here's the link where you can download the
SourceSafe plugin for Access 2003.
http://msdn.microsoft.com/vstudio/previous/ssafe/

Charlotte Foust
Infostat Systems, Inc.


From jmhecht at earthlink.net  Wed Jan 25 20:24:05 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Wed, 25 Jan 2006 18:24:05 -0800
Subject: [AccessD] Access 2003 SourceSafe Plugin
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF59@INFOSERVER04.infostat.local>
Message-ID: <001401c6221f$94b888d0$6701a8c0@HPLaptop>

Is this all you need?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Wednesday, January 25, 2006 5:35 PM
To: AccessD at databaseadvisors.com
Subject: [AccessD] Access 2003 SourceSafe Plugin

To anyone interested, here's the link where you can download
the
SourceSafe plugin for Access 2003.
http://msdn.microsoft.com/vstudio/previous/ssafe/

Charlotte Foust
Infostat Systems, Inc.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From martyconnelly at shaw.ca  Thu Jan 26 01:41:45 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Wed, 25 Jan 2006 23:41:45 -0800
Subject: [AccessD] OT - Acessing File DSN Coonection String Using VB6
References: <43D8ADFE.23571.9C7709D@stuart.lexacorp.com.pg>
Message-ID: <43D87D39.3030208@shaw.ca>

Yup I have run into that character encoding and character set  problems 
with XML files a few years back,
 I remember discussing it with Pedro Gill a few years back
http://www.geocities.com/pmpg98_pt/CharacterEncoding.html

But I got around the problem he had with double BOM's and changing 
character encodings.
Most XML parsers check the BOM of an input file first.
I suppose you could use something like this code below
to change a text file using ADO streams from say ISO-8859-5 to Unicode 
or even Chinese Big 5
or say UTF-8 to UTF-16.
You need a hex editor to check your results fully and see the BOM's.



' ReadUTF8SaveFileInUTF16 "C:\XML\Gil 
Encodings\XM8_UTF_vb.xml","C:\XML\Gil Encodings\test16.xml"
Sub ReadUTF8SaveFileInUTF16(strFileIn As String, strFileOut As String)
'1/2 ReadToFile / SaveToFile snippet
'http://www.codeproject.com/soap/XMJFileStreaming.asp?msg=841289&mode=all&userid=903408#xx767979xx
'used ado 2.7
Dim stm As ADODB.stream
Dim strPath As String
Dim strData As String

'the character set names for the machine are in the registry
'For a list of the character set strings that is known by a system, see
'the subkeys of HKEY_CLASSES_ROOT\MIME\Database\Charset
'in the Windows Registry.

  Set stm = New ADODB.stream
  stm.Open
  stm.Charset = "UTF-8" 'input file character set
  stm.Position = 0
  stm.Type = adTypeText
  '
  stm.LoadFromFile strFileIn
   ' if you just try and dump out stream
   ' without reading and writing you get a double BOM
  
   stm.Position = 0 'reset to beginning of stream
   Dim strDataout
   strData = stm.ReadText()
  ' line below used to change encoding instruction for xml files
  '  <?xml version="1.0" encoding="UTF-16" ?>
 
     strData = Replace(strData, "utf-8", "UTF-16", 1, 1)
   Debug.Print strData
   stm.Position = 0
   ' set output file character set
   stm.Charset = "UTF-16" ' "Unicode" '"iso-8859-1" "ascii" '"Big5" 
'"hebrew"
   stm.WriteText (strData)
 stm.SaveToFile strFileOut, adSaveCreateOverWrite
 stm.Close
 Set stm = Nothing
End Sub

Stuart McLachlan wrote:

>On 25 Jan 2006 at 16:15, MartyConnelly wrote:
>
>  
>
>>Well the microsoft guys seem to write it as binary Unicode complete with a
>>UTF-16 little-endian BOM marker. It might look different opening it with the
>>old Win95 notepad which can't handle saving in unicode.
>>
>>    
>>
>
>It's still a text file, it's just that  it's UTF-16 not  ASCII encoded.   
>
>To quote Joel Spolsky in his article "The Absolute Minimum Every Software 
>Developer Absolutely, Positively Must Know About Unicode and Character Sets 
>(No Excuses!)" http://www.joelonsoftware.com/articles/Unicode.html :
>
><quote>
>It does not make sense to have a string without knowing what encoding it 
>uses. You can no longer stick your head in the sand and pretend that 
>"plain" text is ASCII.
></quote>
>
>As long as you use a Unicode capable text editor, such as the freeware 
>Crimson Editor which I use, you can create/edit a UDL in it.  
>
>The INI file routines that I posted a few days ago also work to read/write 
>to the file - as long as you create the UDL first as a Unicode encoded text 
>file with the correct second line comment.)
>
>
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From accessd at shaw.ca  Thu Jan 26 05:31:21 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Thu, 26 Jan 2006 03:31:21 -0800
Subject: [AccessD] OT The new Windows Vista
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF59@INFOSERVER04.infostat.local>
Message-ID: <000201c6226c$08406c90$017ba8c0@xpserver>

OT:

Another write up on the new vita:
http://www.cooltechzone.com/index.php?option=com_content&task=view&Itemid=0&
id=2166&limit=1&limitstart=0

Jim



From cfoust at infostatsystems.com  Thu Jan 26 10:12:28 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 26 Jan 2006 08:12:28 -0800
Subject: [AccessD] Access 2003 SourceSafe Plugin
Message-ID: <F55048AF7E974F429BB24597D7355EEABF5B@INFOSERVER04.infostat.local>

Well, you also need SourceSafe 6.x installed and Access 2003, but what
did you have in mind?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Wednesday, January 25, 2006 6:24 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Access 2003 SourceSafe Plugin


Is this all you need?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 25, 2006 5:35 PM
To: AccessD at databaseadvisors.com
Subject: [AccessD] Access 2003 SourceSafe Plugin

To anyone interested, here's the link where you can download the
SourceSafe plugin for Access 2003.
http://msdn.microsoft.com/vstudio/previous/ssafe/

Charlotte Foust
Infostat Systems, Inc.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From bheid at appdevgrp.com  Thu Jan 26 10:18:41 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 26 Jan 2006 11:18:41 -0500
Subject: [AccessD] Strange flickering problem.
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E4B@ADGSERVER>

Hey,

Doing some work on-site for a client using Access 2000.  I am updating an
existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.  Their
are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes), and
go to do something else, Excel, email, etc., when I come back to the Access
IDE, it will be flickering very badly.  Through task list, I see 100% CPU,
with Access taking maybe 50% and explorer taking up most of the rest.  I
have not left it more than about 15 minutes before killing Access.  Task
list shows Access as running during this.  After killing Access the system
is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby



From cfoust at infostatsystems.com  Thu Jan 26 10:30:57 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 26 Jan 2006 08:30:57 -0800
Subject: [AccessD] Strange flickering problem.
Message-ID: <F55048AF7E974F429BB24597D7355EEABF5E@INFOSERVER04.infostat.local>

In my experience, the IDE does tend to flicker when intense execution is
going on, because focus is shifting back and forth from the IDE to the
UI.  Why have the IDE open at all if you're running macros?  All you
need for that is the interface and you can build one or more macros to
call other macros, so it's not really necessry to use the immediate
window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I am updating
an existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.
Their are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes),
and go to do something else, Excel, email, etc., when I come back to the
Access IDE, it will be flickering very badly.  Through task list, I see
100% CPU, with Access taking maybe 50% and explorer taking up most of
the rest.  I have not left it more than about 15 minutes before killing
Access.  Task list shows Access as running during this.  After killing
Access the system is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From cyx5 at cdc.gov  Thu Jan 26 10:36:03 2006
From: cyx5 at cdc.gov (Nicholson, Karen)
Date: Thu, 26 Jan 2006 11:36:03 -0500
Subject: [AccessD] Download Latest Version AND Deploy Desktop Shortcut
Message-ID: <A5B5AA20555F594BA7B6BD2048E49E4303624DE5@m-niosh-5.niosh.cdc.gov>

I have a procedure in place to download the latest version of a
front-end to each user's pc when my Access application is opened.  What
I did not count on were various shortcuts on users desktops pointing to
various locations for this database.  Why, I even have one user who is
pointing to c:\JUNK\blaah blaah blaah.  Does anyone know of a way to
download the correct shortcut to the desktops automagically?

Karen S. Nicholson
Programmer Analyst
EG&G Technical Services, Inc.
Pittsburgh, PA
Phone: 412-386-6649
Email: cyx5 at cdc.gov




From Gustav at cactus.dk  Thu Jan 26 10:53:10 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Thu, 26 Jan 2006 17:53:10 +0100
Subject: [AccessD] Strange flickering problem.
Message-ID: <s3d90ca0.054@cactus.dk>

Hi Bobby

Does Access's memory consumption rise as well?
Did you read my posting yesterday:

Memory usage at import of MySQL tables (DoEvents Magic)

/gustav

>>> bheid at appdevgrp.com 26-01-2006 17:18:41 >>>
Hey,

Doing some work on-site for a client using Access 2000.  I am updating an
existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.  Their
are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes), and
go to do something else, Excel, email, etc., when I come back to the Access
IDE, it will be flickering very badly.  Through task list, I see 100% CPU,
with Access taking maybe 50% and explorer taking up most of the rest.  I
have not left it more than about 15 minutes before killing Access.  Task
list shows Access as running during this.  After killing Access the system
is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby



From jwelz at hotmail.com  Thu Jan 26 11:15:50 2006
From: jwelz at hotmail.com (=?iso-8859-1?Q?J=FCrgen_Welz?=)
Date: Thu, 26 Jan 2006 10:15:50 -0700
Subject: [AccessD] Outlook automation - use a template for a message
Message-ID: <BAY113-W2C33CF467F065192F29C5A1150@phx.gbl>

Dealing with the nITzis for a couple days now on something that might be of interest.  I had a couple users who couldn't open a report and Access throws a '2501 The OpenReport action was canceled.'
 
I have functions that change default sql parameters based on the user and their office and IT sets up rights to folders and I've got my own security running and some data if from various sources that require drivers.
 
It turns out that these users can't even use File - Print Preview on a plain lookup table.  Opening any preview from the database window results in a silent failure.  Opening any report from the Immediate window with a docmd OpenReport produces the error message.
 
IT tells me it is my problem because Access throws an error on my button click event.
 
The problem is that, apparently unlike other MS Office applications, Access uses some kind of print driver information to generate a print preview.  The problem is the same as when no printer is installed.  In this case, it is a problem with a Canon printer driver.  It took me nearly two hours to track down this problem a year ago when IT added a paper tray to one of the other office printers.  It was a particularly complex and convoluted report that a user was trying to open so there were dozens of things to check and I finally got permission to log in the user to track down the problem.
 
Lacking the basic ability to create a table with two entries and to select Print Preview from the file menu, IT asked me to send them a new MDB that demonstrated this problem outside of my application.  Of course Outlook blocked the attachment so I was asked to rename the file extension.  Their security prevents rename of file extension from Explorer (though it's easy enough in VBA and though I can no longer get a DOS window, I can shell a 'ren' command).  We finally have zip capability and I think these email OK.  Being bloody minded, I ask them how to rename the file extension and send an html link to the file instead.
 
This is ongoing.  In the mean time, I tell the users to select any other printer in the office as their default printer.
Ciao
J?rgen Welz
Edmonton Alberta
jwelz at hotmail.com
_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/

From developer at ultradnt.com  Thu Jan 26 11:18:49 2006
From: developer at ultradnt.com (Steve Conklin)
Date: Thu, 26 Jan 2006 12:18:49 -0500
Subject: [AccessD] Download Latest Version AND Deploy Desktop Shortcut
In-Reply-To: <A5B5AA20555F594BA7B6BD2048E49E4303624DE5@m-niosh-5.niosh.cdc.gov>
Message-ID: <200601261718.k0QHIj679049@ultradnt.com>

Create the shortcut on your workstation, pointintng to the proper location.
Copy this .LNK file  to the same location on the LAN that you are getting
the FE from, and copy it to the workstation in the same batch process.

There are different locations for Desktop in different versions of Windows.
For XP, use 
C:\Documents and Settings\%username%\Desktop as the target.

You might even want to name the LAN copy of the FE to whatever.OFF so it
can't be used by anyone browsing, and rename it to whatever.MDB while
copying it to the workstation.

Hth
Steve



 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Nicholson, Karen
Sent: Thursday, January 26, 2006 11:36 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Download Latest Version AND Deploy Desktop Shortcut

I have a procedure in place to download the latest version of a front-end to
each user's pc when my Access application is opened.  What I did not count
on were various shortcuts on users desktops pointing to various locations
for this database.  Why, I even have one user who is pointing to
c:\JUNK\blaah blaah blaah.  Does anyone know of a way to download the
correct shortcut to the desktops automagically?

Karen S. Nicholson
Programmer Analyst
EG&G Technical Services, Inc.
Pittsburgh, PA
Phone: 412-386-6649
Email: cyx5 at cdc.gov


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jmhecht at earthlink.net  Thu Jan 26 11:28:57 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 26 Jan 2006 09:28:57 -0800
Subject: [AccessD] Access 2003 SourceSafe Plugin
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF5B@INFOSERVER04.infostat.local>
Message-ID: <000601c6229d$fdb64ab0$6701a8c0@HPLaptop>

Doing this with out source safe.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Thursday, January 26, 2006 8:12 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Access 2003 SourceSafe Plugin

Well, you also need SourceSafe 6.x installed and Access
2003, but what
did you have in mind?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 25, 2006 6:24 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Access 2003 SourceSafe Plugin


Is this all you need?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte
Foust
Sent: Wednesday, January 25, 2006 5:35 PM
To: AccessD at databaseadvisors.com
Subject: [AccessD] Access 2003 SourceSafe Plugin

To anyone interested, here's the link where you can download
the
SourceSafe plugin for Access 2003.
http://msdn.microsoft.com/vstudio/previous/ssafe/

Charlotte Foust
Infostat Systems, Inc.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From bchacc at san.rr.com  Thu Jan 26 11:25:23 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Thu, 26 Jan 2006 09:25:23 -0800
Subject: [AccessD] [Fwd: Default Page Size]
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF56@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF56@INFOSERVER04.infostat.local>
Message-ID: <43D90603.2020906@san.rr.com>

Charlotte:

I put this code:

If Me.fraPaperSize = 1 Then
    Access.Printer.PaperSize = acPRPSLetter
Else
    Access.Printer.PaperSize = acPRPSA4
End If


into the event that calls the report in question.  On my printer it 
doesn't print any differently with either setting but I would expect 
that, I guess as I haven't got any A4 paper to test it with.  I'll send 
it to the user to see if it solves the problem.

But have I got the code right?  Should it go in the open event of the 
report itself instead of the calling procedure in the form?

MTIA,

Rocky


Charlotte Foust wrote:
> I don't think so.  I know AXP does, but I don't recall it in A2k.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Wednesday, January 25, 2006 9:27 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> O.  But A2K has this printer object?  (Suppose I could go take a look 
> for myself)
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> No, Rocky.  Remember, this is older code that predates the Access 
>> Printer object.  The user sets a paper option in the app configuration
>>     
>
>   
>> to tell us whether he uses letter/legal or A4 paper.
>>
>> Charlotte
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Wednesday, January 25, 2006 8:54 AM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>
>>
>> So you poll the printer class to see what paper was selected? Very 
>> slick.
>>
>> Rocky
>>
>>
>> Charlotte Foust wrote:
>>   
>>     
>>> No, code selects the appropriate report format based on the paper
>>> selection.
>>>
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>> Smolin
>>> - Beach Access Software
>>> Sent: Tuesday, January 24, 2006 9:14 PM
>>> To: Access Developers discussion and problem solving
>>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>>
>>>
>>> So do you have two formats of the same report, selectable by the 
>>> user?
>>>
>>> Rocky
>>>
>>>
>>> Charlotte Foust wrote:
>>>   
>>>     
>>>       
>>>> We format most of our reports to fit either now, which means we use 
>>>> paper length and A4 width when designing the report.  If you use 
>>>> default printer, that's your only choice.  Otherwise, yes, you'd 
>>>> have
>>>>       
>>>>         
>>   
>>     
>>>> to allow them to specify the paper size and you'd have to create 
>>>> some
>>>>       
>>>>         
>>   
>>     
>>>> specially formatted A4 reports if they needed the longer paper
>>>>       
>>>>         
>> length.
>>   
>>     
>>>> Charlotte Foust
>>>>
>>>>
>>>> -----Original Message-----
>>>> From: accessd-bounces at databaseadvisors.com
>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>>> Smolin
>>>> - Beach Access Software
>>>> Sent: Tuesday, January 24, 2006 10:44 AM
>>>> To: Access Developers discussion and problem solving
>>>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>>>
>>>>
>>>> Charlotte:
>>>>
>>>> I'm not using any code.  I just use default printer.  This app could
>>>>         
>
>   
>>>> be running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to 
>>>> tie
>>>>     
>>>>       
>>>>         
>>> the
>>>   
>>>     
>>>       
>>>> app to one size or another.  Apparently I'm going to have to put in 
>>>> some
>>>>
>>>> kind of preference for the user to select their paper size then?
>>>>
>>>> Rocky
>>>>
>>>>
>>>> Charlotte Foust wrote:
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> Rocky,
>>>>>
>>>>> What kind of code are you using to set the paper size?  There are
>>>>> actually papersize constants you can use to make it easier.  We use
>>>>>           
>
>   
>>>>> these in our Access apps to make the code easier to read:
>>>>>
>>>>> Public Const PAPER_LETTER As Integer = 1
>>>>> Public Const PAPER_A4 As Integer = 9
>>>>> Public Const PAPER_LEGAL As Integer = 5
>>>>>
>>>>> If you check the Access.Printer class, you'll get a list of the
>>>>> built in constants for AcPrintPaperSize, including acPRPSA4, 
>>>>> acPRPSLetter, and acPRPSLegal, which have the same values as we use
>>>>>           
>
>   
>>>>> (our code was built before the Printer object became part of 
>>>>> Access).  Whichever
>>>>>       
>>>>>         
>>>>>           
>>> you
>>>   
>>>     
>>>       
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> use, it's what you have to pass to the printer to get the setting
>>>>> right.
>>>>>
>>>>> Charlotte Foust
>>>>>
>>>>>
>>>>> -----Original Message-----
>>>>> From: accessd-bounces at databaseadvisors.com
>>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>>>> Smolin
>>>>> - Beach Access Software
>>>>> Sent: Tuesday, January 24, 2006 9:31 AM
>>>>> To: access Developers discussion and problem solving
>>>>> Subject: [AccessD] [Fwd: Default Page Size]
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> Dear List:
>>>>>
>>>>> A guy in India with whom I'm developing a preventive maintenance 
>>>>> app
>>>>>         
>>>>>           
>>   
>>     
>>>>> is using A4 paper.  The report I sent him apparently doesn't print
>>>>> the whole footer unless he changes the printer.  He writes:
>>>>>
>>>>> "The problem still persisted of the report saying only "page no 1 
>>>>> of " and not showing the total no of pages and of the second page 
>>>>> being
>>>>>         
>>>>>           
>>   
>>     
>>>>> a blank, but third page showing the second page (all this only in
>>>>>         
>>>>>           
>> the
>>   
>>     
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>> mtce
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> sch. report). I have found the cause. I found that the page set up 
>>>>> was landscape and letter size. I changed the letter size to A4 and 
>>>>> everything became ok! But I am not able to make it permanent - when
>>>>>         
>>>>>           
>> I
>>   
>>     
>>>>>       
>>>>>         
>>>>>           
>>>   
>>>     
>>>       
>>>>> ask for the report the next time, the same problem. I had to again
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>> reset
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> the page size. How do I make it stick?"
>>>>>
>>>>> But the other reports in the system apparently work OK.  The
>>>>> File-->Page
>>>>>
>>>>> Setup parameters are the as the other reports - default printer is 
>>>>> checked - except this one is landscape.  Any ideas?
>>>>>
>>>>> MTIA
>>>>>
>>>>> Rocky Smolin
>>>>> Beach Access Software
>>>>> 858-259-4334
>>>>> www.e-z-mrp.com
>>>>>
>>>>>
>>>>> ----- Original Message -----
>>>>>
>>>>>     *From:* Rocky Smolin - Beach Access Software
>>>>> <mailto:bchacc at san.rr.com>
>>>>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>>>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>>>>     *Subject:* Re: PM?
>>>>>
>>>>>     Ram:
>>>>>
>>>>>     The graph can be done but it's not real easy in Access.  On the
>>>>>         
>>>>>           
>> X
>>   
>>     
>>>>>     axis you would also lose visibility of what machines were
>>>>>       
>>>>>         
>>>>>           
>>> creating
>>>   
>>>     
>>>       
>>>>>     the scores on the Y axis.  The X axis would just be a sequence
>>>>>     number.  Wouldn't seeing the list of machines with description
>>>>>         
>>>>>           
>> be
>>   
>>     
>>>>>     more helpful.  >From an information standpoint the graph will
>>>>>       
>>>>>         
>>>>>           
>>> only
>>>   
>>>     
>>>       
>>>>>     show the user that the scores of the machines run from m to n.
>>>>>       
>>>>>         
>>>>>           
>>> So
>>>   
>>>     
>>>       
>>>>>     they will be picking an arbitrary point between the lowest and
>>>>>     highest value without much visibility over the nature of the
>>>>>     equipment that's being included and excluded.
>>>>>
>>>>>     I will do a bit of research to see if there's a graphing 
>>>>> control
>>>>>       
>>>>>         
>>>>>           
>>> I
>>>   
>>>     
>>>       
>>>>>     can find so I don't have to reinvent the wheel.  Then maybe put
>>>>>       
>>>>>         
>>>>>           
>>> an
>>>   
>>>     
>>>       
>>>>>     button on the form to let the user choose tabular of graphic
>>>>> format.
>>>>>
>>>>>     Requiring administrator access to change the cutoff point is 
>>>>> easy.
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>>   
>>>>     
>>>>       
>>>>         
>>>>>     I'll attend to that.  What's the next step?
>>>>>
>>>>>     Best,
>>>>>
>>>>>     Rocky
>>>>>
>>>>>      
>>>>>
>>>>>
>>>>>   
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>>   
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From cfoust at infostatsystems.com  Thu Jan 26 11:59:33 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 26 Jan 2006 09:59:33 -0800
Subject: [AccessD] Access 2003 SourceSafe Plugin
Message-ID: <F55048AF7E974F429BB24597D7355EEABF60@INFOSERVER04.infostat.local>

Sorry, Joe, but all the plugin does is allow you to load the individual
objects in a database into SourceSafe, create a new database from a
sourcesafe project, check objects in and out, compare differences in
versions, etc.  SourceSafe came with XP MOD, but I don't recall if it
comes with VSTO, although I know it's there in VS.Net.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Thursday, January 26, 2006 9:29 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Access 2003 SourceSafe Plugin


Doing this with out source safe.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Thursday, January 26, 2006 8:12 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Access 2003 SourceSafe Plugin

Well, you also need SourceSafe 6.x installed and Access
2003, but what
did you have in mind?

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
Sent: Wednesday, January 25, 2006 6:24 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Access 2003 SourceSafe Plugin


Is this all you need?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Wednesday, January 25, 2006 5:35 PM
To: AccessD at databaseadvisors.com
Subject: [AccessD] Access 2003 SourceSafe Plugin

To anyone interested, here's the link where you can download the
SourceSafe plugin for Access 2003.
http://msdn.microsoft.com/vstudio/previous/ssafe/

Charlotte Foust
Infostat Systems, Inc.
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From cfoust at infostatsystems.com  Thu Jan 26 12:00:46 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 26 Jan 2006 10:00:46 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <F55048AF7E974F429BB24597D7355EEABF61@INFOSERVER04.infostat.local>

All you're doing there is setting the paper size of the printer object.
You need to work the the Report's printer object.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Thursday, January 26, 2006 9:25 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] [Fwd: Default Page Size]


Charlotte:

I put this code:

If Me.fraPaperSize = 1 Then
    Access.Printer.PaperSize = acPRPSLetter
Else
    Access.Printer.PaperSize = acPRPSA4
End If


into the event that calls the report in question.  On my printer it 
doesn't print any differently with either setting but I would expect 
that, I guess as I haven't got any A4 paper to test it with.  I'll send 
it to the user to see if it solves the problem.

But have I got the code right?  Should it go in the open event of the 
report itself instead of the calling procedure in the form?

MTIA,

Rocky


Charlotte Foust wrote:
> I don't think so.  I know AXP does, but I don't recall it in A2k.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Wednesday, January 25, 2006 9:27 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> O.  But A2K has this printer object?  (Suppose I could go take a look
> for myself)
>
> Rocky
>
>
> Charlotte Foust wrote:
>   
>> No, Rocky.  Remember, this is older code that predates the Access
>> Printer object.  The user sets a paper option in the app
configuration
>>     
>
>   
>> to tell us whether he uses letter/legal or A4 paper.
>>
>> Charlotte
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>> Smolin
>> - Beach Access Software
>> Sent: Wednesday, January 25, 2006 8:54 AM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>
>>
>> So you poll the printer class to see what paper was selected? Very
>> slick.
>>
>> Rocky
>>
>>
>> Charlotte Foust wrote:
>>   
>>     
>>> No, code selects the appropriate report format based on the paper 
>>> selection.
>>>
>>> Charlotte Foust
>>>
>>>
>>> -----Original Message-----
>>> From: accessd-bounces at databaseadvisors.com
>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>> Smolin
>>> - Beach Access Software
>>> Sent: Tuesday, January 24, 2006 9:14 PM
>>> To: Access Developers discussion and problem solving
>>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>>
>>>
>>> So do you have two formats of the same report, selectable by the
>>> user?
>>>
>>> Rocky
>>>
>>>
>>> Charlotte Foust wrote:
>>>   
>>>     
>>>       
>>>> We format most of our reports to fit either now, which means we use
>>>> paper length and A4 width when designing the report.  If you use 
>>>> default printer, that's your only choice.  Otherwise, yes, you'd 
>>>> have
>>>>       
>>>>         
>>   
>>     
>>>> to allow them to specify the paper size and you'd have to create
>>>> some
>>>>       
>>>>         
>>   
>>     
>>>> specially formatted A4 reports if they needed the longer paper
>>>>       
>>>>         
>> length.
>>   
>>     
>>>> Charlotte Foust
>>>>
>>>>
>>>> -----Original Message-----
>>>> From: accessd-bounces at databaseadvisors.com
>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky
>>>> Smolin
>>>> - Beach Access Software
>>>> Sent: Tuesday, January 24, 2006 10:44 AM
>>>> To: Access Developers discussion and problem solving
>>>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>>>
>>>>
>>>> Charlotte:
>>>>
>>>> I'm not using any code.  I just use default printer.  This app 
>>>> could
>>>>         
>
>   
>>>> be running in both 8 1/2 x 11 and A4, I guess.  So I didn't want to
>>>> tie
>>>>     
>>>>       
>>>>         
>>> the
>>>   
>>>     
>>>       
>>>> app to one size or another.  Apparently I'm going to have to put in
>>>> some
>>>>
>>>> kind of preference for the user to select their paper size then?
>>>>
>>>> Rocky
>>>>
>>>>
>>>> Charlotte Foust wrote:
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> Rocky,
>>>>>
>>>>> What kind of code are you using to set the paper size?  There are 
>>>>> actually papersize constants you can use to make it easier.  We 
>>>>> use
>>>>>           
>
>   
>>>>> these in our Access apps to make the code easier to read:
>>>>>
>>>>> Public Const PAPER_LETTER As Integer = 1
>>>>> Public Const PAPER_A4 As Integer = 9
>>>>> Public Const PAPER_LEGAL As Integer = 5
>>>>>
>>>>> If you check the Access.Printer class, you'll get a list of the 
>>>>> built in constants for AcPrintPaperSize, including acPRPSA4, 
>>>>> acPRPSLetter, and acPRPSLegal, which have the same values as we 
>>>>> use
>>>>>           
>
>   
>>>>> (our code was built before the Printer object became part of
>>>>> Access).  Whichever
>>>>>       
>>>>>         
>>>>>           
>>> you
>>>   
>>>     
>>>       
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> use, it's what you have to pass to the printer to get the setting 
>>>>> right.
>>>>>
>>>>> Charlotte Foust
>>>>>
>>>>>
>>>>> -----Original Message-----
>>>>> From: accessd-bounces at databaseadvisors.com
>>>>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>>>>> Smolin
>>>>> - Beach Access Software
>>>>> Sent: Tuesday, January 24, 2006 9:31 AM
>>>>> To: access Developers discussion and problem solving
>>>>> Subject: [AccessD] [Fwd: Default Page Size]
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> Dear List:
>>>>>
>>>>> A guy in India with whom I'm developing a preventive maintenance
>>>>> app
>>>>>         
>>>>>           
>>   
>>     
>>>>> is using A4 paper.  The report I sent him apparently doesn't print

>>>>> the whole footer unless he changes the printer.  He writes:
>>>>>
>>>>> "The problem still persisted of the report saying only "page no 1
>>>>> of " and not showing the total no of pages and of the second page 
>>>>> being
>>>>>         
>>>>>           
>>   
>>     
>>>>> a blank, but third page showing the second page (all this only in
>>>>>         
>>>>>           
>> the
>>   
>>     
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>> mtce
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> sch. report). I have found the cause. I found that the page set up
>>>>> was landscape and letter size. I changed the letter size to A4 and

>>>>> everything became ok! But I am not able to make it permanent -
when
>>>>>         
>>>>>           
>> I
>>   
>>     
>>>>>       
>>>>>         
>>>>>           
>>>   
>>>     
>>>       
>>>>> ask for the report the next time, the same problem. I had to again
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>> reset
>>>>   
>>>>     
>>>>       
>>>>         
>>>>> the page size. How do I make it stick?"
>>>>>
>>>>> But the other reports in the system apparently work OK.  The
>>>>> File-->Page
>>>>>
>>>>> Setup parameters are the as the other reports - default printer is
>>>>> checked - except this one is landscape.  Any ideas?
>>>>>
>>>>> MTIA
>>>>>
>>>>> Rocky Smolin
>>>>> Beach Access Software
>>>>> 858-259-4334
>>>>> www.e-z-mrp.com
>>>>>
>>>>>
>>>>> ----- Original Message -----
>>>>>
>>>>>     *From:* Rocky Smolin - Beach Access Software 
>>>>> <mailto:bchacc at san.rr.com>
>>>>>     *To:* R Ramamurthy <mailto:rram22 at dataone.in>
>>>>>     *Sent:* Saturday, January 21, 2006 8:57 PM
>>>>>     *Subject:* Re: PM?
>>>>>
>>>>>     Ram:
>>>>>
>>>>>     The graph can be done but it's not real easy in Access.  On 
>>>>> the
>>>>>         
>>>>>           
>> X
>>   
>>     
>>>>>     axis you would also lose visibility of what machines were
>>>>>       
>>>>>         
>>>>>           
>>> creating
>>>   
>>>     
>>>       
>>>>>     the scores on the Y axis.  The X axis would just be a sequence
>>>>>     number.  Wouldn't seeing the list of machines with description
>>>>>         
>>>>>           
>> be
>>   
>>     
>>>>>     more helpful.  >From an information standpoint the graph will
>>>>>       
>>>>>         
>>>>>           
>>> only
>>>   
>>>     
>>>       
>>>>>     show the user that the scores of the machines run from m to n.
>>>>>       
>>>>>         
>>>>>           
>>> So
>>>   
>>>     
>>>       
>>>>>     they will be picking an arbitrary point between the lowest and
>>>>>     highest value without much visibility over the nature of the
>>>>>     equipment that's being included and excluded.
>>>>>
>>>>>     I will do a bit of research to see if there's a graphing
>>>>> control
>>>>>       
>>>>>         
>>>>>           
>>> I
>>>   
>>>     
>>>       
>>>>>     can find so I don't have to reinvent the wheel.  Then maybe 
>>>>> put
>>>>>       
>>>>>         
>>>>>           
>>> an
>>>   
>>>     
>>>       
>>>>>     button on the form to let the user choose tabular of graphic 
>>>>> format.
>>>>>
>>>>>     Requiring administrator access to change the cutoff point is
>>>>> easy.
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>>   
>>>>     
>>>>       
>>>>         
>>>>>     I'll attend to that.  What's the next step?
>>>>>
>>>>>     Best,
>>>>>
>>>>>     Rocky
>>>>>
>>>>>      
>>>>>
>>>>>
>>>>>   
>>>>>     
>>>>>       
>>>>>         
>>>>>           
>>>>   
>>>>     
>>>>       
>>>>         
>>>   
>>>     
>>>       
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From jwelz at hotmail.com  Thu Jan 26 12:34:20 2006
From: jwelz at hotmail.com (=?iso-8859-1?Q?J=FCrgen_Welz?=)
Date: Thu, 26 Jan 2006 11:34:20 -0700
Subject: [AccessD] Printer Driver
Message-ID: <BAY113-W27D4CBE1303F592C3D28EA1150@phx.gbl>

Sorry people.  posted this under and incorrect subject (Outlook).  I've set a new topic and repeated the post.
Dealing with the nITzis for a couple days now on something that might be of interest.  I had a couple users who couldn't open a report and Access throws a '2501 The OpenReport action was canceled.' I have functions that change default sql parameters based on the user and their office and IT sets up rights to folders and I've got my own security running and some data if from various sources that require drivers. It turns out that these users can't even use File - Print Preview on a plain lookup table.  Opening any preview from the database window results in a silent failure.  Opening any report from the Immediate window with a docmd OpenReport produces the error message. IT tells me it is my problem because Access throws an error on my button click event. The problem is that, apparently unlike other MS Office applications, Access uses some kind of print driver information to generate a print preview.  The problem is the same as when no printer is installed.  In this case, it is a problem with a Canon printer driver.  It took me nearly two hours to track down this problem a year ago when IT added a paper tray to one of the other office printers.  It was a particularly complex and convoluted report that a user was trying to open so there were dozens of things to check and I finally got permission to log in the user to track down the problem. Lacking the basic ability to create a table with two entries and to select Print Preview from the file menu, IT asked me to send them a new MDB that demonstrated this problem outside of my application.  Of course Outlook blocked the attachment so I was asked to rename the file extension.  Their security prevents rename of file extension from Explorer (though it's easy enough in VBA and though I can no longer get a DOS window, I can shell a 'ren' command).  We finally have zip capability and I think these email OK.  Being bloody minded, I ask them how to rename the file extension and send an html link to the file instead. This is ongoing.  In the mean time, I tell the users to select any other printer in the office as their default printer.
CiaoJ?rgen WelzEdmonton Albertajwelz at hotmail.com
_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/

From bheid at appdevgrp.com  Thu Jan 26 12:38:58 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 26 Jan 2006 13:38:58 -0500
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A13C@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E50@ADGSERVER>

Hi Charlotte,

There is no UI, except for the one in Access.  I have the macro open and I
am running it.  This is not always happening and it does not do it if I do
not switch away from Access.  There really is no flickering normally.  By
flickering, I mean EVERYTHING showing from Access is flickering - the
database window, the properties window, the macro window, and anything else
opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense execution is
going on, because focus is shifting back and forth from the IDE to the
UI.  Why have the IDE open at all if you're running macros?  All you
need for that is the interface and you can build one or more macros to
call other macros, so it's not really necessry to use the immediate
window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I am updating
an existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.
Their are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes),
and go to do something else, Excel, email, etc., when I come back to the
Access IDE, it will be flickering very badly.  Through task list, I see
100% CPU, with Access taking maybe 50% and explorer taking up most of
the rest.  I have not left it more than about 15 minutes before killing
Access.  Task list shows Access as running during this.  After killing
Access the system is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby



From bheid at appdevgrp.com  Thu Jan 26 12:39:46 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 26 Jan 2006 13:39:46 -0500
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A154@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E51@ADGSERVER>

Hi Gustav,

I do not see a rise in memory consumption.  I have not yet read your other
posting, but I have saved it for reading.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: Thursday, January 26, 2006 11:53 AM
To: accessd at databaseadvisors.com
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


Hi Bobby

Does Access's memory consumption rise as well?
Did you read my posting yesterday:

Memory usage at import of MySQL tables (DoEvents Magic)

/gustav

>>> bheid at appdevgrp.com 26-01-2006 17:18:41 >>>
Hey,

Doing some work on-site for a client using Access 2000.  I am updating an
existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.  Their
are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes), and
go to do something else, Excel, email, etc., when I come back to the Access
IDE, it will be flickering very badly.  Through task list, I see 100% CPU,
with Access taking maybe 50% and explorer taking up most of the rest.  I
have not left it more than about 15 minutes before killing Access.  Task
list shows Access as running during this.  After killing Access the system
is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby



From dw-murphy at cox.net  Thu Jan 26 13:03:02 2006
From: dw-murphy at cox.net (Doug Murphy)
Date: Thu, 26 Jan 2006 11:03:02 -0800
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D34E50@ADGSERVER>
Message-ID: <000c01c622ab$21d384a0$0200a8c0@murphyf3vdfepi>

Just a guess but it sounds like a timer is running on a form.  Are there any
forms open when you see this behavior?

Doug

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 10:39 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.


Hi Charlotte,

There is no UI, except for the one in Access.  I have the macro open and I
am running it.  This is not always happening and it does not do it if I do
not switch away from Access.  There really is no flickering normally.  By
flickering, I mean EVERYTHING showing from Access is flickering - the
database window, the properties window, the macro window, and anything else
opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense execution is
going on, because focus is shifting back and forth from the IDE to the UI.
Why have the IDE open at all if you're running macros?  All you need for
that is the interface and you can build one or more macros to call other
macros, so it's not really necessry to use the immediate window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I am updating an
existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro. Their
are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes), and
go to do something else, Excel, email, etc., when I come back to the Access
IDE, it will be flickering very badly.  Through task list, I see 100% CPU,
with Access taking maybe 50% and explorer taking up most of the rest.  I
have not left it more than about 15 minutes before killing Access.  Task
list shows Access as running during this.  After killing Access the system
is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jmhecht at earthlink.net  Thu Jan 26 13:06:10 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 26 Jan 2006 11:06:10 -0800
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D34E50@ADGSERVER>
Message-ID: <000001c622ab$920aa140$6701a8c0@HPLaptop>

There is something about turning screen.update on and off.
(True/False)

Try calling some form.
Screen.update = false
Run Macro
Open proper form
Screen.update =  true

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bobby Heid
Sent: Thursday, January 26, 2006 10:39 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering
problem.

Hi Charlotte,

There is no UI, except for the one in Access.  I have the
macro open and I
am running it.  This is not always happening and it does not
do it if I do
not switch away from Access.  There really is no flickering
normally.  By
flickering, I mean EVERYTHING showing from Access is
flickering - the
database window, the properties window, the macro window,
and anything else
opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering
problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense
execution is
going on, because focus is shifting back and forth from the
IDE to the
UI.  Why have the IDE open at all if you're running macros?
All you
need for that is the interface and you can build one or more
macros to
call other macros, so it's not really necessry to use the
immediate
window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I
am updating
an existing reports database that uses mostly macros to call
queries and
what-not.  They want me to do the same (ughhh!).  The OS is
XP Pro.
Their are local tables and links to SQL tables in the
database.

Anyway, sometimes when I kick off a long running macro (5-10
minutes),
and go to do something else, Excel, email, etc., when I come
back to the
Access IDE, it will be flickering very badly.  Through task
list, I see
100% CPU, with Access taking maybe 50% and explorer taking
up most of
the rest.  I have not left it more than about 15 minutes
before killing
Access.  Task list shows Access as running during this.
After killing
Access the system is back to normal.

It looks like something is making all of the windows redraw
hundreds of
times a second.  Even the task list wind (set to on top)
flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From martyconnelly at shaw.ca  Thu Jan 26 13:29:27 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Thu, 26 Jan 2006 11:29:27 -0800
Subject: [AccessD] Download Latest Version AND Deploy Desktop Shortcut
References: <A5B5AA20555F594BA7B6BD2048E49E4303624DE5@m-niosh-5.niosh.cdc.gov>
Message-ID: <43D92317.3090403@shaw.ca>

You might have a look at Tony Toews Auto FE Updater for ideas or use his 
limited freeware utility
see the license for distribution details.
It also works with Citrix.
There are links to other similar commercial and freeware products listed
http://www.granite.ab.ca/access/autofe.htm


Nicholson, Karen wrote:

>I have a procedure in place to download the latest version of a
>front-end to each user's pc when my Access application is opened.  What
>I did not count on were various shortcuts on users desktops pointing to
>various locations for this database.  Why, I even have one user who is
>pointing to c:\JUNK\blaah blaah blaah.  Does anyone know of a way to
>download the correct shortcut to the desktops automagically?
>
>Karen S. Nicholson
>Programmer Analyst
>EG&G Technical Services, Inc.
>Pittsburgh, PA
>Phone: 412-386-6649
>Email: cyx5 at cdc.gov
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From bheid at appdevgrp.com  Thu Jan 26 13:40:47 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 26 Jan 2006 14:40:47 -0500
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A197@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E54@ADGSERVER>

Nope, no timers.  This only happens when you open something else like Excel,
etc., when a long running macro is running.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Doug Murphy
Sent: Thursday, January 26, 2006 2:03 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.


Just a guess but it sounds like a timer is running on a form.  Are there any
forms open when you see this behavior?

Doug

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 10:39 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.


Hi Charlotte,

There is no UI, except for the one in Access.  I have the macro open and I
am running it.  This is not always happening and it does not do it if I do
not switch away from Access.  There really is no flickering normally.  By
flickering, I mean EVERYTHING showing from Access is flickering - the
database window, the properties window, the macro window, and anything else
opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense execution is
going on, because focus is shifting back and forth from the IDE to the UI.
Why have the IDE open at all if you're running macros?  All you need for
that is the interface and you can build one or more macros to call other
macros, so it's not really necessry to use the immediate window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I am updating an
existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro. Their
are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes), and
go to do something else, Excel, email, etc., when I come back to the Access
IDE, it will be flickering very badly.  Through task list, I see 100% CPU,
with Access taking maybe 50% and explorer taking up most of the rest.  I
have not left it more than about 15 minutes before killing Access.  Task
list shows Access as running during this.  After killing Access the system
is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby



From bheid at appdevgrp.com  Thu Jan 26 13:41:28 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 26 Jan 2006 14:41:28 -0500
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A19B@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E55@ADGSERVER>

But I have no form open, just running a macro from the database window.  It
is only updating tables.

Thanks,
Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Thursday, January 26, 2006 2:06 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.


There is something about turning screen.update on and off.
(True/False)

Try calling some form.
Screen.update = false
Run Macro
Open proper form
Screen.update =  true

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bobby Heid
Sent: Thursday, January 26, 2006 10:39 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering
problem.

Hi Charlotte,

There is no UI, except for the one in Access.  I have the
macro open and I
am running it.  This is not always happening and it does not
do it if I do
not switch away from Access.  There really is no flickering
normally.  By
flickering, I mean EVERYTHING showing from Access is
flickering - the
database window, the properties window, the macro window,
and anything else
opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Charlotte Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering
problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense
execution is
going on, because focus is shifting back and forth from the
IDE to the
UI.  Why have the IDE open at all if you're running macros?
All you
need for that is the interface and you can build one or more
macros to
call other macros, so it's not really necessry to use the
immediate
window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I
am updating
an existing reports database that uses mostly macros to call
queries and
what-not.  They want me to do the same (ughhh!).  The OS is
XP Pro.
Their are local tables and links to SQL tables in the
database.

Anyway, sometimes when I kick off a long running macro (5-10
minutes),
and go to do something else, Excel, email, etc., when I come
back to the
Access IDE, it will be flickering very badly.  Through task
list, I see
100% CPU, with Access taking maybe 50% and explorer taking
up most of
the rest.  I have not left it more than about 15 minutes
before killing
Access.  Task list shows Access as running during this.
After killing
Access the system is back to normal.

It looks like something is making all of the windows redraw
hundreds of
times a second.  Even the task list wind (set to on top)
flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby



From dwaters at usinternet.com  Thu Jan 26 13:57:30 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Thu, 26 Jan 2006 13:57:30 -0600
Subject: [AccessD] Download Latest Version AND Deploy Desktop Shortcut
In-Reply-To: <23057310.1138304035651.JavaMail.root@sniper16>
Message-ID: <000501c622b2$c10c9c30$0200a8c0@danwaters>

Karen,

I've also used the Auto FE Updater for quite a while.  It's very reliable!

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: Thursday, January 26, 2006 1:29 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Download Latest Version AND Deploy Desktop Shortcut

You might have a look at Tony Toews Auto FE Updater for ideas or use his 
limited freeware utility
see the license for distribution details.
It also works with Citrix.
There are links to other similar commercial and freeware products listed
http://www.granite.ab.ca/access/autofe.htm


Nicholson, Karen wrote:

>I have a procedure in place to download the latest version of a
>front-end to each user's pc when my Access application is opened.  What
>I did not count on were various shortcuts on users desktops pointing to
>various locations for this database.  Why, I even have one user who is
>pointing to c:\JUNK\blaah blaah blaah.  Does anyone know of a way to
>download the correct shortcut to the desktops automagically?
>
>Karen S. Nicholson
>Programmer Analyst
>EG&G Technical Services, Inc.
>Pittsburgh, PA
>Phone: 412-386-6649
>Email: cyx5 at cdc.gov
>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada



-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jmhecht at earthlink.net  Thu Jan 26 14:03:00 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 26 Jan 2006 12:03:00 -0800
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D34E54@ADGSERVER>
Message-ID: <000401c622b3$828f5640$6701a8c0@HPLaptop>

Try just playing with screen.update false and true.

I just use a form that says I am busy and will be back in a
minute so user does not think the computer has hung.

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Bobby Heid
Sent: Thursday, January 26, 2006 11:41 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering
problem.

Nope, no timers.  This only happens when you open something
else like Excel,
etc., when a long running macro is running.

Bobby




From Erwin.Craps at ithelps.be  Thu Jan 26 13:59:11 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Thu, 26 Jan 2006 20:59:11 +0100
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62F7@stekelbes.ithelps.local>

Check the screensaver you use.
Change it to a normals windows one or none.

-----Oorspronkelijk bericht-----
Van: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] Namens Bobby Heid
Verzonden: donderdag 26 januari 2006 20:41
Aan: 'Access Developers discussion and problem solving'
Onderwerp: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.

But I have no form open, just running a macro from the database window.
It is only updating tables.

Thanks,
Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Thursday, January 26, 2006 2:06 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.


There is something about turning screen.update on and off.
(True/False)

Try calling some form.
Screen.update = false
Run Macro
Open proper form
Screen.update =  true

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 10:39 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.

Hi Charlotte,

There is no UI, except for the one in Access.  I have the macro open and
I am running it.  This is not always happening and it does not do it if
I do not switch away from Access.  There really is no flickering
normally.  By flickering, I mean EVERYTHING showing from Access is
flickering - the database window, the properties window, the macro
window, and anything else opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense execution is
going on, because focus is shifting back and forth from the IDE to the
UI.  Why have the IDE open at all if you're running macros?
All you
need for that is the interface and you can build one or more macros to
call other macros, so it's not really necessry to use the immediate
window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I am updating
an existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.
Their are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes),
and go to do something else, Excel, email, etc., when I come back to the
Access IDE, it will be flickering very badly.  Through task list, I see
100% CPU, with Access taking maybe 50% and explorer taking up most of
the rest.  I have not left it more than about 15 minutes before killing
Access.  Task list shows Access as running during this.
After killing
Access the system is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From Erwin.Craps at ithelps.be  Thu Jan 26 14:00:18 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Thu, 26 Jan 2006 21:00:18 +0100
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62F8@stekelbes.ithelps.local>

Or a video driver problem. 

-----Oorspronkelijk bericht-----
Van: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] Namens Bobby Heid
Verzonden: donderdag 26 januari 2006 20:41
Aan: 'Access Developers discussion and problem solving'
Onderwerp: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.

But I have no form open, just running a macro from the database window.
It is only updating tables.

Thanks,
Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Thursday, January 26, 2006 2:06 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.


There is something about turning screen.update on and off.
(True/False)

Try calling some form.
Screen.update = false
Run Macro
Open proper form
Screen.update =  true

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 10:39 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.

Hi Charlotte,

There is no UI, except for the one in Access.  I have the macro open and
I am running it.  This is not always happening and it does not do it if
I do not switch away from Access.  There really is no flickering
normally.  By flickering, I mean EVERYTHING showing from Access is
flickering - the database window, the properties window, the macro
window, and anything else opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense execution is
going on, because focus is shifting back and forth from the IDE to the
UI.  Why have the IDE open at all if you're running macros?
All you
need for that is the interface and you can build one or more macros to
call other macros, so it's not really necessry to use the immediate
window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I am updating
an existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.
Their are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes),
and go to do something else, Excel, email, etc., when I come back to the
Access IDE, it will be flickering very badly.  Through task list, I see
100% CPU, with Access taking maybe 50% and explorer taking up most of
the rest.  I have not left it more than about 15 minutes before killing
Access.  Task list shows Access as running during this.
After killing
Access the system is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From Erwin.Craps at ithelps.be  Thu Jan 26 14:03:12 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Thu, 26 Jan 2006 21:03:12 +0100
Subject: [AccessD] Outlook automation - use a template for a message
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B62F9@stekelbes.ithelps.local>

 
Euh, jurgen 

Was this text not ment for another topic???
Erwin


-----Oorspronkelijk bericht-----
Van: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] Namens J?rgen Welz
Verzonden: donderdag 26 januari 2006 18:16
Aan: Access Developers discussion and problem solving
Onderwerp: Re: [AccessD] Outlook automation - use a template for a message

Dealing with the nITzis for a couple days now on something that might be of interest.  I had a couple users who couldn't open a report and Access throws a '2501 The OpenReport action was canceled.'
 
I have functions that change default sql parameters based on the user and their office and IT sets up rights to folders and I've got my own security running and some data if from various sources that require drivers.
 
It turns out that these users can't even use File - Print Preview on a plain lookup table.  Opening any preview from the database window results in a silent failure.  Opening any report from the Immediate window with a docmd OpenReport produces the error message.
 
IT tells me it is my problem because Access throws an error on my button click event.
 
The problem is that, apparently unlike other MS Office applications, Access uses some kind of print driver information to generate a print preview.  The problem is the same as when no printer is installed.  In this case, it is a problem with a Canon printer driver.  It took me nearly two hours to track down this problem a year ago when IT added a paper tray to one of the other office printers.  It was a particularly complex and convoluted report that a user was trying to open so there were dozens of things to check and I finally got permission to log in the user to track down the problem.
 
Lacking the basic ability to create a table with two entries and to select Print Preview from the file menu, IT asked me to send them a new MDB that demonstrated this problem outside of my application.  Of course Outlook blocked the attachment so I was asked to rename the file extension.  Their security prevents rename of file extension from Explorer (though it's easy enough in VBA and though I can no longer get a DOS window, I can shell a 'ren' command).  We finally have zip capability and I think these email OK.  Being bloody minded, I ask them how to rename the file extension and send an html link to the file instead.
 
This is ongoing.  In the mean time, I tell the users to select any other printer in the office as their default printer.
Ciao
J?rgen Welz
Edmonton Alberta
jwelz at hotmail.com
_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From martyconnelly at shaw.ca  Thu Jan 26 14:07:50 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Thu, 26 Jan 2006 12:07:50 -0800
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
References: <916187228923D311A6FE00A0CC3FAA30D34E55@ADGSERVER>
Message-ID: <43D92C16.1090804@shaw.ca>

Just a SWAG, if running WinXP change your theme by right-clicking your 
Windows XP desktop,
choosing Properties, and setting the Theme to "Windows Classic".

Bobby Heid wrote:

>But I have no form open, just running a macro from the database window.  It
>is only updating tables.
>
>Thanks,
>Bobby
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
>Sent: Thursday, January 26, 2006 2:06 PM
>To: 'Access Developers discussion and problem solving'
>Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.
>
>
>There is something about turning screen.update on and off.
>(True/False)
>
>Try calling some form.
>Screen.update = false
>Run Macro
>Open proper form
>Screen.update =  true
>
>Joe Hecht
>jmhecht at earthlink.net
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>Bobby Heid
>Sent: Thursday, January 26, 2006 10:39 AM
>To: 'Access Developers discussion and problem solving'
>Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering
>problem.
>
>Hi Charlotte,
>
>There is no UI, except for the one in Access.  I have the
>macro open and I
>am running it.  This is not always happening and it does not
>do it if I do
>not switch away from Access.  There really is no flickering
>normally.  By
>flickering, I mean EVERYTHING showing from Access is
>flickering - the
>database window, the properties window, the macro window,
>and anything else
>opened in the IDE.
>
>Bobby
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>Charlotte Foust
>Sent: Thursday, January 26, 2006 11:31 AM
>To: Access Developers discussion and problem solving
>Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering
>problem.
>Importance: Low
>
>
>In my experience, the IDE does tend to flicker when intense
>execution is
>going on, because focus is shifting back and forth from the
>IDE to the
>UI.  Why have the IDE open at all if you're running macros?
>All you
>need for that is the interface and you can build one or more
>macros to
>call other macros, so it's not really necessry to use the
>immediate
>window.
>
>Charlotte Foust
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>Bobby Heid
>Sent: Thursday, January 26, 2006 8:19 AM
>To: 'Access Developers discussion and problem solving'
>Subject: [AccessD] Strange flickering problem.
>
>
>Hey,
>
>Doing some work on-site for a client using Access 2000.  I
>am updating
>an existing reports database that uses mostly macros to call
>queries and
>what-not.  They want me to do the same (ughhh!).  The OS is
>XP Pro.
>Their are local tables and links to SQL tables in the
>database.
>
>Anyway, sometimes when I kick off a long running macro (5-10
>minutes),
>and go to do something else, Excel, email, etc., when I come
>back to the
>Access IDE, it will be flickering very badly.  Through task
>list, I see
>100% CPU, with Access taking maybe 50% and explorer taking
>up most of
>the rest.  I have not left it more than about 15 minutes
>before killing
>Access.  Task list shows Access as running during this.
>After killing
>Access the system is back to normal.
>
>It looks like something is making all of the windows redraw
>hundreds of
>times a second.  Even the task list wind (set to on top)
>flickers some.
>
>Has anyone else seen this?  Have any solutions?
>
>Thanks,
>Bobby
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From markamatte at hotmail.com  Thu Jan 26 14:11:08 2006
From: markamatte at hotmail.com (Mark A Matte)
Date: Thu, 26 Jan 2006 20:11:08 +0000
Subject: [AccessD]  Select Value in ListBox
In-Reply-To: <46B976F2B698FF46A4FE7636509B22DF1B62F8@stekelbes.ithelps.local>
Message-ID: <BAY114-F3669D3ACF2366BE47526F8D2150@phx.gbl>

Hello All,

I have a form that displays data for an individual...Individual_ID.  I want 
to print a report for this Individual_ID, but allow the user to include 
other Individual_IDs in the report...from my printing form I have a 
listbox...which my report uses as criteria.  My problem is I want the 
listbox to automatically select the Individual_ID from my first form.  I 
already have the listbox and report working fine...I just can't get this 
'default' selection in my listbox.  I think I'm looking for the ItemData# of 
the Individual_ID...but not sure how to get it?

Thanks,

Mark A. Matte




From John.Clark at niagaracounty.com  Thu Jan 26 14:23:58 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Thu, 26 Jan 2006 15:23:58 -0500
Subject: [AccessD] Same form, different actions
Message-ID: <s3d8e9e7.094@nebnov3.niagaracounty.com>

First, I've started two requests for help over the past couple of days,
only to discover the problem, while actually typing the Emails...see,
y'all have learned me some things, since I've been hanging out here.

Well, it appears my luck may have run out. Actually, I can think of a
couple different ways to do what I am now trying to do, but I want to do
it correctly...something else I've learned here...so I want to run it by
the list members.

First I'll give you a little background on the program, which is being
written in A2K. It is a case tracking program for our DA's office, and I
have chosen to lump all names together (i.e. lawyers, defendants,
victims, judges, etc.) in a single table and, using checkboxes,
designate what role(s) they fulfill. The purpose of doing this was to
avoid missing people already in the system, in another designation than
they are currently being entered as. It is usefull for them to know if a
defendant has been a victim, or visa versa, and theoratically, a name
can be in the system as all of these designations. I used the scenario
of an ADA, who becomes a defense attorney, then become a judge, then
they are mugged, thus becoming a victim, which makes them lose it and
take revenge on their attacker, which makes them a defendant...they
would then be in all categories...unlikely but possible.

So, I've got a form called frm_Subjects, which allows entry of names
and their "designations." The main form of the program is the form,
"frmIndictments" and on this form, which basically a case by case entry,
there is a drop down box to choose a defendant, from a list of names.
Using a union query, I have set the top option to be, "<ENTER NAME>".
When they choose this option, I want to take them to the "frm_Subjects"
form. OK, I'm good up to this point.

The problem is however, can I use this same form, yet have it react
differently? For instance, I've already got it opening up as an "entry
form" with the way I am calling it from the parent form (i.e.
"DoCmd.OpenForm "frm_Subjects", acNormal, , , acFormAdd,
acWindowNormal"). But, when I exit that form it returns to the menu, as
I've told it to do, and as I normally would want it to do. But, when it
is accessed via the other form, I want it to return to that form, and
place the chosen name into the combo box, which is bound to the table.

The possibilites I've thought of so far are:

1) set up a parameter in the On Open event of that form...I don't even
know if this is possible, now that I'm thinking about it...and check for
this when I have it do things. Maybe it defaults to a "0" and works the
way it is now working, but if called from the other form, it gets a "1"
and does things slightly different.

or 2) Cut my losses and just make a copy of the form and have this copy
do the different actions, and call this one from the other form. I'm
guessing this will be the answer.

Thank you!

John W Clark


From bheid at appdevgrp.com  Thu Jan 26 14:27:48 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Thu, 26 Jan 2006 15:27:48 -0500
Subject: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Strange
	flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A1B4@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E56@ADGSERVER>

It is the one that displays the windows logo.  It is not kicking in.  It
happens while I am working on the PC.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps - IT
Helps
Sent: Thursday, January 26, 2006 2:59 PM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering
problem.
Importance: Low


Check the screensaver you use.
Change it to a normals windows one or none.

-----Oorspronkelijk bericht-----
Van: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] Namens Bobby Heid
Verzonden: donderdag 26 januari 2006 20:41
Aan: 'Access Developers discussion and problem solving'
Onderwerp: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.

But I have no form open, just running a macro from the database window.
It is only updating tables.

Thanks,
Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
Sent: Thursday, January 26, 2006 2:06 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.


There is something about turning screen.update on and off.
(True/False)

Try calling some form.
Screen.update = false
Run Macro
Open proper form
Screen.update =  true

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 10:39 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.

Hi Charlotte,

There is no UI, except for the one in Access.  I have the macro open and
I am running it.  This is not always happening and it does not do it if
I do not switch away from Access.  There really is no flickering
normally.  By flickering, I mean EVERYTHING showing from Access is
flickering - the database window, the properties window, the macro
window, and anything else opened in the IDE.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte
Foust
Sent: Thursday, January 26, 2006 11:31 AM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


In my experience, the IDE does tend to flicker when intense execution is
going on, because focus is shifting back and forth from the IDE to the
UI.  Why have the IDE open at all if you're running macros?
All you
need for that is the interface and you can build one or more macros to
call other macros, so it's not really necessry to use the immediate
window.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 8:19 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Strange flickering problem.


Hey,

Doing some work on-site for a client using Access 2000.  I am updating
an existing reports database that uses mostly macros to call queries and
what-not.  They want me to do the same (ughhh!).  The OS is XP Pro.
Their are local tables and links to SQL tables in the database.

Anyway, sometimes when I kick off a long running macro (5-10 minutes),
and go to do something else, Excel, email, etc., when I come back to the
Access IDE, it will be flickering very badly.  Through task list, I see
100% CPU, with Access taking maybe 50% and explorer taking up most of
the rest.  I have not left it more than about 15 minutes before killing
Access.  Task list shows Access as running during this.
After killing
Access the system is back to normal.

It looks like something is making all of the windows redraw hundreds of
times a second.  Even the task list wind (set to on top) flickers some.

Has anyone else seen this?  Have any solutions?

Thanks,
Bobby



From jwelz at hotmail.com  Thu Jan 26 14:38:44 2006
From: jwelz at hotmail.com (=?iso-8859-1?Q?J=FCrgen_Welz?=)
Date: Thu, 26 Jan 2006 13:38:44 -0700
Subject: [AccessD] Strange flickering problem.
Message-ID: <BAY113-W36FCA618DF47A17AEF6A1A1150@phx.gbl>

I get this on our Terminal server environment when the server is slow and I close something where I have made a change and I have agreed to save changes.  The title bar toggles between two or three windows at about 30 HZ.  Sometimes it takes a couple minutes to save something like a rowsource for a combo.  It only seems to happen when the server is real busy, but we've now got 33 full time users and everyone is told to keep Outlook 2003 open at all times.  In addition, we have a number of other outside users logging in on our server.  Our Server is one of 40 but it is stretched rather thin so I'm getting this flicker with increasing frequency.
 
J?rgen Welz



> From: Erwin.Craps at ithelps.be> > Or a video driver problem. > > > But I have no form open, just running a macro from the database window.> It is only updating tables.> > Thanks,> Bobby> > -----Original Message-----> Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.> > > There is something about turning screen.update on and off.> (True/False)> > Try calling some form.> Screen.update = false> Run Macro> Open proper form> Screen.update = true> > Joe Hecht> jmhecht at earthlink.net> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid> > Hi Charlotte,> > There is no UI, except for the one in Access. I have the macro open and> I am running it. This is not always happening and it does not do it if> I do not switch away from Access. There really is no flickering> normally. By flickering, I mean EVERYTHING showing from Access is> flickering - the database window, the properties window, the macro> window, and anything else opened in the IDE.> > Bobby> > -----Original Message-----> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte> Foust> > > In my experience, the IDE does tend to flicker when intense execution is> going on, because focus is shifting back and forth from the IDE to the> UI. Why have the IDE open at all if you're running macros?> All you> need for that is the interface and you can build one or more macros to> call other macros, so it's not really necessry to use the immediate> window.> > Charlotte Foust> > > -----Original Message-----> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid> Hey, > Doing some work on-site for a client using Access 2000. I am updating> an existing reports database that uses mostly macros to call queries and> what-not. They want me to do the same (ughhh!). The OS is XP Pro.> Their are local tables and links to SQL tables in the database.> > Anyway, sometimes when I kick off a long running macro (5-10 minutes),> and go to do something else, Excel, email, etc., when I come back to the> Access IDE, it will be flickering very badly. Through task list, I see> 100% CPU, with Access taking maybe 50% and explorer taking up most of> the rest. I have not left it more than about 15 minutes before killing> Access. Task list shows Access as running during this.> After killing> Access the system is back to normal.> > It looks like something is making all of the windows redraw hundreds of> times a second. Even the task list wind (set to on top) flickers some.> > Has anyone else seen this? Have any solutions?> > Thanks,> Bobby
_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/

From markamatte at hotmail.com  Thu Jan 26 15:14:58 2006
From: markamatte at hotmail.com (Mark A Matte)
Date: Thu, 26 Jan 2006 21:14:58 +0000
Subject: [AccessD] Select Value in ListBox Part2
In-Reply-To: <BAY114-F3669D3ACF2366BE47526F8D2150@phx.gbl>
Message-ID: <BAY114-F123C58F4308A49C9F9287AD2150@phx.gbl>

Hello All,

Solved that part of the problem.  I got the listbox to select the item I 
wanted...but in a perfect world...the list box would scroll down to the 
selection...any ideas on how to make that happen?

Thanks,

Mark


>From: "Mark A Matte" <markamatte at hotmail.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: accessd at databaseadvisors.com
>Subject: [AccessD]  Select Value in ListBox
>Date: Thu, 26 Jan 2006 20:11:08 +0000
>
>Hello All,
>
>I have a form that displays data for an individual...Individual_ID.  I want
>to print a report for this Individual_ID, but allow the user to include
>other Individual_IDs in the report...from my printing form I have a
>listbox...which my report uses as criteria.  My problem is I want the
>listbox to automatically select the Individual_ID from my first form.  I
>already have the listbox and report working fine...I just can't get this
>'default' selection in my listbox.  I think I'm looking for the ItemData# 
>of
>the Individual_ID...but not sure how to get it?
>
>Thanks,
>
>Mark A. Matte
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From bchacc at san.rr.com  Thu Jan 26 15:15:37 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Thu, 26 Jan 2006 13:15:37 -0800
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <43D92C16.1090804@shaw.ca>
References: <916187228923D311A6FE00A0CC3FAA30D34E55@ADGSERVER>
	<43D92C16.1090804@shaw.ca>
Message-ID: <43D93BF9.2060007@san.rr.com>

Bobby:

Is it the app or the machine?  If you move the app to another machine do 
you get the same problem?

Rocky


MartyConnelly wrote:
> Just a SWAG, if running WinXP change your theme by right-clicking your 
> Windows XP desktop,
> choosing Properties, and setting the Theme to "Windows Classic".
>
> Bobby Heid wrote:
>
>   
>> But I have no form open, just running a macro from the database window.  It
>> is only updating tables.
>>
>> Thanks,
>> Bobby
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
>> Sent: Thursday, January 26, 2006 2:06 PM
>> To: 'Access Developers discussion and problem solving'
>> Subject: Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering problem.
>>
>>
>> There is something about turning screen.update on and off.
>> (True/False)
>>
>> Try calling some form.
>> Screen.update = false
>> Run Macro
>> Open proper form
>> Screen.update =  true
>>
>>     



From mikedorism at verizon.net  Thu Jan 26 15:20:44 2006
From: mikedorism at verizon.net (Mike & Doris Manning)
Date: Thu, 26 Jan 2006 16:20:44 -0500
Subject: [AccessD] Same form, different actions
In-Reply-To: <s3d8e9e7.094@nebnov3.niagaracounty.com>
Message-ID: <000601c622be$5ed29ef0$2f01a8c0@dorismanning>

I've done what you are asking several times.  I just pass in an OpenArgument
at the end of my DoCmd.Open statement.  I save that to an internal form
variable in the FormOpen event and check it on FormClose.

Doris Manning
mikedorism at verizon.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Thursday, January 26, 2006 3:24 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] Same form, different actions

First, I've started two requests for help over the past couple of days,
only to discover the problem, while actually typing the Emails...see,
y'all have learned me some things, since I've been hanging out here.

Well, it appears my luck may have run out. Actually, I can think of a
couple different ways to do what I am now trying to do, but I want to do
it correctly...something else I've learned here...so I want to run it by
the list members.

First I'll give you a little background on the program, which is being
written in A2K. It is a case tracking program for our DA's office, and I
have chosen to lump all names together (i.e. lawyers, defendants,
victims, judges, etc.) in a single table and, using checkboxes,
designate what role(s) they fulfill. The purpose of doing this was to
avoid missing people already in the system, in another designation than
they are currently being entered as. It is usefull for them to know if a
defendant has been a victim, or visa versa, and theoratically, a name
can be in the system as all of these designations. I used the scenario
of an ADA, who becomes a defense attorney, then become a judge, then
they are mugged, thus becoming a victim, which makes them lose it and
take revenge on their attacker, which makes them a defendant...they
would then be in all categories...unlikely but possible.

So, I've got a form called frm_Subjects, which allows entry of names
and their "designations." The main form of the program is the form,
"frmIndictments" and on this form, which basically a case by case entry,
there is a drop down box to choose a defendant, from a list of names.
Using a union query, I have set the top option to be, "<ENTER NAME>".
When they choose this option, I want to take them to the "frm_Subjects"
form. OK, I'm good up to this point.

The problem is however, can I use this same form, yet have it react
differently? For instance, I've already got it opening up as an "entry
form" with the way I am calling it from the parent form (i.e.
"DoCmd.OpenForm "frm_Subjects", acNormal, , , acFormAdd,
acWindowNormal"). But, when I exit that form it returns to the menu, as
I've told it to do, and as I normally would want it to do. But, when it
is accessed via the other form, I want it to return to that form, and
place the chosen name into the combo box, which is bound to the table.

The possibilites I've thought of so far are:

1) set up a parameter in the On Open event of that form...I don't even
know if this is possible, now that I'm thinking about it...and check for
this when I have it do things. Maybe it defaults to a "0" and works the
way it is now working, but if called from the other form, it gets a "1"
and does things slightly different.

or 2) Cut my losses and just make a copy of the form and have this copy
do the different actions, and call this one from the other form. I'm
guessing this will be the answer.

Thank you!

John W Clark
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jwelz at hotmail.com  Thu Jan 26 15:24:04 2006
From: jwelz at hotmail.com (=?iso-8859-1?Q?J=FCrgen_Welz?=)
Date: Thu, 26 Jan 2006 14:24:04 -0700
Subject: [AccessD] Same form, different actions
Message-ID: <BAY113-W28D536295565AF89590CDA1150@phx.gbl>

This question is akin to the Library Database structure poser a couple days ago.
 
Checkboxes against roles work, but your giving up some normalization there.  A junction table between the Entity and the Role is a more normalized approach.  You'll give up a bit of speed as the number of records involved in a query and its index goes up to the number of entities times the average number of roles so the size of the data to be joined goes up in proportion to the additional number of records and of course, the processing of the join involves more processor cycles so the normalization may bite a bit.  For better speed you can go with the flatter checkbox approach, and for faster yet, that whole query by join on a bit will get you 8 categories in a single byte field.  But I digress...
 
For a law office database with similar considerations, I used a parent form with a lookup combo and some search and navigation buttons that covered all categories.  This parent form contained the basic universal information about the person/corporate body.  When the user selected a person or corporate body, various tabs became visible, each containing a subform that had records pertaining to that category.  Generally, records within a subform category were added from the subform and if no records existed, the subform was simply not visible.  The user could pick a type of record from the parent that would force the addition and display of an appropriate subform.  For example, if a name happened to be that of a person on whose behalf we had acted, a subform would open displaying the file numbers and the capacity in which the person was related to the file.  A subform with related parties showed the corporate bodies to which he was related as well as the capacity in which he is related.  If the person was also a client on a real estate transaction and his spouse was on the title, that name showed as spouse.  There is another subform that contains Addresses and a further one with Phone contact information.  In such a case, the person could be related as a client.  If that person was also a lawyer, the related files subform shows file numbers and capacity (opposing counsel, other lawyer on a real estate transaction) and the related parties subform shows his legal firm, assistant, reception...  If you happened to have spouse, child or other affiliation, one simply needs to add that person and select a capacity.
 
I did the same thing with addresses and phone numbers.  An address could be information about a property being bought or sold, but it is likely also a past or present address of a client effective as at a certain date.  The address of a corporation connected as a location address (as opposed to mailing address) would also be the business address of a person associated to the business as an employee or a lawyer.  The master address form has subforms showing related parties, the capacity of the relation (home, office..), related files where the property is related to a file (sale, lien, tax appeal) and related phone numbers (If a law firm has the address, a switchboard number is also a number for the lawyers and assistants and individuals can have direct lines as well).
 
The master phone number form has subforms that display addresses (if they exist.  For a cell, the address subform would not be visible), parties that may be reached by the number and their association to that number.
 
Using JIT subforms where you set the recordsource on the fly to an appropriately parameterized query makes this real fast.
 
It is easy to control phone number formatting and I allow users to enter phone numbers directly in a subform.  Before adding, the system looks up the number and if it exists, displays related parties and the relationship in a pop up.  This is useful in determining relationships between parties.  Addresses are more difficult in that there are many variations in abbreviations and format.  I just have users follow Canada Post guidelines and provide a merge feature to combine related addresses to keep down duplications.Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com



> Date: Thu, 26 Jan 2006 15:23:58 -0500> From: John.Clark at niagaracounty.com> > First, I've started two requests for help over the past couple of days,> only to discover the problem, while actually typing the Emails...see,> y'all have learned me some things, since I've been hanging out here.> > Well, it appears my luck may have run out. Actually, I can think of a> couple different ways to do what I am now trying to do, but I want to do> it correctly...something else I've learned here...so I want to run it by> the list members.> > First I'll give you a little background on the program, which is being> written in A2K. It is a case tracking program for our DA's office, and I> have chosen to lump all names together (i.e. lawyers, defendants,> victims, judges, etc.) in a single table and, using checkboxes,> designate what role(s) they fulfill. The purpose of doing this was to> avoid missing people already in the system, in another designation than> they are currently being entered as. It is usefull for them to know if a> defendant has been a victim, or visa versa, and theoratically, a name> can be in the system as all of these designations. I used the scenario> of an ADA, who becomes a defense attorney, then become a judge, then> they are mugged, thus becoming a victim, which makes them lose it and> take revenge on their attacker, which makes them a defendant...they> would then be in all categories...unlikely but possible.> > So, I've got a form called frm_Subjects, which allows entry of names> and their "designations." The main form of the program is the form,> "frmIndictments" and on this form, which basically a case by case entry,> there is a drop down box to choose a defendant, from a list of names.> Using a union query, I have set the top option to be, "".> When they choose this option, I want to take them to the "frm_Subjects"> form. OK, I'm good up to this point.> > The problem is however, can I use this same form, yet have it react> differently? For instance, I've already got it opening up as an "entry> form" with the way I am calling it from the parent form (i.e.> "DoCmd.OpenForm "frm_Subjects", acNormal, , , acFormAdd,> acWindowNormal"). But, when I exit that form it returns to the menu, as> I've told it to do, and as I normally would want it to do. But, when it> is accessed via the other form, I want it to return to that form, and> place the chosen name into the combo box, which is bound to the table.> > The possibilites I've thought of so far are:> > 1) set up a parameter in the On Open event of that form...I don't even> know if this is possible, now that I'm thinking about it...and check for> this when I have it do things. Maybe it defaults to a "0" and works the> way it is now working, but if called from the other form, it gets a "1"> and does things slightly different.> > or 2) Cut my losses and just make a copy of the form and have this copy> do the different actions, and call this one from the other form. I'm> guessing this will be the answer.> > Thank you!> > John W Clark
_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/

From cfoust at infostatsystems.com  Thu Jan 26 16:11:52 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Thu, 26 Jan 2006 14:11:52 -0800
Subject: [AccessD] Strangeflickering problem.
Message-ID: <F55048AF7E974F429BB24597D7355EEABF62@INFOSERVER04.infostat.local>

Bobby,
I suspect that what you describe as flickering is the result of time
slicing between the macro operation in Access and whatever you're doing
elsewhere.  With an intensive operation in Access, which is something of
a hog on resources, you may have to go have coffee and not try to do
anything else while it's running.

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bobby Heid
Sent: Thursday, January 26, 2006 12:28 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re:
Strangeflickering problem.


It is the one that displays the windows logo.  It is not kicking in.  It
happens while I am working on the PC.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps -
IT Helps
Sent: Thursday, January 26, 2006 2:59 PM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Strange
flickering problem.
Importance: Low


From jmhecht at earthlink.net  Thu Jan 26 21:04:33 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Thu, 26 Jan 2006 19:04:33 -0800
Subject: [AccessD] Field to small question
Message-ID: <000101c622ee$66771980$6701a8c0@HPLaptop>

I am getting a field too small error. I went to the proper
table and enlarged the size of the field. I closed the table
so it should have been saved. The size is well larger then
the data.

 

Why am I still getting the error?

 

 

Joe Hecht

jmhecht at earthlink.net

 



From bchacc at san.rr.com  Thu Jan 26 22:43:28 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Thu, 26 Jan 2006 20:43:28 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <43D9A4F0.7080503@san.rr.com>


So, right code, wrong place? Should be in the open event of the report?

TIA

Rocky




Charlotte Foust wrote:
> All you're doing there is setting the paper size of the printer object.
> You need to work the the Report's printer object.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Thursday, January 26, 2006 9:25 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> Charlotte:
>
> I put this code:
>
> If Me.fraPaperSize = 1 Then
>     Access.Printer.PaperSize = acPRPSLetter
> Else
>     Access.Printer.PaperSize = acPRPSA4
> End If
>
>
> into the event that calls the report in question.  On my printer it 
> doesn't print any differently with either setting but I would expect 
> that, I guess as I haven't got any A4 paper to test it with.  I'll send 
> it to the user to see if it solves the problem.
>
> But have I got the code right?  Should it go in the open event of the 
> report itself instead of the calling procedure in the form?
>
> MTIA,
>
> Rocky
>
>   



From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 08:54:22 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 07:54:22 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB48@srciml1.ds.doc.state.or.us>


I'm converting a database from 97 to 2000 and have run into a problem
with the below function.  Could someone please tell me why the
highlighted part is failing?  I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean
  
  Dim oDB As Database
  Dim oRS As Recordset
  Dim oRSBins As Recordset
  Dim sSql As String
  Dim j As Long
  Dim vRtn As Variant
  
  UpdateSID4Bin = False
  
  Set oDB = CurrentDb
  
  DoCmd.Hourglass True
  
  ' display message in status bar
  vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)
  
  For j = 0 To 9
    ' update meter
    vRtn = SysCmd(acSysCmdUpdateMeter, j + 1)
    DoEvents
    
    ' get all SIDs that are not assigned a bin number for the current
row
    sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j
& "' ORDER BY Row"
    Set oRS = oDB.OpenRecordset(sSql)
    
    Do While Not oRS.EOF
      ' grab an empty bin for the current row
      sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" &
j & "' AND SID IS NULL"
      Set oRSBins = oDB.OpenRecordset(sSql)
      
      If Not oRSBins.EOF Then
        ' update empty bin with current SID
        sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID")
& "' WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum")
& "'"
        oDB.Execute sSql
      End If
      
      ' get next SID
      oRS.MoveNext
      
    Loop
  Next
  
  UpdateSID4Bin = True
  
ExitFunction:
  On Error Resume Next
  
  oRS.Close
  oRSBins.Close
  oDB.Close
  
  Set oRS = Nothing
  Set oRSBins = Nothing
  Set oDB = Nothing
  
  DoCmd.Hourglass False
  vRtn = SysCmd(acSysCmdRemoveMeter)
  
End Function

Public Function CheckEvent(pEvent As String) As Boolean
  
  Dim oDB As DAO.Database
  Dim oRS As DAO.Recordset
  Dim sSql As String
  
  CheckEvent = False
  
  Set oDB = CurrentDb
  
  sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf
  sSql = sSql & "WHERE EventName = '" & pEvent & "'"
  Set oRS = oDB.OpenRecordset(sSql)
  
  With oRS
    If Not .EOF Then
      CheckEvent = (.Fields(0) = True)
    End If
  End With
  
ExitFunction:
  On Error Resume Next
  
  oRS.Close
  oDB.Close
  
  Set oRS = Nothing
  Set oDB = Nothing
  
End Function

Public Sub InitDownloadEvents()
  
  Dim oDB As DAO.Database
  Dim sSql As String
  
  ' init events
  Set oDB = CurrentDb
  sSql = "UPDATE DownloadEvents SET Complete = False"
  oDB.Execute sSql
  
  oDB.Close
  Set oDB = Nothing
  
End Sub

Public Function SetEvent(pEvent As String) As Boolean
  
  Dim oDB As DAO.Database
  Dim sSql As String
  
  SetEvent = False
  
  Set oDB = CurrentDb
  
  sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf
  sSql = sSql & "WHERE EventName = '" & pEvent & "'"
  oDB.Execute sSql
  
  SetEvent = True
  
ExitFunction:
  On Error Resume Next
  
  oDB.Close
  Set oDB = Nothing
  
End Function


Thanks in advance for any help provided.


Mike Gowey  MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 08:57:08 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 07:57:08 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB49@srciml1.ds.doc.state.or.us>


Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
    sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j
& "' ORDER BY Row"
    Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W 
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function.  Could someone please tell me why the
highlighted part is failing?  I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean
  
  Dim oDB As Database
  Dim oRS As Recordset
  Dim oRSBins As Recordset
  Dim sSql As String
  Dim j As Long
  Dim vRtn As Variant
  
  UpdateSID4Bin = False
  
  Set oDB = CurrentDb
  
  DoCmd.Hourglass True
  
  ' display message in status bar
  vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)
  
  For j = 0 To 9
    ' update meter
    vRtn = SysCmd(acSysCmdUpdateMeter, j + 1)
    DoEvents
    
    ' get all SIDs that are not assigned a bin number for the current
row
    sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j
& "' ORDER BY Row"
    Set oRS = oDB.OpenRecordset(sSql)
    
    Do While Not oRS.EOF
      ' grab an empty bin for the current row
      sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" &
j & "' AND SID IS NULL"
      Set oRSBins = oDB.OpenRecordset(sSql)
      
      If Not oRSBins.EOF Then
        ' update empty bin with current SID
        sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID")
& "' WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum")
& "'"
        oDB.Execute sSql
      End If
      
      ' get next SID
      oRS.MoveNext
      
    Loop
  Next
  
  UpdateSID4Bin = True
  
ExitFunction:
  On Error Resume Next
  
  oRS.Close
  oRSBins.Close
  oDB.Close
  
  Set oRS = Nothing
  Set oRSBins = Nothing
  Set oDB = Nothing
  
  DoCmd.Hourglass False
  vRtn = SysCmd(acSysCmdRemoveMeter)
  
End Function

Public Function CheckEvent(pEvent As String) As Boolean
  
  Dim oDB As DAO.Database
  Dim oRS As DAO.Recordset
  Dim sSql As String
  
  CheckEvent = False
  
  Set oDB = CurrentDb
  
  sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf
  sSql = sSql & "WHERE EventName = '" & pEvent & "'"
  Set oRS = oDB.OpenRecordset(sSql)
  
  With oRS
    If Not .EOF Then
      CheckEvent = (.Fields(0) = True)
    End If
  End With
  
ExitFunction:
  On Error Resume Next
  
  oRS.Close
  oDB.Close
  
  Set oRS = Nothing
  Set oDB = Nothing
  
End Function

Public Sub InitDownloadEvents()
  
  Dim oDB As DAO.Database
  Dim sSql As String
  
  ' init events
  Set oDB = CurrentDb
  sSql = "UPDATE DownloadEvents SET Complete = False"
  oDB.Execute sSql
  
  oDB.Close
  Set oDB = Nothing
  
End Sub

Public Function SetEvent(pEvent As String) As Boolean
  
  Dim oDB As DAO.Database
  Dim sSql As String
  
  SetEvent = False
  
  Set oDB = CurrentDb
  
  sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf
  sSql = sSql & "WHERE EventName = '" & pEvent & "'"
  oDB.Execute sSql
  
  SetEvent = True
  
ExitFunction:
  On Error Resume Next
  
  oDB.Close
  Set oDB = Nothing
  
End Function


Thanks in advance for any help provided.


Mike Gowey  MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From papparuff at comcast.net  Fri Jan 27 09:00:39 2006
From: papparuff at comcast.net (papparuff at comcast.net)
Date: Fri, 27 Jan 2006 15:00:39 +0000
Subject: [AccessD] Function Error
Message-ID: <012720061500.14312.43DA35970007F426000037E8220730079300009A9D0E9F9F0E9F@comcast.net>

You forgot to explicitly declare the database and recordsets.

Dim oDB As Database
  Dim oRS As Recordset
  Dim oRSBins As Recordset

shhould be 

Dim oDB As DAO.Database
  Dim oRS As DAO.Recordset
  Dim oRSBins As DAO.Recordset



--
John V. Ruff ? The Eternal Optimist :-) 

?Commit to the Lord whatever you do, 
and your plans will succeed.? Proverbs 16:3

-------------- Original message -------------- 
From: "Gowey Mike W" <Mike.W.Gowey at doc.state.or.us> 

> 
> Sorry the highlight didn't show, the part it starts failing at is here: 
> 
> ' get all SIDs that are not assigned a bin number for the current row 
> sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j 
> & "' ORDER BY Row" 
> Set oRS = oDB.OpenRecordset(sSql) 
> 
> -----Original Message----- 
> From: Gowey Mike W 
> Sent: Friday, January 27, 2006 7:54 AM 
> To: Access Developers discussion and problem solving 
> Subject: [AccessD] Function Error 
> 
> 
> I'm converting a database from 97 to 2000 and have run into a problem 
> with the below function. Could someone please tell me why the 
> highlighted part is failing? I get a " Runtime error '5' Invalid 
> procedure call " 
> 
> 
> Public Function UpdateSID4Bin() As Boolean 
> 
> Dim oDB As Database 
> Dim oRS As Recordset 
> Dim oRSBins As Recordset 
> Dim sSql As String 
> Dim j As Long 
> Dim vRtn As Variant 
> 
> UpdateSID4Bin = False 
> 
> Set oDB = CurrentDb 
> 
> DoCmd.Hourglass True 
> 
> ' display message in status bar 
> vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New 
> SIDs...", 10) 
> 
> For j = 0 To 9 
> ' update meter 
> vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) 
> DoEvents 
> 
> ' get all SIDs that are not assigned a bin number for the current 
> row 
> sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j 
> & "' ORDER BY Row" 
> Set oRS = oDB.OpenRecordset(sSql) 
> 
> Do While Not oRS.EOF 
> ' grab an empty bin for the current row 
> sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & 
> j & "' AND SID IS NULL" 
> Set oRSBins = oDB.OpenRecordset(sSql) 
> 
> If Not oRSBins.EOF Then 
> ' update empty bin with current SID 
> sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") 
> & "' WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") 
> & "'" 
> oDB.Execute sSql 
> End If 
> 
> ' get next SID 
> oRS.MoveNext 
> 
> Loop 
> Next 
> 
> UpdateSID4Bin = True 
> 
> ExitFunction: 
> On Error Resume Next 
> 
> oRS.Close 
> oRSBins.Close 
> oDB.Close 
> 
> Set oRS = Nothing 
> Set oRSBins = Nothing 
> Set oDB = Nothing 
> 
> DoCmd.Hourglass False 
> vRtn = SysCmd(acSysCmdRemoveMeter) 
> 
> End Function 
> 
> Public Function CheckEvent(pEvent As String) As Boolean 
> 
> Dim oDB As DAO.Database 
> Dim oRS As DAO.Recordset 
> Dim sSql As String 
> 
> CheckEvent = False 
> 
> Set oDB = CurrentDb 
> 
> sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf 
> sSql = sSql & "WHERE EventName = '" & pEvent & "'" 
> Set oRS = oDB.OpenRecordset(sSql) 
> 
> With oRS 
> If Not .EOF Then 
> CheckEvent = (.Fields(0) = True) 
> End If 
> End With 
> 
> ExitFunction: 
> On Error Resume Next 
> 
> oRS.Close 
> oDB.Close 
> 
> Set oRS = Nothing 
> Set oDB = Nothing 
> 
> End Function 
> 
> Public Sub InitDownloadEvents() 
> 
> Dim oDB As DAO.Database 
> Dim sSql As String 
> 
> ' init events 
> Set oDB = CurrentDb 
> sSql = "UPDATE DownloadEvents SET Complete = False" 
> oDB.Execute sSql 
> 
> oDB.Close 
> Set oDB = Nothing 
> 
> End Sub 
> 
> Public Function SetEvent(pEvent As String) As Boolean 
> 
> Dim oDB As DAO.Database 
> Dim sSql As String 
> 
> SetEvent = False 
> 
> Set oDB = CurrentDb 
> 
> sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf 
> sSql = sSql & "WHERE EventName = '" & pEvent & "'" 
> oDB.Execute sSql 
> 
> SetEvent = True 
> 
> ExitFunction: 
> On Error Resume Next 
> 
> oDB.Close 
> Set oDB = Nothing 
> 
> End Function 
> 
> 
> Thanks in advance for any help provided. 
> 
> 
> Mike Gowey MCP, MCDST, A+, LME, NET+ 
> Team Leader - SouthEast Region 
> Information Systems Unit 
> 
> -- 
> AccessD mailing list 
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 
> 
> 
> -- 
> AccessD mailing list 
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd 
> Website: http://www.databaseadvisors.com 

From EdTesiny at oasas.state.ny.us  Fri Jan 27 09:06:13 2006
From: EdTesiny at oasas.state.ny.us (Tesiny, Ed)
Date: Fri, 27 Jan 2006 10:06:13 -0500
Subject: [AccessD] Field to small question
Message-ID: <FED384E544086A47AAC07C0999BE8D1703D50AFB@albmsx2k.rt.oasas.state.ny.us>

Did you delete the original field on the form and paste the new one?

Ed Tesiny
EdTesiny at oasas.state.ny.us
 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe Hecht
> Sent: Thursday, January 26, 2006 10:05 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Field to small question
> 
> I am getting a field too small error. I went to the proper
> table and enlarged the size of the field. I closed the table
> so it should have been saved. The size is well larger then
> the data.
> 
>  
> 
> Why am I still getting the error?
> 
>  
> 
>  
> 
> Joe Hecht
> 
> jmhecht at earthlink.net
> 
>  
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 


From Gustav at cactus.dk  Fri Jan 27 09:09:23 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 27 Jan 2006 16:09:23 +0100
Subject: [AccessD] Function Error
Message-ID: <s3da45c6.066@cactus.dk>

Hi Mike

Have you tried running this on its own: 

  qryInmatesBinNumberUpdate

and this in a new query:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'

or should it be:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0

/gustav




From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 09:14:46 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 08:14:46 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB4A@srciml1.ds.doc.state.or.us>


Nope that wasn't the problem, still get the same error. 

-----Original Message-----
From: papparuff at comcast.net [mailto:papparuff at comcast.net] 
Sent: Friday, January 27, 2006 8:01 AM
To: Access Developers discussion and problem solving; Access Developers
discussion and problem solving
Cc: Gowey Mike W
Subject: Re: [AccessD] Function Error

You forgot to explicitly declare the database and recordsets.

Dim oDB As Database
  Dim oRS As Recordset
  Dim oRSBins As Recordset

shhould be 

Dim oDB As DAO.Database
  Dim oRS As DAO.Recordset
  Dim oRSBins As DAO.Recordset



--
John V. Ruff - The Eternal Optimist :-) 

"Commit to the Lord whatever you do,
and your plans will succeed." Proverbs 16:3

-------------- Original message --------------
From: "Gowey Mike W" <Mike.W.Gowey at doc.state.or.us> 

> 
> Sorry the highlight didn't show, the part it starts failing at is
here: 
> 
> ' get all SIDs that are not assigned a bin number for the current row 
> sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &

> "' ORDER BY Row"
> Set oRS = oDB.OpenRecordset(sSql)
> 
> -----Original Message-----
> From: Gowey Mike W
> Sent: Friday, January 27, 2006 7:54 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Function Error
> 
> 
> I'm converting a database from 97 to 2000 and have run into a problem 
> with the below function. Could someone please tell me why the 
> highlighted part is failing? I get a " Runtime error '5' Invalid 
> procedure call "
> 
> 
> Public Function UpdateSID4Bin() As Boolean
> 
> Dim oDB As Database
> Dim oRS As Recordset
> Dim oRSBins As Recordset
> Dim sSql As String
> Dim j As Long
> Dim vRtn As Variant
> 
> UpdateSID4Bin = False
> 
> Set oDB = CurrentDb
> 
> DoCmd.Hourglass True
> 
> ' display message in status bar
> vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New 
> SIDs...", 10)
> 
> For j = 0 To 9
> ' update meter
> vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents
> 
> ' get all SIDs that are not assigned a bin number for the current row 
> sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &

> "' ORDER BY Row"
> Set oRS = oDB.OpenRecordset(sSql)
> 
> Do While Not oRS.EOF
> ' grab an empty bin for the current row sSql = "SELECT TOP 1 BinNum 
> FROM BinNumSIDAssign WHERE Row = '" & j & "' AND SID IS NULL"
> Set oRSBins = oDB.OpenRecordset(sSql)
> 
> If Not oRSBins.EOF Then
> ' update empty bin with current SID
> sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "' 
> WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & 
> "'"
> oDB.Execute sSql
> End If
> 
> ' get next SID
> oRS.MoveNext
> 
> Loop
> Next
> 
> UpdateSID4Bin = True
> 
> ExitFunction: 
> On Error Resume Next
> 
> oRS.Close
> oRSBins.Close
> oDB.Close
> 
> Set oRS = Nothing
> Set oRSBins = Nothing
> Set oDB = Nothing
> 
> DoCmd.Hourglass False
> vRtn = SysCmd(acSysCmdRemoveMeter)
> 
> End Function
> 
> Public Function CheckEvent(pEvent As String) As Boolean
> 
> Dim oDB As DAO.Database
> Dim oRS As DAO.Recordset
> Dim sSql As String
> 
> CheckEvent = False
> 
> Set oDB = CurrentDb
> 
> sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql & 
> "WHERE EventName = '" & pEvent & "'"
> Set oRS = oDB.OpenRecordset(sSql)
> 
> With oRS
> If Not .EOF Then
> CheckEvent = (.Fields(0) = True)
> End If
> End With
> 
> ExitFunction: 
> On Error Resume Next
> 
> oRS.Close
> oDB.Close
> 
> Set oRS = Nothing
> Set oDB = Nothing
> 
> End Function
> 
> Public Sub InitDownloadEvents()
> 
> Dim oDB As DAO.Database
> Dim sSql As String
> 
> ' init events
> Set oDB = CurrentDb
> sSql = "UPDATE DownloadEvents SET Complete = False" 
> oDB.Execute sSql
> 
> oDB.Close
> Set oDB = Nothing
> 
> End Sub
> 
> Public Function SetEvent(pEvent As String) As Boolean
> 
> Dim oDB As DAO.Database
> Dim sSql As String
> 
> SetEvent = False
> 
> Set oDB = CurrentDb
> 
> sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = 
> sSql & "WHERE EventName = '" & pEvent & "'"
> oDB.Execute sSql
> 
> SetEvent = True
> 
> ExitFunction: 
> On Error Resume Next
> 
> oDB.Close
> Set oDB = Nothing
> 
> End Function
> 
> 
> Thanks in advance for any help provided. 
> 
> 
> Mike Gowey MCP, MCDST, A+, LME, NET+
> Team Leader - SouthEast Region
> Information Systems Unit
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



From andy at minstersystems.co.uk  Fri Jan 27 09:18:25 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 15:18:25 +0000
Subject: [AccessD] Function Error
Message-ID: <20060127151822.32780256443@smtp.nildram.co.uk>

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j
& "' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1)
DoEvents

' get all SIDs that are not assigned a bin number for the current
row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j
& "' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" &
j & "' AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID")
& "' WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum")
& "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf
sSql = sSql & "WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf
sSql = sSql & "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2



From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 09:18:51 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 08:18:51 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB4B@srciml1.ds.doc.state.or.us>


I cycle through the table and the row number could be any number of 0 -
9 to check for a bin number. 

-----Original Message-----
From: Gustav Brock [mailto:Gustav at cactus.dk] 
Sent: Friday, January 27, 2006 8:09 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Function Error

Hi Mike

Have you tried running this on its own: 

  qryInmatesBinNumberUpdate

and this in a new query:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'

or should it be:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0

/gustav


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 09:21:12 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 08:21:12 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB4C@srciml1.ds.doc.state.or.us>

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk] 
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jmhecht at earthlink.net  Fri Jan 27 09:28:04 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 27 Jan 2006 07:28:04 -0800
Subject: [AccessD] Field to small question
In-Reply-To: <FED384E544086A47AAC07C0999BE8D1703D50AFB@albmsx2k.rt.oasas.state.ny.us>
Message-ID: <002401c62356$45001230$6701a8c0@HPLaptop>

All I have one is change the field size setting at the table
level.

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Tesiny, Ed
Sent: Friday, January 27, 2006 7:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Field to small question

Did you delete the original field on the form and paste the
new one?

Ed Tesiny
EdTesiny at oasas.state.ny.us
 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
> Sent: Thursday, January 26, 2006 10:05 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Field to small question
> 
> I am getting a field too small error. I went to the proper
> table and enlarged the size of the field. I closed the
table
> so it should have been saved. The size is well larger then
> the data.
> 
>  
> 
> Why am I still getting the error?
> 
>  
> 
>  
> 
> Joe Hecht
> 
> jmhecht at earthlink.net
> 
>  
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 09:31:47 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 08:31:47 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB4D@srciml1.ds.doc.state.or.us>

Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error.  Dang 

-----Original Message-----
From: Gowey Mike W 
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From paul.hartland at isharp.co.uk  Fri Jan 27 09:33:36 2006
From: paul.hartland at isharp.co.uk (Paul Hartland (ISHARP))
Date: Fri, 27 Jan 2006 15:33:36 -0000
Subject: [AccessD] Return Names Of All Available Servers
In-Reply-To: <200512221305.jBMD50V16983@databaseadvisors.com>
Message-ID: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAACbXnuX4FFNR7DCzaK4N9GIAQAAAAA=@isharp.co.uk>

To all,

Not sure if this is possible, but is there a way via code that I can return
the names of all current active servers.  Basically when I open an access DB
I want it to run through I list of our server names then tell me if a
connection can be established.  

Thanks in advance for any help/code/pointers on this

Paul Hartland
Database Developer



From andy at minstersystems.co.uk  Fri Jan 27 09:35:58 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 15:35:58 +0000
Subject: [AccessD] Function Error
Message-ID: <20060127153555.34A7F256A81@smtp.nildram.co.uk>

Don't know for sure but Row has that ring about it.

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 15:22


That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2



From Gustav at cactus.dk  Fri Jan 27 09:36:31 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 27 Jan 2006 16:36:31 +0100
Subject: [AccessD] Field to small question
Message-ID: <s3da4c2c.067@cactus.dk>

Hi Joe

Well, if you changed it from 50 to 100 and the string is 150, it will still fail.

/gustav

>>> jmhecht at earthlink.net 27-01-2006 16:28:04 >>>
All I have one is change the field size setting at the table level.

> Why am I still getting the error?




From andy at minstersystems.co.uk  Fri Jan 27 09:38:19 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 15:38:19 +0000
Subject: [AccessD] Function Error
Message-ID: <20060127153816.469D6256AF9@smtp.nildram.co.uk>

Rows could be too. Is it worth trying 'RowNo' or something really obscure?
Could someone else with A2000 try this?

The other thing - is row numeric anyway? If so you don't want the two 's in
the SQL.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 15:33


Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error. Dang

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2



From jmhecht at earthlink.net  Fri Jan 27 09:43:54 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 27 Jan 2006 07:43:54 -0800
Subject: [AccessD] Field to small question
In-Reply-To: <s3da4c2c.067@cactus.dk>
Message-ID: <002801c62358$7ad80730$6701a8c0@HPLaptop>

Max size 7 characters. Field length  = 15

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Gustav Brock
Sent: Friday, January 27, 2006 7:37 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Field to small question

Hi Joe

Well, if you changed it from 50 to 100 and the string is
150, it will still fail.

/gustav

>>> jmhecht at earthlink.net 27-01-2006 16:28:04 >>>
All I have one is change the field size setting at the table
level.

> Why am I still getting the error?


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jmhecht at earthlink.net  Fri Jan 27 09:45:01 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 27 Jan 2006 07:45:01 -0800
Subject: [AccessD] Field to small question
In-Reply-To: <FED384E544086A47AAC07C0999BE8D1703D50AFB@albmsx2k.rt.oasas.state.ny.us>
Message-ID: <002901c62358$a2bdf4d0$6701a8c0@HPLaptop>

Will the control not read the change in length with removal
and replacement?

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Tesiny, Ed
Sent: Friday, January 27, 2006 7:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Field to small question

Did you delete the original field on the form and paste the
new one?

Ed Tesiny
EdTesiny at oasas.state.ny.us
 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
> Sent: Thursday, January 26, 2006 10:05 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Field to small question
> 
> I am getting a field too small error. I went to the proper
> table and enlarged the size of the field. I closed the
table
> so it should have been saved. The size is well larger then
> the data.
> 
>  
> 
> Why am I still getting the error?
> 
>  
> 
>  
> 
> Joe Hecht
> 
> jmhecht at earthlink.net
> 
>  
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From andy at minstersystems.co.uk  Fri Jan 27 09:51:32 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 15:51:32 +0000
Subject: [AccessD] Field to small question
Message-ID: <20060127155129.6F2BF256D11@smtp.nildram.co.uk>

It certainly will. But check other things, like Input Mask or code in
BeforeUpdate. Is the form definitely bound to that table?

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Field to small question
Date: 27/01/06 15:46


Will the control not read the change in length with removal
and replacement?

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Tesiny, Ed
Sent: Friday, January 27, 2006 7:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Field to small question

Did you delete the original field on the form and paste the
new one?

Ed Tesiny
EdTesiny at oasas.state.ny.us


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
> Sent: Thursday, January 26, 2006 10:05 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Field to small question
>
> I am getting a field too small error. I went to the proper
> table and enlarged the size of the field. I closed the
table
> so it should have been saved. The size is well larger then
> the data.
>
>
>
> Why am I still getting the error?
>
>
>
>
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2



From bchacc at san.rr.com  Fri Jan 27 09:54:39 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Fri, 27 Jan 2006 07:54:39 -0800
Subject: [AccessD] Field to small question
In-Reply-To: <002801c62358$7ad80730$6701a8c0@HPLaptop>
References: <002801c62358$7ad80730$6701a8c0@HPLaptop>
Message-ID: <43DA423F.3050408@san.rr.com>

Just to be sure I'd put a debug statement right before where it fails:

Msgbox  len(strMyString) & " *" & strMyString & "*"

I've been fooled before.

Rocky


Joe Hecht wrote:
> Max size 7 characters. Field length  = 15
>
> Joe Hecht
> jmhecht at earthlink.net
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Gustav Brock
> Sent: Friday, January 27, 2006 7:37 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Field to small question
>
> Hi Joe
>
> Well, if you changed it from 50 to 100 and the string is
> 150, it will still fail.
>
> /gustav
>
>   
>>>> jmhecht at earthlink.net 27-01-2006 16:28:04 >>>
>>>>         
> All I have one is change the field size setting at the table
> level.
>
>   
>> Why am I still getting the error?
>>     
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From cfoust at infostatsystems.com  Fri Jan 27 10:00:28 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 27 Jan 2006 08:00:28 -0800
Subject: [AccessD] [Fwd: Default Page Size]
Message-ID: <F55048AF7E974F429BB24597D7355EEABF66@INFOSERVER04.infostat.local>

I don't know if it would work there, Rocky.  Reports can be very
resistant to design changes in their Open events, but you could try it
by passing the papersize in to the report in OpenArgs and letting it set
its own papersize.  Another alternative if that didn't work would be to
dim a report object in the calling code, set to the report you're
opening and set the report's printer property from there.  

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
- Beach Access Software
Sent: Thursday, January 26, 2006 8:43 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] [Fwd: Default Page Size]



So, right code, wrong place? Should be in the open event of the report?

TIA

Rocky




Charlotte Foust wrote:
> All you're doing there is setting the paper size of the printer 
> object. You need to work the the Report's printer object.
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
> Smolin
> - Beach Access Software
> Sent: Thursday, January 26, 2006 9:25 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
> Charlotte:
>
> I put this code:
>
> If Me.fraPaperSize = 1 Then
>     Access.Printer.PaperSize = acPRPSLetter
> Else
>     Access.Printer.PaperSize = acPRPSA4
> End If
>
>
> into the event that calls the report in question.  On my printer it
> doesn't print any differently with either setting but I would expect 
> that, I guess as I haven't got any A4 paper to test it with.  I'll
send 
> it to the user to see if it solves the problem.
>
> But have I got the code right?  Should it go in the open event of the
> report itself instead of the calling procedure in the form?
>
> MTIA,
>
> Rocky
>
>   

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 10:04:38 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 09:04:38 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB50@srciml1.ds.doc.state.or.us>


Well I went through and changed it to BinRowNum and unfortunately I
still get the same error, this is giving me a headache and it's Friday. 

-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk] 
Sent: Friday, January 27, 2006 8:38 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Rows could be too. Is it worth trying 'RowNo' or something really
obscure?
Could someone else with A2000 try this?

The other thing - is row numeric anyway? If so you don't want the two 's
in the SQL.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 15:33


Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error. Dang

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jmhecht at earthlink.net  Fri Jan 27 10:12:26 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 27 Jan 2006 08:12:26 -0800
Subject: [AccessD] Field to small question
In-Reply-To: <20060127155129.6F2BF256D11@smtp.nildram.co.uk>
Message-ID: <002f01c6235c$771228c0$6701a8c0@HPLaptop>

I thought about that. I looked at the table relinker as this
project has morphed into a couple of back ends now and it
looked ok. Is there another way to check.

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Andy Lacey
Sent: Friday, January 27, 2006 7:52 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Field to small question

It certainly will. But check other things, like Input Mask
or code in
BeforeUpdate. Is the form definitely bound to that table?

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Field to small question
Date: 27/01/06 15:46


Will the control not read the change in length with removal
and replacement?

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Tesiny, Ed
Sent: Friday, January 27, 2006 7:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Field to small question

Did you delete the original field on the form and paste the
new one?

Ed Tesiny
EdTesiny at oasas.state.ny.us


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
> Sent: Thursday, January 26, 2006 10:05 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Field to small question
>
> I am getting a field too small error. I went to the proper
> table and enlarged the size of the field. I closed the
table
> so it should have been saved. The size is well larger then
> the data.
>
>
>
> Why am I still getting the error?
>
>
>
>
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From bchacc at san.rr.com  Fri Jan 27 10:12:55 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Fri, 27 Jan 2006 08:12:55 -0800
Subject: [AccessD] [Fwd: Default Page Size]
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF66@INFOSERVER04.infostat.local>
References: <F55048AF7E974F429BB24597D7355EEABF66@INFOSERVER04.infostat.local>
Message-ID: <43DA4687.6050003@san.rr.com>

Charlotte:

Thanks.  I'll try both.  But I'll have to test it long distance.  No A4 
paper here, and I don't know if I'd see any difference on my printer.  
As soon as this guy's back in Bangalore, we'll give it a go.

Best,

Rocky


Charlotte Foust wrote:
> I don't know if it would work there, Rocky.  Reports can be very
> resistant to design changes in their Open events, but you could try it
> by passing the papersize in to the report in OpenArgs and letting it set
> its own papersize.  Another alternative if that didn't work would be to
> dim a report object in the calling code, set to the report you're
> opening and set the report's printer property from there.  
>
> Charlotte Foust
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
> - Beach Access Software
> Sent: Thursday, January 26, 2006 8:43 PM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] [Fwd: Default Page Size]
>
>
>
> So, right code, wrong place? Should be in the open event of the report?
>
> TIA
>
> Rocky
>
>
>
>
> Charlotte Foust wrote:
>   
>> All you're doing there is setting the paper size of the printer 
>> object. You need to work the the Report's printer object.
>>
>> Charlotte Foust
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky 
>> Smolin
>> - Beach Access Software
>> Sent: Thursday, January 26, 2006 9:25 AM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] [Fwd: Default Page Size]
>>
>>
>> Charlotte:
>>
>> I put this code:
>>
>> If Me.fraPaperSize = 1 Then
>>     Access.Printer.PaperSize = acPRPSLetter
>> Else
>>     Access.Printer.PaperSize = acPRPSA4
>> End If
>>
>>
>> into the event that calls the report in question.  On my printer it
>> doesn't print any differently with either setting but I would expect 
>> that, I guess as I haven't got any A4 paper to test it with.  I'll
>>     
> send 
>   
>> it to the user to see if it solves the problem.
>>
>> But have I got the code right?  Should it go in the open event of the
>> report itself instead of the calling procedure in the form?
>>
>> MTIA,
>>
>> Rocky
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From andy at minstersystems.co.uk  Fri Jan 27 10:15:48 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 16:15:48 +0000
Subject: [AccessD] Function Error
Message-ID: <20060127161544.D70E2256C2A@smtp.nildram.co.uk>

Sorry about that Mike. Did you see my second suggestion? "The other thing -
is row numeric anyway? If so you don't want the two 's in the SQL."
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 16:06



Well I went through and changed it to BinRowNum and unfortunately I
still get the same error, this is giving me a headache and it's Friday.

-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:38 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Rows could be too. Is it worth trying 'RowNo' or something really
obscure?
Could someone else with A2000 try this?

The other thing - is row numeric anyway? If so you don't want the two 's
in the SQL.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 15:33


Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error. Dang

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2



From andy at minstersystems.co.uk  Fri Jan 27 10:20:12 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 16:20:12 +0000
Subject: [AccessD] Field to small question
Message-ID: <20060127162009.55A25256FD0@smtp.nildram.co.uk>

Open the tabel in design mode (in BE). Ignore warning about it being a
linked table. Once in design right-click and select Properties and you'll
get Table Properties which will show where it's linked to.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Field to small question
Date: 27/01/06 16:14


I thought about that. I looked at the table relinker as this
project has morphed into a couple of back ends now and it
looked ok. Is there another way to check.

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Andy Lacey
Sent: Friday, January 27, 2006 7:52 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Field to small question

It certainly will. But check other things, like Input Mask
or code in
BeforeUpdate. Is the form definitely bound to that table?

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Field to small question
Date: 27/01/06 15:46


Will the control not read the change in length with removal
and replacement?

Joe Hecht
jmhecht at earthlink.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Tesiny, Ed
Sent: Friday, January 27, 2006 7:06 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Field to small question

Did you delete the original field on the form and paste the
new one?

Ed Tesiny
EdTesiny at oasas.state.ny.us


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Joe Hecht
> Sent: Thursday, January 26, 2006 10:05 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Field to small question
>
> I am getting a field too small error. I went to the proper
> table and enlarged the size of the field. I closed the
table
> so it should have been saved. The size is well larger then
> the data.
>
>
>
> Why am I still getting the error?
>
>
>
>
>
> Joe Hecht
>
> jmhecht at earthlink.net
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2



From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 10:20:09 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 09:20:09 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB51@srciml1.ds.doc.state.or.us>

Nope the row field is text  :-( 

-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk] 
Sent: Friday, January 27, 2006 9:16 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Sorry about that Mike. Did you see my second suggestion? "The other
thing - is row numeric anyway? If so you don't want the two 's in the
SQL."
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 16:06



Well I went through and changed it to BinRowNum and unfortunately I
still get the same error, this is giving me a headache and it's Friday.

-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:38 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Rows could be too. Is it worth trying 'RowNo' or something really
obscure?
Could someone else with A2000 try this?

The other thing - is row numeric anyway? If so you don't want the two 's
in the SQL.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 15:33


Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error. Dang

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row"
Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL"
Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql
End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'"
Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'"
oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From Lambert.Heenan at AIG.com  Fri Jan 27 10:24:40 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Fri, 27 Jan 2006 10:24:40 -0600
Subject: [AccessD] Function Error
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1C1E6BF2@xlivmbx21.aig.com>

The SQL is treating Row as if it was a string value. 

WHERE Row = '" & j & "' ORDER BY

It's not actually numeric by any chance?


Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gowey Mike W
Sent: Friday, January 27, 2006 10:32 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error


Just for the heck of it I went through and changed Row to Rows and it didn't
solve the error.  Dang 

-----Original Message-----
From: Gowey Mike W 
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row sSql =
"SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' ORDER BY
Row" Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem with
the below function. Could someone please tell me why the highlighted part is
failing? I get a " Runtime error '5' Invalid procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row sSql =
"SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' ORDER BY
Row" Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "' AND
SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "' WHERE
Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql & "WHERE
EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'" oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From bchacc at san.rr.com  Fri Jan 27 10:40:06 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Fri, 27 Jan 2006 08:40:06 -0800
Subject: [AccessD] Field to small question
In-Reply-To: <002f01c6235c$771228c0$6701a8c0@HPLaptop>
References: <002f01c6235c$771228c0$6701a8c0@HPLaptop>
Message-ID: <43DA4CE6.8090601@san.rr.com>

Open the tabledef for the table and display the length of that field to 
see what the program is 'seeing'?

Rocky


Joe Hecht wrote:
> I thought about that. I looked at the table relinker as this
> project has morphed into a couple of back ends now and it
> looked ok. Is there another way to check.
>
> Joe Hecht
> jmhecht at earthlink.net
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Andy Lacey
> Sent: Friday, January 27, 2006 7:52 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Field to small question
>
> It certainly will. But check other things, like Input Mask
> or code in
> BeforeUpdate. Is the form definitely bound to that table?
>
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
>
>
>
> --------- Original Message --------
> From: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Field to small question
> Date: 27/01/06 15:46
>
>
> Will the control not read the change in length with removal
> and replacement?
>
> Joe Hecht
> jmhecht at earthlink.net
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Tesiny, Ed
> Sent: Friday, January 27, 2006 7:06 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Field to small question
>
> Did you delete the original field on the form and paste the
> new one?
>
> Ed Tesiny
> EdTesiny at oasas.state.ny.us
>
>
>   
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>>     
> Joe Hecht
>   
>> Sent: Thursday, January 26, 2006 10:05 PM
>> To: 'Access Developers discussion and problem solving'
>> Subject: [AccessD] Field to small question
>>
>> I am getting a field too small error. I went to the proper
>> table and enlarged the size of the field. I closed the
>>     
> table
>   
>> so it should have been saved. The size is well larger then
>> the data.
>>
>>
>>
>> Why am I still getting the error?
>>
>>
>>
>>
>>
>> Joe Hecht
>>
>> jmhecht at earthlink.net
>>
>>
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>>     
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> ________________________________________________
> Message sent using UebiMiau 2.7.2
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Fri Jan 27 10:41:04 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Fri, 27 Jan 2006 08:41:04 -0800
Subject: [AccessD] Field to small question
In-Reply-To: <20060127162009.55A25256FD0@smtp.nildram.co.uk>
References: <20060127162009.55A25256FD0@smtp.nildram.co.uk>
Message-ID: <43DA4D20.3080001@san.rr.com>

He'll also be able to see the field length as well, yes?

Rocky


Andy Lacey wrote:
> Open the tabel in design mode (in BE). Ignore warning about it being a
> linked table. Once in design right-click and select Properties and you'll
> get Table Properties which will show where it's linked to.
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
>
>
>
> --------- Original Message --------
> From: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Field to small question
> Date: 27/01/06 16:14
>
>
> I thought about that. I looked at the table relinker as this
> project has morphed into a couple of back ends now and it
> looked ok. Is there another way to check.
>
> Joe Hecht
> jmhecht at earthlink.net
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Andy Lacey
> Sent: Friday, January 27, 2006 7:52 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Field to small question
>
> It certainly will. But check other things, like Input Mask
> or code in
> BeforeUpdate. Is the form definitely bound to that table?
>
> --
> Andy Lacey
> http://www.minstersystems.co.uk
>
>
>
>
> --------- Original Message --------
> From: "Access Developers discussion and problem solving"
> <accessd at databaseadvisors.com>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Field to small question
> Date: 27/01/06 15:46
>
>
> Will the control not read the change in length with removal
> and replacement?
>
> Joe Hecht
> jmhecht at earthlink.net
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
> Tesiny, Ed
> Sent: Friday, January 27, 2006 7:06 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Field to small question
>
> Did you delete the original field on the form and paste the
> new one?
>
> Ed Tesiny
> EdTesiny at oasas.state.ny.us
>
>
>   
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
>>     
> Joe Hecht
>   
>> Sent: Thursday, January 26, 2006 10:05 PM
>> To: 'Access Developers discussion and problem solving'
>> Subject: [AccessD] Field to small question
>>
>> I am getting a field too small error. I went to the proper
>> table and enlarged the size of the field. I closed the
>>     
> table
>   
>> so it should have been saved. The size is well larger then
>> the data.
>>
>>
>>
>> Why am I still getting the error?
>>
>>
>>
>>
>>
>> Joe Hecht
>>
>> jmhecht at earthlink.net
>>
>>
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>>     
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> ________________________________________________
> Message sent using UebiMiau 2.7.2
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> ________________________________________________
> Message sent using UebiMiau 2.7.2
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 10:45:14 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 09:45:14 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB52@srciml1.ds.doc.state.or.us>

Nope it's not numeric.  I went through and changed the Row field to
numeric and adjusted the statement to take out the single quotes but I
still get the same error. 

-----Original Message-----
From: Heenan, Lambert [mailto:Lambert.Heenan at AIG.com] 
Sent: Friday, January 27, 2006 9:25 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Function Error

The SQL is treating Row as if it was a string value. 

WHERE Row = '" & j & "' ORDER BY

It's not actually numeric by any chance?


Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gowey Mike W
Sent: Friday, January 27, 2006 10:32 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error


Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error.  Dang 

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From andy at minstersystems.co.uk  Fri Jan 27 10:57:23 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 16:57:23 +0000
Subject: [AccessD] Function Error
Message-ID: <20060127165720.34F4325685C@smtp.nildram.co.uk>

Clutching at straws. Tried putting [] around SID, Row (twice) and the query
name?

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 16:47


Nope it's not numeric. I went through and changed the Row field to
numeric and adjusted the statement to take out the single quotes but I
still get the same error.

-----Original Message-----
From: Heenan, Lambert [mailto:Lambert.Heenan at AIG.com]
Sent: Friday, January 27, 2006 9:25 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Function Error

The SQL is treating Row as if it was a string value.

WHERE Row = '" & j & "' ORDER BY

It's not actually numeric by any chance?


Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gowey Mike W
Sent: Friday, January 27, 2006 10:32 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error


Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error. Dang

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2



From jwelz at hotmail.com  Fri Jan 27 11:00:53 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Fri, 27 Jan 2006 10:00:53 -0700
Subject: [AccessD] Friday:  Access 2003 Help
In-Reply-To: <BAY113-W28D536295565AF89590CDA1150@phx.gbl>
Message-ID: <BAY113-F1670E78A2DF12CBB00EA4DA1140@phx.gbl>

>From the Access 2003 help topic:  Tips for improving the performance of 
Microsoft Access and your system.

'Increase RAM on your computer. 40 MB of memory is recommended? 32 MB of 
memory plus an additional 8 MB of memory for Microsoft Access.'

I'll get right on that one...


Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: J?rgen Welz <jwelz at hotmail.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem 
>solving"<accessd at databaseadvisors.com>
>Subject: Re: [AccessD] Same form, different actions
>Date: Thu, 26 Jan 2006 14:24:04 -0700
>MIME-Version: 1.0
>X-Originating-IP: [65.54.168.200]
>X-Originating-Email: [jwelz at hotmail.com]
>Received: from databaseadvisors.com ([209.135.140.44]) by 
>bay0-mc2-f7.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.211); Thu, 26 
>Jan 2006 13:25:16 -0800
>Received: from databaseadvisors.com (databaseadvisors.com 
>[209.135.140.44])by databaseadvisors.com (8.11.6/8.11.6) with ESMTP id 
>k0QLO5128567;Thu, 26 Jan 2006 15:24:05 -0600
>Received: from omc2-s28.bay6.hotmail.com 
>(omc2-s28.bay6.hotmail.com[65.54.249.38])by databaseadvisors.com 
>(8.11.6/8.11.6) with ESMTP id k0QLO3128556for 
><accessd at databaseadvisors.com>; Thu, 26 Jan 2006 15:24:03 -0600
>Received: from BAY113-W2 ([65.54.168.102]) by omc2-s28.bay6.hotmail.com 
>withMicrosoft SMTPSVC(6.0.3790.211); Thu, 26 Jan 2006 13:24:04 -0800
>X-Message-Info: LGjzam7y+LtmkF+qp9XD5nYIrt8y5mxH9Xzqiqe+GtI=
>X-OriginalArrivalTime: 26 Jan 2006 21:24:04.0719 
>(UTC)FILETIME=[D57827F0:01C622BE]
>X-Content-Filtered-By: Mailman/MimeDel 2.1.7-SiteWide-HeaderFooter
>X-BeenThere: accessd at databaseadvisors.com
>X-Mailman-Version: 2.1.7-SiteWide-HeaderFooter
>Precedence: list
>List-Id: Access Developers discussion and problem 
>solving<accessd.databaseadvisors.com>
>List-Unsubscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=unsubscribe>
>List-Archive: <http://databaseadvisors.com/pipermail/accessd>
>List-Post: <mailto:accessd at databaseadvisors.com>
>List-Help: <mailto:accessd-request at databaseadvisors.com?subject=help>
>List-Subscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=subscribe>
>Errors-To: accessd-bounces at databaseadvisors.com
>Return-Path: accessd-bounces at databaseadvisors.com
>
>This question is akin to the Library Database structure poser a couple days 
>ago.
>
>Checkboxes against roles work, but your giving up some normalization there. 
>  A junction table between the Entity and the Role is a more normalized 
>approach.  You'll give up a bit of speed as the number of records involved 
>in a query and its index goes up to the number of entities times the 
>average number of roles so the size of the data to be joined goes up in 
>proportion to the additional number of records and of course, the 
>processing of the join involves more processor cycles so the normalization 
>may bite a bit.  For better speed you can go with the flatter checkbox 
>approach, and for faster yet, that whole query by join on a bit will get 
>you 8 categories in a single byte field.  But I digress...
>
>For a law office database with similar considerations, I used a parent form 
>with a lookup combo and some search and navigation buttons that covered all 
>categories.  This parent form contained the basic universal information 
>about the person/corporate body.  When the user selected a person or 
>corporate body, various tabs became visible, each containing a subform that 
>had records pertaining to that category.  Generally, records within a 
>subform category were added from the subform and if no records existed, the 
>subform was simply not visible.  The user could pick a type of record from 
>the parent that would force the addition and display of an appropriate 
>subform.  For example, if a name happened to be that of a person on whose 
>behalf we had acted, a subform would open displaying the file numbers and 
>the capacity in which the person was related to the file.  A subform with 
>related parties showed the corporate bodies to which he was related as well 
>as the capacity in which he is related.  If the person was also a client on 
>a real estate transaction and his spouse was on the title, that name showed 
>as spouse.  There is another subform that contains Addresses and a further 
>one with Phone contact information.  In such a case, the person could be 
>related as a client.  If that person was also a lawyer, the related files 
>subform shows file numbers and capacity (opposing counsel, other lawyer on 
>a real estate transaction) and the related parties subform shows his legal 
>firm, assistant, reception...  If you happened to have spouse, child or 
>other affiliation, one simply needs to add that person and select a 
>capacity.
>
>I did the same thing with addresses and phone numbers.  An address could be 
>information about a property being bought or sold, but it is likely also a 
>past or present address of a client effective as at a certain date.  The 
>address of a corporation connected as a location address (as opposed to 
>mailing address) would also be the business address of a person associated 
>to the business as an employee or a lawyer.  The master address form has 
>subforms showing related parties, the capacity of the relation (home, 
>office..), related files where the property is related to a file (sale, 
>lien, tax appeal) and related phone numbers (If a law firm has the address, 
>a switchboard number is also a number for the lawyers and assistants and 
>individuals can have direct lines as well).
>
>The master phone number form has subforms that display addresses (if they 
>exist.  For a cell, the address subform would not be visible), parties that 
>may be reached by the number and their association to that number.
>
>Using JIT subforms where you set the recordsource on the fly to an 
>appropriately parameterized query makes this real fast.
>
>It is easy to control phone number formatting and I allow users to enter 
>phone numbers directly in a subform.  Before adding, the system looks up 
>the number and if it exists, displays related parties and the relationship 
>in a pop up.  This is useful in determining relationships between parties.  
>Addresses are more difficult in that there are many variations in 
>abbreviations and format.  I just have users follow Canada Post guidelines 
>and provide a merge feature to combine related addresses to keep down 
>duplications.Ciao
>J?rgen Welz
>Edmonton, Alberta
>jwelz at hotmail.com
>
>
>
> > Date: Thu, 26 Jan 2006 15:23:58 -0500> From: 
>John.Clark at niagaracounty.com> > First, I've started two requests for help 
>over the past couple of days,> only to discover the problem, while actually 
>typing the Emails...see,> y'all have learned me some things, since I've 
>been hanging out here.> > Well, it appears my luck may have run out. 
>Actually, I can think of a> couple different ways to do what I am now 
>trying to do, but I want to do> it correctly...something else I've learned 
>here...so I want to run it by> the list members.> > First I'll give you a 
>little background on the program, which is being> written in A2K. It is a 
>case tracking program for our DA's office, and I> have chosen to lump all 
>names together (i.e. lawyers, defendants,> victims, judges, etc.) in a 
>single table and, using checkboxes,> designate what role(s) they fulfill. 
>The purpose of doing this was to> avoid missing people already in the 
>system, in another designation than> they are currently being entered as. 
>It is usefull for them to know if a> defendant has been a victim, or visa 
>versa, and theoratically, a name> can be in the system as all of these 
>designations. I used the scenario> of an ADA, who becomes a defense 
>attorney, then become a judge, then> they are mugged, thus becoming a 
>victim, which makes them lose it and> take revenge on their attacker, which 
>makes them a defendant...they> would then be in all categories...unlikely 
>but possible.> > So, I've got a form called frm_Subjects, which allows 
>entry of names> and their "designations." The main form of the program is 
>the form,> "frmIndictments" and on this form, which basically a case by 
>case entry,> there is a drop down box to choose a defendant, from a list of 
>names.> Using a union query, I have set the top option to be, "".> When 
>they choose this option, I want to take them to the "frm_Subjects"> form. 
>OK, I'm good up to this point.> > The problem is however, can I use this 
>same form, yet have it react> differently? For instance, I've already got 
>it opening up as an "entry> form" with the way I am calling it from the 
>parent form (i.e.> "DoCmd.OpenForm "frm_Subjects", acNormal, , , 
>acFormAdd,> acWindowNormal"). But, when I exit that form it returns to the 
>menu, as> I've told it to do, and as I normally would want it to do. But, 
>when it> is accessed via the other form, I want it to return to that form, 
>and> place the chosen name into the combo box, which is bound to the 
>table.> > The possibilites I've thought of so far are:> > 1) set up a 
>parameter in the On Open event of that form...I don't even> know if this is 
>possible, now that I'm thinking about it...and check for> this when I have 
>it do things. Maybe it defaults to a "0" and works the> way it is now 
>working, but if called from the other form, it gets a "1"> and does things 
>slightly different.> > or 2) Cut my losses and just make a copy of the form 
>and have this copy> do the different actions, and call this one from the 
>other form. I'm> guessing this will be the answer.> > Thank you!> > John W 
>Clark
>_________________________________________________________________
>Express yourself instantly with MSN Messenger! Download today it's FREE!
>http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 11:01:27 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 10:01:27 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB54@srciml1.ds.doc.state.or.us>


You mean something like this?

sSql = "SELECT [SID], [Row] FROM qryInmatesBinNumberUpdate WHERE [Row] =
'" & j & "' ORDER BY Row" 

-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk] 
Sent: Friday, January 27, 2006 9:57 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Clutching at straws. Tried putting [] around SID, Row (twice) and the
query name?

--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 16:47


Nope it's not numeric. I went through and changed the Row field to
numeric and adjusted the statement to take out the single quotes but I
still get the same error.

-----Original Message-----
From: Heenan, Lambert [mailto:Lambert.Heenan at AIG.com]
Sent: Friday, January 27, 2006 9:25 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Function Error

The SQL is treating Row as if it was a string value.

WHERE Row = '" & j & "' ORDER BY

It's not actually numeric by any chance?


Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gowey Mike W
Sent: Friday, January 27, 2006 10:32 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error


Just for the heck of it I went through and changed Row to Rows and it
didn't solve the error. Dang

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 8:21 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

That's a good question, it works fine in 97, did they change it in 2000?


-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 8:18 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Is Row perchance a reserved word?
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Subject: Re: [AccessD] Function Error
Date: 27/01/06 14:58



Sorry the highlight didn't show, the part it starts failing at is here:

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

-----Original Message-----
From: Gowey Mike W
Sent: Friday, January 27, 2006 7:54 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Function Error


I'm converting a database from 97 to 2000 and have run into a problem
with the below function. Could someone please tell me why the
highlighted part is failing? I get a " Runtime error '5' Invalid
procedure call "


Public Function UpdateSID4Bin() As Boolean

Dim oDB As Database
Dim oRS As Recordset
Dim oRSBins As Recordset
Dim sSql As String
Dim j As Long
Dim vRtn As Variant

UpdateSID4Bin = False

Set oDB = CurrentDb

DoCmd.Hourglass True

' display message in status bar
vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
SIDs...", 10)

For j = 0 To 9
' update meter
vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents

' get all SIDs that are not assigned a bin number for the current row
sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

Do While Not oRS.EOF
' grab an empty bin for the current row
sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)

If Not oRSBins.EOF Then
' update empty bin with current SID
sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
oDB.Execute sSql End If

' get next SID
oRS.MoveNext

Loop
Next

UpdateSID4Bin = True

ExitFunction:
On Error Resume Next

oRS.Close
oRSBins.Close
oDB.Close

Set oRS = Nothing
Set oRSBins = Nothing
Set oDB = Nothing

DoCmd.Hourglass False
vRtn = SysCmd(acSysCmdRemoveMeter)

End Function

Public Function CheckEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim sSql As String

CheckEvent = False

Set oDB = CurrentDb

sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
"WHERE EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)

With oRS
If Not .EOF Then
CheckEvent = (.Fields(0) = True)
End If
End With

ExitFunction:
On Error Resume Next

oRS.Close
oDB.Close

Set oRS = Nothing
Set oDB = Nothing

End Function

Public Sub InitDownloadEvents()

Dim oDB As DAO.Database
Dim sSql As String

' init events
Set oDB = CurrentDb
sSql = "UPDATE DownloadEvents SET Complete = False"
oDB.Execute sSql

oDB.Close
Set oDB = Nothing

End Sub

Public Function SetEvent(pEvent As String) As Boolean

Dim oDB As DAO.Database
Dim sSql As String

SetEvent = False

Set oDB = CurrentDb

sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
& "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql

SetEvent = True

ExitFunction:
On Error Resume Next

oDB.Close
Set oDB = Nothing

End Function


Thanks in advance for any help provided.


Mike Gowey MCP, MCDST, A+, LME, NET+
Team Leader - SouthEast Region
Information Systems Unit



________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From Patricia.O'Connor at otda.state.ny.us  Fri Jan 27 11:04:09 2006
From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA))
Date: Fri, 27 Jan 2006 12:04:09 -0500
Subject: [AccessD] Report formatting - figured out sum
Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B23A9@EXCNYSM0A1AI.nysemail.nyenet>

Ok I figured out my SUM portion of the problem - still need help with
printing problem
Thanks
Patti
**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
**************************************************


> 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system. 


_____________________________________________ 

> From: 	O'Connor, Patricia (OTDA)  
> Sent:	Friday, January 27, 2006 11:56 AM
> To:	'Access Developers discussion and problem solving'
> Subject:	Report formatting
> 
> Hi all
> 
> I have a report with two groupings 
>    Main grouping is RPT_GRP_TYPE which has 4 types.  Type 1-3 will
> contain records that have a Case information and currency amount.  The
> last group is just going to contain the Case information since these
> cases did not get payments. 
> 
>    The second grouping is by CASE and I want to sum the currency
> amount for each case.  It works fine. How do I get the Case footer to
> not try and print the sum for the Last MAIN group since there is no
> payments?
> 
> Another question - how do I get the total amount paid to only sum the
> amount for each case
> I am having a bit of a brain cramp - been working on Sql portion for a
> day.
> 
> Thanks!!!
> 
>  << OLE Object: Picture (Metafile) >> 
>


From jwelz at hotmail.com  Fri Jan 27 11:05:52 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Fri, 27 Jan 2006 10:05:52 -0700
Subject: [AccessD] Function Error
In-Reply-To: <20060127165720.34F4325685C@smtp.nildram.co.uk>
Message-ID: <BAY113-F32BD99D806504BA42F79CFA1140@phx.gbl>

Put in a colon at the end of 'Order by Row"

original

sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

revised

sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
"' ORDER BY Row": Set oRS = oDB.OpenRecordset(sSql)



Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>--------- Original Message --------
>
>Sorry the highlight didn't show, the part it starts failing at is here:
>
>' get all SIDs that are not assigned a bin number for the current row
>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
>"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>
>-----Original Message-----
>From: Gowey Mike W
>Sent: Friday, January 27, 2006 7:54 AM
>To: Access Developers discussion and problem solving
>Subject: [AccessD] Function Error
>
>
>I'm converting a database from 97 to 2000 and have run into a problem
>with the below function. Could someone please tell me why the
>highlighted part is failing? I get a " Runtime error '5' Invalid
>procedure call "
>
>
>Public Function UpdateSID4Bin() As Boolean
>
>Dim oDB As Database
>Dim oRS As Recordset
>Dim oRSBins As Recordset
>Dim sSql As String
>Dim j As Long
>Dim vRtn As Variant
>
>UpdateSID4Bin = False
>
>Set oDB = CurrentDb
>
>DoCmd.Hourglass True
>
>' display message in status bar
>vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
>SIDs...", 10)
>
>For j = 0 To 9
>' update meter
>vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents
>
>' get all SIDs that are not assigned a bin number for the current row
>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
>"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>
>Do While Not oRS.EOF
>' grab an empty bin for the current row
>sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = '" & j & "'
>AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)
>
>If Not oRSBins.EOF Then
>' update empty bin with current SID
>sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
>WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
>oDB.Execute sSql End If
>
>' get next SID
>oRS.MoveNext
>
>Loop
>Next
>
>UpdateSID4Bin = True
>
>ExitFunction:
>On Error Resume Next
>
>oRS.Close
>oRSBins.Close
>oDB.Close
>
>Set oRS = Nothing
>Set oRSBins = Nothing
>Set oDB = Nothing
>
>DoCmd.Hourglass False
>vRtn = SysCmd(acSysCmdRemoveMeter)
>
>End Function
>
>Public Function CheckEvent(pEvent As String) As Boolean
>
>Dim oDB As DAO.Database
>Dim oRS As DAO.Recordset
>Dim sSql As String
>
>CheckEvent = False
>
>Set oDB = CurrentDb
>
>sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
>"WHERE EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)
>
>With oRS
>If Not .EOF Then
>CheckEvent = (.Fields(0) = True)
>End If
>End With
>
>ExitFunction:
>On Error Resume Next
>
>oRS.Close
>oDB.Close
>
>Set oRS = Nothing
>Set oDB = Nothing
>
>End Function
>
>Public Sub InitDownloadEvents()
>
>Dim oDB As DAO.Database
>Dim sSql As String
>
>' init events
>Set oDB = CurrentDb
>sSql = "UPDATE DownloadEvents SET Complete = False"
>oDB.Execute sSql
>
>oDB.Close
>Set oDB = Nothing
>
>End Sub
>
>Public Function SetEvent(pEvent As String) As Boolean
>
>Dim oDB As DAO.Database
>Dim sSql As String
>
>SetEvent = False
>
>Set oDB = CurrentDb
>
>sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = sSql
>& "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql
>
>SetEvent = True
>
>ExitFunction:
>On Error Resume Next
>
>oDB.Close
>Set oDB = Nothing
>
>End Function
>
>
>Thanks in advance for any help provided.
>
>
>Mike Gowey MCP, MCDST, A+, LME, NET+
>Team Leader - SouthEast Region
>Information Systems Unit
>
>
>
>________________________________________________
>Message sent using UebiMiau 2.7.2
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>________________________________________________
>Message sent using UebiMiau 2.7.2
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From Patricia.O'Connor at otda.state.ny.us  Fri Jan 27 11:06:55 2006
From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA))
Date: Fri, 27 Jan 2006 12:06:55 -0500
Subject: [AccessD] Report formatting
Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B23AA@EXCNYSM0A1AI.nysemail.nyenet>

Hi all

I have a report with two groupings 
   Main grouping is RPT_GRP_TYPE which has 4 types.  Type 1-3 will
contain records that have a Case information and currency amount.  The
last group is just going to contain the Case information since these
cases did not get payments. 

   The second grouping is by CASE and I want to sum the currency amount
for each case.  It works fine. How do I get the Case footer to not try
and print the sum for the Last MAIN group since there is no payments?

Another question - how do I get the total amount paid to only sum the
amount for each case
I am having a bit of a brain cramp - been working on Sql portion for a
day.

Thanks!!!
**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
************************************************** 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system.


From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 11:12:43 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 10:12:43 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB56@srciml1.ds.doc.state.or.us>


The original actually looks like this

sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' ORDER BY Row" 
Set oRS = oDB.OpenRecordset(sSql)
 
So a colon won't help, thanks for the thought

-----Original Message-----
From: J??rgen Welz [mailto:jwelz at hotmail.com] 
Sent: Friday, January 27, 2006 10:06 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Function Error

Put in a colon at the end of 'Order by Row"

original

sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)

revised

sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' ORDER BY Row": Set oRS = oDB.OpenRecordset(sSql)



Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>--------- Original Message --------
>
>Sorry the highlight didn't show, the part it starts failing at is here:
>
>' get all SIDs that are not assigned a bin number for the current row 
>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & 
>"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>
>-----Original Message-----
>From: Gowey Mike W
>Sent: Friday, January 27, 2006 7:54 AM
>To: Access Developers discussion and problem solving
>Subject: [AccessD] Function Error
>
>
>I'm converting a database from 97 to 2000 and have run into a problem 
>with the below function. Could someone please tell me why the 
>highlighted part is failing? I get a " Runtime error '5' Invalid 
>procedure call "
>
>
>Public Function UpdateSID4Bin() As Boolean
>
>Dim oDB As Database
>Dim oRS As Recordset
>Dim oRSBins As Recordset
>Dim sSql As String
>Dim j As Long
>Dim vRtn As Variant
>
>UpdateSID4Bin = False
>
>Set oDB = CurrentDb
>
>DoCmd.Hourglass True
>
>' display message in status bar
>vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New 
>SIDs...", 10)
>
>For j = 0 To 9
>' update meter
>vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents
>
>' get all SIDs that are not assigned a bin number for the current row 
>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & 
>"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>
>Do While Not oRS.EOF
>' grab an empty bin for the current row sSql = "SELECT TOP 1 BinNum 
>FROM BinNumSIDAssign WHERE Row = '" & j & "'
>AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)
>
>If Not oRSBins.EOF Then
>' update empty bin with current SID
>sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
>WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
>oDB.Execute sSql End If
>
>' get next SID
>oRS.MoveNext
>
>Loop
>Next
>
>UpdateSID4Bin = True
>
>ExitFunction:
>On Error Resume Next
>
>oRS.Close
>oRSBins.Close
>oDB.Close
>
>Set oRS = Nothing
>Set oRSBins = Nothing
>Set oDB = Nothing
>
>DoCmd.Hourglass False
>vRtn = SysCmd(acSysCmdRemoveMeter)
>
>End Function
>
>Public Function CheckEvent(pEvent As String) As Boolean
>
>Dim oDB As DAO.Database
>Dim oRS As DAO.Recordset
>Dim sSql As String
>
>CheckEvent = False
>
>Set oDB = CurrentDb
>
>sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql & 
>"WHERE EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)
>
>With oRS
>If Not .EOF Then
>CheckEvent = (.Fields(0) = True)
>End If
>End With
>
>ExitFunction:
>On Error Resume Next
>
>oRS.Close
>oDB.Close
>
>Set oRS = Nothing
>Set oDB = Nothing
>
>End Function
>
>Public Sub InitDownloadEvents()
>
>Dim oDB As DAO.Database
>Dim sSql As String
>
>' init events
>Set oDB = CurrentDb
>sSql = "UPDATE DownloadEvents SET Complete = False"
>oDB.Execute sSql
>
>oDB.Close
>Set oDB = Nothing
>
>End Sub
>
>Public Function SetEvent(pEvent As String) As Boolean
>
>Dim oDB As DAO.Database
>Dim sSql As String
>
>SetEvent = False
>
>Set oDB = CurrentDb
>
>sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql = 
>sSql & "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql
>
>SetEvent = True
>
>ExitFunction:
>On Error Resume Next
>
>oDB.Close
>Set oDB = Nothing
>
>End Function
>
>
>Thanks in advance for any help provided.
>
>
>Mike Gowey MCP, MCDST, A+, LME, NET+
>Team Leader - SouthEast Region
>Information Systems Unit
>
>
>
>________________________________________________
>Message sent using UebiMiau 2.7.2
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>________________________________________________
>Message sent using UebiMiau 2.7.2
>
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com






From Jim.Hale at FleetPride.com  Fri Jan 27 11:13:40 2006
From: Jim.Hale at FleetPride.com (Hale, Jim)
Date: Fri, 27 Jan 2006 11:13:40 -0600
Subject: [AccessD] Function Error
Message-ID: <6A6AA9DF57E4F046BDA1E273BDDB67727DD9BF@corp-es01.fleetpride.com>

Did you check references to make sure DAO was properly checked?
Jim Hale

-----Original Message-----
From: Gowey Mike W [mailto:Mike.W.Gowey at doc.state.or.us]
Sent: Friday, January 27, 2006 11:01 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error



You mean something like this?

sSql = "SELECT [SID], [Row] FROM qryInmatesBinNumberUpdate WHERE [Row] =
'" & j & "' ORDER BY Row" 

-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk] 
Sent: Friday, January 27, 2006 9:57 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Clutching at straws. Tried putting [] around SID, Row (twice) and the
query name?

--
Andy Lacey
http://www.minstersystems.co.uk

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.

From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 11:22:19 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 10:22:19 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780108E7@srciml1.ds.doc.state.or.us>

Yes, I go through this same type of sql statements a couple times before
I even get to this one and they work fine, it is something to do with
this statement that it does not like.  I am stumped. 

-----Original Message-----
From: Hale, Jim [mailto:Jim.Hale at FleetPride.com] 
Sent: Friday, January 27, 2006 10:14 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Function Error

Did you check references to make sure DAO was properly checked?
Jim Hale

-----Original Message-----
From: Gowey Mike W [mailto:Mike.W.Gowey at doc.state.or.us]
Sent: Friday, January 27, 2006 11:01 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error



You mean something like this?

sSql = "SELECT [SID], [Row] FROM qryInmatesBinNumberUpdate WHERE [Row] =
'" & j & "' ORDER BY Row" 

-----Original Message-----
From: Andy Lacey [mailto:andy at minstersystems.co.uk]
Sent: Friday, January 27, 2006 9:57 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

Clutching at straws. Tried putting [] around SID, Row (twice) and the
query name?

--
Andy Lacey
http://www.minstersystems.co.uk

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or other
use of or taking action in reliance upon this information by persons or
entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email, you
are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jwelz at hotmail.com  Fri Jan 27 11:26:22 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Fri, 27 Jan 2006 10:26:22 -0700
Subject: [AccessD] Function Error
In-Reply-To: <05EBB8A3BEB95B4F8216BE4EF48607780579BB56@srciml1.ds.doc.state.or.us>
Message-ID: <BAY113-F279BE95E954B5674265F34A1140@phx.gbl>

Try commenting out the sysCmd.  It frequently fails on the systems I work 
on.

So does it fail when you set the string value or when you OpenRecordset?

If OpenRecordset:

Try replacing oDB with CurrentDb.

Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Gowey Mike W" <Mike.W.Gowey at doc.state.or.us>

>The original actually looks like this
>
>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' 
>ORDER BY Row"
>Set oRS = oDB.OpenRecordset(sSql)
>
>So a colon won't help, thanks for the thought
>
>-----Original Message-----
>From: J??rgen Welz [mailto:jwelz at hotmail.com]
>
>Put in a colon at the end of 'Order by Row"
>
>original
>
>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' 
>ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>
>revised
>
>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' 
>ORDER BY Row": Set oRS = oDB.OpenRecordset(sSql)
>
>
>
>Ciao
>J?rgen Welz
>Edmonton, Alberta
>jwelz at hotmail.com
>
>
>
>
>
> >--------- Original Message --------
> >
> >Sorry the highlight didn't show, the part it starts failing at is here:
> >
> >' get all SIDs that are not assigned a bin number for the current row
> >sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
> >"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
> >
> >-----Original Message-----
> >From: Gowey Mike W
> >Sent: Friday, January 27, 2006 7:54 AM
> >To: Access Developers discussion and problem solving
> >Subject: [AccessD] Function Error
> >
> >
> >I'm converting a database from 97 to 2000 and have run into a problem
> >with the below function. Could someone please tell me why the
> >highlighted part is failing? I get a " Runtime error '5' Invalid
> >procedure call "
> >
> >
> >Public Function UpdateSID4Bin() As Boolean
> >
> >Dim oDB As Database
> >Dim oRS As Recordset
> >Dim oRSBins As Recordset
> >Dim sSql As String
> >Dim j As Long
> >Dim vRtn As Variant
> >
> >UpdateSID4Bin = False
> >
> >Set oDB = CurrentDb
> >
> >DoCmd.Hourglass True
> >
> >' display message in status bar
> >vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
> >SIDs...", 10)
> >
> >For j = 0 To 9
> >' update meter
> >vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents
> >
> >' get all SIDs that are not assigned a bin number for the current row
> >sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
> >"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
> >
> >Do While Not oRS.EOF
> >' grab an empty bin for the current row sSql = "SELECT TOP 1 BinNum
> >FROM BinNumSIDAssign WHERE Row = '" & j & "'
> >AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)
> >
> >If Not oRSBins.EOF Then
> >' update empty bin with current SID
> >sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
> >WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
> >oDB.Execute sSql End If
> >
> >' get next SID
> >oRS.MoveNext
> >
> >Loop
> >Next
> >
> >UpdateSID4Bin = True
> >
> >ExitFunction:
> >On Error Resume Next
> >
> >oRS.Close
> >oRSBins.Close
> >oDB.Close
> >
> >Set oRS = Nothing
> >Set oRSBins = Nothing
> >Set oDB = Nothing
> >
> >DoCmd.Hourglass False
> >vRtn = SysCmd(acSysCmdRemoveMeter)
> >
> >End Function
> >
> >Public Function CheckEvent(pEvent As String) As Boolean
> >
> >Dim oDB As DAO.Database
> >Dim oRS As DAO.Recordset
> >Dim sSql As String
> >
> >CheckEvent = False
> >
> >Set oDB = CurrentDb
> >
> >sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
> >"WHERE EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)
> >
> >With oRS
> >If Not .EOF Then
> >CheckEvent = (.Fields(0) = True)
> >End If
> >End With
> >
> >ExitFunction:
> >On Error Resume Next
> >
> >oRS.Close
> >oDB.Close
> >
> >Set oRS = Nothing
> >Set oDB = Nothing
> >
> >End Function
> >
> >Public Sub InitDownloadEvents()
> >
> >Dim oDB As DAO.Database
> >Dim sSql As String
> >
> >' init events
> >Set oDB = CurrentDb
> >sSql = "UPDATE DownloadEvents SET Complete = False"
> >oDB.Execute sSql
> >
> >oDB.Close
> >Set oDB = Nothing
> >
> >End Sub
> >
> >Public Function SetEvent(pEvent As String) As Boolean
> >
> >Dim oDB As DAO.Database
> >Dim sSql As String
> >
> >SetEvent = False
> >
> >Set oDB = CurrentDb
> >
> >sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql =
> >sSql & "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql
> >
> >SetEvent = True
> >
> >ExitFunction:
> >On Error Resume Next
> >
> >oDB.Close
> >Set oDB = Nothing
> >
> >End Function
> >
> >
> >Thanks in advance for any help provided.
> >
> >
> >Mike Gowey MCP, MCDST, A+, LME, NET+
> >Team Leader - SouthEast Region
> >Information Systems Unit




From Gustav at cactus.dk  Fri Jan 27 11:34:38 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 27 Jan 2006 18:34:38 +0100
Subject: [AccessD] Function Error
Message-ID: <s3da67cd.073@cactus.dk>

Hi Mike, you didn't reveal the result of this:

>2005-01-27 16:09:23

Have you tried running this on its own: 

  qryInmatesBinNumberUpdate

and this in a new query:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'

or should it be:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0

/gustav




From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 11:41:20 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 10:41:20 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB58@srciml1.ds.doc.state.or.us>


Sorry about that,

If I run qryInmatesBinNumberUpdate it runs fine.

If I run
 
SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'

OR

SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0 

They both give me invalid procedure call

Interesting......

-----Original Message-----
From: Gustav Brock [mailto:Gustav at cactus.dk] 
Sent: Friday, January 27, 2006 10:35 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Function Error

Hi Mike, you didn't reveal the result of this:

>2005-01-27 16:09:23

Have you tried running this on its own: 

  qryInmatesBinNumberUpdate

and this in a new query:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'

or should it be:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0

/gustav


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From andy at minstersystems.co.uk  Fri Jan 27 11:41:55 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Fri, 27 Jan 2006 17:41:55 -0000
Subject: [AccessD] Function Error
In-Reply-To: <05EBB8A3BEB95B4F8216BE4EF48607780579BB54@srciml1.ds.doc.state.or.us>
Message-ID: <002a01c62368$f77b9440$7a970c54@minster33c3r25>

Yea but "ORDER BY [Row]" too.

And put a Debug.Print sSql in to check that it contains what you expect it
to. If it looks ok copy what you see, create a new Query in Access, go to
SQL view and paste it in. then run it there and see if the SQL itself is ok.


-- Andy Lacey
http://www.minstersystems.co.uk 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gowey Mike W
> Sent: 27 January 2006 17:01
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Function Error
> 
> 
> 
> You mean something like this?
> 
> sSql = "SELECT [SID], [Row] FROM qryInmatesBinNumberUpdate 
> WHERE [Row] = '" & j & "' ORDER BY Row" 
> 
> -----Original Message-----
> From: Andy Lacey [mailto:andy at minstersystems.co.uk] 
> Sent: Friday, January 27, 2006 9:57 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Function Error
> 
> Clutching at straws. Tried putting [] around SID, Row (twice) 
> and the query name?
> 
> --
> Andy Lacey
> http://www.minstersystems.co.uk
> 
> 
> 
> 
> --------- Original Message --------
> From: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> To: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Function Error
> Date: 27/01/06 16:47
> 
> 
> Nope it's not numeric. I went through and changed the Row 
> field to numeric and adjusted the statement to take out the 
> single quotes but I still get the same error.
> 
> -----Original Message-----
> From: Heenan, Lambert [mailto:Lambert.Heenan at AIG.com]
> Sent: Friday, January 27, 2006 9:25 AM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] Function Error
> 
> The SQL is treating Row as if it was a string value.
> 
> WHERE Row = '" & j & "' ORDER BY
> 
> It's not actually numeric by any chance?
> 
> 
> Lambert
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Gowey Mike W
> Sent: Friday, January 27, 2006 10:32 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Function Error
> 
> 
> Just for the heck of it I went through and changed Row to 
> Rows and it didn't solve the error. Dang
> 
> -----Original Message-----
> From: Gowey Mike W
> Sent: Friday, January 27, 2006 8:21 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Function Error
> 
> That's a good question, it works fine in 97, did they change 
> it in 2000?
> 
> 
> -----Original Message-----
> From: Andy Lacey [mailto:andy at minstersystems.co.uk]
> Sent: Friday, January 27, 2006 8:18 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Function Error
> 
> Is Row perchance a reserved word?
> --
> Andy Lacey
> http://www.minstersystems.co.uk
> 
> 
> 
> 
> --------- Original Message --------
> From: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> To: "Access Developers discussion and problem solving" 
> <accessd at databaseadvisors.com>
> Subject: Re: [AccessD] Function Error
> Date: 27/01/06 14:58
> 
> 
> 
> Sorry the highlight didn't show, the part it starts failing 
> at is here:
> 
> ' get all SIDs that are not assigned a bin number for the 
> current row sSql = "SELECT SID FROM qryInmatesBinNumberUpdate 
> WHERE Row = '" & j & "' ORDER BY Row" Set oRS = 
> oDB.OpenRecordset(sSql)
> 
> -----Original Message-----
> From: Gowey Mike W
> Sent: Friday, January 27, 2006 7:54 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Function Error
> 
> 
> I'm converting a database from 97 to 2000 and have run into a 
> problem with the below function. Could someone please tell me 
> why the highlighted part is failing? I get a " Runtime error 
> '5' Invalid procedure call "
> 
> 
> Public Function UpdateSID4Bin() As Boolean
> 
> Dim oDB As Database
> Dim oRS As Recordset
> Dim oRSBins As Recordset
> Dim sSql As String
> Dim j As Long
> Dim vRtn As Variant
> 
> UpdateSID4Bin = False
> 
> Set oDB = CurrentDb
> 
> DoCmd.Hourglass True
> 
> ' display message in status bar
> vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System 
> With New SIDs...", 10)
> 
> For j = 0 To 9
> ' update meter
> vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents
> 
> ' get all SIDs that are not assigned a bin number for the 
> current row sSql = "SELECT SID FROM qryInmatesBinNumberUpdate 
> WHERE Row = '" & j & "' ORDER BY Row" Set oRS = 
> oDB.OpenRecordset(sSql)
> 
> Do While Not oRS.EOF
> ' grab an empty bin for the current row
> sSql = "SELECT TOP 1 BinNum FROM BinNumSIDAssign WHERE Row = 
> '" & j & "' AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)
> 
> If Not oRSBins.EOF Then
> ' update empty bin with current SID
> sSql = "UPDATE BinNumSIDAssign SET SID = '" & 
> oRS.Fields("SID") & "' WHERE Row = '" & j & "' AND BinNum = 
> '" & oRSBins.Fields("BinNum") & "'" oDB.Execute sSql End If
> 
> ' get next SID
> oRS.MoveNext
> 
> Loop
> Next
> 
> UpdateSID4Bin = True
> 
> ExitFunction:
> On Error Resume Next
> 
> oRS.Close
> oRSBins.Close
> oDB.Close
> 
> Set oRS = Nothing
> Set oRSBins = Nothing
> Set oDB = Nothing
> 
> DoCmd.Hourglass False
> vRtn = SysCmd(acSysCmdRemoveMeter)
> 
> End Function
> 
> Public Function CheckEvent(pEvent As String) As Boolean
> 
> Dim oDB As DAO.Database
> Dim oRS As DAO.Recordset
> Dim sSql As String
> 
> CheckEvent = False
> 
> Set oDB = CurrentDb
> 
> sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = 
> sSql & "WHERE EventName = '" & pEvent & "'" Set oRS = 
> oDB.OpenRecordset(sSql)
> 
> With oRS
> If Not .EOF Then
> CheckEvent = (.Fields(0) = True)
> End If
> End With
> 
> ExitFunction:
> On Error Resume Next
> 
> oRS.Close
> oDB.Close
> 
> Set oRS = Nothing
> Set oDB = Nothing
> 
> End Function
> 
> Public Sub InitDownloadEvents()
> 
> Dim oDB As DAO.Database
> Dim sSql As String
> 
> ' init events
> Set oDB = CurrentDb
> sSql = "UPDATE DownloadEvents SET Complete = False"
> oDB.Execute sSql
> 
> oDB.Close
> Set oDB = Nothing
> 
> End Sub
> 
> Public Function SetEvent(pEvent As String) As Boolean
> 
> Dim oDB As DAO.Database
> Dim sSql As String
> 
> SetEvent = False
> 
> Set oDB = CurrentDb
> 
> sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf 
> sSql = sSql & "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql
> 
> SetEvent = True
> 
> ExitFunction:
> On Error Resume Next
> 
> oDB.Close
> Set oDB = Nothing
> 
> End Function
> 
> 
> Thanks in advance for any help provided.
> 
> 
> Mike Gowey MCP, MCDST, A+, LME, NET+
> Team Leader - SouthEast Region
> Information Systems Unit
> 
> 
> 
> ________________________________________________
> Message sent using UebiMiau 2.7.2
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> ________________________________________________
> Message sent using UebiMiau 2.7.2
> 
> --
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From markamatte at hotmail.com  Fri Jan 27 11:45:56 2006
From: markamatte at hotmail.com (Mark A Matte)
Date: Fri, 27 Jan 2006 17:45:56 +0000
Subject: [AccessD] Function Error
In-Reply-To: <BAY113-F279BE95E954B5674265F34A1140@phx.gbl>
Message-ID: <BAY114-F1637D9F454877D21B95D7BD2140@phx.gbl>

Mike,

After reading the past few messages...I noticed you said it ran similar 
statements without an issue...so I pasted all SQL related statements and 
compared.  The only difference I could see was the statement in question had 
an orderBy clause.  The I remembered an app I had that crashed because of a 
corrupt field...you can't sort if a field is corrupt...or DivBy0.

Just a wild guess to look at...assuming the code compiles ok...just crashes 
on execution.

Good Luck,

Mark A. Matte


>From: "J??rgen Welz" <jwelz at hotmail.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] Function Error
>Date: Fri, 27 Jan 2006 10:26:22 -0700
>
>Try commenting out the sysCmd.  It frequently fails on the systems I work 
>on.
>
>So does it fail when you set the string value or when you OpenRecordset?
>
>If OpenRecordset:
>
>Try replacing oDB with CurrentDb.
>
>Ciao
>J?rgen Welz
>Edmonton, Alberta
>jwelz at hotmail.com
>
>
>
>
>
>>From: "Gowey Mike W" <Mike.W.Gowey at doc.state.or.us>
>
>>The original actually looks like this
>>
>>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' 
>>ORDER BY Row"
>>Set oRS = oDB.OpenRecordset(sSql)
>>
>>So a colon won't help, thanks for the thought
>>
>>-----Original Message-----
>>From: J??rgen Welz [mailto:jwelz at hotmail.com]
>>
>>Put in a colon at the end of 'Order by Row"
>>
>>original
>>
>>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' 
>>ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>>
>>revised
>>
>>sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j & "' 
>>ORDER BY Row": Set oRS = oDB.OpenRecordset(sSql)
>>
>>
>>
>>Ciao
>>J?rgen Welz
>>Edmonton, Alberta
>>jwelz at hotmail.com
>>
>>
>>
>>
>>
>> >--------- Original Message --------
>> >
>> >Sorry the highlight didn't show, the part it starts failing at is here:
>> >
>> >' get all SIDs that are not assigned a bin number for the current row
>> >sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
>> >"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>> >
>> >-----Original Message-----
>> >From: Gowey Mike W
>> >Sent: Friday, January 27, 2006 7:54 AM
>> >To: Access Developers discussion and problem solving
>> >Subject: [AccessD] Function Error
>> >
>> >
>> >I'm converting a database from 97 to 2000 and have run into a problem
>> >with the below function. Could someone please tell me why the
>> >highlighted part is failing? I get a " Runtime error '5' Invalid
>> >procedure call "
>> >
>> >
>> >Public Function UpdateSID4Bin() As Boolean
>> >
>> >Dim oDB As Database
>> >Dim oRS As Recordset
>> >Dim oRSBins As Recordset
>> >Dim sSql As String
>> >Dim j As Long
>> >Dim vRtn As Variant
>> >
>> >UpdateSID4Bin = False
>> >
>> >Set oDB = CurrentDb
>> >
>> >DoCmd.Hourglass True
>> >
>> >' display message in status bar
>> >vRtn = SysCmd(acSysCmdInitMeter, "Updating Bin Number System With New
>> >SIDs...", 10)
>> >
>> >For j = 0 To 9
>> >' update meter
>> >vRtn = SysCmd(acSysCmdUpdateMeter, j + 1) DoEvents
>> >
>> >' get all SIDs that are not assigned a bin number for the current row
>> >sSql = "SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '" & j &
>> >"' ORDER BY Row" Set oRS = oDB.OpenRecordset(sSql)
>> >
>> >Do While Not oRS.EOF
>> >' grab an empty bin for the current row sSql = "SELECT TOP 1 BinNum
>> >FROM BinNumSIDAssign WHERE Row = '" & j & "'
>> >AND SID IS NULL" Set oRSBins = oDB.OpenRecordset(sSql)
>> >
>> >If Not oRSBins.EOF Then
>> >' update empty bin with current SID
>> >sSql = "UPDATE BinNumSIDAssign SET SID = '" & oRS.Fields("SID") & "'
>> >WHERE Row = '" & j & "' AND BinNum = '" & oRSBins.Fields("BinNum") & "'"
>> >oDB.Execute sSql End If
>> >
>> >' get next SID
>> >oRS.MoveNext
>> >
>> >Loop
>> >Next
>> >
>> >UpdateSID4Bin = True
>> >
>> >ExitFunction:
>> >On Error Resume Next
>> >
>> >oRS.Close
>> >oRSBins.Close
>> >oDB.Close
>> >
>> >Set oRS = Nothing
>> >Set oRSBins = Nothing
>> >Set oDB = Nothing
>> >
>> >DoCmd.Hourglass False
>> >vRtn = SysCmd(acSysCmdRemoveMeter)
>> >
>> >End Function
>> >
>> >Public Function CheckEvent(pEvent As String) As Boolean
>> >
>> >Dim oDB As DAO.Database
>> >Dim oRS As DAO.Recordset
>> >Dim sSql As String
>> >
>> >CheckEvent = False
>> >
>> >Set oDB = CurrentDb
>> >
>> >sSql = "SELECT Complete FROM DownloadEvents " & vbCrLf sSql = sSql &
>> >"WHERE EventName = '" & pEvent & "'" Set oRS = oDB.OpenRecordset(sSql)
>> >
>> >With oRS
>> >If Not .EOF Then
>> >CheckEvent = (.Fields(0) = True)
>> >End If
>> >End With
>> >
>> >ExitFunction:
>> >On Error Resume Next
>> >
>> >oRS.Close
>> >oDB.Close
>> >
>> >Set oRS = Nothing
>> >Set oDB = Nothing
>> >
>> >End Function
>> >
>> >Public Sub InitDownloadEvents()
>> >
>> >Dim oDB As DAO.Database
>> >Dim sSql As String
>> >
>> >' init events
>> >Set oDB = CurrentDb
>> >sSql = "UPDATE DownloadEvents SET Complete = False"
>> >oDB.Execute sSql
>> >
>> >oDB.Close
>> >Set oDB = Nothing
>> >
>> >End Sub
>> >
>> >Public Function SetEvent(pEvent As String) As Boolean
>> >
>> >Dim oDB As DAO.Database
>> >Dim sSql As String
>> >
>> >SetEvent = False
>> >
>> >Set oDB = CurrentDb
>> >
>> >sSql = "UPDATE DownloadEvents SET Complete = TRUE " & vbCrLf sSql =
>> >sSql & "WHERE EventName = '" & pEvent & "'" oDB.Execute sSql
>> >
>> >SetEvent = True
>> >
>> >ExitFunction:
>> >On Error Resume Next
>> >
>> >oDB.Close
>> >Set oDB = Nothing
>> >
>> >End Function
>> >
>> >
>> >Thanks in advance for any help provided.
>> >
>> >
>> >Mike Gowey MCP, MCDST, A+, LME, NET+
>> >Team Leader - SouthEast Region
>> >Information Systems Unit
>
>


>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From Gustav at cactus.dk  Fri Jan 27 11:54:08 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 27 Jan 2006 18:54:08 +0100
Subject: [AccessD] Function Error
Message-ID: <s3da6c6b.074@cactus.dk>

Hi Mike

So what is the SQL of qryInmatesBinNumberUpdate?

/gustav




From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 11:56:21 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 10:56:21 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB59@srciml1.ds.doc.state.or.us>

This is the SQL of qryInmatesBinNumberUpdate:

SELECT Mid([inmates].[sid],(Len([inmates].[sid])-1),1) AS BinRowNum,
Inmates.SID, Inmates.Namef, Inmates.Namel, Inmates.Namem, Inmates.DOB,
Inmates.Cell, Inmates.Race, Inmates.Custody, Inmates.Age,
Inmates.HasBlues
FROM Inmates
WHERE (((Inmates.Cell) Not Like "DS*" And (Inmates.Cell) Not Like "IM*"
And (Inmates.Cell) Not Like "IN*" And (Inmates.Cell) Not Like "M-*" And
(Inmates.Cell) Not Like "S-*" And (Inmates.Cell)<>"") AND ((Exists
(SELECT SID FROM FTLaun WHERE FTLaun.SID = Inmates.SID))=False) AND
((Exists (SELECT SID FROM BinNumSIDAssign WHERE BinNumSIDAssign.SID =
Inmates.SID))=False))
ORDER BY Mid([inmates].[sid],(Len([inmates].[sid])-1),1), Inmates.SID; 

-----Original Message-----
From: Gustav Brock [mailto:Gustav at cactus.dk] 
Sent: Friday, January 27, 2006 10:54 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Function Error

Hi Mike

So what is the SQL of qryInmatesBinNumberUpdate?

/gustav


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From artful at rogers.com  Fri Jan 27 12:00:38 2006
From: artful at rogers.com (Arthur Fuller)
Date: Fri, 27 Jan 2006 13:00:38 -0500
Subject: [AccessD] Rescue a corrupted database
Message-ID: <005b01c6236b$94cf1530$8e01a8c0@rock>

Can anyone provide some tips on things to try to rescue a database, or tools
or services that purport to do this?
It's the client of a friend and colleague of mine. The last known good
backup of the database is two months old (don't go there! I gasped too!
Hell, I do more than one backup a day!), and allegedly very few rows have
been added, but many rows have changed. Allegedly they have the information
available in some form (paper maybe, I don't know) that would enable them to
re-key the changes. So this breaks down to the cost of repairing the
database versus the cost of re-keying the changes.
TIA,
Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks



From cfoust at infostatsystems.com  Fri Jan 27 12:04:33 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Fri, 27 Jan 2006 10:04:33 -0800
Subject: [AccessD] Friday:  Access 2003 Help
Message-ID: <F55048AF7E974F429BB24597D7355EEABF6B@INFOSERVER04.infostat.local>

ROTFLMAO!
Did they dig that out of the archives, or what??  Isn't that what Access 1 required? LOL

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of J??rgen Welz
Sent: Friday, January 27, 2006 9:01 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Friday: Access 2003 Help


>From the Access 2003 help topic:  Tips for improving the performance of
Microsoft Access and your system.

'Increase RAM on your computer. 40 MB of memory is recommended- 32 MB of 
memory plus an additional 8 MB of memory for Microsoft Access.'

I'll get right on that one...


Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: J?rgen Welz <jwelz at hotmail.com>
>Reply-To: Access Developers discussion and problem 
>solving<accessd at databaseadvisors.com>
>To: "Access Developers discussion and problem 
>solving"<accessd at databaseadvisors.com>
>Subject: Re: [AccessD] Same form, different actions
>Date: Thu, 26 Jan 2006 14:24:04 -0700
>MIME-Version: 1.0
>X-Originating-IP: [65.54.168.200]
>X-Originating-Email: [jwelz at hotmail.com]
>Received: from databaseadvisors.com ([209.135.140.44]) by 
>bay0-mc2-f7.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.211); Thu, 26 
>Jan 2006 13:25:16 -0800
>Received: from databaseadvisors.com (databaseadvisors.com 
>[209.135.140.44])by databaseadvisors.com (8.11.6/8.11.6) with ESMTP id 
>k0QLO5128567;Thu, 26 Jan 2006 15:24:05 -0600
>Received: from omc2-s28.bay6.hotmail.com 
>(omc2-s28.bay6.hotmail.com[65.54.249.38])by databaseadvisors.com 
>(8.11.6/8.11.6) with ESMTP id k0QLO3128556for 
><accessd at databaseadvisors.com>; Thu, 26 Jan 2006 15:24:03 -0600
>Received: from BAY113-W2 ([65.54.168.102]) by omc2-s28.bay6.hotmail.com 
>withMicrosoft SMTPSVC(6.0.3790.211); Thu, 26 Jan 2006 13:24:04 -0800
>X-Message-Info: LGjzam7y+LtmkF+qp9XD5nYIrt8y5mxH9Xzqiqe+GtI=
>X-OriginalArrivalTime: 26 Jan 2006 21:24:04.0719 
>(UTC)FILETIME=[D57827F0:01C622BE]
>X-Content-Filtered-By: Mailman/MimeDel 2.1.7-SiteWide-HeaderFooter
>X-BeenThere: accessd at databaseadvisors.com
>X-Mailman-Version: 2.1.7-SiteWide-HeaderFooter
>Precedence: list
>List-Id: Access Developers discussion and problem 
>solving<accessd.databaseadvisors.com>
>List-Unsubscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=unsubscribe>
>List-Archive: <http://databaseadvisors.com/pipermail/accessd>
>List-Post: <mailto:accessd at databaseadvisors.com>
>List-Help: <mailto:accessd-request at databaseadvisors.com?subject=help>
>List-Subscribe: 
><http://databaseadvisors.com/mailman/listinfo/accessd>,<mailto:accessd-request at databaseadvisors.com?subject=subscribe>
>Errors-To: accessd-bounces at databaseadvisors.com
>Return-Path: accessd-bounces at databaseadvisors.com
>
>This question is akin to the Library Database structure poser a couple days 
>ago.
>
>Checkboxes against roles work, but your giving up some normalization there. 
>  A junction table between the Entity and the Role is a more normalized 
>approach.  You'll give up a bit of speed as the number of records involved 
>in a query and its index goes up to the number of entities times the 
>average number of roles so the size of the data to be joined goes up in 
>proportion to the additional number of records and of course, the 
>processing of the join involves more processor cycles so the normalization 
>may bite a bit.  For better speed you can go with the flatter checkbox 
>approach, and for faster yet, that whole query by join on a bit will get 
>you 8 categories in a single byte field.  But I digress...
>
>For a law office database with similar considerations, I used a parent form 
>with a lookup combo and some search and navigation buttons that covered all 
>categories.  This parent form contained the basic universal information 
>about the person/corporate body.  When the user selected a person or 
>corporate body, various tabs became visible, each containing a subform that 
>had records pertaining to that category.  Generally, records within a 
>subform category were added from the subform and if no records existed, the 
>subform was simply not visible.  The user could pick a type of record from 
>the parent that would force the addition and display of an appropriate 
>subform.  For example, if a name happened to be that of a person on whose 
>behalf we had acted, a subform would open displaying the file numbers and 
>the capacity in which the person was related to the file.  A subform with 
>related parties showed the corporate bodies to which he was related as well 
>as the capacity in which he is related.  If the person was also a client on 
>a real estate transaction and his spouse was on the title, that name showed 
>as spouse.  There is another subform that contains Addresses and a further 
>one with Phone contact information.  In such a case, the person could be 
>related as a client.  If that person was also a lawyer, the related files 
>subform shows file numbers and capacity (opposing counsel, other lawyer on 
>a real estate transaction) and the related parties subform shows his legal 
>firm, assistant, reception...  If you happened to have spouse, child or 
>other affiliation, one simply needs to add that person and select a 
>capacity.
>
>I did the same thing with addresses and phone numbers.  An address could be 
>information about a property being bought or sold, but it is likely also a 
>past or present address of a client effective as at a certain date.  The 
>address of a corporation connected as a location address (as opposed to 
>mailing address) would also be the business address of a person associated 
>to the business as an employee or a lawyer.  The master address form has 
>subforms showing related parties, the capacity of the relation (home, 
>office..), related files where the property is related to a file (sale, 
>lien, tax appeal) and related phone numbers (If a law firm has the address, 
>a switchboard number is also a number for the lawyers and assistants and 
>individuals can have direct lines as well).
>
>The master phone number form has subforms that display addresses (if they 
>exist.  For a cell, the address subform would not be visible), parties that 
>may be reached by the number and their association to that number.
>
>Using JIT subforms where you set the recordsource on the fly to an 
>appropriately parameterized query makes this real fast.
>
>It is easy to control phone number formatting and I allow users to enter 
>phone numbers directly in a subform.  Before adding, the system looks up 
>the number and if it exists, displays related parties and the relationship 
>in a pop up.  This is useful in determining relationships between parties.  
>Addresses are more difficult in that there are many variations in 
>abbreviations and format.  I just have users follow Canada Post guidelines 
>and provide a merge feature to combine related addresses to keep down 
>duplications.Ciao
>J?rgen Welz
>Edmonton, Alberta
>jwelz at hotmail.com
>
>
>
> > Date: Thu, 26 Jan 2006 15:23:58 -0500> From: 
>John.Clark at niagaracounty.com> > First, I've started two requests for help 
>over the past couple of days,> only to discover the problem, while actually 
>typing the Emails...see,> y'all have learned me some things, since I've 
>been hanging out here.> > Well, it appears my luck may have run out. 
>Actually, I can think of a> couple different ways to do what I am now 
>trying to do, but I want to do> it correctly...something else I've learned 
>here...so I want to run it by> the list members.> > First I'll give you a 
>little background on the program, which is being> written in A2K. It is a 
>case tracking program for our DA's office, and I> have chosen to lump all 
>names together (i.e. lawyers, defendants,> victims, judges, etc.) in a 
>single table and, using checkboxes,> designate what role(s) they fulfill. 
>The purpose of doing this was to> avoid missing people already in the 
>system, in another designation than> they are currently being entered as. 
>It is usefull for them to know if a> defendant has been a victim, or visa 
>versa, and theoratically, a name> can be in the system as all of these 
>designations. I used the scenario> of an ADA, who becomes a defense 
>attorney, then become a judge, then> they are mugged, thus becoming a 
>victim, which makes them lose it and> take revenge on their attacker, which 
>makes them a defendant...they> would then be in all categories...unlikely 
>but possible.> > So, I've got a form called frm_Subjects, which allows 
>entry of names> and their "designations." The main form of the program is 
>the form,> "frmIndictments" and on this form, which basically a case by 
>case entry,> there is a drop down box to choose a defendant, from a list of 
>names.> Using a union query, I have set the top option to be, "".> When 
>they choose this option, I want to take them to the "frm_Subjects"> form. 
>OK, I'm good up to this point.> > The problem is however, can I use this 
>same form, yet have it react> differently? For instance, I've already got 
>it opening up as an "entry> form" with the way I am calling it from the 
>parent form (i.e.> "DoCmd.OpenForm "frm_Subjects", acNormal, , , 
>acFormAdd,> acWindowNormal"). But, when I exit that form it returns to the 
>menu, as> I've told it to do, and as I normally would want it to do. But, 
>when it> is accessed via the other form, I want it to return to that form, 
>and> place the chosen name into the combo box, which is bound to the 
>table.> > The possibilites I've thought of so far are:> > 1) set up a 
>parameter in the On Open event of that form...I don't even> know if this is 
>possible, now that I'm thinking about it...and check for> this when I have 
>it do things. Maybe it defaults to a "0" and works the> way it is now 
>working, but if called from the other form, it gets a "1"> and does things 
>slightly different.> > or 2) Cut my losses and just make a copy of the form 
>and have this copy> do the different actions, and call this one from the 
>other form. I'm> guessing this will be the answer.> > Thank you!> > John W 
>Clark
>_________________________________________________________________
>Express yourself instantly with MSN Messenger! Download today it's FREE!
>http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
>--
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com




From DWUTKA at marlow.com  Fri Jan 27 12:05:53 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Fri, 27 Jan 2006 12:05:53 -0600
Subject: [AccessD] Return Names Of All Available Servers
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD659@main2.marlow.com>

Is the system running on an Active Directory network?

Drew

-----Original Message-----
From: Paul Hartland (ISHARP) [mailto:paul.hartland at isharp.co.uk]
Sent: Friday, January 27, 2006 9:34 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Return Names Of All Available Servers
Importance: High


To all,

Not sure if this is possible, but is there a way via code that I can return
the names of all current active servers.  Basically when I open an access DB
I want it to run through I list of our server names then tell me if a
connection can be established.  

Thanks in advance for any help/code/pointers on this

Paul Hartland
Database Developer

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From EdTesiny at oasas.state.ny.us  Fri Jan 27 12:13:58 2006
From: EdTesiny at oasas.state.ny.us (Tesiny, Ed)
Date: Fri, 27 Jan 2006 13:13:58 -0500
Subject: [AccessD] Rescue a corrupted database
Message-ID: <FED384E544086A47AAC07C0999BE8D1703D50AFE@albmsx2k.rt.oasas.state.ny.us>

Arthur,
Here's a link for you
http://rogersaccesslibrary.com/Otherdownload.asp?SampleName='Fix%20Corru
pt%20Access%20Database%20v4.4'

Watch for wrapping

Ed Tesiny
EdTesiny at oasas.state.ny.us
 

> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Arthur Fuller
> Sent: Friday, January 27, 2006 1:01 PM
> To: 'Access Developers discussion and problem solving'
> Subject: [AccessD] Rescue a corrupted database
> 
> Can anyone provide some tips on things to try to rescue a 
> database, or tools
> or services that purport to do this?
> It's the client of a friend and colleague of mine. The last known good
> backup of the database is two months old (don't go there! I 
> gasped too!
> Hell, I do more than one backup a day!), and allegedly very 
> few rows have
> been added, but many rows have changed. Allegedly they have 
> the information
> available in some form (paper maybe, I don't know) that would 
> enable them to
> re-key the changes. So this breaks down to the cost of repairing the
> database versus the cost of re-keying the changes.
> TIA,
> Arthur,
> Son of Uther Pendragon,
> Defeater of the Saxons,
> Lord Over Alllll England, and
> King of the Dorks
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 


From martyconnelly at shaw.ca  Fri Jan 27 12:36:45 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 27 Jan 2006 10:36:45 -0800
Subject: [AccessD] Rescue a corrupted database
References: <005b01c6236b$94cf1530$8e01a8c0@rock>
Message-ID: <43DA683D.6010403@shaw.ca>

Tony Toews Corrupt Microsoft Access MDBs FAQ
http://www.granite.ab.ca/access/corruptmdbs.htm
Generally the cost from places like PKSolutions is $200-$400

Arthur Fuller wrote:

>Can anyone provide some tips on things to try to rescue a database, or tools
>or services that purport to do this?
>It's the client of a friend and colleague of mine. The last known good
>backup of the database is two months old (don't go there! I gasped too!
>Hell, I do more than one backup a day!), and allegedly very few rows have
>been added, but many rows have changed. Allegedly they have the information
>available in some form (paper maybe, I don't know) that would enable them to
>re-key the changes. So this breaks down to the cost of repairing the
>database versus the cost of re-keying the changes.
>TIA,
>Arthur,
>Son of Uther Pendragon,
>Defeater of the Saxons,
>Lord Over Alllll England, and
>King of the Dorks
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From Gustav at cactus.dk  Fri Jan 27 12:39:36 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 27 Jan 2006 19:39:36 +0100
Subject: [AccessD] Function Error
Message-ID: <s3da770d.075@cactus.dk>

Hi Mike

I suspect this to be the bad guy:

  Mid([inmates].[sid],(Len([inmates].[sid])-1),1) AS BinRowNum

Try to replace it for a test with:

  '0' AS BinRowNum

and run:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE BinRowNum = '0'

I guess that could be replaced with:

  Val(Right([inmates].[sid],1)) AS BinRowNum

and then it will be numeric, thus you could try:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE BinRowNum = 0

/gustav

>>> Mike.W.Gowey at doc.state.or.us 27-01-2006 18:56:21 >>>
This is the SQL of qryInmatesBinNumberUpdate:

SELECT Mid([inmates].[sid],(Len([inmates].[sid])-1),1) AS BinRowNum,
Inmates.SID, Inmates.Namef, Inmates.Namel, Inmates.Namem, Inmates.DOB,
Inmates.Cell, Inmates.Race, Inmates.Custody, Inmates.Age,
Inmates.HasBlues
FROM Inmates
WHERE (((Inmates.Cell) Not Like "DS*" And (Inmates.Cell) Not Like "IM*"
And (Inmates.Cell) Not Like "IN*" And (Inmates.Cell) Not Like "M-*" And
(Inmates.Cell) Not Like "S-*" And (Inmates.Cell)<>"") AND ((Exists
(SELECT SID FROM FTLaun WHERE FTLaun.SID = Inmates.SID))=False) AND
((Exists (SELECT SID FROM BinNumSIDAssign WHERE BinNumSIDAssign.SID =
Inmates.SID))=False))
ORDER BY Mid([inmates].[sid],(Len([inmates].[sid])-1),1), Inmates.SID; 

-----Original Message-----
From: Gustav Brock [mailto:Gustav at cactus.dk] 
Sent: Friday, January 27, 2006 10:54 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Function Error

Hi Mike

So what is the SQL of qryInmatesBinNumberUpdate?

/gustav




From martyconnelly at shaw.ca  Fri Jan 27 12:44:23 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 27 Jan 2006 10:44:23 -0800
Subject: [AccessD] Return Names Of All Available Servers
References: <!&!AAAAAAAAAAAuAAAAAAAAAHJazNdvaupJtRpUn0cBfAoBABSnqwA+/URLuxk6IxKNog4AAAAHXZIAABAAAACbXnuX4FFNR7DCzaK4N9GIAQAAAAA=@isharp.co.uk>
Message-ID: <43DA6A07.4000208@shaw.ca>

If you mean SQL Servers see below; if you mean all types of servers 
that's a bit trickier

Sub listsql()
' For a single workstation list sql servers with  no network available
'otherwise you need to get all computer names from WMI and iterate
Dim strServer As String
Dim objWMIService As Object
Dim colInstances As Object
Dim objServices As Object
Dim objInstance As Object
Dim objLocator As Object
Dim i As Long
strComputer = "." 'local default computer name
 Set objLocator = CreateObject("WbemScripting.SWbemLocator")
 Set objServices = objLocator.ConnectServer(strServer, 
"root\MicrosoftSQLServer")
 objServices.Security_.ImpersonationLevel = 3
 Set colInstances = objServices.InstancesOf("MSSQL_SQLServer")
 i = 0
 For Each objInstance In colInstances
  i = i + 1
  MsgBox objInstance.Truename & " as instance Truename from WMI"
 Next
End Sub

or


'
'  Over a network domain
'
' http://www.codeguru.com/vb/gen/vb_system/network/article.php/c1641
'
Private Declare Function lstrlenW Lib "kernel32" (ByVal _
        lpString As Long) As Long
'
Private Declare Function NetServerEnum Lib "netapi32" ( _
    strServername As Any, _
    ByVal level As Long, _
    bufptr As Long, _
    ByVal prefmaxlen As Long, _
    entriesread As Long, _
    totalentries As Long, _
    ByVal servertype As Long, _
    strDomain As Any, _
    resumehandle As Long) As Long
'
Private Declare Function NetApiBufferFree Lib "Netapi32.dll" _
        (ByVal lpBuffer As Long) As Long
'
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
        (Destination As Any, Source As Any, ByVal Length As Long)
'
Private Const SV_TYPE_SERVER As Long = &H2
Private Const SV_TYPE_SQLSERVER As Long = &H4
'
Private Type SV_100
    platform As Long
    name As Long
End Type
'
'
Public Sub GetSQLServers()
'
' You could change this to be a function returning
' a list of the SQL servers in a ADOR Recordset or an array etc.
'
' At present, it just does a debug.print of all the
' SQL servers on the network.
'
' http://www.codeguru.com/vb/gen/vb_system/network/article.php/c1641

    Dim l As Long
    Dim entriesread As Long
    Dim totalentries As Long
    Dim hREsume As Long
    Dim bufptr As Long
    Dim level As Long
    Dim prefmaxlen As Long
    Dim lType As Long
    Dim domain() As Byte
    Dim i As Long
    Dim sv100 As SV_100
'
    level = 100
    prefmaxlen = -1
'
    lType = SV_TYPE_SQLSERVER
    'domain = "placeYourDomainNameHere" & vbNullChar
    domain = "Marty" & vbNullChar
    l = NetServerEnum(ByVal 0&, _
            level, _
            bufptr, _
            prefmaxlen, _
            entriesread, _
            totalentries, _
            lType, _
            domain(0), _
            hREsume)

    If l = 0 Or l = 234& Then
        For i = 0 To entriesread - 1
            CopyMemory sv100, ByVal bufptr, Len(sv100)
            Debug.Print Pointer2stringw(sv100.name)
            bufptr = bufptr + Len(sv100)
        Next i
    End If
    NetApiBufferFree bufptr
'
End Sub


Paul Hartland (ISHARP) wrote:

>To all,
>
>Not sure if this is possible, but is there a way via code that I can return
>the names of all current active servers.  Basically when I open an access DB
>I want it to run through I list of our server names then tell me if a
>connection can be established.  
>
>Thanks in advance for any help/code/pointers on this
>
>Paul Hartland
>Database Developer
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From accessd at shaw.ca  Fri Jan 27 13:09:52 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Fri, 27 Jan 2006 11:09:52 -0800
Subject: [AccessD] Function Error
In-Reply-To: <05EBB8A3BEB95B4F8216BE4EF48607780579BB58@srciml1.ds.doc.state.or.us>
Message-ID: <004b01c62375$40c73260$017ba8c0@xpserver>

Mike:

Will the SQL statements work in the query builder? 

Jim 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gowey Mike W
Sent: January 27, 2006 9:41 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error


Sorry about that,

If I run qryInmatesBinNumberUpdate it runs fine.

If I run
 
SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'

OR

SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0 

They both give me invalid procedure call

Interesting......

-----Original Message-----
From: Gustav Brock [mailto:Gustav at cactus.dk] 
Sent: Friday, January 27, 2006 10:35 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Function Error

Hi Mike, you didn't reveal the result of this:

>2005-01-27 16:09:23

Have you tried running this on its own: 

  qryInmatesBinNumberUpdate

and this in a new query:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'

or should it be:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0

/gustav


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From DElam at jenkens.com  Fri Jan 27 13:13:16 2006
From: DElam at jenkens.com (Elam, Debbie)
Date: Fri, 27 Jan 2006 13:13:16 -0600
Subject: [AccessD] ADP Connection Problems
Message-ID: <7B1961ED924D1A459E378C9B1BB22B4C0492D360@natexch.jenkens.com>

I have a legacy database Discipline.adp in Access XP connection to a SQL
2000 database.  On one particular computer, the database will not connect.
It gives me a runtime error 76 then tells me to go to File> Connect and
change the connection parameters.  If I try to open that, it just gives me
the same error and message. 

I can make an ODBC connection to that same database on that machine.  

I also tried making a new .adp database and making the connection there.  It
immediately gives me the same error and message and no way to get to that
menu.

I have already un-installed and re-installed Access, and still get the same
problem.

Does anyone have any ideas about how to fix this?  I am going for a re-image
on Monday if nothing else works.

Debbie

- JENKENS & GILCHRIST E-MAIL NOTICE - This transmission may be: (1) subject
to the Attorney-Client Privilege, (2) an attorney work product, or (3)
strictly confidential. If you are not the intended recipient of this
message, you may not disclose, print, copy or disseminate this information.
If you have received this in error, please reply and notify the sender
(only) and delete the message. Unauthorized interception of this e-mail is a
violation of federal criminal law. 
This communication does not reflect an intention by the sender or the
sender's client or principal to conduct a transaction or make any agreement
by electronic means.  Nothing contained in this message or in any attachment
shall satisfy the requirements for a writing, and nothing contained herein
shall constitute a contract or electronic signature under the Electronic
Signatures in Global and National Commerce Act, any version of the Uniform
Electronic Transactions Act or any other statute governing electronic
transactions.


From Mike.W.Gowey at doc.state.or.us  Fri Jan 27 13:17:20 2006
From: Mike.W.Gowey at doc.state.or.us (Gowey Mike W)
Date: Fri, 27 Jan 2006 12:17:20 -0700
Subject: [AccessD] Function Error
Message-ID: <05EBB8A3BEB95B4F8216BE4EF48607780579BB5B@srciml1.ds.doc.state.or.us>


Gustav,

You are brilliant and a godsend, thank you so much for all your help,
The last part works like a charm, NO MORE ERRORS.  It always seems to
just take another person looking over it to find a better way.

Thanks again you are wonderful, now I can continue on a happier note for
a Friday....   :-) 

-----Original Message-----
From: Gustav Brock [mailto:Gustav at cactus.dk] 
Sent: Friday, January 27, 2006 11:40 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Function Error

Hi Mike

I suspect this to be the bad guy:

  Mid([inmates].[sid],(Len([inmates].[sid])-1),1) AS BinRowNum

Try to replace it for a test with:

  '0' AS BinRowNum

and run:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE BinRowNum = '0'

I guess that could be replaced with:

  Val(Right([inmates].[sid],1)) AS BinRowNum

and then it will be numeric, thus you could try:

  SELECT SID FROM qryInmatesBinNumberUpdate WHERE BinRowNum = 0

/gustav

>>> Mike.W.Gowey at doc.state.or.us 27-01-2006 18:56:21 >>>
This is the SQL of qryInmatesBinNumberUpdate:

SELECT Mid([inmates].[sid],(Len([inmates].[sid])-1),1) AS BinRowNum,
Inmates.SID, Inmates.Namef, Inmates.Namel, Inmates.Namem, Inmates.DOB,
Inmates.Cell, Inmates.Race, Inmates.Custody, Inmates.Age,
Inmates.HasBlues FROM Inmates WHERE (((Inmates.Cell) Not Like "DS*" And
(Inmates.Cell) Not Like "IM*"
And (Inmates.Cell) Not Like "IN*" And (Inmates.Cell) Not Like "M-*" And
(Inmates.Cell) Not Like "S-*" And (Inmates.Cell)<>"") AND ((Exists
(SELECT SID FROM FTLaun WHERE FTLaun.SID = Inmates.SID))=False) AND
((Exists (SELECT SID FROM BinNumSIDAssign WHERE BinNumSIDAssign.SID =
Inmates.SID))=False))
ORDER BY Mid([inmates].[sid],(Len([inmates].[sid])-1),1), Inmates.SID; 

-----Original Message-----
From: Gustav Brock [mailto:Gustav at cactus.dk]
Sent: Friday, January 27, 2006 10:54 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Function Error

Hi Mike

So what is the SQL of qryInmatesBinNumberUpdate?

/gustav


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From Gustav at cactus.dk  Fri Jan 27 13:30:27 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Fri, 27 Jan 2006 20:30:27 +0100
Subject: [AccessD] Function Error
Message-ID: <s3da82f6.076@cactus.dk>

Hi Mike

Great!

/gustav

>>> Mike.W.Gowey at doc.state.or.us 27-01-2006 20:17:20 >>>

Gustav,

You are brilliant and a godsend, thank you so much for all your help,
The last part works like a charm, NO MORE ERRORS.  It always seems to
just take another person looking over it to find a better way.

Thanks again you are wonderful, now I can continue on a happier note for
a Friday....   :-) 




From jeffrey.demulling at usbank.com  Fri Jan 27 13:31:56 2006
From: jeffrey.demulling at usbank.com (jeffrey.demulling at usbank.com)
Date: Fri, 27 Jan 2006 13:31:56 -0600
Subject: [AccessD] Using Access FE to Upload Files to SQL Server BE
In-Reply-To: <05EBB8A3BEB95B4F8216BE4EF48607780579BB5B@srciml1.ds.doc.state.or.us>
Message-ID: <OF172D2761.45EBDD44-ON86257103.006A5E9C-86257103.006B4B3A@usbank.com>

Basics:

FE = A2K3
BE = SQL Server 2000

Problem: Using the code below want to upload into the SQL Server the file
passed into the field specified. The field being passed is an image field.
It works fine for a text or xml file but will not work if I try using an
mdb or ico file.  I get the error:

Run-time error '3002': File could not be opened

and this happens on the following line:

stFile.LoadFromFile strSaveFileName

When I do this I get the error:
Call UpLoadModuleFile(1, "ModuleFile", "D:\Files - Projects\TFM
Tools\Modules\SEI Reporting\SEI Reporting.mdb",
setSQLServerConnectionApplication(2, 2))

When I do this it does not error:

Call UpLoadModuleFile(1, "ModuleFile", "D:\Files - Projects\TFM
Tools\Modules\SEI Reporting\SEI Reporting.xml",
setSQLServerConnectionApplication(2, 2))

Code trying to use:

Sub UpLoadModuleFile(intModuleNumber As Integer, strFileFieldName As
String, _
    strSaveFileName As String, strConnection As String)

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim stFile As ADODB.Stream

strSQL = "SELECT"
strSQL = strSQL & " tblModuleFile." & strFileFieldName
strSQL = strSQL & " FROM"
strSQL = strSQL & " tblModuleFile"
strSQL = strSQL & " WHERE"
strSQL = strSQL & " tblModuleFile.InternalModuleID=" & intModuleNumber

con = strConnection
con.Open

rs.Open strSQL, con, adOpenKeyset, adLockOptimistic

Set stFile = New ADODB.Stream
stFile.Type = adTypeBinary
stFile.Open
stFile.LoadFromFile strSaveFileName

rs.Fields(strFileFieldName).Value = stFile.Read

rs.Update

stFile.Close

rs.Close
con.Close

Set stFile = Nothing
Set rs = Nothing
Set con = Nothing
End Sub

Jeffrey F. Demulling
Project Manager
U.S. Bank Corporate Trust Services
60 Livingston Avenue
EP-MN-WS3C
St. Paul, MN  55107-2292
Ph: 651-495-3925
Fax: 651-495-8103
email: jeffrey.demulling at usbank.com


------------------------------------------------------------------------------
Electronic Privacy Notice. This e-mail, and any attachments, contains information that is, or may be, covered by electronic communications privacy laws, and is also confidential and proprietary in nature. If you are not the intended recipient, please be advised that you are legally prohibited from retaining, using, copying, distributing, or otherwise disclosing this information in any manner. Instead, please reply to the sender that you have received this communication in error, and then immediately delete it. Thank you in advance for your cooperation.
==============================================================================



From John.Clark at niagaracounty.com  Fri Jan 27 14:05:39 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Fri, 27 Jan 2006 15:05:39 -0500
Subject: [AccessD] Same form, different actions
Message-ID: <s3da3729.073@nebnov3.niagaracounty.com>

This sounds like might do the trick. I've never done it before and the
help explanation is a little weak. Is it an actual "variable" attached
to the Open statement? I've got some lookin' up to do.



>>> mikedorism at verizon.net 1/26/2006 4:20 PM >>>
I've done what you are asking several times.  I just pass in an
OpenArgument
at the end of my DoCmd.Open statement.  I save that to an internal
form
variable in the FormOpen event and check it on FormClose.

Doris Manning
mikedorism at verizon.net

-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Thursday, January 26, 2006 3:24 PM
To: accessd at databaseadvisors.com 
Subject: [AccessD] Same form, different actions

First, I've started two requests for help over the past couple of
days,
only to discover the problem, while actually typing the Emails...see,
y'all have learned me some things, since I've been hanging out here.

Well, it appears my luck may have run out. Actually, I can think of a
couple different ways to do what I am now trying to do, but I want to
do
it correctly...something else I've learned here...so I want to run it
by
the list members.

First I'll give you a little background on the program, which is being
written in A2K. It is a case tracking program for our DA's office, and
I
have chosen to lump all names together (i.e. lawyers, defendants,
victims, judges, etc.) in a single table and, using checkboxes,
designate what role(s) they fulfill. The purpose of doing this was to
avoid missing people already in the system, in another designation
than
they are currently being entered as. It is usefull for them to know if
a
defendant has been a victim, or visa versa, and theoratically, a name
can be in the system as all of these designations. I used the scenario
of an ADA, who becomes a defense attorney, then become a judge, then
they are mugged, thus becoming a victim, which makes them lose it and
take revenge on their attacker, which makes them a defendant...they
would then be in all categories...unlikely but possible.

So, I've got a form called frm_Subjects, which allows entry of names
and their "designations." The main form of the program is the form,
"frmIndictments" and on this form, which basically a case by case
entry,
there is a drop down box to choose a defendant, from a list of names.
Using a union query, I have set the top option to be, "<ENTER NAME>".
When they choose this option, I want to take them to the
"frm_Subjects"
form. OK, I'm good up to this point.

The problem is however, can I use this same form, yet have it react
differently? For instance, I've already got it opening up as an "entry
form" with the way I am calling it from the parent form (i.e.
"DoCmd.OpenForm "frm_Subjects", acNormal, , , acFormAdd,
acWindowNormal"). But, when I exit that form it returns to the menu,
as
I've told it to do, and as I normally would want it to do. But, when
it
is accessed via the other form, I want it to return to that form, and
place the chosen name into the combo box, which is bound to the table.

The possibilites I've thought of so far are:

1) set up a parameter in the On Open event of that form...I don't even
know if this is possible, now that I'm thinking about it...and check
for
this when I have it do things. Maybe it defaults to a "0" and works
the
way it is now working, but if called from the other form, it gets a
"1"
and does things slightly different.

or 2) Cut my losses and just make a copy of the form and have this
copy
do the different actions, and call this one from the other form. I'm
guessing this will be the answer.

Thank you!

John W Clark
-- 
AccessD mailing list
AccessD at databaseadvisors.com 
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com 


-- 
AccessD mailing list
AccessD at databaseadvisors.com 
http://databaseadvisors.com/mailman/listinfo/accessd 
Website: http://www.databaseadvisors.com


From bheid at appdevgrp.com  Fri Jan 27 14:28:14 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Fri, 27 Jan 2006 15:28:14 -0500
Subject: [AccessD] [SPAM SUSPECT] Re:  Strangeflickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A1DE@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E6B@ADGSERVER>

That is possible.  But it still does that when the other thing is closed.
It continues to do it until you kill it.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Thursday, January 26, 2006 5:12 PM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strangeflickering problem.
Importance: Low


Bobby,
I suspect that what you describe as flickering is the result of time
slicing between the macro operation in Access and whatever you're doing
elsewhere.  With an intensive operation in Access, which is something of
a hog on resources, you may have to go have coffee and not try to do
anything else while it's running.

Charlotte Foust



From bheid at appdevgrp.com  Fri Jan 27 14:28:49 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Fri, 27 Jan 2006 15:28:49 -0500
Subject: [AccessD] [SPAM SUSPECT] Re: [SPAM SUSPECT] Re: Strange
	flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A1D2@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E6C@ADGSERVER>

I have had this happen (very rarely) here on my machine at work too.

Bobby

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
Beach Access Software
Sent: Thursday, January 26, 2006 4:16 PM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] [SPAM SUSPECT] Re: Strange flickering
problem.
Importance: Low


Bobby:

Is it the app or the machine?  If you move the app to another machine do 
you get the same problem?

Rocky



From Patricia.O'Connor at otda.state.ny.us  Fri Jan 27 14:40:10 2006
From: Patricia.O'Connor at otda.state.ny.us (O'Connor, Patricia (OTDA))
Date: Fri, 27 Jan 2006 15:40:10 -0500
Subject: [AccessD] Report formatting - SOLVED
Message-ID: <01DBAB52E30A9A4AB3D94EF8029EDBE8016B23AD@EXCNYSM0A1AI.nysemail.nyenet>

Finally solved it - had to put code into RETREAT portion of VB to make
groupfooter invisible for only the last group.    I originally had it in
the format portion but it would eliminate it from all groupings - didn't
make sense -- BUT it is done.  

Have a good weekend

**************************************************
* Patricia O'Connor
* Associate Computer Programmer Analyst
* OTDA - BDMA
* (W) mailto:Patricia.O'Connor at otda.state.ny.us
* (w) mailto:aa1160 at otda.state.ny.us
**************************************************
 

> 
--------------------------------------------------------
This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone who was not authorized to send it to you, do not disseminate, copy or otherwise use this e-mail or its attachments.  Please notify the sender immediately by reply e-mail and delete the e-mail from your system. 


-----Original Message-----

> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> O'Connor, Patricia (OTDA)
> Sent: Friday, January 27, 2006 12:07 PM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Report formatting
> 
> Hi all
> 
> I have a report with two groupings 
>    Main grouping is RPT_GRP_TYPE which has 4 types.  Type 1-3 
> will contain records that have a Case information and 
> currency amount.  The last group is just going to contain the 
> Case information since these cases did not get payments. 
> 
>    The second grouping is by CASE and I want to sum the 
> currency amount for each case.  It works fine. How do I get 
> the Case footer to not try and print the sum for the Last 
> MAIN group since there is no payments?
>


From bheid at appdevgrp.com  Fri Jan 27 14:53:40 2006
From: bheid at appdevgrp.com (Bobby Heid)
Date: Fri, 27 Jan 2006 15:53:40 -0500
Subject: [AccessD] [SPAM SUSPECT] Re:  Strange flickering problem.
In-Reply-To: <916187228923D311A6FE00A0CC3FAA30D2A1C5@ADGSERVER>
Message-ID: <916187228923D311A6FE00A0CC3FAA30D34E72@ADGSERVER>

Good to know that I am not going crazy!

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of J?rgen Welz
Sent: Thursday, January 26, 2006 3:39 PM
To: Access Developers discussion and problem solving
Subject: [SPAM SUSPECT] Re: [AccessD] Strange flickering problem.
Importance: Low


I get this on our Terminal server environment when the server is slow and I
close something where I have made a change and I have agreed to save
changes.  The title bar toggles between two or three windows at about 30 HZ.
Sometimes it takes a couple minutes to save something like a rowsource for a
combo.  It only seems to happen when the server is real busy, but we've now
got 33 full time users and everyone is told to keep Outlook 2003 open at all
times.  In addition, we have a number of other outside users logging in on
our server.  Our Server is one of 40 but it is stretched rather thin so I'm
getting this flicker with increasing frequency.
 
J?rgen Welz



From KIsmert at texassystems.com  Fri Jan 27 15:16:18 2006
From: KIsmert at texassystems.com (Ken Ismert)
Date: Fri, 27 Jan 2006 15:16:18 -0600
Subject: [AccessD] Function Error
Message-ID: <B7C87D3ABC87FC4E8CFE054CE2E8868A36CD50@aries.TexasSystems.local>


Two suggestions: 

1. If code can't find the query, do a decompile/compact and repair. In
A2K, I often get a situation where a new query is visible to the user,
but not to code. The decompile/compact fixes that.

2. By rights, this should be a parameter query. 
   * Copy qryInmatesBinNumberUpdate to a new query:
qryInmatesBinNumberForRow
   * Add a RowNo string parameter, and put your external Where clause in
the query
   * Test it
   * Run it with code similar to: 

    Dim oQdf As DAO.QueryDef
    Set oQdf = oDB.QueryDefs("qryInmatesBinNumberForRow")
    With oQdf
        .Parameters("RowNo") = CStr(j)
        Set oRS = .OpenRecordset(dbOpenDynaset)
    End With

Sometimes, restating the problem makes the error jump out. 

-Ken


From dwaters at usinternet.com  Fri Jan 27 15:29:40 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Fri, 27 Jan 2006 15:29:40 -0600
Subject: [AccessD] Friday??
Message-ID: <000001c62388$c8379c90$0200a8c0@danwaters>

Holy Cripes, Batman!

Everyone's writing emails and I can't keep up!


;-)
Dan



From artful at rogers.com  Fri Jan 27 16:54:43 2006
From: artful at rogers.com (Arthur Fuller)
Date: Fri, 27 Jan 2006 17:54:43 -0500
Subject: [AccessD] Rescue a corrupted database
In-Reply-To: <43DA683D.6010403@shaw.ca>
Message-ID: <009901c62394$a9c74a60$8e01a8c0@rock>

No help there.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: January 27, 2006 1:37 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Rescue a corrupted database

Tony Toews Corrupt Microsoft Access MDBs FAQ
http://www.granite.ab.ca/access/corruptmdbs.htm
Generally the cost from places like PKSolutions is $200-$400




From stuart at lexacorp.com.pg  Fri Jan 27 18:02:54 2006
From: stuart at lexacorp.com.pg (Stuart McLachlan)
Date: Sat, 28 Jan 2006 10:02:54 +1000
Subject: [AccessD] Friday:  Access 2003 Help
In-Reply-To: <BAY113-F1670E78A2DF12CBB00EA4DA1140@phx.gbl>
References: <BAY113-W28D536295565AF89590CDA1150@phx.gbl>
Message-ID: <43DB414E.28476.7B82511@stuart.lexacorp.com.pg>

On 27 Jan 2006 at 10:00, J??rgen Welz wrote:

> >From the Access 2003 help topic:  Tips for improving the performance of 
> Microsoft Access and your system.
> 
> 'Increase RAM on your computer. 40 MB of memory is recommended- 32 MB of
> memory plus an additional 8 MB of memory for Microsoft Access.'
> 
> I'll get right on that one...
> 

That's only if you started out on NT4. If  started out on W9X, you only 
need 24MB :-)

"If you are running Microsoft Windows 95 or later, 24 MB of memory is 
recommended - 16 MB plus an additional 8 MB of memory for Microsoft Access. 
If you are running Windows NT 4.0 or later, 40 MB of memory is recommended 
"


-- 
Stuart




From martyconnelly at shaw.ca  Fri Jan 27 18:37:39 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 27 Jan 2006 16:37:39 -0800
Subject: [AccessD] ADP Connection Problems
References: <7B1961ED924D1A459E378C9B1BB22B4C0492D360@natexch.jenkens.com>
Message-ID: <43DABCD3.4080601@shaw.ca>

runtime error 76 is generally path not found.

So Microsoft OLE DB Provider for SQL Server files
C:\Program Files\Common Files\System\Ole DB\sqloledb.dll
C:\Program Files\Common Files\System\Ole DB\sqloledb.rll
'this one updated by winxp sp2
C:\Program Files\Common Files\System\Ole DB\msdasql.dll

You can run MDAC Component Checker according to this kb article 
run on working and non working machines for differences

http://support.microsoft.com/kb/301202/en-us 

You might be using a File DSN that points locally rather than System DSN



Elam, Debbie wrote:

>I have a legacy database Discipline.adp in Access XP connection to a SQL
>2000 database.  On one particular computer, the database will not connect.
>It gives me a runtime error 76 then tells me to go to File> Connect and
>change the connection parameters.  If I try to open that, it just gives me
>the same error and message. 
>
>I can make an ODBC connection to that same database on that machine.  
>
>I also tried making a new .adp database and making the connection there.  It
>immediately gives me the same error and message and no way to get to that
>menu.
>
>I have already un-installed and re-installed Access, and still get the same
>problem.
>
>Does anyone have any ideas about how to fix this?  I am going for a re-image
>on Monday if nothing else works.
>
>Debbie
>
>-
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From martyconnelly at shaw.ca  Fri Jan 27 18:44:13 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Fri, 27 Jan 2006 16:44:13 -0800
Subject: [AccessD] Rescue a corrupted database
References: <005b01c6236b$94cf1530$8e01a8c0@rock> <43DA683D.6010403@shaw.ca>
Message-ID: <43DABE5D.1000904@shaw.ca>

Well Peter Miller PKSolutions will give you a quote on repair cost.
He has been doing this since Access 1.0

http://www.pksolutions.com/services.htm

MartyConnelly wrote:

>Tony Toews Corrupt Microsoft Access MDBs FAQ
>http://www.granite.ab.ca/access/corruptmdbs.htm
>Generally the cost from places like PKSolutions is $200-$400
>
>Arthur Fuller wrote:
>
>  
>
>>Can anyone provide some tips on things to try to rescue a database, or tools
>>or services that purport to do this?
>>It's the client of a friend and colleague of mine. The last known good
>>backup of the database is two months old (don't go there! I gasped too!
>>Hell, I do more than one backup a day!), and allegedly very few rows have
>>been added, but many rows have changed. Allegedly they have the information
>>available in some form (paper maybe, I don't know) that would enable them to
>>re-key the changes. So this breaks down to the cost of repairing the
>>database versus the cost of re-keying the changes.
>>TIA,
>>Arthur,
>>Son of Uther Pendragon,
>>Defeater of the Saxons,
>>Lord Over Alllll England, and
>>King of the Dorks
>>
>> 
>>
>>    
>>
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From jmhecht at earthlink.net  Fri Jan 27 20:57:23 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Fri, 27 Jan 2006 18:57:23 -0800
Subject: [AccessD] Rescue a corrupted database
In-Reply-To: <005b01c6236b$94cf1530$8e01a8c0@rock>
Message-ID: <003301c623b6$90cd46f0$4c00a8c0@HPLaptop>

Arthur,

Can you import all objects into a new database?

Joe Hecht
jmhecht at earthlink.net



From max at sherman.org.uk  Sat Jan 28 01:30:20 2006
From: max at sherman.org.uk (Max Sherman)
Date: Sat, 28 Jan 2006 07:30:20 -0000
Subject: [AccessD] OpenReport Action Was Cancelled
In-Reply-To: <BAY113-W2C33CF467F065192F29C5A1150@phx.gbl>
Message-ID: <!&!AAAAAAAAAAAYAAAAAAAAAFuw6yFL/EpPgQyLGek9BtaiSQYAEAAAAO0rtT5/3nFPnEEPWfqNvVMBAAAAAA==@sherman.org.uk>

Ps. I have changed the subject.

I had a similar problem yesterday.  It was because the default network
printer had been unplugged and the Access Report just bombed out after a few
seconds.  Fortunately, it was easy to spot as the user had been using the
same report only a few minutes earlier with no problems and the only other
change to the system was me unplugging the printer to move it to a new
location.  

To avoid this, I now have a pop-up form which asks users to select a printer
from those available.

Regards
Max
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of J?rgen Welz
Sent: 26 January 2006 17:16
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Outlook automation - use a template for a message

Dealing with the nITzis for a couple days now on something that might be of
interest.  I had a couple users who couldn't open a report and Access throws
a '2501 The OpenReport action was canceled.'
 
I have functions that change default sql parameters based on the user and
their office and IT sets up rights to folders and I've got my own security
running and some data if from various sources that require drivers.
 
It turns out that these users can't even use File - Print Preview on a plain
lookup table.  Opening any preview from the database window results in a
silent failure.  Opening any report from the Immediate window with a docmd
OpenReport produces the error message.
 
IT tells me it is my problem because Access throws an error on my button
click event.
 
The problem is that, apparently unlike other MS Office applications, Access
uses some kind of print driver information to generate a print preview.  The
problem is the same as when no printer is installed.  In this case, it is a
problem with a Canon printer driver.  It took me nearly two hours to track
down this problem a year ago when IT added a paper tray to one of the other
office printers.  It was a particularly complex and convoluted report that a
user was trying to open so there were dozens of things to check and I
finally got permission to log in the user to track down the problem.
 
Lacking the basic ability to create a table with two entries and to select
Print Preview from the file menu, IT asked me to send them a new MDB that
demonstrated this problem outside of my application.  Of course Outlook
blocked the attachment so I was asked to rename the file extension.  Their
security prevents rename of file extension from Explorer (though it's easy
enough in VBA and though I can no longer get a DOS window, I can shell a
'ren' command).  We finally have zip capability and I think these email OK.
Being bloody minded, I ask them how to rename the file extension and send an
html link to the file instead.
 
This is ongoing.  In the mean time, I tell the users to select any other
printer in the office as their default printer.
Ciao
J?rgen Welz
Edmonton Alberta
jwelz at hotmail.com
_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From bchacc at san.rr.com  Sat Jan 28 12:05:05 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 28 Jan 2006 10:05:05 -0800
Subject: [AccessD] Function Error
In-Reply-To: <05EBB8A3BEB95B4F8216BE4EF48607780579BB58@srciml1.ds.doc.state.or.us>
References: <05EBB8A3BEB95B4F8216BE4EF48607780579BB58@srciml1.ds.doc.state.or.us>
Message-ID: <43DBB251.7020703@san.rr.com>

How is Row defined as a field in the table that the query uses?

Rocky


Gowey Mike W wrote:
> Sorry about that,
>
> If I run qryInmatesBinNumberUpdate it runs fine.
>
> If I run
>  
> SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'
>
> OR
>
> SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0 
>
> They both give me invalid procedure call
>
> Interesting......
>
> -----Original Message-----
> From: Gustav Brock [mailto:Gustav at cactus.dk] 
> Sent: Friday, January 27, 2006 10:35 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Function Error
>
> Hi Mike, you didn't reveal the result of this:
>
>   
>> 2005-01-27 16:09:23
>>     
>
> Have you tried running this on its own: 
>
>   qryInmatesBinNumberUpdate
>
> and this in a new query:
>
>   SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'
>
> or should it be:
>
>   SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0
>
> /gustav
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From bchacc at san.rr.com  Sat Jan 28 12:07:25 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 28 Jan 2006 10:07:25 -0800
Subject: [AccessD] Function Error
In-Reply-To: <05EBB8A3BEB95B4F8216BE4EF48607780579BB59@srciml1.ds.doc.state.or.us>
References: <05EBB8A3BEB95B4F8216BE4EF48607780579BB59@srciml1.ds.doc.state.or.us>
Message-ID: <43DBB2DD.3060803@san.rr.com>

Mike:

IN your OpenRecordset you refer to 'Row' but that's not in your query, 
is it?

Rocky


Gowey Mike W wrote:
> This is the SQL of qryInmatesBinNumberUpdate:
>
> SELECT Mid([inmates].[sid],(Len([inmates].[sid])-1),1) AS BinRowNum,
> Inmates.SID, Inmates.Namef, Inmates.Namel, Inmates.Namem, Inmates.DOB,
> Inmates.Cell, Inmates.Race, Inmates.Custody, Inmates.Age,
> Inmates.HasBlues
> FROM Inmates
> WHERE (((Inmates.Cell) Not Like "DS*" And (Inmates.Cell) Not Like "IM*"
> And (Inmates.Cell) Not Like "IN*" And (Inmates.Cell) Not Like "M-*" And
> (Inmates.Cell) Not Like "S-*" And (Inmates.Cell)<>"") AND ((Exists
> (SELECT SID FROM FTLaun WHERE FTLaun.SID = Inmates.SID))=False) AND
> ((Exists (SELECT SID FROM BinNumSIDAssign WHERE BinNumSIDAssign.SID =
> Inmates.SID))=False))
> ORDER BY Mid([inmates].[sid],(Len([inmates].[sid])-1),1), Inmates.SID; 
>
> -----Original Message-----
> From: Gustav Brock [mailto:Gustav at cactus.dk] 
> Sent: Friday, January 27, 2006 10:54 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Function Error
>
> Hi Mike
>
> So what is the SQL of qryInmatesBinNumberUpdate?
>
> /gustav
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From accessd at shaw.ca  Sat Jan 28 14:26:34 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Sat, 28 Jan 2006 12:26:34 -0800
Subject: [AccessD] Function Error
In-Reply-To: <43DBB251.7020703@san.rr.com>
Message-ID: <001101c62449$24166da0$017ba8c0@xpserver>

Hi Rocky:

Isn't the record defined as a row and a field as a column?

Here is a piece of code that works with a recordset, a standard data set
should not work much differently.

Dim RowPosition as long
Dim ColumnPosition as integer

RowPosition = 1200
ColumnPosition = 12

With rsMyRecordset
	.Move First
	.Move (RowPosition)
   	MyFieldValue = .Fields(ColumnPosition)	
End With

HTH
Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
Beach Access Software
Sent: January 28, 2006 10:05 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Function Error

How is Row defined as a field in the table that the query uses?

Rocky


Gowey Mike W wrote:
> Sorry about that,
>
> If I run qryInmatesBinNumberUpdate it runs fine.
>
> If I run
>  
> SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'
>
> OR
>
> SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0 
>
> They both give me invalid procedure call
>
> Interesting......
>
> -----Original Message-----
> From: Gustav Brock [mailto:Gustav at cactus.dk] 
> Sent: Friday, January 27, 2006 10:35 AM
> To: accessd at databaseadvisors.com
> Subject: Re: [AccessD] Function Error
>
> Hi Mike, you didn't reveal the result of this:
>
>   
>> 2005-01-27 16:09:23
>>     
>
> Have you tried running this on its own: 
>
>   qryInmatesBinNumberUpdate
>
> and this in a new query:
>
>   SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'
>
> or should it be:
>
>   SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0
>
> /gustav
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From bchacc at san.rr.com  Sat Jan 28 15:31:18 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Sat, 28 Jan 2006 13:31:18 -0800
Subject: [AccessD] Function Error
In-Reply-To: <001101c62449$24166da0$017ba8c0@xpserver>
References: <001101c62449$24166da0$017ba8c0@xpserver>
Message-ID: <43DBE2A6.6060303@san.rr.com>

O.  I meant the use of the variable or field name Row in his SQL.  I was 
wondering what it referred to exactly and maybe there was a conflict 
with the reserved word.

Rocky


Jim Lawrence wrote:
> Hi Rocky:
>
> Isn't the record defined as a row and a field as a column?
>
> Here is a piece of code that works with a recordset, a standard data set
> should not work much differently.
>
> Dim RowPosition as long
> Dim ColumnPosition as integer
>
> RowPosition = 1200
> ColumnPosition = 12
>
> With rsMyRecordset
> 	.Move First
> 	.Move (RowPosition)
>    	MyFieldValue = .Fields(ColumnPosition)	
> End With
>
> HTH
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin -
> Beach Access Software
> Sent: January 28, 2006 10:05 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Function Error
>
> How is Row defined as a field in the table that the query uses?
>
> Rocky
>
>
> Gowey Mike W wrote:
>   
>> Sorry about that,
>>
>> If I run qryInmatesBinNumberUpdate it runs fine.
>>
>> If I run
>>  
>> SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'
>>
>> OR
>>
>> SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0 
>>
>> They both give me invalid procedure call
>>
>> Interesting......
>>
>> -----Original Message-----
>> From: Gustav Brock [mailto:Gustav at cactus.dk] 
>> Sent: Friday, January 27, 2006 10:35 AM
>> To: accessd at databaseadvisors.com
>> Subject: Re: [AccessD] Function Error
>>
>> Hi Mike, you didn't reveal the result of this:
>>
>>   
>>     
>>> 2005-01-27 16:09:23
>>>     
>>>       
>> Have you tried running this on its own: 
>>
>>   qryInmatesBinNumberUpdate
>>
>> and this in a new query:
>>
>>   SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = '0'
>>
>> or should it be:
>>
>>   SELECT SID FROM qryInmatesBinNumberUpdate WHERE Row = 0
>>
>> /gustav
>>
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>>
>>   
>>     
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From DElam at jenkens.com  Sat Jan 28 19:36:49 2006
From: DElam at jenkens.com (Elam, Debbie)
Date: Sat, 28 Jan 2006 19:36:49 -0600
Subject: [AccessD] ADP Connection Problems
Message-ID: <7B1961ED924D1A459E378C9B1BB22B4C0492D36C@natexch.jenkens.com>

If I could get in to change the connection, that would be the end of it.
The problem appears that the connection of an ADP is messed up altogether.
I cannot change any parameters to try it.  I really don't think the SQL
files are the problem.

Debbie



-----Original Message-----
From: MartyConnelly [mailto:martyconnelly at shaw.ca] 
Sent: Friday, January 27, 2006 6:38 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] ADP Connection Problems


runtime error 76 is generally path not found.

So Microsoft OLE DB Provider for SQL Server files
C:\Program Files\Common Files\System\Ole DB\sqloledb.dll
C:\Program Files\Common Files\System\Ole DB\sqloledb.rll
'this one updated by winxp sp2
C:\Program Files\Common Files\System\Ole DB\msdasql.dll

You can run MDAC Component Checker according to this kb article 
run on working and non working machines for differences

http://support.microsoft.com/kb/301202/en-us 

You might be using a File DSN that points locally rather than System DSN



Elam, Debbie wrote:

>I have a legacy database Discipline.adp in Access XP connection to a SQL
>2000 database.  On one particular computer, the database will not connect.
>It gives me a runtime error 76 then tells me to go to File> Connect and
>change the connection parameters.  If I try to open that, it just gives me
>the same error and message. 
>
>I can make an ODBC connection to that same database on that machine.  
>
>I also tried making a new .adp database and making the connection there.
It
>immediately gives me the same error and message and no way to get to that
>menu.
>
>I have already un-installed and re-installed Access, and still get the same
>problem.
>
>Does anyone have any ideas about how to fix this?  I am going for a
re-image
>on Monday if nothing else works.
>
>Debbie
>
>-
>

-- 
Marty Connelly
Victoria, B.C.
Canada



-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
- JENKENS & GILCHRIST E-MAIL NOTICE - This transmission may be: (1) subject
to the Attorney-Client Privilege, (2) an attorney work product, or (3)
strictly confidential. If you are not the intended recipient of this
message, you may not disclose, print, copy or disseminate this information.
If you have received this in error, please reply and notify the sender
(only) and delete the message. Unauthorized interception of this e-mail is a
violation of federal criminal law. 
This communication does not reflect an intention by the sender or the
sender's client or principal to conduct a transaction or make any agreement
by electronic means.  Nothing contained in this message or in any attachment
shall satisfy the requirements for a writing, and nothing contained herein
shall constitute a contract or electronic signature under the Electronic
Signatures in Global and National Commerce Act, any version of the Uniform
Electronic Transactions Act or any other statute governing electronic
transactions.


From Robert at servicexp.com  Sun Jan 29 08:50:59 2006
From: Robert at servicexp.com (Robert Gracie)
Date: Sun, 29 Jan 2006 09:50:59 -0500
Subject: [AccessD] Secured vs. Unsecured FEs
In-Reply-To: <008e01c3081a$a2341500$6101a8c0@amd2k512>
Message-ID: <000001c624e3$6b795e10$657ba8c0@Roberts>

 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Hindman
Sent: Monday, April 21, 2003 11:28 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Secured vs. Unsecured FEs

...securing your code is fairly simple and effective with XP encryption,
mdes, and ms security ...plenty of examples in the archives on this topic
...but definitely insist upon installing your own key logging detection
software (I prefer Pest Patrol) so that they can't grab your passwords
...and use REAL passwords and encrypt everything! ...langa's list just
pointed out how simple it is to bypass unencrypted security using linux boot
CDs on Win systems ...incredible :)

...the lock-in shouldn't be a major problem ...you'd still have access to
your code libraries but using your templates and tools would be problematic
...you'd have to rekey a module rather than just import it ...less
productive than you otherwise are but not a death blow ...point that out to
them and factor it into your price :)

William Hindman
"All it takes for evil to prevail is for good men to do nothing." Edmund
Burke

----- Original Message -----
From: "Michael R Mattys" <michael.mattys at adelphia.net>
To: <accessd at databaseadvisors.com>
Sent: Monday, April 21, 2003 10:38 AM
Subject: Re: [AccessD] Secured vs. Unsecured FEs


> The problems are:
>
> I am locked in and cannot transfer anything in or out.
> How to secure the code?
>
> Mike Mattys
>
> ----- Original Message -----
> From: "William Hindman" <wdhindman at bellsouth.net>
> To: <accessd at databaseadvisors.com>
> Sent: Monday, April 21, 2003 10:30 AM
> Subject: Re: [AccessD] Secured vs. Unsecured FEs
>
>
> > ...send him to me! :)))
> >
> > ...my goal at this stage of my retirement is to convince every 
> > client
that
> I
> > can support them over a high-speed VPN ...from Costa Rica
> :))))))))))))))))
> >
> > ...the only objection I'd have is that you definitely want to work 
> > on
one
> of
> > their workstations rather than on their server ...otherwise, as long 
> > as
> you
> > secure your code, I don't see the problem ...unless you mean he's
actually
> > expecting you to accomplish ALL development across the VPN rather 
> > than
> just
> > interfacing with his systems for installation and maintenance ...now
that
> > could be a real drag since the term "high speed VPN" is essentially 
> > meaningless in a development mode ...he'd have to give you a 
> > dedicated
T1
> to
> > keep you as productive as you are on a local workstation ...and even
then
> > there would be problems such as access to all your own code 
> > libraries, development tools, and template mdbs :(
> >
> > William Hindman
> > "All it takes for evil to prevail is for good men to do nothing." 
> > Edmund Burke
> >
> >
> > ----- Original Message -----
> > From: "Michael R Mattys" <michael.mattys at adelphia.net>
> > To: <accessd at databaseadvisors.com>
> > Sent: Monday, April 21, 2003 10:05 AM
> > Subject: Re: [AccessD] Secured vs. Unsecured FEs
> >
> >
> > > I have a client who wants me to do all development over a 
> > > high-speed VPN on their server.
> > >
> > > In what manner should I agree to this? Or not?
> > >
> > > Mike Mattys
> > >
> > > ----- Original Message -----
> > > From: "William Hindman" <wdhindman at bellsouth.net>
> > > > ...yes, always unless the client stipulates otherwise ...and 
> > > > then I
> > > include
> > > > a clause about individual copyrights where such code is used AND
> charge
> > > him
> > > > a stiff differential for it ...client response varies ...most 
> > > > really
> > don't
> > > > care about the code, they get it confused with the ownership of
their
> > data
> > > > ...but for those that do, its available.
> > > >
> > > > William Hindman
> > > > "All it takes for evil to prevail is for good men to do nothing."
> Edmund
> > > > Burke
> > > >
> > > > ----- Original Message -----
> > > > From: "Stephen Bond" <stephen at bondsoftware.co.nz>
> > > > > William, do you ever assert ownership of the code at the 
> > > > > beginning
> of
> > a
> > > > contract? Down here, the law says it is the client's unless 
> > > > asserted
> at
> > > the
> > > > start of the contract, so I do.
> > >
> > >
> > > _______________________________________________
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> > >
> >
> >
> > _______________________________________________
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com





From robert at servicexp.com  Sun Jan 29 10:42:44 2006
From: robert at servicexp.com (Robert Gracie)
Date: Sun, 29 Jan 2006 11:42:44 -0500
Subject: [AccessD] What is up with AccessXP User Level Security??
Message-ID: <3C6BD610FA11044CADFC8C13E6D5508F042CEE@gbsserver.GBS.local>

 To start off, I'm am fairly familiar with user level security, or at
least I thought I was...

I'm upgrading a secured Access 2000 DB to Access 2002. I had some
initial trouble using the old mdw with the newly converted db. So I
de-secured the db, imported all the objects into a new 2002 db container
and ran the security wizard (I created a new mdw (duplicate, from
original mdw info), all went well.

I created 2 groups Manually, and assigned all necessary perms both in FE
and BE. So in testing I discovered that the only user, object owner,
used to create the new FE db can successfully relink tables and other
functions. So I gave FULL permissions for my 2 manually created groups
on all objects in the FE, & BE and then assign a user to one of the
groups, still no go. So I assign the user to the "Admins" group (still
assigned to the full permissions group I created) as a test (the Admins
group has completely revoked permissions to EVERYTHING) and whola links
perfectly.

The user has NO implicit permissions, they are all inherited.  I have
worked with jet security for quite some time, but this has be baffled...

Does anyone have any ideas on this...?


Robert Gracie
www.gbsysnow.com


From darrend at nimble.com.au  Sun Jan 29 16:29:25 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Mon, 30 Jan 2006 09:29:25 +1100
Subject: [AccessD] Same form, different actions
In-Reply-To: <s3da3729.073@nebnov3.niagaracounty.com>
Message-ID: <20060129222930.SHDV17345.omta04ps.mx.bigpond.com@DENZILLAP>

Hi John
Anyone feel free to jump in if I have this wrong 

The open Args are quite useful, but tacked on the end of a Do.cmd statement they
don't do much
Just text or numbers (usually) tacked on the end of an OpenForm Do.Cmd statment

The real 'power' is in the interpretation at the other end

Eg at the 'originating or calling' end
Docmd.openform "frmSomeName",,,,,, "OpenAsDA"
Or
Docmd.openform "frmSomeName",,,,,, "OpenAsADA"
Or
Docmd.openform "frmSomeName",,,,,, "OpenAsJUD"
Or
Docmd.openform "frmSomeName",,,,,, "OpenAsVIC"

Etc - you get the idea


So....
AT the other end
IE in the OnOpen, OnCurrent etc of "frmSomeForm"
You could do lots off things because your Destination form will 'hear' and 'see'
the "OpenAsDA" etc opening Argument passed to it
But like I said earlier, how you handle it at the Destination end is crucuial

So you could have a big (or small) select case or if statement
Determining the OpenArgs passed

Eg

Select case me.openArgs

Case  "OpenAsDA"
	'Open as Ass DA form
	me.cboSubjects.rowsourse = "Select *from Subjects where UsreType = 1"

Case "OpenAsDA"
	'Open as DA form
	me.cboSubjects.rowsourse = "Select *from Subjects where UsreType = 2"
"OpenAsJUD"
	'Open as Judge form
	me.cboSubjects.rowsourse = "Select *from Subjects where UsreType = 3"
"OpenAsVIC"
	'Open as Victim form
	me.cboSubjects.rowsourse = "Select *from Subjects where UsreType = 4"
Case else

End select


Or you could replace the Case statements from "OpenAsDA"
To the actual values from the OptionGroup in the calling form
EG
Select Case Forms!callingForm!SomeOptionGroup

Case 1
	'Open as Ass DA form
	me.cboSubjects.rowsourse = "Select *from Subjects where UsreType = 1"
Case 2
	'Open as DA form
	me.cboSubjects.rowsourse = "Select *from Subjects where UsreType = 2"
And so on

So...
Hope this makes sense

See ya

Darren



From artful at rogers.com  Sun Jan 29 17:34:04 2006
From: artful at rogers.com (Arthur Fuller)
Date: Sun, 29 Jan 2006 18:34:04 -0500
Subject: [AccessD] Switch tab pages based on an AfterUpdate event
Message-ID: <015601c6252c$7de5f8d0$8e01a8c0@rock>

Assume N pages on tab control. Page 3 depends upon a value entered in Page
2. 
Two questions:
1. How would I refer to the control on page 2 from page 3 (assume that page
3 contains a subform. I don't want to mention the parent specifically but
rather refer to it via the Parent property. This syntax always confuses me.
2. Imagine that I have a value on the main form which enables to you to
specify the number of objects X (which are embedded in this table -- NOT my
choice but I am dealing with an inherited design!)... the original developer
created a bunch of columns named X1a, X1b..., X2a, X2b and so on, up to X4.
There are so many of these that I had to create a subform and plonk all the
X2s... X4s on the subform and use a separate query for the subform. Version
2 of this software is already on the drawing board but while it's in
development I have to deal with the bugs in V. 1.0 and fix them. So...
suppose two tab pages, the first for the most common case, which assumes the
existence of 1 instance of object X, and another tab page which assumes the
existence of more than 1 object X. (Let's not address the intelligence of
this design; I already agree with your objections.) On the first page of the
tabbed form the user tells me how many instances of object X there are. The
answer could be 0...4. 
In the event of zero, I would like to hide two tab pages, the one that
obtains the info for X1 and the other that obtains the info for objects
X2...X4. 
In the event of 1 instance, I want to hide the second tab page and make
visible the first. 
In the event of 2 intances, I want to expose the second tab page and disable
the controls corresponding to X3 and X4.
Ditto 3 instances.
On 4 instances, then everything is enabled. 
So... my alleged scenario is this:
1. Open the form in Add mode and neither tab page is exposed until I obtain
a value for the number of instances. The moment I obtain the number of
instances, I reveal the page(s) described above.
2. Open an existing row and the FormOpen code looks at this value and
decides whether to expose either or both of these tab pages.
I hope that I have described the problem adequately.
The code that I inherited works, sort of, but it is not bulletproof. It lets
you enter nonsensical data (i.e. you can specify there are 2 instances of
object X and then add details about instance 3, which makes no sense; yes, I
could code it ass-backwards and determine how many instances you filled in,
then go back and adjust the "number of instances" control, but IMO this
approach is asinine.
My design principle, wherever possible, is to preclude errors rather than
respond to them. So if the number of instances is 2, you should not be
allowed to enter info about instance 3 or 4. 
You might disagree with this design principle; that is your prerogative; but
it is the one that I try hard to adhere to.
Bit of a sidetrack there, so I will reiterate briefly:
Number of instances declared (either in data-entry or in retrieve is 1: hide
the tab page that exposes instances 2...4.
Number of instances declared is zero (new record or existing record where
instances = zero), hide both pages.
Number of instances > 1, expose both tab pages.
Number of instances = 2, disable the X3 and X4 controls on the second tab
page.
Number of instances = 3, disable the X4 controls.
Number of instances = 4, enable all the controls.

Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks
 




From darrend at nimble.com.au  Sun Jan 29 18:36:38 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Mon, 30 Jan 2006 11:36:38 +1100
Subject: [AccessD] Bit OT: What is Access Written in?
Message-ID: <20060130003650.XFGA16720.omta01sl.mx.bigpond.com@DENZILLAP>

Is it C#?
 
Thanks
 
DD


From dwaters at usinternet.com  Sun Jan 29 19:23:43 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Sun, 29 Jan 2006 19:23:43 -0600
Subject: [AccessD] Switch tab pages based on an AfterUpdate event
In-Reply-To: <25805753.1138577919189.JavaMail.root@sniper17>
Message-ID: <000001c6253b$cf6a0d90$0200a8c0@danwaters>

Hi Arthur,

Arthur,

I do something like this in one of my applications.  There are 4 pages on a
6 page tab control where each of the 4 has a subform control.  Within each
subform control I can place a specific subform, depending on which Machine
number was selected on the Main form.

Below is the code to manage this for the first page where different forms
can be placed.  This code is called by the Form_Current event for the main
form, but could be called by other events as well.  Perhaps this will give
you some ideas.

objDCSPageA is the name of the subform control.  Note that if
cboMachineNumber is null, then the subform becomes not visible, and the page
caption becomes and empty string.

Hope this helps!
Dan

---------------------------------------------------------------------------
Private Sub FormatMachineSettingsA()
If ErrorTrapping = True Then On Error GoTo EH

    MblnRunCurrentSub = False

    If Not IsNull(cboMachineNumber) Then
        objDCSPageA.Visible = True
        Select Case cboMachineNumber
            Case 1
                objDCSPageA.SourceObject = "frmDCS1EjectorsSettings"
                pgeMachineSettingsA.Caption = "1 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine1"
            Case 2
                objDCSPageA.SourceObject = "frmDCS2-3EjectorsSettings"
                pgeMachineSettingsA.Caption = "2 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine2"
            Case 3
                objDCSPageA.SourceObject = "frmDCS2-3EjectorsSettings"
                pgeMachineSettingsA.Caption = "3 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine3"
            Case 4
                objDCSPageA.SourceObject = "frmDCS4-5-20EjectorsSettingsA"  
                pgeMachineSettingsA.Caption = "4 - Ejectors 1"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine4"
            Case 5
                objDCSPageA.SourceObject = "frmDCS4-5-20EjectorsSettingsA"  
                pgeMachineSettingsA.Caption = "5 - Ejectors 1"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine5"
            Case 6
                objDCSPageA.SourceObject = "frmDCS6Ejectors"
                pgeMachineSettingsA.Caption = "6 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine6"
            Case 8
                objDCSPageA.SourceObject = "frmDCS8-9EjectorsSettings"
                pgeMachineSettingsA.Caption = "8 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine8"
            Case 9
                objDCSPageA.SourceObject = "frmDCS8-9EjectorsSettings"
                pgeMachineSettingsA.Caption = "9 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine9"
            Case 10
                objDCSPageA.SourceObject = "frmDCS10-14EjectorsSettings"
                pgeMachineSettingsA.Caption = "10 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine10"
            Case 11
                objDCSPageA.SourceObject = "frmDCS11EjectorsSettings"
                pgeMachineSettingsA.Caption = "11 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine11"
            Case 12
                objDCSPageA.SourceObject = "frmDCS12EjectorsSettings"
                pgeMachineSettingsA.Caption = "12 - Ejectors"
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine12"
            Case 13
                objDCSPageA.SourceObject = "frmDCS13EjectorsSettings"
                pgeMachineSettingsA.Caption = "13 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine13"
            Case 14
                objDCSPageA.SourceObject = "frmDCS10-14EjectorsSettings"
                pgeMachineSettingsA.Caption = "14 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine14"
            Case 15
                objDCSPageA.SourceObject = "frmDCS15EjectorsSettings"
                pgeMachineSettingsA.Caption = "15 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine15"
            Case 16
                objDCSPageA.SourceObject = "frmDCS16EjectorsSettings"
                pgeMachineSettingsA.Caption = "16 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine16"
            Case 17
                objDCSPageA.SourceObject = "frmDCS17EjectorsSettings"
                pgeMachineSettingsA.Caption = "17 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine17"
            Case 18
                objDCSPageA.SourceObject = "frmDCS18EjectorsSettings"
                pgeMachineSettingsA.Caption = "18 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine18"
            Case 19
                objDCSPageA.SourceObject = "frmDCS19EjectorsSettings"
                pgeMachineSettingsA.Caption = "19 - Ejectors"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine19"
            Case 20
                objDCSPageA.SourceObject = "frmDCS4-5-20EjectorsSettingsA"  
                pgeMachineSettingsA.Caption = "20 - Ejectors 1"
                objDCSPageA.Visible = True
                MblnRunCurrentSub = True
                objDCSPageA.Form.RecordSource = "tblDCSMachine20"
        End Select
    Else
        objDCSPageA.SourceObject = ""
        objDCSPageA.Visible = False
        pgeMachineSettingsA.Caption = " "
    End If
    
    Exit Sub

EH:
    Application.Echo True
    Call GlobalErrors(txtDCSID, Err.Number, Err.Description, Me.Name,
"FormatMachineSettingsA")

End Sub
----------------------------------------------------------------------------

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: Sunday, January 29, 2006 5:34 PM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Switch tab pages based on an AfterUpdate event

Assume N pages on tab control. Page 3 depends upon a value entered in Page
2. 
Two questions:
1. How would I refer to the control on page 2 from page 3 (assume that page
3 contains a subform. I don't want to mention the parent specifically but
rather refer to it via the Parent property. This syntax always confuses me.
2. Imagine that I have a value on the main form which enables to you to
specify the number of objects X (which are embedded in this table -- NOT my
choice but I am dealing with an inherited design!)... the original developer
created a bunch of columns named X1a, X1b..., X2a, X2b and so on, up to X4.
There are so many of these that I had to create a subform and plonk all the
X2s... X4s on the subform and use a separate query for the subform. Version
2 of this software is already on the drawing board but while it's in
development I have to deal with the bugs in V. 1.0 and fix them. So...
suppose two tab pages, the first for the most common case, which assumes the
existence of 1 instance of object X, and another tab page which assumes the
existence of more than 1 object X. (Let's not address the intelligence of
this design; I already agree with your objections.) On the first page of the
tabbed form the user tells me how many instances of object X there are. The
answer could be 0...4. 
In the event of zero, I would like to hide two tab pages, the one that
obtains the info for X1 and the other that obtains the info for objects
X2...X4. 
In the event of 1 instance, I want to hide the second tab page and make
visible the first. 
In the event of 2 intances, I want to expose the second tab page and disable
the controls corresponding to X3 and X4.
Ditto 3 instances.
On 4 instances, then everything is enabled. 
So... my alleged scenario is this:
1. Open the form in Add mode and neither tab page is exposed until I obtain
a value for the number of instances. The moment I obtain the number of
instances, I reveal the page(s) described above.
2. Open an existing row and the FormOpen code looks at this value and
decides whether to expose either or both of these tab pages.
I hope that I have described the problem adequately.
The code that I inherited works, sort of, but it is not bulletproof. It lets
you enter nonsensical data (i.e. you can specify there are 2 instances of
object X and then add details about instance 3, which makes no sense; yes, I
could code it ass-backwards and determine how many instances you filled in,
then go back and adjust the "number of instances" control, but IMO this
approach is asinine.
My design principle, wherever possible, is to preclude errors rather than
respond to them. So if the number of instances is 2, you should not be
allowed to enter info about instance 3 or 4. 
You might disagree with this design principle; that is your prerogative; but
it is the one that I try hard to adhere to.
Bit of a sidetrack there, so I will reiterate briefly:
Number of instances declared (either in data-entry or in retrieve is 1: hide
the tab page that exposes instances 2...4.
Number of instances declared is zero (new record or existing record where
instances = zero), hide both pages.
Number of instances > 1, expose both tab pages.
Number of instances = 2, disable the X3 and X4 controls on the second tab
page.
Number of instances = 3, disable the X4 controls.
Number of instances = 4, enable all the controls.

Arthur,
Son of Uther Pendragon,
Defeater of the Saxons,
Lord Over Alllll England, and
King of the Dorks
 


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jwcolby at ColbyConsulting.com  Sun Jan 29 20:19:27 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sun, 29 Jan 2006 21:19:27 -0500
Subject: [AccessD] Bit OT: What is Access Written in?
In-Reply-To: <20060130003650.XFGA16720.omta01sl.mx.bigpond.com@DENZILLAP>
Message-ID: <000101c62543$99d6de30$657aa8c0@ColbyM6805>

C++ is more likely, with pieces optimized in assembler.  Not certain though.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 7:37 PM
To: AccessD
Subject: [AccessD] Bit OT: What is Access Written in?

Is it C#?
 
Thanks
 
DD
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From dwaters at usinternet.com  Sun Jan 29 20:31:25 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Sun, 29 Jan 2006 20:31:25 -0600
Subject: [AccessD] Bit OT: What is Access Written in?
In-Reply-To: <8627761.1138588008635.JavaMail.root@sniper22>
Message-ID: <000101c62545$449f0080$0200a8c0@danwaters>

I took a class once for Access.  There was an Access error and somehow
another program opened which I recognized as C++.  At that time I assumed
that Access was written in C++.

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Sunday, January 29, 2006 8:19 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Bit OT: What is Access Written in?

C++ is more likely, with pieces optimized in assembler.  Not certain though.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 7:37 PM
To: AccessD
Subject: [AccessD] Bit OT: What is Access Written in?

Is it C#?
 
Thanks
 
DD
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From darrend at nimble.com.au  Sun Jan 29 20:54:58 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Mon, 30 Jan 2006 13:54:58 +1100
Subject: [AccessD] Bit OT: What is Access Written in?
In-Reply-To: <000101c62545$449f0080$0200a8c0@danwaters>
Message-ID: <20060130025513.JBKD1358.omta03sl.mx.bigpond.com@DENZILLAP>

Thanks y'all 


Darren
------------------------------
T: 0424 696 433
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: Monday, 30 January 2006 1:31 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Bit OT: What is Access Written in?

I took a class once for Access.  There was an Access error and somehow another
program opened which I recognized as C++.  At that time I assumed that Access
was written in C++.

Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Sunday, January 29, 2006 8:19 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Bit OT: What is Access Written in?

C++ is more likely, with pieces optimized in assembler.  Not certain though.


John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 7:37 PM
To: AccessD
Subject: [AccessD] Bit OT: What is Access Written in?

Is it C#?
 
Thanks
 
DD
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jwcolby at ColbyConsulting.com  Sun Jan 29 22:20:21 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Sun, 29 Jan 2006 23:20:21 -0500
Subject: [AccessD] Same form, different actions
In-Reply-To: <20060129222930.SHDV17345.omta04ps.mx.bigpond.com@DENZILLAP>
Message-ID: <000501c62554$7c7857e0$657aa8c0@ColbyM6805>

>>The open Args are quite useful, but tacked on the end of a Do.cmd
statement they don't do much Just text or numbers (usually) tacked on the
end of an OpenForm Do.Cmd statement.  The real 'power' is in the
interpretation at the other end

Darren,

First let me say that I have put up a demo on my site which shows how to use
the two classes in the following discussion.  Go to my website -
www.colbyconsulting.com.  If you haven't already, Register.  Log in.  Click
Example Code / Utilities.  Select C2DbOpenArgs to download the demo.


I pass openargs in the form Varname1=VarVal1;VarName2=VarVal2;etc=etc1; This
is a syntax that has been around since early Access days and was used
extensively by, and perhaps even "invented by" Ken Getz.  The = is used as
the separator, the semicolon as the delimiter.

I wrote a pair of classes which handle my openargs.  A "control class" which
I name OpenArgs (plural) grabs the openargs string and parses the varname
and value for each openarg.  It then instantiates a OpenArg (singular) class
to store this VarName and VarVal in.  VarName is a string type, VarVal is a
variant type.  Making it Variant causes an automatic coercion in a lot of
cases - currency values get turned into Currency variants, dates get turned
into dates etc.  At any rate, each OpenArg instance is stored in a
collection in the OpenArgs (plural) class.

The OpenArgs class is dimensioned in the form header, and instantiated in
the OnOpen of the form.  By the time it finishes loading, all of the
OpenArgs are parsed and sitting in OpenArg class instances in the collection
in OpenArgs.  OpenArgs has a method for reading OpenArg instances from the
collection.  OpenArg instances are stored in the collection keyed on the
VarName.  

Thus you have a pair of classes which automatically handles getting openargs
for you, one or a hundred, it doesn't matter, and it doesn't have to be
"re-invented" every time you want to get your openargs.  Syntax is now
standardized everywhere in your app.

The form of course must know what openargs it is expecting, so it can now
simply call OpenArgs.Arg("VarName") and get back VarVal (a variant).  What
the form does with the OpenArg is up to you, but getting the OpenArgs
available to the form is trivial.

All of the code follows.  My clsOpenArgs (plural, the controller) also has
the ability to automatically interpret openargs as properties of the form.
In other words, if a param is passed in to clsOpenArgs that says to do so,
then if an OpenArg VarName is the same as a property of the form, the form
property is set to VarVal.  I have actually demoed this in the state form,
where the form that opens frmState passes in the values for properties 

strOpenArgs = "DataEntry=True;AllowEdits=True;AllowDeletions=False;"

The state form opens, the OpenArgs class parses the OpenArgs string passed
in, discovers that I want it to use the openargs to set form properties, and
does so.

Any OpenArgs which do not match the name of a form property are left
uninterpreted and the form can use them for whatever purpose you choose.
You can also not tell clsOpenArgs to interpret the openargs as form
properties, in which case all OpenArgs are left uninterpreted and you can do
with them all as you will.

The code:

'===========================================================
'Class OpenArg
'===========================================================
Option Compare Database
Option Explicit

'
'This class stores one OpenArg
'
Private mstrArgName As String
Private mvarArgVal As Variant
Private mblnIsProperty As Boolean

Function mInit(lstrArgName As String, lvarArgVal As Variant)
    mstrArgName = lstrArgName
    mvarArgVal = lvarArgVal
End Function
Function pName() As String
    pName = mstrArgName
End Function
Function pVal() As Variant
    pVal = mvarArgVal
End Function
Property Let pIsPrp(lmblnIsProperty As Boolean)
    mblnIsProperty = lmblnIsProperty
End Property
Property Get pIsPrp() As Boolean
    pIsPrp = mblnIsProperty
End Property


'===========================================================
'Class OpenArgs (Plural) - the controller class
'===========================================================
Option Compare Database
Option Explicit
'.
'.Written By   : John W. Colby
'.Date Created : 04/10/2004
' Rev. History :
'
' BEHAVIORS:
'
'
'When a form opens, it can accept open args, a text string argument.
'The framework will check for openargs, and if they exist will check
'inside the Openagrs for arguments named the same thing as form properties.
'If such arguments are found, the framework will set the form's property
'equal to the argument value.
'
'I use this specifically to set up normal forms to be DataEntry forms
'(only allow new records to be added, not existing records edited)
'
'I decided to encapsulate this functionality in a class to make the OpenArgs
'processing cleanly defined.
'
'--------------------------------------------------------------------------
'THESE CONSTANTS AND VARIABLES ARE USED INTERNALLY TO THE CLASS
'*+ Class constant declaration
Private Const mcstrModuleName As String = "clsOpenArgs"
'*- Class constants declaration
'*+ Class variables declarations
'*- Class variables declarations
'.-------------------------------------------------------------------------
'THESE CONSTANTS AND VARIABLES ARE USED BY THE CLASS TO IMPLEMENT CLASS
FUNCTIONALITY
'*+ custom constants declaration
'
'*- Custom constants declaration
'*+ custom variables declarations
'
Private mfrm As Form     'A form reference passed in
Private mstrOpenArgs As String
Private mcolOpenArg As Collection
'*- custom variables declarations
'
'Define any events this class will raise here
'*+ custom events Declarations
'Public Event MyEvent(Status As Integer)
'*- custom events declarations
'.-------------------------------------------------------------------------
'THESE FUNCTIONS / SUBS ARE USED INTERNALLY TO THE CLASS
'*+ Private Init/Terminate Interface
Private Sub Class_Initialize()
On Error GoTo Err_Class_Initialize
    Set mcolOpenArg = New Collection
Exit_Class_Initialize:
Exit Sub
Err_Class_Initialize:
        MsgBox Err.Description, , "Error in Sub
clsTemplate.Class_Initialize"
        Resume Exit_Class_Initialize
    Resume 0    '.FOR TROUBLESHOOTING
End Sub
Private Sub Class_Terminate()
On Error Resume Next
    mTerm
End Sub
'INITIALIZE THE CLASS
Public Sub mInit(lfrm As Form, _
                Optional blnApplyProperties As Boolean = False)
    Set mfrm = lfrm
    'The openargs string might be null
    On Error Resume Next
    mstrOpenArgs = mfrm.OpenArgs
    
    ParseOpenArgs
    '
    'The default is false, do not try and apply OpenArgs as form properties
    'If the deveopler wants to
    '
    If blnApplyProperties Then
        ApplyFrmProperties
    End If
End Sub
'CLEAN UP ALL OF THE CLASS POINTERS
Public Sub mTerm()
Static blnRan As Boolean    'The term may run more than once so
    If blnRan Then Exit Sub 'just exit if it already ran
    blnRan = True
    On Error Resume Next
    mColEmpty mcolOpenArg
    Set mcolOpenArg = Nothing
End Sub
'*- Public Init/Terminate interface
'.-------------------------------------------------------------------------
'THESE FUNCTIONS SINK EVENTS DECLARED WITHEVENTS IN THIS CLASS
'*+ Form WithEvent interface
'*- Form WithEvent interface
'THESE FUNCTIONS / SUBS ARE USED TO IMPLEMENT CLASS FUNCTIONALITY
'*+PRIVATE Class function / sub declaration
Private Function cOpenArg(strOpenArg As String) As clsOpenArg
Dim intPosEqual As Integer
Dim strArgName As String
Dim varArgVal As Variant
Dim lclsOpenArg As clsOpenArg
    intPosEqual = InStr(strOpenArg, "=")
    If intPosEqual > 0 Then
        strArgName = Left$(strOpenArg, intPosEqual - 1)
        varArgVal = Right$(strOpenArg, Len(strOpenArg) - intPosEqual)
        Set lclsOpenArg = New clsOpenArg
        lclsOpenArg.mInit strArgName, varArgVal
        Set cOpenArg = lclsOpenArg
    End If
End Function
'
Private Sub ParseOpenArgs()
Dim lstrOpenArgs As String
Dim strOpenArg As String
Dim intPos As Integer
Dim lclsOpenArg As clsOpenArg
    lstrOpenArgs = mstrOpenArgs
    intPos = InStr(lstrOpenArgs, ";")
    
    While intPos > 0
        strOpenArg = Left$(lstrOpenArgs, intPos - 1)
        Set lclsOpenArg = OpenArg(strOpenArg)
        mcolOpenArg.Add lclsOpenArg, lclsOpenArg.pName
        lstrOpenArgs = Right$(lstrOpenArgs, Len(lstrOpenArgs) - intPos)
        intPos = InStr(lstrOpenArgs, ";")
    Wend

End Sub
'
'This function cycles through all the openargs applying them to form
properties
'if an argument is named the same as a form property, and the property is
writeable
'(doesn't require being in design view to set it) then the application of
the value
'to the property will be performed and Err will not be set.  For these
OpenArgs we
'set the IsPrp to true
'
'All of this provides a way for the developer to ppass in openargs to an
opening form
'which are then used to set form properties.  It is up to the developer to
ensure that
'the property is settable, that the value they pass in is valid (correct
data type,
'correct value range etc.)
'
'In the end, the only way to know whether a passed in OpenArg is a property
is to try
'it and see.  If there is no error then the name is a property name, it is
settable in
'form view mode, and the value is acceptable.
'
Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub
'
'Empties out a collection containing class instances
'
Public Function mColEmpty(col As Collection)
On Error GoTo Err_mColEmpty

Dim obj As Object
On Error Resume Next
    
    For Each obj In col
        obj.mTerm
    Next obj

On Error GoTo Err_mColEmpty
    While col.Count > 0
        col.Remove 1
    Wend
exit_mColEmpty:
Exit Function
Err_mColEmpty:
    Select Case Err
    Case 91 'Collection empty
        Resume exit_mColEmpty
    Case Else
        MsgBox Err.Description, , "Error in Function clsSysVars.mColEmpty"
        Resume exit_mColEmpty
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function

'*-PRIVATE Class function / sub declaration
'*+PUBLIC Class function / sub declaration
Function OpenArg(strArgName As String) As Variant
On Error GoTo Err_OpenArg
    OpenArg = mcolOpenArg(strArgName).pVal
Exit_OpenArg:
Exit Function
Err_OpenArg:
    Select Case Err
    Case 91
        MsgBox "OpenArg " & strArgName & " does not exist"
        Resume Exit_OpenArg
    Case Else
        MsgBox Err.Description, , "Error in Function clsOpenArgs.OpenArg"
        Resume Exit_OpenArg
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function'*-PUBLIC Class function / sub declaration

'===========================================================
'Form frmStates - a demo form that displays a state lookup table
'===========================================================
Option Compare Database
Option Explicit

Private lclsOpenArgs As clsOpenArgs

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True
End Sub
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click

    DoCmd.Close

Exit_cmdClose_Click:
    Exit Sub
Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click
End Sub

'===========================================================
'Form frmOpenArgsDemo - a demo form that opens the state form, 
'passing in openargs
'===========================================================
Option Compare Database
Option Explicit

Private Sub cmdStatesDataEntry_Click()
On Error GoTo Err_cmdStatesDataEntry_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim strOpenArgs As String
    
    strOpenArgs = "DataEntry=True;AllowEdits=True;AllowDeletions=False;"
    stDocName = "frmStates"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , strOpenArgs

Exit_cmdStatesDataEntry_Click:
    Exit Sub

Err_cmdStatesDataEntry_Click:
    MsgBox Err.Description
    Resume Exit_cmdStatesDataEntry_Click
    Resume 0
End Sub

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 5:29 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions

Hi John
Anyone feel free to jump in if I have this wrong 

The open Args are quite useful, but tacked on the end of a Do.cmd statement
they don't do much Just text or numbers (usually) tacked on the end of an
OpenForm Do.Cmd statment

The real 'power' is in the interpretation at the other end

.....



From darrend at nimble.com.au  Sun Jan 29 22:51:19 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Mon, 30 Jan 2006 15:51:19 +1100
Subject: [AccessD] Same form, different actions
In-Reply-To: <000501c62554$7c7857e0$657aa8c0@ColbyM6805>
Message-ID: <20060130045124.JBHL24868.omta05sl.mx.bigpond.com@DENZILLAP>

Brilliant
Many thanks for that John
I am grateful
 
I never quite 'got into' classes
It was always on my to-do list
Now I virtually do nothing with Access <sigh>
I only lurk the list because of sentimental attachment :-)))

See ya

Darren
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Monday, 30 January 2006 3:20 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions

>>The open Args are quite useful, but tacked on the end of a Do.cmd
statement they don't do much Just text or numbers (usually) tacked on the end of
an OpenForm Do.Cmd statement.  The real 'power' is in the interpretation at the
other end

Darren,

First let me say that I have put up a demo on my site which shows how to use the
two classes in the following discussion.  Go to my website -
www.colbyconsulting.com.  If you haven't already, Register.  Log in.  Click
Example Code / Utilities.  Select C2DbOpenArgs to download the demo.


I pass openargs in the form Varname1=VarVal1;VarName2=VarVal2;etc=etc1; This is
a syntax that has been around since early Access days and was used extensively
by, and perhaps even "invented by" Ken Getz.  The = is used as the separator,
the semicolon as the delimiter.

I wrote a pair of classes which handle my openargs.  A "control class" which I
name OpenArgs (plural) grabs the openargs string and parses the varname and
value for each openarg.  It then instantiates a OpenArg (singular) class to
store this VarName and VarVal in.  VarName is a string type, VarVal is a variant
type.  Making it Variant causes an automatic coercion in a lot of cases -
currency values get turned into Currency variants, dates get turned into dates
etc.  At any rate, each OpenArg instance is stored in a collection in the
OpenArgs (plural) class.

The OpenArgs class is dimensioned in the form header, and instantiated in the
OnOpen of the form.  By the time it finishes loading, all of the OpenArgs are
parsed and sitting in OpenArg class instances in the collection in OpenArgs.
OpenArgs has a method for reading OpenArg instances from the collection.
OpenArg instances are stored in the collection keyed on the VarName.  

Thus you have a pair of classes which automatically handles getting openargs for
you, one or a hundred, it doesn't matter, and it doesn't have to be
"re-invented" every time you want to get your openargs.  Syntax is now
standardized everywhere in your app.

The form of course must know what openargs it is expecting, so it can now simply
call OpenArgs.Arg("VarName") and get back VarVal (a variant).  What the form
does with the OpenArg is up to you, but getting the OpenArgs available to the
form is trivial.

All of the code follows.  My clsOpenArgs (plural, the controller) also has the
ability to automatically interpret openargs as properties of the form.
In other words, if a param is passed in to clsOpenArgs that says to do so, then
if an OpenArg VarName is the same as a property of the form, the form property
is set to VarVal.  I have actually demoed this in the state form, where the form
that opens frmState passes in the values for properties 

strOpenArgs = "DataEntry=True;AllowEdits=True;AllowDeletions=False;"

The state form opens, the OpenArgs class parses the OpenArgs string passed in,
discovers that I want it to use the openargs to set form properties, and does
so.

Any OpenArgs which do not match the name of a form property are left
uninterpreted and the form can use them for whatever purpose you choose.
You can also not tell clsOpenArgs to interpret the openargs as form properties,
in which case all OpenArgs are left uninterpreted and you can do with them all
as you will.

The code:

'===========================================================
'Class OpenArg
'===========================================================
Option Compare Database
Option Explicit

'
'This class stores one OpenArg
'
Private mstrArgName As String
Private mvarArgVal As Variant
Private mblnIsProperty As Boolean

Function mInit(lstrArgName As String, lvarArgVal As Variant)
    mstrArgName = lstrArgName
    mvarArgVal = lvarArgVal
End Function
Function pName() As String
    pName = mstrArgName
End Function
Function pVal() As Variant
    pVal = mvarArgVal
End Function
Property Let pIsPrp(lmblnIsProperty As Boolean)
    mblnIsProperty = lmblnIsProperty
End Property
Property Get pIsPrp() As Boolean
    pIsPrp = mblnIsProperty
End Property


'===========================================================
'Class OpenArgs (Plural) - the controller class
'===========================================================
Option Compare Database
Option Explicit
'.
'.Written By   : John W. Colby
'.Date Created : 04/10/2004
' Rev. History :
'
' BEHAVIORS:
'
'
'When a form opens, it can accept open args, a text string argument.
'The framework will check for openargs, and if they exist will check 'inside the
Openagrs for arguments named the same thing as form properties.
'If such arguments are found, the framework will set the form's property 'equal
to the argument value.
'
'I use this specifically to set up normal forms to be DataEntry forms '(only
allow new records to be added, not existing records edited) '
'I decided to encapsulate this functionality in a class to make the OpenArgs
'processing cleanly defined.
'
'--------------------------------------------------------------------------
'THESE CONSTANTS AND VARIABLES ARE USED INTERNALLY TO THE CLASS '*+ Class
constant declaration Private Const mcstrModuleName As String = "clsOpenArgs"
'*- Class constants declaration
'*+ Class variables declarations
'*- Class variables declarations
'.-------------------------------------------------------------------------
'THESE CONSTANTS AND VARIABLES ARE USED BY THE CLASS TO IMPLEMENT CLASS
FUNCTIONALITY '*+ custom constants declaration '
'*- Custom constants declaration
'*+ custom variables declarations
'
Private mfrm As Form     'A form reference passed in
Private mstrOpenArgs As String
Private mcolOpenArg As Collection
'*- custom variables declarations
'
'Define any events this class will raise here '*+ custom events Declarations
'Public Event MyEvent(Status As Integer)
'*- custom events declarations
'.-------------------------------------------------------------------------
'THESE FUNCTIONS / SUBS ARE USED INTERNALLY TO THE CLASS '*+ Private
Init/Terminate Interface Private Sub Class_Initialize() On Error GoTo
Err_Class_Initialize
    Set mcolOpenArg = New Collection
Exit_Class_Initialize:
Exit Sub
Err_Class_Initialize:
        MsgBox Err.Description, , "Error in Sub clsTemplate.Class_Initialize"
        Resume Exit_Class_Initialize
    Resume 0    '.FOR TROUBLESHOOTING
End Sub
Private Sub Class_Terminate()
On Error Resume Next
    mTerm
End Sub
'INITIALIZE THE CLASS
Public Sub mInit(lfrm As Form, _
                Optional blnApplyProperties As Boolean = False)
    Set mfrm = lfrm
    'The openargs string might be null
    On Error Resume Next
    mstrOpenArgs = mfrm.OpenArgs
    
    ParseOpenArgs
    '
    'The default is false, do not try and apply OpenArgs as form properties
    'If the deveopler wants to
    '
    If blnApplyProperties Then
        ApplyFrmProperties
    End If
End Sub
'CLEAN UP ALL OF THE CLASS POINTERS
Public Sub mTerm()
Static blnRan As Boolean    'The term may run more than once so
    If blnRan Then Exit Sub 'just exit if it already ran
    blnRan = True
    On Error Resume Next
    mColEmpty mcolOpenArg
    Set mcolOpenArg = Nothing
End Sub
'*- Public Init/Terminate interface
'.-------------------------------------------------------------------------
'THESE FUNCTIONS SINK EVENTS DECLARED WITHEVENTS IN THIS CLASS '*+ Form
WithEvent interface
'*- Form WithEvent interface
'THESE FUNCTIONS / SUBS ARE USED TO IMPLEMENT CLASS FUNCTIONALITY '*+PRIVATE
Class function / sub declaration Private Function cOpenArg(strOpenArg As String)
As clsOpenArg Dim intPosEqual As Integer Dim strArgName As String Dim varArgVal
As Variant Dim lclsOpenArg As clsOpenArg
    intPosEqual = InStr(strOpenArg, "=")
    If intPosEqual > 0 Then
        strArgName = Left$(strOpenArg, intPosEqual - 1)
        varArgVal = Right$(strOpenArg, Len(strOpenArg) - intPosEqual)
        Set lclsOpenArg = New clsOpenArg
        lclsOpenArg.mInit strArgName, varArgVal
        Set cOpenArg = lclsOpenArg
    End If
End Function
'
Private Sub ParseOpenArgs()
Dim lstrOpenArgs As String
Dim strOpenArg As String
Dim intPos As Integer
Dim lclsOpenArg As clsOpenArg
    lstrOpenArgs = mstrOpenArgs
    intPos = InStr(lstrOpenArgs, ";")
    
    While intPos > 0
        strOpenArg = Left$(lstrOpenArgs, intPos - 1)
        Set lclsOpenArg = OpenArg(strOpenArg)
        mcolOpenArg.Add lclsOpenArg, lclsOpenArg.pName
        lstrOpenArgs = Right$(lstrOpenArgs, Len(lstrOpenArgs) - intPos)
        intPos = InStr(lstrOpenArgs, ";")
    Wend

End Sub
'
'This function cycles through all the openargs applying them to form properties
'if an argument is named the same as a form property, and the property is
writeable '(doesn't require being in design view to set it) then the application
of the value 'to the property will be performed and Err will not be set.  For
these OpenArgs we 'set the IsPrp to true '
'All of this provides a way for the developer to ppass in openargs to an opening
form 'which are then used to set form properties.  It is up to the developer to
ensure that 'the property is settable, that the value they pass in is valid
(correct data type, 'correct value range etc.) '
'In the end, the only way to know whether a passed in OpenArg is a property is
to try 'it and see.  If there is no error then the name is a property name, it
is settable in 'form view mode, and the value is acceptable.
'
Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub
'
'Empties out a collection containing class instances '
Public Function mColEmpty(col As Collection) On Error GoTo Err_mColEmpty

Dim obj As Object
On Error Resume Next
    
    For Each obj In col
        obj.mTerm
    Next obj

On Error GoTo Err_mColEmpty
    While col.Count > 0
        col.Remove 1
    Wend
exit_mColEmpty:
Exit Function
Err_mColEmpty:
    Select Case Err
    Case 91 'Collection empty
        Resume exit_mColEmpty
    Case Else
        MsgBox Err.Description, , "Error in Function clsSysVars.mColEmpty"
        Resume exit_mColEmpty
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function

'*-PRIVATE Class function / sub declaration '*+PUBLIC Class function / sub
declaration Function OpenArg(strArgName As String) As Variant On Error GoTo
Err_OpenArg
    OpenArg = mcolOpenArg(strArgName).pVal
Exit_OpenArg:
Exit Function
Err_OpenArg:
    Select Case Err
    Case 91
        MsgBox "OpenArg " & strArgName & " does not exist"
        Resume Exit_OpenArg
    Case Else
        MsgBox Err.Description, , "Error in Function clsOpenArgs.OpenArg"
        Resume Exit_OpenArg
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function'*-PUBLIC Class function / sub declaration

'===========================================================
'Form frmStates - a demo form that displays a state lookup table
'===========================================================
Option Compare Database
Option Explicit

Private lclsOpenArgs As clsOpenArgs

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True
End Sub
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click

    DoCmd.Close

Exit_cmdClose_Click:
    Exit Sub
Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click
End Sub

'===========================================================
'Form frmOpenArgsDemo - a demo form that opens the state form, 'passing in
openargs '===========================================================
Option Compare Database
Option Explicit

Private Sub cmdStatesDataEntry_Click()
On Error GoTo Err_cmdStatesDataEntry_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim strOpenArgs As String
    
    strOpenArgs = "DataEntry=True;AllowEdits=True;AllowDeletions=False;"
    stDocName = "frmStates"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , strOpenArgs

Exit_cmdStatesDataEntry_Click:
    Exit Sub

Err_cmdStatesDataEntry_Click:
    MsgBox Err.Description
    Resume Exit_cmdStatesDataEntry_Click
    Resume 0
End Sub

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 5:29 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions

Hi John
Anyone feel free to jump in if I have this wrong 

The open Args are quite useful, but tacked on the end of a Do.cmd statement they
don't do much Just text or numbers (usually) tacked on the end of an OpenForm
Do.Cmd statment

The real 'power' is in the interpretation at the other end

.....

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From chizotz at mchsi.com  Sun Jan 29 23:36:11 2006
From: chizotz at mchsi.com (Ron Allen)
Date: Sun, 29 Jan 2006 23:36:11 -0600
Subject: [AccessD] Bit OT: What is Access Written in?
In-Reply-To: <20060130003650.XFGA16720.omta01sl.mx.bigpond.com@DENZILLAP>
References: <20060130003650.XFGA16720.omta01sl.mx.bigpond.com@DENZILLAP>
Message-ID: <5110516587.20060129233611@mchsi.com>

Hello Darren,

At least most versions of it are written in C++, but one of the
reasons that the C# language was developed was to provide a C-based
language specifically to port the Office and other Microsoft apps to
that had built-in memory management etc. At one point I read an
article that said that the first release of C# didn't quite have
everything they wanted in it for this purpose, so I think that the
current version is also in C++, but could be wrong. However, with each
release it could be in C#, unless they've changed directions on that
in the meantime.

Ron


Sunday, January 29, 2006, 6:36:38 PM, you wrote:

> Is it C#?
 
> Thanks




From erbachs at gmail.com  Mon Jan 30 06:53:16 2006
From: erbachs at gmail.com (Steve Erbach)
Date: Mon, 30 Jan 2006 06:53:16 -0600
Subject: [AccessD] Could somebody expand on this a little?
Message-ID: <39cb22f30601300453t477e263ax6770abebed27d07d@mail.gmail.com>

Dear Group,

I read a recent SQL Server Central article by a fellow named Andy
Warren that dealt with connecting to a SQL Server database using an
Access MDB/ODBC connection.  The article very nicely laid out the
step-by-step process -- with screen shots -- to accomplish this.  What
made me curious about the article was that the author never mentioned
ADP's.

So I joined the discussion forum for this topic and read a number of
interesting replies pro and con for MDBs vs. ADPs, some that I'm
unable, from only my own experience, to evaluate.

Here's one of them.  The forum member started his message by saying
that the article was good.  He went on to say:

~~~~~~~~~~~~~~~~~~~~~~~~
"Two problems I've come across:

"1) Nice three table view with calculated fields fully updatable in
SQL server - lots of lovely triggers. Put it in an adp - not a chance.
Put it in an mdb with the primary key set, fully updatable. Hmm!

"2) Same view, all the base tables have audit triggers to check who
changes important fields. T SQL is based on

"IF UPDATE(fieldname)
write to audit table

"This works fine with T SQL, but use Access and every field is marked
as dirty and you get all the relevant fields written to the audit
table. I've had to resort to

"IF (SELECT fieldname from inserted) != (SELECT fieldname from deleted)

"I'd love to use a project if only it worked"
~~~~~~~~~~~~~~~~~~~~~~~~

Can anyone comment on this?

Also, the author chimed in saying that he would do a followup article
in the same vein using ADP's.  He also said:

"I tend to use the mdb over the adp format, just from habit as much as
anything. I could entirely be wrong, but doesnt using the ADP format
remove the use of module code? It does expose procs and triggers,
which the mdb's do not."

I honestly have only used ADP's to allow easier access to table
contents and for making simple data entry forms...no heavy-lifting
code at all.  He can't be correctly, surely, in saying that ADP's
"remove the use of module code," can he?

Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security
http://TheTownCrank.blogspot.com


From jimdettman at earthlink.net  Mon Jan 30 07:11:45 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Mon, 30 Jan 2006 08:11:45 -0500
Subject: [AccessD] Bit OT: What is Access Written in?
In-Reply-To: <20060130003650.XFGA16720.omta01sl.mx.bigpond.com@DENZILLAP>
Message-ID: <NDEALJOEGMMPCDKIFGNFAEINIFAA.jimdettman@earthlink.net>


  C++

  Parts of JET were written in assembler, but everything was converted to
C++ a long time ago (A95).

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 7:37 PM
To: AccessD
Subject: [Norton AntiSpam] [AccessD] Bit OT: What is Access Written in?


Is it C#?

Thanks

DD
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jwcolby at ColbyConsulting.com  Mon Jan 30 07:23:14 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 30 Jan 2006 08:23:14 -0500
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <39cb22f30601300453t477e263ax6770abebed27d07d@mail.gmail.com>
Message-ID: <001101c625a0$5356f280$657aa8c0@ColbyM6805>

I am no expert there but I am certain that it is NOT modules that get
removed.  IIRC it is stored queries (they are now stored out in SQL Server)
as well as local tables or tables linked to other than SQL.  All tables are
now stored out in SQL as well.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Erbach
Sent: Monday, January 30, 2006 7:53 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Could somebody expand on this a little?

Dear Group,

I read a recent SQL Server Central article by a fellow named Andy Warren
that dealt with connecting to a SQL Server database using an Access MDB/ODBC
connection.  The article very nicely laid out the step-by-step process --
with screen shots -- to accomplish this.  What made me curious about the
article was that the author never mentioned ADP's.

So I joined the discussion forum for this topic and read a number of
interesting replies pro and con for MDBs vs. ADPs, some that I'm unable,
from only my own experience, to evaluate.

Here's one of them.  The forum member started his message by saying that the
article was good.  He went on to say:

~~~~~~~~~~~~~~~~~~~~~~~~
"Two problems I've come across:

"1) Nice three table view with calculated fields fully updatable in SQL
server - lots of lovely triggers. Put it in an adp - not a chance.
Put it in an mdb with the primary key set, fully updatable. Hmm!

"2) Same view, all the base tables have audit triggers to check who changes
important fields. T SQL is based on

"IF UPDATE(fieldname)
write to audit table

"This works fine with T SQL, but use Access and every field is marked as
dirty and you get all the relevant fields written to the audit table. I've
had to resort to

"IF (SELECT fieldname from inserted) != (SELECT fieldname from deleted)

"I'd love to use a project if only it worked"
~~~~~~~~~~~~~~~~~~~~~~~~

Can anyone comment on this?

Also, the author chimed in saying that he would do a followup article in the
same vein using ADP's.  He also said:

"I tend to use the mdb over the adp format, just from habit as much as
anything. I could entirely be wrong, but doesnt using the ADP format remove
the use of module code? It does expose procs and triggers, which the mdb's
do not."

I honestly have only used ADP's to allow easier access to table contents and
for making simple data entry forms...no heavy-lifting code at all.  He can't
be correctly, surely, in saying that ADP's "remove the use of module code,"
can he?

Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security http://TheTownCrank.blogspot.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jimdettman at earthlink.net  Mon Jan 30 07:27:11 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Mon, 30 Jan 2006 08:27:11 -0500
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <39cb22f30601300453t477e263ax6770abebed27d07d@mail.gmail.com>
Message-ID: <NDEALJOEGMMPCDKIFGNFCEIOIFAA.jimdettman@earthlink.net>

Steve,

  Andy doesn't seem to know much about Access.  You should have read his
last Access article, which I and a few others commented on.  Here's the
link:

http://www.sqlservercentral.com/columnists/awarren/diggingintoaccessperforma
nce.asp

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
Sent: Monday, January 30, 2006 7:53 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Could somebody expand on this a little?


Dear Group,

I read a recent SQL Server Central article by a fellow named Andy
Warren that dealt with connecting to a SQL Server database using an
Access MDB/ODBC connection.  The article very nicely laid out the
step-by-step process -- with screen shots -- to accomplish this.  What
made me curious about the article was that the author never mentioned
ADP's.

So I joined the discussion forum for this topic and read a number of
interesting replies pro and con for MDBs vs. ADPs, some that I'm
unable, from only my own experience, to evaluate.

Here's one of them.  The forum member started his message by saying
that the article was good.  He went on to say:

~~~~~~~~~~~~~~~~~~~~~~~~
"Two problems I've come across:

"1) Nice three table view with calculated fields fully updatable in
SQL server - lots of lovely triggers. Put it in an adp - not a chance.
Put it in an mdb with the primary key set, fully updatable. Hmm!

"2) Same view, all the base tables have audit triggers to check who
changes important fields. T SQL is based on

"IF UPDATE(fieldname)
write to audit table

"This works fine with T SQL, but use Access and every field is marked
as dirty and you get all the relevant fields written to the audit
table. I've had to resort to

"IF (SELECT fieldname from inserted) != (SELECT fieldname from deleted)

"I'd love to use a project if only it worked"
~~~~~~~~~~~~~~~~~~~~~~~~

Can anyone comment on this?

Also, the author chimed in saying that he would do a followup article
in the same vein using ADP's.  He also said:

"I tend to use the mdb over the adp format, just from habit as much as
anything. I could entirely be wrong, but doesnt using the ADP format
remove the use of module code? It does expose procs and triggers,
which the mdb's do not."

I honestly have only used ADP's to allow easier access to table
contents and for making simple data entry forms...no heavy-lifting
code at all.  He can't be correctly, surely, in saying that ADP's
"remove the use of module code," can he?

Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security
http://TheTownCrank.blogspot.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jwcolby at ColbyConsulting.com  Mon Jan 30 08:23:51 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 30 Jan 2006 09:23:51 -0500
Subject: [AccessD] Calendar demo
Message-ID: <001201c625a8$cb9dfce0$657aa8c0@ColbyM6805>

Access comes with a built-in calendar control.  Kinda lame but it works.  

I needed a quick and dirty calendar the other day and decided to marry this
calendar control with my filter function to get this thing working in a
hurry.  I have discussed my "filter" function many times in this group.
Basically it is a function with a collection which holds values, keyed on
the name passed in to the function.  What isn't apparent is that with a
little work you can also pass in pointers to controls themselves.  

What this allows is for a calling form to place a reference to a control on
the calling form into the Fltr collection, then open the calendar form.  The
calendar form then does it's thing, and when it is time to return a value,
it goes and gets the pointer to the control on the calling form, places the
value in that control, and closes.

Works a treat.

The demo is up on my site, complete with the calendar form, the FltrCtl
function, and a calling form which demos getting a data.

Go to www.ColbyConsulting.com
Register if you haven't already
Log in.
Click Example Code / Utilities / C2DbCalendarDemo

The code:

'===========================================================================
=========
'The code for the filter function, modified to handle pointers to objects
'===========================================================================
=========
'
'The following code expands upon the basic filter function above to allow
storing and
'returning objects of any kind - controls, forms, classes etc.
'
'The code takes advantage of the fact that a variant can store a pointer to
an object.
'In order to determine if the thing stored is an object or a normal
variable, a SET statement
'is performed first and the err object is checked.  If the thing stored is
not an error then the
'Err object will not be zero, in which case we treat the thing stored as a
simple variable.
'
Public Function FltrCtl(lstrName As String, Optional lvarValue As Variant)
As Variant
On Error GoTo Err_fltrCtl
Static mcolFilter As Collection
Static blnInitialized As Boolean

    If Not blnInitialized Then
        'if the collection not initialized yet, do so now
        Set mcolFilter = New Collection
        blnInitialized = True
    End If
    '
    'We have a valid collection, next check for a value passed in
    '
    If IsMissing(lvarValue) Then
        '
        'No value was passed in so check in the collection
        'using the variable name (key)
        '
        'We are going to pass back the value.  Determine if it is an object
        'by using the set statement and checking for an error
        '
        On Error Resume Next
        Set FltrCtl = mcolFilter(lstrName)
        If Err <> 0 Then 'if the Err obj is <> zero then it was not an
object
            Err.Clear
            FltrCtl = mcolFilter(lstrName)
            If Err <> 0 Then                  '
                'There was no value in the collection under that name (key)
                'so just return a null
                '
                FltrCtl = Null
            End If
        End If
    Else
        '
        'A value was passed in so
        '
        On Error Resume Next
        '
        'Remove any value already in the collection under that name (key)
        '(if any)
        '
        mcolFilter.Remove lstrName
        Err.Clear
        '
        'And then add it back in to the collection
        '
        mcolFilter.Add lvarValue, lstrName
        '
        'We are going to pass back the value.  Determine if it is an object
        'by using the set statement and checking for an error
        '
        Set FltrCtl = lvarValue
        If Err <> 0 Then        'if the Err obj is <> zero then it was not
an object
            FltrCtl = lvarValue    'so just return the value as a variable
        End If
    End If
Exit_fltrCtl:
Exit Function
Err_fltrCtl:
        MsgBox Err.Description, , "Error in Function
basfltrCtlFunctions.fltrCtl"
        Resume Exit_fltrCtl
    Resume 0    '.FOR TROUBLESHOOTING
End Function

'===========================================================================
=========
'The code for the form needing to use the calendar
'===========================================================================
=========
Private Sub cmdCalDteFrom_Click()
    'Set a pointer to the text box which needs a date
    FltrCtl "CalDte", txtDateFrom
    OpenCal
End Sub
'
'The standard "open a form" code which opens the calendar form
'
Private Sub OpenCal()

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmCalendar"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog
    
End Sub



John W. Colby
www.ColbyConsulting.com 




From erbachs at gmail.com  Mon Jan 30 08:30:53 2006
From: erbachs at gmail.com (Steve Erbach)
Date: Mon, 30 Jan 2006 08:30:53 -0600
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <NDEALJOEGMMPCDKIFGNFCEIOIFAA.jimdettman@earthlink.net>
References: <39cb22f30601300453t477e263ax6770abebed27d07d@mail.gmail.com>
	<NDEALJOEGMMPCDKIFGNFCEIOIFAA.jimdettman@earthlink.net>
Message-ID: <39cb22f30601300630s2136bd50qbcf0dfae0c954b14@mail.gmail.com>

Jim,

Very interesting.  I noted that you and at least one other respondent
mentioned pass-through queries as good performance options.

What's puzzling to me, also, is a comment made to the article by
Warren ( here's the link: 
http://www.sqlservercentral.com/columnists/awarren/linkingaccesstosqlserver.asp
):

"Performance can really suck, depending on the application and the
bandwidth. It has to do with the way data is cached in Access and
becomes very apparent if you have large tables (>100,000 rows).
However, it doesn't justify pass-through queries (obsolutely NOTHING
justifies pass-through queries). Views (in SQL server) are your
friend."

"NOTHING justifies pass-through queries."  I didn't challenge him on
that.  I should have, I suppose, but I know zip about pass-through
queries.  What's your view?
--
Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security
http://TheTownCrank.blogspot.com



On 1/30/06, Jim Dettman <jimdettman at earthlink.net> wrote:
> Steve,
>
>   Andy doesn't seem to know much about Access.  You should have read his
> last Access article, which I and a few others commented on.  Here's the
> link:
>
> http://www.sqlservercentral.com/columnists/awarren/diggingintoaccessperforma
> nce.asp
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
> Sent: Monday, January 30, 2006 7:53 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Could somebody expand on this a little?
>
>
> Dear Group,
>
> I read a recent SQL Server Central article by a fellow named Andy
> Warren that dealt with connecting to a SQL Server database using an
> Access MDB/ODBC connection.  The article very nicely laid out the
> step-by-step process -- with screen shots -- to accomplish this.  What
> made me curious about the article was that the author never mentioned
> ADP's.
>
> So I joined the discussion forum for this topic and read a number of
> interesting replies pro and con for MDBs vs. ADPs, some that I'm
> unable, from only my own experience, to evaluate.
>
> Here's one of them.  The forum member started his message by saying
> that the article was good.  He went on to say:
>
> ~~~~~~~~~~~~~~~~~~~~~~~~
> "Two problems I've come across:


From Lambert.Heenan at AIG.com  Mon Jan 30 08:44:26 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Mon, 30 Jan 2006 09:44:26 -0500
Subject: [AccessD] Bit OT: What is Access Written in?
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1C7860B0@xlivmbx21.aig.com>

Definitely not C#, otherwise the box would tell you that you must have the
.NET framework installed. As others have said, probably C++ and assembler.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 7:37 PM
To: AccessD
Subject: [AccessD] Bit OT: What is Access Written in?


Is it C#?
 
Thanks
 
DD
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From JHewson at karta.com  Mon Jan 30 08:57:59 2006
From: JHewson at karta.com (Jim Hewson)
Date: Mon, 30 Jan 2006 08:57:59 -0600
Subject: [AccessD] MDB won't compile
Message-ID: <9C382E065F54AE48BC3AA7925DCBB01C03BAF38E@karta-exc-int.Karta.com>

A2K, inherited.

I changed the margins to a report in an MDB.  That's the only change I
made.

Now the MDB won't compile.  I've made minor changes before and created
MDE files without any problems.

When I try to compile, it stops at "Me.Refresh"  with an error that
states the "Method or Data member is not found."

I've checked the references, decompiled, used JetComp, moved all objects
to a new container.

It still will not compile.

If I comment out the offending line, it gets stuck on "Recordset" then
"bookmark".

 

What else I can try?

Many thanks in advance.

 

Jim

 

 



From rusty.hammond at cpiqpc.com  Mon Jan 30 09:07:40 2006
From: rusty.hammond at cpiqpc.com (rusty.hammond at cpiqpc.com)
Date: Mon, 30 Jan 2006 09:07:40 -0600
Subject: [AccessD] MDB won't compile
Message-ID: <8301C8A868251E4C8ECD3D4FFEA40F8A154F8481@cpixchng-1.cpiqpc.net>

Jim,

Usually you'll have a reference that is missing but I've also been able to
fix this by changing the order of the items in references.

HTH

Rusty


-----Original Message-----
From: Jim Hewson [mailto:JHewson at karta.com]
Sent: Monday, January 30, 2006 8:58 AM
To: AccessD
Subject: [AccessD] MDB won't compile


A2K, inherited.

I changed the margins to a report in an MDB.  That's the only change I
made.

Now the MDB won't compile.  I've made minor changes before and created
MDE files without any problems.

When I try to compile, it stops at "Me.Refresh"  with an error that
states the "Method or Data member is not found."

I've checked the references, decompiled, used JetComp, moved all objects
to a new container.

It still will not compile.

If I comment out the offending line, it gets stuck on "Recordset" then
"bookmark".

 

What else I can try?

Many thanks in advance.

 

Jim

 

 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

**********************************************************************
WARNING: All e-mail sent to and from this address will be received,
scanned or otherwise recorded by the CPI Qualified Plan Consultants, Inc.
corporate e-mail system and is subject to archival, monitoring or review 
by, and/or disclosure to, someone other than the recipient.
**********************************************************************


From bchacc at san.rr.com  Mon Jan 30 09:35:52 2006
From: bchacc at san.rr.com (Rocky Smolin - Beach Access Software)
Date: Mon, 30 Jan 2006 07:35:52 -0800
Subject: [AccessD] MDB won't compile
In-Reply-To: <9C382E065F54AE48BC3AA7925DCBB01C03BAF38E@karta-exc-int.Karta.com>
References: <9C382E065F54AE48BC3AA7925DCBB01C03BAF38E@karta-exc-int.Karta.com>
Message-ID: <43DE3258.4010709@san.rr.com>

Import all the objects into a new mdb?

Rocky


Jim Hewson wrote:
> A2K, inherited.
>
> I changed the margins to a report in an MDB.  That's the only change I
> made.
>
> Now the MDB won't compile.  I've made minor changes before and created
> MDE files without any problems.
>
> When I try to compile, it stops at "Me.Refresh"  with an error that
> states the "Method or Data member is not found."
>
> I've checked the references, decompiled, used JetComp, moved all objects
> to a new container.
>
> It still will not compile.
>
> If I comment out the offending line, it gets stuck on "Recordset" then
> "bookmark".
>
>  
>
> What else I can try?
>
> Many thanks in advance.
>
>  
>
> Jim
>
>  
>
>  
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com



From RRANTHON at sentara.com  Mon Jan 30 09:38:15 2006
From: RRANTHON at sentara.com (Randall R Anthony)
Date: Mon, 30 Jan 2006 10:38:15 -0500
Subject: [AccessD] MDB won't compile
In-Reply-To: <43DE3258.4010709@san.rr.com>
References: <9C382E065F54AE48BC3AA7925DCBB01C03BAF38E@karta-exc-int.Karta.com>
	<43DE3258.4010709@san.rr.com>
Message-ID: <200601301538.k0UFcaC09244@databaseadvisors.com>

Change Me.Refresh to FormName.Refresh.  I had something similar once...

>>> bchacc at san.rr.com 01/30/06 10:35 AM >>>
Import all the objects into a new mdb?

Rocky


Jim Hewson wrote:
> A2K, inherited.
>
> I changed the margins to a report in an MDB.  That's the only change
I
> made.
>
> Now the MDB won't compile.  I've made minor changes before and
created
> MDE files without any problems.
>
> When I try to compile, it stops at "Me.Refresh"  with an error that
> states the "Method or Data member is not found."
>
> I've checked the references, decompiled, used JetComp, moved all
objects
> to a new container.
>
> It still will not compile.
>
> If I comment out the offending line, it gets stuck on "Recordset"
then
> "bookmark".
>
>  
>
> What else I can try?
>
> Many thanks in advance.
>
>  
>
> Jim
>
>  
>
>  
>
>   

-- 
Rocky Smolin
Beach Access Software
858-259-4334
www.e-z-mrp.com 

-- 
AccessD mailing list
AccessD at databaseadvisors.com 
http://databaseadvisors.com/mailman/listinfo/accessd 
Website: http://www.databaseadvisors.com


From andy at minstersystems.co.uk  Mon Jan 30 09:52:16 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Mon, 30 Jan 2006 15:52:16 +0000
Subject: [AccessD] MDB won't compile
Message-ID: <20060130155212.C2B55255E5F@smtp.nildram.co.uk>

Have a look, Jim, to see if in that module there are any Me. references to
controls which should really be Me! . I find Access sometimes objects like
this.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "AccessD" <AccessD at databaseadvisors.com>
Subject: [AccessD] MDB won't compile
Date: 30/01/06 14:59


A2K, inherited.

I changed the margins to a report in an MDB. That's the only change I
made.

Now the MDB won't compile. I've made minor changes before and created
MDE files without any problems.

When I try to compile, it stops at "Me.Refresh" with an error that
states the "Method or Data member is not found."

I've checked the references, decompiled, used JetComp, moved all objects
to a new container.

It still will not compile.

If I comment out the offending line, it gets stuck on "Recordset" then
"bookmark".



What else I can try?

Many thanks in advance.



Jim





--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2



From jwcolby at ColbyConsulting.com  Mon Jan 30 09:54:53 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 30 Jan 2006 10:54:53 -0500
Subject: [AccessD] Combo and list recordset property
Message-ID: <003501c625b5$83048e60$657aa8c0@ColbyM6805>

Do the combo and list objects support the recordset property in AccessXP and
2003?

John W. Colby
www.ColbyConsulting.com 




From jimdettman at earthlink.net  Mon Jan 30 09:54:39 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Mon, 30 Jan 2006 10:54:39 -0500
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <39cb22f30601300630s2136bd50qbcf0dfae0c954b14@mail.gmail.com>
Message-ID: <NDEALJOEGMMPCDKIFGNFEEKEIFAA.jimdettman@earthlink.net>

Steve,

<<What's your view?>>

  Andy's is writing to a wide audience; everything from a beginning Access
user to a seasoned developer and yet he seems to always take the simplistic
view when it comes to Access.  On the article I mentioned, his stance was
that it worked that way "out of the box" and "how am I supposed to know all
that"?

  Well that's what separates the men from the boys so to speak; you either
know a product and how to work with it or you don't.  But you shouldn't ding
the product because *you* don't understand how to use it properly.  You do
your homework up front like Susan does or don't bother writing the article.

  Views are a tool like any other.  There are times when you want to use
them and times you don't.  Many Access users gravitate towards using them
because they are almost like an Access Query and it means you don't need to
learn T-SQL.  Access simply sees a view as a table, so you can easily hide
complex joins on the SQL side.

  However views will lead to performance problems in SQL as the database
scales up and can cause update problems.  Since your probably using SQL
server in the first place because the app is larger then what you can do
with JET, then it seems somewhat silly to use them for everything.

  They do however provide a nice way to make aggregate queries simpler,
demoralize data, rename columns, etc so they do have their uses.  But you
certainly don't want to be the farm on them.

  Personally my tendency is to not use them unless I have a good reason for
doing so.

Jim.




-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
Sent: Monday, January 30, 2006 9:31 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?


Jim,

Very interesting.  I noted that you and at least one other respondent
mentioned pass-through queries as good performance options.

What's puzzling to me, also, is a comment made to the article by
Warren ( here's the link:
http://www.sqlservercentral.com/columnists/awarren/linkingaccesstosqlserver.
asp
):

"Performance can really suck, depending on the application and the
bandwidth. It has to do with the way data is cached in Access and
becomes very apparent if you have large tables (>100,000 rows).
However, it doesn't justify pass-through queries (obsolutely NOTHING
justifies pass-through queries). Views (in SQL server) are your
friend."

"NOTHING justifies pass-through queries."  I didn't challenge him on
that.  I should have, I suppose, but I know zip about pass-through
queries.  What's your view?
--
Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security
http://TheTownCrank.blogspot.com



On 1/30/06, Jim Dettman <jimdettman at earthlink.net> wrote:
> Steve,
>
>   Andy doesn't seem to know much about Access.  You should have read his
> last Access article, which I and a few others commented on.  Here's the
> link:
>
>
http://www.sqlservercentral.com/columnists/awarren/diggingintoaccessperforma
> nce.asp
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
> Sent: Monday, January 30, 2006 7:53 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Could somebody expand on this a little?
>
>
> Dear Group,
>
> I read a recent SQL Server Central article by a fellow named Andy
> Warren that dealt with connecting to a SQL Server database using an
> Access MDB/ODBC connection.  The article very nicely laid out the
> step-by-step process -- with screen shots -- to accomplish this.  What
> made me curious about the article was that the author never mentioned
> ADP's.
>
> So I joined the discussion forum for this topic and read a number of
> interesting replies pro and con for MDBs vs. ADPs, some that I'm
> unable, from only my own experience, to evaluate.
>
> Here's one of them.  The forum member started his message by saying
> that the article was good.  He went on to say:
>
> ~~~~~~~~~~~~~~~~~~~~~~~~
> "Two problems I've come across:
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From John.Clark at niagaracounty.com  Mon Jan 30 10:10:53 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Mon, 30 Jan 2006 11:10:53 -0500
Subject: [AccessD] Same form, different actions
Message-ID: <s3ddf471.047@nebnov3.niagaracounty.com>

OK John, as usual, you are making my brain hurt ;) Seriously, I have
downloaded your demo, and I am looking through your code, in the
clsOpenArgs module. I think I actually understand some of it too. 

I guess the first thing that comes to mind is, does it work with
non-properties of forms? One of the things I want to do is tell the form
where to go on close...actually, when the exit button is clicked. If the
user goes there from the menu, it should return to the menu. However, if
the user goes there, from anther form, it should return to that form,
and pass the name with it.

I am going to try something, with your demo, to test this. Nope...just
did this real quick, and it didn't work. Actually the whole thing pretty
much quit working...what the heck did I do ;)

>>> jwcolby at colbyconsulting.com 1/29/2006 11:20:21 PM >>>
>>The open Args are quite useful, but tacked on the end of a Do.cmd
statement they don't do much Just text or numbers (usually) tacked on
the
end of an OpenForm Do.Cmd statement.  The real 'power' is in the
interpretation at the other end

Darren,

First let me say that I have put up a demo on my site which shows how
to use
the two classes in the following discussion.  Go to my website -
www.colbyconsulting.com.  If you haven't already, Register.  Log in. 
Click
Example Code / Utilities.  Select C2DbOpenArgs to download the demo.


I pass openargs in the form Varname1=VarVal1;VarName2=VarVal2;etc=etc1;
This
is a syntax that has been around since early Access days and was used
extensively by, and perhaps even "invented by" Ken Getz.  The = is used
as
the separator, the semicolon as the delimiter.

I wrote a pair of classes which handle my openargs.  A "control class"
which
I name OpenArgs (plural) grabs the openargs string and parses the
varname
and value for each openarg.  It then instantiates a OpenArg (singular)
class
to store this VarName and VarVal in.  VarName is a string type, VarVal
is a
variant type.  Making it Variant causes an automatic coercion in a lot
of
cases - currency values get turned into Currency variants, dates get
turned
into dates etc.  At any rate, each OpenArg instance is stored in a
collection in the OpenArgs (plural) class.

The OpenArgs class is dimensioned in the form header, and instantiated
in
the OnOpen of the form.  By the time it finishes loading, all of the
OpenArgs are parsed and sitting in OpenArg class instances in the
collection
in OpenArgs.  OpenArgs has a method for reading OpenArg instances from
the
collection.  OpenArg instances are stored in the collection keyed on
the
VarName.  

Thus you have a pair of classes which automatically handles getting
openargs
for you, one or a hundred, it doesn't matter, and it doesn't have to
be
"re-invented" every time you want to get your openargs.  Syntax is now
standardized everywhere in your app.

The form of course must know what openargs it is expecting, so it can
now
simply call OpenArgs.Arg("VarName") and get back VarVal (a variant). 
What
the form does with the OpenArg is up to you, but getting the OpenArgs
available to the form is trivial.

All of the code follows.  My clsOpenArgs (plural, the controller) also
has
the ability to automatically interpret openargs as properties of the
form.
In other words, if a param is passed in to clsOpenArgs that says to do
so,
then if an OpenArg VarName is the same as a property of the form, the
form
property is set to VarVal.  I have actually demoed this in the state
form,
where the form that opens frmState passes in the values for properties


strOpenArgs = "DataEntry=True;AllowEdits=True;AllowDeletions=False;"

The state form opens, the OpenArgs class parses the OpenArgs string
passed
in, discovers that I want it to use the openargs to set form
properties, and
does so.

Any OpenArgs which do not match the name of a form property are left
uninterpreted and the form can use them for whatever purpose you
choose.
You can also not tell clsOpenArgs to interpret the openargs as form
properties, in which case all OpenArgs are left uninterpreted and you
can do
with them all as you will.

The code:

'===========================================================
'Class OpenArg
'===========================================================
Option Compare Database
Option Explicit

'
'This class stores one OpenArg
'
Private mstrArgName As String
Private mvarArgVal As Variant
Private mblnIsProperty As Boolean

Function mInit(lstrArgName As String, lvarArgVal As Variant)
    mstrArgName = lstrArgName
    mvarArgVal = lvarArgVal
End Function
Function pName() As String
    pName = mstrArgName
End Function
Function pVal() As Variant
    pVal = mvarArgVal
End Function
Property Let pIsPrp(lmblnIsProperty As Boolean)
    mblnIsProperty = lmblnIsProperty
End Property
Property Get pIsPrp() As Boolean
    pIsPrp = mblnIsProperty
End Property


'===========================================================
'Class OpenArgs (Plural) - the controller class
'===========================================================
Option Compare Database
Option Explicit
'.
'.Written By   : John W. Colby
'.Date Created : 04/10/2004
' Rev. History :
'
' BEHAVIORS:
'
'
'When a form opens, it can accept open args, a text string argument.
'The framework will check for openargs, and if they exist will check
'inside the Openagrs for arguments named the same thing as form
properties.
'If such arguments are found, the framework will set the form's
property
'equal to the argument value.
'
'I use this specifically to set up normal forms to be DataEntry forms
'(only allow new records to be added, not existing records edited)
'
'I decided to encapsulate this functionality in a class to make the
OpenArgs
'processing cleanly defined.
'
'--------------------------------------------------------------------------
'THESE CONSTANTS AND VARIABLES ARE USED INTERNALLY TO THE CLASS
'*+ Class constant declaration
Private Const mcstrModuleName As String = "clsOpenArgs"
'*- Class constants declaration
'*+ Class variables declarations
'*- Class variables declarations
'.-------------------------------------------------------------------------
'THESE CONSTANTS AND VARIABLES ARE USED BY THE CLASS TO IMPLEMENT
CLASS
FUNCTIONALITY
'*+ custom constants declaration
'
'*- Custom constants declaration
'*+ custom variables declarations
'
Private mfrm As Form     'A form reference passed in
Private mstrOpenArgs As String
Private mcolOpenArg As Collection
'*- custom variables declarations
'
'Define any events this class will raise here
'*+ custom events Declarations
'Public Event MyEvent(Status As Integer)
'*- custom events declarations
'.-------------------------------------------------------------------------
'THESE FUNCTIONS / SUBS ARE USED INTERNALLY TO THE CLASS
'*+ Private Init/Terminate Interface
Private Sub Class_Initialize()
On Error GoTo Err_Class_Initialize
    Set mcolOpenArg = New Collection
Exit_Class_Initialize:
Exit Sub
Err_Class_Initialize:
        MsgBox Err.Description, , "Error in Sub
clsTemplate.Class_Initialize"
        Resume Exit_Class_Initialize
    Resume 0    '.FOR TROUBLESHOOTING
End Sub
Private Sub Class_Terminate()
On Error Resume Next
    mTerm
End Sub
'INITIALIZE THE CLASS
Public Sub mInit(lfrm As Form, _
                Optional blnApplyProperties As Boolean = False)
    Set mfrm = lfrm
    'The openargs string might be null
    On Error Resume Next
    mstrOpenArgs = mfrm.OpenArgs
    
    ParseOpenArgs
    '
    'The default is false, do not try and apply OpenArgs as form
properties
    'If the deveopler wants to
    '
    If blnApplyProperties Then
        ApplyFrmProperties
    End If
End Sub
'CLEAN UP ALL OF THE CLASS POINTERS
Public Sub mTerm()
Static blnRan As Boolean    'The term may run more than once so
    If blnRan Then Exit Sub 'just exit if it already ran
    blnRan = True
    On Error Resume Next
    mColEmpty mcolOpenArg
    Set mcolOpenArg = Nothing
End Sub
'*- Public Init/Terminate interface
'.-------------------------------------------------------------------------
'THESE FUNCTIONS SINK EVENTS DECLARED WITHEVENTS IN THIS CLASS
'*+ Form WithEvent interface
'*- Form WithEvent interface
'THESE FUNCTIONS / SUBS ARE USED TO IMPLEMENT CLASS FUNCTIONALITY
'*+PRIVATE Class function / sub declaration
Private Function cOpenArg(strOpenArg As String) As clsOpenArg
Dim intPosEqual As Integer
Dim strArgName As String
Dim varArgVal As Variant
Dim lclsOpenArg As clsOpenArg
    intPosEqual = InStr(strOpenArg, "=")
    If intPosEqual > 0 Then
        strArgName = Left$(strOpenArg, intPosEqual - 1)
        varArgVal = Right$(strOpenArg, Len(strOpenArg) - intPosEqual)
        Set lclsOpenArg = New clsOpenArg
        lclsOpenArg.mInit strArgName, varArgVal
        Set cOpenArg = lclsOpenArg
    End If
End Function
'
Private Sub ParseOpenArgs()
Dim lstrOpenArgs As String
Dim strOpenArg As String
Dim intPos As Integer
Dim lclsOpenArg As clsOpenArg
    lstrOpenArgs = mstrOpenArgs
    intPos = InStr(lstrOpenArgs, ";")
    
    While intPos > 0
        strOpenArg = Left$(lstrOpenArgs, intPos - 1)
        Set lclsOpenArg = OpenArg(strOpenArg)
        mcolOpenArg.Add lclsOpenArg, lclsOpenArg.pName
        lstrOpenArgs = Right$(lstrOpenArgs, Len(lstrOpenArgs) -
intPos)
        intPos = InStr(lstrOpenArgs, ";")
    Wend

End Sub
'
'This function cycles through all the openargs applying them to form
properties
'if an argument is named the same as a form property, and the property
is
writeable
'(doesn't require being in design view to set it) then the application
of
the value
'to the property will be performed and Err will not be set.  For these
OpenArgs we
'set the IsPrp to true
'
'All of this provides a way for the developer to ppass in openargs to
an
opening form
'which are then used to set form properties.  It is up to the developer
to
ensure that
'the property is settable, that the value they pass in is valid
(correct
data type,
'correct value range etc.)
'
'In the end, the only way to know whether a passed in OpenArg is a
property
is to try
'it and see.  If there is no error then the name is a property name, it
is
settable in
'form view mode, and the value is acceptable.
'
Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub
'
'Empties out a collection containing class instances
'
Public Function mColEmpty(col As Collection)
On Error GoTo Err_mColEmpty

Dim obj As Object
On Error Resume Next
    
    For Each obj In col
        obj.mTerm
    Next obj

On Error GoTo Err_mColEmpty
    While col.Count > 0
        col.Remove 1
    Wend
exit_mColEmpty:
Exit Function
Err_mColEmpty:
    Select Case Err
    Case 91 'Collection empty
        Resume exit_mColEmpty
    Case Else
        MsgBox Err.Description, , "Error in Function
clsSysVars.mColEmpty"
        Resume exit_mColEmpty
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function

'*-PRIVATE Class function / sub declaration
'*+PUBLIC Class function / sub declaration
Function OpenArg(strArgName As String) As Variant
On Error GoTo Err_OpenArg
    OpenArg = mcolOpenArg(strArgName).pVal
Exit_OpenArg:
Exit Function
Err_OpenArg:
    Select Case Err
    Case 91
        MsgBox "OpenArg " & strArgName & " does not exist"
        Resume Exit_OpenArg
    Case Else
        MsgBox Err.Description, , "Error in Function
clsOpenArgs.OpenArg"
        Resume Exit_OpenArg
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function'*-PUBLIC Class function / sub declaration

'===========================================================
'Form frmStates - a demo form that displays a state lookup table
'===========================================================
Option Compare Database
Option Explicit

Private lclsOpenArgs As clsOpenArgs

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True
End Sub
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click

    DoCmd.Close

Exit_cmdClose_Click:
    Exit Sub
Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click
End Sub

'===========================================================
'Form frmOpenArgsDemo - a demo form that opens the state form, 
'passing in openargs
'===========================================================
Option Compare Database
Option Explicit

Private Sub cmdStatesDataEntry_Click()
On Error GoTo Err_cmdStatesDataEntry_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim strOpenArgs As String
    
    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;"
    stDocName = "frmStates"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , strOpenArgs

Exit_cmdStatesDataEntry_Click:
    Exit Sub

Err_cmdStatesDataEntry_Click:
    MsgBox Err.Description
    Resume Exit_cmdStatesDataEntry_Click
    Resume 0
End Sub

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 5:29 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions

Hi John
Anyone feel free to jump in if I have this wrong 

The open Args are quite useful, but tacked on the end of a Do.cmd
statement
they don't do much Just text or numbers (usually) tacked on the end of
an
OpenForm Do.Cmd statment

The real 'power' is in the interpretation at the other end

.....

-- 
AccessD mailing list
AccessD at databaseadvisors.com 
http://databaseadvisors.com/mailman/listinfo/accessd 
Website: http://www.databaseadvisors.com


From cfoust at infostatsystems.com  Mon Jan 30 10:38:14 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 30 Jan 2006 08:38:14 -0800
Subject: [AccessD] Could somebody expand on this a little?
Message-ID: <F55048AF7E974F429BB24597D7355EEABF6D@INFOSERVER04.infostat.local>

>> demoralize data
LOL!  Is THAT what causes corruption??

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Monday, January 30, 2006 7:55 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?


Steve,

<<What's your view?>>

  Andy's is writing to a wide audience; everything from a beginning
Access user to a seasoned developer and yet he seems to always take the
simplistic view when it comes to Access.  On the article I mentioned,
his stance was that it worked that way "out of the box" and "how am I
supposed to know all that"?

  Well that's what separates the men from the boys so to speak; you
either know a product and how to work with it or you don't.  But you
shouldn't ding the product because *you* don't understand how to use it
properly.  You do your homework up front like Susan does or don't bother
writing the article.

  Views are a tool like any other.  There are times when you want to use
them and times you don't.  Many Access users gravitate towards using
them because they are almost like an Access Query and it means you don't
need to learn T-SQL.  Access simply sees a view as a table, so you can
easily hide complex joins on the SQL side.

  However views will lead to performance problems in SQL as the database
scales up and can cause update problems.  Since your probably using SQL
server in the first place because the app is larger then what you can do
with JET, then it seems somewhat silly to use them for everything.

  They do however provide a nice way to make aggregate queries simpler,
demoralize data, rename columns, etc so they do have their uses.  But
you certainly don't want to be the farm on them.

  Personally my tendency is to not use them unless I have a good reason
for doing so.

Jim.




-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
Sent: Monday, January 30, 2006 9:31 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?


Jim,

Very interesting.  I noted that you and at least one other respondent
mentioned pass-through queries as good performance options.

What's puzzling to me, also, is a comment made to the article by Warren
( here's the link:
http://www.sqlservercentral.com/columnists/awarren/linkingaccesstosqlser
ver.
asp
):

"Performance can really suck, depending on the application and the
bandwidth. It has to do with the way data is cached in Access and
becomes very apparent if you have large tables (>100,000 rows). However,
it doesn't justify pass-through queries (obsolutely NOTHING justifies
pass-through queries). Views (in SQL server) are your friend."

"NOTHING justifies pass-through queries."  I didn't challenge him on
that.  I should have, I suppose, but I know zip about pass-through
queries.  What's your view?
--
Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security
http://TheTownCrank.blogspot.com



On 1/30/06, Jim Dettman <jimdettman at earthlink.net> wrote:
> Steve,
>
>   Andy doesn't seem to know much about Access.  You should have read 
> his last Access article, which I and a few others commented on.  
> Here's the
> link:
>
>
http://www.sqlservercentral.com/columnists/awarren/diggingintoaccessperf
orma
> nce.asp
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
> Sent: Monday, January 30, 2006 7:53 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Could somebody expand on this a little?
>
>
> Dear Group,
>
> I read a recent SQL Server Central article by a fellow named Andy 
> Warren that dealt with connecting to a SQL Server database using an 
> Access MDB/ODBC connection.  The article very nicely laid out the 
> step-by-step process -- with screen shots -- to accomplish this.  What

> made me curious about the article was that the author never mentioned 
> ADP's.
>
> So I joined the discussion forum for this topic and read a number of 
> interesting replies pro and con for MDBs vs. ADPs, some that I'm 
> unable, from only my own experience, to evaluate.
>
> Here's one of them.  The forum member started his message by saying 
> that the article was good.  He went on to say:
>
> ~~~~~~~~~~~~~~~~~~~~~~~~
> "Two problems I've come across:
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From cfoust at infostatsystems.com  Mon Jan 30 10:41:07 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Mon, 30 Jan 2006 08:41:07 -0800
Subject: [AccessD] Same form, different actions
Message-ID: <F55048AF7E974F429BB24597D7355EEABF6E@INFOSERVER04.infostat.local>

I usually pass in the name of the calling form in OpenArgs (along with
anything else, semicolon delimited) and set a property of the called
form to point to the previous form.  You can go futher and use a stack
to keep track of the parent and child objects, but it depends on what
you really need to accomplish.

Charlotte foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Monday, January 30, 2006 8:11 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Same form, different actions


OK John, as usual, you are making my brain hurt ;) Seriously, I have
downloaded your demo, and I am looking through your code, in the
clsOpenArgs module. I think I actually understand some of it too. 

I guess the first thing that comes to mind is, does it work with
non-properties of forms? One of the things I want to do is tell the form
where to go on close...actually, when the exit button is clicked. If the
user goes there from the menu, it should return to the menu. However, if
the user goes there, from anther form, it should return to that form,
and pass the name with it.

I am going to try something, with your demo, to test this. Nope...just
did this real quick, and it didn't work. Actually the whole thing pretty
much quit working...what the heck did I do ;)

>>> jwcolby at colbyconsulting.com 1/29/2006 11:20:21 PM >>>
>>The open Args are quite useful, but tacked on the end of a Do.cmd
statement they don't do much Just text or numbers (usually) tacked on
the end of an OpenForm Do.Cmd statement.  The real 'power' is in the
interpretation at the other end

Darren,

First let me say that I have put up a demo on my site which shows how to
use the two classes in the following discussion.  Go to my website -
www.colbyconsulting.com.  If you haven't already, Register.  Log in. 
Click
Example Code / Utilities.  Select C2DbOpenArgs to download the demo.


I pass openargs in the form Varname1=VarVal1;VarName2=VarVal2;etc=etc1;
This
is a syntax that has been around since early Access days and was used
extensively by, and perhaps even "invented by" Ken Getz.  The = is used
as the separator, the semicolon as the delimiter.

I wrote a pair of classes which handle my openargs.  A "control class"
which I name OpenArgs (plural) grabs the openargs string and parses the
varname and value for each openarg.  It then instantiates a OpenArg
(singular) class to store this VarName and VarVal in.  VarName is a
string type, VarVal is a variant type.  Making it Variant causes an
automatic coercion in a lot of cases - currency values get turned into
Currency variants, dates get turned into dates etc.  At any rate, each
OpenArg instance is stored in a collection in the OpenArgs (plural)
class.

The OpenArgs class is dimensioned in the form header, and instantiated
in the OnOpen of the form.  By the time it finishes loading, all of the
OpenArgs are parsed and sitting in OpenArg class instances in the
collection in OpenArgs.  OpenArgs has a method for reading OpenArg
instances from the collection.  OpenArg instances are stored in the
collection keyed on the VarName.  

Thus you have a pair of classes which automatically handles getting
openargs for you, one or a hundred, it doesn't matter, and it doesn't
have to be "re-invented" every time you want to get your openargs.
Syntax is now standardized everywhere in your app.

The form of course must know what openargs it is expecting, so it can
now simply call OpenArgs.Arg("VarName") and get back VarVal (a variant).

What
the form does with the OpenArg is up to you, but getting the OpenArgs
available to the form is trivial.

All of the code follows.  My clsOpenArgs (plural, the controller) also
has the ability to automatically interpret openargs as properties of the
form. In other words, if a param is passed in to clsOpenArgs that says
to do so, then if an OpenArg VarName is the same as a property of the
form, the form property is set to VarVal.  I have actually demoed this
in the state form, where the form that opens frmState passes in the
values for properties


strOpenArgs = "DataEntry=True;AllowEdits=True;AllowDeletions=False;"

The state form opens, the OpenArgs class parses the OpenArgs string
passed in, discovers that I want it to use the openargs to set form
properties, and does so.

Any OpenArgs which do not match the name of a form property are left
uninterpreted and the form can use them for whatever purpose you choose.
You can also not tell clsOpenArgs to interpret the openargs as form
properties, in which case all OpenArgs are left uninterpreted and you
can do with them all as you will.

The code:

'===========================================================
'Class OpenArg
'===========================================================
Option Compare Database
Option Explicit

'
'This class stores one OpenArg
'
Private mstrArgName As String
Private mvarArgVal As Variant
Private mblnIsProperty As Boolean

Function mInit(lstrArgName As String, lvarArgVal As Variant)
    mstrArgName = lstrArgName
    mvarArgVal = lvarArgVal
End Function
Function pName() As String
    pName = mstrArgName
End Function
Function pVal() As Variant
    pVal = mvarArgVal
End Function
Property Let pIsPrp(lmblnIsProperty As Boolean)
    mblnIsProperty = lmblnIsProperty
End Property
Property Get pIsPrp() As Boolean
    pIsPrp = mblnIsProperty
End Property


'===========================================================
'Class OpenArgs (Plural) - the controller class
'===========================================================
Option Compare Database
Option Explicit
'.
'.Written By   : John W. Colby
'.Date Created : 04/10/2004
' Rev. History :
'
' BEHAVIORS:
'
'
'When a form opens, it can accept open args, a text string argument.
'The framework will check for openargs, and if they exist will check
'inside the Openagrs for arguments named the same thing as form
properties. 'If such arguments are found, the framework will set the
form's property 'equal to the argument value. ' 'I use this specifically
to set up normal forms to be DataEntry forms '(only allow new records to
be added, not existing records edited) ' 'I decided to encapsulate this
functionality in a class to make the OpenArgs 'processing cleanly
defined. '
'-----------------------------------------------------------------------
---
'THESE CONSTANTS AND VARIABLES ARE USED INTERNALLY TO THE CLASS '*+
Class constant declaration Private Const mcstrModuleName As String =
"clsOpenArgs"
'*- Class constants declaration
'*+ Class variables declarations
'*- Class variables declarations
'.----------------------------------------------------------------------
---
'THESE CONSTANTS AND VARIABLES ARE USED BY THE CLASS TO IMPLEMENT CLASS
FUNCTIONALITY '*+ custom constants declaration '
'*- Custom constants declaration
'*+ custom variables declarations
'
Private mfrm As Form     'A form reference passed in
Private mstrOpenArgs As String
Private mcolOpenArg As Collection
'*- custom variables declarations
'
'Define any events this class will raise here
'*+ custom events Declarations
'Public Event MyEvent(Status As Integer)
'*- custom events declarations
'.----------------------------------------------------------------------
---
'THESE FUNCTIONS / SUBS ARE USED INTERNALLY TO THE CLASS
'*+ Private Init/Terminate Interface
Private Sub Class_Initialize()
On Error GoTo Err_Class_Initialize
    Set mcolOpenArg = New Collection
Exit_Class_Initialize:
Exit Sub
Err_Class_Initialize:
        MsgBox Err.Description, , "Error in Sub
clsTemplate.Class_Initialize"
        Resume Exit_Class_Initialize
    Resume 0    '.FOR TROUBLESHOOTING
End Sub
Private Sub Class_Terminate()
On Error Resume Next
    mTerm
End Sub
'INITIALIZE THE CLASS
Public Sub mInit(lfrm As Form, _
                Optional blnApplyProperties As Boolean = False)
    Set mfrm = lfrm
    'The openargs string might be null
    On Error Resume Next
    mstrOpenArgs = mfrm.OpenArgs
    
    ParseOpenArgs
    '
    'The default is false, do not try and apply OpenArgs as form
properties
    'If the deveopler wants to
    '
    If blnApplyProperties Then
        ApplyFrmProperties
    End If
End Sub
'CLEAN UP ALL OF THE CLASS POINTERS
Public Sub mTerm()
Static blnRan As Boolean    'The term may run more than once so
    If blnRan Then Exit Sub 'just exit if it already ran
    blnRan = True
    On Error Resume Next
    mColEmpty mcolOpenArg
    Set mcolOpenArg = Nothing
End Sub
'*- Public Init/Terminate interface
'.----------------------------------------------------------------------
---
'THESE FUNCTIONS SINK EVENTS DECLARED WITHEVENTS IN THIS CLASS '*+ Form
WithEvent interface
'*- Form WithEvent interface
'THESE FUNCTIONS / SUBS ARE USED TO IMPLEMENT CLASS FUNCTIONALITY
'*+PRIVATE Class function / sub declaration Private Function
cOpenArg(strOpenArg As String) As clsOpenArg Dim intPosEqual As Integer
Dim strArgName As String Dim varArgVal As Variant Dim lclsOpenArg As
clsOpenArg
    intPosEqual = InStr(strOpenArg, "=")
    If intPosEqual > 0 Then
        strArgName = Left$(strOpenArg, intPosEqual - 1)
        varArgVal = Right$(strOpenArg, Len(strOpenArg) - intPosEqual)
        Set lclsOpenArg = New clsOpenArg
        lclsOpenArg.mInit strArgName, varArgVal
        Set cOpenArg = lclsOpenArg
    End If
End Function
'
Private Sub ParseOpenArgs()
Dim lstrOpenArgs As String
Dim strOpenArg As String
Dim intPos As Integer
Dim lclsOpenArg As clsOpenArg
    lstrOpenArgs = mstrOpenArgs
    intPos = InStr(lstrOpenArgs, ";")
    
    While intPos > 0
        strOpenArg = Left$(lstrOpenArgs, intPos - 1)
        Set lclsOpenArg = OpenArg(strOpenArg)
        mcolOpenArg.Add lclsOpenArg, lclsOpenArg.pName
        lstrOpenArgs = Right$(lstrOpenArgs, Len(lstrOpenArgs) -
intPos)
        intPos = InStr(lstrOpenArgs, ";")
    Wend

End Sub
'
'This function cycles through all the openargs applying them to form
properties 'if an argument is named the same as a form property, and the
property is writeable '(doesn't require being in design view to set it)
then the application of the value 'to the property will be performed and
Err will not be set.  For these OpenArgs we 'set the IsPrp to true '
'All of this provides a way for the developer to ppass in openargs to an
opening form 'which are then used to set form properties.  It is up to
the developer to ensure that 'the property is settable, that the value
they pass in is valid (correct data type, 'correct value range etc.) '
'In the end, the only way to know whether a passed in OpenArg is a
property is to try 'it and see.  If there is no error then the name is a
property name, it is settable in 'form view mode, and the value is
acceptable. ' Public Sub ApplyFrmProperties() Dim lclsOpenArg As
clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub
'
'Empties out a collection containing class instances
'
Public Function mColEmpty(col As Collection)
On Error GoTo Err_mColEmpty

Dim obj As Object
On Error Resume Next
    
    For Each obj In col
        obj.mTerm
    Next obj

On Error GoTo Err_mColEmpty
    While col.Count > 0
        col.Remove 1
    Wend
exit_mColEmpty:
Exit Function
Err_mColEmpty:
    Select Case Err
    Case 91 'Collection empty
        Resume exit_mColEmpty
    Case Else
        MsgBox Err.Description, , "Error in Function
clsSysVars.mColEmpty"
        Resume exit_mColEmpty
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function

'*-PRIVATE Class function / sub declaration
'*+PUBLIC Class function / sub declaration
Function OpenArg(strArgName As String) As Variant
On Error GoTo Err_OpenArg
    OpenArg = mcolOpenArg(strArgName).pVal
Exit_OpenArg:
Exit Function
Err_OpenArg:
    Select Case Err
    Case 91
        MsgBox "OpenArg " & strArgName & " does not exist"
        Resume Exit_OpenArg
    Case Else
        MsgBox Err.Description, , "Error in Function
clsOpenArgs.OpenArg"
        Resume Exit_OpenArg
    End Select
    Resume 0    '.FOR TROUBLESHOOTING
End Function'*-PUBLIC Class function / sub declaration

'===========================================================
'Form frmStates - a demo form that displays a state lookup table
'===========================================================
Option Compare Database
Option Explicit

Private lclsOpenArgs As clsOpenArgs

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True
End Sub
Private Sub cmdClose_Click()
On Error GoTo Err_cmdClose_Click

    DoCmd.Close

Exit_cmdClose_Click:
    Exit Sub
Err_cmdClose_Click:
    MsgBox Err.Description
    Resume Exit_cmdClose_Click
End Sub

'===========================================================
'Form frmOpenArgsDemo - a demo form that opens the state form, 
'passing in openargs
'===========================================================
Option Compare Database
Option Explicit

Private Sub cmdStatesDataEntry_Click()
On Error GoTo Err_cmdStatesDataEntry_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim strOpenArgs As String
    
    strOpenArgs = "DataEntry=True;AllowEdits=True;AllowDeletions=False;"
    stDocName = "frmStates"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , strOpenArgs

Exit_cmdStatesDataEntry_Click:
    Exit Sub

Err_cmdStatesDataEntry_Click:
    MsgBox Err.Description
    Resume Exit_cmdStatesDataEntry_Click
    Resume 0
End Sub

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 5:29 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions

Hi John
Anyone feel free to jump in if I have this wrong 

The open Args are quite useful, but tacked on the end of a Do.cmd
statement they don't do much Just text or numbers (usually) tacked on
the end of an OpenForm Do.Cmd statment

The real 'power' is in the interpretation at the other end

.....

-- 
AccessD mailing list
AccessD at databaseadvisors.com 
http://databaseadvisors.com/mailman/listinfo/accessd 
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From jimdettman at earthlink.net  Mon Jan 30 11:14:16 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Mon, 30 Jan 2006 12:14:16 -0500
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <F55048AF7E974F429BB24597D7355EEABF6D@INFOSERVER04.infostat.local>
Message-ID: <NDEALJOEGMMPCDKIFGNFAELBIFAA.jimdettman@earthlink.net>

Good catch!  That's what happens when your in a hurry and hit the spell
check to quick.....

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Charlotte
Foust
Sent: Monday, January 30, 2006 11:38 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?


>> demoralize data
LOL!  Is THAT what causes corruption??

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim Dettman
Sent: Monday, January 30, 2006 7:55 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?


Steve,

<<What's your view?>>

  Andy's is writing to a wide audience; everything from a beginning
Access user to a seasoned developer and yet he seems to always take the
simplistic view when it comes to Access.  On the article I mentioned,
his stance was that it worked that way "out of the box" and "how am I
supposed to know all that"?

  Well that's what separates the men from the boys so to speak; you
either know a product and how to work with it or you don't.  But you
shouldn't ding the product because *you* don't understand how to use it
properly.  You do your homework up front like Susan does or don't bother
writing the article.

  Views are a tool like any other.  There are times when you want to use
them and times you don't.  Many Access users gravitate towards using
them because they are almost like an Access Query and it means you don't
need to learn T-SQL.  Access simply sees a view as a table, so you can
easily hide complex joins on the SQL side.

  However views will lead to performance problems in SQL as the database
scales up and can cause update problems.  Since your probably using SQL
server in the first place because the app is larger then what you can do
with JET, then it seems somewhat silly to use them for everything.

  They do however provide a nice way to make aggregate queries simpler,
demoralize data, rename columns, etc so they do have their uses.  But
you certainly don't want to be the farm on them.

  Personally my tendency is to not use them unless I have a good reason
for doing so.

Jim.




-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
Sent: Monday, January 30, 2006 9:31 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?


Jim,

Very interesting.  I noted that you and at least one other respondent
mentioned pass-through queries as good performance options.

What's puzzling to me, also, is a comment made to the article by Warren
( here's the link:
http://www.sqlservercentral.com/columnists/awarren/linkingaccesstosqlser
ver.
asp
):

"Performance can really suck, depending on the application and the
bandwidth. It has to do with the way data is cached in Access and
becomes very apparent if you have large tables (>100,000 rows). However,
it doesn't justify pass-through queries (obsolutely NOTHING justifies
pass-through queries). Views (in SQL server) are your friend."

"NOTHING justifies pass-through queries."  I didn't challenge him on
that.  I should have, I suppose, but I know zip about pass-through
queries.  What's your view?
--
Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security
http://TheTownCrank.blogspot.com



On 1/30/06, Jim Dettman <jimdettman at earthlink.net> wrote:
> Steve,
>
>   Andy doesn't seem to know much about Access.  You should have read
> his last Access article, which I and a few others commented on.
> Here's the
> link:
>
>
http://www.sqlservercentral.com/columnists/awarren/diggingintoaccessperf
orma
> nce.asp
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
> Sent: Monday, January 30, 2006 7:53 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Could somebody expand on this a little?
>
>
> Dear Group,
>
> I read a recent SQL Server Central article by a fellow named Andy
> Warren that dealt with connecting to a SQL Server database using an
> Access MDB/ODBC connection.  The article very nicely laid out the
> step-by-step process -- with screen shots -- to accomplish this.  What

> made me curious about the article was that the author never mentioned
> ADP's.
>
> So I joined the discussion forum for this topic and read a number of
> interesting replies pro and con for MDBs vs. ADPs, some that I'm
> unable, from only my own experience, to evaluate.
>
> Here's one of them.  The forum member started his message by saying
> that the article was good.  He went on to say:
>
> ~~~~~~~~~~~~~~~~~~~~~~~~
> "Two problems I've come across:
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jwcolby at ColbyConsulting.com  Mon Jan 30 11:29:53 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Mon, 30 Jan 2006 12:29:53 -0500
Subject: [AccessD] Same form, different actions
In-Reply-To: <s3ddf471.047@nebnov3.niagaracounty.com>
Message-ID: <003f01c625c2$c86fa180$657aa8c0@ColbyM6805>

John,

When you say "go there" what do you mean.  If you open a form modal, then
when you close the form you are right back in the calling form.  If you are
not opening it modal, you should STILL "go there" when you close the form
unless the user has clicked on or opened some other form in the meantime.
IOW, if the switchboard opens the form, then when the form closes, the
switchboard should still be there.  

If you want the form to do something and then OPEN another form, then pass
in the form name in the OpenArgs something like:

strOpenArgs="FrmToOpen=frmThatIWantOpened;"

Now somewhere in the form that you are opening with these openargs (perhaps
in the close event?) do:

Docmd.open acForm, lclsOpenArgs.OpenArg("FrmToOpen")

You do have to make sure that the instance of lclsOpenArgs hasn't been
destroyed already.  I am not sure at what instance in the closing process
that occurs so that part is up to you to figure out.

So.....

The demo has two levels of complexity.  The first (and most complex) is that
as you pass in openargs, it is possible to have the OpenArgs class set
properties of the form that is using this instance of the OpenArgs class.
That is handled automatically by clsOpenArgs.  Pass in OpenArgs with names
that match form properties and Voila, (assuming the properties are not
read-only) the properties are set.  That was demonstrated by the code in the
buttons on the demo form opening the SAME state form in two different modes,
plus setting the caption property of the state form.

The second level of complexity is just using an OpenArg somehow, using code
in the form to retrieve an OpenArg and use it.  That was demonstrated by
setting the label caption in code in the OnOpen event.

In either case, the first thing to get comfortable with is having a form
instantiate and initialize a class.  In the code behind form of the
frmState, we dimensioned a class variable in the header, then SET and
initialized that variable in OnOpen.

Private lclsOpenArgs As clsOpenArgs


Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True

So the form now has a lclsOpenArgs instance that has parsed the OpenArgs
string passed in and is waiting for your command.

The next thing to become comfortable with is that you can now use the
Openargs:

	lblDemoArg.Caption = lclsOpenArgs.OpenArg("LblText")

In the OnOpen of the frmState, we initialized the class, and then used the
class to pull out an openarg called "LblText" and used the value returned by
the class to set the caption of a label - lblDemoArg.Caption.

Go back to the button code that OPENED frmState and notice that the string
with all the openargs contained an openarg with this "lblText" name (at the
very end):

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State Data
Entry Form;LblText=My Data Entry Label;"

ALL of the OpenArgs at the front of the string are for setting form
properties.  Their location in the string is irrelevant, it just happens
that is where I placed them.

IF you told frmStates to interpret the openargs as properties BY PASSING IN
True as the second argument of the init:

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True  <<<<HERE


Then any openargs with a name matching a form property will be used to set
that property.  That occurs in the private method of clsOpenArgs called
ApplyFrmProperties, which is called from the Init() method.  We passed in a
bunch of OpenArgs with names matching form properties:

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State Data
Entry Form;LblText=My Data Entry Label;"

DataEntry
AllowEdits
AllowDeletions
Caption

The reason that they are used for setting properties is that we passed in
the TRUE as the second param of the Init method, AND in that Init method we
called the following function:

Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub

Remember that we passed in a pointer to the form itself to the Init method,
so the class can manipulate the form if it wants to.

To really understand all this stuff, the best thing to do is simply set
break points in the command buttons that open the form.  Then step through
the code and watch it all unfold.  

I understand that the "set the form properties" thing gets in the way of
understanding the OpenArgs class but it is a great example of actually
automatically using openargs, with NO further code on your part (the user of
the class).  I wrote the class to do this "set the forms property" and all
you have to do is use it.  In the frmState, as you initialize clsOpenArgs,
say you are expecting some parameters to be sent in that will set form
properties.  The class takes care of the rest.  Back in your button that
opens the form, set openarg names that match the form properties that you
want to set, set the values that you want the properties set to, and hang on
to your hat.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Monday, January 30, 2006 11:11 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Same form, different actions

OK John, as usual, you are making my brain hurt ;) Seriously, I have
downloaded your demo, and I am looking through your code, in the clsOpenArgs
module. I think I actually understand some of it too. 

I guess the first thing that comes to mind is, does it work with
non-properties of forms? One of the things I want to do is tell the form
where to go on close...actually, when the exit button is clicked. If the
user goes there from the menu, it should return to the menu. However, if the
user goes there, from anther form, it should return to that form, and pass
the name with it.

I am going to try something, with your demo, to test this. Nope...just did
this real quick, and it didn't work. Actually the whole thing pretty much
quit working...what the heck did I do ;)



From BarbaraRyan at cox.net  Mon Jan 30 11:55:52 2006
From: BarbaraRyan at cox.net (Barbara Ryan)
Date: Mon, 30 Jan 2006 12:55:52 -0500
Subject: [AccessD] Email using SMTP
Message-ID: <010d01c625c6$69664460$0d00a8c0@desktop>

I've found some SMTP components on the web that allow you to email directly from Access using SMTP.

Does anyone know of any VBA code (e.g., using SMTP "commands") that I could use WITHOUT using a component (as well as NOT using any electronic mail application)

Thanks,
Barb Ryan

From Jdemarco at hudsonhealthplan.org  Mon Jan 30 12:13:57 2006
From: Jdemarco at hudsonhealthplan.org (Jim DeMarco)
Date: Mon, 30 Jan 2006 13:13:57 -0500
Subject: [AccessD] Email using SMTP
Message-ID: <08F823FD83787D4BA0B99CA580AD3C74016C4493@TTNEXCHCL2.hshhp.com>

Barb,

Are you trying to avoid installing a component like vbSendMail?  It's a freebie that does the trick but requires a component.

Jim DeMarco

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Barbara Ryan
Sent: Monday, January 30, 2006 12:56 PM
To: Access List
Subject: [AccessD] Email using SMTP


I've found some SMTP components on the web that allow you to email directly from Access using SMTP.

Does anyone know of any VBA code (e.g., using SMTP "commands") that I could use WITHOUT using a component (as well as NOT using any electronic mail application)

Thanks,
Barb Ryan
-- 
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".
***********************************************************************************



From BarbaraRyan at cox.net  Mon Jan 30 12:20:04 2006
From: BarbaraRyan at cox.net (Barbara Ryan)
Date: Mon, 30 Jan 2006 13:20:04 -0500
Subject: [AccessD] Email using SMTP
References: <08F823FD83787D4BA0B99CA580AD3C74016C4493@TTNEXCHCL2.hshhp.com>
Message-ID: <012b01c625c9$cb282da0$0d00a8c0@desktop>

Actually, Jim....That sounds great --- Thanks!......Barb


----- Original Message ----- 
From: "Jim DeMarco" <Jdemarco at hudsonhealthplan.org>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Monday, January 30, 2006 1:13 PM
Subject: Re: [AccessD] Email using SMTP


> Barb,
>
> Are you trying to avoid installing a component like vbSendMail?  It's a
freebie that does the trick but requires a component.
>
> Jim DeMarco
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Barbara Ryan
> Sent: Monday, January 30, 2006 12:56 PM
> To: Access List
> Subject: [AccessD] Email using SMTP
>
>
> I've found some SMTP components on the web that allow you to email
directly from Access using SMTP.
>
> Does anyone know of any VBA code (e.g., using SMTP "commands") that I
could use WITHOUT using a component (as well as NOT using any electronic
mail application)
>
> Thanks,
> Barb Ryan
> -- 
> 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".
>
****************************************************************************
*******
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>



From John.Clark at niagaracounty.com  Mon Jan 30 12:23:51 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Mon, 30 Jan 2006 13:23:51 -0500
Subject: [AccessD] Same form, different actions
Message-ID: <s3de13cd.030@nebnov3.niagaracounty.com>

Man, I wish I got this just half as much as you do! This is going to
take me some time to digest, but I think it is exactly what I need.
Thanks for the help!

John W. Clark


>>> jwcolby at colbyconsulting.com 1/30/2006 12:29:53 PM >>>
John,

When you say "go there" what do you mean.  If you open a form modal,
then
when you close the form you are right back in the calling form.  If you
are
not opening it modal, you should STILL "go there" when you close the
form
unless the user has clicked on or opened some other form in the
meantime.
IOW, if the switchboard opens the form, then when the form closes, the
switchboard should still be there.  

If you want the form to do something and then OPEN another form, then
pass
in the form name in the OpenArgs something like:

strOpenArgs="FrmToOpen=frmThatIWantOpened;"

Now somewhere in the form that you are opening with these openargs
(perhaps
in the close event?) do:

Docmd.open acForm, lclsOpenArgs.OpenArg("FrmToOpen")

You do have to make sure that the instance of lclsOpenArgs hasn't been
destroyed already.  I am not sure at what instance in the closing
process
that occurs so that part is up to you to figure out.

So.....

The demo has two levels of complexity.  The first (and most complex) is
that
as you pass in openargs, it is possible to have the OpenArgs class set
properties of the form that is using this instance of the OpenArgs
class.
That is handled automatically by clsOpenArgs.  Pass in OpenArgs with
names
that match form properties and Voila, (assuming the properties are not
read-only) the properties are set.  That was demonstrated by the code
in the
buttons on the demo form opening the SAME state form in two different
modes,
plus setting the caption property of the state form.

The second level of complexity is just using an OpenArg somehow, using
code
in the form to retrieve an OpenArg and use it.  That was demonstrated
by
setting the label caption in code in the OnOpen event.

In either case, the first thing to get comfortable with is having a
form
instantiate and initialize a class.  In the code behind form of the
frmState, we dimensioned a class variable in the header, then SET and
initialized that variable in OnOpen.

Private lclsOpenArgs As clsOpenArgs


Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True

So the form now has a lclsOpenArgs instance that has parsed the
OpenArgs
string passed in and is waiting for your command.

The next thing to become comfortable with is that you can now use the
Openargs:

	lblDemoArg.Caption = lclsOpenArgs.OpenArg("LblText")

In the OnOpen of the frmState, we initialized the class, and then used
the
class to pull out an openarg called "LblText" and used the value
returned by
the class to set the caption of a label - lblDemoArg.Caption.

Go back to the button code that OPENED frmState and notice that the
string
with all the openargs contained an openarg with this "lblText" name (at
the
very end):

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State
Data
Entry Form;LblText=My Data Entry Label;"

ALL of the OpenArgs at the front of the string are for setting form
properties.  Their location in the string is irrelevant, it just
happens
that is where I placed them.

IF you told frmStates to interpret the openargs as properties BY
PASSING IN
True as the second argument of the init:

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True  <<<<HERE


Then any openargs with a name matching a form property will be used to
set
that property.  That occurs in the private method of clsOpenArgs
called
ApplyFrmProperties, which is called from the Init() method.  We passed
in a
bunch of OpenArgs with names matching form properties:

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State
Data
Entry Form;LblText=My Data Entry Label;"

DataEntry
AllowEdits
AllowDeletions
Caption

The reason that they are used for setting properties is that we passed
in
the TRUE as the second param of the Init method, AND in that Init
method we
called the following function:

Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub

Remember that we passed in a pointer to the form itself to the Init
method,
so the class can manipulate the form if it wants to.

To really understand all this stuff, the best thing to do is simply
set
break points in the command buttons that open the form.  Then step
through
the code and watch it all unfold.  

I understand that the "set the form properties" thing gets in the way
of
understanding the OpenArgs class but it is a great example of actually
automatically using openargs, with NO further code on your part (the
user of
the class).  I wrote the class to do this "set the forms property" and
all
you have to do is use it.  In the frmState, as you initialize
clsOpenArgs,
say you are expecting some parameters to be sent in that will set form
properties.  The class takes care of the rest.  Back in your button
that
opens the form, set openarg names that match the form properties that
you
want to set, set the values that you want the properties set to, and
hang on
to your hat.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com 
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Monday, January 30, 2006 11:11 AM
To: accessd at databaseadvisors.com 
Subject: Re: [AccessD] Same form, different actions

OK John, as usual, you are making my brain hurt ;) Seriously, I have
downloaded your demo, and I am looking through your code, in the
clsOpenArgs
module. I think I actually understand some of it too. 

I guess the first thing that comes to mind is, does it work with
non-properties of forms? One of the things I want to do is tell the
form
where to go on close...actually, when the exit button is clicked. If
the
user goes there from the menu, it should return to the menu. However,
if the
user goes there, from anther form, it should return to that form, and
pass
the name with it.

I am going to try something, with your demo, to test this. Nope...just
did
this real quick, and it didn't work. Actually the whole thing pretty
much
quit working...what the heck did I do ;)

-- 
AccessD mailing list
AccessD at databaseadvisors.com 
http://databaseadvisors.com/mailman/listinfo/accessd 
Website: http://www.databaseadvisors.com


From DWUTKA at marlow.com  Mon Jan 30 12:39:24 2006
From: DWUTKA at marlow.com (DWUTKA at marlow.com)
Date: Mon, 30 Jan 2006 12:39:24 -0600
Subject: [AccessD] Email using SMTP
Message-ID: <17724746D360394AA3BFE5B8D40A9C1BD662@main2.marlow.com>

You can do it with just TCP/IP.  To do it without any 'components', you
would need to use API calls to do the TCP/IP stuff.  I've personally never
done that.  It doesn't look too difficult, but I've always just used the
Winsock control.  

Drew

-----Original Message-----
From: Barbara Ryan [mailto:BarbaraRyan at cox.net]
Sent: Monday, January 30, 2006 11:56 AM
To: Access List
Subject: [AccessD] Email using SMTP


I've found some SMTP components on the web that allow you to email directly
from Access using SMTP.

Does anyone know of any VBA code (e.g., using SMTP "commands") that I could
use WITHOUT using a component (as well as NOT using any electronic mail
application)

Thanks,
Barb Ryan
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From JHewson at karta.com  Mon Jan 30 13:01:00 2006
From: JHewson at karta.com (Jim Hewson)
Date: Mon, 30 Jan 2006 13:01:00 -0600
Subject: [AccessD] MDB won't compile
Message-ID: <9C382E065F54AE48BC3AA7925DCBB01C03BAF443@karta-exc-int.Karta.com>


Thanks all for replying.
Andy, I tried changing the dot to a bang - no success.
Rocky, I created a new MDB and imported all objects into it... still didn't  work.
Rusty, I rearranged the references but it didn't seem to matter, still wouldn't compile.
Randall, I changed "Me" to the form name as you suggested.  After a few replacements, it worked!
The odd thing is that the Me's that had the bang continues to work.
I was able to compile and make an MDE.
We are in the process of replacing this database so I'm not going to worry about it too much.

Thanks, again.

Jim 
jhewson at karta.com
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Andy Lacey
Sent: Monday, January 30, 2006 9:52 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] MDB won't compile

Have a look, Jim, to see if in that module there are any Me. references to
controls which should really be Me! . I find Access sometimes objects like
this.
--
Andy Lacey
http://www.minstersystems.co.uk




--------- Original Message --------
From: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
To: "AccessD" <AccessD at databaseadvisors.com>
Subject: [AccessD] MDB won't compile
Date: 30/01/06 14:59


A2K, inherited.

I changed the margins to a report in an MDB. That's the only change I
made.

Now the MDB won't compile. I've made minor changes before and created
MDE files without any problems.

When I try to compile, it stops at "Me.Refresh" with an error that
states the "Method or Data member is not found."

I've checked the references, decompiled, used JetComp, moved all objects
to a new container.

It still will not compile.

If I comment out the offending line, it gets stuck on "Recordset" then
"bookmark".



What else I can try?

Many thanks in advance.



Jim





--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

________________________________________________
Message sent using UebiMiau 2.7.2

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From developer at ultradnt.com  Mon Jan 30 13:24:03 2006
From: developer at ultradnt.com (Steve Conklin)
Date: Mon, 30 Jan 2006 14:24:03 -0500
Subject: [AccessD] Email using SMTP
In-Reply-To: <17724746D360394AA3BFE5B8D40A9C1BD662@main2.marlow.com>
Message-ID: <200601301924.k0UJO6t09062@ultradnt.com>

Barbara: 
You can use CDO objects, with late-binding, to do email "component-free":
Hth,
Steve

'=================== Code:
Private Sub Command14_Click()
Dim objmessage
Set objmessage = CreateObject("CDO.Message")
objmessage.Subject = Me.txbSubj ' "Example CDO Message"
objmessage.From = "user at server.net"

objmessage.TextBody = Me.txbMsg ' "This is some sample message text."
'==This section provides the configuration information for the remote SMTP
server.
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"mail.server.net"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '
cdoBasic

'Your UserID on the SMTP server
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user"

'Your password on the SMTP server
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"

'Server port (typically 25)
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Use SSL for the connection (False or True)
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a
connection to the SMTP server)
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") =
60

objmessage.To = "someone at somewhere.com"
objmessage.Configuration.Fields.Update
objmessage.Send

End Sub



-----Original Message-----
From: Barbara Ryan [mailto:BarbaraRyan at cox.net]
Sent: Monday, January 30, 2006 11:56 AM
To: Access List
Subject: [AccessD] Email using SMTP


I've found some SMTP components on the web that allow you to email directly
from Access using SMTP.

Does anyone know of any VBA code (e.g., using SMTP "commands") that I could
use WITHOUT using a component (as well as NOT using any electronic mail
application)

Thanks,
Barb Ryan
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From Jdemarco at hudsonhealthplan.org  Mon Jan 30 13:25:37 2006
From: Jdemarco at hudsonhealthplan.org (Jim DeMarco)
Date: Mon, 30 Jan 2006 14:25:37 -0500
Subject: [AccessD] Requirement to install certain updates...
Message-ID: <08F823FD83787D4BA0B99CA580AD3C74016C449B@TTNEXCHCL2.hshhp.com>

... for future deployments of select Microsoft Office products

List,

We just got this from M$ Licensing.  Has anyone seen this yet?

=================================================
Background: It was recently decided in a court of law that certain portions of code found in Microsoft Office Professional Edition 2003, Microsoft Office Access 2003, Microsoft Office XP Professional and Microsoft Access 2002 infringe a third-party patent. As a result, Microsoft must make available a revised version of these products with the allegedly infringing code replaced.

Action required: As a result of the above ruling, you are required to: 
*	Install Microsoft Office 2003 Service Pack 2 (Office 2003 SP2) for all your future deployments of Office Professional Edition 2003 and Office Access 2003, 
*	Install the Microsoft Office XP Service Pack 3 Patch (Office XP SP3 Patch) for all your future deployments of Office XP Professional and Access 2002
Action requested: To keep your current systems in alignment with your future deployments of these products, Microsoft is requesting that you also update all your current Office Professional Edition 2003 and Office Access 2003 installations with Office 2003 SP2, and Office XP Professional and Access 2002 installations with the Office XP SP3 Patch.

How do I do this?: You can obtain both Office 2003 SP2 and the Office XP SP3 Patch by going to the website listed below and downloading it directly, or by contacting your reseller. 
===================================================

Jim DeMarco



***********************************************************************************
"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".
***********************************************************************************



From clh at christopherhawkins.com  Mon Jan 30 13:51:09 2006
From: clh at christopherhawkins.com (Christopher Hawkins)
Date: Mon, 30 Jan 2006 12:51:09 -0700
Subject: [AccessD] Bit OT: What is Access Written in?
Message-ID: <185f7497a2df40c3bcb0946674459549@christopherhawkins.com>

IIRC, Microsoft Office was done in MFC or ATL.  

-Christopher-

----------------------------------------
 From: "Heenan, Lambert" <Lambert.Heenan at aig.com>
Sent: Monday, January 30, 2006 7:44 AM
To: "'Access Developers discussion and problem solving'" <accessd at databaseadvisors.com>
Subject: Re: [AccessD] Bit OT: What is Access Written in? 

Definitely not C#, otherwise the box would tell you that you must have the
.NET framework installed. As others have said, probably C++ and assembler.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 7:37 PM
To: AccessD
Subject: [AccessD] Bit OT: What is Access Written in?

Is it C#?

Thanks

DD
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From clh at christopherhawkins.com  Mon Jan 30 13:56:53 2006
From: clh at christopherhawkins.com (Christopher Hawkins)
Date: Mon, 30 Jan 2006 12:56:53 -0700
Subject: [AccessD] Coming up for air...
Message-ID: <5b57b6a4ace1411ab11e2f128e75599a@christopherhawkins.com>

Hello, all!

It's been a while since I was very active on this list.  I check in from time to time, but the amount of Access work I do is so small now I rarely need to ask for answers, and rarely have time to give them.  I'm mostly doing ASP Classic/ASP.NET and SQL Server work these days.

I just wanted to pop up and say hello to all of you!  I've been subscribed for something like 5 years now, and it's always nice to skim the list and see the same names still asking questions, because that means you are all still gainfully employed!  ;)

As for me, my little consultancy has been humming right along.  I've got a team of 4 now and we're chasing after ever-bigger projects!  It was a rough start, especially for the first two years, but it looks like things are on the right track.

I'd love to hear how you've all been doing.  Feel free to sound off either on or offline!

 Respectfully,

Christopher Hawkins
Chief Developer
Cogeian Systems
(559) 687-7591
www.cogeian.com

 


From accessd at shaw.ca  Mon Jan 30 14:01:21 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Mon, 30 Jan 2006 12:01:21 -0800
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <39cb22f30601300630s2136bd50qbcf0dfae0c954b14@mail.gmail.com>
Message-ID: <001e01c625d7$f20fb5b0$017ba8c0@xpserver>

Pass-through queries have terrible performance especially if you are trying
to access dataset (recordsets).

Jim
 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Erbach
Sent: January 30, 2006 6:31 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?

Jim,

Very interesting.  I noted that you and at least one other respondent
mentioned pass-through queries as good performance options.

What's puzzling to me, also, is a comment made to the article by
Warren ( here's the link: 
http://www.sqlservercentral.com/columnists/awarren/linkingaccesstosqlserver.
asp
):

"Performance can really suck, depending on the application and the
bandwidth. It has to do with the way data is cached in Access and
becomes very apparent if you have large tables (>100,000 rows).
However, it doesn't justify pass-through queries (obsolutely NOTHING
justifies pass-through queries). Views (in SQL server) are your
friend."

"NOTHING justifies pass-through queries."  I didn't challenge him on
that.  I should have, I suppose, but I know zip about pass-through
queries.  What's your view?
--
Regards,

Steve Erbach
Scientific Marketing
Neenah, WI
www.swerbach.com
Security Page: www.swerbach.com/security
http://TheTownCrank.blogspot.com



On 1/30/06, Jim Dettman <jimdettman at earthlink.net> wrote:
> Steve,
>
>   Andy doesn't seem to know much about Access.  You should have read his
> last Access article, which I and a few others commented on.  Here's the
> link:
>
>
http://www.sqlservercentral.com/columnists/awarren/diggingintoaccessperforma
> nce.asp
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
> Sent: Monday, January 30, 2006 7:53 AM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Could somebody expand on this a little?
>
>
> Dear Group,
>
> I read a recent SQL Server Central article by a fellow named Andy
> Warren that dealt with connecting to a SQL Server database using an
> Access MDB/ODBC connection.  The article very nicely laid out the
> step-by-step process -- with screen shots -- to accomplish this.  What
> made me curious about the article was that the author never mentioned
> ADP's.
>
> So I joined the discussion forum for this topic and read a number of
> interesting replies pro and con for MDBs vs. ADPs, some that I'm
> unable, from only my own experience, to evaluate.
>
> Here's one of them.  The forum member started his message by saying
> that the article was good.  He went on to say:
>
> ~~~~~~~~~~~~~~~~~~~~~~~~
> "Two problems I've come across:
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From accessd at shaw.ca  Mon Jan 30 14:02:40 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Mon, 30 Jan 2006 12:02:40 -0800
Subject: [AccessD] Bit OT: What is Access Written in?
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1C7860B0@xlivmbx21.aig.com>
Message-ID: <001f01c625d8$1fdae280$017ba8c0@xpserver>

I concur; C# is too slow in comparison with C++.

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Heenan, Lambert
Sent: January 30, 2006 6:44 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Bit OT: What is Access Written in?

Definitely not C#, otherwise the box would tell you that you must have the
.NET framework installed. As others have said, probably C++ and assembler.

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren DICK
Sent: Sunday, January 29, 2006 7:37 PM
To: AccessD
Subject: [AccessD] Bit OT: What is Access Written in?


Is it C#?
 
Thanks
 
DD
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From accessd at shaw.ca  Mon Jan 30 14:53:14 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Mon, 30 Jan 2006 12:53:14 -0800
Subject: [AccessD] Requirement to install certain updates...
In-Reply-To: <08F823FD83787D4BA0B99CA580AD3C74016C449B@TTNEXCHCL2.hshhp.com>
Message-ID: <002001c625df$30a6a480$017ba8c0@xpserver>

Jim:

Wouldn't it be as simple as going to MS update site:
http://www.microsoft.com/downloads/details.aspx?FamilyId=57E27A97-2DB6-4654-
9DB6-EC7D5B4DD867&displaylang=en

The problem relates around MS losing the court battle around Access being
able to access and post data to Excel. If you have code that interfaces with
Excel from Access the standard method it may be disable after installing SP2
or it may just replace the existing code with something else. I have not
heard one way or the other though comments from MS suggest that the current
methods will simply be disabled.

http://news.com.com/Patent+spat+forces+businesses+to+upgrade+Office/2100-101
4_3-6032870.html

There may be work-arounds but they will not be officially released until
Office12. 

I for one will have a number of systems that will be affected but am not
sure how or/and when. If anyone out there has ran across those issues, I
would love to hear about them.
 
Jim


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim DeMarco
Sent: January 30, 2006 11:26 AM
To: AccessD (E-mail)
Subject: [AccessD] Requirement to install certain updates...

... for future deployments of select Microsoft Office products

List,

We just got this from M$ Licensing.  Has anyone seen this yet?

=================================================
Background: It was recently decided in a court of law that certain portions
of code found in Microsoft Office Professional Edition 2003, Microsoft
Office Access 2003, Microsoft Office XP Professional and Microsoft Access
2002 infringe a third-party patent. As a result, Microsoft must make
available a revised version of these products with the allegedly infringing
code replaced.

Action required: As a result of the above ruling, you are required to: 
*	Install Microsoft Office 2003 Service Pack 2 (Office 2003 SP2) for
all your future deployments of Office Professional Edition 2003 and Office
Access 2003, 
*	Install the Microsoft Office XP Service Pack 3 Patch (Office XP SP3
Patch) for all your future deployments of Office XP Professional and Access
2002
Action requested: To keep your current systems in alignment with your future
deployments of these products, Microsoft is requesting that you also update
all your current Office Professional Edition 2003 and Office Access 2003
installations with Office 2003 SP2, and Office XP Professional and Access
2002 installations with the Office XP SP3 Patch.

How do I do this?: You can obtain both Office 2003 SP2 and the Office XP SP3
Patch by going to the website listed below and downloading it directly, or
by contacting your reseller. 
===================================================

Jim DeMarco



****************************************************************************
*******
"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".
****************************************************************************
*******

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From martyconnelly at shaw.ca  Mon Jan 30 14:57:14 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 30 Jan 2006 12:57:14 -0800
Subject: [AccessD] Requirement to install certain updates...
References: <08F823FD83787D4BA0B99CA580AD3C74016C449B@TTNEXCHCL2.hshhp.com>
Message-ID: <43DE7DAA.8070908@shaw.ca>

I know this refers to the removal of the abilty to update linked excel 
files via automation.
I don't think MS supplies workaround code in the patches.
I am sort of amazed MS couldn't find any Prior Art on the patent.


Jim DeMarco wrote:

>... for future deployments of select Microsoft Office products
>
>List,
>
>We just got this from M$ Licensing.  Has anyone seen this yet?
>
>=================================================
>Background: It was recently decided in a court of law that certain portions of code found in Microsoft Office Professional Edition 2003, Microsoft Office Access 2003, Microsoft Office XP Professional and Microsoft Access 2002 infringe a third-party patent. As a result, Microsoft must make available a revised version of these products with the allegedly infringing code replaced.
>
>Action required: As a result of the above ruling, you are required to: 
>*	Install Microsoft Office 2003 Service Pack 2 (Office 2003 SP2) for all your future deployments of Office Professional Edition 2003 and Office Access 2003, 
>*	Install the Microsoft Office XP Service Pack 3 Patch (Office XP SP3 Patch) for all your future deployments of Office XP Professional and Access 2002
>Action requested: To keep your current systems in alignment with your future deployments of these products, Microsoft is requesting that you also update all your current Office Professional Edition 2003 and Office Access 2003 installations with Office 2003 SP2, and Office XP Professional and Access 2002 installations with the Office XP SP3 Patch.
>
>How do I do this?: You can obtain both Office 2003 SP2 and the Office XP SP3 Patch by going to the website listed below and downloading it directly, or by contacting your reseller. 
>===================================================
>
>Jim DeMarco
>
>
>
>***********************************************************************************
>"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".
>***********************************************************************************
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From martyconnelly at shaw.ca  Mon Jan 30 15:10:52 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 30 Jan 2006 13:10:52 -0800
Subject: [AccessD] Email using SMTP
References: <010d01c625c6$69664460$0d00a8c0@desktop>
Message-ID: <43DE80DC.10408@shaw.ca>

Here is another method of using CDO similar to Steves but doesn't 
require a userid password.
Requires WinXP or Win2000
This method may only work inside a domain ie you have a online node via 
a cable modem
but not on a dial up.


'The example code is using CDOSYS (CDO for Windows 2000 or XP).
'I dont think I would want to go back to CDONTS for earlier systems
'It does not depend on MAPI or CDO or Outlook
'It does not use your mailbox to send email.
' So you can send mail without a mail program or mail account
' This code builds the message and drops it into a pickup directory,
' and the SMTP service running on the machine
' picks it up and send it out to the internet.

'So why use CDO code instead of Outlook automation or 
Application.SendMail in VBA.
' It doesn't matter what Mail program you are using (It uses the SMTP 
server).
' It doesn't matter what Office version you are using.
' supposedly you can send an object or file in the body of the mail 
(some mail programs cant do this)
' haven't verified this
' You can send any file attachment you like.
' No Outlook Security warning so no need for Redemption

' You probably wont have your mail server full expanded smtp address
'If you go into netscape mail or outlook and look for the smtp name
'It will look like mine, "shawmail" or "shawnews" this dns resolves
'to "shawmail.cg.shawcable.net" CDO doesn't resolve this short name so
'The quickest way to get this actual address without using registry et al.
'is run cmd and ping "shawmail" to return full qualified smtp address.
'This code wont run exactly unless you are on cable and signed on in the 
Shaw domain

Sub SendCDO()
' This example use late binding of CDOSys, you don't have to set a reference
' You must be online to net when you run the sub
' You must be running WinXP or Win2000
Dim cdoMessage As Object
Dim objCDOMail As Object
Dim strschema As String
On Error GoTo ErrorHandler ' Enable error-handling routine.
'
Set cdoMessage = CreateObject("CDO.Message")
Set objCDOMail = CreateObject("CDO.Configuration")
strschema = "http://schemas.microsoft.com/cdo/configuration/"
objCDOMail.Load -1 ' CDO Source Default
'If you have illegal or wrong smtp address here it will run for 30-60 
seconds and finally give transport error
With objCDOMail.Fields
.Item(strschema & "sendusing") = 2 ' cdoSendUsingPort
.Item(strschema & "smtpserver") = "shawmail.cg.shawcable.net" ' "Your 
SMTP server address here"
.Item(strschema & "smtpserverport") = 25 'specify port number
.Update
End With

With cdoMessage
Set .Configuration = objCDOMail
.to = "martyconnelly at gmail.com"
.From = "Winnie The Pooh <martyconnelly at shaw.ca>"
.CC = ""
.BCC = ""
.Subject = "This is another test from marty"
.TextBody = "This is the text in the body just cdo defaults"
.AddAttachment "C:\temp2\rptSampleCount.rtf"
.AddAttachment "C:\temp2\frontimage.jpeg"
.send
End With

Set cdoMessage = Nothing
Set objCDOMail = Nothing
Exit Sub ' Exit to avoid handler.
ErrorHandler: ' Error-handling routine.
Debug.Print Err.Number & "-" & Err.Description
Set cdoMessage = Nothing
Set objCDOMail = Nothing
Exit Sub
End Sub



Barbara Ryan wrote:

>I've found some SMTP components on the web that allow you to email directly from Access using SMTP.
>
>Does anyone know of any VBA code (e.g., using SMTP "commands") that I could use WITHOUT using a component (as well as NOT using any electronic mail application)
>
>Thanks,
>Barb Ryan
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From BarbaraRyan at cox.net  Mon Jan 30 15:20:30 2006
From: BarbaraRyan at cox.net (Barbara Ryan)
Date: Mon, 30 Jan 2006 16:20:30 -0500
Subject: [AccessD] Email using SMTP
References: <010d01c625c6$69664460$0d00a8c0@desktop> <43DE80DC.10408@shaw.ca>
Message-ID: <017701c625e2$ff8cec20$0d00a8c0@desktop>

Thanks, Steve and Marty....  It's nice to know that I have several options.
I learn something new every day......Barb


----- Original Message ----- 
From: "MartyConnelly" <martyconnelly at shaw.ca>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Monday, January 30, 2006 4:10 PM
Subject: Re: [AccessD] Email using SMTP


> Here is another method of using CDO similar to Steves but doesn't
> require a userid password.
> Requires WinXP or Win2000
> This method may only work inside a domain ie you have a online node via
> a cable modem
> but not on a dial up.
>
>
> 'The example code is using CDOSYS (CDO for Windows 2000 or XP).
> 'I dont think I would want to go back to CDONTS for earlier systems
> 'It does not depend on MAPI or CDO or Outlook
> 'It does not use your mailbox to send email.
> ' So you can send mail without a mail program or mail account
> ' This code builds the message and drops it into a pickup directory,
> ' and the SMTP service running on the machine
> ' picks it up and send it out to the internet.
>
> 'So why use CDO code instead of Outlook automation or
> Application.SendMail in VBA.
> ' It doesn't matter what Mail program you are using (It uses the SMTP
> server).
> ' It doesn't matter what Office version you are using.
> ' supposedly you can send an object or file in the body of the mail
> (some mail programs cant do this)
> ' haven't verified this
> ' You can send any file attachment you like.
> ' No Outlook Security warning so no need for Redemption
>
> ' You probably wont have your mail server full expanded smtp address
> 'If you go into netscape mail or outlook and look for the smtp name
> 'It will look like mine, "shawmail" or "shawnews" this dns resolves
> 'to "shawmail.cg.shawcable.net" CDO doesn't resolve this short name so
> 'The quickest way to get this actual address without using registry et al.
> 'is run cmd and ping "shawmail" to return full qualified smtp address.
> 'This code wont run exactly unless you are on cable and signed on in the
> Shaw domain
>
> Sub SendCDO()
> ' This example use late binding of CDOSys, you don't have to set a
reference
> ' You must be online to net when you run the sub
> ' You must be running WinXP or Win2000
> Dim cdoMessage As Object
> Dim objCDOMail As Object
> Dim strschema As String
> On Error GoTo ErrorHandler ' Enable error-handling routine.
> '
> Set cdoMessage = CreateObject("CDO.Message")
> Set objCDOMail = CreateObject("CDO.Configuration")
> strschema = "http://schemas.microsoft.com/cdo/configuration/"
> objCDOMail.Load -1 ' CDO Source Default
> 'If you have illegal or wrong smtp address here it will run for 30-60
> seconds and finally give transport error
> With objCDOMail.Fields
> .Item(strschema & "sendusing") = 2 ' cdoSendUsingPort
> .Item(strschema & "smtpserver") = "shawmail.cg.shawcable.net" ' "Your
> SMTP server address here"
> .Item(strschema & "smtpserverport") = 25 'specify port number
> .Update
> End With
>
> With cdoMessage
> Set .Configuration = objCDOMail
> .to = "martyconnelly at gmail.com"
> .From = "Winnie The Pooh <martyconnelly at shaw.ca>"
> .CC = ""
> .BCC = ""
> .Subject = "This is another test from marty"
> .TextBody = "This is the text in the body just cdo defaults"
> .AddAttachment "C:\temp2\rptSampleCount.rtf"
> .AddAttachment "C:\temp2\frontimage.jpeg"
> .send
> End With
>
> Set cdoMessage = Nothing
> Set objCDOMail = Nothing
> Exit Sub ' Exit to avoid handler.
> ErrorHandler: ' Error-handling routine.
> Debug.Print Err.Number & "-" & Err.Description
> Set cdoMessage = Nothing
> Set objCDOMail = Nothing
> Exit Sub
> End Sub
>
>
>
> Barbara Ryan wrote:
>
> >I've found some SMTP components on the web that allow you to email
directly from Access using SMTP.
> >
> >Does anyone know of any VBA code (e.g., using SMTP "commands") that I
could use WITHOUT using a component (as well as NOT using any electronic
mail application)
> >
> >Thanks,
> >Barb Ryan
> >
> >
>
> -- 
> Marty Connelly
> Victoria, B.C.
> Canada
>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>



From andy at minstersystems.co.uk  Mon Jan 30 16:36:25 2006
From: andy at minstersystems.co.uk (Andy Lacey)
Date: Mon, 30 Jan 2006 22:36:25 -0000
Subject: [AccessD] Coming up for air...
In-Reply-To: <5b57b6a4ace1411ab11e2f128e75599a@christopherhawkins.com>
Message-ID: <000601c625ed$9bd2acf0$32980c54@minster33c3r25>

Congratulations and glad to hear things are going well Christopher.

-- Andy Lacey
http://www.minstersystems.co.uk


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com 
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of 
> Christopher Hawkins
> Sent: 30 January 2006 19:57
> To: accessd at databaseadvisors.com
> Subject: [AccessD] Coming up for air...
> 
> 
> Hello, all!
> 
> It's been a while since I was very active on this list.  I 
> check in from time to time, but the amount of Access work I 
> do is so small now I rarely need to ask for answers, and 
> rarely have time to give them.  I'm mostly doing ASP 
> Classic/ASP.NET and SQL Server work these days.
> 
> I just wanted to pop up and say hello to all of you!  I've 
> been subscribed for something like 5 years now, and it's 
> always nice to skim the list and see the same names still 
> asking questions, because that means you are all still 
> gainfully employed!  ;)
> 
> As for me, my little consultancy has been humming right 
> along.  I've got a team of 4 now and we're chasing after 
> ever-bigger projects!  It was a rough start, especially for 
> the first two years, but it looks like things are on the right track.
> 
> I'd love to hear how you've all been doing.  Feel free to 
> sound off either on or offline!
> 
>  Respectfully,
> 
> Christopher Hawkins
> Chief Developer
> Cogeian Systems
> (559) 687-7591
> www.cogeian.com
> 
>  
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com 
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 
> 



From martyconnelly at shaw.ca  Mon Jan 30 17:23:03 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 30 Jan 2006 15:23:03 -0800
Subject: [AccessD] Requirement to install certain updates...
References: <002001c625df$30a6a480$017ba8c0@xpserver>
Message-ID: <43DE9FD7.2020009@shaw.ca>

You could try here.
Also shows how certain remote queries become read only;
affected after latest Access XP and 2003 SP's applied
like
SELECT [Companies$].*, * FROM [Companies$] IN 'c:\tmp\excel_be.xls 
'[Excel 8.0;];

http://www.vb123.com/toolshed/news/issue61.htm


Jim Lawrence wrote:

>Jim:
>
>Wouldn't it be as simple as going to MS update site:
>http://www.microsoft.com/downloads/details.aspx?FamilyId=57E27A97-2DB6-4654-
>9DB6-EC7D5B4DD867&displaylang=en
>
>The problem relates around MS losing the court battle around Access being
>able to access and post data to Excel. If you have code that interfaces with
>Excel from Access the standard method it may be disable after installing SP2
>or it may just replace the existing code with something else. I have not
>heard one way or the other though comments from MS suggest that the current
>methods will simply be disabled.
>
>http://news.com.com/Patent+spat+forces+businesses+to+upgrade+Office/2100-101
>4_3-6032870.html
>
>There may be work-arounds but they will not be officially released until
>Office12. 
>
>I for one will have a number of systems that will be affected but am not
>sure how or/and when. If anyone out there has ran across those issues, I
>would love to hear about them.
> 
>Jim
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim DeMarco
>Sent: January 30, 2006 11:26 AM
>To: AccessD (E-mail)
>Subject: [AccessD] Requirement to install certain updates...
>
>... for future deployments of select Microsoft Office products
>
>List,
>
>We just got this from M$ Licensing.  Has anyone seen this yet?
>
>=================================================
>Background: It was recently decided in a court of law that certain portions
>of code found in Microsoft Office Professional Edition 2003, Microsoft
>Office Access 2003, Microsoft Office XP Professional and Microsoft Access
>2002 infringe a third-party patent. As a result, Microsoft must make
>available a revised version of these products with the allegedly infringing
>code replaced.
>
>Action required: As a result of the above ruling, you are required to: 
>*	Install Microsoft Office 2003 Service Pack 2 (Office 2003 SP2) for
>all your future deployments of Office Professional Edition 2003 and Office
>Access 2003, 
>*	Install the Microsoft Office XP Service Pack 3 Patch (Office XP SP3
>Patch) for all your future deployments of Office XP Professional and Access
>2002
>Action requested: To keep your current systems in alignment with your future
>deployments of these products, Microsoft is requesting that you also update
>all your current Office Professional Edition 2003 and Office Access 2003
>installations with Office 2003 SP2, and Office XP Professional and Access
>2002 installations with the Office XP SP3 Patch.
>
>How do I do this?: You can obtain both Office 2003 SP2 and the Office XP SP3
>Patch by going to the website listed below and downloading it directly, or
>by contacting your reseller. 
>===================================================
>
>Jim DeMarco
>
>
>
>****************************************************************************
>*******
>"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".
>****************************************************************************
>*******
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From fhtapia at gmail.com  Mon Jan 30 17:44:02 2006
From: fhtapia at gmail.com (Francisco Tapia)
Date: Mon, 30 Jan 2006 15:44:02 -0800
Subject: [AccessD] vb script
Message-ID: <b874372a0601301544p751b55deud3256943ff02891@mail.gmail.com>

I have a text file with unicode characters... when I open it up in notepad i
can read these characters just fine, I am running a vbscript script over it
and I noticed that when It feeds the string into a variable it just uses
some other wierd characters instead example:


         Set docString = file.OpenAsTextStream(ForReading,
TristateUseDefault)
         txtString = docString.ReadAll


the result string is:
Spindeloption liefert ein h??heres Drehmoment im h??heren

but the source text document shows the following string

Spindeloption liefert ein h?heres Drehmoment im h?heren

This is being ran from a vbscript... anybody have any idea as to why?

--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...


From darrend at nimble.com.au  Mon Jan 30 18:03:37 2006
From: darrend at nimble.com.au (Darren DICK)
Date: Tue, 31 Jan 2006 11:03:37 +1100
Subject: [AccessD] BIT OT:Report Services User Group
Message-ID: <20060131000344.KNCC17345.omta04ps.mx.bigpond.com@DENZILLAP>

Hi All - Cross Posted to dba-SQL
Bit OT
Anyone know a good Reporting Services user group?
 
Many thanks
 
Darren

-----------------------------

 


From accessd at shaw.ca  Mon Jan 30 18:24:16 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Mon, 30 Jan 2006 16:24:16 -0800
Subject: [AccessD] Requirement to install certain updates...
In-Reply-To: <43DE9FD7.2020009@shaw.ca>
Message-ID: <000f01c625fc$ab7bc740$017ba8c0@xpserver>

Marty:

Upon further research it seems that most of the clients should be unaffected
as I use a different technique to access spreadsheets from Access... still
have not confirmed this yet but will take a wait and see attitude.

I did find a potential issue that may have caused a problem for a specific
client but found the following code, uncovered by Gary Robinson, resolving a
Word Mail Merge problem and I hope this may help someone else:
(http://www.vb123.com/toolshed/news/issue61.htm)

<quote>
... Copious searching and debugging revealed the problem to be here:

With  .ActiveDocument.MailMerge
  	.Destination = wdSendToNewDocument
  	.SuppressBlankLines = True
  	With 	.DataSource
    		.FirstRecord = wdDefaultFirstRecord
    		.LastRecord = wdDefaultLastRecord
  	End With
  	.Execute Pause:=False
End With

and the fix to be this:

With 	.ActiveDocument.MailMerge
  	.OpenDataSource Name:="c:\path to mdb", _
  		LinkToSource:=True, AddToRecentFiles:=False, _
  		Connection:="table certaward", _
  		SQLStatement:="SELECT * FROM `table or query`"
  	.Destination = wdSendToNewDocument
  	.SuppressBlankLines = True
  	With 	.DataSource
    		.FirstRecord = wdDefaultFirstRecord
    		.LastRecord = wdDefaultLastRecord
  	End With
  	.Execute Pause:=False
End With

I have experts exchange to thank for the solution....from this thread:

http://www.experts-exchange.com/Applications/MS_Office/Q_20629652.html
</quote>

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: January 30, 2006 3:23 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Requirement to install certain updates...

You could try here.
Also shows how certain remote queries become read only;
affected after latest Access XP and 2003 SP's applied
like
SELECT [Companies$].*, * FROM [Companies$] IN 'c:\tmp\excel_be.xls 
'[Excel 8.0;];

http://www.vb123.com/toolshed/news/issue61.htm


Jim Lawrence wrote:

>Jim:
>
>Wouldn't it be as simple as going to MS update site:
>http://www.microsoft.com/downloads/details.aspx?FamilyId=57E27A97-2DB6-4654
-
>9DB6-EC7D5B4DD867&displaylang=en
>
>The problem relates around MS losing the court battle around Access being
>able to access and post data to Excel. If you have code that interfaces
with
>Excel from Access the standard method it may be disable after installing
SP2
>or it may just replace the existing code with something else. I have not
>heard one way or the other though comments from MS suggest that the current
>methods will simply be disabled.
>
>http://news.com.com/Patent+spat+forces+businesses+to+upgrade+Office/2100-10
1
>4_3-6032870.html
>
>There may be work-arounds but they will not be officially released until
>Office12. 
>
>I for one will have a number of systems that will be affected but am not
>sure how or/and when. If anyone out there has ran across those issues, I
>would love to hear about them.
> 
>Jim
>
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Jim DeMarco
>Sent: January 30, 2006 11:26 AM
>To: AccessD (E-mail)
>Subject: [AccessD] Requirement to install certain updates...
>
>... for future deployments of select Microsoft Office products
>
>List,
>
>We just got this from M$ Licensing.  Has anyone seen this yet?
>
>=================================================
>Background: It was recently decided in a court of law that certain portions
>of code found in Microsoft Office Professional Edition 2003, Microsoft
>Office Access 2003, Microsoft Office XP Professional and Microsoft Access
>2002 infringe a third-party patent. As a result, Microsoft must make
>available a revised version of these products with the allegedly infringing
>code replaced.
>
>Action required: As a result of the above ruling, you are required to: 
>*	Install Microsoft Office 2003 Service Pack 2 (Office 2003 SP2) for
>all your future deployments of Office Professional Edition 2003 and Office
>Access 2003, 
>*	Install the Microsoft Office XP Service Pack 3 Patch (Office XP SP3
>Patch) for all your future deployments of Office XP Professional and Access
>2002
>Action requested: To keep your current systems in alignment with your
future
>deployments of these products, Microsoft is requesting that you also update
>all your current Office Professional Edition 2003 and Office Access 2003
>installations with Office 2003 SP2, and Office XP Professional and Access
>2002 installations with the Office XP SP3 Patch.
>
>How do I do this?: You can obtain both Office 2003 SP2 and the Office XP
SP3
>Patch by going to the website listed below and downloading it directly, or
>by contacting your reseller. 
>===================================================
>
>Jim DeMarco
>
>
>
>***************************************************************************
*
>*******
>"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".
>***************************************************************************
*
>*******
>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada



-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From martyconnelly at shaw.ca  Mon Jan 30 23:19:48 2006
From: martyconnelly at shaw.ca (MartyConnelly)
Date: Mon, 30 Jan 2006 21:19:48 -0800
Subject: [AccessD] Email using SMTP
References: <010d01c625c6$69664460$0d00a8c0@desktop> <43DE80DC.10408@shaw.ca>
	<017701c625e2$ff8cec20$0d00a8c0@desktop>
Message-ID: <43DEF374.7010807@shaw.ca>

Now if you wanted to get really fancy;)
Here is how to execute a vbs script with CDO that sends an email but it 
is executed from within an SQL Stored Procedure
that you could call from Access

http://www.sqlservercentral.com/columnists/aloera/sqlserverscriptingandwmi.asp

Barbara Ryan wrote:

>Thanks, Steve and Marty....  It's nice to know that I have several options.
>I learn something new every day......Barb
>
>
>----- Original Message ----- 
>From: "MartyConnelly" <martyconnelly at shaw.ca>
>To: "Access Developers discussion and problem solving"
><accessd at databaseadvisors.com>
>Sent: Monday, January 30, 2006 4:10 PM
>Subject: Re: [AccessD] Email using SMTP
>
>
>  
>
>>Here is another method of using CDO similar to Steves but doesn't
>>require a userid password.
>>Requires WinXP or Win2000
>>This method may only work inside a domain ie you have a online node via
>>a cable modem
>>but not on a dial up.
>>
>>
>>'The example code is using CDOSYS (CDO for Windows 2000 or XP).
>>'I dont think I would want to go back to CDONTS for earlier systems
>>'It does not depend on MAPI or CDO or Outlook
>>'It does not use your mailbox to send email.
>>' So you can send mail without a mail program or mail account
>>' This code builds the message and drops it into a pickup directory,
>>' and the SMTP service running on the machine
>>' picks it up and send it out to the internet.
>>
>>'So why use CDO code instead of Outlook automation or
>>Application.SendMail in VBA.
>>' It doesn't matter what Mail program you are using (It uses the SMTP
>>server).
>>' It doesn't matter what Office version you are using.
>>' supposedly you can send an object or file in the body of the mail
>>(some mail programs cant do this)
>>' haven't verified this
>>' You can send any file attachment you like.
>>' No Outlook Security warning so no need for Redemption
>>
>>' You probably wont have your mail server full expanded smtp address
>>'If you go into netscape mail or outlook and look for the smtp name
>>'It will look like mine, "shawmail" or "shawnews" this dns resolves
>>'to "shawmail.cg.shawcable.net" CDO doesn't resolve this short name so
>>'The quickest way to get this actual address without using registry et al.
>>'is run cmd and ping "shawmail" to return full qualified smtp address.
>>'This code wont run exactly unless you are on cable and signed on in the
>>Shaw domain
>>
>>Sub SendCDO()
>>' This example use late binding of CDOSys, you don't have to set a
>>    
>>
>reference
>  
>
>>' You must be online to net when you run the sub
>>' You must be running WinXP or Win2000
>>Dim cdoMessage As Object
>>Dim objCDOMail As Object
>>Dim strschema As String
>>On Error GoTo ErrorHandler ' Enable error-handling routine.
>>'
>>Set cdoMessage = CreateObject("CDO.Message")
>>Set objCDOMail = CreateObject("CDO.Configuration")
>>strschema = "http://schemas.microsoft.com/cdo/configuration/"
>>objCDOMail.Load -1 ' CDO Source Default
>>'If you have illegal or wrong smtp address here it will run for 30-60
>>seconds and finally give transport error
>>With objCDOMail.Fields
>>.Item(strschema & "sendusing") = 2 ' cdoSendUsingPort
>>.Item(strschema & "smtpserver") = "shawmail.cg.shawcable.net" ' "Your
>>SMTP server address here"
>>.Item(strschema & "smtpserverport") = 25 'specify port number
>>.Update
>>End With
>>
>>With cdoMessage
>>Set .Configuration = objCDOMail
>>.to = "martyconnelly at gmail.com"
>>.From = "Winnie The Pooh <martyconnelly at shaw.ca>"
>>.CC = ""
>>.BCC = ""
>>.Subject = "This is another test from marty"
>>.TextBody = "This is the text in the body just cdo defaults"
>>.AddAttachment "C:\temp2\rptSampleCount.rtf"
>>.AddAttachment "C:\temp2\frontimage.jpeg"
>>.send
>>End With
>>
>>Set cdoMessage = Nothing
>>Set objCDOMail = Nothing
>>Exit Sub ' Exit to avoid handler.
>>ErrorHandler: ' Error-handling routine.
>>Debug.Print Err.Number & "-" & Err.Description
>>Set cdoMessage = Nothing
>>Set objCDOMail = Nothing
>>Exit Sub
>>End Sub
>>
>>
>>
>>Barbara Ryan wrote:
>>
>>    
>>
>>>I've found some SMTP components on the web that allow you to email
>>>      
>>>
>directly from Access using SMTP.
>  
>
>>>Does anyone know of any VBA code (e.g., using SMTP "commands") that I
>>>      
>>>
>could use WITHOUT using a component (as well as NOT using any electronic
>mail application)
>  
>
>>>Thanks,
>>>Barb Ryan
>>>
>>>
>>>      
>>>
>>-- 
>>Marty Connelly
>>Victoria, B.C.
>>Canada
>>
>>
>>    
>>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada





From accessd at shaw.ca  Tue Jan 31 00:17:50 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Mon, 30 Jan 2006 22:17:50 -0800
Subject: [AccessD] Email using SMTP
In-Reply-To: <43DEF374.7010807@shaw.ca>
Message-ID: <000501c6262e$104f9580$017ba8c0@xpserver>

Marty:

Now that is very interesting... :-)

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: January 30, 2006 9:20 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Email using SMTP

Now if you wanted to get really fancy;)
Here is how to execute a vbs script with CDO that sends an email but it 
is executed from within an SQL Stored Procedure
that you could call from Access

http://www.sqlservercentral.com/columnists/aloera/sqlserverscriptingandwmi.a
sp

Barbara Ryan wrote:

>Thanks, Steve and Marty....  It's nice to know that I have several options.
>I learn something new every day......Barb
>
>
>----- Original Message ----- 
>From: "MartyConnelly" <martyconnelly at shaw.ca>
>To: "Access Developers discussion and problem solving"
><accessd at databaseadvisors.com>
>Sent: Monday, January 30, 2006 4:10 PM
>Subject: Re: [AccessD] Email using SMTP
>
>
>  
>
>>Here is another method of using CDO similar to Steves but doesn't
>>require a userid password.
>>Requires WinXP or Win2000
>>This method may only work inside a domain ie you have a online node via
>>a cable modem
>>but not on a dial up.
>>
>>
>>'The example code is using CDOSYS (CDO for Windows 2000 or XP).
>>'I dont think I would want to go back to CDONTS for earlier systems
>>'It does not depend on MAPI or CDO or Outlook
>>'It does not use your mailbox to send email.
>>' So you can send mail without a mail program or mail account
>>' This code builds the message and drops it into a pickup directory,
>>' and the SMTP service running on the machine
>>' picks it up and send it out to the internet.
>>
>>'So why use CDO code instead of Outlook automation or
>>Application.SendMail in VBA.
>>' It doesn't matter what Mail program you are using (It uses the SMTP
>>server).
>>' It doesn't matter what Office version you are using.
>>' supposedly you can send an object or file in the body of the mail
>>(some mail programs cant do this)
>>' haven't verified this
>>' You can send any file attachment you like.
>>' No Outlook Security warning so no need for Redemption
>>
>>' You probably wont have your mail server full expanded smtp address
>>'If you go into netscape mail or outlook and look for the smtp name
>>'It will look like mine, "shawmail" or "shawnews" this dns resolves
>>'to "shawmail.cg.shawcable.net" CDO doesn't resolve this short name so
>>'The quickest way to get this actual address without using registry et al.
>>'is run cmd and ping "shawmail" to return full qualified smtp address.
>>'This code wont run exactly unless you are on cable and signed on in the
>>Shaw domain
>>
>>Sub SendCDO()
>>' This example use late binding of CDOSys, you don't have to set a
>>    
>>
>reference
>  
>
>>' You must be online to net when you run the sub
>>' You must be running WinXP or Win2000
>>Dim cdoMessage As Object
>>Dim objCDOMail As Object
>>Dim strschema As String
>>On Error GoTo ErrorHandler ' Enable error-handling routine.
>>'
>>Set cdoMessage = CreateObject("CDO.Message")
>>Set objCDOMail = CreateObject("CDO.Configuration")
>>strschema = "http://schemas.microsoft.com/cdo/configuration/"
>>objCDOMail.Load -1 ' CDO Source Default
>>'If you have illegal or wrong smtp address here it will run for 30-60
>>seconds and finally give transport error
>>With objCDOMail.Fields
>>.Item(strschema & "sendusing") = 2 ' cdoSendUsingPort
>>.Item(strschema & "smtpserver") = "shawmail.cg.shawcable.net" ' "Your
>>SMTP server address here"
>>.Item(strschema & "smtpserverport") = 25 'specify port number
>>.Update
>>End With
>>
>>With cdoMessage
>>Set .Configuration = objCDOMail
>>.to = "martyconnelly at gmail.com"
>>.From = "Winnie The Pooh <martyconnelly at shaw.ca>"
>>.CC = ""
>>.BCC = ""
>>.Subject = "This is another test from marty"
>>.TextBody = "This is the text in the body just cdo defaults"
>>.AddAttachment "C:\temp2\rptSampleCount.rtf"
>>.AddAttachment "C:\temp2\frontimage.jpeg"
>>.send
>>End With
>>
>>Set cdoMessage = Nothing
>>Set objCDOMail = Nothing
>>Exit Sub ' Exit to avoid handler.
>>ErrorHandler: ' Error-handling routine.
>>Debug.Print Err.Number & "-" & Err.Description
>>Set cdoMessage = Nothing
>>Set objCDOMail = Nothing
>>Exit Sub
>>End Sub
>>
>>
>>
>>Barbara Ryan wrote:
>>
>>    
>>
>>>I've found some SMTP components on the web that allow you to email
>>>      
>>>
>directly from Access using SMTP.
>  
>
>>>Does anyone know of any VBA code (e.g., using SMTP "commands") that I
>>>      
>>>
>could use WITHOUT using a component (as well as NOT using any electronic
>mail application)
>  
>
>>>Thanks,
>>>Barb Ryan
>>>
>>>
>>>      
>>>
>>-- 
>>Marty Connelly
>>Victoria, B.C.
>>Canada
>>
>>
>>    
>>
>  
>

-- 
Marty Connelly
Victoria, B.C.
Canada



-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From Gustav at cactus.dk  Tue Jan 31 06:36:57 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 31 Jan 2006 13:36:57 +0100
Subject: [AccessD] IBM DB2 Express-C free to use
Message-ID: <s3df6803.052@cactus.dk>

Hi all

Did you notice that IBM finally has an Express offering completely free:

  http://www.ibm.com/db2/express/

It's a 373MB zip download.
Note the FAQ link.

It features unlimited database size and is only limited to 4GB ram and dual processor.
Runs on 32/64 bit, Linux or Windows.

By the way, do we have any DB2 gurus among us?

/gustav



From erbachs at gmail.com  Tue Jan 31 06:38:17 2006
From: erbachs at gmail.com (Steve Erbach)
Date: Tue, 31 Jan 2006 06:38:17 -0600
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <001e01c625d7$f20fb5b0$017ba8c0@xpserver>
References: <39cb22f30601300630s2136bd50qbcf0dfae0c954b14@mail.gmail.com>
	<001e01c625d7$f20fb5b0$017ba8c0@xpserver>
Message-ID: <39cb22f30601310438i696d6853od34b69ebc23dfc44@mail.gmail.com>

Jim,

Thank you.  I've never used them.

Steve Erbach

On 1/30/06, Jim Lawrence <accessd at shaw.ca> wrote:
> Pass-through queries have terrible performance especially if you are trying
> to access dataset (recordsets).
>
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Erbach
> Sent: January 30, 2006 6:31 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Could somebody expand on this a little?
>
> Jim,
>
> Very interesting.  I noted that you and at least one other respondent
> mentioned pass-through queries as good performance options.
>
> What's puzzling to me, also, is a comment made to the article by
> Warren ( here's the link:
> http://www.sqlservercentral.com/columnists/awarren/linkingaccesstosqlserver.
> asp
> ):
>
> "Performance can really suck, depending on the application and the
> bandwidth. It has to do with the way data is cached in Access and
> becomes very apparent if you have large tables (>100,000 rows).
> However, it doesn't justify pass-through queries (obsolutely NOTHING
> justifies pass-through queries). Views (in SQL server) are your
> friend."
>
> "NOTHING justifies pass-through queries."  I didn't challenge him on
> that.  I should have, I suppose, but I know zip about pass-through
> queries.  What's your view?
> --
> Regards,
>
> Steve Erbach


From John.Clark at niagaracounty.com  Tue Jan 31 07:04:40 2006
From: John.Clark at niagaracounty.com (John Clark)
Date: Tue, 31 Jan 2006 08:04:40 -0500
Subject: [AccessD] Coming up for air...
Message-ID: <s3df1a1d.044@nebnov3.niagaracounty.com>

Hey, I just checked out your website...how did you get Bill Cosby and
Annie Lennox to pose for your site?! ;)

>>> clh at christopherhawkins.com 1/30/2006 2:56 PM >>>
Hello, all!

It's been a while since I was very active on this list.  I check in
from time to time, but the amount of Access work I do is so small now I
rarely need to ask for answers, and rarely have time to give them.  I'm
mostly doing ASP Classic/ASP.NET and SQL Server work these days.

I just wanted to pop up and say hello to all of you!  I've been
subscribed for something like 5 years now, and it's always nice to skim
the list and see the same names still asking questions, because that
means you are all still gainfully employed!  ;)

As for me, my little consultancy has been humming right along.  I've
got a team of 4 now and we're chasing after ever-bigger projects!  It
was a rough start, especially for the first two years, but it looks like
things are on the right track.

I'd love to hear how you've all been doing.  Feel free to sound off
either on or offline!

 Respectfully,

Christopher Hawkins
Chief Developer
Cogeian Systems
(559) 687-7591
www.cogeian.com 

 
-- 
AccessD mailing list
AccessD at databaseadvisors.com 
http://databaseadvisors.com/mailman/listinfo/accessd 
Website: http://www.databaseadvisors.com


From accessd at shaw.ca  Tue Jan 31 07:31:23 2006
From: accessd at shaw.ca (Jim Lawrence)
Date: Tue, 31 Jan 2006 05:31:23 -0800
Subject: [AccessD] IBM DB2 Express-C free to use
In-Reply-To: <s3df6803.052@cactus.dk>
Message-ID: <000401c6266a$a1931e40$017ba8c0@xpserver>

Gustav:

I have been looking at it and it is the only free offered DB that is not
timed, stripped or reduced dramatically.

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Gustav Brock
Sent: January 31, 2006 4:37 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] IBM DB2 Express-C free to use

Hi all

Did you notice that IBM finally has an Express offering completely free:

  http://www.ibm.com/db2/express/

It's a 373MB zip download.
Note the FAQ link.

It features unlimited database size and is only limited to 4GB ram and dual
processor.
Runs on 32/64 bit, Linux or Windows.

By the way, do we have any DB2 gurus among us?

/gustav

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From Erwin.Craps at ithelps.be  Tue Jan 31 07:35:09 2006
From: Erwin.Craps at ithelps.be (Erwin Craps - IT Helps)
Date: Tue, 31 Jan 2006 14:35:09 +0100
Subject: [AccessD] Coming up for air...
Message-ID: <46B976F2B698FF46A4FE7636509B22DF1B630B@stekelbes.ithelps.local>

They look like the real stuff to me :-) 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Tuesday, January 31, 2006 2:05 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Coming up for air...

Hey, I just checked out your website...how did you get Bill Cosby and
Annie Lennox to pose for your site?! ;)

>>> clh at christopherhawkins.com 1/30/2006 2:56 PM >>>
Hello, all!

It's been a while since I was very active on this list.  I check in from
time to time, but the amount of Access work I do is so small now I
rarely need to ask for answers, and rarely have time to give them.  I'm
mostly doing ASP Classic/ASP.NET and SQL Server work these days.

I just wanted to pop up and say hello to all of you!  I've been
subscribed for something like 5 years now, and it's always nice to skim
the list and see the same names still asking questions, because that
means you are all still gainfully employed!  ;)

As for me, my little consultancy has been humming right along.  I've got
a team of 4 now and we're chasing after ever-bigger projects!  It was a
rough start, especially for the first two years, but it looks like
things are on the right track.

I'd love to hear how you've all been doing.  Feel free to sound off
either on or offline!

 Respectfully,

Christopher Hawkins
Chief Developer
Cogeian Systems
(559) 687-7591
www.cogeian.com 

 
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From jimdettman at earthlink.net  Tue Jan 31 07:51:16 2006
From: jimdettman at earthlink.net (Jim Dettman)
Date: Tue, 31 Jan 2006 08:51:16 -0500
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <39cb22f30601310438i696d6853od34b69ebc23dfc44@mail.gmail.com>
Message-ID: <NDEALJOEGMMPCDKIFGNFKEABIGAA.jimdettman@earthlink.net>



  I don't totally agree with Jim's statement.  Again, you need to be
specific with what your trying to do and understand what's going on.

  A pass-through query executes entirely on the BE server.  If I'm simply
trying to fetch records for browsing (ie. open a table or do a simple join
with no filtering), then a pass-through query makes little sense.  But if
I'm doing a complex join, filtering, sorting, etc, then it is a performance
boost to do everything on the server side.

  And if I'm not fetching, but updating or deleting, then they make a lot of
sense.  Using anything else would be silly.

Jim.

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
Sent: Tuesday, January 31, 2006 7:38 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Could somebody expand on this a little?


Jim,

Thank you.  I've never used them.

Steve Erbach

On 1/30/06, Jim Lawrence <accessd at shaw.ca> wrote:
> Pass-through queries have terrible performance especially if you are
trying
> to access dataset (recordsets).
>
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Steve Erbach
> Sent: January 30, 2006 6:31 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Could somebody expand on this a little?
>
> Jim,
>
> Very interesting.  I noted that you and at least one other respondent
> mentioned pass-through queries as good performance options.
>
> What's puzzling to me, also, is a comment made to the article by
> Warren ( here's the link:
>
http://www.sqlservercentral.com/columnists/awarren/linkingaccesstosqlserver.
> asp
> ):
>
> "Performance can really suck, depending on the application and the
> bandwidth. It has to do with the way data is cached in Access and
> becomes very apparent if you have large tables (>100,000 rows).
> However, it doesn't justify pass-through queries (obsolutely NOTHING
> justifies pass-through queries). Views (in SQL server) are your
> friend."
>
> "NOTHING justifies pass-through queries."  I didn't challenge him on
> that.  I should have, I suppose, but I know zip about pass-through
> queries.  What's your view?
> --
> Regards,
>
> Steve Erbach
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jwcolby at ColbyConsulting.com  Tue Jan 31 08:08:00 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Tue, 31 Jan 2006 09:08:00 -0500
Subject: [AccessD] Same form, different actions
In-Reply-To: <s3de13cd.030@nebnov3.niagaracounty.com>
Message-ID: <009701c6266f$c823c2d0$657aa8c0@ColbyM6805>

Everyone,

I want to point out that the entire point of classes (objects) is that you
can just use them, you don't have to understand them.  I know that some
people want to learn how it works as well, but in the end, just start using
it, THEN worry about digging in and seeing how it is programmed.

Everything you use in Access as an object, and we don't have a clue how it
works inside.  Combos, text boxes, forms etc, all are objects that have
methods and properties.  You just use them, but don't know, nor care how it
all happens inside the object.  

These classes I put out there, the SysVars classes, the openargs classes,
the date picker class etc. all are things that you can just use yourself,
even if you NEVER figure out how it works inside.

And I might add <shameless plug>, I am a consultant.  If you have a project
that needs this level of expertise, you can hire me to do it.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Monday, January 30, 2006 1:24 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Same form, different actions

Man, I wish I got this just half as much as you do! This is going to take me
some time to digest, but I think it is exactly what I need.
Thanks for the help!

John W. Clark


>>> jwcolby at colbyconsulting.com 1/30/2006 12:29:53 PM >>>
John,

When you say "go there" what do you mean.  If you open a form modal, then
when you close the form you are right back in the calling form.  If you are
not opening it modal, you should STILL "go there" when you close the form
unless the user has clicked on or opened some other form in the meantime.
IOW, if the switchboard opens the form, then when the form closes, the
switchboard should still be there.  

If you want the form to do something and then OPEN another form, then pass
in the form name in the OpenArgs something like:

strOpenArgs="FrmToOpen=frmThatIWantOpened;"

Now somewhere in the form that you are opening with these openargs (perhaps
in the close event?) do:

Docmd.open acForm, lclsOpenArgs.OpenArg("FrmToOpen")

You do have to make sure that the instance of lclsOpenArgs hasn't been
destroyed already.  I am not sure at what instance in the closing process
that occurs so that part is up to you to figure out.

So.....

The demo has two levels of complexity.  The first (and most complex) is that
as you pass in openargs, it is possible to have the OpenArgs class set
properties of the form that is using this instance of the OpenArgs class.
That is handled automatically by clsOpenArgs.  Pass in OpenArgs with names
that match form properties and Voila, (assuming the properties are not
read-only) the properties are set.  That was demonstrated by the code in the
buttons on the demo form opening the SAME state form in two different modes,
plus setting the caption property of the state form.

The second level of complexity is just using an OpenArg somehow, using code
in the form to retrieve an OpenArg and use it.  That was demonstrated by
setting the label caption in code in the OnOpen event.

In either case, the first thing to get comfortable with is having a form
instantiate and initialize a class.  In the code behind form of the
frmState, we dimensioned a class variable in the header, then SET and
initialized that variable in OnOpen.

Private lclsOpenArgs As clsOpenArgs


Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True

So the form now has a lclsOpenArgs instance that has parsed the OpenArgs
string passed in and is waiting for your command.

The next thing to become comfortable with is that you can now use the
Openargs:

	lblDemoArg.Caption = lclsOpenArgs.OpenArg("LblText")

In the OnOpen of the frmState, we initialized the class, and then used the
class to pull out an openarg called "LblText" and used the value returned by
the class to set the caption of a label - lblDemoArg.Caption.

Go back to the button code that OPENED frmState and notice that the string
with all the openargs contained an openarg with this "lblText" name (at the
very end):

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State Data
Entry Form;LblText=My Data Entry Label;"

ALL of the OpenArgs at the front of the string are for setting form
properties.  Their location in the string is irrelevant, it just happens
that is where I placed them.

IF you told frmStates to interpret the openargs as properties BY PASSING IN
True as the second argument of the init:

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True  <<<<HERE


Then any openargs with a name matching a form property will be used to set
that property.  That occurs in the private method of clsOpenArgs called
ApplyFrmProperties, which is called from the Init() method.  We passed in a
bunch of OpenArgs with names matching form properties:

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State Data
Entry Form;LblText=My Data Entry Label;"

DataEntry
AllowEdits
AllowDeletions
Caption

The reason that they are used for setting properties is that we passed in
the TRUE as the second param of the Init method, AND in that Init method we
called the following function:

Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub

Remember that we passed in a pointer to the form itself to the Init method,
so the class can manipulate the form if it wants to.

To really understand all this stuff, the best thing to do is simply set
break points in the command buttons that open the form.  Then step through
the code and watch it all unfold.  

I understand that the "set the form properties" thing gets in the way of
understanding the OpenArgs class but it is a great example of actually
automatically using openargs, with NO further code on your part (the user of
the class).  I wrote the class to do this "set the forms property" and all
you have to do is use it.  In the frmState, as you initialize clsOpenArgs,
say you are expecting some parameters to be sent in that will set form
properties.  The class takes care of the rest.  Back in your button that
opens the form, set openarg names that match the form properties that you
want to set, set the values that you want the properties set to, and hang on
to your hat.

John W. Colby
www.ColbyConsulting.com 



From jeff.embury at mac.com  Tue Jan 31 10:12:20 2006
From: jeff.embury at mac.com (jeff.embury at mac.com)
Date: Tue, 31 Jan 2006 11:12:20 -0500
Subject: [AccessD] Eval Function... (or a better way)
Message-ID: <13271769.1138723940330.JavaMail.jeff.embury@mac.com>

I have a form I'm constructing that has twenty one check boxes on it... twenty one labels, twenty one of a lot of things... and I'm trying to alter there values in a simplified way by hopefully using the Eval function - but it's not working as advertised.

The Scene: Microsoft Access 2003 in vba code...

Check box names: Check1, Check2, Check-etc.

Function to turn all check's 'on' or 'off':

Function TurnMeOn(bWhichWay as boolean)
   Dim n as integer
   Dim s as string

   n = 1
   Do While n < 21
      s = "form!formname.check" & trim(str(n)) & " = bWhichWay"
      Eval (s)
      n = n + 1
   loop
End Function

================This doesn't' work=============== (sigh!)

...if fact hardly nothing works with the Eval function as I see it...

Microsoft plainly states that the Eval function can call a user defined function - but if I create a function called... let's say "TESTIT()" and then use Eval("TESTIT()") it pukes...


Any help or is there a much more brilliant solution I'm unaware of?



From cfoust at infostatsystems.com  Tue Jan 31 10:17:24 2006
From: cfoust at infostatsystems.com (Charlotte Foust)
Date: Tue, 31 Jan 2006 08:17:24 -0800
Subject: [AccessD] Same form, different actions
Message-ID: <F55048AF7E974F429BB24597D7355EEA0A1A39@INFOSERVER04.infostat.local>

>>And I might add <shameless plug>, I am a consultant.  If you have a
project that needs this level of expertise, you can hire me to do it.

Egads!  Where are the moderators?  This crass commercialism lowers the
tone of these exalted discussions!  Now, we were talking about natural
keys versus surrogates ....  ;o}

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Tuesday, January 31, 2006 6:08 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions


Everyone,

I want to point out that the entire point of classes (objects) is that
you can just use them, you don't have to understand them.  I know that
some people want to learn how it works as well, but in the end, just
start using it, THEN worry about digging in and seeing how it is
programmed.

Everything you use in Access as an object, and we don't have a clue how
it works inside.  Combos, text boxes, forms etc, all are objects that
have methods and properties.  You just use them, but don't know, nor
care how it all happens inside the object.  

These classes I put out there, the SysVars classes, the openargs
classes, the date picker class etc. all are things that you can just use
yourself, even if you NEVER figure out how it works inside.

And I might add <shameless plug>, I am a consultant.  If you have a
project that needs this level of expertise, you can hire me to do it.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Monday, January 30, 2006 1:24 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Same form, different actions

Man, I wish I got this just half as much as you do! This is going to
take me some time to digest, but I think it is exactly what I need.
Thanks for the help!

John W. Clark


>>> jwcolby at colbyconsulting.com 1/30/2006 12:29:53 PM >>>
John,

When you say "go there" what do you mean.  If you open a form modal,
then when you close the form you are right back in the calling form.  If
you are not opening it modal, you should STILL "go there" when you close
the form unless the user has clicked on or opened some other form in the
meantime. IOW, if the switchboard opens the form, then when the form
closes, the switchboard should still be there.  

If you want the form to do something and then OPEN another form, then
pass in the form name in the OpenArgs something like:

strOpenArgs="FrmToOpen=frmThatIWantOpened;"

Now somewhere in the form that you are opening with these openargs
(perhaps in the close event?) do:

Docmd.open acForm, lclsOpenArgs.OpenArg("FrmToOpen")

You do have to make sure that the instance of lclsOpenArgs hasn't been
destroyed already.  I am not sure at what instance in the closing
process that occurs so that part is up to you to figure out.

So.....

The demo has two levels of complexity.  The first (and most complex) is
that as you pass in openargs, it is possible to have the OpenArgs class
set properties of the form that is using this instance of the OpenArgs
class. That is handled automatically by clsOpenArgs.  Pass in OpenArgs
with names that match form properties and Voila, (assuming the
properties are not
read-only) the properties are set.  That was demonstrated by the code in
the buttons on the demo form opening the SAME state form in two
different modes, plus setting the caption property of the state form.

The second level of complexity is just using an OpenArg somehow, using
code in the form to retrieve an OpenArg and use it.  That was
demonstrated by setting the label caption in code in the OnOpen event.

In either case, the first thing to get comfortable with is having a form
instantiate and initialize a class.  In the code behind form of the
frmState, we dimensioned a class variable in the header, then SET and
initialized that variable in OnOpen.

Private lclsOpenArgs As clsOpenArgs


Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True

So the form now has a lclsOpenArgs instance that has parsed the OpenArgs
string passed in and is waiting for your command.

The next thing to become comfortable with is that you can now use the
Openargs:

	lblDemoArg.Caption = lclsOpenArgs.OpenArg("LblText")

In the OnOpen of the frmState, we initialized the class, and then used
the class to pull out an openarg called "LblText" and used the value
returned by the class to set the caption of a label -
lblDemoArg.Caption.

Go back to the button code that OPENED frmState and notice that the
string with all the openargs contained an openarg with this "lblText"
name (at the very end):

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State
Data Entry Form;LblText=My Data Entry Label;"

ALL of the OpenArgs at the front of the string are for setting form
properties.  Their location in the string is irrelevant, it just happens
that is where I placed them.

IF you told frmStates to interpret the openargs as properties BY PASSING
IN True as the second argument of the init:

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True  <<<<HERE


Then any openargs with a name matching a form property will be used to
set that property.  That occurs in the private method of clsOpenArgs
called ApplyFrmProperties, which is called from the Init() method.  We
passed in a bunch of OpenArgs with names matching form properties:

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State
Data Entry Form;LblText=My Data Entry Label;"

DataEntry
AllowEdits
AllowDeletions
Caption

The reason that they are used for setting properties is that we passed
in the TRUE as the second param of the Init method, AND in that Init
method we called the following function:

Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub

Remember that we passed in a pointer to the form itself to the Init
method, so the class can manipulate the form if it wants to.

To really understand all this stuff, the best thing to do is simply set
break points in the command buttons that open the form.  Then step
through the code and watch it all unfold.  

I understand that the "set the form properties" thing gets in the way of
understanding the OpenArgs class but it is a great example of actually
automatically using openargs, with NO further code on your part (the
user of the class).  I wrote the class to do this "set the forms
property" and all you have to do is use it.  In the frmState, as you
initialize clsOpenArgs, say you are expecting some parameters to be sent
in that will set form properties.  The class takes care of the rest.
Back in your button that opens the form, set openarg names that match
the form properties that you want to set, set the values that you want
the properties set to, and hang on to your hat.

John W. Colby
www.ColbyConsulting.com 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From darsant at gmail.com  Tue Jan 31 10:34:26 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Tue, 31 Jan 2006 10:34:26 -0600
Subject: [AccessD] Eval Function... (or a better way)
In-Reply-To: <13271769.1138723940330.JavaMail.jeff.embury@mac.com>
References: <13271769.1138723940330.JavaMail.jeff.embury@mac.com>
Message-ID: <53c8e05a0601310834k48fd9b0mb090b2fdeed6e5d5@mail.gmail.com>

On 1/31/06, jeff.embury at mac.com <jeff.embury at mac.com> wrote:
> I have a form I'm constructing that has twenty one check boxes on it... twenty one labels, twenty one of a lot of things... and I'm trying to alter there values in a simplified way by hopefully using the Eval function - but it's not working as advertised.

For things such as this, you may want to consider using tags. Then you
can iterate through each control in the tag group and modify the
function however you want. Doesn't require any string assembly of the
control name, just that the specified control has the tag attribute
you're searching for.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From jwcolby at ColbyConsulting.com  Tue Jan 31 10:55:50 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Tue, 31 Jan 2006 11:55:50 -0500
Subject: [AccessD] Same form, different actions
In-Reply-To: <F55048AF7E974F429BB24597D7355EEA0A1A39@INFOSERVER04.infostat.local>
Message-ID: <00a401c62687$32ff7240$657aa8c0@ColbyM6805>

The moderators are on my payroll.  ;-)  Unfortunately they just notified me
that their rate is going up.  8~(

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Charlotte Foust
Sent: Tuesday, January 31, 2006 11:17 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Same form, different actions

>>And I might add <shameless plug>, I am a consultant.  If you have a
project that needs this level of expertise, you can hire me to do it.

Egads!  Where are the moderators?  This crass commercialism lowers the tone
of these exalted discussions!  Now, we were talking about natural keys
versus surrogates ....  ;o}

Charlotte Foust


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Tuesday, January 31, 2006 6:08 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions


Everyone,

I want to point out that the entire point of classes (objects) is that you
can just use them, you don't have to understand them.  I know that some
people want to learn how it works as well, but in the end, just start using
it, THEN worry about digging in and seeing how it is programmed.

Everything you use in Access as an object, and we don't have a clue how it
works inside.  Combos, text boxes, forms etc, all are objects that have
methods and properties.  You just use them, but don't know, nor care how it
all happens inside the object.  

These classes I put out there, the SysVars classes, the openargs classes,
the date picker class etc. all are things that you can just use yourself,
even if you NEVER figure out how it works inside.

And I might add <shameless plug>, I am a consultant.  If you have a project
that needs this level of expertise, you can hire me to do it.

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Clark
Sent: Monday, January 30, 2006 1:24 PM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Same form, different actions

Man, I wish I got this just half as much as you do! This is going to take me
some time to digest, but I think it is exactly what I need.
Thanks for the help!

John W. Clark


>>> jwcolby at colbyconsulting.com 1/30/2006 12:29:53 PM >>>
John,

When you say "go there" what do you mean.  If you open a form modal, then
when you close the form you are right back in the calling form.  If you are
not opening it modal, you should STILL "go there" when you close the form
unless the user has clicked on or opened some other form in the meantime.
IOW, if the switchboard opens the form, then when the form closes, the
switchboard should still be there.  

If you want the form to do something and then OPEN another form, then pass
in the form name in the OpenArgs something like:

strOpenArgs="FrmToOpen=frmThatIWantOpened;"

Now somewhere in the form that you are opening with these openargs (perhaps
in the close event?) do:

Docmd.open acForm, lclsOpenArgs.OpenArg("FrmToOpen")

You do have to make sure that the instance of lclsOpenArgs hasn't been
destroyed already.  I am not sure at what instance in the closing process
that occurs so that part is up to you to figure out.

So.....

The demo has two levels of complexity.  The first (and most complex) is that
as you pass in openargs, it is possible to have the OpenArgs class set
properties of the form that is using this instance of the OpenArgs class.
That is handled automatically by clsOpenArgs.  Pass in OpenArgs with names
that match form properties and Voila, (assuming the properties are not
read-only) the properties are set.  That was demonstrated by the code in the
buttons on the demo form opening the SAME state form in two different modes,
plus setting the caption property of the state form.

The second level of complexity is just using an OpenArg somehow, using code
in the form to retrieve an OpenArg and use it.  That was demonstrated by
setting the label caption in code in the OnOpen event.

In either case, the first thing to get comfortable with is having a form
instantiate and initialize a class.  In the code behind form of the
frmState, we dimensioned a class variable in the header, then SET and
initialized that variable in OnOpen.

Private lclsOpenArgs As clsOpenArgs


Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True

So the form now has a lclsOpenArgs instance that has parsed the OpenArgs
string passed in and is waiting for your command.

The next thing to become comfortable with is that you can now use the
Openargs:

	lblDemoArg.Caption = lclsOpenArgs.OpenArg("LblText")

In the OnOpen of the frmState, we initialized the class, and then used the
class to pull out an openarg called "LblText" and used the value returned by
the class to set the caption of a label - lblDemoArg.Caption.

Go back to the button code that OPENED frmState and notice that the string
with all the openargs contained an openarg with this "lblText"
name (at the very end):

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State Data
Entry Form;LblText=My Data Entry Label;"

ALL of the OpenArgs at the front of the string are for setting form
properties.  Their location in the string is irrelevant, it just happens
that is where I placed them.

IF you told frmStates to interpret the openargs as properties BY PASSING IN
True as the second argument of the init:

Private Sub Form_Open(Cancel As Integer)
    Set lclsOpenArgs = New clsOpenArgs
    lclsOpenArgs.mInit Me, True  <<<<HERE


Then any openargs with a name matching a form property will be used to set
that property.  That occurs in the private method of clsOpenArgs called
ApplyFrmProperties, which is called from the Init() method.  We passed in a
bunch of OpenArgs with names matching form properties:

    strOpenArgs =
"DataEntry=True;AllowEdits=True;AllowDeletions=False;Caption=My State Data
Entry Form;LblText=My Data Entry Label;"

DataEntry
AllowEdits
AllowDeletions
Caption

The reason that they are used for setting properties is that we passed in
the TRUE as the second param of the Init method, AND in that Init method we
called the following function:

Public Sub ApplyFrmProperties()
Dim lclsOpenArg As clsOpenArg
    On Error Resume Next
    For Each lclsOpenArg In mcolOpenArg
        mfrm.Properties(lclsOpenArg.pName) = lclsOpenArg.pVal
        lclsOpenArg.pIsPrp = (Err.Number = 0)
        Err.Clear
    Next lclsOpenArg
End Sub

Remember that we passed in a pointer to the form itself to the Init method,
so the class can manipulate the form if it wants to.

To really understand all this stuff, the best thing to do is simply set
break points in the command buttons that open the form.  Then step through
the code and watch it all unfold.  

I understand that the "set the form properties" thing gets in the way of
understanding the OpenArgs class but it is a great example of actually
automatically using openargs, with NO further code on your part (the user of
the class).  I wrote the class to do this "set the forms property" and all
you have to do is use it.  In the frmState, as you initialize clsOpenArgs,
say you are expecting some parameters to be sent in that will set form
properties.  The class takes care of the rest.
Back in your button that opens the form, set openarg names that match the
form properties that you want to set, set the values that you want the
properties set to, and hang on to your hat.

John W. Colby
www.ColbyConsulting.com 

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From jwelz at hotmail.com  Tue Jan 31 10:58:14 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Tue, 31 Jan 2006 09:58:14 -0700
Subject: [AccessD] Eval Function... (or a better way)
In-Reply-To: <13271769.1138723940330.JavaMail.jeff.embury@mac.com>
Message-ID: <BAY113-F1649C4F237211FB3E59C16A1080@phx.gbl>

Reference the controls:

Me("Chk" & n)

or create a form reference:

Set frm = Forms("frmAnyName")
For n = 1 to 21
    frm("Chk" & n) =  bWhichWay
Next

Or create an array of controls in the form open or load

Dim chkCtl(21) As CheckBox 'at form module level scope

For n = 1 to 21
    Set chkCtl(n) = Me.("Chk" & n)
Next

Thereafter, you can reference the controls as members of the array of 
controls

For n = 1 to 21
    chkCtl(n) = bWhichWay
Next


Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: jeff.embury at mac.com
>
>I have a form I'm constructing that has twenty one check boxes on it... 
>twenty one labels, twenty one of a lot of things... and I'm trying to alter 
>there values in a simplified way by hopefully using the Eval function - but 
>it's not working as advertised.
>
>The Scene: Microsoft Access 2003 in vba code...
>
>Check box names: Check1, Check2, Check-etc.
>
>Function to turn all check's 'on' or 'off':
>
>Function TurnMeOn(bWhichWay as boolean)
>    Dim n as integer
>    Dim s as string
>
>    n = 1
>    Do While n < 21
>       s = "form!formname.check" & trim(str(n)) & " = bWhichWay"
>       Eval (s)
>       n = n + 1
>    loop
>End Function
>
>================This doesn't' work=============== (sigh!)
>
>...if fact hardly nothing works with the Eval function as I see it...
>
>Microsoft plainly states that the Eval function can call a user defined 
>function - but if I create a function called... let's say "TESTIT()" and 
>then use Eval("TESTIT()") it pukes...
>
>
>Any help or is there a much more brilliant solution I'm unaware of?




From jwelz at hotmail.com  Tue Jan 31 11:00:56 2006
From: jwelz at hotmail.com (Jürgen Welz)
Date: Tue, 31 Jan 2006 10:00:56 -0700
Subject: [AccessD] Same form, different actions
In-Reply-To: <F55048AF7E974F429BB24597D7355EEA0A1A39@INFOSERVER04.infostat.local>
Message-ID: <BAY113-F981BCD4EAF85930809A27A1080@phx.gbl>

I think the question is whether we can qualify such plugs as 'classy' or 
'classless'.


Ciao
J?rgen Welz
Edmonton, Alberta
jwelz at hotmail.com





>From: "Charlotte Foust" <cfoust at infostatsystems.com>
>
> >>And I might add <shameless plug>, I am a consultant.  If you have a
>project that needs this level of expertise, you can hire me to do it.
>
>Egads!  Where are the moderators?  This crass commercialism lowers the
>tone of these exalted discussions!  Now, we were talking about natural
>keys versus surrogates ....  ;o}
>
>Charlotte Foust




From reuben at gfconsultants.com  Tue Jan 31 11:05:44 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Tue, 31 Jan 2006 12:05:44 -0500
Subject: [AccessD] A2K - Duplex Printing
Message-ID: <DPEKLCIHBOJKCKJECLCPIEHBDCAA.reuben@gfconsultants.com>

I need to print a report on both sides of the paper.

One record will be one page - both sides.  Each new record will have it's
own piece of paper.

So 10 records will be 10 papers printed on both sides (20 pages total).

Any suggestions?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017






From Lambert.Heenan at AIG.com  Tue Jan 31 11:02:53 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Tue, 31 Jan 2006 11:02:53 -0600
Subject: [AccessD] Eval Function... (or a better way)
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1C7864D3@xlivmbx21.aig.com>

No need for Eval. 

If you control are *consistently* named you can try...

Function TurnMeOn(bWhichWay as boolean)
   Dim n as integer
   Dim s as string

   n = 1
   With Me
   Do While n < 21
     .Controls("Check" & n) = bWhichWay
      n = n + 1
   loop
   End With
End Function

Which eliminates he need to use the Tag property. 

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
jeff.embury at mac.com
Sent: Tuesday, January 31, 2006 11:12 AM
To: accessD at databaseadvisors.com
Subject: [AccessD] Eval Function... (or a better way)


I have a form I'm constructing that has twenty one check boxes on it...
twenty one labels, twenty one of a lot of things... and I'm trying to alter
there values in a simplified way by hopefully using the Eval function - but
it's not working as advertised.

The Scene: Microsoft Access 2003 in vba code...

Check box names: Check1, Check2, Check-etc.

Function to turn all check's 'on' or 'off':

Function TurnMeOn(bWhichWay as boolean)
   Dim n as integer
   Dim s as string

   n = 1
   Do While n < 21
      s = "form!formname.check" & trim(str(n)) & " = bWhichWay"
      Eval (s)
      n = n + 1
   loop
End Function

================This doesn't' work=============== (sigh!)

...if fact hardly nothing works with the Eval function as I see it...

Microsoft plainly states that the Eval function can call a user defined
function - but if I create a function called... let's say "TESTIT()" and
then use Eval("TESTIT()") it pukes...


Any help or is there a much more brilliant solution I'm unaware of?

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From erbachs at gmail.com  Tue Jan 31 11:08:07 2006
From: erbachs at gmail.com (Steve Erbach)
Date: Tue, 31 Jan 2006 11:08:07 -0600
Subject: [AccessD] Could somebody expand on this a little?
In-Reply-To: <NDEALJOEGMMPCDKIFGNFKEABIGAA.jimdettman@earthlink.net>
References: <39cb22f30601310438i696d6853od34b69ebc23dfc44@mail.gmail.com>
	<NDEALJOEGMMPCDKIFGNFKEABIGAA.jimdettman@earthlink.net>
Message-ID: <39cb22f30601310908q7e682101q1952336aa7cae37c@mail.gmail.com>

Jim,

The picture becomes clearer.  Thank you.

Steve Erbach

On 1/31/06, Jim Dettman <jimdettman at earthlink.net> wrote:
>
>
>   I don't totally agree with Jim's statement.  Again, you need to be
> specific with what your trying to do and understand what's going on.
>
>   A pass-through query executes entirely on the BE server.  If I'm simply
> trying to fetch records for browsing (ie. open a table or do a simple join
> with no filtering), then a pass-through query makes little sense.  But if
> I'm doing a complex join, filtering, sorting, etc, then it is a performance
> boost to do everything on the server side.
>
>   And if I'm not fetching, but updating or deleting, then they make a lot of
> sense.  Using anything else would be silly.
>
> Jim.
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Steve Erbach
> Sent: Tuesday, January 31, 2006 7:38 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Could somebody expand on this a little?
>
>
> Jim,
>
> Thank you.  I've never used them.
>
> Steve Erbach


From carbonnb at gmail.com  Tue Jan 31 11:09:04 2006
From: carbonnb at gmail.com (Bryan Carbonnell)
Date: Tue, 31 Jan 2006 12:09:04 -0500
Subject: [AccessD] Same form, different actions
In-Reply-To: <BAY113-F981BCD4EAF85930809A27A1080@phx.gbl>
References: <F55048AF7E974F429BB24597D7355EEA0A1A39@INFOSERVER04.infostat.local>
	<BAY113-F981BCD4EAF85930809A27A1080@phx.gbl>
Message-ID: <e04a6c920601310909l60b39c42u@mail.gmail.com>

On 31/01/06, J?rgen Welz <jwelz at hotmail.com> wrote:
> I think the question is whether we can qualify such plugs as 'classy' or
> 'classless'.

I'd say they are a class unto themselves

BTW John, You've got the wrong folks on your payroll. I can mess with
your subscriptions :-)) You owe me some back pay ;-)) Small bills
please.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well
preserved body, but rather to skid in sideways, totally worn out,
shouting "What a great ride!"


From jwcolby at ColbyConsulting.com  Tue Jan 31 11:37:35 2006
From: jwcolby at ColbyConsulting.com (John Colby)
Date: Tue, 31 Jan 2006 12:37:35 -0500
Subject: [AccessD] Same form, different actions
In-Reply-To: <e04a6c920601310909l60b39c42u@mail.gmail.com>
Message-ID: <00b201c6268d$0657f630$657aa8c0@ColbyM6805>

>BTW John, You've got the wrong folks on your payroll. I can mess with your
subscriptions :-)) You owe me some back pay ;-)) Small bills please.

ROTFL.  Everyone has their hand out.  Go to 4th and main, look for a brown
paper bag under the park bench.  There's more where that came from if you
un-enroll J?rgen.

;-0

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell
Sent: Tuesday, January 31, 2006 12:09 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Same form, different actions

On 31/01/06, J?rgen Welz <jwelz at hotmail.com> wrote:
> I think the question is whether we can qualify such plugs as 'classy' 
> or 'classless'.

I'd say they are a class unto themselves

BTW John, You've got the wrong folks on your payroll. I can mess with your
subscriptions :-)) You owe me some back pay ;-)) Small bills please.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well preserved
body, but rather to skid in sideways, totally worn out, shouting "What a
great ride!"
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From Rick.Ehlers at cinergy.com  Tue Jan 31 11:57:53 2006
From: Rick.Ehlers at cinergy.com (Ehlers, Rick)
Date: Tue, 31 Jan 2006 12:57:53 -0500
Subject: [AccessD] Same form, different actions
Message-ID: <A49154D170A54C42BCA71C9770A931E701F8D079@excincymb02.cinergy.com>

Hey, I work at 4th and Main!! Gotta run ;-) 

Rick Ehlers
  Power Services
  Performance And Valuation
  Annex - EX510
  Phone: (513) 287-2047
  Fax: (513) 287-3698
  EMail: Rick.Ehlers at cinergy.com

-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
Sent: Tuesday, January 31, 2006 12:38 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Same form, different actions

>BTW John, You've got the wrong folks on your payroll. I can mess with 
>your
subscriptions :-)) You owe me some back pay ;-)) Small bills please.

ROTFL.  Everyone has their hand out.  Go to 4th and main, look for a brown paper bag under the park bench.  There's more where that came from if you un-enroll J?rgen.

;-0

John W. Colby
www.ColbyConsulting.com 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Bryan Carbonnell
Sent: Tuesday, January 31, 2006 12:09 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Same form, different actions

On 31/01/06, J?rgen Welz <jwelz at hotmail.com> wrote:
> I think the question is whether we can qualify such plugs as 'classy' 
> or 'classless'.

I'd say they are a class unto themselves

BTW John, You've got the wrong folks on your payroll. I can mess with your subscriptions :-)) You owe me some back pay ;-)) Small bills please.

--
Bryan Carbonnell - carbonnb at gmail.com
Life's journey is not to arrive at the grave safely in a well preserved body, but rather to skid in sideways, totally worn out, shouting "What a great ride!"
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From rl_stewart at highstream.net  Tue Jan 31 12:38:00 2006
From: rl_stewart at highstream.net (Robert L. Stewart)
Date: Tue, 31 Jan 2006 12:38:00 -0600
Subject: [AccessD] IBM DB2 Express-C free to use
In-Reply-To: <mailman.1.1138730403.17837.accessd@databaseadvisors.com>
References: <mailman.1.1138730403.17837.accessd@databaseadvisors.com>
Message-ID: <6.2.3.4.2.20060131123736.030cbc58@pop3.highstream.net>

Not a guru, but I have used it. :-)

At 12:00 PM 1/31/2006, you wrote:
>Date: Tue, 31 Jan 2006 13:36:57 +0100
>From: "Gustav Brock" <Gustav at cactus.dk>
>Subject: [AccessD] IBM DB2 Express-C free to use
>To: <accessd at databaseadvisors.com>
>Message-ID: <s3df6803.052 at cactus.dk>
>Content-Type: text/plain; charset=US-ASCII
>
>Hi all
>
>Did you notice that IBM finally has an Express offering completely free:
>
>   http://www.ibm.com/db2/express/
>
>It's a 373MB zip download.
>Note the FAQ link.
>
>It features unlimited database size and is only limited to 4GB ram 
>and dual processor.
>Runs on 32/64 bit, Linux or Windows.
>
>By the way, do we have any DB2 gurus among us?




From rl_stewart at highstream.net  Tue Jan 31 12:42:02 2006
From: rl_stewart at highstream.net (Robert L. Stewart)
Date: Tue, 31 Jan 2006 12:42:02 -0600
Subject: [AccessD] IBM DB2 Express-C free to use
In-Reply-To: <mailman.1.1138730403.17837.accessd@databaseadvisors.com>
References: <mailman.1.1138730403.17837.accessd@databaseadvisors.com>
Message-ID: <6.2.3.4.2.20060131124112.030dacd8@pop3.highstream.net>

And, you cannot really download it.  You get the following error:


HTTP 500 - Internal server error
Internet Explorer

If you try to do the Windows 32-bit download.

At 12:00 PM 1/31/2006, you wrote:
>Date: Tue, 31 Jan 2006 13:36:57 +0100
>From: "Gustav Brock" <Gustav at cactus.dk>
>Subject: [AccessD] IBM DB2 Express-C free to use
>To: <accessd at databaseadvisors.com>
>Message-ID: <s3df6803.052 at cactus.dk>
>Content-Type: text/plain; charset=US-ASCII
>
>Hi all
>
>Did you notice that IBM finally has an Express offering completely free:
>
>   http://www.ibm.com/db2/express/
>
>It's a 373MB zip download.
>Note the FAQ link.
>
>It features unlimited database size and is only limited to 4GB ram 
>and dual processor.
>Runs on 32/64 bit, Linux or Windows.
>
>By the way, do we have any DB2 gurus among us?
>
>/gustav


From Gustav at cactus.dk  Tue Jan 31 12:55:50 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 31 Jan 2006 19:55:50 +0100
Subject: [AccessD] IBM DB2 Express-C free to use
Message-ID: <s3dfc0e4.063@cactus.dk>

Hi Robert

Any comments on it? Or was that prior to version 8.2?

/gustav

>>> rl_stewart at highstream.net 31-01-2006 19:38:00 >>>
Not a guru, but I have used it. :-)

At 12:00 PM 1/31/2006, you wrote:
>Date: Tue, 31 Jan 2006 13:36:57 +0100
>From: "Gustav Brock" <Gustav at cactus.dk>
>Subject: [AccessD] IBM DB2 Express-C free to use
>To: <accessd at databaseadvisors.com>
>Message-ID: <s3df6803.052 at cactus.dk>
>Content-Type: text/plain; charset=US-ASCII
>
>Hi all
>
>Did you notice that IBM finally has an Express offering completely free:
>
>   http://www.ibm.com/db2/express/ 
>
>It's a 373MB zip download.
>Note the FAQ link.
>
>It features unlimited database size and is only limited to 4GB ram 
>and dual processor.
>Runs on 32/64 bit, Linux or Windows.
>
>By the way, do we have any DB2 gurus among us?




From Gustav at cactus.dk  Tue Jan 31 12:58:10 2006
From: Gustav at cactus.dk (Gustav Brock)
Date: Tue, 31 Jan 2006 19:58:10 +0100
Subject: [AccessD] IBM DB2 Express-C free to use
Message-ID: <s3dfc15f.064@cactus.dk>

Hi Robert

I succeeded in the fourth attempt. 
Be patient - it looks like the news are traveling across the world ...

/gustav

>>> rl_stewart at highstream.net 31-01-2006 19:42:02 >>>
And, you cannot really download it.  You get the following error:


HTTP 500 - Internal server error
Internet Explorer

If you try to do the Windows 32-bit download.




From darsant at gmail.com  Tue Jan 31 13:18:19 2006
From: darsant at gmail.com (Josh McFarlane)
Date: Tue, 31 Jan 2006 13:18:19 -0600
Subject: [AccessD] Eval Function... (or a better way)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1C7864D3@xlivmbx21.aig.com>
References: <1D7828CDB8350747AFE9D69E0E90DA1F1C7864D3@xlivmbx21.aig.com>
Message-ID: <53c8e05a0601311118v758b8730nb495f554fe48102b@mail.gmail.com>

On 1/31/06, Heenan, Lambert <Lambert.Heenan at aig.com> wrote:
> No need for Eval.
>
> If you control are *consistently* named you can try...
>
> Function TurnMeOn(bWhichWay as boolean)
>    Dim n as integer
>    Dim s as string
>
>    n = 1
>    With Me
>    Do While n < 21
>      .Controls("Check" & n) = bWhichWay
>       n = n + 1
>    loop
>    End With
> End Function
>
> Which eliminates he need to use the Tag property.

I don't know, I may just be prejudiced against string manupulating
control names. Tags allow me to seperate things into nice
organizational chunks, and I can add a new control without needing to
touch the underlying code. OTOH, if I change the name of a control
while using strings, it won't give me a problem until I execute the
code, which can be nasty sometimes if you miss testing it.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein


From Lambert.Heenan at AIG.com  Tue Jan 31 13:35:19 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Tue, 31 Jan 2006 13:35:19 -0600
Subject: [AccessD] Eval Function... (or a better way)
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1C786598@xlivmbx21.aig.com>

I agree. And that's why I emphasized *consistently*. I use the Tag property
myself for this reason, but I just posted this to show Jeff another way to
solve his problem. 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Josh McFarlane
Sent: Tuesday, January 31, 2006 2:18 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Eval Function... (or a better way)


On 1/31/06, Heenan, Lambert <Lambert.Heenan at aig.com> wrote:
> No need for Eval.
>
> If you control are *consistently* named you can try...
>
> Function TurnMeOn(bWhichWay as boolean)
>    Dim n as integer
>    Dim s as string
>
>    n = 1
>    With Me
>    Do While n < 21
>      .Controls("Check" & n) = bWhichWay
>       n = n + 1
>    loop
>    End With
> End Function
>
> Which eliminates he need to use the Tag property.

I don't know, I may just be prejudiced against string manupulating control
names. Tags allow me to seperate things into nice organizational chunks, and
I can add a new control without needing to touch the underlying code. OTOH,
if I change the name of a control while using strings, it won't give me a
problem until I execute the code, which can be nasty sometimes if you miss
testing it.

--
Josh McFarlane

"Peace cannot be kept by force. It can only be achieved by understanding."
-Albert Einstein
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From jeff.embury at mac.com  Tue Jan 31 13:47:20 2006
From: jeff.embury at mac.com (jeff.embury at mac.com)
Date: Tue, 31 Jan 2006 14:47:20 -0500
Subject: [AccessD] Eval Function... (or a better way)
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1C786598@xlivmbx21.aig.com>
References: <1D7828CDB8350747AFE9D69E0E90DA1F1C786598@xlivmbx21.aig.com>
Message-ID: <16044943.1138736840614.JavaMail.jeff.embury@mac.com>

I thank you both.... I'm not using the tag solution because I'm somewhat unfamiliar with it... the proposed control object was the key - I'm off and running!


From dwaters at usinternet.com  Tue Jan 31 15:24:13 2006
From: dwaters at usinternet.com (Dan Waters)
Date: Tue, 31 Jan 2006 15:24:13 -0600
Subject: [AccessD] A2K - Duplex Printing
In-Reply-To: <24322010.1138727367819.JavaMail.root@sniper17>
Message-ID: <000201c626ac$af4a9990$0200a8c0@danwaters>

Hi Reuben,

Duplex printing is typically a function of the printer, not your software.

For example, I have an HP Photosmart 1215.  I've had it for 3 years, but
just recently bought the mechanical attachment which allows duplex printing.
The toggle switch to turn the duplex printing on and off is in the
properties window for the printer.  So if I print anything that is two pages
long, and the printer is set for double-sided printing, it will
automatically print two sides, no matter what the source of the document
was.

Hope this helps!
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings
Sent: Tuesday, January 31, 2006 11:06 AM
To: AccessD
Subject: [AccessD] A2K - Duplex Printing

I need to print a report on both sides of the paper.

One record will be one page - both sides.  Each new record will have it's
own piece of paper.

So 10 records will be 10 papers printed on both sides (20 pages total).

Any suggestions?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017




-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



From Lambert.Heenan at AIG.com  Tue Jan 31 16:34:25 2006
From: Lambert.Heenan at AIG.com (Heenan, Lambert)
Date: Tue, 31 Jan 2006 16:34:25 -0600
Subject: [AccessD] A2K - Duplex Printing
Message-ID: <1D7828CDB8350747AFE9D69E0E90DA1F1C786691@xlivmbx21.aig.com>

If you want to do this yourself then this is one approach.

Generate a sorted recordset
Loop though the recordset and add every odd numbered record to a temporary
table (which the report will be bound to)
Print the report, which will show every other record.
Tell the user to reload the paper upside down in the printer.
Empty the temporary table
Loop though the records and add every even record to the temporary table
Print the report again (on the back of the paper).

HTH

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: Tuesday, January 31, 2006 4:24 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] A2K - Duplex Printing


Hi Reuben,

Duplex printing is typically a function of the printer, not your software.

For example, I have an HP Photosmart 1215.  I've had it for 3 years, but
just recently bought the mechanical attachment which allows duplex printing.
The toggle switch to turn the duplex printing on and off is in the
properties window for the printer.  So if I print anything that is two pages
long, and the printer is set for double-sided printing, it will
automatically print two sides, no matter what the source of the document
was.

Hope this helps!
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings
Sent: Tuesday, January 31, 2006 11:06 AM
To: AccessD
Subject: [AccessD] A2K - Duplex Printing

I need to print a report on both sides of the paper.

One record will be one page - both sides.  Each new record will have it's
own piece of paper.

So 10 records will be 10 papers printed on both sides (20 pages total).

Any suggestions?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017




-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


From reuben at gfconsultants.com  Tue Jan 31 18:03:46 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Tue, 31 Jan 2006 19:03:46 -0500
Subject: [AccessD] A2K - Duplex Printing
In-Reply-To: <000201c626ac$af4a9990$0200a8c0@danwaters>
Message-ID: <DPEKLCIHBOJKCKJECLCPOEHKDCAA.reuben@gfconsultants.com>

I had wondered about that, Dan.  Maybe I need to dig deeper (or have them
dig deeper) into their alleged duplex printer.  I'll be there tomorrow to
play with it again.

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Dan Waters
> Sent: Tuesday, January 31, 2006 4:24 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] A2K - Duplex Printing
>
>
> Hi Reuben,
>
> Duplex printing is typically a function of the printer, not your software.
>
> For example, I have an HP Photosmart 1215.  I've had it for 3 years, but
> just recently bought the mechanical attachment which allows
> duplex printing.
> The toggle switch to turn the duplex printing on and off is in the
> properties window for the printer.  So if I print anything that
> is two pages
> long, and the printer is set for double-sided printing, it will
> automatically print two sides, no matter what the source of the document
> was.
>
> Hope this helps!
> Dan
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings
> Sent: Tuesday, January 31, 2006 11:06 AM
> To: AccessD
> Subject: [AccessD] A2K - Duplex Printing
>
> I need to print a report on both sides of the paper.
>
> One record will be one page - both sides.  Each new record will have it's
> own piece of paper.
>
> So 10 records will be 10 papers printed on both sides (20 pages total).
>
> Any suggestions?
>
> Thanks.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From reuben at gfconsultants.com  Tue Jan 31 18:03:48 2006
From: reuben at gfconsultants.com (Reuben Cummings)
Date: Tue, 31 Jan 2006 19:03:48 -0500
Subject: [AccessD] A2K - Duplex Printing
In-Reply-To: <1D7828CDB8350747AFE9D69E0E90DA1F1C786691@xlivmbx21.aig.com>
Message-ID: <DPEKLCIHBOJKCKJECLCPAEHLDCAA.reuben@gfconsultants.com>

Lambert, thanks for the input.  I have read that method before and hope to
avoid it, but...you never know.

Reuben Cummings
GFC, LLC
812.523.1017


> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Heenan,
> Lambert
> Sent: Tuesday, January 31, 2006 5:34 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] A2K - Duplex Printing
>
>
> If you want to do this yourself then this is one approach.
>
> Generate a sorted recordset
> Loop though the recordset and add every odd numbered record to a temporary
> table (which the report will be bound to)
> Print the report, which will show every other record.
> Tell the user to reload the paper upside down in the printer.
> Empty the temporary table
> Loop though the records and add every even record to the temporary table
> Print the report again (on the back of the paper).
>
> HTH
>
> Lambert
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
> Sent: Tuesday, January 31, 2006 4:24 PM
> To: 'Access Developers discussion and problem solving'
> Subject: Re: [AccessD] A2K - Duplex Printing
>
>
> Hi Reuben,
>
> Duplex printing is typically a function of the printer, not your software.
>
> For example, I have an HP Photosmart 1215.  I've had it for 3 years, but
> just recently bought the mechanical attachment which allows
> duplex printing.
> The toggle switch to turn the duplex printing on and off is in the
> properties window for the printer.  So if I print anything that
> is two pages
> long, and the printer is set for double-sided printing, it will
> automatically print two sides, no matter what the source of the document
> was.
>
> Hope this helps!
> Dan
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Reuben Cummings
> Sent: Tuesday, January 31, 2006 11:06 AM
> To: AccessD
> Subject: [AccessD] A2K - Duplex Printing
>
> I need to print a report on both sides of the paper.
>
> One record will be one page - both sides.  Each new record will have it's
> own piece of paper.
>
> So 10 records will be 10 papers printed on both sides (20 pages total).
>
> Any suggestions?
>
> Thanks.
>
> Reuben Cummings
> GFC, LLC
> 812.523.1017
>
>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>






From clh at christopherhawkins.com  Tue Jan 31 22:51:41 2006
From: clh at christopherhawkins.com (Christopher Hawkins)
Date: Tue, 31 Jan 2006 21:51:41 -0700
Subject: [AccessD] Coming up for air...
Message-ID: <4a265b9d383844e4b243a581181f6085@christopherhawkins.com>

I am a man with a contact list that is both deep and wide!  ;)

-C-

----------------------------------------
 From: "John Clark" <John.Clark at niagaracounty.com>
Sent: Tuesday, January 31, 2006 6:05 AM
To: accessd at databaseadvisors.com
Subject: Re: [AccessD] Coming up for air... 

Hey, I just checked out your website...how did you get Bill Cosby and
Annie Lennox to pose for your site?! ;)

>>> clh at christopherhawkins.com 1/30/2006 2:56 PM >>>
Hello, all!

It's been a while since I was very active on this list. I check in
from time to time, but the amount of Access work I do is so small now I
rarely need to ask for answers, and rarely have time to give them. I'm
mostly doing ASP Classic/ASP.NET and SQL Server work these days.

I just wanted to pop up and say hello to all of you! I've been
subscribed for something like 5 years now, and it's always nice to skim
the list and see the same names still asking questions, because that
means you are all still gainfully employed! ;)

As for me, my little consultancy has been humming right along. I've
got a team of 4 now and we're chasing after ever-bigger projects! It
was a rough start, especially for the first two years, but it looks like
things are on the right track.

I'd love to hear how you've all been doing. Feel free to sound off
either on or offline!

Respectfully,

Christopher Hawkins
Chief Developer
Cogeian Systems
(559) 687-7591
www.cogeian.com 

-- 
AccessD mailing list
AccessD at databaseadvisors.com 
http://databaseadvisors.com/mailman/listinfo/accessd 
Website: http://www.databaseadvisors.com
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




From jmhecht at earthlink.net  Tue Jan 31 23:42:56 2006
From: jmhecht at earthlink.net (Joe Hecht)
Date: Tue, 31 Jan 2006 21:42:56 -0800
Subject: [AccessD] A2K - Duplex Printing
In-Reply-To: <DPEKLCIHBOJKCKJECLCPIEHBDCAA.reuben@gfconsultants.com>
Message-ID: <000101c626f2$5b26ac00$7400a8c0@HPLaptop>

Is your printer duplex?

Joe Hecht
jmhecht at earthlink.net
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
Reuben Cummings
Sent: Tuesday, January 31, 2006 9:06 AM
To: AccessD
Subject: [AccessD] A2K - Duplex Printing

I need to print a report on both sides of the paper.

One record will be one page - both sides.  Each new record
will have it's
own piece of paper.

So 10 records will be 10 papers printed on both sides (20
pages total).

Any suggestions?

Thanks.

Reuben Cummings
GFC, LLC
812.523.1017




-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com